rijndaelstatic.cls

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

Friend Property Get RConPtr() As Long
    If mRConPtr = vbNullPtr Then Call InitRCon
    RConPtr = mRConPtr
End Property

Friend Property Get SBoxPtr() As Long
    If mSBoxPtr = vbNullPtr Then Call InitSBox
    SBoxPtr = mSBoxPtr
End Property


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Private Helpers
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub InitTe0()
    mTe0 = Cor.NewLongs( _
        &HA56363C6, &H847C7CF8, &H997777EE, &H8D7B7BF6, &HDF2F2FF, &HBD6B6BD6, &HB16F6FDE, &H54C5C591, &H50303060, &H3010102, &HA96767CE, &H7D2B2B56, &H19FEFEE7, &H62D7D7B5, &HE6ABAB4D, &H9A7676EC, _
        &H45CACA8F, &H9D82821F, &H40C9C989, &H877D7DFA, &H15FAFAEF, &HEB5959B2, &HC947478E, &HBF0F0FB, &HECADAD41, &H67D4D4B3, &HFDA2A25F, &HEAAFAF45, &HBF9C9C23, &HF7A4A453, &H967272E4, &H5BC0C09B, _
        &HC2B7B775, &H1CFDFDE1, &HAE93933D, &H6A26264C, &H5A36366C, &H413F3F7E, &H2F7F7F5, &H4FCCCC83, &H5C343468, &HF4A5A551, &H34E5E5D1, &H8F1F1F9, &H937171E2, &H73D8D8AB, &H53313162, &H3F15152A, _
        &HC040408, &H52C7C795, &H65232346, &H5EC3C39D, &H28181830, &HA1969637, &HF05050A, &HB59A9A2F, &H907070E, &H36121224, &H9B80801B, &H3DE2E2DF, &H26EBEBCD, &H6927274E, &HCDB2B27F, &H9F7575EA, _
        &H1B090912, &H9E83831D, &H742C2C58, &H2E1A1A34, &H2D1B1B36, &HB26E6EDC, &HEE5A5AB4, &HFBA0A05B, &HF65252A4, &H4D3B3B76, &H61D6D6B7, &HCEB3B37D, &H7B292952, &H3EE3E3DD, &H712F2F5E, &H97848413, _
        &HF55353A6, &H68D1D1B9, &H0&, &H2CEDEDC1, &H60202040, &H1FFCFCE3, &HC8B1B179, &HED5B5BB6, &HBE6A6AD4, &H46CBCB8D, &HD9BEBE67, &H4B393972, &HDE4A4A94, &HD44C4C98, &HE85858B0, &H4ACFCF85, _
        &H6BD0D0BB, &H2AEFEFC5, &HE5AAAA4F, &H16FBFBED, &HC5434386, &HD74D4D9A, &H55333366, &H94858511, &HCF45458A, &H10F9F9E9, &H6020204, &H817F7FFE, &HF05050A0, &H443C3C78, &HBA9F9F25, &HE3A8A84B, _
        &HF35151A2, &HFEA3A35D, &HC0404080, &H8A8F8F05, &HAD92923F, &HBC9D9D21, &H48383870, &H4F5F5F1, &HDFBCBC63, &HC1B6B677, &H75DADAAF, &H63212142, &H30101020, &H1AFFFFE5, &HEF3F3FD, &H6DD2D2BF, _
        &H4CCDCD81, &H140C0C18, &H35131326, &H2FECECC3, &HE15F5FBE, &HA2979735, &HCC444488, &H3917172E, &H57C4C493, &HF2A7A755, &H827E7EFC, &H473D3D7A, &HAC6464C8, &HE75D5DBA, &H2B191932, &H957373E6, _
        &HA06060C0, &H98818119, &HD14F4F9E, &H7FDCDCA3, &H66222244, &H7E2A2A54, &HAB90903B, &H8388880B, &HCA46468C, &H29EEEEC7, &HD3B8B86B, &H3C141428, &H79DEDEA7, &HE25E5EBC, &H1D0B0B16, &H76DBDBAD, _
        &H3BE0E0DB, &H56323264, &H4E3A3A74, &H1E0A0A14, &HDB494992, &HA06060C, &H6C242448, &HE45C5CB8, &H5DC2C29F, &H6ED3D3BD, &HEFACAC43, &HA66262C4, &HA8919139, &HA4959531, &H37E4E4D3, &H8B7979F2, _
        &H32E7E7D5, &H43C8C88B, &H5937376E, &HB76D6DDA, &H8C8D8D01, &H64D5D5B1, &HD24E4E9C, &HE0A9A949, &HB46C6CD8, &HFA5656AC, &H7F4F4F3, &H25EAEACF, &HAF6565CA, &H8E7A7AF4, &HE9AEAE47, &H18080810, _
        &HD5BABA6F, &H887878F0, &H6F25254A, &H722E2E5C, &H241C1C38, &HF1A6A657, &HC7B4B473, &H51C6C697, &H23E8E8CB, &H7CDDDDA1, &H9C7474E8, &H211F1F3E, &HDD4B4B96, &HDCBDBD61, &H868B8B0D, &H858A8A0F, _
        &H907070E0, &H423E3E7C, &HC4B5B571, &HAA6666CC, &HD8484890, &H5030306, &H1F6F6F7, &H120E0E1C, &HA36161C2, &H5F35356A, &HF95757AE, &HD0B9B969, &H91868617, &H58C1C199, &H271D1D3A, &HB99E9E27, _
        &H38E1E1D9, &H13F8F8EB, &HB398982B, &H33111122, &HBB6969D2, &H70D9D9A9, &H898E8E07, &HA7949433, &HB69B9B2D, &H221E1E3C, &H92878715, &H20E9E9C9, &H49CECE87, &HFF5555AA, &H78282850, &H7ADFDFA5, _
        &H8F8C8C03, &HF8A1A159, &H80898909, &H170D0D1A, &HDABFBF65, &H31E6E6D7, &HC6424284, &HB86868D0, &HC3414182, &HB0999929, &H772D2D5A, &H110F0F1E, &HCBB0B07B, &HFC5454A8, &HD6BBBB6D, &H3A16162C)
    
    mTe0Ptr = VarPtr(mTe0(0))
