crypto/des/PC1

   1 #!/usr/local/bin/perl
   2
   3 @PC1=(  57,49,41,33,25,17, 9,
   4          1,58,50,42,34,26,18,
   5         10, 2,59,51,43,35,27,
   6         19,11, 3,60,52,44,36,
   7         "-","-","-","-",
   8         63,55,47,39,31,23,15,
   9          7,62,54,46,38,30,22,
  10         14, 6,61,53,45,37,29,
  11         21,13, 5,28,20,12, 4,
  12         "-","-","-","-",
  13         );
  14
  15 foreach (@PC1)
  16         {
  17         if ($_ ne "-")
  18                 {
  19                 $_--;
  20                 $_=int($_/8)*8+7-($_%8);
  21                 printf "%2d  ",$_;
  22                 }
  23         else
  24                 { print "--  "; }
  25         print "\n" if (((++$i) % 8) == 0);
  26         print "\n" if ((($i) % 32) == 0);
  27         }
  28