dcptiger.inc

delphi下一整套加密组件

const
  t1: array[0..255] of int64= (
    $02AAB17CF7E90C5E,    $AC424B03E243A8EC,
    $72CD5BE30DD5FCD3,    $6D019B93F6F97F3A,
    $CD9978FFD21F9193,    $7573A1C9708029E2,
    $B164326B922A83C3,    $46883EEE04915870,
    $EAACE3057103ECE6,    $C54169B808A3535C,
    $4CE754918DDEC47C,    $0AA2F4DFDC0DF40C,
    $10B76F18A74DBEFA,    $C6CCB6235AD1AB6A,
    $13726121572FE2FF,    $1A488C6F199D921E,
    $4BC9F9F4DA0007CA,    $26F5E6F6E85241C7,
    $859079DBEA5947B6,    $4F1885C5C99E8C92,
    $D78E761EA96F864B,    $8E36428C52B5C17D,
    $69CF6827373063C1,    $B607C93D9BB4C56E,
    $7D820E760E76B5EA,    $645C9CC6F07FDC42,
    $BF38A078243342E0,    $5F6B343C9D2E7D04,
    $F2C28AEB600B0EC6,    $6C0ED85F7254BCAC,
    $71592281A4DB4FE5,    $1967FA69CE0FED9F,
    $FD5293F8B96545DB,    $C879E9D7F2A7600B,
    $860248920193194E,    $A4F9533B2D9CC0B3,
    $9053836C15957613,    $DB6DCF8AFC357BF1,
    $18BEEA7A7A370F57,    $037117CA50B99066,
    $6AB30A9774424A35,    $F4E92F02E325249B,
    $7739DB07061CCAE1,    $D8F3B49CECA42A05,
    $BD56BE3F51382F73,    $45FAED5843B0BB28,
    $1C813D5C11BF1F83,    $8AF0E4B6D75FA169,
    $33EE18A487AD9999,    $3C26E8EAB1C94410,
    $B510102BC0A822F9,    $141EEF310CE6123B,
    $FC65B90059DDB154,    $E0158640C5E0E607,
    $884E079826C3A3CF,    $930D0D9523C535FD,
    $35638D754E9A2B00,    $4085FCCF40469DD5,
    $C4B17AD28BE23A4C,    $CAB2F0FC6A3E6A2E,
    $2860971A6B943FCD,    $3DDE6EE212E30446,
    $6222F32AE01765AE,    $5D550BB5478308FE,
    $A9EFA98DA0EDA22A,    $C351A71686C40DA7,
    $1105586D9C867C84,    $DCFFEE85FDA22853,
    $CCFBD0262C5EEF76,    $BAF294CB8990D201,
    $E69464F52AFAD975,    $94B013AFDF133E14,
    $06A7D1A32823C958,    $6F95FE5130F61119,
    $D92AB34E462C06C0,    $ED7BDE33887C71D2,
    $79746D6E6518393E,    $5BA419385D713329,
    $7C1BA6B948A97564,    $31987C197BFDAC67,
    $DE6C23C44B053D02,    $581C49FED002D64D,
    $DD474D6338261571,    $AA4546C3E473D062,
    $928FCE349455F860,    $48161BBACAAB94D9,
    $63912430770E6F68,    $6EC8A5E602C6641C,
    $87282515337DDD2B,    $2CDA6B42034B701B,
    $B03D37C181CB096D,    $E108438266C71C6F,
    $2B3180C7EB51B255,    $DF92B82F96C08BBC,
    $5C68C8C0A632F3BA,    $5504CC861C3D0556,
    $ABBFA4E55FB26B8F,    $41848B0AB3BACEB4,
    $B334A273AA445D32,    $BCA696F0A85AD881,
    $24F6EC65B528D56C,    $0CE1512E90F4524A,
    $4E9DD79D5506D35A,    $258905FAC6CE9779,
    $2019295B3E109B33,    $F8A9478B73A054CC,
    $2924F2F934417EB0,    $3993357D536D1BC4,
    $38A81AC21DB6FF8B,    $47C4FBF17D6016BF,
    $1E0FAADD7667E3F5,    $7ABCFF62938BEB96,
    $A78DAD948FC179C9,    $8F1F98B72911E50D,
    $61E48EAE27121A91,    $4D62F7AD31859808,
    $ECEBA345EF5CEAEB,    $F5CEB25EBC9684CE,
    $F633E20CB7F76221,    $A32CDF06AB8293E4,
    $985A202CA5EE2CA4,    $CF0B8447CC8A8FB1,
    $9F765244979859A3,    $A8D516B1A1240017,
    $0BD7BA3EBB5DC726,    $E54BCA55B86ADB39,
    $1D7A3AFD6C478063,    $519EC608E7669EDD,
    $0E5715A2D149AA23,    $177D4571848FF194,
    $EEB55F3241014C22,    $0F5E5CA13A6E2EC2,
    $8029927B75F5C361,    $AD139FABC3D6E436,
    $0D5DF1A94CCF402F,    $3E8BD948BEA5DFC8,
    $A5A0D357BD3FF77E,    $A2D12E251F74F645,
    $66FD9E525E81A082,    $2E0C90CE7F687A49,
    $C2E8BCBEBA973BC5,    $000001BCE509745F,
    $423777BBE6DAB3D6,    $D1661C7EAEF06EB5,
    $A1781F354DAACFD8,    $2D11284A2B16AFFC,
    $F1FC4F67FA891D1F,    $73ECC25DCB920ADA,
    $AE610C22C2A12651,    $96E0A810D356B78A,
    $5A9A381F2FE7870F,    $D5AD62EDE94E5530,
    $D225E5E8368D1427,    $65977B70C7AF4631,
    $99F889B2DE39D74F,    $233F30BF54E1D143,
    $9A9675D3D9A63C97,    $5470554FF334F9A8,
    $166ACB744A4F5688,    $70C74CAAB2E4AEAD,
    $F0D091646F294D12,    $57B82A89684031D1,
    $EFD95A5A61BE0B6B,    $2FBD12E969F2F29A,
    $9BD37013FEFF9FE8,    $3F9B0404D6085A06,
    $4940C1F3166CFE15,    $09542C4DCDF3DEFB,
    $B4C5218385CD5CE3,    $C935B7DC4462A641,
    $3417F8A68ED3B63F,    $B80959295B215B40,
    $F99CDAEF3B8C8572,    $018C0614F8FCB95D,
    $1B14ACCD1A3ACDF3,    $84D471F200BB732D,
    $C1A3110E95E8DA16,    $430A7220BF1A82B8,
    $B77E090D39DF210E,    $5EF4BD9F3CD05E9D,
    $9D4FF6DA7E57A444,    $DA1D60E183D4A5F8,
    $B287C38417998E47,    $FE3EDC121BB31886,
    $C7FE3CCC980CCBEF,    $E46FB590189BFD03,
    $3732FD469A4C57DC,    $7EF700A07CF1AD65,
    $59C64468A31D8859,    $762FB0B4D45B61F6,
    $155BAED099047718,    $68755E4C3D50BAA6,
    $E9214E7F22D8B4DF,    $2ADDBF532EAC95F4,
    $32AE3909B4BD0109,    $834DF537B08E3450,
    $FA209DA84220728D,    $9E691D9B9EFE23F7,
    $0446D288C4AE8D7F,    $7B4CC524E169785B,
    $21D87F0135CA1385,    $CEBB400F137B8AA5,
    $272E2B66580796BE,    $3612264125C2B0DE,
    $057702BDAD1EFBB2,    $D4BABB8EACF84BE9,
    $91583139641BC67B,    $8BDC2DE08036E024,
    $603C8156F49F68ED,    $F7D236F7DBEF5111,
    $9727C4598AD21E80,    $A08A0896670A5FD7,
    $CB4A8F4309EBA9CB,    $81AF564B0F7036A1,
    $C0B99AA778199ABD,    $959F1EC83FC8E952,
    $8C505077794A81B9,    $3ACAAF8F056338F0,
    $07B43F50627A6778,    $4A44AB49F5ECCC77,
    $3BC3D6E4B679EE98,    $9CC0D4D1CF14108C,
    $4406C00B206BC8A0,    $82A18854C8D72D89,
    $67E366B35C3C432C,    $B923DD61102B37F2,
    $56AB2779D884271D,    $BE83E1B0FF1525AF,
    $FB7C65D4217E49A9,    $6BDBE0E76D48E7D4,
    $08DF828745D9179E,    $22EA6A9ADD53BD34,
    $E36E141C5622200A,    $7F805D1B8CB750EE,
    $AFE5C7A59F58E837,    $E27F996A4FB1C23C,
    $D3867DFB0775F0D0,    $D0E673DE6E88891A,
    $123AEB9EAFB86C25,    $30F1D5D5C145B895,
    $BB434A2DEE7269E7,    $78CB67ECF931FA38,
    $F33B0372323BBF9C,    $52D66336FB279C74,
    $505F33AC0AFB4EAA,    $E8A5CD99A2CCE187,
    $534974801E2D30BB,    $8D2D5711D5876D90,
    $1F1A412891BC038E,    $D6E2E71D82E56648,
    $74036C3A497732B7,    $89B67ED96361F5AB,
    $FFED95D8F1EA02A2,    $E72B3BD61464D43D,
    $A6300F170BDC4820,    $EBC18760ED78A77A);
    
  t2: array[0..255] of int64= (
    $E6A6BE5A05A12138,    $B5A122A5B4F87C98,
    $563C6089140B6990,    $4C46CB2E391F5DD5,
    $D932ADDBC9B79434,    $08EA70E42015AFF5,
    $D765A6673E478CF1,    $C4FB757EAB278D99,
    $DF11C6862D6E0692,    $DDEB84F10D7F3B16,
    $6F2EF604A665EA04,    $4A8E0F0FF0E0DFB3,
    $A5EDEEF83DBCBA51,    $FC4F0A2A0EA4371E,
    $E83E1DA85CB38429,    $DC8FF882BA1B1CE2,
    $CD45505E8353E80D,    $18D19A00D4DB0717,
    $34A0CFEDA5F38101,    $0BE77E518887CAF2,
    $1E341438B3C45136,    $E05797F49089CCF9,
    $FFD23F9DF2591D14,    $543DDA228595C5CD,
    $661F81FD99052A33,    $8736E641DB0F7B76,
    $15227725418E5307,    $E25F7F46162EB2FA,
    $48A8B2126C13D9FE,    $AFDC541792E76EEA,
    $03D912BFC6D1898F,    $31B1AAFA1B83F51B,
    $F1AC2796E42AB7D9,    $40A3A7D7FCD2EBAC,
    $1056136D0AFBBCC5,    $7889E1DD9A6D0C85,
    $D33525782A7974AA,    $A7E25D09078AC09B,
    $BD4138B3EAC6EDD0,    $920ABFBE71EB9E70,
    $A2A5D0F54FC2625C,    $C054E36B0B1290A3,
    $F6DD59FF62FE932B,    $3537354511A8AC7D,
    $CA845E9172FADCD4,    $84F82B60329D20DC,
    $79C62CE1CD672F18,    $8B09A2ADD124642C,
    $D0C1E96A19D9E726,    $5A786A9B4BA9500C,
    $0E020336634C43F3,    $C17B474AEB66D822,
    $6A731AE3EC9BAAC2,    $8226667AE0840258,
    $67D4567691CAECA5,    $1D94155C4875ADB5,
    $6D00FD985B813FDF,    $51286EFCB774CD06,
    $5E8834471FA744AF,    $F72CA0AEE761AE2E,
    $BE40E4CDAEE8E09A,    $E9970BBB5118F665,
    $726E4BEB33DF1964,    $703B000729199762,
    $4631D816F5EF30A7,    $B880B5B51504A6BE,
    $641793C37ED84B6C,    $7B21ED77F6E97D96,
    $776306312EF96B73,    $AE528948E86FF3F4,
    $53DBD7F286A3F8F8,    $16CADCE74CFC1063,
    $005C19BDFA52C6DD,    $68868F5D64D46AD3,
    $3A9D512CCF1E186A,    $367E62C2385660AE,
    $E359E7EA77DCB1D7,    $526C0773749ABE6E,
    $735AE5F9D09F734B,    $493FC7CC8A558BA8,
    $B0B9C1533041AB45,    $321958BA470A59BD,
    $852DB00B5F46C393,    $91209B2BD336B0E5,
    $6E604F7D659EF19F,    $B99A8AE2782CCB24,
    $CCF52AB6C814C4C7,    $4727D9AFBE11727B,
    $7E950D0C0121B34D,    $756F435670AD471F,
    $F5ADD442615A6849,    $4E87E09980B9957A,
    $2ACFA1DF50AEE355,    $D898263AFD2FD556,
    $C8F4924DD80C8FD6,    $CF99CA3D754A173A,
    $FE477BACAF91BF3C,    $ED5371F6D690C12D,
    $831A5C285E687094,    $C5D3C90A3708A0A4,
    $0F7F903717D06580,    $19F9BB13B8FDF27F,
    $B1BD6F1B4D502843,    $1C761BA38FFF4012,
    $0D1530C4E2E21F3B,    $8943CE69A7372C8A,
    $E5184E11FEB5CE66,    $618BDB80BD736621,
    $7D29BAD68B574D0B,    $81BB613E25E6FE5B,
    $071C9C10BC07913F,    $C7BEEB7909AC2D97,
    $C3E58D353BC5D757,    $EB017892F38F61E8,
    $D4EFFB9C9B1CC21A,    $99727D26F494F7AB,
    $A3E063A2956B3E03,    $9D4A8B9A4AA09C30,
    $3F6AB7D500090FB4,    $9CC0F2A057268AC0,
    $3DEE9D2DEDBF42D1,    $330F49C87960A972,
    $C6B2720287421B41,    $0AC59EC07C00369C,
    $EF4EAC49CB353425,    $F450244EEF0129D8,
    $8ACC46E5CAF4DEB6,    $2FFEAB63989263F7,
    $8F7CB9FE5D7A4578,    $5BD8F7644E634635,
    $427A7315BF2DC900,    $17D0C4AA2125261C,
    $3992486C93518E50,    $B4CBFEE0A2D7D4C3,
    $7C75D6202C5DDD8D,    $DBC295D8E35B6C61,
    $60B369D302032B19,    $CE42685FDCE44132,
    $06F3DDB9DDF65610,    $8EA4D21DB5E148F0,
    $20B0FCE62FCD496F,    $2C1B912358B0EE31,
    $B28317B818F5A308,    $A89C1E189CA6D2CF,
    $0C6B18576AAADBC8,    $B65DEAA91299FAE3,
    $FB2B794B7F1027E7,    $04E4317F443B5BEB,
    $4B852D325939D0A6,    $D5AE6BEEFB207FFC,
    $309682B281C7D374,    $BAE309A194C3B475,
    $8CC3F97B13B49F05,    $98A9422FF8293967,
    $244B16B01076FF7C,    $F8BF571C663D67EE,
    $1F0D6758EEE30DA1,    $C9B611D97ADEB9B7,
    $B7AFD5887B6C57A2,    $6290AE846B984FE1,
    $94DF4CDEACC1A5FD,    $058A5BD1C5483AFF,
    $63166CC142BA3C37,    $8DB8526EB2F76F40,
    $E10880036F0D6D4E,    $9E0523C9971D311D,
    $45EC2824CC7CD691,    $575B8359E62382C9,
    $FA9E400DC4889995,    $D1823ECB45721568,
    $DAFD983B8206082F,    $AA7D29082386A8CB,
    $269FCD4403B87588,    $1B91F5F728BDD1E0,
    $E4669F39040201F6,    $7A1D7C218CF04ADE,
    $65623C29D79CE5CE,    $2368449096C00BB1,
    $AB9BF1879DA503BA,    $BC23ECB1A458058E,
    $9A58DF01BB401ECC,    $A070E868A85F143D,
    $4FF188307DF2239E,    $14D565B41A641183,
    $EE13337452701602,    $950E3DCF3F285E09,
    $59930254B9C80953,    $3BF299408930DA6D,
    $A955943F53691387,    $A15EDECAA9CB8784,
    $29142127352BE9A0,    $76F0371FFF4E7AFB,
    $0239F450274F2228,    $BB073AF01D5E868B,
    $BFC80571C10E96C1,    $D267088568222E23,
    $9671A3D48E80B5B0,    $55B5D38AE193BB81,
    $693AE2D0A18B04B8,    $5C48B4ECADD5335F,
    $FD743B194916A1CA,    $2577018134BE98C4,
    $E77987E83C54A4AD,    $28E11014DA33E1B9,
    $270CC59E226AA213,    $71495F756D1A5F60,
    $9BE853FB60AFEF77,    $ADC786A7F7443DBF,
    $0904456173B29A82,    $58BC7A66C232BD5E,
    $F306558C673AC8B2,    $41F639C6B6C9772A,
    $216DEFE99FDA35DA,    $11640CC71C7BE615,
    $93C43694565C5527,    $EA038E6246777839,
    $F9ABF3CE5A3E2469,    $741E768D0FD312D2,
    $0144B883CED652C6,    $C20B5A5BA33F8552,
    $1AE69633C3435A9D,    $97A28CA4088CFDEC,
    $8824A43C1E96F420,    $37612FA66EEEA746,
    $6B4CB165F9CF0E5A,    $43AA1C06A0ABFB4A,
    $7F4DC26FF162796B,    $6CBACC8E54ED9B0F,
    $A6B7FFEFD2BB253E,    $2E25BC95B0A29D4F,
    $86D6A58BDEF1388C,    $DED74AC576B6F054,
    $8030BDBC2B45805D,    $3C81AF70E94D9289,
    $3EFF6DDA9E3100DB,    $B38DC39FDFCC8847,
    $123885528D17B87E,    $F2DA0ED240B1B642,
    $44CEFADCD54BF9A9,    $1312200E433C7EE6,
    $9FFCC84F3A78C748,    $F0CD1F72248576BB,
    $EC6974053638CFE4,    $2BA7B67C0CEC4E4C,
    $AC2F4DF3E5CE32ED,    $CB33D14326EA4C11,
    $A4E9044CC77E58BC,    $5F513293D934FCEF,
    $5DC9645506E55444,    $50DE418F317DE40A,
    $388CB31A69DDE259,    $2DB4A83455820A86,
    $9010A91E84711AE9,    $4DF7F0B7B1498371,
    $D62A2EABC0977179,    $22FAC097AA8D5C0E);