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