vnfmarket/src/main/webapp/vnfmarket/node_modules/socket.io-client/lib/vendor/web-socket-js/flash-src/com/hurlant/crypto/symmetric/aeskey.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 sub say {
   6     my $w = shift;
   7     print $w;
   8     print "\n";
   9 }
  10
  11 sub 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
  24 for (my $i=0;$i<256;$i++) {
  25     &dump($i);
  26 }
  27
  28
  29