Import of old SSLeay release: SSLeay 0.8.1b
[openssl.git] / 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