pc1

Netscape公司提供的安全套接字层

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