From 084adb601f2d375395c6cdcedf8af91f1065fe4e Mon Sep 17 00:00:00 2001 From: Rob Austein Date: Mon, 9 Oct 2006 16:22:20 +0000 Subject: Feh, wrong vendor branch merge proceedure, clean up before trying again. svn path=/openssl/vendor/0.9.8d; revision=374 --- openssl/vendor/0.9.8d/crypto/des/t/test | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 openssl/vendor/0.9.8d/crypto/des/t/test (limited to 'openssl/vendor/0.9.8d/crypto/des/t') 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"; - -- cgit v1.2.3