const Mas: array[0..255] of DWORD =
(
$2C201919,
$0C10A0DE,
$0C71D350,
$2C416A97,
$0CB3344C,
$2C838D8B,
$2CE2FE05,
$0CD247C2,
$0D36FA74,
$2D0643B3,
$2D67303D,
$0D5789FA,
$2DA5D721,
$0D956EE6,
$0DF41D68,
$2DC4A4AF,
$0E3D6604,
$2E0DDFC3,
$2E6CAC4D,
$0E5C158A,
$2EAE4B51,
$0E9EF296,
$0EFF8118,
$2ECF38DF,
$2F2B8569,
$0F1B3CAE,
$0F7A4F20,
$2F4AF6E7,
$0FB8A83C,
$2F8811FB,
$2FE96275,
$0FD9DBB2,
$082A5EE4,
$281AE723,
$287B94AD,
$084B2D6A,
$28B973B1,
$0889CA76,
$08E8B9F8,
$28D8003F,
$293CBD89,
$090C044E,
$096D77C0,
$295DCE07,
$09AF90DC,
$299F291B,
$29FE5A95,
$09CEE352,
$2A3721F9,
$0A07983E,
$0A66EBB0,
$2A565277,
$0AA40CAC,
$2A94B56B,
$2AF5C6E5,
$0AC57F22,
$0B21C294,
$2B117B53,
$2B7008DD,
$0B40B11A,
$2BB2EFC1,
$0B825606,
$0BE32588,
$2BD39C4F,
$04042F24,
$243496E3,
$2455E56D,
$04655CAA,
$24970271,
$04A7BBB6,
$04C6C838,
$24F671FF,
$2512CC49,
$0522758E,
$05430600,
$2573BFC7,
$0581E11C,
$25B158DB,
$25D02B55,
$05E09292,
$26195039,
$0629E9FE,
$06489A70,
$267823B7,
$068A7D6C,
$26BAC4AB,
$26DBB725,
$06EB0EE2,
$070FB354,
$273F0A93,
$275E791D,
$076EC0DA,
$279C9E01,
$07AC27C6,
$07CD5448,
$27FDED8F,
$200E68D9,
$003ED11E,
$005FA290,
$206F1B57,
$009D458C,
$20ADFC4B,
$20CC8FC5,
$00FC3602,
$01188BB4,
$21283273,
$214941FD,
$0179F83A,
$218BA6E1,
$01BB1F26,
$01DA6CA8,
$21EAD56F,
$021317C4,
$2223AE03,
$2242DD8D,
$0272644A,
$22803A91,
$02B08356,
$02D1F0D8,
$22E1491F,
$2305F4A9,
$03354D6E,
$03543EE0,
$23648727,
$0396D9FC,
$23A6603B,
$23C713B5,
$03F7AA72,
$1C58CCA4,
$3C687563,
$3C0906ED,
$1C39BF2A,
$3CCBE1F1,
$1CFB5836,
$1C9A2BB8,
$3CAA927F,
$3D4E2FC9,
$1D7E960E,
$1D1FE580,
$3D2F5C47,
$1DDD029C,
$3DEDBB5B,
$3D8CC8D5,
$1DBC7112,
$3E45B3B9,
$1E750A7E,
$1E1479F0,
$3E24C037,
$1ED69EEC,
$3EE6272B,
$3E8754A5,
$1EB7ED62,
$1F5350D4,
$3F63E913,
$3F029A9D,
$1F32235A,
$3FC07D81,
$1FF0C446,
$1F91B7C8,
$3FA10E0F,
$38528B59,
$1862329E,
$18034110,
$3833F8D7,
$18C1A60C,
$38F11FCB,
$38906C45,
$18A0D582,
$19446834,
$3974D1F3,
$3915A27D,
$19251BBA,
$39D74561,
$19E7FCA6,
$19868F28,
$39B636EF,
$1A4FF444,
$3A7F4D83,
$3A1E3E0D,
$1A2E87CA,
$3ADCD911,
$1AEC60D6,
$1A8D1358,
$3ABDAA9F,
$3B591729,
$1B69AEEE,
$1B08DD60,
$3B3864A7,
$1BCA3A7C,
$3BFA83BB,
$3B9BF035,
$1BAB49F2,
$347CFA99,
$144C435E,
$142D30D0,
$341D8917,
$14EFD7CC,
$34DF6E0B,
$34BE1D85,
$148EA442,
$156A19F4,
$355AA033,
$353BD3BD,
$150B6A7A,
$35F934A1,
$15C98D66,
$15A8FEE8,
$3598472F,
$16618584,
$36513C43,
$36304FCD,
$1600F60A,
$36F2A8D1,
$16C21116,
$16A36298,
$3693DB5F,
$377766E9,
$1747DF2E,
$1726ACA0,
$37161567,
$17E44BBC,
$37D4F27B,
$37B581F5,
$17853832,
$1076BD64,
$304604A3,
$3027772D,
$1017CEEA,
$30E59031,
$10D529F6,
$10B45A78,
$3084E3BF,
$31605E09,
$1150E7CE,
$11319440,
$31012D87,
$11F3735C,
$31C3CA9B,
$31A2B915,
$119200D2,
$326BC279,
$125B7BBE,
$123A0830,
$320AB1F7,
$12F8EF2C,
$32C856EB,
$32A92565,
$12999CA2,
$137D2114,
$334D98D3,
$332CEB5D,
$131C529A,
$33EE0C41,
$13DEB586,
$13BFC608,
$338F7FCF
);
const Mas2: array[0..$17] of DWORD =
(
$336D1A92,
$06EA8CE3,
$0DD519C6,
$1BAA338C,
$37546718,
$0E9877F7,
$1D30EFEE,
$3A61DFDC,
$0173CE8E,
$02E79D1C,
$05CF3A38,
$0B9E7470,
$173CE8E0,
$2E79D1C0,
$3CC31A47,
$19B68D49,
$00C112BD,
$0182257A,
$03044AF4,
$060895E8,
$0C112BD0,
$182257A0,
$3044AF40,
$00B9E747

);
var i,v1,v2,v4: DWORD;
begin
v1:=mas[(x shr $18)];
v2:= x and $ffffff;
for i:=0 to $17 do
begin
v4:=(1 shl i) xor v2;
if v2>v4 then
v1 := v1 xor mas2[i];
end;
result:=v1;
end;