Foro de elhacker.net

hola!  ::)

puedo generar un exe desde un exe generado en visua lbasic 6?

ejemplo, yo hago un programa que se llama "soy tu padre", y en ese programa hay un boton que dice "Tener sexo", entonces cuando se haga click, se genera otro exe que se llama "Soy tu hijo". o.O

Es posible?


Add: el exe hijo se genera segun la informacion genetica del padre, la cual cambia.  :xD :xD :xD :xD :xD :xD :xD :xD (en serio lo digo, osea, el exe hijo tiene contenido "variable")

Add: Raul, Leandro... congratulations!  ;-)

Busca sobre Builders

sisii se puede, con un joiner e.e

Joiner no seria, joiner es para unir archivos en este caso quier q de un exe se cree otro con datos q el exe padre le dara.
Eso es un Builder

Si Se Puede.... Mira acá Te encontré un Ejemplo de Un Muchacho que hizo un ejemplo de como "Pasar los Datos"... Descargate el Source y Chequea lo... es muy fácil...

http://www.opensc.ws/vb-samples/2393-server-builder-basic.html (http://www.opensc.ws/vb-samples/2393-server-builder-basic.html)

gracias por las respuestas  ;-)

Alguien me dice en donde esta el error? :S

Modifique el codigo de agus... No le saque practicamente nada! noseporq  no anda :S

Aca el builder:

 
Const DATA_START = "[DATA]" ' sign that show the exe code has ended and our data begins
Const DATA_ARRAY = "[#]" ' split the parameters we passed from eachother
Dim SERVER_RESOURCE() As Byte ' byte array to load our resource data later
 
Private Sub cmd_build_Click()
 
On Error Resume Next
Kill App.Path + "\server.exe"                  ' if existing kill a older server file
 
On Error GoTo BUILD_ERR:
 
Open App.Path + "\server.exe" For Binary As #1 ' open server.exe file in same folder
 
SERVER_RESOURCE() = LoadResData(101, "CUSTOM") ' load resource(exe file/ stub)
 
Put #1, , SERVER_RESOURCE                      ' put the exedata/stub in opened file
 
Put #1, , DATA_START + src.Text + DATA_ARRAY  ' put [DATA](exe ends) then ip then [#](split data array) then port then [#](another parameter) then name
 
                                                ' later we split this and  use the data as parameters suchs as ip and port
 
Close #1                                        ' close file
 
MsgBox "server built", vbInformation, "builder" ' notify that server is built
 
Exit Sub
 
BUILD_ERR:
MsgBox "Build Error", vbCritical, "title"
Exit Sub
 
End Sub
 
 
 

el stub...

Const DATA_START = "[DATA]" ' sign that show the exe code has ended and our data begins
Const DATA_ARRAY = "[#]"    ' split the parameters we passed from eachother
 
Private Sub Form_Load()
 
Dim DATA_SPLIT() As String  ' array to split exedata(stub) from our written data
Dim DATA_PARAMS() As String ' spit up the data in parameters (ip/port etc)
Dim GRAB_DATA As String     ' string for grabbing all of the binary data
 
Open App.Path + "\" + App.EXEName + ".exe" For Binary As #1 ' open ourselves
 
GRAB_DATA = String(LOF(1), vbNullChar)                      ' create a buffer for file contents
 
Get #1, , GRAB_DATA ' like it says grab our data (STUB + DATA)
 
Close #1            ' close file we got all the data
 
DATA_SPLIT() = Split(GRAB_DATA, DATA_START)    ' split STUB from written data
 
DATA_PARAMS = Split(DATA_SPLIT(1), DATA_ARRAY) ' split parameters
 
 
src.Text = DATA_PARAMS(0)    ' ip is the first parameter
 
 
End Sub
 
 
 

Add: solucionado, la solucion estaba en el + data_array...


Gracias!

No Es mio Yo PUse el Link Nada mas :P (Aviso por que si no despues Mr. Frog me caga a Pedos)

Mira... Primero tenes que compilar el Stub y Meterlo como recurso en el Builder. Lo hiciste???

Que Error te da?

sisi agus, como ya dije arriba, esta solucionado... (Solucion muy tonta..)

"Es como pedirle a alguien algo que el no tiene"

ok Me alegro que te Sirva Cualquier Cosa nos Avisas... Suerte con ese proyecto

PERO QUE *****! visual basic de ***** me tildo y no guarde el proyecto.... *****!

no es la primera vez q me pasa, encima tildo cuando estaba compilando el q estaba listo! era raro q me vaya tan bien......  :-\

esta la opcion de siempre que le des a f5 te pregunte si queres guardar. Es recomendable activarlo :P

ajja gracias raul, la voy a activar  ;-) ;D

Otra pregunta...

Esto ya esta solucionado, pero...

ya tengo el archivo hijo, con toda su informacion...
ese archivo es INVISIBLE y nadie deberia ver lo que tiene, pero ¿y si creo un "Sistema vip", que poniendo un pin le muestre el contenido del hijo?

Creo que eso seria logica, pero estoy dormido  ;D

Add: mmm, creo que eso deberia integrarse en el hijo... creo que ya se como hacer. :xD

Listo, ya esta hecho (:

De todas formas, si tan secreto tiene que ser, deberías investigar sobre Debuggers (como SoftIce o el Olly) porque puede ser sencillísima de saltar esa seguridad que sugieres con ese "sistema vip" con un PIN.

Un saludo

HOLA!!!

Vip significa "Very important Person" no "Very important Program" XD.


Yo nunca activaria esa funcion XD, muchas veces doy vuelta los proyectos y al final no funcionan :(. y cuando no encuentro el error directamente no guardo y vuelvo a abrir el viejo XD,.

GRACIAS POR LEER!!!