aboutsummaryrefslogtreecommitdiff
path: root/openssl/vendor/0.9.8d/crypto/des/t/test
diff options
context:
space:
mode:
authorRob Austein <sra@hactrn.net>2006-10-09 16:22:20 +0000
committerRob Austein <sra@hactrn.net>2006-10-09 16:22:20 +0000
commit084adb601f2d375395c6cdcedf8af91f1065fe4e (patch)
treefcc9ae9597924b12b6ff7b5b7dbfb2b65f20fb29 /openssl/vendor/0.9.8d/crypto/des/t/test
parenteb9264fc2ef786e8c4e3d430834b9b9e9e0b9c0a (diff)
Feh, wrong vendor branch merge proceedure, clean up before trying again.
svn path=/openssl/vendor/0.9.8d; revision=374
Diffstat (limited to 'openssl/vendor/0.9.8d/crypto/des/t/test')
-rw-r--r--openssl/vendor/0.9.8d/crypto/des/t/test27
1 files changed, 0 insertions, 27 deletions
diff --git a/openssl/vendor/0.9.8d/crypto/des/t/test b/openssl/vendor/0.9.8d/crypto/des/t/test
deleted file mode 100644
index 97acd055..00000000
--- a/openssl/vendor/0.9.8d/crypto/des/t/test
+++ /dev/null
@@ -1,27 +0,0 @@
-#!./perl
-
-BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); }
-
-use DES;
-
-$key='00000000';
-$ks=DES::set_key($key);
-@a=split(//,$ks);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-
-
-$key=DES::random_key();
-print "($_)\n";
-@a=split(//,$key);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-$str="this is and again into the breach";
-($k1,$k2)=DES::string_to_2keys($str);
-@a=split(//,$k1);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-@a=split(//,$k2);
-foreach (@a) { printf "%02x-",ord($_); }
-print "\n";
-