Select Case ID
Case 1 'Connexion réussie ?
Case 3 'Là tu dois envoyer les logs
Dim connectionType As Integer = reader.ReadByte()
Dim key As String = reader.ReadString()
Dim aux As String = Utils.Md5.Hash(TXT_MDP.Text)
Dim passcrypt As String = Utils.Md5.Hash(aux & key)
Dim version As New Types.Version
Dim ida As New IdentificationMessage
Dim writer As New DataWriter.DataWriter
version.Major = 2
version.Minor = 3
version.Release = 7
version.Revision = 35100
version.BuildType = 0
version.Patch = 0
ida.Version = version
ida.Login = TXT_NDC.Text
ida.Password = passcrypt
ida.Autoconnect = True
ida.Certificate = List(Of TrustCertificate)()
ida.Serialization(writer)
writer.Send(4)
Case 42 'Reception du serveur de jeu : on déconnecte la socket connxion et on récupère tocket/IP
Case Else
Console.WriteLine("Non Implémenté : " & ID)
End Select