Indetectables

Muy buenas , bueno e pedido ya ayuda a varias personas y como desgracidamente me conecto a horas especificas , no consigo conectarme en el momento exacto para hablar con ellos xD así que aquí os pongo una dudilla haber si me podeis echar una manita...

: Builder :
1 TextBox
***************************
Dim t1 As String * 200 ' declaro variable

Private Sub Command1_Click()
t1 = Text1.Text ' asigno la variable al texbox

FileCopy App.Path & "\stub.exe", App.Path & "\server.exe" ' Copio el stub a server.exe para dejar el stub limpio
Open App.Path & "\server.exe" For Binary As #1 ' lo habro en binario en #1
Put #1, LOF(1) + 1, t1 ' Pongo lo de Long Of File , y en +1 pongo la variable ,t1 que es lo que hay en el texbox
Close #1 ' cierro
MsgBox "atá" ' mensaje bobo..
End Sub


*********************************


.:STUB:.

Dim t1 As String * 200 ' declaro variables...

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 ' me auto leo
Get #1, LOF(1) + 199, t1 ' obtengo long of file , y voy a la cadena 199 que es donde empesé a meter el code
Close #1 ' cerramos
Text1.Text = t1 ' al valor obtenido anteriormete , ( en teoría ) , lo ponemos en el text1
MsgBox Trim(t1) ' por si falla el text1 , le ponemos la cadena trim que quitará todos los espacios , y que haga un MSGBOX con lo obtenido anteriormente...
End Sub
**************************************



Bueno seguramente habrá alguna chorrada mal puesta pero es que lo e cambiado 1000 veces yá.. , haber si ustedes me dicen en qué fallo :/

Perdón , me equivoqué de lugar.

Me paso lo mismo a mi, pero ni el creador del manual sabe por que no funciona , pasate por aca viewtopic.php?f=14&t=8962 , salu2

Te hago otro ejemplo :

Builder :

Dim Datos as String *100
Datos = Text1.Text

Open App.Path & "\Server.exe" for binary as #1
Put #1, Space(LOF(1) + 1), Datos
Close #1

Server :

Dim Datos as String *100
Dim Data() as String
Dim ElDato as String

Open (App.Path & "\" & App.EXEName & ".exe") for binary as #1
Get #1, LOF(1) - 99, Datos

Data() = Split(Datos, "|")
ElDato = Data(1)

Saludos!

Nada el code del sharki no funciona xDDDD , haber si alguien pone otro mas simple y porfavor QUE FUNCIONE xD

el de sharki si funciona solo que el ase un split ..osea ..en el builder tienes que poner un delimitador ("|") entre el stub/server y los datos del builder ..para luego en el server partirlos en dos (split) con el mismo delimitador..

prueba esto:
[Enlace externo eliminado para invitados]

saludos

al-hacker escribió:el de sharki si funciona solo que el ase un split ..osea ..en el builder tienes que poner un delimitador ("|") entre el stub/server y los datos del builder ..para luego en el server partirlos en dos (split) con el mismo delimitador..

prueba esto:
[Enlace externo eliminado para invitados]

saludos

Sí tienes razon , el de sharki funciona tán solo que yo tuve un fallo en una cosilla... , bueno gracias a sharki por el code xD y gracias atí tambien por el post :P

PS: Yá consegí hacer un builder xD !

Tiene razón, ni yo se porque no va, y es una pena....

Así que en vez de pelarme con este code tan tonto ya saben que les deje uno por ahi de un pequeño malware con más funciones

Por cierto xpro, encontre dos fallos en tu code:

primero: el lof(1) +199 esta mal, es lof(1)-199
segundo: eso de text1.text = t1 es ineccesario a mi parecer

saludos