Remove unused ssl utils

This code is the reason perl has a name as a write only language.

ok deraadt miod

1 files changed, 0 insertions, 80 deletions

diff --git a/src/lib/libcrypto/util/sp-diff.pl b/src/lib/libcrypto/util/sp-diff.pl
deleted file mode 100644
index 9d6c60387f..0000000000
--- a/src/lib/libcrypto/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);
-        }
-