diff options
| author | cvs2svn <cvs2svn@FreeBSD.org> | 1998-07-24 04:57:32 +0000 |
|---|---|---|
| committer | cvs2svn <cvs2svn@FreeBSD.org> | 1998-07-24 04:57:32 +0000 |
| commit | a8a3fe17f40c9b40fdba5b5a54eccb48a980e821 (patch) | |
| tree | cbb644b4992b30708378efe709bfa84fe6caddf4 /secure/lib/libdes/t | |
| parent | 95b66175a329d81a892710c81f126f1071ac17a0 (diff) | |
Diffstat (limited to 'secure/lib/libdes/t')
| -rw-r--r-- | secure/lib/libdes/t/perl | 0 | ||||
| -rw-r--r-- | secure/lib/libdes/t/test | 27 |
2 files changed, 0 insertions, 27 deletions
diff --git a/secure/lib/libdes/t/perl b/secure/lib/libdes/t/perl deleted file mode 100644 index e69de29bb2d1..000000000000 --- a/secure/lib/libdes/t/perl +++ /dev/null diff --git a/secure/lib/libdes/t/test b/secure/lib/libdes/t/test deleted file mode 100644 index 97acd0552e43..000000000000 --- a/secure/lib/libdes/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"; - |
