perl/test3.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 @md=();
   8 ($c=SSLeay::Cipher::new("idea")) ||
   9         die "'des' is an unknown cipher algorithm\n";
  10
  11 $key=" ";
  12 $iv=" ";
  13 $c->init($key,$iv,0);
  14 while (<>)
  15         {
  16         print $c->update($_);
  17         }
  18 print $c->final();
  19