]>
git.ipfire.org Git - thirdparty/openssl.git/blob - perl/cipher.pl
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();