rijndaelstatic.cls

这是一个在vb下实现的各种加密程序,可以实现一般的文本加密和文件加密,但是很多算法都是已经被人破解过的.

        &HB1670A0C, &HFE75793, &HD296EEB4, &H9E919B1B, &H4FC5C080, &HA220DC61, &H694B775A, &H161A121C, &HABA93E2, &HE52AA0C0, &H43E0223C, &H1D171B12, &HB0D090E, &HADC78BF2, &HB9A8B62D, &HC8A91E14, _
        &H8519F157, &H4C0775AF, &HBBDD99EE, &HFD607FA3, &H9F2601F7, &HBCF5725C, &HC53B6644, &H347EFB5B, &H7629438B, &HDCC623CB, &H68FCEDB6, &H63F1E4B8, &HCADC31D7, &H10856342, &H40229713, &H2011C684, _
        &H7D244A85, &HF83DBBD2, &H1132F9AE, &H6DA129C7, &H4B2F9E1D, &HF330B2DC, &HEC52860D, &HD0E3C177, &H6C16B32B, &H99B970A9, &HFA489411, &H2264E947, &HC48CFCA8, &H1A3FF0A0, &HD82C7D56, &HEF903322, _
        &HC74E4987, &HC1D138D9, &HFEA2CA8C, &H360BD498, &HCF81F5A6, &H28DE7AA5, &H268EB7DA, &HA4BFAD3F, &HE49D3A2C, &HD927850, &H9BCC5F6A, &H62467E54, &HC2138DF6, &HE8B8D890, &H5EF7392E, &HF5AFC382, _
        &HBE805D9F, &H7C93D069, &HA92DD56F, &HB31225CF, &H3B99ACC8, &HA77D1810, &H6E639CE8, &H7BBB3BDB, &H97826CD, &HF418596E, &H1B79AEC, &HA89A4F83, &H656E95E6, &H7EE6FFAA, &H8CFBC21, &HE6E815EF, _
        &HD99BE7BA, &HCE366F4A, &HD4099FEA, &HD67CB029, &HAFB2A431, &H31233F2A, &H3094A5C6, &HC066A235, &H37BC4E74, &HA6CA82FC, &HB0D090E0, &H15D8A733, &H4A9804F1, &HF7DAEC41, &HE50CD7F, &H2FF69117, _
        &H8DD64D76, &H4DB0EF43, &H544DAACC, &HDF0496E4, &HE3B5D19E, &H1B886A4C, &HB81F2CC1, &H7F516546, &H4EA5E9D, &H5D358C01, &H737487FA, &H2E410BFB, &H5A1D67B3, &H52D2DB92, &H335610E9, &H1347D66D, _
        &H8C61D79A, &H7A0CA137, &H8E14F859, &H893C13EB, &HEE27A9CE, &H35C961B7, &HEDE51CE1, &H3CB1477A, &H59DFD29C, &H3F73F255, &H79CE1418, &HBF37C773, &HEACDF753, &H5BAAFD5F, &H146F3DDF, &H86DB4478, _
        &H81F3AFCA, &H3EC468B9, &H2C342438, &H5F40A3C2, &H72C31D16, &HC25E2BC, &H8B493C28, &H41950DFF, &H7101A839, &HDEB30C08, &H9CE4B4D8, &H90C15664, &H6184CB7B, &H70B632D5, &H745C6C48, &H4257B8D0)

    mTd0Ptr = VarPtr(mTd0(0))
End Sub

