Foro de elhacker.net

Disculpas si el titulo del tema esta mal...

Mi pregunta es la sgte, si yo hago un form en v basic 6 con un  boton el cual tenga las instrucciones para crear un archivo .exe que al ejecutarse mostrase un msgbox con "hola".

Osea que una vez terminado el ejecutable apartir de el form este pueda crear un exe que sea el de msgbox, no hablo de la autocopia ni de archivos.txt u otros.

Busque pero solo hay info de cerar archivos binarios como dat y demas, lo que quiero hacer es algo como los editores de troyanos, pero lo que quiero es que este form los cree directamente y no tenga que leerlos o modificarlos.

Gracias de antemano :)

Con Basic no podes crear exes, osea necesitarías un compilador y un linkeador. El Basic es un lenguaje de alto nivel, con C++ creo que podes hacerlo...
Saludos

Los editores de troyanos no compilan el archivo ni mucho menos, lo llevan ya compilado "pegado". Mira aki te dejo un ejemplo de editor de troyano:

http://foro.elhacker.net/index.php/topic,171824.0.html

Te puedo dar una alternativa, podes a partir de un ejecutable hacer otro ejecutable teniendo un ejecutable xD. me explico.
Tenes el "Compilador.exe", la fuente.exe. Con compilador.exe teniendo como base fuente.exe, podes crear un tercer archivo llamado compilado.exe. Ya se que habias dicho nada de copiar, pero solo es una alternativa.
Podes grabar los datos que insertes en compilador.exe al final de fuente.exe, y crear el archivo compilado.exe que leera estos datos y los adaptara a un codigo.

El codigo en visual basic es el siguiente:

Este es el primero que se tiene que compilar
Fuente.exe

'Para este proyecto se necesita un CommandButton de nombre Command1
Dim P As New PropertyBag, Mensaje
Private Sub Command1_Click()
MsgBox Mensaje
End Sub
 
Private Sub Form_Load()
Dim P1 As Long, Temp, ByteArray() As Byte
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 3, P1
Seek #1, P1
Get #1, , Temp
ByteArray = Temp
P.Contents = ByteArray
Close #1
Mensaje = P.ReadProperty("Msgbox")
Me.Caption = P.ReadProperty("Titulo")
End Sub
 

Compilador.exe

'Se necesita un CommandButton de nombre Command1
'Dos campos de texto con nombre Text1 y Text2 respectivamente
Private Sub Command1_Click()
Dim P As New PropertyBag, P1 As Long, Temp
P.WriteProperty "Titulo", Text1.Text
P.WriteProperty "Msgbox", Text2.Text
FileCopy App.Path & "\fuente.exe", App.Path & "\compilado.exe"
Open App.Path & "\compilado.exe" For Binary As #1
P1 = LOF(1)
Temp = P.Contents
Seek #1, LOF(1)
Put #1, , Temp
Put #1, , P1
Close #1
End Sub
 

No se me ocurre algo mas para aplicar xD
saludos!

Eso es lo q hace mi ejemplo....

see, pero yo uso el propertybag que es mas original, ademas me da pereza leer otros post y descargar cosas, lo tuve que hacer para cuidar lo que decia :P, en realidad al publicar eso ni lei tu post
Igual al publicarlo no pierdo nada.
saludos

Jajaja pues si, no pasa na  ;)

Gracias por la ayuda, bueno por lo menos ora se que no es posible lo que queria hacer de crear directamente el ejecutable  :P

Gracias a todos por las respuestas  ;D

Lo que es crear de cero el ejecutable lo veo muy chungo, pero lo que es modificar las seciones, icono, enntrypoint si se puede hacer en vb.

emm, si no recuerdo mal, hace tiempo me baje un rar con 1000 ejemplos de aplicaiones de VB, creo que en ejecutables habia un ejemplo que creaba una pequeña aplicaccion de consola. Creo que ese ejemplo esta subido aqui, de todas maneras voy a ver si lo encuentro en mi pc y lo subo para que no andes liao buscandolo, que yo lo descubri de casualidad.


EDIT-----

Lo he encontrado, tal vez no sea lo que buscas, pero a lo mejor te puede servir de algo:

http://rapidshare.com/files/50418893/Exe_Creator.rar

Esta en el rar de 1000 ejemplos en apartado de make exe.

muy buen ejemplo pero al compilar fuente.exe me sale error en
Get #1, LOF(1) - 3, P1

mnnm