End Sub

Private Sub InitTe1()
    mTe1 = Cor.NewLongs( _
        &H6363C6A5, &H7C7CF884, &H7777EE99, &H7B7BF68D, &HF2F2FF0D, &H6B6BD6BD, &H6F6FDEB1, &HC5C59154, &H30306050, &H1010203, &H6767CEA9, &H2B2B567D, &HFEFEE719, &HD7D7B562, &HABAB4DE6, &H7676EC9A, _
        &HCACA8F45, &H82821F9D, &HC9C98940, &H7D7DFA87, &HFAFAEF15, &H5959B2EB, &H47478EC9, &HF0F0FB0B, &HADAD41EC, &HD4D4B367, &HA2A25FFD, &HAFAF45EA, &H9C9C23BF, &HA4A453F7, &H7272E496, &HC0C09B5B, _
        &HB7B775C2, &HFDFDE11C, &H93933DAE, &H26264C6A, &H36366C5A, &H3F3F7E41, &HF7F7F502, &HCCCC834F, &H3434685C, &HA5A551F4, &HE5E5D134, &HF1F1F908, &H7171E293, &HD8D8AB73, &H31316253, &H15152A3F, _
        &H404080C, &HC7C79552, &H23234665, &HC3C39D5E, &H18183028, &H969637A1, &H5050A0F, &H9A9A2FB5, &H7070E09, &H12122436, &H80801B9B, &HE2E2DF3D, &HEBEBCD26, &H27274E69, &HB2B27FCD, &H7575EA9F, _
        &H909121B, &H83831D9E, &H2C2C5874, &H1A1A342E, &H1B1B362D, &H6E6EDCB2, &H5A5AB4EE, &HA0A05BFB, &H5252A4F6, &H3B3B764D, &HD6D6B761, &HB3B37DCE, &H2929527B, &HE3E3DD3E, &H2F2F5E71, &H84841397, _
        &H5353A6F5, &HD1D1B968, &H0&, &HEDEDC12C, &H20204060, &HFCFCE31F, &HB1B179C8, &H5B5BB6ED, &H6A6AD4BE, &HCBCB8D46, &HBEBE67D9, &H3939724B, &H4A4A94DE, &H4C4C98D4, &H5858B0E8, &HCFCF854A, _
        &HD0D0BB6B, &HEFEFC52A, &HAAAA4FE5, &HFBFBED16, &H434386C5, &H4D4D9AD7, &H33336655, &H85851194, &H45458ACF, &HF9F9E910, &H2020406, &H7F7FFE81, &H5050A0F0, &H3C3C7844, &H9F9F25BA, &HA8A84BE3, _
        &H5151A2F3, &HA3A35DFE, &H404080C0, &H8F8F058A, &H92923FAD, &H9D9D21BC, &H38387048, &HF5F5F104, &HBCBC63DF, &HB6B677C1, &HDADAAF75, &H21214263, &H10102030, &HFFFFE51A, &HF3F3FD0E, &HD2D2BF6D, _
        &HCDCD814C, &HC0C1814, &H13132635, &HECECC32F, &H5F5FBEE1, &H979735A2, &H444488CC, &H17172E39, &HC4C49357, &HA7A755F2, &H7E7EFC82, &H3D3D7A47, &H6464C8AC, &H5D5DBAE7, &H1919322B, &H7373E695, _
        &H6060C0A0, &H81811998, &H4F4F9ED1, &HDCDCA37F, &H22224466, &H2A2A547E, &H90903BAB, &H88880B83, &H46468CCA, &HEEEEC729, &HB8B86BD3, &H1414283C, &HDEDEA779, &H5E5EBCE2, &HB0B161D, &HDBDBAD76, _
        &HE0E0DB3B, &H32326456, &H3A3A744E, &HA0A141E, &H494992DB, &H6060C0A, &H2424486C, &H5C5CB8E4, &HC2C29F5D, &HD3D3BD6E, &HACAC43EF, &H6262C4A6, &H919139A8, &H959531A4, &HE4E4D337, &H7979F28B, _
        &HE7E7D532, &HC8C88B43, &H37376E59, &H6D6DDAB7, &H8D8D018C, &HD5D5B164, &H4E4E9CD2, &HA9A949E0, &H6C6CD8B4, &H5656ACFA, &HF4F4F307, &HEAEACF25, &H6565CAAF, &H7A7AF48E, &HAEAE47E9, &H8081018, _
        &HBABA6FD5, &H7878F088, &H25254A6F, &H2E2E5C72, &H1C1C3824, &HA6A657F1, &HB4B473C7, &HC6C69751, &HE8E8CB23, &HDDDDA17C, &H7474E89C, &H1F1F3E21, &H4B4B96DD, &HBDBD61DC, &H8B8B0D86, &H8A8A0F85, _
        &H7070E090, &H3E3E7C42, &HB5B571C4, &H6666CCAA, &H484890D8, &H3030605, &HF6F6F701, &HE0E1C12, &H6161C2A3, &H35356A5F, &H5757AEF9, &HB9B969D0, &H86861791, &HC1C19958, &H1D1D3A27, &H9E9E27B9, _
        &HE1E1D938, &HF8F8EB13, &H98982BB3, &H11112233, &H6969D2BB, &HD9D9A970, &H8E8E0789, &H949433A7, &H9B9B2DB6, &H1E1E3C22, &H87871592, &HE9E9C920, &HCECE8749, &H5555AAFF, &H28285078, &HDFDFA57A, _
        &H8C8C038F, &HA1A159F8, &H89890980, &HD0D1A17, &HBFBF65DA, &HE6E6D731, &H424284C6, &H6868D0B8, &H414182C3, &H999929B0, &H2D2D5A77, &HF0F1E11, &HB0B07BCB, &H5454A8FC, &HBBBB6DD6, &H16162C3A)

    mTe1Ptr = VarPtr(mTe1(0))
