diff options
| author | cvs2svn <admin@example.com> | 2012-07-13 17:49:56 +0000 |
|---|---|---|
| committer | cvs2svn <admin@example.com> | 2012-07-13 17:49:56 +0000 |
| commit | ee04221ea8063435416c7e6369e6eae76843aa71 (patch) | |
| tree | 821921a1dd0a5a3cece91121e121cc63c4b68128 /src/lib/libcrypto/des/t/test | |
| parent | adf6731f6e1d04718aee00cb93435143046aee9a (diff) | |
| download | openbsd-eric_g2k12.tar.gz openbsd-eric_g2k12.tar.bz2 openbsd-eric_g2k12.zip | |
This commit was manufactured by cvs2git to create tag 'eric_g2k12'.eric_g2k12
Diffstat (limited to '')
| -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 | |||
