pc2

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

#!/usr/local/bin/perl

@PC2_C=(14,17,11,24, 1, 5,
     3,28,15, 6,21,10,
    23,19,12, 4,26, 8,
    16, 7,27,20,13, 2,
    );

@PC2_D=(41,52,31,37,47,55,
    30,40,51,45,33,48,
    44,49,39,56,34,53,
    46,42,50,36,29,32,
    );

foreach (@PC2_C) {
    if ($_ ne "-")
        {
        $_--;
        printf "%2d  ",$_; }
    else { print "--  "; }
    $C{$_}=1;
    print "\n" if (((++$i) % 8) == 0);
    }
$i=0;
print "\n";
foreach (@PC2_D) {
    if ($_ ne "-")
        {
        $_-=29;
        printf "%2d  ",$_; }
    else { print "--  "; }
    $D{$_}=1;
    print "\n" if (((++$i) % 8) == 0); }

print "\n";
foreach $i (0 .. 27)
    {
    $_=$C{$i};
    if ($_ ne "-") {printf "%2d ",$_;}
    else { print "--  "; }
    print "\n" if (((++$i) % 8) == 0);
    }
print "\n";

print "\n";
foreach $i (0 .. 27)
    {
    $_=$D{$i};
    if ($_ ne "-") {printf "%2d  ",$_;}
    else { print "--  "; }
    print "\n" if (((++$i) % 8) == 0);
    }
print "\n";
sub numsort
    {
    $a-$b;
    }