3 BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)); }
8 $ks=DES::set_key($key);
10 foreach (@a) { printf "%02x-",ord($_); }
14 $key=DES::random_key();
17 foreach (@a) { printf "%02x-",ord($_); }
19 $str="this is and again into the breach";
20 ($k1,$k2)=DES::string_to_2keys($str);
22 foreach (@a) { printf "%02x-",ord($_); }
25 foreach (@a) { printf "%02x-",ord($_); }