Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: hentei en 23 Julio 2005, 03:26 am



Título: joiner
Publicado por: hentei en 23 Julio 2005, 03:26 am
Estoy tratando de hacer un joiner, pero tengo un problema con el codigo. Me une los dos archivos, se nota el cambio de tamaño en el archivo, pero solo se ejecuta uno el primero, en este caso pj64. Alguien puede ayudarme para que se ejecuten los 2.
Aca esta el codigo:

Dim Buffer As String
Dim Buffer2 As String
Dim buffspace As Long
Open "C:\pj64.exe" For Binary As #1
buffspace = LOF(1)
Buffer = Space$(buffspace)
Get #1, , Buffer
Close #1
Open "C:\vb.exe" For Binary As #1
buffspace = LOF(1)
Buffer2 = Space$(buffspace)
Get #1, , Buffer2
Close #1
Open "C:\out.exe" For Binary As #1
Put #1, , Buffer & Buffer2
Close #1




Título: Re: joiner
Publicado por: Slasher-K en 23 Julio 2005, 03:40 am
Podrias escribir en el primer archivo el offset del comienzo del otro (que seria el tamaño del primero) y el tamaño para asi poder extraerlo.

Saludos.


Título: Re: joiner
Publicado por: hentei en 23 Julio 2005, 05:41 am
La idea no es extraerlo es que se ejecuten los 2 a la vez.


Título: Re: joiner
Publicado por: byebye en 23 Julio 2005, 05:46 am
eso no es posible, basicamente digamos que un joiner hace algo asi:

joiner - programa extractor - programa1 - programa2

bien, programa extractor es el encargado de extraer esos dos programas y ejecutarlos, que tu los pongas juntos en un archivo no quiere dec ir que los 2 van a ser ejecutados. los ejecutables se rigen por unas normas. lee sobre los archivos PE y entenderas que te digo.


Título: Re: joiner
Publicado por: hentei en 23 Julio 2005, 06:07 am
Listo ahora si entiendo ya leere algo de PE y seguire probando.
Muchas gracias a ambos