Skip to main content
Revision dfeab0689f69c0b4bd3480ffd37a9cacc2f17d9c authored by Ralf S. Engelschall on 21 December 1998, 11:00:56 UTC, committed by Ralf S. Engelschall on 21 December 1998, 11:00:56 UTC
Import of old SSLeay release: SSLeay 0.9.1b (unreleased)
1 parent 58964a4
Raw File
z.pl
#!/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();
	}
back to top