Private Sub InitTd1()
    mTd1 = Cor.NewLongs( _
        &HA7F45150, &H65417E53, &HA4171AC3, &H5E273A96, &H6BAB3BCB, &H459D1FF1, &H58FAACAB, &H3E34B93, &HFA302055, &H6D76ADF6, &H76CC8891, &H4C02F525, &HD7E54FFC, &HCB2AC5D7, &H44352680, &HA362B58F, _
        &H5AB1DE49, &H1BBA2567, &HEEA4598, &HC0FE5DE1, &H752FC302, &HF04C8112, &H97468DA3, &HF9D36BC6, &H5F8F03E7, &H9C921595, &H7A6DBFEB, &H595295DA, &H83BED42D, &H217458D3, &H69E04929, &HC8C98E44, _
        &H89C2756A, &H798EF478, &H3E58996B, &H71B927DD, &H4FE1BEB6, &HAD88F017, &HAC20C966, &H3ACE7DB4, &H4ADF6318, &H311AE582, &H33519760, &H7F536245, &H7764B1E0, &HAE6BBB84, &HA081FE1C, &H2B08F994, _
        &H68487058, &HFD458F19, &H6CDE9487, &HF87B52B7, &HD373AB23, &H24B72E2, &H8F1FE357, &HAB55662A, &H28EBB207, &HC2B52F03, &H7BC5869A, &H837D3A5, &H872830F2, &HA5BF23B2, &H6A0302BA, &H8216ED5C, _
        &H1CCF8A2B, &HB479A792, &HF207F3F0, &HE2694EA1, &HF4DA65CD, &HBE0506D5, &H6234D11F, &HFEA6C48A, &H532E349D, &H55F3A2A0, &HE18A0532, &HEBF6A475, &HEC830B39, &HEF6040AA, &H9F715E06, &H106EBD51, _
        &H8A213EF9, &H6DD963D, &H53EDDAE, &HBDE64D46, &H8D5491B5, &H5DC47105, &HD406046F, &H155060FF, &HFB981924, &HE9BDD697, &H434089CC, &H9ED96777, &H42E8B0BD, &H8B890788, &H5B19E738, &HEEC879DB, _
        &HA7CA147, &HF427CE9, &H1E84F8C9, &H0&, &H86800983, &HED2B3248, &H70111EAC, &H725A6C4E, &HFF0EFDFB, &H38850F56, &HD5AE3D1E, &H392D3627, &HD90F0A64, &HA65C6821, &H545B9BD1, &H2E36243A, _
        &H670A0CB1, &HE757930F, &H96EEB4D2, &H919B1B9E, &HC5C0804F, &H20DC61A2, &H4B775A69, &H1A121C16, &HBA93E20A, &H2AA0C0E5, &HE0223C43, &H171B121D, &HD090E0B, &HC78BF2AD, &HA8B62DB9, &HA91E14C8, _
        &H19F15785, &H775AF4C, &HDD99EEBB, &H607FA3FD, &H2601F79F, &HF5725CBC, &H3B6644C5, &H7EFB5B34, &H29438B76, &HC623CBDC, &HFCEDB668, &HF1E4B863, &HDC31D7CA, &H85634210, &H22971340, &H11C68420, _
        &H244A857D, &H3DBBD2F8, &H32F9AE11, &HA129C76D, &H2F9E1D4B, &H30B2DCF3, &H52860DEC, &HE3C177D0, &H16B32B6C, &HB970A999, &H489411FA, &H64E94722, &H8CFCA8C4, &H3FF0A01A, &H2C7D56D8, &H903322EF, _
        &H4E4987C7, &HD138D9C1, &HA2CA8CFE, &HBD49836, &H81F5A6CF, &HDE7AA528, &H8EB7DA26, &HBFAD3FA4, &H9D3A2CE4, &H9278500D, &HCC5F6A9B, &H467E5462, &H138DF6C2, &HB8D890E8, &HF7392E5E, &HAFC382F5, _
        &H805D9FBE, &H93D0697C, &H2DD56FA9, &H1225CFB3, &H99ACC83B, &H7D1810A7, &H639CE86E, &HBB3BDB7B, &H7826CD09, &H18596EF4, &HB79AEC01, &H9A4F83A8, &H6E95E665, &HE6FFAA7E, &HCFBC2108, &HE815EFE6, _
        &H9BE7BAD9, &H366F4ACE, &H99FEAD4, &H7CB029D6, &HB2A431AF, &H233F2A31, &H94A5C630, &H66A235C0, &HBC4E7437, &HCA82FCA6, &HD090E0B0, &HD8A73315, &H9804F14A, &HDAEC41F7, &H50CD7F0E, &HF691172F, _
        &HD64D768D, &HB0EF434D, &H4DAACC54, &H496E4DF, &HB5D19EE3, &H886A4C1B, &H1F2CC1B8, &H5165467F, &HEA5E9D04, &H358C015D, &H7487FA73, &H410BFB2E, &H1D67B35A, &HD2DB9252, &H5610E933, &H47D66D13, _
        &H61D79A8C, &HCA1377A, &H14F8598E, &H3C13EB89, &H27A9CEEE, &HC961B735, &HE51CE1ED, &HB1477A3C, &HDFD29C59, &H73F2553F, &HCE141879, &H37C773BF, &HCDF753EA, &HAAFD5F5B, &H6F3DDF14, &HDB447886, _
        &HF3AFCA81, &HC468B93E, &H3424382C, &H40A3C25F, &HC31D1672, &H25E2BC0C, &H493C288B, &H950DFF41, &H1A83971, &HB30C08DE, &HE4B4D89C, &HC1566490, &H84CB7B61, &HB632D570, &H5C6C4874, &H57B8D042)

    mTd1Ptr = VarPtr(mTd1(0))
