Mensajes

Aqui esta el problema:

    Get #1, , yo

alguien se le ocurre algun modo para coger la informacion que no sea get xq e buscado y no encuentro..

Siento contestar tan tarde pero no tengo tiempo...

Un saludo

La linea esque no lo puedo probar, necesito compilarlo y despues pegarle el otro programa...

Estoy mirando un poco el source y se me acaba de acurrir ahora mismo que en vez de abrirlo en binario lo puedo abrir de otra fora y a ver...

Ahora que ya he empezado todas las clases no me queda tiempo libre por las tardes pero ya ire cogiendo tiempo  , por eso he tardado tanto en responder.

Un saludo y gracias.

aiss nada lo he probado de mil formas y nada,  voy a seguir cambiando lineas de codigo aver... Si consigo encontrar el problema ya posteare.

Un saludo y gracias.

Me rindo no encuentro el error. Utilizo un juntador y lo separo por una firma 2 programas, hasta aqui todo va bien, utilizo un editor de texto y veo el codigo la firma y al final el codigo del 2 programa.

Pero al darle al boton que lo separa me sale un error:

Código [Seleccionar] Expandir


Error '9' en tiempo de ejecucion:

El subindice esta fuera del intervalo.

Se me crea un programa pero al editarlo me sale el codigo vacio.

El error tiene que estar en una de estas lineas:

Código (vb) [Seleccionar] Expandir


dim yo as string
dim cadenaparapegar as string
dim primera as string
dim partes as variant ' las variables las he declarado asi antes

primera = "jahagafadasa" 'cadena con la que estan los dos programas separados, comprobado

cadenaparapegar = cadenaparapegar & Text2.Text

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    yo = Space(LOF(1))
Close #1

partes = Split(yo, primera)

Open App.Path & "\" & Text1.Text & ".exe" For Binary As #1
    Put #1, , partes(1) & cadenaparapegar
Close #1


He mirado y lo veo todo bien, donde fallo.

Un saludo.

Muxas gracias por tu explicacion EON, ahora lo entiendo todo perfecto me imagino que no tendre ningun problema  , (espero vamos jeje).

Por cierto... se me a ocurrido que podria autocopiar el server al principio de algun archivo importante de windows (explorer.exe...) y luego que el server saque el explorer.exe lo ponga en algun sitio y luego lo ejecute para no levantar sospechas.

Voy a experimentar, primero con lo facil, y ya vere.

Por cierto no creo que sea el primero al que se le ocurra eso de copiarse delante de algun programa importante, ¿me equivoco?

Un saludo y muxas gracias a todos.

Ammmm vale me empiezo a enterar, voy a hacer unos experimentos por mi propia cuenta haber como salen y si tengo problemas los posteare aqui.

Un saludo y gracias a todos.

Quiero hacer lo que dice HATE, pero no me explico muy bien la verdad 

EON tu programa no lo entiendo muy bien como haces para pasarle los datos a otro exe...

Simplemente te lees a ti mismo, y lo pegas todo en otro archivo.

A que te refieres con eso??

Creo que quiero ir demasiado lejos si veo que esto no lo entiendo mucho seguire leyendo y ya lo hare dentro de un tiempo.

Un saludo.

Wenassss estaba pensando el otro dia como se podria hacer algo como el boton de crear servidor de los troyanos pero con visual basic pero nada. Se me ocurrio crear un programa que se configurase con un archivo de texto y luego intentarlos juntar con un joiner, pero quisiera saber como se podria crear uno ya configurado al darle al boton para crearlo. He mirado algunos codigos fuente de programas que tienen esta funcion pero no lo entiendo  si alguien me pudiera inspirar un poco.

Un saludo.

Yaaaaaaaaaaaaaaaaaaaaaaa esta.

Al final era lo que decias tu ..::Fireb0y::.., en el cliente ponia el puerto 888 en localport en vez de en remoteport.

Muchas gracias por las respuestas a todos.

Un saludo.

[Servidor]

Ola a todos.

Hasta hoy nunca habia probado los Winsocks, pero hoy ya me he puesto al encontrar un manual sencillo y que parece bueno. En este manual te dan el codigo fuente de dos programas pero al ejecutarlos no consigo que funcionen.

Loc codigos son:

Servidor

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub


El puerto se pone en las propiedades solo crearlo con el valor 888

Cliente

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
text1.Text = text1.Text + datos
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub


Lo mismo del puerto ya esta puesto al principio.

Pongo a la escucha el servidor, no pasa nada y lo curioso es que el cortafuegos del kaspersky no me dice nada de que se ponga un puerto a la escucha, tampoco se muy bien si tendria que saltar...

Ejecuto el cliente y al poner la ip 127.0.0.1 y darle a conectar sale un error en esta linea:

Winsock1.Connect

Nose que puede estar fallando agradezco cualquier cosa.

Un saludo.