3 @PC2_C=(14,17,11,24, 1, 5,
9 @PC2_D=(41,52,31,37,47,55,
21 # print "\n" if ((($i) % 8) == 0);
31 # print "\n" if ((($i) % 8) == 0);
40 # print "\n" if ((($i) % 8) == 0);
50 # print "\n" if ((($i) % 8) == 0);
54 print "static ulong skb[8][64]={\n";
55 &doit("C",*C, 0, 1, 2, 3, 4, 5);
56 &doit("C",*C, 6, 7, 9,10,11,12);
57 &doit("C",*C,13,14,15,16,18,19);
58 &doit("C",*C,20,22,23,25,26,27);
60 &doit("D",*D, 0, 1, 2, 3, 4, 5);
61 &doit("D",*D, 7, 8,10,11,12,13);
62 &doit("D",*D,15,16,17,18,19,20);
63 &doit("D",*D,21,22,23,24,26,27);
71 printf("/* for $l bits (numbered as per FIPS 46) %d %d %d %d %d %d */\n",
72 $b[0]+1, $b[1]+1, $b[2]+1, $b[3]+1, $b[4]+1, $b[5]+1);
73 for ($i=0; $i<64; $i++)
78 for ($k=0; $k<6; $k++)
84 $ll=int($l/6)*8+($l%6);
89 $pp=($pp&0xff0000ff)| (($pp&0x00ff0000)>>8)|
90 (($pp&0x0000ff00)<<8);
91 printf("0x%08X,",$pp);
92 print "\n" if (($i+1) % 4 == 0);