48 respuestas en este tema

[seoane]

Le he estado dado un par de vueltas al código del TCP Broker del que hablamos el otro día, y lo he cambiado un poquito para darle un protocolo que regule el trafico de mensajes. Ahora los mensajes que se envían y se reciben tienen que tener una estructura definida, lo que permite manejarlos mejor, y sobre todo encaminarlos hacia el destino correcto.

En el zip adjunto, dentro de la carpeta bin, se pueden encontrar dos ejecutable "TCPBroker.exe" y "Cliente.exe". El TCPBroker es el servidor, y ya explique aquí ( http://delphi.jmrds.com/?q=node/82 ) como instalarlo. El otro es un pequeño programa de chat, que cree a modo de demostración del funcionamiento del servidor, y entre otras cosas permite conversaciones privadas o entre varios usuarios, usando un cifrado AES256 para cifrar todos los mensajes.

Para probarlo podéis usar  algo como esto (cambia TUNOMBRE por el tuyo sin espacios):

delphi

Cliente 83.165.42.235 55555 TUNOMBRE PRUEBA "Clave Secreta"

La ip es la mía en este momento, dejare el servidor a la escucha en esa ip durante al menos un día por si alguien quiere probarlo sin tener que instalar el servidor en su equipo. La IP es dinámica así que puede dejar de funcionar en cualquier momento 

Al ejecutarlo se mostrara algo como esto:

delphi

USER TUNOMBRE OK
TAG PRUEBA OK

Para mandar un mensaje solo tienes que teclearlo y pulsar Enter, entonces todos los demás usuarios conectados en ese momento al chat "PRUEBA" recibirán el mensaje que has enviado, pero solo los que estén usando la misma "Clave secreta" que tu podrán descifrarlo, nadie mas, ni siquiera el servidor pueden ver el contenido del mensaje 

Algo así es lo que se ve en pantalla:

delphi

USER TUNOMBRE OK
TAG PRUEBA OK
 
TUNOMBRE@PRUEBA: hola
OTRO@PRUEBA: hola

Cualquiera puede crear su propia conversación, solo hay que cambiar "PRUEBA" por cualquier otro identificador (sin espacios). Como veis para mantener una conversación lo único que hace falta es ponerse de acuerdo previamente que identificador y que clave van a usar todos los participantes.

Todavía hay bastante que pulir, pero me va gustando como queda y  quería vuestra opinión.

PD: Para probarlo, no hace falta que esperéis hasta encontrar a alguien mas conectado. Abrid dos veces el programa y listo 
PD2: La conexiones tienen un "timeout" de 5 minutos. Si no se envía ningún mensaje (aunque sea en blanco) en ese tiempo la conexión se cierra.

Saludos

ACTUALIZACIÓN: ES MEJOR DESCARGAR EL CÓDIGO DE LOS ÚLTIMOS MENSAJES, ES MAS ACTUAL

[felipe]

Esta bueno, funcionó tal cual, ¿los mensajes se guardan en el servidor?

[seoane]

Esta bueno, funcionó tal cual, ¿los mensajes se guardan en el servidor?

No, el servidor solo actúa como un "repartidor", cuando recibe un mensaje inmediatamente lo reenvía a los demás usuarios implicados en la "conversación". No sería difícil modificar el servidor para que guardara una copia de los mensajes, pero precisamente la potencia de este "broker" es que solo regula el trafico, sin analizar el contenido de los mensajes, por lo que ahora lo usamos para hacer un chat, pero mañana lo podemos usar para enviar cualquier otro tipo de datos binario y no tendríamos que modificar nada. Por otro lado, los mensajes en este ejemplo van cifrados, así que si el servidor no conoce la contraseña de poco le puede servir guardar los mensajes.

[escafandra]

Siento no poder ayudarte por el momento.


Saludos.

[seoane]

Siento no poder ayudarte por el momento.

Estaré esperando

[eduarcol]

Bien, solo que cuando envias el mensaje podria aparecer de nuevo el nombre a la espera del siguiente??

[poliburro]

Permite conexiones a través de proxy? de ser así me uno al testeo

[escafandra]

Permite conexiones a través de proxy? de ser así me uno al testeo

No he bajado el cóodigo pero si no lo hace, esta puede ser la solución:

www.delphiaccess.com/forum/trucos-y-consejos-16/pedir-autentificacion-en-un-proxy/

www.delphiaccess.com/forum/trucos-y-consejos-16/autentificarnos-en-un-proxy/


Saludos.

[seoane]

Bien, solo que cuando envias el mensaje podria aparecer de nuevo el nombre a la espera del siguiente??

Me lo apunto, aunque no es tan sencillo. La función "System.Readln" bloquea el programa impidiendo que reciba mas mensajes hasta que se introduce el texto, por eso utilizo la función "Keypress" para saber cuando el usuario quiere escribir un nuevo mensaje y entonces utilizar "Readln". El que aparezca nuestro nombre al principio de la linea sirve para indicarnos que el programa esta detenido esperando que introduzcamos el nuevo mensaje.

Permite conexiones a través de proxy? de ser así me uno al testeo

Me temo que no ... si se trata de un proxy http lo veo complicado, ya que que el protocolo de comunicación ni siquiera se parece al http. Aunque si tu proxy tiene habilitado el método "CONNECT" puedes utilizar un programa con desproxy http://desproxy.sour...t/index-es.html para establecer un túnel TCP hacia mi servidor. Si mas adelante continuo con esto (ya sabeis que me aburro pronto de mis proyectos ) podemos intentar meterle lo de los proxys.

[seoane]

A petición del amigo poliburro he añadido la opción de usar un proxy, solo hay que cambiar el archivo "Cliente.dpr" por este otro:

En el siguiente mensaje hay un código mejor ...

El proxy tiene que soportar el método CONNECT, el mismo que se utiliza para hacer conexiones https.

Ahora más te vale probarlo poli   

Saludos

[seoane]

Una vez que me metí con lo de los Proxy decidí darle un lavado de cara y organizar un poco el código.

También aproveche para incluir la autentificación en el proxy (ahora si que no hay excusas  )

Ejemplo con un proxy anónimo:

delphi

C:\TCPBroker\bin>Cliente 83.165.42.235 55555 TUNOMBRE PRUEBA "Clave Secreta" 190.225.190.4:3128
CONNECT 83.165.42.235:55555 HTTP/1.0
HTTP/1.0 200 OK
 
Conectado ...
Iniciando sesion ...
USER TUNOMBRE OK
TAG PRUEBA OK
Ya puedes escribir!
 
TUNOMBRE@PRUEBA: HOLA

Ejemplo con un proxy que necesita autentificación:

delphi

C:\TCPBroker\bin>cliente 83.165.42.235 55555 TUNOMBRE PRUEBA "Clave Secreta" 127.0.0.1:8080 usuario:123
CONNECT 83.165.42.235:55555 HTTP/1.0
Proxy-Authorization: Basic dXN1YXJpbzoxMjM=
HTTP/1.0 200 OK
Server: FreeProxy/4.50
Date: Sun, 22 Jul 2012 16:18:22 GMT
Content-Type: application/octet-stream
 
Conectado ...
Iniciando sesion ...
USER TUNOMBRE OK
TAG PRUEBA OK
Ya puedes escribir!
 
TUNOMBRE@PRUEBA: HOLA

Dejo adjunto el código completo. Actualización: El código mas abajo

[seoane]

Otra pequeña actualización. Ahora el servidor puede mandar mensajes con información al cliente, sin que esta la solicite primero (mensajes de bienvenida, de advertencia, etc ...). El cliente antiguo ya no es compatible con el nuevo servidor (se asustaba al recibir el mensaje de bienvenida    ) así que hay que usar el cliente nuevo.

Ajunto cliente y servidores nuevos.

PD: Poliburro, no me digas que después de añadirle la opción del proxy lo vas a dejar sin probar 

Actualización: Archivos mas abajo

[egostar]

Caramba!!!

Vas a un ritmo tremendo amigo Domingo, y yo sufriendo con un puto programa para uso interno, ya no hay respeto para los héroes 

Saludos

[cadetill]

Si quieres una prueba en real, me lo descargo y chateamos un rato jejejejeje

[poliburro]

PD: Poliburro, no me digas que después de añadirle la opción del proxy lo vas a dejar sin probar 

Jajajajaja sorry amigo es que me habia desconectado el fin de semana.... Pero ahora si lo probaré.

saludos

[seoane]

Si quieres una prueba en real, me lo descargo y chateamos un rato jejejejeje

No estaría mal, lo malo es que ahora estoy en el trabajo  asi que no te puedo asegurar que este muy atento. Aunque un "hola y adios" si se puede hacer 

Podemos usar esta cadena de conexión:

delphi

Cliente 83.165.42.235 55555 TUNOMBRE DELPHIACCESS "DELPHIACCESS"

Lo tendré encendido durante media horita ahora (hasta que salga), y luego lo volvere abrir por la noche

Se puede unir el que quiera 

[egostar]

Lo tendré encendido durante media horita ahora (hasta que salga), y luego lo volvere abrir por la noche

Se puede unir el que quiera 

Si lo dejas abierto a las 9:00PM (GMT-6) yo hago la prueba

Saludos

[poliburro]

Pues lo he ejecutado pero me ha marcado error en la primera línea...
mando imagen..

para mencionar que lo probé con delphi7 en windows 2000 que es la configuración que tengo en la oficina...



saludox¡¡¡¡¡¡¡¡¡¡¡

Archivos adjuntos

•  3721_f3c4e729678658cb7fb3ef9c5762f50cafa79d99.jpg   345,37KB   14 descargas

[seoane]

Pues lo he ejecutado pero me ha marcado error en la primera línea...
mando imagen..

para mencionar que lo probé con delphi7 en windows 2000 que es la configuración que tengo en la oficina...

Pues es por culpa de la la librería de windows crypt32.dll que en windows 2000 le faltan alguna funciones. Pon la dll que te adjunto en el mismo directorio de la aplicación y listo.

[poliburro]

caray... esto de usar windows 2000

ahora me dice:

The Procedure entry point CryptStringToBinaryA could not be located in the dinamic link library cript32.dll