A
Bonjour,
J'essaie de découvrir le monde du socket et j'ai beaucoup (vraiment beaucoup) de mal. J'ai fais mes petites fonctions :
Mais ça ne fonctionne pas : le serveur renvoi plein de paquets vides.
Merci d'avance.
J'essaie de découvrir le monde du socket et j'ai beaucoup (vraiment beaucoup) de mal. J'ai fais mes petites fonctions :
Code:
Select Case PacketID
Case 1
Case 3
Dim EncryptedPassword As String = RSAManager.Encrypt(reader.ReadString & "*******")
Dim writer As New DataWriter()
'MsgBox(reader.ReadString)
writer.WriteInt(2)
writer.WriteInt(5)
writer.WriteInt(3)
writer.WriteInt(53948)
writer.WriteInt(2)
writer.WriteInt(0)
writer.WriteString("fr")
writer.WriteString("account")
writer.WriteString(EncryptedPassword)
writer.WriteShort(0)
writer.WriteBool(True)
writer.WriteBool(True)
writer.WriteBool(False)
socket.Send(writer.Pack(4))
Case 20
MessageBox.Show("Authentificationfail")
Case 22
reader.ReadByte()
MessageBox.Show("GG " + reader.ReadString())
Merci d'avance.