End Sub

Private Sub InitTe2()
    mTe2 = Cor.NewLongs( _
        &H63C6A563, &H7CF8847C, &H77EE9977, &H7BF68D7B, &HF2FF0DF2, &H6BD6BD6B, &H6FDEB16F, &HC59154C5, &H30605030, &H1020301, &H67CEA967, &H2B567D2B, &HFEE719FE, &HD7B562D7, &HAB4DE6AB, &H76EC9A76, _
        &HCA8F45CA, &H821F9D82, &HC98940C9, &H7DFA877D, &HFAEF15FA, &H59B2EB59, &H478EC947, &HF0FB0BF0, &HAD41ECAD, &HD4B367D4, &HA25FFDA2, &HAF45EAAF, &H9C23BF9C, &HA453F7A4, &H72E49672, &HC09B5BC0, _
        &HB775C2B7, &HFDE11CFD, &H933DAE93, &H264C6A26, &H366C5A36, &H3F7E413F, &HF7F502F7, &HCC834FCC, &H34685C34, &HA551F4A5, &HE5D134E5, &HF1F908F1, &H71E29371, &HD8AB73D8, &H31625331, &H152A3F15, _
        &H4080C04, &HC79552C7, &H23466523, &HC39D5EC3, &H18302818, &H9637A196, &H50A0F05, &H9A2FB59A, &H70E0907, &H12243612, &H801B9B80, &HE2DF3DE2, &HEBCD26EB, &H274E6927, &HB27FCDB2, &H75EA9F75, _
        &H9121B09, &H831D9E83, &H2C58742C, &H1A342E1A, &H1B362D1B, &H6EDCB26E, &H5AB4EE5A, &HA05BFBA0, &H52A4F652, &H3B764D3B, &HD6B761D6, &HB37DCEB3, &H29527B29, &HE3DD3EE3, &H2F5E712F, &H84139784, _
        &H53A6F553, &HD1B968D1, &H0&, &HEDC12CED, &H20406020, &HFCE31FFC, &HB179C8B1, &H5BB6ED5B, &H6AD4BE6A, &HCB8D46CB, &HBE67D9BE, &H39724B39, &H4A94DE4A, &H4C98D44C, &H58B0E858, &HCF854ACF, _
        &HD0BB6BD0, &HEFC52AEF, &HAA4FE5AA, &HFBED16FB, &H4386C543, &H4D9AD74D, &H33665533, &H85119485, &H458ACF45, &HF9E910F9, &H2040602, &H7FFE817F, &H50A0F050, &H3C78443C, &H9F25BA9F, &HA84BE3A8, _
        &H51A2F351, &HA35DFEA3, &H4080C040, &H8F058A8F, &H923FAD92, &H9D21BC9D, &H38704838, &HF5F104F5, &HBC63DFBC, &HB677C1B6, &HDAAF75DA, &H21426321, &H10203010, &HFFE51AFF, &HF3FD0EF3, &HD2BF6DD2, _
        &HCD814CCD, &HC18140C, &H13263513, &HECC32FEC, &H5FBEE15F, &H9735A297, &H4488CC44, &H172E3917, &HC49357C4, &HA755F2A7, &H7EFC827E, &H3D7A473D, &H64C8AC64, &H5DBAE75D, &H19322B19, &H73E69573, _
        &H60C0A060, &H81199881, &H4F9ED14F, &HDCA37FDC, &H22446622, &H2A547E2A, &H903BAB90, &H880B8388, &H468CCA46, &HEEC729EE, &HB86BD3B8, &H14283C14, &HDEA779DE, &H5EBCE25E, &HB161D0B, &HDBAD76DB, _
        &HE0DB3BE0, &H32645632, &H3A744E3A, &HA141E0A, &H4992DB49, &H60C0A06, &H24486C24, &H5CB8E45C, &HC29F5DC2, &HD3BD6ED3, &HAC43EFAC, &H62C4A662, &H9139A891, &H9531A495, &HE4D337E4, &H79F28B79, _
        &HE7D532E7, &HC88B43C8, &H376E5937, &H6DDAB76D, &H8D018C8D, &HD5B164D5, &H4E9CD24E, &HA949E0A9, &H6CD8B46C, &H56ACFA56, &HF4F307F4, &HEACF25EA, &H65CAAF65, &H7AF48E7A, &HAE47E9AE, &H8101808, _
        &HBA6FD5BA, &H78F08878, &H254A6F25, &H2E5C722E, &H1C38241C, &HA657F1A6, &HB473C7B4, &HC69751C6, &HE8CB23E8, &HDDA17CDD, &H74E89C74, &H1F3E211F, &H4B96DD4B, &HBD61DCBD, &H8B0D868B, &H8A0F858A, _
        &H70E09070, &H3E7C423E, &HB571C4B5, &H66CCAA66, &H4890D848, &H3060503, &HF6F701F6, &HE1C120E, &H61C2A361, &H356A5F35, &H57AEF957, &HB969D0B9, &H86179186, &HC19958C1, &H1D3A271D, &H9E27B99E, _
        &HE1D938E1, &HF8EB13F8, &H982BB398, &H11223311, &H69D2BB69, &HD9A970D9, &H8E07898E, &H9433A794, &H9B2DB69B, &H1E3C221E, &H87159287, &HE9C920E9, &HCE8749CE, &H55AAFF55, &H28507828, &HDFA57ADF, _
        &H8C038F8C, &HA159F8A1, &H89098089, &HD1A170D, &HBF65DABF, &HE6D731E6, &H4284C642, &H68D0B868, &H4182C341, &H9929B099, &H2D5A772D, &HF1E110F, &HB07BCBB0, &H54A8FC54, &HBB6DD6BB, &H162C3A16)

    mTe2Ptr = VarPtr(mTe2(0))
