]>
git.ipfire.org Git - thirdparty/openssl.git/blob - perl/z.pl
8 $buf=('x' x
(1024*1024));
9 $buf=('x' x
(1024*1024));
12 foreach $name ("md2", "mdc2", "sha", "ripemd160", "sha1", "md5")
14 if (($name eq "md2") || ($name eq "mdc2"))
18 $t=timeit
($num,'&hash($name)');
19 printf "%6d000 bytes/sec:$name\n",int(($num*1024*1024)/$t->[1]/1000);
27 ($f=MD
->new($name)) ||
28 die "$_ is an unknown message digest algorithm\n";