diff options
author | cvs2svn <cvs2svn@FreeBSD.org> | 1999-09-04 12:45:45 +0000 |
---|---|---|
committer | cvs2svn <cvs2svn@FreeBSD.org> | 1999-09-04 12:45:45 +0000 |
commit | c01805fa5e152ae544665be5d2039ffcf1c4e51a (patch) | |
tree | 0682aa9bd2f55f2253a4025ee8a2b40907fc6bb4 /secure/lib/libdes/t/test | |
parent | caf39ecc96d7bd40d8dfc55f6560cb64fad1b26d (diff) |
Notes
Diffstat (limited to 'secure/lib/libdes/t/test')
-rw-r--r-- | secure/lib/libdes/t/test | 27 |
1 files changed, 0 insertions, 27 deletions
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"; - |