diff options
author | tedu <> | 2014-04-21 02:44:28 +0000 |
---|---|---|
committer | tedu <> | 2014-04-21 02:44:28 +0000 |
commit | f46c697a11680ae5d3ab06393f0bfe2ed1841168 (patch) | |
tree | 98bf652749a50fd1fd8b3611d645d93d5162e61d /src/lib/libcrypto/des/t/test | |
parent | 95e3894333d0ad24d4efff2ff5857bccabc5d691 (diff) | |
download | openbsd-f46c697a11680ae5d3ab06393f0bfe2ed1841168.tar.gz openbsd-f46c697a11680ae5d3ab06393f0bfe2ed1841168.tar.bz2 openbsd-f46c697a11680ae5d3ab06393f0bfe2ed1841168.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 | |||