48 respuestas en este tema

[seoane]

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

Pues ahora no se que decir . El error en windows 2000 de la unit base64 ya lo conocia, pero varios usuarios me habian confirmado que al añadir a la carpeta del ejecutable la libreria crypt32.dll de un Windows XP el problema se solucionaba. (Como se puede ver aquí http://delphi.jmrds.com/?q=node/43 ).

La función esta en esa librería que te envié, lo único que se me ocurre es que por algún motivo este utilizando la del directorio system32 en vez la que dejaste al lado del .exe.

Tendré que buscar otra forma de codificar en base64 (hace tiempo que quería dejar de depender de la API para realizar esta función), pero no es nada fácil, y sorprendentemente hay muy poco código para hacer esto en pascal que no este centrado en strings.

Déjame que le de una vuelta ...

[cadetill]

Pues tengo que decir que el chat funciona de coña

[egostar]

Pues tengo que decir que el chat funciona de coña

De coña es como decimos acá, de poca madre ??? es decir muyyyyy bien ???

Saludos

[cadetill]

Pues tengo que decir que el chat funciona de coña

De coña es como decimos acá, de poca madre ??? es decir muyyyyy bien ???

Saludos

Correcto, jejejeje, a veces me olvido que, aunque hablamos la misma lengua, hay diferencias en el lenguaje entre aquí y allí

Por cierto, un placer hablar contigo, Domingo

[seoane]

Pues si que me esta dando trabajo nuestro amigo Poliburro  ... en fin aquí dejo la nueva versión, donde todo el cifrado base64 lo hago con código delphi, nada de dlls ni APIS, solamente puro código 

PD: Ahora si que lo tienes que probar Poli 

Actualización: Código mas abajo

[Delphius]

Hola,
Al paso que vas Domingo, en una semana tienes hecho tu Seoane Messenger  y pones al MSN de rodillas 

Cada vez te veo más filoso y los retos te quedan chicos. Umm... ¿se viene Seoane S.O? 

Saludos,

[poliburro]

PD: Ahora si que lo tienes que probar Poli 

ahora si a probarlo.... en breve comento

[poliburro]

Funciona de maravilla... aunque no le puse datos del proxy me conectó sin problema al parecer lo cual me parece raro... es correcto?

[poliburro]

ahora he conectado usando configuración del proxy y también funciona perfecto, pero al parecer nadie está conectado pues no me responden... que solo me siento.... jojojojo

[egostar]

Funciona de maravilla... aunque no le puse datos del proxy me conectó sin problema al parecer lo cual me parece raro... es correcto?

Con todo lo que hace Domingo, no me parece nada raro que se salte las trancas y haga funcionar sus ideas a pesar de todas las restricciones habidas y por haber

Saludos

[seoane]

Funciona de maravilla... aunque no le puse datos del proxy me conectó sin problema al parecer lo cual me parece raro... es correcto?

Pues este es el fichero de log:

delphi

[24/07/2012, 17:54, 00003218] CheckAddress(200.xx.xxx.xxx:34889) = True
[24/07/2012, 17:54, 0000210C] Finalizado (200.xx.xxx.xxx:34889)
[24/07/2012, 17:54, 00003218] CheckAddress(200.xx.xxx.xxx:35145) = True
[24/07/2012, 17:55, 0000210C] Finalizado (200.xx.xxx.xxx:35145)
[24/07/2012, 17:57, 00003218] CheckAddress(189.xx.xxx.xxx:58251) = True
[24/07/2012, 17:57, 0000210C] Finalizado (189.xxx.xxx.xxx:58251)
[24/07/2012, 17:57, 00003218] CheckAddress(189.xxx.xxx.xxx:9356) = True
[24/07/2012, 18:40, 0000210C] Finalizado (189.xxx.xxx.xxx:9356)

Al parecer "200.xx.xxx.xxx" pertenece a México "xxx-xxxx.com.mx", y esta otra "189.xxxxxx.xxx" es de "axtel" y fue utilizada por un tal xxxxxx para hacer una consulta en un foro en el 2011. Yo apuesto a que la tuya es la segunda (en realidad lo se seguro por los logs del foro  , pero la investigación detectivesca me pareció más interesante  ).

Si normalmente sales a través del proxy, casi seguro que la segunda ip es la del proxy, y puede que la primera sea tu ip publica real.

Por otro lado, si pudiste conectar sin dar los datos del proxy es que tienes conexión directa hacia internet, no hay otra manera. Al encargado de la seguridad en tu oficina se le esta escapando algo 

Gracias por probarlo !!!

[egostar]

.......Yo apuesto a que la tuya es la segunda (en realidad lo se seguro por los logs del foro  , pero la investigación detectivesca me pareció más interesante  ).

Hey, eso es asunto de egopolice

Saludos

[seoane]

Hey, eso es asunto de egopolice

No sabes hasta que punto dejamos nuestro rastro en internet. Con cuatro datos sobre una persona puedes sacar un montón de información, incluso su foto del censo (como demostró el infame caso del censo peruano). Sin ir mas lejos con solo la ip hay paginas que te informan de que torrents se han bajado desde esa dirección (incluso las películas porno, así que ojito ).

Internet es el paraíso de los cotillas ! 

[seoane]

Aquí vuelvo con mi "daily snapshot" 

He mejorado el sistema de comando y respuestas, y he añadido en el cliente la opción de enviar comandos:

delphi

C:\TCPBroker\bin>cliente 127.0.0.1 55555 YO YO YO
Conectado ...
Iniciando sesion ...
=== Bienvenido a TCP Broker (beta) ===
 -> Fecha y hora del servidor: 25/07/2012 - 00:03
 -> Tiempo de espera: 300 segundos
USER YO OK
TAG YO OK
Ya puedes escribir!
 
YO@YO: Hola
CMD: ping
RESP: PONG
CMD: time
RESP: 00:03:41
CMD: session
RESP: 000029485F543E08E267716138F17DBA
YO@YO:
 
Se ha cerrado la conexion
 
Adios!

Para enviar un comando solo hay que comenzar un mensaje con un guion "-".

Los comandos que admite por ahora son:
Tag: Para cambiar de chat
Ping: El servidor responde Pong
Time: El servidor devuelve la hora
Date: El servidor devuelve la fecha
Session: Devuelve un identificador único para esta sesión

¿Se os ocurren mas comandos?

Actualización: El código esta más abajo

[eduarcol]

OnLine, devuelve los usuarios conectados

[egostar]

OnLine, devuelve los usuarios conectados

y OFFLine los desconectados ?????

Y que tal un comando para expulsar a un ideseable 

Saludos

[escafandra]

Y que tal un comando para expulsar a un ideseable 

...y ¿quién controla el comando baneante?

Saludos.

[egostar]

Y que tal un comando para expulsar a un ideseable 

...y ¿quién controla el comando baneante?

Saludos.

YO

Saludos

[seoane]

OnLine, devuelve los usuarios conectados

Hecho! He añadido el comando "Who" (el mismo que en linux) que devuelve los usuarios con el mismo "tag" que nosotros.

y OFFLine los desconectados ?????

Eso esta un poco difícil

Y que tal un comando para expulsar a un ideseable 

Y quien tendría el "botón rojo"

El código nuevo esta mas adelante en este post !!!

[Rox77]

Ping: El servidor responde Pong

JAJAJAJAJAJJAJAJAJAJAJJAJJA, me encanta....