mac/libdes/src/PC2

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