This commit was generated by cvs2svn to track changes on a CVS vendor
[openssl.git] / 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