Help for this page

Select Code to Download


  1. or download this
    sub encrypt {
print "enter key: "; 
...
$data = $file;
$c_txt = rijndael_encrypt($key, MODE_CBC, $data,  256, 128);
$file->print($c_txt);}
  2. or download this
    sub decrypt {
print "enter key: "; 
...
$c_txt = $file;
$p_txt = rijndael_decrypt($key, MODE_CBC, $c_txt, 256, 128);
$file->print($p_txt);}
  3. or download this
    $file =~ s/\r$//;

and

$file =~ s/\n$//;