sp-diff.pl revision 55714 
1#!/usr/local/bin/perl
2#
3# This file takes as input, the files that have been output from
4# ssleay speed.
5# It prints a table of the relative differences with %100 being 'no difference'
6#
7
8($#ARGV == 1) || die "$0 speedout1 speedout2\n";
9
10%one=&loadfile($ARGV[0]);
11%two=&loadfile($ARGV[1]);
12
13$line=0;
14foreach $a ("md2","md5","sha","sha1","rc4","des cfb","des cbc","des ede3",
15	"idea cfb","idea cbc","rc2 cfb","rc2 cbc","blowfish cbc","cast cbc")
16	{
17	if (defined($one{$a,8}) && defined($two{$a,8}))
18		{
19		print "type              8 byte%    64 byte%   256 byte%  1024 byte%  8192 byte%\n"
20			unless $line;
21		$line++;
22		printf "%-12s ",$a;
23		foreach $b (8,64,256,1024,8192)
24			{
25			$r=$two{$a,$b}/$one{$a,$b}*100;
26			printf "%12.2f",$r;
27			}
28		print "\n";
29		}
30	}
31
32foreach $a	(
33		"rsa  512","rsa 1024","rsa 2048","rsa 4096",
34		"dsa  512","dsa 1024","dsa 2048",
35		)
36	{
37	if (defined($one{$a,1}) && defined($two{$a,1}))
38		{
39		$r1=($one{$a,1}/$two{$a,1})*100;
40		$r2=($one{$a,2}/$two{$a,2})*100;
41		printf "$a bits %%    %6.2f %%    %6.2f\n",$r1,$r2;
42		}
43	}
44
45sub loadfile
46	{
47	local($file)=@_;
48	local($_,%ret);
49
50	open(IN,"<$file") || die "unable to open '$file' for input\n";
51	$header=1;
52	while (<IN>)
53		{
54		$header=0 if /^[dr]sa/;
55		if (/^type/) { $header=0; next; }
56		next if $header;
57		chop;
58		@a=split;
59		if ($a[0] =~ /^[dr]sa$/)
60			{
61			($n,$t1,$t2)=($_ =~ /^([dr]sa\s+\d+)\s+bits\s+([.\d]+)s\s+([.\d]+)/);
62			$ret{$n,1}=$t1;
63			$ret{$n,2}=$t2;
64			}
65		else
66			{
67			$n=join(' ',grep(/[^k]$/,@a));
68			@k=grep(s/k$//,@a);
69
70			$ret{$n,   8}=$k[0];
71			$ret{$n,  64}=$k[1];
72			$ret{$n, 256}=$k[2];
73			$ret{$n,1024}=$k[3];
74			$ret{$n,8192}=$k[4];
75			}
76		}
77	close(IN);
78	return(%ret);
79	}
80
81