FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Grabar Messenger
Amigos, en la empresa donde tabajo, me estan pidiendo que desarrolle un programa que permita grabar las conversaciones realizadas por messenger en una base de datos SQL, no tengo la mas minima idea de como hacerlo, he escuchado que messenger utiliza socks y que esteos me pueden servir para mi proposito,.
de ante mano gracias |
#2
|
||||
|
||||
No se quetan legales sean tus pretensiones pero por aqui puedes comenzar a tener una idea de lo que enfrentas
http://www.clubdelphi.com/foros/show...colo+messenger http://www.clubdelphi.com/foros/show...colo+messenger
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#3
|
||||
|
||||
Ademas, creo que tendrás que documentarte en la pagina oficial de la API de Messenger... http://msdn2.microsoft.com/en-us/library/aa905655.aspx
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#4
|
||||
|
||||
Ya te han comentado sobre la legalidad del programa, así que antes de empezar preguntaría a un abogado, no sea que puedan denunciar a tu jefe y este te meta en un lío.
|
#5
|
||||
|
||||
Cita:
Saludos
__________________
|
#6
|
||||
|
||||
Al margen de lo comentado, SI es posible hacer lo que te piden.
Un procedimiento válido sería hacer un packet sniffer, es decir realizar un programa que escuche o intercepte los puertos utilizados por el messenger. Esto, técnicamente no resulta difícil. Lo complicado a mi juicio, es interpretar todo lo que entra y lo que sale por los puertos, es decir el protocolo, dado que como es obvio, la trasmisión no es ASCII simplemente, sino que los paquetes de datos llevarán de todo un poco. Hace tiempo hice un programa que utiliza esta técnica y los resultados fueron excelentes, le implementación fue mediante sockets. Te pongo unas porciones de código para que resulte mas ilustrativo:
En esta línea sin_port := htons(puerto); es donde defino el puerto a escuchar. Una vez ejecutado el código, la aplicación recibe mensajes WM_NETEVENT = WM_USER + 103; en el procedimiento procedure NetEvent(var NetMessage: TMessage); message WM_NETEVENT; y este sería realmente el procedimiento que se tendría que discernir todos los datos que entran y/o salen, es decir, traducir los paquetes de datos para que sean legibles. Espero que te resulte útil. Saludos.
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
#7
|
||||
|
||||
Leyendo el mensaje de Avellas no veo donde dice que quiera espiar a nadie, solo dice que quiere registrar las conversaciones de messenger. No dice si las conversaciones serán suyas o de otros, tampoco dice si el registro tiene alguna función dentro del trabajo que se realiza y si los usuarios saben que los están grabando, al igual que a los teleoperadores que les graban las conversaciones para luego revisarlas con ellos. Por eso no hay que pensar mal, y acusarlo de espiar sin dejar que el chaval se explique
Por otro lado no se que tan fácil sera espiar las conversaciones de messenger. Si los ordenadores están conectados directamente a internet (o a través de un router) y no usan un hub sino un switch, veo difícil leer los paquetes desde otro equipo. Si por el contrario los equipos se conectan a internet a través de un proxy a internet es ahí donde se debe interceptar la comunicación, siempre que no utilice https o algún otro método de cifrado, ya que lo que obtendrás serán bytes sin sentido. Y si es desde el mismo equipo resultaría mas fácil leer la propia ventana del messenger, donde escribe el usuario, que intentar descifrar el protocolo de comunicación. Por último, si no me equivoco, el messenger tiene la opción de registrar las conversaciones, y ya que contamos con el conocimiento y la colaboración del usuario (único uso legitimo para mi) por que no usar esa opción para registrar las conversaciones y luego crear un programa que periódicamente suba la información contenida en esos archivos a la base de datos. |
#8
|
|||
|
|||
Muchisimas gracias a todos por la colaboracion, para quienes creen que es un tema de espionaje les aclaro que es una empresa Comisionista de Bolsa y que ellos tienen una reglamentacion donde el corredor firma una clausula en el contrato donde autoriza a que todas la conversaciones telefonicas y realizadas por messenger u otro aplicativo sean grabadas.
|
#9
|
|||
|
|||
Ardilla, le agradezco la colaboración, voy a probrar el codigo y aunque tengo muchas dudas mes espero a probarlo para luego molestarlo... Gracias
|
#10
|
||||
|
||||
Ok. Aquí estamos para lo que podamos ayudar, en lo que no, habrá que contratarlo...
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
#11
|
||||
|
||||
Por cierto ArdiIIa, el código que pusiste ¿que hace?, porque no lo tengo claro
|
#12
|
|||
|
|||
Ardilla, he probado el codigo pero al compilar me genera un error en esta clausula: HostEnt : PHostEnt;
error: Undeclared identifier PHostEnt error: Undeclared identifier TSockAddrIn error: Undeclared identifier u_int error: Undeclared identifier CheckConexion error: Undeclared identifier Crazy error: Undeclared identifier WSAStartup error: Undeclared identifier WSAData error: Undeclared identifier Socket mejor dicho, me da pena pero es posible que me ayudes con el codigo completo. Gracias |
#13
|
||||
|
||||
Cita:
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#14
|
||||
|
||||
También parece que falta algún método en dicho codigo, como por ejemplo, CheckConexion. Que allí hace referencia pero a simple vista no lo encuentro.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#15
|
||||
|
||||
Oh, oh, mal empezamos, si seoane no alcanza a comprender el código, es que es muy malo (el código ), o me he explicado mal, luego... veamos a ver si podemos explicarlo y de paso ayudamos a Avellas.
Hace mucho, mucho tiempo, prácticamente me vi en la misma situación que Avellas, por donde empezar ?? y como viene siendo muy común, este tipo de preguntas, suelen suscitar muchos resquemores y cuestiones éticas, pero lo cierto y verdad, es que al final tienes que dedicar tiempo a investigar por otros medios... y mira por donde, al parecer, ese fue mi primer mensaje en el foro.... Comencé por cosas esenciales tales como la estructura de un paquete TCP para ver que tecla tocar o donde mirar (Cabecera del paquete RFC 790). Código:
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ |Versión| IHL |Tipo de Servic.| Tamaño Total | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Identificación |Flags| Desplaz. del Fragmento | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ |Tiempo de Vida | Protocolo | Checksum de la cabecera | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Dirección de Origen | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Dirección de Destino | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ Una vez teniendo claros algunos conceptos, empecé a meterle mano al asunto. Obviamente, para "escuchar un puerto", primeramente debemos saber que puerto escuchar, yo para ello utilizé el NETSTAT, redireccionado mediante un pipe, buscando la aplicación que deseamos "fiscalizar", este asunto también lo comenté en este hilo, y vuelvo a reiterar ahora, que por desgracia seoane aun no había publicado su código citado en ese mismo post. Una vez que tenemos el puerto lo que hacemos es interceptarlo para ver todo lo que entra y sale. En mi caso solamente me interesaba la información que entraba, pues la que salía, se la suministraba yo por otro procedimiento. y este es esto justamente lo que hace el procedimiento que antes he insertado. Todas las funciones utilizadas con sockets, están documentadas en la ayuda, asi como el modo de parametrizarlas, aunque reconozco que no son funciones fáciles y las cito según están en el código. Paso a comentar mas o menos el código insertado anteriormente, primero que nada decir que hace falta el uses WinSock2 para tener acceso a algunas de las funciones socket. (ya comenta algo jhonny) CheckConexion -> Es un procedimiento simplemente informativo, y chequea mediante un FindAWindow si el programa a controlar se está ejecutando, de no ser así, todo lo demás no tendría sentido... WSAStartup -> Inicializa el sistema de sockets WSASocket -> Crea el socket Las funciones GetHostName, gethostbyname,ntoa son para obtener el nombre y la IP de la máquina local, las utilizo para ir plasmando información en un RichEdit, y es obvio que el maestro seoane las conoce muy bien.... Memo1Write-> Es un procedimiento que escribe en el RichEdit, en diferentes colores... Seguidamente suministramos datos a la estructura SockInterface, la cual será utilizada por la función Bind para asociar la IP local al socket creado. Si todo ha ido bien, utilizamos la función WSAIoctl que será la encargada de controlar el modo o comportamiento del socket, pasándole el parámetro SIO_RCVALL que habilita el socket para recibir todos los paquetes, remarcando que para utilizar este parámetro, hay que tener privilegios de administrador, o en caso contrario fallará. Además comentar que está disponible a partir de windows 2000 y superiores y hay que definirlo previamente: (sudores.... ) Finalmente con WSAAsyncSelect indicamos al socket nos trasmita los paquetes recibidos (FD_READ) en forma de mensaje windows.
Mensajes que recibiremos en el procedimiento creado al efecto:
En este procedimiento es donde haremos la lectura de los datagramas. Esto no lo he comentado anteriormente, pero en esencia es leer y procesar:
y por último, decir que me creé una estructura para filtrar la información de los paquetes recibidos....
Creo que mas o menos he explicado el procedimiento, aunque debo aclarar, que lo mio no es la docencia, pues mas que explicar las cosas, que por cierto se me da bastante mal, prefiero ponerlas en práctica, y eso se consigue indagando y programando. Cita:
Cita:
Cita:
Cita:
Saludos
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
#16
|
||||
|
||||
Interesante, no conocía la posibilidad de poner los sockets en modo promiscuo. Ahora mismo no tengo tiempo, pero en cuanto pueda le echo un vistazo.
Gracias Ardilla |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
delphi y ms messenger `````` | alejo000 | Internet | 9 | 16-02-2009 19:16:02 |
Eliminar Messenger | rafita | Windows | 11 | 16-01-2008 19:30:13 |
messenger por comandos | Cosgaya | Varios | 0 | 01-02-2006 12:58:17 |
Messenger ListBOx?? | vtdeleon | OOP | 2 | 10-02-2005 14:09:48 |
API's de messenger 6? | darkone2k3 | API de Windows | 3 | 30-01-2004 18:09:13 |
|