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

http://github.com/onedayitwillmake/RealtimeMultiplayerNodeJs · Perl · 29 lines · 22 code · 6 blank · 1 comment · 1 complexity · 9e515418e1ca0850ffe96a9dc850fb6f MD5 · raw file 

    

  1. #!/usr/bin/perl 
    2. 

  2. use strict;
    3. 

  3. use warnings;
    4. 

  4. 

  5. sub say {
    6. 

  6.     my $w = shift;
    7. 

  7.     print $w;
    8. 

  8.     print "\n";
    9. 

  9. }
    10. 

  10. 

  11. sub dump {
    12. 

  12.    my $i = shift;
    13. 

  13.    &say(sprintf("Sbox[%d] = _Sbox[%d]", $i, $i));
    14. 

  14.    &say(sprintf("InvSbox[%d] = _InvSbox[%d]", $i, $i));
    15. 

  15.    &say(sprintf("Xtime2Sbox[%d] = _Xtime2Sbox[%d]", $i, $i));
    16. 

  16.    &say(sprintf("Xtime3Sbox[%d] = _Xtime3Sbox[%d]", $i, $i));
    17. 

  17.    &say(sprintf("Xtime2[%d] = _Xtime2[%d]", $i, $i));
    18. 

  18.    &say(sprintf("Xtime9[%d] = _Xtime9[%d]", $i, $i));
    19. 

  19.    &say(sprintf("XtimeB[%d] = _XtimeB[%d]", $i, $i));
    20. 

  20.    &say(sprintf("XtimeD[%d] = _XtimeD[%d]", $i, $i));
    21. 

  21.    &say(sprintf("XtimeE[%d] = _XtimeE[%d]", $i, $i));
    22. 

  22. }
    23. 

  23. 

  24. for (my $i=0;$i<256;$i++) {
    25. 

  25.     &dump($i);
    26. 

  26. }
    27.