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 |