| OLD | NEW |
| (Empty) |
| 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 | |
| OLD | NEW |