End Sub

Private Sub InitTd2()
    mTd2 = Cor.NewLongs( _
        &HF45150A7, &H417E5365, &H171AC3A4, &H273A965E, &HAB3BCB6B, &H9D1FF145, &HFAACAB58, &HE34B9303, &H302055FA, &H76ADF66D, &HCC889176, &H2F5254C, &HE54FFCD7, &H2AC5D7CB, &H35268044, &H62B58FA3, _
        &HB1DE495A, &HBA25671B, &HEA45980E, &HFE5DE1C0, &H2FC30275, &H4C8112F0, &H468DA397, &HD36BC6F9, &H8F03E75F, &H9215959C, &H6DBFEB7A, &H5295DA59, &HBED42D83, &H7458D321, &HE0492969, &HC98E44C8, _
        &HC2756A89, &H8EF47879, &H58996B3E, &HB927DD71, &HE1BEB64F, &H88F017AD, &H20C966AC, &HCE7DB43A, &HDF63184A, &H1AE58231, &H51976033, &H5362457F, &H64B1E077, &H6BBB84AE, &H81FE1CA0, &H8F9942B, _
        &H48705868, &H458F19FD, &HDE94876C, &H7B52B7F8, &H73AB23D3, &H4B72E202, &H1FE3578F, &H55662AAB, &HEBB20728, &HB52F03C2, &HC5869A7B, &H37D3A508, &H2830F287, &HBF23B2A5, &H302BA6A, &H16ED5C82, _
        &HCF8A2B1C, &H79A792B4, &H7F3F0F2, &H694EA1E2, &HDA65CDF4, &H506D5BE, &H34D11F62, &HA6C48AFE, &H2E349D53, &HF3A2A055, &H8A0532E1, &HF6A475EB, &H830B39EC, &H6040AAEF, &H715E069F, &H6EBD5110, _
        &H213EF98A, &HDD963D06, &H3EDDAE05, &HE64D46BD, &H5491B58D, &HC471055D, &H6046FD4, &H5060FF15, &H981924FB, &HBDD697E9, &H4089CC43, &HD967779E, &HE8B0BD42, &H8907888B, &H19E7385B, &HC879DBEE, _
        &H7CA1470A, &H427CE90F, &H84F8C91E, &H0&, &H80098386, &H2B3248ED, &H111EAC70, &H5A6C4E72, &HEFDFBFF, &H850F5638, &HAE3D1ED5, &H2D362739, &HF0A64D9, &H5C6821A6, &H5B9BD154, &H36243A2E, _
        &HA0CB167, &H57930FE7, &HEEB4D296, &H9B1B9E91, &HC0804FC5, &HDC61A220, &H775A694B, &H121C161A, &H93E20ABA, &HA0C0E52A, &H223C43E0, &H1B121D17, &H90E0B0D, &H8BF2ADC7, &HB62DB9A8, &H1E14C8A9, _
        &HF1578519, &H75AF4C07, &H99EEBBDD, &H7FA3FD60, &H1F79F26, &H725CBCF5, &H6644C53B, &HFB5B347E, &H438B7629, &H23CBDCC6, &HEDB668FC, &HE4B863F1, &H31D7CADC, &H63421085, &H97134022, &HC6842011, _
        &H4A857D24, &HBBD2F83D, &HF9AE1132, &H29C76DA1, &H9E1D4B2F, &HB2DCF330, &H860DEC52, &HC177D0E3, &HB32B6C16, &H70A999B9, &H9411FA48, &HE9472264, &HFCA8C48C, &HF0A01A3F, &H7D56D82C, &H3322EF90, _
        &H4987C74E, &H38D9C1D1, &HCA8CFEA2, &HD498360B, &HF5A6CF81, &H7AA528DE, &HB7DA268E, &HAD3FA4BF, &H3A2CE49D, &H78500D92, &H5F6A9BCC, &H7E546246, &H8DF6C213, &HD890E8B8, &H392E5EF7, &HC382F5AF, _
        &H5D9FBE80, &HD0697C93, &HD56FA92D, &H25CFB312, &HACC83B99, &H1810A77D, &H9CE86E63, &H3BDB7BBB, &H26CD0978, &H596EF418, &H9AEC01B7, &H4F83A89A, &H95E6656E, &HFFAA7EE6, &HBC2108CF, &H15EFE6E8, _
        &HE7BAD99B, &H6F4ACE36, &H9FEAD409, &HB029D67C, &HA431AFB2, &H3F2A3123, &HA5C63094, &HA235C066, &H4E7437BC, &H82FCA6CA, &H90E0B0D0, &HA73315D8, &H4F14A98, &HEC41F7DA, &HCD7F0E50, &H91172FF6, _
        &H4D768DD6, &HEF434DB0, &HAACC544D, &H96E4DF04, &HD19EE3B5, &H6A4C1B88, &H2CC1B81F, &H65467F51, &H5E9D04EA, &H8C015D35, &H87FA7374, &HBFB2E41, &H67B35A1D, &HDB9252D2, &H10E93356, &HD66D1347, _
        &HD79A8C61, &HA1377A0C, &HF8598E14, &H13EB893C, &HA9CEEE27, &H61B735C9, &H1CE1EDE5, &H477A3CB1, &HD29C59DF, &HF2553F73, &H141879CE, &HC773BF37, &HF753EACD, &HFD5F5BAA, &H3DDF146F, &H447886DB, _
        &HAFCA81F3, &H68B93EC4, &H24382C34, &HA3C25F40, &H1D1672C3, &HE2BC0C25, &H3C288B49, &HDFF4195, &HA8397101, &HC08DEB3, &HB4D89CE4, &H566490C1, &HCB7B6184, &H32D570B6, &H6C48745C, &HB8D04257)

    mTd2Ptr = VarPtr(mTd2(0))
