mac/libdes/src/PC1

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