crypto/heimdal-0.6.3/lib/des/t/test

   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