| Index: openssl/crypto/des/t/test
|
| diff --git a/openssl/crypto/des/t/test b/openssl/crypto/des/t/test
|
| deleted file mode 100644
|
| index 97acd0552e43031d50d4ed3c25a3dd75d9c72add..0000000000000000000000000000000000000000
|
| --- a/openssl/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";
|
| -
|
|
|