perl/test2.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 printf "name      =%s\n" ,$c->name();
  12 printf "key length=%2d\n",$c->key_length();
  13 printf "iv length =%2d\n",$c->iv_length();
  14 printf "block size=%2d\n",$c->block_size();
  15
  16 $data="1234";
  17 $c->init("01234567","abcdefgh",1);
  18 $in=$c->update($data);
  19 $in.=$c->final();
  20
  21 $c->init("01234567","abcdefgh",0);
  22 $out=$c->update($in);
  23 $out.=$c->final();
  24 print $data;
  25 print " -> ";
  26 print $out;
  27 print "\n";
  28