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