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):
Código
'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
Código
'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