[AYUDA] Algo parecido a Snifear packets

[ErCaZa]

Hola usuarios de Foros del Web, tengo otra de mis muchas dudas :)

Resulta que estoy desarrollando una aplicación que más que nada lo que hace es eso ver los packets que se envían entre dos aplicaciones. Pero lo que hago realmente es lo siguiente:

el cliente realmente se conecta al server por el puerto 3724 entonces yo al server le he cambiado el puerto al 3723 y yo he creado una aplicación con dos librerías cliente/servidor que se encarga de escuchar y enviar esos packets que recibo, ahora el problema que yo tengo lo que recibo por parte del cliente no se como enviarlo exactamente igual al servidor, porque en mi caso lo he intentando con variables del tipo string y byte pero claro esto cambia la cadena original y luego al enviarla ya no es la misma entonces no funciona.

Yo simplemente lo que quiero es ser un intermediario entre dos aplicaciones cliente/servidor y ver los packets que se envían entre ellos, sin que ello influya en el funcionamiento de los programas, basicamente es eso que no cambie la cadena que recibo para poderla enviar igual al servidor y viceversa.

Si no quedo claro mi duda decídmelo y pondré ejemplos para que entendáis lo que quiero decir.

Gracias de antemano :)

[dwaks]

Pasa todo lo que envias por red a array de byte[] así tu no sabes ni que se mandan ellos solo sabes que es array de byte y lo que haras es retrasmitir lo mismo que te mandan de ambos lados.

Saludos,

[ErCaZa]

Ok, gracias probare haber si me funciona ^^
Por lo que tengo entendido simplemente las variables en la que almaceno los datos los modifico por un array del tipo byte.

[ErCaZa]

No se que pasa pero no me funciona :S es como si los datos cambiaran mira te pongo el codigo que utilizo

Uso las clases de Elguille sockets modificadas:
Solo pondre las cosas que cambie:
----------------
Clase Cliente
----------------

Código vb:

Public Sub EnviarDatos(ByVal Datos() As Byte)
        Dim BufferDeEscritura() As Byte
        BufferDeEscritura = Datos
        If Not (Stm Is Nothing) Then
            'Envio los datos al Servidor
            Stm.Write(BufferDeEscritura, 0, BufferDeEscritura.Length)
        End If
    End Sub
'Envia los datos como array Byte()
 

Código vb:

Private Sub LeerSocket()
        Dim BufferDeLectura() As Byte
        While True
            Try
                BufferDeLectura = New Byte(65535) {}
                'Me quedo esperando a que llegue algun mensaje
                Stm.Read(BufferDeLectura, 0, BufferDeLectura.Length)
               'Genero el evento DatosRecibidos, ya que se han recibido datos desde el Servidor
                RaiseEvent DatosRecibidos(BufferDeLectura)
            Catch e As Exception
                Exit While
            End Try
        End While
        'Finalizo la conexion, por lo tanto genero el evento correspondiente
        RaiseEvent ConexionTerminada()
    End Sub
'Lee los datos como array byte()
 

Código vb:

Public Event DatosRecibidos(ByVal datos() As Byte)
'Variable
 

-------------------
Clase Servidor
-------------------

Código vb:

Public UltimosDatosRecibidos() As Byte 'Ultimos datos enviados por el cliente
 

Código vb:

Public Function ObtenerDatos(ByVal IDCliente As Net.IPEndPoint) As Byte()
'Una función del tipo Byte()
 

Código vb:

Public Sub EnviarDatos(ByVal IDCliente As Net.IPEndPoint, ByVal Datos() As Byte)
        Dim Cliente As InfoDeUnCliente
        'Obtengo la informacion del cliente al que se le quiere enviar el mensaje
        Cliente = Clientes(IDCliente)
        'Le envio el mensaje
        Cliente.Socket.Send(Datos)
    End Sub
'Envio los datos de forma array Byte()
 

-----------------------
Aplicación Servidor
-----------------------

Código vb:

Private Sub WinSockServer_DatosRecibidos(ByVal IDTerminal As System.Net.IPEndPoint) Handles WinSockServer.DatosRecibidos
        'Muestro quien envio el mensaje
        IDTerminal_Jugador_Actual = IDTerminal
        Dim Datos() As Byte = WinSockServer.ObtenerDatos(IDTerminal)
        Log_Servidor("El serivodor ha recibo los datos correctamente")
        WinSockCliente.EnviarDatos(Datos)
    End Sub
 

Código vb:

Private Sub WinSockServer_NuevaConexion(ByVal IDTerminal As System.Net.IPEndPoint) Handles WinSockServer.NuevaConexion
        'Muestro quien se conecto
        Log_Servidor("Nuevo Jugador intentando acceder al servidor desde la IP: " & IDTerminal.Address.ToString & ",Puerto: " & IDTerminal.Port)
        WinSockCliente.IPDelHost = "localhost"
        WinSockCliente.PuertoDelHost = 3723
        WinSockCliente.Conectar()
    End Sub
 

Código vb:

Public Sub EnviarDatos(ByVal Datos() As Byte)
        Dim Cliente As InfoDeUnCliente
        'Recorro todos los clientes conectados, y les envio el mensaje recibido
        'en el parametro Datos
        For Each Cliente In Clientes.Values
            EnviarDatos(Cliente.Socket.RemoteEndPoint, Datos)
        Next
    End Sub
 

----------------------
Aplicación Cliente
----------------------

Código vb:

Private Sub WinSockCliente_DatosRecibidos(ByVal datos() As Byte) Handles WinSockCliente.DatosRecibidos
        Log_Cliente("El cliente ha enviado los datos bien")
        WinSockServer.EnviarDatos(datos)
    End Sub
 

Código vb:

Private Sub WinSockCliente_ConexionTerminada() Handles WinSockCliente.ConexionTerminada
        Log_Cliente("La conexión con la IP: " & IDTerminal_Jugador_Actual.Address.ToString & ", ha finalizado")
        WinSockServer.Cerrar(IDTerminal_Jugador_Actual)
    End Sub
 

Y esto es todo, sabes donde puedo estar fallando?

[dwaks]

Ok pero define cosas como por ejemplo:

1- Que mandas a traves de socket, que manda el cliente y que recive el servidor? pero lo que recibe el cliente y servidor real al cual quieres meterte en el medio
2- Que errores marca?? no lei nada de errores solo dices no llega igual, muestra que manda antes y que llega despues
3- Como es socket de ambas via siempre mandas byte array porque es la via de comunicacion de el socket, mandas objetos serializados?? ó que mandas?? para saber si cuando recibes conviertes el byte array en algo más.

Saludos,

[ErCaZa]

Ya lo he solucionado de otra forma:
Yo queria obligar a los usuarios de World Of Warcraft de mi servidor a ejecutar obligatoriamente el launcher que desarrolle para el cliente, pero claro, ellos ejecutaban el wow.exe y ningun problema entonces estube pensando en monitorizar los packets que enviava el cliente al server y para aceptar la conexion primero tenia que recibir por ejemplo "pepito" y si no recibia primero eso pss denegaba la conexion.

Pero encontre los source de Mangos sin compilar, el problema esque es con VS 2008 C++ pero con un poco de imaginación puede aprender analizar el primero y ya lo tengo solucionado, gracias por todo, se que es un poco lioso lo que queria hacer pero bueno :P