blob: 8bba1bdbd2abb970b8fb6d308bed07349b931a58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/local/bin/perl
use ExtUtils::testlib;
use SSLeay;
use Benchmark;
$buf=('x' x (1024*1024));
$buf=('x' x (1024*1024));
@md=();
foreach $name ("md2", "mdc2", "sha", "ripemd160", "sha1", "md5")
{
if (($name eq "md2") || ($name eq "mdc2"))
{ $num=5; }
else { $num=100; }
$t=timeit($num,'&hash($name)');
printf "%6d000 bytes/sec:$name\n",int(($num*1024*1024)/$t->[1]/1000);
}
sub hash
{
my($name)=@_;
my($f,$digest);
($f=MD->new($name)) ||
die "$_ is an unknown message digest algorithm\n";
$f->update($buf);
$digest=$f->final();
}
|