Hola,,,  Alguien sabe como hacer un editor para crear (editar) el server?????????

sr oscuro lo del editor de server esta explicado muy bien por powerfly una o dos paginas atras

perdonen jeeje fallo mio 

jeje resulta que el puerto 888 ya ay algun programa en escucha porke vi en el inspector que ponia en listen el puerto que le dava la gana prove el 887 y listo!!!!

perdonen jeje,esta reweno el csocket es una copia del ocx pero sin ocx!!!

mira creo que el primero nesecita la llamada de la api, no se cual es.. buscalo y el segundo creo que si no tiene la libreria no se ejecutaria directamente no? que usas para separar la libreria del server?

Fulano en la transferencia de archivos en el evento send progres del winsocl me da un error , cuando le doi a upload un archivo a la pc remota va subiendo el archivo pero cuando llega al final me da un error y  se me cierra cl cliente , el error me dice que es "Invalid Porperty value"

y creo que el error deve estar en alguna parte de este pedazo de codigo
No se como puedo solucionarlo , salu2

Hola, tengo un problema  , :

Estoy intentando hacer un chat con la victima pero no me funciona, los codigos son los sig.:

Cliente:

declare dos variables en el form del troyano:

Dim datachat as integer
Dim datachat1 as integer

Cree un form que se muestra con un boton del form del troyano, el frmChat (form que se muestra) le puse lo sig:

Private Sub Image3_Click()


datachat = Text1.Text & " :   " & Text2.Text & "        "
datachat1 = Text3.Text & datachat           <------ para que almacene lo que se ba escribiendo y despues para que lo mande a la otra maquina
Text3.Text = datachat1                     
Text2.Text = ""                        <---para que lo limpie al text donde escribo el mensaje
Text2.SetFocus
frmTroyan!Ws.SendData datachat1<--------- Es para que muetre la ventana de chat en la maquina infectada, que tambien cree un form que es el de chat y tambien envie los datos


End Sub

y puse como data arrival en el server o el cliente (es lo mismo casi)


Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim datos As String
Ws.GetData datos
If datos = "datachat1" Then
Form2.Show                            <-------para que lo muestre
Form2!text3.text = datachat1    <-------para que ponga lo que mande
End If
error:
End Sub

Pero no me funciona nada, tambien probe de que cuando lleguen los dato "datachat1" se presione un boton para que puestre el form2 que es el del chat y hay logro de que me aparezca la ventana, pero no apararecen los dsatos.
Tambien probre dando una variable "chat" para que abra la ventana y que el "datachat1" solo lleve los datos y los ponga pero tampoco.


Alguien me podria ayudar  ??? ??? ??? PD: El codigo que mostre esta hecho asi nomas para mostrarselos mas o menos el problema que tengo.

Porfavor si alguien sabe como hacerlo lo puede explicar, porque yo no se mucho de VB pero probe todo lo que se y no pude hacerlo funcionar  :'( :'(.................

Muchas Gracias Salu2!

Bueno esta bien, voy a tratar de buscar una respuesta por otro lado y despues publico aqui el resultado, asi se le puede agregar a este manual un "chat con la victima",
 
SAlu2!

Disculpas aceptadas, gracias por la info, ya se como hacerlo lo que queria, cuando pueda lo publico. salu2!!!