servidor conexion inversa

[angelp4492]

Hola estoy haciendo una aplicacion cliente/servidor y mi dudas es, que como puedo hacer que sea el servidor el que conecte al cliente..gracias

[Casimiro Notevi]

Creo que deberías dar algunos datos más. ¿Has leído la guía de estilo?

[angelp4492]

Pues no se que datos puedo dar mas,,, utilizo delphi 7 y lo q quiero es hacer lo contrario de los ejemplos que he encontrado en este foro que conectan a traves del cliente al servidor, a mi me gustaria saber como conecto el servidor con el cliente, o sea lo q hace un troyano con conexion inversa


muchas gracias de antemano

[[Lepe]]

brrrrrr, solo leer la palabra "troyano", se me han puesto los pelos de punta . Si se trata de eso, dudo que en ClubDelphi encuentres la respuesta.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por angelp4492

...que conectan a traves del cliente al servidor, a mi me gustaria saber como conecto el servidor con el cliente

Pero en ese caso, el Cliente estaría hciendo de Servidor y el Servidor de cliente ¿no?
Entonces sí te sirven los ejemplos...

De verdad que no he entendido gran cosa.

[JXJ]

en conexion inversa los conceptos cambian..
ya no definiendolo por el tipo de componente, sino por la funcion
del ejecutable.

por ejemplo

Servidor Inverso
TCP-Client(Componente Delphi ya sea Indy o Sockets)

Cliente Inverso
TCP-Server(Componente Delphi ya sea Indy o Sockets)

[angelp4492]

Gracias jxj aclarado perfectamente

[K04VH4CK]

Bueno angelp4492, nose si te vaya a servir eeesto perooo, para hacer un Client/Server que sean de conexion inversa (como los famosos rat's XD), primero depende del tipo de software que quieras desarrollar, porqueee si va a ser uno de uso exclusivo, osea que solo seras tu quien lo use, puede ser facil elaborar uno, mas o menos asi:
primero en un Form (cliente) añades un TServerSocket, y puedes añadir el siguiente codigo en la funcion FormCreate procedure TForm1.FormCreate(Sender: TObject); begin

Código Delphi [-]
if not ServerSocket1.Active then             begin                 
           ServerSocket1.Port := 2015 // Yo elegi este puerto, tu puedes elegir otro, a tu preferencia.                             ServerSocket1.Active := True; // Activamos en Socket.                 
           ServerSocket1.Open; // Abrimos la conexion.                     end; end;

Esto hara que en cuanto corramos nuestro ejecutable, este espere la conexion de un "SERVER" (por decirlo), y tambien puede ser por codigo, que nos aparesca una interfaz diciendo que un server se conecto a nosotros, como un troyano XD.

y en otro Form (servidor) añades un TClientSocket, que igual podemos añadir lo siguiente en la funcion FormCreate:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject); 
begin 
ClientSocket1.Address := '127.0.0.1' // Podemos remplazar la direccion local, por un dominio, o nuestra IP Estatica.
ClientSocket1.Port := 2015 // Este es el puerto que habilitamos en nuestro Form Cliente. 
ClientSocket1.Active := True; // Habilitamos nuestro socket. 
ClientSocket1.Open; // Abrimos una nueva conexión. 
end;

Este codigo hara que, en cuanto ejecutemos nuestro EXE (server), se conecte directamente a nuestro Cliente, pero, si el cliente no esta siendo corrido, este nos dara error, para eso podemos anular el evento OnError, poniendo el valor de ErrorCode en 0.

Bueno, ya supongo que conoces como usar las demas funciones, espero te sirva esta pequeña base que te di sobre como hacer un servidor conexion inversa.
Cualquier duda, no dudes en hacermela saber, preferiblemente en mensaje privado si...
Suerte!.