rijndael.pas

AES Source Code in Pascal

    $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 Te4: ARRAY [0..255] OF SET32 = (
    $63636363, $7c7c7c7c, $77777777, $7b7b7b7b,
    $f2f2f2f2, $6b6b6b6b, $6f6f6f6f, $c5c5c5c5,
    $30303030, $01010101, $67676767, $2b2b2b2b,
    $fefefefe, $d7d7d7d7, $abababab, $76767676,
    $cacacaca, $82828282, $c9c9c9c9, $7d7d7d7d,
    $fafafafa, $59595959, $47474747, $f0f0f0f0,
    $adadadad, $d4d4d4d4, $a2a2a2a2, $afafafaf,
    $9c9c9c9c, $a4a4a4a4, $72727272, $c0c0c0c0,
    $b7b7b7b7, $fdfdfdfd, $93939393, $26262626,
    $36363636, $3f3f3f3f, $f7f7f7f7, $cccccccc,
    $34343434, $a5a5a5a5, $e5e5e5e5, $f1f1f1f1,
    $71717171, $d8d8d8d8, $31313131, $15151515,
    $04040404, $c7c7c7c7, $23232323, $c3c3c3c3,
    $18181818, $96969696, $05050505, $9a9a9a9a,
    $07070707, $12121212, $80808080, $e2e2e2e2,
    $ebebebeb, $27272727, $b2b2b2b2, $75757575,
    $09090909, $83838383, $2c2c2c2c, $1a1a1a1a,
    $1b1b1b1b, $6e6e6e6e, $5a5a5a5a, $a0a0a0a0,
    $52525252, $3b3b3b3b, $d6d6d6d6, $b3b3b3b3,
    $29292929, $e3e3e3e3, $2f2f2f2f, $84848484,
    $53535353, $d1d1d1d1, $00000000, $edededed,
    $20202020, $fcfcfcfc, $b1b1b1b1, $5b5b5b5b,
    $6a6a6a6a, $cbcbcbcb, $bebebebe, $39393939,
    $4a4a4a4a, $4c4c4c4c, $58585858, $cfcfcfcf,
    $d0d0d0d0, $efefefef, $aaaaaaaa, $fbfbfbfb,
    $43434343, $4d4d4d4d, $33333333, $85858585,
    $45454545, $f9f9f9f9, $02020202, $7f7f7f7f,
    $50505050, $3c3c3c3c, $9f9f9f9f, $a8a8a8a8,
    $51515151, $a3a3a3a3, $40404040, $8f8f8f8f,
    $92929292, $9d9d9d9d, $38383838, $f5f5f5f5,
    $bcbcbcbc, $b6b6b6b6, $dadadada, $21212121,
    $10101010, $ffffffff, $f3f3f3f3, $d2d2d2d2,
    $cdcdcdcd, $0c0c0c0c, $13131313, $ecececec,
    $5f5f5f5f, $97979797, $44444444, $17171717,
    $c4c4c4c4, $a7a7a7a7, $7e7e7e7e, $3d3d3d3d,
    $64646464, $5d5d5d5d, $19191919, $73737373,
    $60606060, $81818181, $4f4f4f4f, $dcdcdcdc,
    $22222222, $2a2a2a2a, $90909090, $88888888,
    $46464646, $eeeeeeee, $b8b8b8b8, $14141414,
    $dededede, $5e5e5e5e, $0b0b0b0b, $dbdbdbdb,
    $e0e0e0e0, $32323232, $3a3a3a3a, $0a0a0a0a,
    $49494949, $06060606, $24242424, $5c5c5c5c,
    $c2c2c2c2, $d3d3d3d3, $acacacac, $62626262,
    $91919191, $95959595, $e4e4e4e4, $79797979,
    $e7e7e7e7, $c8c8c8c8, $37373737, $6d6d6d6d,
    $8d8d8d8d, $d5d5d5d5, $4e4e4e4e, $a9a9a9a9,
    $6c6c6c6c, $56565656, $f4f4f4f4, $eaeaeaea,
    $65656565, $7a7a7a7a, $aeaeaeae, $08080808,
    $babababa, $78787878, $25252525, $2e2e2e2e,
    $1c1c1c1c, $a6a6a6a6, $b4b4b4b4, $c6c6c6c6,
    $e8e8e8e8, $dddddddd, $74747474, $1f1f1f1f,
    $4b4b4b4b, $bdbdbdbd, $8b8b8b8b, $8a8a8a8a,
    $70707070, $3e3e3e3e, $b5b5b5b5, $66666666,
    $48484848, $03030303, $f6f6f6f6, $0e0e0e0e,
    $61616161, $35353535, $57575757, $b9b9b9b9,
    $86868686, $c1c1c1c1, $1d1d1d1d, $9e9e9e9e,
    $e1e1e1e1, $f8f8f8f8, $98989898, $11111111,
    $69696969, $d9d9d9d9, $8e8e8e8e, $94949494,
    $9b9b9b9b, $1e1e1e1e, $87878787, $e9e9e9e9,
    $cececece, $55555555, $28282828, $dfdfdfdf,
    $8c8c8c8c, $a1a1a1a1, $89898989, $0d0d0d0d,
    $bfbfbfbf, $e6e6e6e6, $42424242, $68686868,
    $41414141, $99999999, $2d2d2d2d, $0f0f0f0f,
    $b0b0b0b0, $54545454, $bbbbbbbb, $16161616
);
const Td0: ARRAY [0..255] OF SET32 = (
    $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 SET32 = (
    $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 SET32 = (
    $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,