Bueno pues aqui voy a intentar explicar de forma sencilla la parte más dificil que me he encontrado al aprender a hacer un malware en VB y es la de crear un builder

El ejemplo será un Form con dos TextBox y un CommandButton que creará un exe que al ejecutarse mostrará un Message Box con el mensaje de la TextBox1 y el caption de la TextBox2

BUILDER:
dim textt as string * 250 'nos definiremos como una variable de 250 caracteres
dim captionn as string * 100 'nos definiriremos como una variable de 100 caracteres

Private sub command1_click()
textt = text1.text 'pasamos los text a una variable cada uno
captionn = text2.text

filecopy app.path & "\stub.exe", app.path & "\server.exe" 'copiamos el stub para no escribir sobre el propio stub que debe estar limpio para la proxima vez



open app.path & "\server.exe" for binary as 1 'abrimos el stub
Put #1, LOF(1)+1, textt 'al final, esdecir, al tamaño más uno (logicamente) escribimos la variable textt
Put #1, , captionn 'inmediatamente después la variable captionn
close #1 'cerramos el fichero
end sub 'server terminado


STUB:
Private sub form_load()

dim textt as string * 250 'definimos de nuevo la variable y su longuitud dentro del fichero para que pueda leerla correctamente
dim captionn as string *100 ' lo mismo

open app.path & "\" & app.exename & ".exe" for binary as 1 'nos autoleemos
get #1, LOF(1)+349,textt 'nos vamos al final del stub, es decir la longuitud total ahora menos lo que hemos puesto menos uno (logicamente), y estando ahi leemos la variable textt que tendrá muchos espacios
get #1, , captionn 'lo mismo con la otra variable
close #1

msgbox trim(textt),vbInformation,trim(captionn) ' hacemos el mensaje usando la funcion trim que lo que hará será borrar los espacios qeu sobran (caracteres sin usar)

end sub

que quede claro esto, la funcion trim sirve para quitar los espacios porque si textt ocupa 250 y nosotros solo ponemos "hola" visual lo considerara como "hola (250espacios)" el trim evita eso ya que por ejemplo si queremos hacer un downloader este no podra descargar nada de aqui "[Enlace externo eliminado para invitados] (200espacios)"

IMAGEN (VALE MAS QUE MIL PALABRAS):
Imagen



Si se puede pensar, se puede programar

Espero ver como los que preguntaban por un builder empiezen a sacar programas ahora a tope eee!!!

SI LO PONES EN OTRO LUGAR PON LA FUENTE Y EL AUTOR!!! (raulrl o BioHazardBB)
Última edición por raulrl el 14 Abr 2009, 14:12, editado 1 vez en total.
Imagen
Muy bueno !

otra de las maneras simples de hacerlo es metiendo el archivo a un array de bytes ,
agregar el eof a ese array , y luego copiar el array a otro archivo de salida.
obviamente tmb hay otras. y en el stub tmb ,por ejemplo un llamado a un api para saber donde esta el eof, por mas q se encripte el archivo funcionara igual.

despues pondre un codigo en delphi

un saludo amigo!!
No hay éxito como el fracaso, pero el fracaso no es ningun éxito...
Bueno en realidad todos los creditos de esto son para DRIGIN que tuvo mucha paciencia comigo para que lograse entenderlo
Si pusieras el codigo en VB para lo del array estaría muy bien tambien

si se puede pensar se puede programar
Imagen
muy bueno !!..grasias !
otra manera mas profecional es añadiendo el server/stub al clinete como recurso y editarlo apartir de ahi..
si quieren luego posteo el code :D
http://www.freundt-esta-aburrido.blogspot.com
sip simplemente el code seria este:

Código: Seleccionar todo

dim stub as byte 'definimos el binario como byte
stub = loadresdata (101,"CUSTOM") 'cargamos el recurso dentro de la variable

Open app.path & "\server.exe" for binary as 1  'abrimos un exe en blanco
put #1, , stub 'ponemos el stub
close #1  'lo cerramos
lo hice muy rapido y ven algun error corrigan!!!
Imagen
La parte de " Do Events " me la coje como mal el VB , me dice que me falta un WHILE y un WENT creo que són , podrias corregirlo ? y gracias porque sinceramente ahora sí lo entendi bien, tán solo que no consigo hacerlo rular xD, porque en el MSGBOX no me salen los datos que e puesto al principio , directamente no aparece nada , nosé si será por falta de eso de Do events, bueno haber si lo puedes corregir esa parte :P

Gracias por la imagen !
Imagen

http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png

http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png

http://www.youtube.com/watch?v=wHYYkciIKE0
xpro, ya conozco ese problema, le ocurrio a otra persona, simplemente pasate por un nuevo theread que hice en este mismo subforo que es otro builder, esta vez con el code incluido, bien sencillito y encima rulaaa!!!

saludos
Imagen
Khazeus escribió:Me muestra un msgbox vacio =(

Acuerdate de poner el " Trim(variable del msgbox ) " para que quite los espacios sobrantes.
Imagen

http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png

http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png

http://www.youtube.com/watch?v=wHYYkciIKE0
Responder

Volver a “Manuales”