Case 3
                Label34.ForeColor = Color.Orange()
                Label34.Invoke(Label34_, "En connexion")
                RichTextBox1.Invoke(Chater, "[" & TimeOfDay & "]" & "Connexion Etablie Avec Le Serveur..!" & vbCrLf)
                ID_Message = New Messages.Connection.HelloConnectMessage
                ID_Message.Deserialize(PacketData)
                ' Récupération de la clef
                Dim key = ID_Message.key
                ' Cryptage du pass
                Dim Account As String = NdC.Text
                Dim Password As String = MdP.Text
                Dim temps = Utils.Md5.Hash(Password)
                Dim PassCrypt As String = Utils.Md5.Hash(temps & key)
                ' Création de la version
                Dim Version_ As New Types.Version.Version
                Dim certificate As New List(Of TrustCertificate)
                Version_.initVersion(2, 3, 7, 0, 0, 0)
                ' Envoi du packet
                RichTextBox1.Invoke(Chater, "[" & TimeOfDay & "]" & "Envoi de l'identification..!" & vbCrLf)
                Dim Message As New Messages.Connection.IdentificationMessage
                Message.initIdentificationMessage(Version_, Account, PassCrypt, certificate, True)
                Message.pack(_socket_Connexion)