escribi un programa para que me hiciera proxy entre un cliente y un servidor(un famoso juego llamado muonline). hasta ahi todo muy bien funcionando 100% pero al recibir los datos y plasmarlos en un text solo me salen signos. como puedo traducir estos signos a codigos hexadecimales?
aqui os dejo un screen:
(http://img377.imageshack.us/img377/7443/proxy6xt.jpg)
para que quieres convertir esos paquetes a codigo hexadecimal???
pon algo de codigo por ejemplo del data arrival
mmmmmmmmm
pues para poder comprender los datos que se envian o reciben para eso quiero traducirlo.
aca esta el data arrival:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datoslocales As Variant
Winsock1.GetData datoslocales
Winsock2.SendData datoslocales
If Text1.Text = "" Then
Text1.Text = datoslocales
Else
Text1.Text = Text1.Text & vbCrLf & datoslocales
End If
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim datosvisitantes As Variant
Winsock2.GetData datosvisitantes
Winsock1.SendData datosvisitantes
If Text2.Text = "" Then
Text2.Text = datosvisitantes
Else
Text2.Text = Text2.Text & vbCrLf & datosvisitantes
End If
End Sub
Igualmente te subo el codigo fuente entero son solo 2kilobytes:
http://www.megaupload.com/?d=X3TJIB8V
gracias