7 $md=SSLeay::MD::new("md5");
9 foreach (@SSLeay::Cipher::names)
11 ($c=SSLeay::Cipher::new($_)) ||
12 die "'$_' is an unknown cipher algorithm\n";
15 $data="012345678abcdefghijklmnopqrstuvwxyz";
16 $c->init("01234567abcdefghABCDEFGH","zyxwvut",1);
18 $in =$c->update(substr($data, 0, 5));
19 $in.=$c->update(substr($data, 5,10));
20 $in.=$c->update(substr($data,15,1));
21 $in.=$c->update(substr($data,16));
25 $c->init("01234567abcdefghABCDEFGH","zyxwvut",0);
29 ($out eq $data) || die "decrypt for $_ failed:$!\n";
35 print unpack("H*",$digest);
36 printf " %2d %2d %2d %s\n", $c->key_length(), $c->iv_length(),
37 $c->block_size(), $c->name();