diff options
Diffstat (limited to 'crypto/openssl/util/sp-diff.pl')
-rwxr-xr-x | crypto/openssl/util/sp-diff.pl | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/crypto/openssl/util/sp-diff.pl b/crypto/openssl/util/sp-diff.pl deleted file mode 100755 index 9d6c603..0000000 --- a/crypto/openssl/util/sp-diff.pl +++ /dev/null @@ -1,80 +0,0 @@ -#!/usr/local/bin/perl -# -# This file takes as input, the files that have been output from -# ssleay speed. -# It prints a table of the relative differences with %100 being 'no difference' -# - -($#ARGV == 1) || die "$0 speedout1 speedout2\n"; - -%one=&loadfile($ARGV[0]); -%two=&loadfile($ARGV[1]); - -$line=0; -foreach $a ("md2","md4","md5","sha","sha1","rc4","des cfb","des cbc","des ede3", - "idea cfb","idea cbc","rc2 cfb","rc2 cbc","blowfish cbc","cast cbc") - { - if (defined($one{$a,8}) && defined($two{$a,8})) - { - print "type 8 byte% 64 byte% 256 byte% 1024 byte% 8192 byte%\n" - unless $line; - $line++; - printf "%-12s ",$a; - foreach $b (8,64,256,1024,8192) - { - $r=$two{$a,$b}/$one{$a,$b}*100; - printf "%12.2f",$r; - } - print "\n"; - } - } - -foreach $a ( - "rsa 512","rsa 1024","rsa 2048","rsa 4096", - "dsa 512","dsa 1024","dsa 2048", - ) - { - if (defined($one{$a,1}) && defined($two{$a,1})) - { - $r1=($one{$a,1}/$two{$a,1})*100; - $r2=($one{$a,2}/$two{$a,2})*100; - printf "$a bits %% %6.2f %% %6.2f\n",$r1,$r2; - } - } - -sub loadfile - { - local($file)=@_; - local($_,%ret); - - open(IN,"<$file") || die "unable to open '$file' for input\n"; - $header=1; - while (<IN>) - { - $header=0 if /^[dr]sa/; - if (/^type/) { $header=0; next; } - next if $header; - chop; - @a=split; - if ($a[0] =~ /^[dr]sa$/) - { - ($n,$t1,$t2)=($_ =~ /^([dr]sa\s+\d+)\s+bits\s+([.\d]+)s\s+([.\d]+)/); - $ret{$n,1}=$t1; - $ret{$n,2}=$t2; - } - else - { - $n=join(' ',grep(/[^k]$/,@a)); - @k=grep(s/k$//,@a); - - $ret{$n, 8}=$k[0]; - $ret{$n, 64}=$k[1]; - $ret{$n, 256}=$k[2]; - $ret{$n,1024}=$k[3]; - $ret{$n,8192}=$k[4]; - } - } - close(IN); - return(%ret); - } - |