mirror of
https://github.com/openssl/openssl.git
synced 2024-12-18 22:43:41 +08:00
9ba96fbb25
Once upon a time, there was chop, which somply chopped off the last character of $_ or a given variable, and it was used to take off the EOL character (\n) of strings. ... but then, you had to check for the presence of such character. So came chomp, the better chop which checks for \n before chopping it off. And this worked well, as long as Perl made internally sure that all EOLs were converted to \n. These days, though, there seems to be a mixture of perls, so lines from files in the "wrong" environment might have \r\n as EOL, or just \r (Mac OS, unless I'm misinformed). So it's time we went for the more generic variant and use s|\R$||, the better chomp which recognises all kinds of known EOLs and chops them off. A few chops were left alone, as they are use as surgical tools to remove one last slash or one last comma. NOTE: \R came with perl 5.10.0. It means that from now on, our scripts will fail with any older version. Reviewed-by: Rich Salz <rsalz@openssl.org>
81 lines
1.6 KiB
Raku
Executable File
81 lines
1.6 KiB
Raku
Executable File
#!/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;
|
|
s|\R$||;
|
|
@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);
|
|
}
|
|
|