elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
24 Mayo 2012, 17:36  


Tema destacado: ¡Aprende hacking con práctica! - WarZone, el wargame de elhacker.net

+  Foro de elhacker.net
|-+  Seguridad Informática
| |-+  Análisis y Diseño de Malware (Moderadores: Karcrack, [Zero])
| | |-+  Ruta para descargar archivo desde una pagina web		 0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ruta para descargar archivo desde una pagina web  (Leído 376 veces)
polodimar

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Ruta para descargar archivo desde una pagina web
« en: 12 Mayo 2005, 06:02 »
Hola Amigos

Resulta que no cacho como poner la ruta para poder descargar un archivo a una determinada carpeta del disco duro desde una pagina html, estoy usando Vbs y localmente me funciona re bien, pero cuando la subo me dice que el control ActiveX no puede crear el archivo en la ubicacion especificada

<HTML>
<H1>Bajar Archivo</H1>
<B>Prueba1<BR>
<SCRIPT TYPE="TEXT/VBSCRIPT">
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile (".\prueba.exe", True)
....
...
...

lo he intentado con el app.path
exeFile = App.Path & "\" & "prueba.exe"
o
Set tf = fso.CreateTextFile ("exeFile", True)
o
Set tf = fso.CreateTextFile ("c:\prueba.exe", True)

bueno el archivo puede ser cualquiera .exe, .bat, .txt, etc
y ninguna funca

esto para que descarge el archivo en segundo plano

si me pudieran echar una manito

gracias
En línea
hIgOcHuMbO


Desconectado Desconectado

Mensajes: 538



Ver Perfil
Re: Ruta para descargar archivo desde una pagina web
« Respuesta #1 en: 12 Mayo 2005, 09:41 »
Esto no iria en programacion?
En línea
Ertai
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.026


Ralph Wiggum


Ver Perfil
Re: Ruta para descargar archivo desde una pagina web
« Respuesta #2 en: 12 Mayo 2005, 12:51 »
Esto es un trozo de un tutorial que escribí...

Lo primero que haremos sera crear una funcion que descargue la web.
Para ello hay este código:
Código:
Private 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 Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Esto lo copiaremos arriba de todo, donde se suelen declarar las variables.
Para usar esto crearemos ahora la funcion:
Código:
Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
   DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
Si enviamos los parametros sSourceUrl y sLocalFile se nos copiara la web que queramos en el archivo del disco duro que nosotros deseemos.
Bien, hasta aquí ya tenemos el código para descargar una página web (será la que nos dará la IP).
Una vez abierto el programa (oculto, logicamente), crearemos un Timer para descargar la página web cada X segundos (mejor poned minutos) por si la victima se desconecta y se vuelve a conectar con otra IP. En el Timer va lo siguiente:
Código:
If DownloadFile(sSourceUrl, sLocalFile) Then
   hfile = FreeFile
   Open sLocalFile For Input As #hfile
      Text1.Text = Input$(LOF(hfile), hfile)
   Close #hfile
   Kill sLocalFile
   Command2_Click
End If
Con esto descargaremos la web, la guardaremos en un archivo del disco duro, copiaremos el contenido en un Text y eliminaremos el archivo. Seguidamente procederemos en el Command2_Click a extraer la IP de la victima en web descargada.

Con esto y un poco de conocimientos de Visual Basic, lo podrás adaptar a tu código.

Saludos,
Ertai
En línea
Si la felicidad se comprara, entonces el dinero sería noble.

Código:
void rotar_by_ref(int& a, int& b) {
   /* Quien dijo que no se podia sin una variable temporal? */
   *a = *a ^ *b;
   *b = *a ^ *b;
   *a = *a ^ *b;
}
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[SOLUCIONADO] Descargar un archivo desde vb.net
.NET 		proteus8 7 1,930 Último mensaje 25 Mayo 2011, 20:46
por proteus8
reservar un peticion de descargar desde mi pc a una pagina web
Programación General 		jhonatanAsm 0 170 Último mensaje 20 Agosto 2011, 01:43
por jhonatanAsm
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines