crypto/heimdal-0.6.3/lib/des/PC2

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