Bonjours, comme vous devais surement le savoir je continu mon bot MITM, mais il se trouve que ma classe du packet 42 ne passe pas ( erreur impossible de lire au delà du flux )
j'ai donc commencé par traduire celle dans le d@fus invoker, mais toujours la même erreur je vous donne ma classe :
Namespace Network.Connection.Server.Select
Public Class SelectedServerDataMessage
Public MyLog As LogConsole
Private _isInitialized As Boolean = False
Public serverId As Integer = 0
Public address As String = ""
Public port As UInteger = 0
Public ssl As Boolean = False
Public canCreateNewCharacter As Boolean = False
Public ticket As String = ""
Public Const protocolId As UInteger = 42
Public Function init(ByVal param1 As Integer, ByVal param2 As String, ByVal param3 As UInteger, ByVal param4 As Boolean, ByVal param5 As String, ByVal param6 As String) As SelectedServerDataMessage
Me.serverId = param1
Me.address = param2
Me.port = param3
Me.ssl = param4
Me.canCreateNewCharacter = param5
Me.ticket = param6
Me._isInitialized = True
Return Me
End Function
Public Function pack(ByVal sock As Object)
Dim _Writer As New BigEndianWriter()
Me.serialize(_Writer)
BigEndianWriter.Send(SelectedServerDataMessage.protocolId, sock)
End Function
Public Function unpack(ByVal param1 As BigEndianReader, ByVal param2 As Integer)
Me.deserialize(param1)
End Function
Public Function serialize(ByVal param1 As BigEndianWriter)
Me.serializeAs_SelectedServerDataMessage(param1)
End Function
Public Function serializeAs_SelectedServerDataMessage(ByVal param1 As BigEndianWriter)
Dim _loc2_ As Integer
_loc2_ = BooleanByteWrapper.SetFlag(_loc2_, 0, Me.ssl)
_loc2_ = BooleanByteWrapper.SetFlag(_loc2_, 1, Me.canCreateNewCharacter)
param1.WriteByte(_loc2_)
If Me.serverId < 0 Then
Throw New Exception("Forbidden value (" + Me.serverId + ") on element serverId")
End If
param1.WriteVarShort(Me.serverId)
param1.WriteUTF(Me.address)
If Me.port < 0 OrElse Me.port > 65535 Then
Throw New Exception("Forbidden value (" + Me.port + ") on element serverId")
End If
param1.WriteShort(Me.port)
param1.WriteUTF(Me.ticket)
End Function
Public Function deserialize(ByVal param1 As BigEndianReader)
Me.deserializeAs_SelectedServerDataMessage(param1)
End Function
Public Function deserializeAs_SelectedServerDataMessage(ByVal param1 As BigEndianReader)
Dim _loc2_ As Integer = param1.ReadByte
Me.ssl = BooleanByteWrapper.GetFlag(_loc2_, 0)
Me.canCreateNewCharacter = BooleanByteWrapper.GetFlag(_loc2_, 1)
Me.serverId = param1.ReadVarUhShort
If Me.serverId < 0 Then
Throw New Exception("Forbidden value (" + Me.serverId + ") on element serverId")
End If
Me.address = param1.ReadUTF
Me.port = param1.ReadShort
If Me.port < 0 OrElse Me.port > 65535 Then
Throw New Exception("Forbidden value (" + Me.port + ") on element serverId")
End If
Me.ticket = param1.ReadUTF
End Function
End Class
End Namespace