VB/VB.Net Problème AuthenticationTicketMessage

[anodu94]

Bonsoir Caderniens. Après mon problème de reconnexion, voici le problème de ce packet ... AuthenticationTicketMessage. En effet, je l'envoie par ce code :

            Case 101
                Dim Protocol As New Messages.Game.Approach.AuthenticationTicketMessage
                Protocol.initAuthenticationTicketMessage("fr", Ticket)
                Protocol.pack()

sauf que je ne reçois rien. J'ai essayé plusieurs fois de changer quelques trucs mais sans succès. Pour ceux qui diront que ma classe AuthenticationTicketMessage est trop vieille parce que je leech sur les sources de To0ns, je l'ai traduite moi même. Pour vérifier sa validité la voici :

Namespace Messages.Game.Approach

    Public Class AuthenticationTicketMessage

        Private _isInitialized As Boolean = False
        Public Lang As String = ""
        Public Ticket As String = ""
        Public Const protocolId As UInteger = 110

        Public Function AuthenticationTicketMessage()

            Return Me
        End Function

        Public Function get_isInitialized() As Boolean

            Return Me._isInitialized
        End Function

        Public Function getMessageId() As UInteger

            Return protocolId
        End Function

        Public Function initAuthenticationTicketMessage(ByVal Param1 As String, ByVal Param2 As String)

            Me.Lang = Param1
            Me.Ticket = Param2
            Me._isInitialized = True
            Return Me
        End Function

        Public Function reset()

            Me.Lang = ""
            Me.Ticket = ""
            Me._isInitialized = False
            Return Me
        End Function

        Public Function pack()
            Dim Message As New Dofus.DofusWriter
            Me.serialize(Message)
            Dofus.DofusWriter.Send(protocolId)
            Return Me
        End Function

        Public Function unpack(ByVal param1 As Dofus.DofusReader, ByVal param2 As UInteger)
            Me.deserialize(param1)
            Return Me
        End Function

        Public Function serialize(ByVal param1 As Dofus.DofusWriter)

            Me.serializeAs_AuthenticationTicketMessage(param1)
            Return Me
        End Function

        Public Function serializeAs_AuthenticationTicketMessage(ByVal param1 As Dofus.DofusWriter)

            param1.writeUTF(Me.Lang)
            param1.writeUTF(Me.Ticket)
            Return Me
        End Function

        Public Function deserialize(ByVal param1 As Dofus.DofusReader)
            Me.deserializeAs_AuthenticationTicketMessage(param1)
            Return Me
        End Function

        Public Function deserializeAs_AuthenticationTicketMessage(ByVal param1 As Dofus.DofusReader)
            Me.Lang = param1.ReadUTF()
            Me.Ticket = param1.readUTF()
            Return Me
        End Function

    End Class

End Namespace

Merci pour votre future aide

PS: J'essaye d'être plus présent sur le forum afin d'aider à mon tour comme certaines personnes l'ont fait pour moi. D'ailleurs je les en remercie, elles m'ont redonné le goût de coder.

 

[Anonymous]

Envoi nous tes logs. Tu es sur que ton case 3 est a jour ?

 

[anodu94]

[DOUBLE-POST]

Post en dessous, ça me l'a posté 2 fois ...

 

[anodu94]

Je reçois le packet 101 mais quand j'envoie le packet 110, rien en retour ...
Voici mes logs :

recu : id = 1 taille = 8
recu : id = 3 taille = 330
envoie : id = 4, taille = 283
0x01020505D8BF02000002667200094D616E7970696F753101002F67E17465575B2E994A4C2E3D30D1F173B0DE5
82659983BCA001FF176E8A3058B99EFD733E3C4A8252248B8A53845D2945219E3AF14FE3E1F666901F92EFD977B
0C3CD0ABCF71530DFF43847073313FBAFC29FED8699BB99FB19C357FBFF79AC919C62DDD76B8C33B20FD4B8AF
A4A2F3917713DE7CD6BD2B9F034DCEF04EF991A460390629801213D8D750C95A61DD2D500D51D896D04BD6A7
2CFB5FCB77922A0B2894A15BA8A150CA944DAC765F2962F278BF79CC6E0554F1C1AB1567447E56B81EFFCE4BF2
FD847F1C0E190BB7EEE35E8ACBCBA813048C7CE84745F2C1FDC0BF02E7A4F0D196965864A7A532E705B5DE9F99
0061719F863E012288FCA0E770000
recu : id = 10 taille = 4
recu : id = 6314 taille = 0
recu : id = 10 taille = 4
recu : id = 22 taille = 36
recu : id = 42 taille = 56
parsing() AbortInternal -> Le thread a été abandonné.
recu : id = 1 taille = 8
recu : id = 101 taille = 0
envoie : id = 110, taille = 38
0x0002667200203333363064663038336438343439323339313962333866313262383433366163

 

[Anonymous]

Montre nous tout tes cases de la case 3 a 101

 

[anodu94]

Case 3
                ID_Message = New Messages.Connection.HelloConnectMessage
                ID_Message.Deserialize(PacketData)


                Dim Account As String = NDC.Text
                Dim Password As String = MDP.Text

                Dim CryptedPassword As List(Of Integer)
                Dim PublicKey As String = ""
                Dim PublicKeyTemp As New List(Of Byte)
                Dim Salt As String = ID_Message.Salt

                For Each u In ID_Message.Key
                    PublicKeyTemp.Add(u)
                Next

                PublicKey = Convert.ToBase64String(PublicKeyTemp.ToArray())

                If Salt.Length < 32 Then
                    While Salt.Length < 32
                        Salt &= " "
                    End While
                End If

                CryptedPassword = Utils.RSAManager.Encrypt(PublicKey, Salt & Password)

                Dim Version_ As New Types.Version.Version
                Version_.initVersion(2, 5, 5, 55487, 2, 0)



                Dim Message As New Messages.Connection.IdentificationMessage
                Message.initIdentificationMessage(Version_, "fr", Account, CryptedPassword, 0, True, False, False)
                Message.pack()

            Case 42
                ID_Message = New Messages.Connection.SelectedServerDataMessage
                ID_Message.Deserialize(PacketData)
                ip = ID_Message.address
                Ticket = ID_Message.ticket
                Ecoute_Connexion_thread.Abort()
            Case 101
                Dim Protocol As New Messages.Game.Approach.AuthenticationTicketMessage
                Protocol.initAuthenticationTicketMessage("fr", Ticket)
                Protocol.pack()

 

[Anonymous]

suprime
Ecoute_Connexion_thread.Abort()

change a
_socket_Connexion.Dispose()

 

[anodu94]

Ouhouhhhh, merci beaucoup RipME décidément tu aimes aider ^^

 

[Anonymous]

Ehh tu m'a devancé !