paquetes winsock

[sircid]

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:

[..::[ thekingkid ]::..]

para que quieres convertir esos paquetes a codigo hexadecimal???
pon algo de codigo por ejemplo del  data arrival
mmmmmmmmm

[sircid]

pues para poder comprender los datos que se envian o reciben para eso quiero traducirlo.
aca esta el data arrival:

Código [Seleccionar] Expandir


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


Código [Seleccionar] Expandir


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