summaryrefslogtreecommitdiffstats
path: root/perl/z.pl
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();
	}