diff options
| author | tedu <> | 2014-04-21 02:44:28 +0000 |
|---|---|---|
| committer | tedu <> | 2014-04-21 02:44:28 +0000 |
| commit | 1bf5f3fec52eb9dd0a3b7e8f6119f6e3ce1ed2ec (patch) | |
| tree | 98bf652749a50fd1fd8b3611d645d93d5162e61d /src/lib/libcrypto/des/t/test | |
| parent | c8770e4709b2995721b867e907bbcb0dd2bb7e9f (diff) | |
| download | openbsd-1bf5f3fec52eb9dd0a3b7e8f6119f6e3ce1ed2ec.tar.gz openbsd-1bf5f3fec52eb9dd0a3b7e8f6119f6e3ce1ed2ec.tar.bz2 openbsd-1bf5f3fec52eb9dd0a3b7e8f6119f6e3ce1ed2ec.zip | |
clean up files we don't need
Diffstat (limited to 'src/lib/libcrypto/des/t/test')
| -rw-r--r-- | src/lib/libcrypto/des/t/test | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/lib/libcrypto/des/t/test b/src/lib/libcrypto/des/t/test deleted file mode 100644 index 97acd0552e..0000000000 --- a/src/lib/libcrypto/des/t/test +++ /dev/null | |||
| @@ -1,27 +0,0 @@ | |||
| 1 | #!./perl | ||
| 2 | |||
| 3 | BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); } | ||
| 4 | |||
| 5 | use DES; | ||
| 6 | |||
| 7 | $key='00000000'; | ||
| 8 | $ks=DES::set_key($key); | ||
| 9 | @a=split(//,$ks); | ||
| 10 | foreach (@a) { printf "%02x-",ord($_); } | ||
| 11 | print "\n"; | ||
| 12 | |||
| 13 | |||
| 14 | $key=DES::random_key(); | ||
| 15 | print "($_)\n"; | ||
| 16 | @a=split(//,$key); | ||
| 17 | foreach (@a) { printf "%02x-",ord($_); } | ||
| 18 | print "\n"; | ||
| 19 | $str="this is and again into the breach"; | ||
| 20 | ($k1,$k2)=DES::string_to_2keys($str); | ||
| 21 | @a=split(//,$k1); | ||
| 22 | foreach (@a) { printf "%02x-",ord($_); } | ||
| 23 | print "\n"; | ||
| 24 | @a=split(//,$k2); | ||
| 25 | foreach (@a) { printf "%02x-",ord($_); } | ||
| 26 | print "\n"; | ||
| 27 | |||
