{vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  {vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv}
  (* crypto/aes/aes_core.c -*- mode:C; c-file-style: "eay" -*- *)
  (**
   * rijndael-alg-fst.c
   *
   * @version 3.0 (December 2000)
   *
   * Optimised ANSI C code for the Rijndael cipher (now AES)
   *
   * @author Vincent Rijmen <[email protected]>
   * @author Antoon Bosselaers <[email protected]>
   * @author Paulo Barreto <[email protected]>
   *
   * This code is hereby placed in the public domain.
   *
   * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
   * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
   * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
   * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
   * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
   * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
   * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
   * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
   * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
   * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
   * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
   *)

  (*
   * This is experimental x86[_64] derivative. It assumes little-endian
   * byte order and expects CPU to sustain unaligned memory references.
   * It is used as playground for cache-time attack mitigations and
   * serves as reference C implementation for x86[_64] assembler.
   *
   *          <[email protected]>
   *)


  {$ifndef AES_DEBUG}
  {$ ifndef NDEBUG}
  {$  define NDEBUG}
  {$ endif}
  {$endif}
  //{$include <assert.h>}

  //{$include <stdlib.h>}
  //{$include <openssl/aes.h>}
  //{$include "aes_locl.h"}

  (*
   * These two parameters control which table, 256-byte or 2KB, is
   * referenced in outer and respectively inner rounds.
   *)
  {$define AES_COMPACT_IN_OUTER_ROUNDS}
  {$ifdef  AES_COMPACT_IN_OUTER_ROUNDS}
  (* AES_COMPACT_IN_OUTER_ROUNDS costs ~30% in performance, while
   * adding AES_COMPACT_IN_INNER_ROUNDS reduces benchmark *further*
   * by factor of ~2. *)
  {$ undef  AES_COMPACT_IN_INNER_ROUNDS}
  {$endif}

  {$if 1} {
  static void prefetch256(const void *table)
  begin
    volatile unsigned long *t:=(void *)table,ret;
    unsigned long sum;
    int i;

    (* 32 is common least cache-line size *)
    for (sum:=0,i:=0;i<256/sizeof(t[0]);i+:=32/sizeof(t[0]))  sum xor:= t[i];

    ret := sum;
  end;       }
  {$else}
  {$ define prefetch256(t)}
  {$endif}

  {$undef GETU32}
  //{$define GETU32(p) (*((u32*)(p)))}
  function GETU32(const p:pchar):dword;
  begin
    result:=(pdword(p))^;
  end;
  {$if (defined(_WIN32) or defined(_WIN64)) and not defined(__MINGW32__)}
  //typedef unsigned __int64 u64;
  {$define U64(C)  C##UI64}
  {$elif defined(__arch64__)}
  //typedef unsigned long u64;
  {$define U64(C)  C##UL}
  {$else}
  //typedef unsigned long long u64;
  {$define U64(C)  C##ULL}
  {$endif}

  {$undef ROTATE}
  {$if defined(_MSC_VER) or defined(__ICC)}
  {$ define ROTATE(a,n)  _lrotl(a,n)}
  {$elif defined(__GNUC__) and __GNUC__>:=2}
  {$ if defined(__i386) or defined(__i386__) or defined(__x86_64) or defined(__x86_64__)}
  {$   define ROTATE(a,n)  (begin register unsigned int ret;  \}
          asm (      \
          "roll %1,%0"    \
          : ":=r"(ret)    \
          : "I"(n), "0"(a)  \
          : "cc");    \
           ret;        \
        end;)
  {$ endif}
  {$endif}
  (*
  Te [x] := S [x].[02, 01, 01, 03, 02, 01, 01, 03];
  Te0[x] := S [x].[02, 01, 01, 03];
  Te1[x] := S [x].[03, 02, 01, 01];
  Te2[x] := S [x].[01, 03, 02, 01];
  Te3[x] := S [x].[01, 01, 03, 02];
  *)
  {$define Te0 (u32)((u64*)((u8*)Te+0))}
  {$define Te1 (u32)((u64*)((u8*)Te+3))}
  {$define Te2 (u32)((u64*)((u8*)Te+2))}
  {$define Te3 (u32)((u64*)((u8*)Te+1))}
  (*
  Td [x] := Si[x].[0e, 09, 0d, 0b, 0e, 09, 0d, 0b];
  Td0[x] := Si[x].[0e, 09, 0d, 0b];
  Td1[x] := Si[x].[0b, 0e, 09, 0d];
  Td2[x] := Si[x].[0d, 0b, 0e, 09];
  Td3[x] := Si[x].[09, 0d, 0b, 0e];
  Td4[x] := Si[x].[01];
  *)
  {$define Td0 (u32)((u64*)((u8*)Td+0))}
  {$define Td1 (u32)((u64*)((u8*)Td+3))}
  {$define Td2 (u32)((u64*)((u8*)Td+2))}
  {$define Td3 (u32)((u64*)((u8*)Td+1))}

  const Te:array[0..255]of Int64 = (
      $a56363c6a56363c6, $847c7cf8847c7cf8,
      $997777ee997777ee, $8d7b7bf68d7b7bf6,
      $0df2f2ff0df2f2ff, $bd6b6bd6bd6b6bd6,
      $b16f6fdeb16f6fde, $54c5c59154c5c591,
      $5030306050303060, $0301010203010102,
      $a96767cea96767ce, $7d2b2b567d2b2b56,
      $19fefee719fefee7, $62d7d7b562d7d7b5,
      $e6abab4de6abab4d, $9a7676ec9a7676ec,
      $45caca8f45caca8f, $9d82821f9d82821f,
      $40c9c98940c9c989, $877d7dfa877d7dfa,
      $15fafaef15fafaef, $eb5959b2eb5959b2,
      $c947478ec947478e, $0bf0f0fb0bf0f0fb,
      $ecadad41ecadad41, $67d4d4b367d4d4b3,
      $fda2a25ffda2a25f, $eaafaf45eaafaf45,
      $bf9c9c23bf9c9c23, $f7a4a453f7a4a453,
      $967272e4967272e4, $5bc0c09b5bc0c09b,
      $c2b7b775c2b7b775, $1cfdfde11cfdfde1,
      $ae93933dae93933d, $6a26264c6a26264c,
      $5a36366c5a36366c, $413f3f7e413f3f7e,
      $02f7f7f502f7f7f5, $4fcccc834fcccc83,
      $5c3434685c343468, $f4a5a551f4a5a551,
      $34e5e5d134e5e5d1, $08f1f1f908f1f1f9,
      $937171e2937171e2, $73d8d8ab73d8d8ab,
      $5331316253313162, $3f15152a3f15152a,
      $0c0404080c040408, $52c7c79552c7c795,
      $6523234665232346, $5ec3c39d5ec3c39d,
      $2818183028181830, $a1969637a1969637,
      $0f05050a0f05050a, $b59a9a2fb59a9a2f,
      $0907070e0907070e, $3612122436121224,
      $9b80801b9b80801b, $3de2e2df3de2e2df,
      $26ebebcd26ebebcd, $6927274e6927274e,
      $cdb2b27fcdb2b27f, $9f7575ea9f7575ea,
      $1b0909121b090912, $9e83831d9e83831d,
      $742c2c58742c2c58, $2e1a1a342e1a1a34,
      $2d1b1b362d1b1b36, $b26e6edcb26e6edc,
      $ee5a5ab4ee5a5ab4, $fba0a05bfba0a05b,
      $f65252a4f65252a4, $4d3b3b764d3b3b76,
      $61d6d6b761d6d6b7, $ceb3b37dceb3b37d,
      $7b2929527b292952, $3ee3e3dd3ee3e3dd,
      $712f2f5e712f2f5e, $9784841397848413,
      $f55353a6f55353a6, $68d1d1b968d1d1b9,
      $0000000000000000, $2cededc12cededc1,
      $6020204060202040, $1ffcfce31ffcfce3,
      $c8b1b179c8b1b179, $ed5b5bb6ed5b5bb6,
      $be6a6ad4be6a6ad4, $46cbcb8d46cbcb8d,
      $d9bebe67d9bebe67, $4b3939724b393972,
      $de4a4a94de4a4a94, $d44c4c98d44c4c98,
      $e85858b0e85858b0, $4acfcf854acfcf85,
      $6bd0d0bb6bd0d0bb, $2aefefc52aefefc5,
      $e5aaaa4fe5aaaa4f, $16fbfbed16fbfbed,
      $c5434386c5434386, $d74d4d9ad74d4d9a,
      $5533336655333366, $9485851194858511,
      $cf45458acf45458a, $10f9f9e910f9f9e9,
      $0602020406020204, $817f7ffe817f7ffe,
      $f05050a0f05050a0, $443c3c78443c3c78,
      $ba9f9f25ba9f9f25, $e3a8a84be3a8a84b,
      $f35151a2f35151a2, $fea3a35dfea3a35d,
      $c0404080c0404080, $8a8f8f058a8f8f05,
      $ad92923fad92923f, $bc9d9d21bc9d9d21,
      $4838387048383870, $04f5f5f104f5f5f1,
      $dfbcbc63dfbcbc63, $c1b6b677c1b6b677,
      $75dadaaf75dadaaf, $6321214263212142,
      $3010102030101020, $1affffe51affffe5,
      $0ef3f3fd0ef3f3fd, $6dd2d2bf6dd2d2bf,
      $4ccdcd814ccdcd81, $140c0c18140c0c18,
      $3513132635131326, $2fececc32fececc3,
      $e15f5fbee15f5fbe, $a2979735a2979735,
      $cc444488cc444488, $3917172e3917172e,
      $57c4c49357c4c493, $f2a7a755f2a7a755,
      $827e7efc827e7efc, $473d3d7a473d3d7a,
      $ac6464c8ac6464c8, $e75d5dbae75d5dba,
      $2b1919322b191932, $957373e6957373e6,
      $a06060c0a06060c0, $9881811998818119,
      $d14f4f9ed14f4f9e, $7fdcdca37fdcdca3,
      $6622224466222244, $7e2a2a547e2a2a54,
      $ab90903bab90903b, $8388880b8388880b,
      $ca46468cca46468c, $29eeeec729eeeec7,
      $d3b8b86bd3b8b86b, $3c1414283c141428,
      $79dedea779dedea7, $e25e5ebce25e5ebc,
      $1d0b0b161d0b0b16, $76dbdbad76dbdbad,
      $3be0e0db3be0e0db, $5632326456323264,
      $4e3a3a744e3a3a74, $1e0a0a141e0a0a14,
      $db494992db494992, $0a06060c0a06060c,
      $6c2424486c242448, $e45c5cb8e45c5cb8,
      $5dc2c29f5dc2c29f, $6ed3d3bd6ed3d3bd,
      $efacac43efacac43, $a66262c4a66262c4,
      $a8919139a8919139, $a4959531a4959531,
      $37e4e4d337e4e4d3, $8b7979f28b7979f2,
      $32e7e7d532e7e7d5, $43c8c88b43c8c88b,
      $5937376e5937376e, $b76d6ddab76d6dda,
      $8c8d8d018c8d8d01, $64d5d5b164d5d5b1,
      $d24e4e9cd24e4e9c, $e0a9a949e0a9a949,
      $b46c6cd8b46c6cd8, $fa5656acfa5656ac,
      $07f4f4f307f4f4f3, $25eaeacf25eaeacf,
      $af6565caaf6565ca, $8e7a7af48e7a7af4,
      $e9aeae47e9aeae47, $1808081018080810,
      $d5baba6fd5baba6f, $887878f0887878f0,
      $6f25254a6f25254a, $722e2e5c722e2e5c,
      $241c1c38241c1c38, $f1a6a657f1a6a657,
      $c7b4b473c7b4b473, $51c6c69751c6c697,
      $23e8e8cb23e8e8cb, $7cdddda17cdddda1,
      $9c7474e89c7474e8, $211f1f3e211f1f3e,
      $dd4b4b96dd4b4b96, $dcbdbd61dcbdbd61,
      $868b8b0d868b8b0d, $858a8a0f858a8a0f,
      $907070e0907070e0, $423e3e7c423e3e7c,
      $c4b5b571c4b5b571, $aa6666ccaa6666cc,
      $d8484890d8484890, $0503030605030306,
      $01f6f6f701f6f6f7, $120e0e1c120e0e1c,
      $a36161c2a36161c2, $5f35356a5f35356a,
      $f95757aef95757ae, $d0b9b969d0b9b969,
      $9186861791868617, $58c1c19958c1c199,
      $271d1d3a271d1d3a, $b99e9e27b99e9e27,
      $38e1e1d938e1e1d9, $13f8f8eb13f8f8eb,
      $b398982bb398982b, $3311112233111122,
      $bb6969d2bb6969d2, $70d9d9a970d9d9a9,
      $898e8e07898e8e07, $a7949433a7949433,
      $b69b9b2db69b9b2d, $221e1e3c221e1e3c,
      $9287871592878715, $20e9e9c920e9e9c9,
      $49cece8749cece87, $ff5555aaff5555aa,
      $7828285078282850, $7adfdfa57adfdfa5,
      $8f8c8c038f8c8c03, $f8a1a159f8a1a159,
      $8089890980898909, $170d0d1a170d0d1a,
      $dabfbf65dabfbf65, $31e6e6d731e6e6d7,
      $c6424284c6424284, $b86868d0b86868d0,
      $c3414182c3414182, $b0999929b0999929,
      $772d2d5a772d2d5a, $110f0f1e110f0f1e,
      $cbb0b07bcbb0b07b, $fc5454a8fc5454a8,
      $d6bbbb6dd6bbbb6d, $3a16162c3a16162c
  );

  const Te4:array[0..255]of byte = (
      $63, $7c, $77, $7b, $f2, $6b, $6f, $c5,
      $30, $01, $67, $2b, $fe, $d7, $ab, $76,
      $ca, $82, $c9, $7d, $fa, $59, $47, $f0,
      $ad, $d4, $a2, $af, $9c, $a4, $72, $c0,
      $b7, $fd, $93, $26, $36, $3f, $f7, $cc,
      $34, $a5, $e5, $f1, $71, $d8, $31, $15,
      $04, $c7, $23, $c3, $18, $96, $05, $9a,
      $07, $12, $80, $e2, $eb, $27, $b2, $75,
      $09, $83, $2c, $1a, $1b, $6e, $5a, $a0,
      $52, $3b, $d6, $b3, $29, $e3, $2f, $84,
      $53, $d1, $00, $ed, $20, $fc, $b1, $5b,
      $6a, $cb, $be, $39, $4a, $4c, $58, $cf,
      $d0, $ef, $aa, $fb, $43, $4d, $33, $85,
      $45, $f9, $02, $7f, $50, $3c, $9f, $a8,
      $51, $a3, $40, $8f, $92, $9d, $38, $f5,
      $bc, $b6, $da, $21, $10, $ff, $f3, $d2,
      $cd, $0c, $13, $ec, $5f, $97, $44, $17,
      $c4, $a7, $7e, $3d, $64, $5d, $19, $73,
      $60, $81, $4f, $dc, $22, $2a, $90, $88,
      $46, $ee, $b8, $14, $de, $5e, $0b, $db,
      $e0, $32, $3a, $0a, $49, $06, $24, $5c,
      $c2, $d3, $ac, $62, $91, $95, $e4, $79,
      $e7, $c8, $37, $6d, $8d, $d5, $4e, $a9,
      $6c, $56, $f4, $ea, $65, $7a, $ae, $08,
      $ba, $78, $25, $2e, $1c, $a6, $b4, $c6,
      $e8, $dd, $74, $1f, $4b, $bd, $8b, $8a,
      $70, $3e, $b5, $66, $48, $03, $f6, $0e,
      $61, $35, $57, $b9, $86, $c1, $1d, $9e,
      $e1, $f8, $98, $11, $69, $d9, $8e, $94,
      $9b, $1e, $87, $e9, $ce, $55, $28, $df,
      $8c, $a1, $89, $0d, $bf, $e6, $42, $68,
      $41, $99, $2d, $0f, $b0, $54, $bb, $16
  );

  const Td:array[0..255]of Int64 = (
      $50a7f45150a7f451, $5365417e5365417e,
      $c3a4171ac3a4171a, $965e273a965e273a,
      $cb6bab3bcb6bab3b, $f1459d1ff1459d1f,
      $ab58faacab58faac, $9303e34b9303e34b,
      $55fa302055fa3020, $f66d76adf66d76ad,
      $9176cc889176cc88, $254c02f5254c02f5,
      $fcd7e54ffcd7e54f, $d7cb2ac5d7cb2ac5,
      $8044352680443526, $8fa362b58fa362b5,
      $495ab1de495ab1de, $671bba25671bba25,
      $980eea45980eea45, $e1c0fe5de1c0fe5d,
      $02752fc302752fc3, $12f04c8112f04c81,
      $a397468da397468d, $c6f9d36bc6f9d36b,
      $e75f8f03e75f8f03, $959c9215959c9215,
      $eb7a6dbfeb7a6dbf, $da595295da595295,
      $2d83bed42d83bed4, $d3217458d3217458,
      $2969e0492969e049, $44c8c98e44c8c98e,
      $6a89c2756a89c275, $78798ef478798ef4,
      $6b3e58996b3e5899, $dd71b927dd71b927,
      $b64fe1beb64fe1be, $17ad88f017ad88f0,
      $66ac20c966ac20c9, $b43ace7db43ace7d,
      $184adf63184adf63, $82311ae582311ae5,
      $6033519760335197, $457f5362457f5362,
      $e07764b1e07764b1, $84ae6bbb84ae6bbb,
      $1ca081fe1ca081fe, $942b08f9942b08f9,
      $5868487058684870, $19fd458f19fd458f,
      $876cde94876cde94, $b7f87b52b7f87b52,
      $23d373ab23d373ab, $e2024b72e2024b72,
      $578f1fe3578f1fe3, $2aab55662aab5566,
      $0728ebb20728ebb2, $03c2b52f03c2b52f,
      $9a7bc5869a7bc586, $a50837d3a50837d3,
      $f2872830f2872830, $b2a5bf23b2a5bf23,
      $ba6a0302ba6a0302, $5c8216ed5c8216ed,
      $2b1ccf8a2b1ccf8a, $92b479a792b479a7,
      $f0f207f3f0f207f3, $a1e2694ea1e2694e,
      $cdf4da65cdf4da65, $d5be0506d5be0506,
      $1f6234d11f6234d1, $8afea6c48afea6c4,
      $9d532e349d532e34, $a055f3a2a055f3a2,
      $32e18a0532e18a05, $75ebf6a475ebf6a4,
      $39ec830b39ec830b, $aaef6040aaef6040,
      $069f715e069f715e, $51106ebd51106ebd,
      $f98a213ef98a213e, $3d06dd963d06dd96,
      $ae053eddae053edd, $46bde64d46bde64d,
      $b58d5491b58d5491, $055dc471055dc471,
      $6fd406046fd40604, $ff155060ff155060,
      $24fb981924fb9819, $97e9bdd697e9bdd6,
      $cc434089cc434089, $779ed967779ed967,
      $bd42e8b0bd42e8b0, $888b8907888b8907,
      $385b19e7385b19e7, $dbeec879dbeec879,
      $470a7ca1470a7ca1, $e90f427ce90f427c,
      $c91e84f8c91e84f8, $0000000000000000,
      $8386800983868009, $48ed2b3248ed2b32,
      $ac70111eac70111e, $4e725a6c4e725a6c,
      $fbff0efdfbff0efd, $5638850f5638850f,
      $1ed5ae3d1ed5ae3d, $27392d3627392d36,
      $64d90f0a64d90f0a, $21a65c6821a65c68,
      $d1545b9bd1545b9b, $3a2e36243a2e3624,
      $b1670a0cb1670a0c, $0fe757930fe75793,
      $d296eeb4d296eeb4, $9e919b1b9e919b1b,
      $4fc5c0804fc5c080, $a220dc61a220dc61,
      $694b775a694b775a, $161a121c161a121c,
      $0aba93e20aba93e2, $e52aa0c0e52aa0c0,
      $43e0223c43e0223c, $1d171b121d171b12,
      $0b0d090e0b0d090e, $adc78bf2adc78bf2,
      $b9a8b62db9a8b62d, $c8a91e14c8a91e14,
      $8519f1578519f157, $4c0775af4c0775af,
      $bbdd99eebbdd99ee, $fd607fa3fd607fa3,
      $9f2601f79f2601f7, $bcf5725cbcf5725c,
      $c53b6644c53b6644, $347efb5b347efb5b,
      $7629438b7629438b, $dcc623cbdcc623cb,
      $68fcedb668fcedb6, $63f1e4b863f1e4b8,
      $cadc31d7cadc31d7, $1085634210856342,
      $4022971340229713, $2011c6842011c684,
      $7d244a857d244a85, $f83dbbd2f83dbbd2,
      $1132f9ae1132f9ae, $6da129c76da129c7,
      $4b2f9e1d4b2f9e1d, $f330b2dcf330b2dc,
      $ec52860dec52860d, $d0e3c177d0e3c177,
      $6c16b32b6c16b32b, $99b970a999b970a9,
      $fa489411fa489411, $2264e9472264e947,
      $c48cfca8c48cfca8, $1a3ff0a01a3ff0a0,
      $d82c7d56d82c7d56, $ef903322ef903322,
      $c74e4987c74e4987, $c1d138d9c1d138d9,
      $fea2ca8cfea2ca8c, $360bd498360bd498,
      $cf81f5a6cf81f5a6, $28de7aa528de7aa5,
      $268eb7da268eb7da, $a4bfad3fa4bfad3f,
      $e49d3a2ce49d3a2c, $0d9278500d927850,
      $9bcc5f6a9bcc5f6a, $62467e5462467e54,
      $c2138df6c2138df6, $e8b8d890e8b8d890,
      $5ef7392e5ef7392e, $f5afc382f5afc382,
      $be805d9fbe805d9f, $7c93d0697c93d069,
      $a92dd56fa92dd56f, $b31225cfb31225cf,
      $3b99acc83b99acc8, $a77d1810a77d1810,
      $6e639ce86e639ce8, $7bbb3bdb7bbb3bdb,
      $097826cd097826cd, $f418596ef418596e,
      $01b79aec01b79aec, $a89a4f83a89a4f83,
      $656e95e6656e95e6, $7ee6ffaa7ee6ffaa,
      $08cfbc2108cfbc21, $e6e815efe6e815ef,
      $d99be7bad99be7ba, $ce366f4ace366f4a,
      $d4099fead4099fea, $d67cb029d67cb029,
      $afb2a431afb2a431, $31233f2a31233f2a,
      $3094a5c63094a5c6, $c066a235c066a235,
      $37bc4e7437bc4e74, $a6ca82fca6ca82fc,
      $b0d090e0b0d090e0, $15d8a73315d8a733,
      $4a9804f14a9804f1, $f7daec41f7daec41,
      $0e50cd7f0e50cd7f, $2ff691172ff69117,
      $8dd64d768dd64d76, $4db0ef434db0ef43,
      $544daacc544daacc, $df0496e4df0496e4,
      $e3b5d19ee3b5d19e, $1b886a4c1b886a4c,
      $b81f2cc1b81f2cc1, $7f5165467f516546,
      $04ea5e9d04ea5e9d, $5d358c015d358c01,
      $737487fa737487fa, $2e410bfb2e410bfb,
      $5a1d67b35a1d67b3, $52d2db9252d2db92,
      $335610e9335610e9, $1347d66d1347d66d,
      $8c61d79a8c61d79a, $7a0ca1377a0ca137,
      $8e14f8598e14f859, $893c13eb893c13eb,
      $ee27a9ceee27a9ce, $35c961b735c961b7,
      $ede51ce1ede51ce1, $3cb1477a3cb1477a,
      $59dfd29c59dfd29c, $3f73f2553f73f255,
      $79ce141879ce1418, $bf37c773bf37c773,
      $eacdf753eacdf753, $5baafd5f5baafd5f,
      $146f3ddf146f3ddf, $86db447886db4478,
      $81f3afca81f3afca, $3ec468b93ec468b9,
      $2c3424382c342438, $5f40a3c25f40a3c2,
      $72c31d1672c31d16, $0c25e2bc0c25e2bc,
      $8b493c288b493c28, $41950dff41950dff,
      $7101a8397101a839, $deb30c08deb30c08,
      $9ce4b4d89ce4b4d8, $90c1566490c15664,
      $6184cb7b6184cb7b, $70b632d570b632d5,
      $745c6c48745c6c48, $4257b8d04257b8d0
  );
  const Td4:array[0..255]of byte = (
      $52, $09, $6a, $d5, $30, $36, $a5, $38,
      $bf, $40, $a3, $9e, $81, $f3, $d7, $fb,
      $7c, $e3, $39, $82, $9b, $2f, $ff, $87,
      $34, $8e, $43, $44, $c4, $de, $e9, $cb,
      $54, $7b, $94, $32, $a6, $c2, $23, $3d,
      $ee, $4c, $95, $0b, $42, $fa, $c3, $4e,
      $08, $2e, $a1, $66, $28, $d9, $24, $b2,
      $76, $5b, $a2, $49, $6d, $8b, $d1, $25,
      $72, $f8, $f6, $64, $86, $68, $98, $16,
      $d4, $a4, $5c, $cc, $5d, $65, $b6, $92,
      $6c, $70, $48, $50, $fd, $ed, $b9, $da,
      $5e, $15, $46, $57, $a7, $8d, $9d, $84,
      $90, $d8, $ab, $00, $8c, $bc, $d3, $0a,
      $f7, $e4, $58, $05, $b8, $b3, $45, $06,
      $d0, $2c, $1e, $8f, $ca, $3f, $0f, $02,
      $c1, $af, $bd, $03, $01, $13, $8a, $6b,
      $3a, $91, $11, $41, $4f, $67, $dc, $ea,
      $97, $f2, $cf, $ce, $f0, $b4, $e6, $73,
      $96, $ac, $74, $22, $e7, $ad, $35, $85,
      $e2, $f9, $37, $e8, $1c, $75, $df, $6e,
      $47, $f1, $1a, $71, $1d, $29, $c5, $89,
      $6f, $b7, $62, $0e, $aa, $18, $be, $1b,
      $fc, $56, $3e, $4b, $c6, $d2, $79, $20,
      $9a, $db, $c0, $fe, $78, $cd, $5a, $f4,
      $1f, $dd, $a8, $33, $88, $07, $c7, $31,
      $b1, $12, $10, $59, $27, $80, $ec, $5f,
      $60, $51, $7f, $a9, $19, $b5, $4a, $0d,
      $2d, $e5, $7a, $9f, $93, $c9, $9c, $ef,
      $a0, $e0, $3b, $4d, $ae, $2a, $f5, $b0,
      $c8, $eb, $bb, $3c, $83, $53, $99, $61,
      $17, $2b, $04, $7e, $ba, $77, $d6, $26,
      $e1, $69, $14, $63, $55, $21, $0c, $7d
  );

  const rcon:array[0..9]of dword = (
      $00000001, $00000002, $00000004, $00000008,
      $00000010, $00000020, $00000040, $00000080,
      $0000001b, $00000036  (* for 128-bit blocks, Rijndael never uses more than 10 rcon values *)
  );

  (**
   * Expand the cipher key into the encryption key schedule.
   *)
  const
    AES_MAXNR=14;
    AES_BLOCK_SIZE=16;
  type
    AES_KEY = record
      rd_key: array [0..(4 *(AES_MAXNR + 1))-1] of dword;
      rounds:dword;
    end;
    pAES_KEY = ^AES_KEY;
  function AES_set_encrypt_key(
    const userKey:pchar;
    const bits   :dword;
    var   key    :pAES_KEY):dword;
  var rk:pdword;
  const i :dword = 0;
  var temp:dword;
  begin



    if ((userKey=nil) or (key=nil)) then
      result:= -1;
    if ((bits <> 128) and (bits <> 192) and (bits <> 256)) then
      result:= -2;

    rk := key^.rd_key;

    if (bits=128) then
      key^.rounds := 10
    else if (bits=192) then
      key^.rounds := 12
    else
      key^.rounds := 14;

    rk[0] := GETU32(userKey     );
    rk[1] := GETU32(userKey +  4);
    rk[2] := GETU32(userKey +  8);
    rk[3] := GETU32(userKey + 12);
    if (bits = 128) then begin
      while true do begin
        temp  := rk[3];
        rk[4] := rk[0] xor
          (Te4[(temp shr  8) AND $ff]       ) xor
          (Te4[(temp shr 16) AND $ff] shl  8) xor
          (Te4[(temp shr 24)      ] shl 16) xor
          (Te4[(temp       ) AND $ff] shl 24) xor
          rcon[i];
        rk[5] := rk[1] xor rk[4];
        rk[6] := rk[2] xor rk[5];
        rk[7] := rk[3] xor rk[6];
                          inc(i);
        if (i = 10) then begin
          result:= 0;break;
        end;
        rk := rk + 4;
      end;
    end;
    rk[4] := GETU32(userKey + 16);
    rk[5] := GETU32(userKey + 20);
    if (bits = 192) then begin
      while true do begin
        temp := rk[ 5];
        rk[ 6] := rk[ 0] xor
          (Te4[(temp shr  8) AND $ff]      ) xor
          (Te4[(temp shr 16) AND $ff] shl  8) xor
          (Te4[(temp shr 24)       ] shl 16) xor
          (Te4[(temp      ) AND $ff] shl 24) xor
          rcon[i];
        rk[ 7] := rk[ 1] xor rk[ 6];
        rk[ 8] := rk[ 2] xor rk[ 7];
        rk[ 9] := rk[ 3] xor rk[ 8];
                          inc(i);
        if (i = 8) then begin
          result:= 0;break;
        end;
        rk[10] := rk[ 4] xor rk[ 9];
        rk[11] := rk[ 5] xor rk[10];
        rk := rk + 6;
      end;
    end;
    rk[6] := GETU32(userKey + 24);
    rk[7] := GETU32(userKey + 28);
    if (bits = 256) then begin
      while true do begin
        temp := rk[ 7];
        rk[ 8] := rk[ 0] xor
          (Te4[(temp shr  8) AND $ff]      ) xor
          (Te4[(temp shr 16) AND $ff] shl  8) xor
          (Te4[(temp shr 24)       ] shl 16) xor
          (Te4[(temp      ) AND $ff] shl 24) xor
          rcon[i];
        rk[ 9] := rk[ 1] xor rk[ 8];
        rk[10] := rk[ 2] xor rk[ 9];
        rk[11] := rk[ 3] xor rk[10];
                          inc(i);
        if (i = 7) then begin
          result:= 0;break;
        end;
        temp := rk[11];
        rk[12] := rk[ 4] xor
          (Te4[(temp      ) AND $ff]      ) xor
          (Te4[(temp shr  8) AND $ff] shl  8) xor
          (Te4[(temp shr 16) AND $ff] shl 16) xor
          (Te4[(temp shr 24)       ] shl 24);
        rk[13] := rk[ 5] xor rk[12];
        rk[14] := rk[ 6] xor rk[13];
        rk[15] := rk[ 7] xor rk[14];

        rk := rk+8;
            end;
    end;
    result:= 0;
  end;

  (**
   * Expand the cipher key into the decryption key schedule.
   *)
  function AES_set_decrypt_key(
    const userKey:pchar;
    const bits   :dword;
    var   key    :pAES_KEY):dword;
  var
    rk:pdword;
    i, j, status:dword;
    temp:dword;
  var
    tp1, tp2, tp4, tp8, tp9, tpb, tpd, tpe, m:dword;
  begin



    (* first, start with an encryption schedule *)
    status := AES_set_encrypt_key(userKey, bits, key);
    if (status < 0) then
      result:= status;

    rk := key^.rd_key;

    (* invert the order of the round keys: *)
          i := 0; j := 4*(key^.rounds);
    while ( i < j ) do begin
      temp := rk[i    ]; rk[i    ] := rk[j    ]; rk[j    ] := temp;
      temp := rk[i + 1]; rk[i + 1] := rk[j + 1]; rk[j + 1] := temp;
      temp := rk[i + 2]; rk[i + 2] := rk[j + 2]; rk[j + 2] := temp;
      temp := rk[i + 3]; rk[i + 3] := rk[j + 3]; rk[j + 3] := temp;
                  i := i+4; j := j -4
    end;
    (* apply the inverse MixColumn transform to all round keys but the first and the last: *)
          i := 1;
    while ( i < (key^.rounds) ) do begin
      rk :=rk + 4;
  {$if 1}
                  j := 0;
                  while ( j < 4 ) do begin
        //u32 tp1, tp2, tp4, tp8, tp9, tpb, tpd, tpe, m;

        tp1 := rk[j];
        m := tp1 AND $80808080;
        tp2 := ((tp1 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        m := tp2 AND $80808080;
        tp4 := ((tp2 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        m := tp4 AND $80808080;
        tp8 := ((tp4 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        tp9 := tp8 xor tp1;
        tpb := tp9 xor tp2;
        tpd := tp9 xor tp4;
        tpe := tp8 xor tp4 xor tp2;
  {$if defined(ROTATE)}
        rk[j] := tpe xor ROTATE(tpd,16) xor
          ROTATE(tp9,8) xor ROTATE(tpb,24);
  {$else}
        rk[j] := tpe xor (tpd shr 16) xor (tpd shl 16) xor
          (tp9 shr 24) xor (tp9 shl 8) xor
          (tpb shr 8) xor (tpb shl 24);
  {$endif}
                  inc(j);
      end;
  {$else}
      rk[0] :=
        Td0[Te2[(rk[0]      ) AND $ff] AND $ff] xor
        Td1[Te2[(rk[0] shr  8) AND $ff] AND $ff] xor
        Td2[Te2[(rk[0] shr 16) AND $ff] AND $ff] xor
        Td3[Te2[(rk[0] shr 24)       ] AND $ff];
      rk[1] :=
        Td0[Te2[(rk[1]      ) AND $ff] AND $ff] xor
        Td1[Te2[(rk[1] shr  8) AND $ff] AND $ff] xor
        Td2[Te2[(rk[1] shr 16) AND $ff] AND $ff] xor
        Td3[Te2[(rk[1] shr 24)       ] AND $ff];
      rk[2] :=
        Td0[Te2[(rk[2]      ) AND $ff] AND $ff] xor
        Td1[Te2[(rk[2] shr  8) AND $ff] AND $ff] xor
        Td2[Te2[(rk[2] shr 16) AND $ff] AND $ff] xor
        Td3[Te2[(rk[2] shr 24)       ] AND $ff];
      rk[3] :=
        Td0[Te2[(rk[3]      ) AND $ff] AND $ff] xor
        Td1[Te2[(rk[3] shr  8) AND $ff] AND $ff] xor
        Td2[Te2[(rk[3] shr 16) AND $ff] AND $ff] xor
        Td3[Te2[(rk[3] shr 24)       ] AND $ff];
  {$endif}
            inc(i);
    end;
    result:= 0;
  end;

  (*
   * Encrypt a single block
   * in and out can overlap
   *)
  const Te0:array[0..255]of dword=(
      $c66363a5, $f87c7c84, $ee777799, $f67b7b8d,
      $fff2f20d, $d66b6bbd, $de6f6fb1, $91c5c554,
      $60303050, $02010103, $ce6767a9, $562b2b7d,
      $e7fefe19, $b5d7d762, $4dababe6, $ec76769a,
      $8fcaca45, $1f82829d, $89c9c940, $fa7d7d87,
      $effafa15, $b25959eb, $8e4747c9, $fbf0f00b,
      $41adadec, $b3d4d467, $5fa2a2fd, $45afafea,
      $239c9cbf, $53a4a4f7, $e4727296, $9bc0c05b,
      $75b7b7c2, $e1fdfd1c, $3d9393ae, $4c26266a,
      $6c36365a, $7e3f3f41, $f5f7f702, $83cccc4f,
      $6834345c, $51a5a5f4, $d1e5e534, $f9f1f108,
      $e2717193, $abd8d873, $62313153, $2a15153f,
      $0804040c, $95c7c752, $46232365, $9dc3c35e,
      $30181828, $379696a1, $0a05050f, $2f9a9ab5,
      $0e070709, $24121236, $1b80809b, $dfe2e23d,
      $cdebeb26, $4e272769, $7fb2b2cd, $ea75759f,
      $1209091b, $1d83839e, $582c2c74, $341a1a2e,
      $361b1b2d, $dc6e6eb2, $b45a5aee, $5ba0a0fb,
      $a45252f6, $763b3b4d, $b7d6d661, $7db3b3ce,
      $5229297b, $dde3e33e, $5e2f2f71, $13848497,
      $a65353f5, $b9d1d168, $00000000, $c1eded2c,
      $40202060, $e3fcfc1f, $79b1b1c8, $b65b5bed,
      $d46a6abe, $8dcbcb46, $67bebed9, $7239394b,
      $944a4ade, $984c4cd4, $b05858e8, $85cfcf4a,
      $bbd0d06b, $c5efef2a, $4faaaae5, $edfbfb16,
      $864343c5, $9a4d4dd7, $66333355, $11858594,
      $8a4545cf, $e9f9f910, $04020206, $fe7f7f81,
      $a05050f0, $783c3c44, $259f9fba, $4ba8a8e3,
      $a25151f3, $5da3a3fe, $804040c0, $058f8f8a,
      $3f9292ad, $219d9dbc, $70383848, $f1f5f504,
      $63bcbcdf, $77b6b6c1, $afdada75, $42212163,
      $20101030, $e5ffff1a, $fdf3f30e, $bfd2d26d,
      $81cdcd4c, $180c0c14, $26131335, $c3ecec2f,
      $be5f5fe1, $359797a2, $884444cc, $2e171739,
      $93c4c457, $55a7a7f2, $fc7e7e82, $7a3d3d47,
      $c86464ac, $ba5d5de7, $3219192b, $e6737395,
      $c06060a0, $19818198, $9e4f4fd1, $a3dcdc7f,
      $44222266, $542a2a7e, $3b9090ab, $0b888883,
      $8c4646ca, $c7eeee29, $6bb8b8d3, $2814143c,
      $a7dede79, $bc5e5ee2, $160b0b1d, $addbdb76,
      $dbe0e03b, $64323256, $743a3a4e, $140a0a1e,
      $924949db, $0c06060a, $4824246c, $b85c5ce4,
      $9fc2c25d, $bdd3d36e, $43acacef, $c46262a6,
      $399191a8, $319595a4, $d3e4e437, $f279798b,
      $d5e7e732, $8bc8c843, $6e373759, $da6d6db7,
      $018d8d8c, $b1d5d564, $9c4e4ed2, $49a9a9e0,
      $d86c6cb4, $ac5656fa, $f3f4f407, $cfeaea25,
      $ca6565af, $f47a7a8e, $47aeaee9, $10080818,
      $6fbabad5, $f0787888, $4a25256f, $5c2e2e72,
      $381c1c24, $57a6a6f1, $73b4b4c7, $97c6c651,
      $cbe8e823, $a1dddd7c, $e874749c, $3e1f1f21,
      $964b4bdd, $61bdbddc, $0d8b8b86, $0f8a8a85,
      $e0707090, $7c3e3e42, $71b5b5c4, $cc6666aa,
      $904848d8, $06030305, $f7f6f601, $1c0e0e12,
      $c26161a3, $6a35355f, $ae5757f9, $69b9b9d0,
      $17868691, $99c1c158, $3a1d1d27, $279e9eb9,
      $d9e1e138, $ebf8f813, $2b9898b3, $22111133,
      $d26969bb, $a9d9d970, $078e8e89, $339494a7,
      $2d9b9bb6, $3c1e1e22, $15878792, $c9e9e920,
      $87cece49, $aa5555ff, $50282878, $a5dfdf7a,
      $038c8c8f, $59a1a1f8, $09898980, $1a0d0d17,
      $65bfbfda, $d7e6e631, $844242c6, $d06868b8,
      $824141c3, $299999b0, $5a2d2d77, $1e0f0f11,
      $7bb0b0cb, $a85454fc, $6dbbbbd6, $2c16163a
  );
  const Te1:array[0..255]of dword=(
      $a5c66363, $84f87c7c, $99ee7777, $8df67b7b,
      $0dfff2f2, $bdd66b6b, $b1de6f6f, $5491c5c5,
      $50603030, $03020101, $a9ce6767, $7d562b2b,
      $19e7fefe, $62b5d7d7, $e64dabab, $9aec7676,
      $458fcaca, $9d1f8282, $4089c9c9, $87fa7d7d,
      $15effafa, $ebb25959, $c98e4747, $0bfbf0f0,
      $ec41adad, $67b3d4d4, $fd5fa2a2, $ea45afaf,
      $bf239c9c, $f753a4a4, $96e47272, $5b9bc0c0,
      $c275b7b7, $1ce1fdfd, $ae3d9393, $6a4c2626,
      $5a6c3636, $417e3f3f, $02f5f7f7, $4f83cccc,
      $5c683434, $f451a5a5, $34d1e5e5, $08f9f1f1,
      $93e27171, $73abd8d8, $53623131, $3f2a1515,
      $0c080404, $5295c7c7, $65462323, $5e9dc3c3,
      $28301818, $a1379696, $0f0a0505, $b52f9a9a,
      $090e0707, $36241212, $9b1b8080, $3ddfe2e2,
      $26cdebeb, $694e2727, $cd7fb2b2, $9fea7575,
      $1b120909, $9e1d8383, $74582c2c, $2e341a1a,
      $2d361b1b, $b2dc6e6e, $eeb45a5a, $fb5ba0a0,
      $f6a45252, $4d763b3b, $61b7d6d6, $ce7db3b3,
      $7b522929, $3edde3e3, $715e2f2f, $97138484,
      $f5a65353, $68b9d1d1, $00000000, $2cc1eded,
      $60402020, $1fe3fcfc, $c879b1b1, $edb65b5b,
      $bed46a6a, $468dcbcb, $d967bebe, $4b723939,
      $de944a4a, $d4984c4c, $e8b05858, $4a85cfcf,
      $6bbbd0d0, $2ac5efef, $e54faaaa, $16edfbfb,
      $c5864343, $d79a4d4d, $55663333, $94118585,
      $cf8a4545, $10e9f9f9, $06040202, $81fe7f7f,
      $f0a05050, $44783c3c, $ba259f9f, $e34ba8a8,
      $f3a25151, $fe5da3a3, $c0804040, $8a058f8f,
      $ad3f9292, $bc219d9d, $48703838, $04f1f5f5,
      $df63bcbc, $c177b6b6, $75afdada, $63422121,
      $30201010, $1ae5ffff, $0efdf3f3, $6dbfd2d2,
      $4c81cdcd, $14180c0c, $35261313, $2fc3ecec,
      $e1be5f5f, $a2359797, $cc884444, $392e1717,
      $5793c4c4, $f255a7a7, $82fc7e7e, $477a3d3d,
      $acc86464, $e7ba5d5d, $2b321919, $95e67373,
      $a0c06060, $98198181, $d19e4f4f, $7fa3dcdc,
      $66442222, $7e542a2a, $ab3b9090, $830b8888,
      $ca8c4646, $29c7eeee, $d36bb8b8, $3c281414,
      $79a7dede, $e2bc5e5e, $1d160b0b, $76addbdb,
      $3bdbe0e0, $56643232, $4e743a3a, $1e140a0a,
      $db924949, $0a0c0606, $6c482424, $e4b85c5c,
      $5d9fc2c2, $6ebdd3d3, $ef43acac, $a6c46262,
      $a8399191, $a4319595, $37d3e4e4, $8bf27979,
      $32d5e7e7, $438bc8c8, $596e3737, $b7da6d6d,
      $8c018d8d, $64b1d5d5, $d29c4e4e, $e049a9a9,
      $b4d86c6c, $faac5656, $07f3f4f4, $25cfeaea,
      $afca6565, $8ef47a7a, $e947aeae, $18100808,
      $d56fbaba, $88f07878, $6f4a2525, $725c2e2e,
      $24381c1c, $f157a6a6, $c773b4b4, $5197c6c6,
      $23cbe8e8, $7ca1dddd, $9ce87474, $213e1f1f,
      $dd964b4b, $dc61bdbd, $860d8b8b, $850f8a8a,
      $90e07070, $427c3e3e, $c471b5b5, $aacc6666,
      $d8904848, $05060303, $01f7f6f6, $121c0e0e,
      $a3c26161, $5f6a3535, $f9ae5757, $d069b9b9,
      $91178686, $5899c1c1, $273a1d1d, $b9279e9e,
      $38d9e1e1, $13ebf8f8, $b32b9898, $33221111,
      $bbd26969, $70a9d9d9, $89078e8e, $a7339494,
      $b62d9b9b, $223c1e1e, $92158787, $20c9e9e9,
      $4987cece, $ffaa5555, $78502828, $7aa5dfdf,
      $8f038c8c, $f859a1a1, $80098989, $171a0d0d,
      $da65bfbf, $31d7e6e6, $c6844242, $b8d06868,
      $c3824141, $b0299999, $775a2d2d, $111e0f0f,
      $cb7bb0b0, $fca85454, $d66dbbbb, $3a2c1616
  );
  const Te2:array[0..255]of dword=(
      $63a5c663, $7c84f87c, $7799ee77, $7b8df67b,
      $f20dfff2, $6bbdd66b, $6fb1de6f, $c55491c5,
      $30506030, $01030201, $67a9ce67, $2b7d562b,
      $fe19e7fe, $d762b5d7, $abe64dab, $769aec76,
      $ca458fca, $829d1f82, $c94089c9, $7d87fa7d,
      $fa15effa, $59ebb259, $47c98e47, $f00bfbf0,
      $adec41ad, $d467b3d4, $a2fd5fa2, $afea45af,
      $9cbf239c, $a4f753a4, $7296e472, $c05b9bc0,
      $b7c275b7, $fd1ce1fd, $93ae3d93, $266a4c26,
      $365a6c36, $3f417e3f, $f702f5f7, $cc4f83cc,
      $345c6834, $a5f451a5, $e534d1e5, $f108f9f1,
      $7193e271, $d873abd8, $31536231, $153f2a15,
      $040c0804, $c75295c7, $23654623, $c35e9dc3,
      $18283018, $96a13796, $050f0a05, $9ab52f9a,
      $07090e07, $12362412, $809b1b80, $e23ddfe2,
      $eb26cdeb, $27694e27, $b2cd7fb2, $759fea75,
      $091b1209, $839e1d83, $2c74582c, $1a2e341a,
      $1b2d361b, $6eb2dc6e, $5aeeb45a, $a0fb5ba0,
      $52f6a452, $3b4d763b, $d661b7d6, $b3ce7db3,
      $297b5229, $e33edde3, $2f715e2f, $84971384,
      $53f5a653, $d168b9d1, $00000000, $ed2cc1ed,
      $20604020, $fc1fe3fc, $b1c879b1, $5bedb65b,
      $6abed46a, $cb468dcb, $bed967be, $394b7239,
      $4ade944a, $4cd4984c, $58e8b058, $cf4a85cf,
      $d06bbbd0, $ef2ac5ef, $aae54faa, $fb16edfb,
      $43c58643, $4dd79a4d, $33556633, $85941185,
      $45cf8a45, $f910e9f9, $02060402, $7f81fe7f,
      $50f0a050, $3c44783c, $9fba259f, $a8e34ba8,
      $51f3a251, $a3fe5da3, $40c08040, $8f8a058f,
      $92ad3f92, $9dbc219d, $38487038, $f504f1f5,
      $bcdf63bc, $b6c177b6, $da75afda, $21634221,
      $10302010, $ff1ae5ff, $f30efdf3, $d26dbfd2,
      $cd4c81cd, $0c14180c, $13352613, $ec2fc3ec,
      $5fe1be5f, $97a23597, $44cc8844, $17392e17,
      $c45793c4, $a7f255a7, $7e82fc7e, $3d477a3d,
      $64acc864, $5de7ba5d, $192b3219, $7395e673,
      $60a0c060, $81981981, $4fd19e4f, $dc7fa3dc,
      $22664422, $2a7e542a, $90ab3b90, $88830b88,
      $46ca8c46, $ee29c7ee, $b8d36bb8, $143c2814,
      $de79a7de, $5ee2bc5e, $0b1d160b, $db76addb,
      $e03bdbe0, $32566432, $3a4e743a, $0a1e140a,
      $49db9249, $060a0c06, $246c4824, $5ce4b85c,
      $c25d9fc2, $d36ebdd3, $acef43ac, $62a6c462,
      $91a83991, $95a43195, $e437d3e4, $798bf279,
      $e732d5e7, $c8438bc8, $37596e37, $6db7da6d,
      $8d8c018d, $d564b1d5, $4ed29c4e, $a9e049a9,
      $6cb4d86c, $56faac56, $f407f3f4, $ea25cfea,
      $65afca65, $7a8ef47a, $aee947ae, $08181008,
      $bad56fba, $7888f078, $256f4a25, $2e725c2e,
      $1c24381c, $a6f157a6, $b4c773b4, $c65197c6,
      $e823cbe8, $dd7ca1dd, $749ce874, $1f213e1f,
      $4bdd964b, $bddc61bd, $8b860d8b, $8a850f8a,
      $7090e070, $3e427c3e, $b5c471b5, $66aacc66,
      $48d89048, $03050603, $f601f7f6, $0e121c0e,
      $61a3c261, $355f6a35, $57f9ae57, $b9d069b9,
      $86911786, $c15899c1, $1d273a1d, $9eb9279e,
      $e138d9e1, $f813ebf8, $98b32b98, $11332211,
      $69bbd269, $d970a9d9, $8e89078e, $94a73394,
      $9bb62d9b, $1e223c1e, $87921587, $e920c9e9,
      $ce4987ce, $55ffaa55, $28785028, $df7aa5df,
      $8c8f038c, $a1f859a1, $89800989, $0d171a0d,
      $bfda65bf, $e631d7e6, $42c68442, $68b8d068,
      $41c38241, $99b02999, $2d775a2d, $0f111e0f,
      $b0cb7bb0, $54fca854, $bbd66dbb, $163a2c16
  );
  const Te3:array[0..255]of dword=(
      $6363a5c6, $7c7c84f8, $777799ee, $7b7b8df6,
      $f2f20dff, $6b6bbdd6, $6f6fb1de, $c5c55491,
      $30305060, $01010302, $6767a9ce, $2b2b7d56,
      $fefe19e7, $d7d762b5, $ababe64d, $76769aec,
      $caca458f, $82829d1f, $c9c94089, $7d7d87fa,
      $fafa15ef, $5959ebb2, $4747c98e, $f0f00bfb,
      $adadec41, $d4d467b3, $a2a2fd5f, $afafea45,
      $9c9cbf23, $a4a4f753, $727296e4, $c0c05b9b,
      $b7b7c275, $fdfd1ce1, $9393ae3d, $26266a4c,
      $36365a6c, $3f3f417e, $f7f702f5, $cccc4f83,
      $34345c68, $a5a5f451, $e5e534d1, $f1f108f9,
      $717193e2, $d8d873ab, $31315362, $15153f2a,
      $04040c08, $c7c75295, $23236546, $c3c35e9d,
      $18182830, $9696a137, $05050f0a, $9a9ab52f,
      $0707090e, $12123624, $80809b1b, $e2e23ddf,
      $ebeb26cd, $2727694e, $b2b2cd7f, $75759fea,
      $09091b12, $83839e1d, $2c2c7458, $1a1a2e34,
      $1b1b2d36, $6e6eb2dc, $5a5aeeb4, $a0a0fb5b,
      $5252f6a4, $3b3b4d76, $d6d661b7, $b3b3ce7d,
      $29297b52, $e3e33edd, $2f2f715e, $84849713,
      $5353f5a6, $d1d168b9, $00000000, $eded2cc1,
      $20206040, $fcfc1fe3, $b1b1c879, $5b5bedb6,
      $6a6abed4, $cbcb468d, $bebed967, $39394b72,
      $4a4ade94, $4c4cd498, $5858e8b0, $cfcf4a85,
      $d0d06bbb, $efef2ac5, $aaaae54f, $fbfb16ed,
      $4343c586, $4d4dd79a, $33335566, $85859411,
      $4545cf8a, $f9f910e9, $02020604, $7f7f81fe,
      $5050f0a0, $3c3c4478, $9f9fba25, $a8a8e34b,
      $5151f3a2, $a3a3fe5d, $4040c080, $8f8f8a05,
      $9292ad3f, $9d9dbc21, $38384870, $f5f504f1,
      $bcbcdf63, $b6b6c177, $dada75af, $21216342,
      $10103020, $ffff1ae5, $f3f30efd, $d2d26dbf,
      $cdcd4c81, $0c0c1418, $13133526, $ecec2fc3,
      $5f5fe1be, $9797a235, $4444cc88, $1717392e,
      $c4c45793, $a7a7f255, $7e7e82fc, $3d3d477a,
      $6464acc8, $5d5de7ba, $19192b32, $737395e6,
      $6060a0c0, $81819819, $4f4fd19e, $dcdc7fa3,
      $22226644, $2a2a7e54, $9090ab3b, $8888830b,
      $4646ca8c, $eeee29c7, $b8b8d36b, $14143c28,
      $dede79a7, $5e5ee2bc, $0b0b1d16, $dbdb76ad,
      $e0e03bdb, $32325664, $3a3a4e74, $0a0a1e14,
      $4949db92, $06060a0c, $24246c48, $5c5ce4b8,
      $c2c25d9f, $d3d36ebd, $acacef43, $6262a6c4,
      $9191a839, $9595a431, $e4e437d3, $79798bf2,
      $e7e732d5, $c8c8438b, $3737596e, $6d6db7da,
      $8d8d8c01, $d5d564b1, $4e4ed29c, $a9a9e049,
      $6c6cb4d8, $5656faac, $f4f407f3, $eaea25cf,
      $6565afca, $7a7a8ef4, $aeaee947, $08081810,
      $babad56f, $787888f0, $25256f4a, $2e2e725c,
      $1c1c2438, $a6a6f157, $b4b4c773, $c6c65197,
      $e8e823cb, $dddd7ca1, $74749ce8, $1f1f213e,
      $4b4bdd96, $bdbddc61, $8b8b860d, $8a8a850f,
      $707090e0, $3e3e427c, $b5b5c471, $6666aacc,
      $4848d890, $03030506, $f6f601f7, $0e0e121c,
      $6161a3c2, $35355f6a, $5757f9ae, $b9b9d069,
      $86869117, $c1c15899, $1d1d273a, $9e9eb927,
      $e1e138d9, $f8f813eb, $9898b32b, $11113322,
      $6969bbd2, $d9d970a9, $8e8e8907, $9494a733,
      $9b9bb62d, $1e1e223c, $87879215, $e9e920c9,
      $cece4987, $5555ffaa, $28287850, $dfdf7aa5,
      $8c8c8f03, $a1a1f859, $89898009, $0d0d171a,
      $bfbfda65, $e6e631d7, $4242c684, $6868b8d0,
      $4141c382, $9999b029, $2d2d775a, $0f0f111e,
      $b0b0cb7b, $5454fca8, $bbbbd66d, $16163a2c
  );

  const Td0:array[0..255]of dword=(
      $51f4a750, $7e416553, $1a17a4c3, $3a275e96,
      $3bab6bcb, $1f9d45f1, $acfa58ab, $4be30393,
      $2030fa55, $ad766df6, $88cc7691, $f5024c25,
      $4fe5d7fc, $c52acbd7, $26354480, $b562a38f,
      $deb15a49, $25ba1b67, $45ea0e98, $5dfec0e1,
      $c32f7502, $814cf012, $8d4697a3, $6bd3f9c6,
      $038f5fe7, $15929c95, $bf6d7aeb, $955259da,
      $d4be832d, $587421d3, $49e06929, $8ec9c844,
      $75c2896a, $f48e7978, $99583e6b, $27b971dd,
      $bee14fb6, $f088ad17, $c920ac66, $7dce3ab4,
      $63df4a18, $e51a3182, $97513360, $62537f45,
      $b16477e0, $bb6bae84, $fe81a01c, $f9082b94,
      $70486858, $8f45fd19, $94de6c87, $527bf8b7,
      $ab73d323, $724b02e2, $e31f8f57, $6655ab2a,
      $b2eb2807, $2fb5c203, $86c57b9a, $d33708a5,
      $302887f2, $23bfa5b2, $02036aba, $ed16825c,
      $8acf1c2b, $a779b492, $f307f2f0, $4e69e2a1,
      $65daf4cd, $0605bed5, $d134621f, $c4a6fe8a,
      $342e539d, $a2f355a0, $058ae132, $a4f6eb75,
      $0b83ec39, $4060efaa, $5e719f06, $bd6e1051,
      $3e218af9, $96dd063d, $dd3e05ae, $4de6bd46,
      $91548db5, $71c45d05, $0406d46f, $605015ff,
      $1998fb24, $d6bde997, $894043cc, $67d99e77,
      $b0e842bd, $07898b88, $e7195b38, $79c8eedb,
      $a17c0a47, $7c420fe9, $f8841ec9, $00000000,
      $09808683, $322bed48, $1e1170ac, $6c5a724e,
      $fd0efffb, $0f853856, $3daed51e, $362d3927,
      $0a0fd964, $685ca621, $9b5b54d1, $24362e3a,
      $0c0a67b1, $9357e70f, $b4ee96d2, $1b9b919e,
      $80c0c54f, $61dc20a2, $5a774b69, $1c121a16,
      $e293ba0a, $c0a02ae5, $3c22e043, $121b171d,
      $0e090d0b, $f28bc7ad, $2db6a8b9, $141ea9c8,
      $57f11985, $af75074c, $ee99ddbb, $a37f60fd,
      $f701269f, $5c72f5bc, $44663bc5, $5bfb7e34,
      $8b432976, $cb23c6dc, $b6edfc68, $b8e4f163,
      $d731dcca, $42638510, $13972240, $84c61120,
      $854a247d, $d2bb3df8, $aef93211, $c729a16d,
      $1d9e2f4b, $dcb230f3, $0d8652ec, $77c1e3d0,
      $2bb3166c, $a970b999, $119448fa, $47e96422,
      $a8fc8cc4, $a0f03f1a, $567d2cd8, $223390ef,
      $87494ec7, $d938d1c1, $8ccaa2fe, $98d40b36,
      $a6f581cf, $a57ade28, $dab78e26, $3fadbfa4,
      $2c3a9de4, $5078920d, $6a5fcc9b, $547e4662,
      $f68d13c2, $90d8b8e8, $2e39f75e, $82c3aff5,
      $9f5d80be, $69d0937c, $6fd52da9, $cf2512b3,
      $c8ac993b, $10187da7, $e89c636e, $db3bbb7b,
      $cd267809, $6e5918f4, $ec9ab701, $834f9aa8,
      $e6956e65, $aaffe67e, $21bccf08, $ef15e8e6,
      $bae79bd9, $4a6f36ce, $ea9f09d4, $29b07cd6,
      $31a4b2af, $2a3f2331, $c6a59430, $35a266c0,
      $744ebc37, $fc82caa6, $e090d0b0, $33a7d815,
      $f104984a, $41ecdaf7, $7fcd500e, $1791f62f,
      $764dd68d, $43efb04d, $ccaa4d54, $e49604df,
      $9ed1b5e3, $4c6a881b, $c12c1fb8, $4665517f,
      $9d5eea04, $018c355d, $fa877473, $fb0b412e,
      $b3671d5a, $92dbd252, $e9105633, $6dd64713,
      $9ad7618c, $37a10c7a, $59f8148e, $eb133c89,
      $cea927ee, $b761c935, $e11ce5ed, $7a47b13c,
      $9cd2df59, $55f2733f, $1814ce79, $73c737bf,
      $53f7cdea, $5ffdaa5b, $df3d6f14, $7844db86,
      $caaff381, $b968c43e, $3824342c, $c2a3405f,
      $161dc372, $bce2250c, $283c498b, $ff0d9541,
      $39a80171, $080cb3de, $d8b4e49c, $6456c190,
      $7bcb8461, $d532b670, $486c5c74, $d0b85742
  );
  const Td1:array[0..255]of dword=(
      $5051f4a7, $537e4165, $c31a17a4, $963a275e,
      $cb3bab6b, $f11f9d45, $abacfa58, $934be303,
      $552030fa, $f6ad766d, $9188cc76, $25f5024c,
      $fc4fe5d7, $d7c52acb, $80263544, $8fb562a3,
      $49deb15a, $6725ba1b, $9845ea0e, $e15dfec0,
      $02c32f75, $12814cf0, $a38d4697, $c66bd3f9,
      $e7038f5f, $9515929c, $ebbf6d7a, $da955259,
      $2dd4be83, $d3587421, $2949e069, $448ec9c8,
      $6a75c289, $78f48e79, $6b99583e, $dd27b971,
      $b6bee14f, $17f088ad, $66c920ac, $b47dce3a,
      $1863df4a, $82e51a31, $60975133, $4562537f,
      $e0b16477, $84bb6bae, $1cfe81a0, $94f9082b,
      $58704868, $198f45fd, $8794de6c, $b7527bf8,
      $23ab73d3, $e2724b02, $57e31f8f, $2a6655ab,
      $07b2eb28, $032fb5c2, $9a86c57b, $a5d33708,
      $f2302887, $b223bfa5, $ba02036a, $5ced1682,
      $2b8acf1c, $92a779b4, $f0f307f2, $a14e69e2,
      $cd65daf4, $d50605be, $1fd13462, $8ac4a6fe,
      $9d342e53, $a0a2f355, $32058ae1, $75a4f6eb,
      $390b83ec, $aa4060ef, $065e719f, $51bd6e10,
      $f93e218a, $3d96dd06, $aedd3e05, $464de6bd,
      $b591548d, $0571c45d, $6f0406d4, $ff605015,
      $241998fb, $97d6bde9, $cc894043, $7767d99e,
      $bdb0e842, $8807898b, $38e7195b, $db79c8ee,
      $47a17c0a, $e97c420f, $c9f8841e, $00000000,
      $83098086, $48322bed, $ac1e1170, $4e6c5a72,
      $fbfd0eff, $560f8538, $1e3daed5, $27362d39,
      $640a0fd9, $21685ca6, $d19b5b54, $3a24362e,
      $b10c0a67, $0f9357e7, $d2b4ee96, $9e1b9b91,
      $4f80c0c5, $a261dc20, $695a774b, $161c121a,
      $0ae293ba, $e5c0a02a, $433c22e0, $1d121b17,
      $0b0e090d, $adf28bc7, $b92db6a8, $c8141ea9,
      $8557f119, $4caf7507, $bbee99dd, $fda37f60,
      $9ff70126, $bc5c72f5, $c544663b, $345bfb7e,
      $768b4329, $dccb23c6, $68b6edfc, $63b8e4f1,
      $cad731dc, $10426385, $40139722, $2084c611,
      $7d854a24, $f8d2bb3d, $11aef932, $6dc729a1,
      $4b1d9e2f, $f3dcb230, $ec0d8652, $d077c1e3,
      $6c2bb316, $99a970b9, $fa119448, $2247e964,
      $c4a8fc8c, $1aa0f03f, $d8567d2c, $ef223390,
      $c787494e, $c1d938d1, $fe8ccaa2, $3698d40b,
      $cfa6f581, $28a57ade, $26dab78e, $a43fadbf,
      $e42c3a9d, $0d507892, $9b6a5fcc, $62547e46,
      $c2f68d13, $e890d8b8, $5e2e39f7, $f582c3af,
      $be9f5d80, $7c69d093, $a96fd52d, $b3cf2512,
      $3bc8ac99, $a710187d, $6ee89c63, $7bdb3bbb,
      $09cd2678, $f46e5918, $01ec9ab7, $a8834f9a,
      $65e6956e, $7eaaffe6, $0821bccf, $e6ef15e8,
      $d9bae79b, $ce4a6f36, $d4ea9f09, $d629b07c,
      $af31a4b2, $312a3f23, $30c6a594, $c035a266,
      $37744ebc, $a6fc82ca, $b0e090d0, $1533a7d8,
      $4af10498, $f741ecda, $0e7fcd50, $2f1791f6,
      $8d764dd6, $4d43efb0, $54ccaa4d, $dfe49604,
      $e39ed1b5, $1b4c6a88, $b8c12c1f, $7f466551,
      $049d5eea, $5d018c35, $73fa8774, $2efb0b41,
      $5ab3671d, $5292dbd2, $33e91056, $136dd647,
      $8c9ad761, $7a37a10c, $8e59f814, $89eb133c,
      $eecea927, $35b761c9, $ede11ce5, $3c7a47b1,
      $599cd2df, $3f55f273, $791814ce, $bf73c737,
      $ea53f7cd, $5b5ffdaa, $14df3d6f, $867844db,
      $81caaff3, $3eb968c4, $2c382434, $5fc2a340,
      $72161dc3, $0cbce225, $8b283c49, $41ff0d95,
      $7139a801, $de080cb3, $9cd8b4e4, $906456c1,
      $617bcb84, $70d532b6, $74486c5c, $42d0b857
  );
  const Td2:array[0..255]of dword=(
      $a75051f4, $65537e41, $a4c31a17, $5e963a27,
      $6bcb3bab, $45f11f9d, $58abacfa, $03934be3,
      $fa552030, $6df6ad76, $769188cc, $4c25f502,
      $d7fc4fe5, $cbd7c52a, $44802635, $a38fb562,
      $5a49deb1, $1b6725ba, $0e9845ea, $c0e15dfe,
      $7502c32f, $f012814c, $97a38d46, $f9c66bd3,
      $5fe7038f, $9c951592, $7aebbf6d, $59da9552,
      $832dd4be, $21d35874, $692949e0, $c8448ec9,
      $896a75c2, $7978f48e, $3e6b9958, $71dd27b9,
      $4fb6bee1, $ad17f088, $ac66c920, $3ab47dce,
      $4a1863df, $3182e51a, $33609751, $7f456253,
      $77e0b164, $ae84bb6b, $a01cfe81, $2b94f908,
      $68587048, $fd198f45, $6c8794de, $f8b7527b,
      $d323ab73, $02e2724b, $8f57e31f, $ab2a6655,
      $2807b2eb, $c2032fb5, $7b9a86c5, $08a5d337,
      $87f23028, $a5b223bf, $6aba0203, $825ced16,
      $1c2b8acf, $b492a779, $f2f0f307, $e2a14e69,
      $f4cd65da, $bed50605, $621fd134, $fe8ac4a6,
      $539d342e, $55a0a2f3, $e132058a, $eb75a4f6,
      $ec390b83, $efaa4060, $9f065e71, $1051bd6e,
      $8af93e21, $063d96dd, $05aedd3e, $bd464de6,
      $8db59154, $5d0571c4, $d46f0406, $15ff6050,
      $fb241998, $e997d6bd, $43cc8940, $9e7767d9,
      $42bdb0e8, $8b880789, $5b38e719, $eedb79c8,
      $0a47a17c, $0fe97c42, $1ec9f884, $00000000,
      $86830980, $ed48322b, $70ac1e11, $724e6c5a,
      $fffbfd0e, $38560f85, $d51e3dae, $3927362d,
      $d9640a0f, $a621685c, $54d19b5b, $2e3a2436,
      $67b10c0a, $e70f9357, $96d2b4ee, $919e1b9b,
      $c54f80c0, $20a261dc, $4b695a77, $1a161c12,
      $ba0ae293, $2ae5c0a0, $e0433c22, $171d121b,
      $0d0b0e09, $c7adf28b, $a8b92db6, $a9c8141e,
      $198557f1, $074caf75, $ddbbee99, $60fda37f,
      $269ff701, $f5bc5c72, $3bc54466, $7e345bfb,
      $29768b43, $c6dccb23, $fc68b6ed, $f163b8e4,
      $dccad731, $85104263, $22401397, $112084c6,
      $247d854a, $3df8d2bb, $3211aef9, $a16dc729,
      $2f4b1d9e, $30f3dcb2, $52ec0d86, $e3d077c1,
      $166c2bb3, $b999a970, $48fa1194, $642247e9,
      $8cc4a8fc, $3f1aa0f0, $2cd8567d, $90ef2233,
      $4ec78749, $d1c1d938, $a2fe8cca, $0b3698d4,
      $81cfa6f5, $de28a57a, $8e26dab7, $bfa43fad,
      $9de42c3a, $920d5078, $cc9b6a5f, $4662547e,
      $13c2f68d, $b8e890d8, $f75e2e39, $aff582c3,
      $80be9f5d, $937c69d0, $2da96fd5, $12b3cf25,
      $993bc8ac, $7da71018, $636ee89c, $bb7bdb3b,
      $7809cd26, $18f46e59, $b701ec9a, $9aa8834f,
      $6e65e695, $e67eaaff, $cf0821bc, $e8e6ef15,
      $9bd9bae7, $36ce4a6f, $09d4ea9f, $7cd629b0,
      $b2af31a4, $23312a3f, $9430c6a5, $66c035a2,
      $bc37744e, $caa6fc82, $d0b0e090, $d81533a7,
      $984af104, $daf741ec, $500e7fcd, $f62f1791,
      $d68d764d, $b04d43ef, $4d54ccaa, $04dfe496,
      $b5e39ed1, $881b4c6a, $1fb8c12c, $517f4665,
      $ea049d5e, $355d018c, $7473fa87, $412efb0b,
      $1d5ab367, $d25292db, $5633e910, $47136dd6,
      $618c9ad7, $0c7a37a1, $148e59f8, $3c89eb13,
      $27eecea9, $c935b761, $e5ede11c, $b13c7a47,
      $df599cd2, $733f55f2, $ce791814, $37bf73c7,
      $cdea53f7, $aa5b5ffd, $6f14df3d, $db867844,
      $f381caaf, $c43eb968, $342c3824, $405fc2a3,
      $c372161d, $250cbce2, $498b283c, $9541ff0d,
      $017139a8, $b3de080c, $e49cd8b4, $c1906456,
      $84617bcb, $b670d532, $5c74486c, $5742d0b8
  );
  const Td3:array[0..255]of dword=(
      $f4a75051, $4165537e, $17a4c31a, $275e963a,
      $ab6bcb3b, $9d45f11f, $fa58abac, $e303934b,
      $30fa5520, $766df6ad, $cc769188, $024c25f5,
      $e5d7fc4f, $2acbd7c5, $35448026, $62a38fb5,
      $b15a49de, $ba1b6725, $ea0e9845, $fec0e15d,
      $2f7502c3, $4cf01281, $4697a38d, $d3f9c66b,
      $8f5fe703, $929c9515, $6d7aebbf, $5259da95,
      $be832dd4, $7421d358, $e0692949, $c9c8448e,
      $c2896a75, $8e7978f4, $583e6b99, $b971dd27,
      $e14fb6be, $88ad17f0, $20ac66c9, $ce3ab47d,
      $df4a1863, $1a3182e5, $51336097, $537f4562,
      $6477e0b1, $6bae84bb, $81a01cfe, $082b94f9,
      $48685870, $45fd198f, $de6c8794, $7bf8b752,
      $73d323ab, $4b02e272, $1f8f57e3, $55ab2a66,
      $eb2807b2, $b5c2032f, $c57b9a86, $3708a5d3,
      $2887f230, $bfa5b223, $036aba02, $16825ced,
      $cf1c2b8a, $79b492a7, $07f2f0f3, $69e2a14e,
      $daf4cd65, $05bed506, $34621fd1, $a6fe8ac4,
      $2e539d34, $f355a0a2, $8ae13205, $f6eb75a4,
      $83ec390b, $60efaa40, $719f065e, $6e1051bd,
      $218af93e, $dd063d96, $3e05aedd, $e6bd464d,
      $548db591, $c45d0571, $06d46f04, $5015ff60,
      $98fb2419, $bde997d6, $4043cc89, $d99e7767,
      $e842bdb0, $898b8807, $195b38e7, $c8eedb79,
      $7c0a47a1, $420fe97c, $841ec9f8, $00000000,
      $80868309, $2bed4832, $1170ac1e, $5a724e6c,
      $0efffbfd, $8538560f, $aed51e3d, $2d392736,
      $0fd9640a, $5ca62168, $5b54d19b, $362e3a24,
      $0a67b10c, $57e70f93, $ee96d2b4, $9b919e1b,
      $c0c54f80, $dc20a261, $774b695a, $121a161c,
      $93ba0ae2, $a02ae5c0, $22e0433c, $1b171d12,
      $090d0b0e, $8bc7adf2, $b6a8b92d, $1ea9c814,
      $f1198557, $75074caf, $99ddbbee, $7f60fda3,
      $01269ff7, $72f5bc5c, $663bc544, $fb7e345b,
      $4329768b, $23c6dccb, $edfc68b6, $e4f163b8,
      $31dccad7, $63851042, $97224013, $c6112084,
      $4a247d85, $bb3df8d2, $f93211ae, $29a16dc7,
      $9e2f4b1d, $b230f3dc, $8652ec0d, $c1e3d077,
      $b3166c2b, $70b999a9, $9448fa11, $e9642247,
      $fc8cc4a8, $f03f1aa0, $7d2cd856, $3390ef22,
      $494ec787, $38d1c1d9, $caa2fe8c, $d40b3698,
      $f581cfa6, $7ade28a5, $b78e26da, $adbfa43f,
      $3a9de42c, $78920d50, $5fcc9b6a, $7e466254,
      $8d13c2f6, $d8b8e890, $39f75e2e, $c3aff582,
      $5d80be9f, $d0937c69, $d52da96f, $2512b3cf,
      $ac993bc8, $187da710, $9c636ee8, $3bbb7bdb,
      $267809cd, $5918f46e, $9ab701ec, $4f9aa883,
      $956e65e6, $ffe67eaa, $bccf0821, $15e8e6ef,
      $e79bd9ba, $6f36ce4a, $9f09d4ea, $b07cd629,
      $a4b2af31, $3f23312a, $a59430c6, $a266c035,
      $4ebc3774, $82caa6fc, $90d0b0e0, $a7d81533,
      $04984af1, $ecdaf741, $cd500e7f, $91f62f17,
      $4dd68d76, $efb04d43, $aa4d54cc, $9604dfe4,
      $d1b5e39e, $6a881b4c, $2c1fb8c1, $65517f46,
      $5eea049d, $8c355d01, $877473fa, $0b412efb,
      $671d5ab3, $dbd25292, $105633e9, $d647136d,
      $d7618c9a, $a10c7a37, $f8148e59, $133c89eb,
      $a927eece, $61c935b7, $1ce5ede1, $47b13c7a,
      $d2df599c, $f2733f55, $14ce7918, $c737bf73,
      $f7cdea53, $fdaa5b5f, $3d6f14df, $44db8678,
      $aff381ca, $68c43eb9, $24342c38, $a3405fc2,
      $1dc37216, $e2250cbc, $3c498b28, $0d9541ff,
      $a8017139, $0cb3de08, $b4e49cd8, $56c19064,
      $cb84617b, $32b670d5, $6c5c7448, $b85742d0
  );
  procedure AES_encrypt(
    const in_AES_encrypt  : pchar;
    var   out_AES_encrypt : pchar;
    const            key  : pAES_KEY
  );
  var
    rk:pdword;
    s0, s1, s2, s3:dword;
    t:array[0..3]of dword;
    r:dword;

  var
    i:dword;
    r0, r1, r2:dword;
  begin



  //  assert(in and out and key);
    rk := key^.rd_key;

    (*
     * map byte array block to cipher state
     * and add initial round key:
     *)
    s0 := GETU32(in_AES_encrypt     ) xor rk[0];
    s1 := GETU32(in_AES_encrypt +  4) xor rk[1];
    s2 := GETU32(in_AES_encrypt +  8) xor rk[2];
    s3 := GETU32(in_AES_encrypt + 12) xor rk[3];

  {$if defined(AES_COMPACT_IN_OUTER_ROUNDS)}
  //  prefetch256(Te4);

    t[0] :=  Te4[(s0      ) AND $ff]       xor
      Te4[(s1 shr  8) AND $ff] shl  8 xor
      Te4[(s2 shr 16) AND $ff] shl 16 xor
      Te4[(s3 shr 24)       ] shl 24;
    t[1] :=  Te4[(s1      ) AND $ff]       xor
      Te4[(s2 shr  8) AND $ff] shl  8 xor
      Te4[(s3 shr 16) AND $ff] shl 16 xor
      Te4[(s0 shr 24)       ] shl 24;
    t[2] :=  Te4[(s2      ) AND $ff]       xor
      Te4[(s3 shr  8) AND $ff] shl  8 xor
      Te4[(s0 shr 16) AND $ff] shl 16 xor
      Te4[(s1 shr 24)       ] shl 24;
    t[3] :=  Te4[(s3      ) AND $ff]       xor
      Te4[(s0 shr  8) AND $ff] shl  8 xor
      Te4[(s1 shr 16) AND $ff] shl 16 xor
      Te4[(s2 shr 24)       ] shl 24;

    (* now do the linear transform using words *)
    begin
                  i := 0;
      while ( i < 4) do begin
        r0 := t[i];
        r1 := r0 AND $80808080;
        r2 := ((r0 AND $7f7f7f7f) shl 1) xor
          ((r1 - (r1 shr 7)) AND $1b1b1b1b);
  {$if defined(ROTATE)}
        t[i] := r2 xor ROTATE(r2,24) xor ROTATE(r0,24) xor
          ROTATE(r0,16) xor ROTATE(r0,8);
  {$else}
        t[i] := r2 xor ((r2 xor r0) shl 24) xor ((r2 xor r0) shr 8) xor
          (r0 shl 16) xor (r0 shr 16) xor
          (r0 shl 8) xor (r0 shr 24);
  {$endif}
        t[i] := t[i] xor rk[4+i];
                    inc(i);
      end;
    end;
  {$else}
    t[0] :=  Te0[(s0      ) AND $ff] xor
      Te1[(s1 shr  8) AND $ff] xor
      Te2[(s2 shr 16) AND $ff] xor
      Te3[(s3 shr 24)       ] xor
      rk[4];
    t[1] :=  Te0[(s1      ) AND $ff] xor
      Te1[(s2 shr  8) AND $ff] xor
      Te2[(s3 shr 16) AND $ff] xor
      Te3[(s0 shr 24)       ] xor
      rk[5];
    t[2] :=  Te0[(s2      ) AND $ff] xor
      Te1[(s3 shr  8) AND $ff] xor
      Te2[(s0 shr 16) AND $ff] xor
      Te3[(s1 shr 24)       ] xor
      rk[6];
    t[3] :=  Te0[(s3      ) AND $ff] xor
      Te1[(s0 shr  8) AND $ff] xor
      Te2[(s1 shr 16) AND $ff] xor
      Te3[(s2 shr 24)       ] xor
      rk[7];
  {$endif}
    s0 := t[0]; s1 := t[1]; s2 := t[2]; s3 := t[3];

      (*
       * Nr - 2 full rounds:
       *)
      rk:=rk+8;r:=key^.rounds-2;
      while ( r>0) do begin
  {$if defined(AES_COMPACT_IN_INNER_ROUNDS)}
    t[0] :=  Te4[(s0      ) AND $ff]       xor
      Te4[(s1 shr  8) AND $ff] shl  8 xor
      Te4[(s2 shr 16) AND $ff] shl 16 xor
      Te4[(s3 shr 24)       ] shl 24;
    t[1] :=  Te4[(s1      ) AND $ff]       xor
      Te4[(s2 shr  8) AND $ff] shl  8 xor
      Te4[(s3 shr 16) AND $ff] shl 16 xor
      Te4[(s0 shr 24)       ] shl 24;
    t[2] :=  Te4[(s2      ) AND $ff]       xor
      Te4[(s3 shr  8) AND $ff] shl  8 xor
      Te4[(s0 shr 16) AND $ff] shl 16 xor
      Te4[(s1 shr 24)       ] shl 24;
    t[3] :=  Te4[(s3      ) AND $ff]       xor
      Te4[(s0 shr  8) AND $ff] shl  8 xor
      Te4[(s1 shr 16) AND $ff] shl 16 xor
      Te4[(s2 shr 24)       ] shl 24;

    (* now do the linear transform using words *)
    begin  int i;
      u32 r0, r1, r2;

      for (i := 0; i < 4; i++) begin
        r0 := t[i];
        r1 := r0 AND $80808080;
        r2 := ((r0 AND $7f7f7f7f) shl 1) xor
          ((r1 - (r1 shr 7)) AND $1b1b1b1b);
  {$if defined(ROTATE)}
        t[i] := r2 xor ROTATE(r2,24) xor ROTATE(r0,24) xor
          ROTATE(r0,16) xor ROTATE(r0,8);
  {$else}
        t[i] := r2 xor ((r2 xor r0) shl 24) xor ((r2 xor r0) shr 8) xor
          (r0 shl 16) xor (r0 shr 16) xor
          (r0 shl 8) xor (r0 shr 24);
  {$endif}
        t[i] xor:= rk[i];
      end;
    end;
  {$else}
    t[0] :=  Te0[(s0       ) AND $ff] xor
      Te1[(s1 shr  8) AND $ff] xor
      Te2[(s2 shr 16) AND $ff] xor
      Te3[(s3 shr 24)        ] xor
      rk[0];
    t[1] :=  Te0[(s1       ) AND $ff] xor
      Te1[(s2 shr  8) AND $ff] xor
      Te2[(s3 shr 16) AND $ff] xor
      Te3[(s0 shr 24)        ] xor
      rk[1];
    t[2] :=  Te0[(s2       ) AND $ff] xor
      Te1[(s3 shr  8) AND $ff] xor
      Te2[(s0 shr 16) AND $ff] xor
      Te3[(s1 shr 24)        ] xor
      rk[2];
    t[3] :=  Te0[(s3       ) AND $ff] xor
      Te1[(s0 shr  8) AND $ff] xor
      Te2[(s1 shr 16) AND $ff] xor
      Te3[(s2 shr 24)        ] xor
      rk[3];
  {$endif}
    s0 := t[0]; s1 := t[1]; s2 := t[2]; s3 := t[3];
          rk:=rk+4;dec(r);
      end;
      (*
     * apply last round and
     * map cipher state to byte array block:
     *)
  {$if defined(AES_COMPACT_IN_OUTER_ROUNDS)}
  //  prefetch256(Te4);

    (pdword(out_AES_encrypt+0))^ :=
      Te4[(s0      ) AND $ff]       xor
      Te4[(s1 shr  8) AND $ff] shl  8 xor
      Te4[(s2 shr 16) AND $ff] shl 16 xor
      Te4[(s3 shr 24)       ] shl 24 xor
      rk[0];
    (pdword(out_AES_encrypt+4))^ :=
      Te4[(s1      ) AND $ff]       xor
      Te4[(s2 shr  8) AND $ff] shl  8 xor
      Te4[(s3 shr 16) AND $ff] shl 16 xor
      Te4[(s0 shr 24)       ] shl 24 xor
      rk[1];
    (pdword(out_AES_encrypt+8))^ :=
      Te4[(s2      ) AND $ff]       xor
      Te4[(s3 shr  8) AND $ff] shl  8 xor
      Te4[(s0 shr 16) AND $ff] shl 16 xor
      Te4[(s1 shr 24)       ] shl 24 xor
      rk[2];
    (pdword(out_AES_encrypt+12))^ :=
      Te4[(s3      ) AND $ff]       xor
      Te4[(s0 shr  8) AND $ff] shl  8 xor
      Te4[(s1 shr 16) AND $ff] shl 16 xor
      Te4[(s2 shr 24)       ] shl 24 xor
      rk[3];
  {$else}
    *(u32*)(out_AES_encrypt+0) :=
      (Te2[(s0      ) AND $ff] AND $000000ffU) xor
      (Te3[(s1 shr  8) AND $ff] AND $0000ff00U) xor
      (Te0[(s2 shr 16) AND $ff] AND $00ff0000U) xor
      (Te1[(s3 shr 24)       ] AND $ff000000U) xor
      rk[0];
    *(u32*)(out_AES_encrypt+4) :=
      (Te2[(s1      ) AND $ff] AND $000000ffU) xor
      (Te3[(s2 shr  8) AND $ff] AND $0000ff00U) xor
      (Te0[(s3 shr 16) AND $ff] AND $00ff0000U) xor
      (Te1[(s0 shr 24)       ] AND $ff000000U) xor
      rk[1];
    *(u32*)(out_AES_encrypt+8) :=
      (Te2[(s2      ) AND $ff] AND $000000ffU) xor
      (Te3[(s3 shr  8) AND $ff] AND $0000ff00U) xor
      (Te0[(s0 shr 16) AND $ff] AND $00ff0000U) xor
      (Te1[(s1 shr 24)       ] AND $ff000000U) xor
      rk[2];
    *(u32*)(out_AES_encrypt+12) :=
      (Te2[(s3      ) AND $ff] AND $000000ffU) xor
      (Te3[(s0 shr  8) AND $ff] AND $0000ff00U) xor
      (Te0[(s1 shr 16) AND $ff] AND $00ff0000U) xor
      (Te1[(s2 shr 24)       ] AND $ff000000U) xor
      rk[3];
  {$endif}
  end;

  (*
   * Decrypt a single block
   * in and out can overlap
   *)
  procedure AES_decrypt(
    const in_AES_decrypt  : pchar;
    var   out_AES_decrypt : pchar;
    const key             : pAES_KEY
  );
  var
    rk:pdword;
    s0, s1, s2, s3:dword;
    t:array[0..3]of dword;
    r:dword;

    i:dword;
    tp1, tp2, tp4, tp8, tp9, tpb, tpd, tpe, m:dword;
  begin



  //  assert(in and out and key);
    rk := key^.rd_key;

    (*
     * map byte array block to cipher state
     * and add initial round key:
     *)
    s0 := GETU32(in_AES_decrypt     ) xor rk[0];
    s1 := GETU32(in_AES_decrypt +  4) xor rk[1];
    s2 := GETU32(in_AES_decrypt +  8) xor rk[2];
    s3 := GETU32(in_AES_decrypt + 12) xor rk[3];

  {$if defined(AES_COMPACT_IN_OUTER_ROUNDS)}
  //  prefetch256(Td4);

          t[0] :=  Td4[(s0      ) AND $ff]       xor
      Td4[(s3 shr  8) AND $ff] shl  8 xor
      Td4[(s2 shr 16) AND $ff] shl 16 xor
      Td4[(s1 shr 24)       ] shl 24;
          t[1] :=  Td4[(s1      ) AND $ff]       xor
      Td4[(s0 shr  8) AND $ff] shl  8 xor
      Td4[(s3 shr 16) AND $ff] shl 16 xor
      Td4[(s2 shr 24)       ] shl 24;
          t[2] :=  Td4[(s2      ) AND $ff]       xor
      Td4[(s1 shr  8) AND $ff] shl  8 xor
      Td4[(s0 shr 16) AND $ff] shl 16 xor
      Td4[(s3 shr 24)       ] shl 24;
          t[3] :=  Td4[(s3      ) AND $ff]       xor
      Td4[(s2 shr  8) AND $ff] shl  8 xor
      Td4[(s1 shr 16) AND $ff] shl 16 xor
      Td4[(s0 shr 24)       ] shl 24;

    (* now do the linear transform using words *)
    begin
                  i := 0;
      while ( i < 4) do begin
        tp1 := t[i];
        m := tp1 AND $80808080;
        tp2 := ((tp1 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        m := tp2 AND $80808080;
        tp4 := ((tp2 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        m := tp4 AND $80808080;
        tp8 := ((tp4 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        tp9 := tp8 xor tp1;
        tpb := tp9 xor tp2;
        tpd := tp9 xor tp4;
        tpe := tp8 xor tp4 xor tp2;
  {$if defined(ROTATE)}
        t[i] := tpe xor ROTATE(tpd,16) xor
          ROTATE(tp9,8) xor ROTATE(tpb,24);
  {$else}
        t[i] := tpe xor (tpd shr 16) xor (tpd shl 16) xor
          (tp9 shr 24) xor (tp9 shl 8) xor
          (tpb shr 8) xor (tpb shl 24);
  {$endif}
        t[i] := t[i] xor rk[4+i];
                    inc(i);
      end;
    end;
  {$else}
    t[0] :=  Td0[(s0      ) AND $ff] xor
      Td1[(s3 shr  8) AND $ff] xor
      Td2[(s2 shr 16) AND $ff] xor
      Td3[(s1 shr 24)       ] xor
      rk[4];
    t[1] :=  Td0[(s1      ) AND $ff] xor
      Td1[(s0 shr  8) AND $ff] xor
      Td2[(s3 shr 16) AND $ff] xor
      Td3[(s2 shr 24)       ] xor
      rk[5];
    t[2] :=  Td0[(s2      ) AND $ff] xor
      Td1[(s1 shr  8) AND $ff] xor
      Td2[(s0 shr 16) AND $ff] xor
      Td3[(s3 shr 24)       ] xor
      rk[6];
    t[3] :=  Td0[(s3      ) AND $ff] xor
      Td1[(s2 shr  8) AND $ff] xor
      Td2[(s1 shr 16) AND $ff] xor
      Td3[(s0 shr 24)       ] xor
      rk[7];
  {$endif}
    s0 := t[0]; s1 := t[1]; s2 := t[2]; s3 := t[3];

      (*
       * Nr - 2 full rounds:
       *)
      rk:=rk+8;r:=key^.rounds-2;
      while ( r>0) do begin
  {$if defined(AES_COMPACT_IN_INNER_ROUNDS)}
          t[0] :=  Td4[(s0      ) AND $ff]       xor
      Td4[(s3 shr  8) AND $ff] shl  8 xor
      Td4[(s2 shr 16) AND $ff] shl 16 xor
      Td4[(s1 shr 24)       ] shl 24;
          t[1] :=  Td4[(s1      ) AND $ff]       xor
      Td4[(s0 shr  8) AND $ff] shl  8 xor
      Td4[(s3 shr 16) AND $ff] shl 16 xor
      Td4[(s2 shr 24)       ] shl 24;
          t[2] :=  Td4[(s2      ) AND $ff]       xor
      Td4[(s1 shr  8) AND $ff] shl  8 xor
      Td4[(s0 shr 16) AND $ff] shl 16 xor
      Td4[(s3 shr 24)       ] shl 24;
          t[3] :=  Td4[(s3      ) AND $ff]       xor
      Td4[(s2 shr  8) AND $ff] shl  8 xor
      Td4[(s1 shr 16) AND $ff] shl 16 xor
      Td4[(s0 shr 24)       ] shl 24;

    (* now do the linear transform using words *)
    begin  int i;
      u32 tp1, tp2, tp4, tp8, tp9, tpb, tpd, tpe, m;

      for (i := 0; i < 4; i++) begin
        tp1 := t[i];
        m := tp1 AND $80808080;
        tp2 := ((tp1 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        m := tp2 AND $80808080;
        tp4 := ((tp2 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        m := tp4 AND $80808080;
        tp8 := ((tp4 AND $7f7f7f7f) shl 1) xor
          ((m - (m shr 7)) AND $1b1b1b1b);
        tp9 := tp8 xor tp1;
        tpb := tp9 xor tp2;
        tpd := tp9 xor tp4;
        tpe := tp8 xor tp4 xor tp2;
  {$if defined(ROTATE)}
        t[i] := tpe xor ROTATE(tpd,16) xor
          ROTATE(tp9,8) xor ROTATE(tpb,24);
  {$else}
        t[i] := tpe xor (tpd shr 16) xor (tpd shl 16) xor
          (tp9 shr 24) xor (tp9 shl 8) xor
          (tpb shr 8) xor (tpb shl 24);
  {$endif}
        t[i] xor:= rk[i];
      end;
    end;
  {$else}
    t[0] :=  Td0[(s0      ) AND $ff] xor
      Td1[(s3 shr  8) AND $ff] xor
      Td2[(s2 shr 16) AND $ff] xor
      Td3[(s1 shr 24)       ] xor
      rk[0];
    t[1] :=  Td0[(s1      ) AND $ff] xor
      Td1[(s0 shr  8) AND $ff] xor
      Td2[(s3 shr 16) AND $ff] xor
      Td3[(s2 shr 24)       ] xor
      rk[1];
    t[2] :=  Td0[(s2      ) AND $ff] xor
      Td1[(s1 shr  8) AND $ff] xor
      Td2[(s0 shr 16) AND $ff] xor
      Td3[(s3 shr 24)       ] xor
      rk[2];
    t[3] :=  Td0[(s3      ) AND $ff] xor
      Td1[(s2 shr  8) AND $ff] xor
      Td2[(s1 shr 16) AND $ff] xor
      Td3[(s0 shr 24)       ] xor
      rk[3];
  {$endif}
    s0 := t[0]; s1 := t[1]; s2 := t[2]; s3 := t[3];
        rk:=rk+4;dec(r);
      end;
      (*
     * apply last round and
     * map cipher state to byte array block:
     *)
  //  prefetch256(Td4);

    (pdword(out_AES_decrypt+0))^ :=
      (Td4[(s0      ) AND $ff])  xor
      (Td4[(s3 shr  8) AND $ff] shl  8) xor
      (Td4[(s2 shr 16) AND $ff] shl 16) xor
      (Td4[(s1 shr 24)       ] shl 24) xor
      rk[0];
    (pdword(out_AES_decrypt+4))^ :=
      (Td4[(s1      ) AND $ff])   xor
      (Td4[(s0 shr  8) AND $ff] shl  8) xor
      (Td4[(s3 shr 16) AND $ff] shl 16) xor
      (Td4[(s2 shr 24)       ] shl 24) xor
      rk[1];
    (pdword(out_AES_decrypt+8))^ :=
      (Td4[(s2      ) AND $ff])   xor
      (Td4[(s1 shr  8) AND $ff] shl  8) xor
      (Td4[(s0 shr 16) AND $ff] shl 16) xor
      (Td4[(s3 shr 24)       ] shl 24) xor
      rk[2];
    (pdword(out_AES_decrypt+12))^ :=
      (Td4[(s3      ) AND $ff])   xor
      (Td4[(s2 shr  8) AND $ff] shl  8) xor
      (Td4[(s1 shr 16) AND $ff] shl 16) xor
      (Td4[(s0 shr 24)       ] shl 24) xor
      rk[3];
  end;



  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
  {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}