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 28
