crypto/openssl/util/sp-diff.pl

   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;
  14 foreach $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
  32 foreach $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
  45 sub 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