Hola!

Estoy creando un programa similar a un chat para usarlo entre un PC y una PDA pero enviando los mensajes cifrados en RC4.
El servidor está hecho en VB 6.0 y el cliente en EVB 3.0 para Pocket PC. Ambos con el control Winsock que proporciona Microsoft.

El problema es que cuando envio del servidor (PC) al cliente (PDA) cadenas de más de 83 caracteres, la PDA deja de recibir nada más. Al revés pasa igual, solo recibe 83 caracteres, pero a diferencia de la PDA el PC sigue recibiendo mensajes.

Los códigos usados son (solo pongo lo relacionado con este problema):

'SERVIDOR
Private Sub enviar_Click()
 
Dim datosenviar As String
datosenviar = RC4(aenviar.text, "123456789")
 
wS.SendData datosenviar
pant.Text = pant.Text & "Yo digo (" & Format(Now, "dd/mm/yyyy hh:mm:ss") & "):" & vbCrLf _
& "   " & aenviar.Text & vbCrLf & vbCrLf
aenviar.Text = ""
 
End Sub
 

'CLIENTE
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 
Dim datos As String
 
WinSock1.GetData datos, vbString
 
Text1.Text = Text1.Text & "Server dice:" & vbCrLf & "  " & RC4(datos, "123456789") & vbCrLf
 
datos = ""
 
End Sub

Puede alguien ayudarme a solucionar este error?

Salu2