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","md4","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