End Sub

Private Sub InitTd3()
    mTd3 = Cor.NewLongs( _
        &H5150A7F4, &H7E536541, &H1AC3A417, &H3A965E27, &H3BCB6BAB, &H1FF1459D, &HACAB58FA, &H4B9303E3, &H2055FA30, &HADF66D76, &H889176CC, &HF5254C02, &H4FFCD7E5, &HC5D7CB2A, &H26804435, &HB58FA362, _
        &HDE495AB1, &H25671BBA, &H45980EEA, &H5DE1C0FE, &HC302752F, &H8112F04C, &H8DA39746, &H6BC6F9D3, &H3E75F8F, &H15959C92, &HBFEB7A6D, &H95DA5952, &HD42D83BE, &H58D32174, &H492969E0, &H8E44C8C9, _
        &H756A89C2, &HF478798E, &H996B3E58, &H27DD71B9, &HBEB64FE1, &HF017AD88, &HC966AC20, &H7DB43ACE, &H63184ADF, &HE582311A, &H97603351, &H62457F53, &HB1E07764, &HBB84AE6B, &HFE1CA081, &HF9942B08, _
        &H70586848, &H8F19FD45, &H94876CDE, &H52B7F87B, &HAB23D373, &H72E2024B, &HE3578F1F, &H662AAB55, &HB20728EB, &H2F03C2B5, &H869A7BC5, &HD3A50837, &H30F28728, &H23B2A5BF, &H2BA6A03, &HED5C8216, _
        &H8A2B1CCF, &HA792B479, &HF3F0F207, &H4EA1E269, &H65CDF4DA, &H6D5BE05, &HD11F6234, &HC48AFEA6, &H349D532E, &HA2A055F3, &H532E18A, &HA475EBF6, &HB39EC83, &H40AAEF60, &H5E069F71, &HBD51106E, _
        &H3EF98A21, &H963D06DD, &HDDAE053E, &H4D46BDE6, &H91B58D54, &H71055DC4, &H46FD406, &H60FF1550, &H1924FB98, &HD697E9BD, &H89CC4340, &H67779ED9, &HB0BD42E8, &H7888B89, &HE7385B19, &H79DBEEC8, _
        &HA1470A7C, &H7CE90F42, &HF8C91E84, &H0&, &H9838680, &H3248ED2B, &H1EAC7011, &H6C4E725A, &HFDFBFF0E, &HF563885, &H3D1ED5AE, &H3627392D, &HA64D90F, &H6821A65C, &H9BD1545B, &H243A2E36, _
        &HCB1670A, &H930FE757, &HB4D296EE, &H1B9E919B, &H804FC5C0, &H61A220DC, &H5A694B77, &H1C161A12, &HE20ABA93, &HC0E52AA0, &H3C43E022, &H121D171B, &HE0B0D09, &HF2ADC78B, &H2DB9A8B6, &H14C8A91E, _
        &H578519F1, &HAF4C0775, &HEEBBDD99, &HA3FD607F, &HF79F2601, &H5CBCF572, &H44C53B66, &H5B347EFB, &H8B762943, &HCBDCC623, &HB668FCED, &HB863F1E4, &HD7CADC31, &H42108563, &H13402297, &H842011C6, _
        &H857D244A, &HD2F83DBB, &HAE1132F9, &HC76DA129, &H1D4B2F9E, &HDCF330B2, &HDEC5286, &H77D0E3C1, &H2B6C16B3, &HA999B970, &H11FA4894, &H472264E9, &HA8C48CFC, &HA01A3FF0, &H56D82C7D, &H22EF9033, _
        &H87C74E49, &HD9C1D138, &H8CFEA2CA, &H98360BD4, &HA6CF81F5, &HA528DE7A, &HDA268EB7, &H3FA4BFAD, &H2CE49D3A, &H500D9278, &H6A9BCC5F, &H5462467E, &HF6C2138D, &H90E8B8D8, &H2E5EF739, &H82F5AFC3, _
        &H9FBE805D, &H697C93D0, &H6FA92DD5, &HCFB31225, &HC83B99AC, &H10A77D18, &HE86E639C, &HDB7BBB3B, &HCD097826, &H6EF41859, &HEC01B79A, &H83A89A4F, &HE6656E95, &HAA7EE6FF, &H2108CFBC, &HEFE6E815, _
        &HBAD99BE7, &H4ACE366F, &HEAD4099F, &H29D67CB0, &H31AFB2A4, &H2A31233F, &HC63094A5, &H35C066A2, &H7437BC4E, &HFCA6CA82, &HE0B0D090, &H3315D8A7, &HF14A9804, &H41F7DAEC, &H7F0E50CD, &H172FF691, _
        &H768DD64D, &H434DB0EF, &HCC544DAA, &HE4DF0496, &H9EE3B5D1, &H4C1B886A, &HC1B81F2C, &H467F5165, &H9D04EA5E, &H15D358C, &HFA737487, &HFB2E410B, &HB35A1D67, &H9252D2DB, &HE9335610, &H6D1347D6, _
        &H9A8C61D7, &H377A0CA1, &H598E14F8, &HEB893C13, &HCEEE27A9, &HB735C961, &HE1EDE51C, &H7A3CB147, &H9C59DFD2, &H553F73F2, &H1879CE14, &H73BF37C7, &H53EACDF7, &H5F5BAAFD, &HDF146F3D, &H7886DB44, _
        &HCA81F3AF, &HB93EC468, &H382C3424, &HC25F40A3, &H1672C31D, &HBC0C25E2, &H288B493C, &HFF41950D, &H397101A8, &H8DEB30C, &HD89CE4B4, &H6490C156, &H7B6184CB, &HD570B632, &H48745C6C, &HD04257B8)

    mTd3Ptr = VarPtr(mTd3(0))
