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