/js/lib/Socket.IO-node/support/socket.io-client/lib/vendor/web-socket-js/flash-src/com/hurlant/crypto/symmetric/aeskey.pl

 1#!/usr/bin/perl 
 2use strict;
 3use warnings;
 4
 5sub say {
 6    my $w = shift;
 7    print $w;
 8    print "\n";
 9}
10
11sub dump {
12   my $i = shift;
13   &say(sprintf("Sbox[%d] = _Sbox[%d]", $i, $i));
14   &say(sprintf("InvSbox[%d] = _InvSbox[%d]", $i, $i));
15   &say(sprintf("Xtime2Sbox[%d] = _Xtime2Sbox[%d]", $i, $i));
16   &say(sprintf("Xtime3Sbox[%d] = _Xtime3Sbox[%d]", $i, $i));
17   &say(sprintf("Xtime2[%d] = _Xtime2[%d]", $i, $i));
18   &say(sprintf("Xtime9[%d] = _Xtime9[%d]", $i, $i));
19   &say(sprintf("XtimeB[%d] = _XtimeB[%d]", $i, $i));
20   &say(sprintf("XtimeD[%d] = _XtimeD[%d]", $i, $i));
21   &say(sprintf("XtimeE[%d] = _XtimeE[%d]", $i, $i));
22}
23
24for (my $i=0;$i<256;$i++) {
25    &dump($i);
26}
27
28
29