1#!./perl 2 3BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); } 4 5use DES; 6 7$key='00000000'; 8$ks=DES::set_key($key); 9@a=split(//,$ks); 10foreach (@a) { printf "%02x-",ord($_); } 11print "\n"; 12 13 14$key=DES::random_key(); 15print "($_)\n"; 16@a=split(//,$key); 17foreach (@a) { printf "%02x-",ord($_); } 18print "\n"; 19$str="this is and again into the breach"; 20($k1,$k2)=DES::string_to_2keys($str); 21@a=split(//,$k1); 22foreach (@a) { printf "%02x-",ord($_); } 23print "\n"; 24@a=split(//,$k2); 25foreach (@a) { printf "%02x-",ord($_); } 26print "\n"; 27 28