End Sub

Private Sub InitTd4()
    mTd4 = Cor.NewLongs( _
        &H52525252, &H9090909, &H6A6A6A6A, &HD5D5D5D5, &H30303030, &H36363636, &HA5A5A5A5, &H38383838, &HBFBFBFBF, &H40404040, &HA3A3A3A3, &H9E9E9E9E, &H81818181, &HF3F3F3F3, &HD7D7D7D7, &HFBFBFBFB, _
        &H7C7C7C7C, &HE3E3E3E3, &H39393939, &H82828282, &H9B9B9B9B, &H2F2F2F2F, &HFFFFFFFF, &H87878787, &H34343434, &H8E8E8E8E, &H43434343, &H44444444, &HC4C4C4C4, &HDEDEDEDE, &HE9E9E9E9, &HCBCBCBCB, _
        &H54545454, &H7B7B7B7B, &H94949494, &H32323232, &HA6A6A6A6, &HC2C2C2C2, &H23232323, &H3D3D3D3D, &HEEEEEEEE, &H4C4C4C4C, &H95959595, &HB0B0B0B, &H42424242, &HFAFAFAFA, &HC3C3C3C3, &H4E4E4E4E, _
        &H8080808, &H2E2E2E2E, &HA1A1A1A1, &H66666666, &H28282828, &HD9D9D9D9, &H24242424, &HB2B2B2B2, &H76767676, &H5B5B5B5B, &HA2A2A2A2, &H49494949, &H6D6D6D6D, &H8B8B8B8B, &HD1D1D1D1, &H25252525, _
        &H72727272, &HF8F8F8F8, &HF6F6F6F6, &H64646464, &H86868686, &H68686868, &H98989898, &H16161616, &HD4D4D4D4, &HA4A4A4A4, &H5C5C5C5C, &HCCCCCCCC, &H5D5D5D5D, &H65656565, &HB6B6B6B6, &H92929292, _
        &H6C6C6C6C, &H70707070, &H48484848, &H50505050, &HFDFDFDFD, &HEDEDEDED, &HB9B9B9B9, &HDADADADA, &H5E5E5E5E, &H15151515, &H46464646, &H57575757, &HA7A7A7A7, &H8D8D8D8D, &H9D9D9D9D, &H84848484, _
        &H90909090, &HD8D8D8D8, &HABABABAB, &H0, &H8C8C8C8C, &HBCBCBCBC, &HD3D3D3D3, &HA0A0A0A, &HF7F7F7F7, &HE4E4E4E4, &H58585858, &H5050505, &HB8B8B8B8, &HB3B3B3B3, &H45454545, &H6060606, _
        &HD0D0D0D0, &H2C2C2C2C, &H1E1E1E1E, &H8F8F8F8F, &HCACACACA, &H3F3F3F3F, &HF0F0F0F, &H2020202, &HC1C1C1C1, &HAFAFAFAF, &HBDBDBDBD, &H3030303, &H1010101, &H13131313, &H8A8A8A8A, &H6B6B6B6B, _
        &H3A3A3A3A, &H91919191, &H11111111, &H41414141, &H4F4F4F4F, &H67676767, &HDCDCDCDC, &HEAEAEAEA, &H97979797, &HF2F2F2F2, &HCFCFCFCF, &HCECECECE, &HF0F0F0F0, &HB4B4B4B4, &HE6E6E6E6, &H73737373, _
        &H96969696, &HACACACAC, &H74747474, &H22222222, &HE7E7E7E7, &HADADADAD, &H35353535, &H85858585, &HE2E2E2E2, &HF9F9F9F9, &H37373737, &HE8E8E8E8, &H1C1C1C1C, &H75757575, &HDFDFDFDF, &H6E6E6E6E, _
        &H47474747, &HF1F1F1F1, &H1A1A1A1A, &H71717171, &H1D1D1D1D, &H29292929, &HC5C5C5C5, &H89898989, &H6F6F6F6F, &HB7B7B7B7, &H62626262, &HE0E0E0E, &HAAAAAAAA, &H18181818, &HBEBEBEBE, &H1B1B1B1B, _
        &HFCFCFCFC, &H56565656, &H3E3E3E3E, &H4B4B4B4B, &HC6C6C6C6, &HD2D2D2D2, &H79797979, &H20202020, &H9A9A9A9A, &HDBDBDBDB, &HC0C0C0C0, &HFEFEFEFE, &H78787878, &HCDCDCDCD, &H5A5A5A5A, &HF4F4F4F4, _
        &H1F1F1F1F, &HDDDDDDDD, &HA8A8A8A8, &H33333333, &H88888888, &H7070707, &HC7C7C7C7, &H31313131, &HB1B1B1B1, &H12121212, &H10101010, &H59595959, &H27272727, &H80808080, &HECECECEC, &H5F5F5F5F, _
        &H60606060, &H51515151, &H7F7F7F7F, &HA9A9A9A9, &H19191919, &HB5B5B5B5, &H4A4A4A4A, &HD0D0D0D, &H2D2D2D2D, &HE5E5E5E5, &H7A7A7A7A, &H9F9F9F9F, &H93939393, &HC9C9C9C9, &H9C9C9C9C, &HEFEFEFEF, _
        &HA0A0A0A0, &HE0E0E0E0, &H3B3B3B3B, &H4D4D4D4D, &HAEAEAEAE, &H2A2A2A2A, &HF5F5F5F5, &HB0B0B0B0, &HC8C8C8C8, &HEBEBEBEB, &HBBBBBBBB, &H3C3C3C3C, &H83838383, &H53535353, &H99999999, &H61616161, _
        &H17171717, &H2B2B2B2B, &H4040404, &H7E7E7E7E, &HBABABABA, &H77777777, &HD6D6D6D6, &H26262626, &HE1E1E1E1, &H69696969, &H14141414, &H63636363, &H55555555, &H21212121, &HC0C0C0C, &H7D7D7D7D)

    mTd4Ptr = VarPtr(mTd4(0))
