Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 75bf852d4acf5547…

MALICIOUS

Office (OOXML)

17.2 KB Created: 2021-02-26 10:57:37 UTC Authoring application: Microsoft Excel 16.0300 First seen: 2022-06-20
MD5: f81b2c7bceef1e27d7f46e3728ac1cc6 SHA-1: 9c1c064aece1e8c64b62151d363ff75b41722fb7 SHA-256: 75bf852d4acf5547a5af7d77857ee07e179a61f6f06cb2217a33292f689ac68a
168 Risk Score

Heuristics 5

  • VBA project inside OOXML medium 4 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • Potential Shell call in VBA critical OLE_VBA_SHELL
    Potential Shell call in VBA
    Matched line in script
    cmdResult = Shell("cmd.exe /k " & strPath, vbNormalFocus)
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Set fso = CreateObject("Scripting.FileSystemObject")
  • cmd.exe reference in VBA high OLE_VBA_CMD
    cmd.exe reference in VBA
    Matched line in script
    cmdResult = Shell("cmd.exe /k " & strPath, vbNormalFocus)
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Sub Workbook_Open()

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) 1618 bytes
SHA-256: 1e32e166cf3fa1667022aa2ec6657df8c0667ff1ca2ae648915767126252714f
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Sub Workbook_Open()

' This is the virus (test!!!)
Dim EicarVirusString As String
EicarVirusString = "X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"

' Create some filesystem objects
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

' Get TEMP folder location
TempFolder = fso.GetSpecialFolder(2)

' Create the file
strPath = TempFolder & "\eicar.com"
Dim oFile As Object
Set oFile = fso.CreateTextFile(strPath)

' Write the payload
oFile.Write EicarVirusString

' Close and cleanup
oFile.Close
Set fso = Nothing
Set oFile = Nothing

' Show warning
result = MsgBox("Hello, I have just created a test virus in your temp directory (" & strPath & "), and am about to run it. Just click OK and enjoy. You shoud either see a text message stating that EICAR has run, or (and that is intended) it should be deleted by your virus scanner.", vbCritical, "Test Virus Saved")
cmdResult = Shell("cmd.exe /k " & strPath, vbNormalFocus)


End Sub


Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
vbaProject_00.bin vba-project OOXML VBA project: xl/vbaProject.bin 11776 bytes
SHA-256: c082114b798d68db09cfd899b7609477e5e6f73d540118414aba0bf3fa796821

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