Alexandre Savard | 1b09e31 | 2012-08-07 20:33:29 -0400 | [diff] [blame] | 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 | |