1 files changed, 32 insertions, 0 deletions
diff --git a/src/lib/libssl/src/perl/z.pl b/src/lib/libssl/src/perl/z.pl
new file mode 100644
index 0000000000..7e2d5285cc
--- /dev/null
+++ b/src/lib/libssl/src/perl/z.pl
@@ -0,0 +1,32 @@
+#!/usr/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();
+        }

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