End Sub
    
Private Sub InitRCon()
    mRCon = Cor.NewLongs(&H1, &H2, &H4, &H8, &H10, &H20, &H40, &H80, &H1B, _
            &H36, &H6C, &HD8, &HAB, &H4D, &H9A, &H2F, &H5E, &HBC, &H63, _
            &HC6, &H97, &H35, &H6A, &HD4, &HB3, &H7D, &HFA, &HEF, &HC5)

    mRConPtr = SAPtr(mRCon)
End Sub

Private Sub InitSBox()
    mSBox = Cor.NewBytes( _
            &H63, &H7C, &H77, &H7B, &HF2, &H6B, &H6F, &HC5, &H30, &H1, &H67, &H2B, &HFE, &HD7, &HAB, &H76, _
            &HCA, &H82, &HC9, &H7D, &HFA, &H59, &H47, &HF0, &HAD, &HD4, &HA2, &HAF, &H9C, &HA4, &H72, &HC0, _
            &HB7, &HFD, &H93, &H26, &H36, &H3F, &HF7, &HCC, &H34, &HA5, &HE5, &HF1, &H71, &HD8, &H31, &H15, _
            &H4, &HC7, &H23, &HC3, &H18, &H96, &H5, &H9A, &H7, &H12, &H80, &HE2, &HEB, &H27, &HB2, &H75, _
            &H9, &H83, &H2C, &H1A, &H1B, &H6E, &H5A, &HA0, &H52, &H3B, &HD6, &HB3, &H29, &HE3, &H2F, &H84, _
            &H53, &HD1, &H0, &HED, &H20, &HFC, &HB1, &H5B, &H6A, &HCB, &HBE, &H39, &H4A, &H4C, &H58, &HCF, _
            &HD0, &HEF, &HAA, &HFB, &H43, &H4D, &H33, &H85, &H45, &HF9, &H2, &H7F, &H50, &H3C, &H9F, &HA8, _
            &H51, &HA3, &H40, &H8F, &H92, &H9D, &H38, &HF5, &HBC, &HB6, &HDA, &H21, &H10, &HFF, &HF3, &HD2, _
            &HCD, &HC, &H13, &HEC, &H5F, &H97, &H44, &H17, &HC4, &HA7, &H7E, &H3D, &H64, &H5D, &H19, &H73, _
            &H60, &H81, &H4F, &HDC, &H22, &H2A, &H90, &H88, &H46, &HEE, &HB8, &H14, &HDE, &H5E, &HB, &HDB, _
            &HE0, &H32, &H3A, &HA, &H49, &H6, &H24, &H5C, &HC2, &HD3, &HAC, &H62, &H91, &H95, &HE4, &H79, _
            &HE7, &HC8, &H37, &H6D, &H8D, &HD5, &H4E, &HA9, &H6C, &H56, &HF4, &HEA, &H65, &H7A, &HAE, &H8, _
            &HBA, &H78, &H25, &H2E, &H1C, &HA6, &HB4, &HC6, &HE8, &HDD, &H74, &H1F, &H4B, &HBD, &H8B, &H8A, _
            &H70, &H3E, &HB5, &H66, &H48, &H3, &HF6, &HE, &H61, &H35, &H57, &HB9, &H86, &HC1, &H1D, &H9E, _
            &HE1, &HF8, &H98, &H11, &H69, &HD9, &H8E, &H94, &H9B, &H1E, &H87, &HE9, &HCE, &H55, &H28, &HDF, _
            &H8C, &HA1, &H89, &HD, &HBF, &HE6, &H42, &H68, &H41, &H99, &H2D, &HF, &HB0, &H54, &HBB, &H16)

    mSBoxPtr = SAPtr(mSBox)
End Sub