www.pudn.com > sslref30.zip > PC1

#!/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); 
    }