End Sub

Private Sub InitTe3()
    mTe3 = Cor.NewLongs( _
        &HC6A56363, &HF8847C7C, &HEE997777, &HF68D7B7B, &HFF0DF2F2, &HD6BD6B6B, &HDEB16F6F, &H9154C5C5, &H60503030, &H2030101, &HCEA96767, &H567D2B2B, &HE719FEFE, &HB562D7D7, &H4DE6ABAB, &HEC9A7676, _
        &H8F45CACA, &H1F9D8282, &H8940C9C9, &HFA877D7D, &HEF15FAFA, &HB2EB5959, &H8EC94747, &HFB0BF0F0, &H41ECADAD, &HB367D4D4, &H5FFDA2A2, &H45EAAFAF, &H23BF9C9C, &H53F7A4A4, &HE4967272, &H9B5BC0C0, _
        &H75C2B7B7, &HE11CFDFD, &H3DAE9393, &H4C6A2626, &H6C5A3636, &H7E413F3F, &HF502F7F7, &H834FCCCC, &H685C3434, &H51F4A5A5, &HD134E5E5, &HF908F1F1, &HE2937171, &HAB73D8D8, &H62533131, &H2A3F1515, _
        &H80C0404, &H9552C7C7, &H46652323, &H9D5EC3C3, &H30281818, &H37A19696, &HA0F0505, &H2FB59A9A, &HE090707, &H24361212, &H1B9B8080, &HDF3DE2E2, &HCD26EBEB, &H4E692727, &H7FCDB2B2, &HEA9F7575, _
        &H121B0909, &H1D9E8383, &H58742C2C, &H342E1A1A, &H362D1B1B, &HDCB26E6E, &HB4EE5A5A, &H5BFBA0A0, &HA4F65252, &H764D3B3B, &HB761D6D6, &H7DCEB3B3, &H527B2929, &HDD3EE3E3, &H5E712F2F, &H13978484, _
        &HA6F55353, &HB968D1D1, &H0&, &HC12CEDED, &H40602020, &HE31FFCFC, &H79C8B1B1, &HB6ED5B5B, &HD4BE6A6A, &H8D46CBCB, &H67D9BEBE, &H724B3939, &H94DE4A4A, &H98D44C4C, &HB0E85858, &H854ACFCF, _
        &HBB6BD0D0, &HC52AEFEF, &H4FE5AAAA, &HED16FBFB, &H86C54343, &H9AD74D4D, &H66553333, &H11948585, &H8ACF4545, &HE910F9F9, &H4060202, &HFE817F7F, &HA0F05050, &H78443C3C, &H25BA9F9F, &H4BE3A8A8, _
        &HA2F35151, &H5DFEA3A3, &H80C04040, &H58A8F8F, &H3FAD9292, &H21BC9D9D, &H70483838, &HF104F5F5, &H63DFBCBC, &H77C1B6B6, &HAF75DADA, &H42632121, &H20301010, &HE51AFFFF, &HFD0EF3F3, &HBF6DD2D2, _
        &H814CCDCD, &H18140C0C, &H26351313, &HC32FECEC, &HBEE15F5F, &H35A29797, &H88CC4444, &H2E391717, &H9357C4C4, &H55F2A7A7, &HFC827E7E, &H7A473D3D, &HC8AC6464, &HBAE75D5D, &H322B1919, &HE6957373, _
        &HC0A06060, &H19988181, &H9ED14F4F, &HA37FDCDC, &H44662222, &H547E2A2A, &H3BAB9090, &HB838888, &H8CCA4646, &HC729EEEE, &H6BD3B8B8, &H283C1414, &HA779DEDE, &HBCE25E5E, &H161D0B0B, &HAD76DBDB, _
        &HDB3BE0E0, &H64563232, &H744E3A3A, &H141E0A0A, &H92DB4949, &HC0A0606, &H486C2424, &HB8E45C5C, &H9F5DC2C2, &HBD6ED3D3, &H43EFACAC, &HC4A66262, &H39A89191, &H31A49595, &HD337E4E4, &HF28B7979, _
        &HD532E7E7, &H8B43C8C8, &H6E593737, &HDAB76D6D, &H18C8D8D, &HB164D5D5, &H9CD24E4E, &H49E0A9A9, &HD8B46C6C, &HACFA5656, &HF307F4F4, &HCF25EAEA, &HCAAF6565, &HF48E7A7A, &H47E9AEAE, &H10180808, _
        &H6FD5BABA, &HF0887878, &H4A6F2525, &H5C722E2E, &H38241C1C, &H57F1A6A6, &H73C7B4B4, &H9751C6C6, &HCB23E8E8, &HA17CDDDD, &HE89C7474, &H3E211F1F, &H96DD4B4B, &H61DCBDBD, &HD868B8B, &HF858A8A, _
        &HE0907070, &H7C423E3E, &H71C4B5B5, &HCCAA6666, &H90D84848, &H6050303, &HF701F6F6, &H1C120E0E, &HC2A36161, &H6A5F3535, &HAEF95757, &H69D0B9B9, &H17918686, &H9958C1C1, &H3A271D1D, &H27B99E9E, _
        &HD938E1E1, &HEB13F8F8, &H2BB39898, &H22331111, &HD2BB6969, &HA970D9D9, &H7898E8E, &H33A79494, &H2DB69B9B, &H3C221E1E, &H15928787, &HC920E9E9, &H8749CECE, &HAAFF5555, &H50782828, &HA57ADFDF, _
        &H38F8C8C, &H59F8A1A1, &H9808989, &H1A170D0D, &H65DABFBF, &HD731E6E6, &H84C64242, &HD0B86868, &H82C34141, &H29B09999, &H5A772D2D, &H1E110F0F, &H7BCBB0B0, &HA8FC5454, &H6DD6BBBB, &H2C3A1616)

    mTe3Ptr = VarPtr(mTe3(0))
End Sub

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

    mTe4Ptr = VarPtr(mTe4(0))
End Sub

Private Sub InitTd0()
    mTd0 = Cor.NewLongs( _
        &H50A7F451, &H5365417E, &HC3A4171A, &H965E273A, &HCB6BAB3B, &HF1459D1F, &HAB58FAAC, &H9303E34B, &H55FA3020, &HF66D76AD, &H9176CC88, &H254C02F5, &HFCD7E54F, &HD7CB2AC5, &H80443526, &H8FA362B5, _
        &H495AB1DE, &H671BBA25, &H980EEA45, &HE1C0FE5D, &H2752FC3, &H12F04C81, &HA397468D, &HC6F9D36B, &HE75F8F03, &H959C9215, &HEB7A6DBF, &HDA595295, &H2D83BED4, &HD3217458, &H2969E049, &H44C8C98E, _
        &H6A89C275, &H78798EF4, &H6B3E5899, &HDD71B927, &HB64FE1BE, &H17AD88F0, &H66AC20C9, &HB43ACE7D, &H184ADF63, &H82311AE5, &H60335197, &H457F5362, &HE07764B1, &H84AE6BBB, &H1CA081FE, &H942B08F9, _
        &H58684870, &H19FD458F, &H876CDE94, &HB7F87B52, &H23D373AB, &HE2024B72, &H578F1FE3, &H2AAB5566, &H728EBB2, &H3C2B52F, &H9A7BC586, &HA50837D3, &HF2872830, &HB2A5BF23, &HBA6A0302, &H5C8216ED, _
        &H2B1CCF8A, &H92B479A7, &HF0F207F3, &HA1E2694E, &HCDF4DA65, &HD5BE0506, &H1F6234D1, &H8AFEA6C4, &H9D532E34, &HA055F3A2, &H32E18A05, &H75EBF6A4, &H39EC830B, &HAAEF6040, &H69F715E, &H51106EBD, _
        &HF98A213E, &H3D06DD96, &HAE053EDD, &H46BDE64D, &HB58D5491, &H55DC471, &H6FD40604, &HFF155060, &H24FB9819, &H97E9BDD6, &HCC434089, &H779ED967, &HBD42E8B0, &H888B8907, &H385B19E7, &HDBEEC879, _
        &H470A7CA1, &HE90F427C, &HC91E84F8, &H0&, &H83868009, &H48ED2B32, &HAC70111E, &H4E725A6C, &HFBFF0EFD, &H5638850F, &H1ED5AE3D, &H27392D36, &H64D90F0A, &H21A65C68, &HD1545B9B, &H3A2E3624, _