A
ok il fau 2 Listen pour fair un MITM avec double compte et change server
1 pour port 5555
un pour port 443
tu met en case 42 le ip 127.0.0.1 et 443
puis tu envoi le socket captuer par le port 443 au un newform (pour le socket de server selecté)
voila un peu de code source que j'ai codé ( ajouté au les code source de toons MITM )
dsl pour les faut de ecrire .....
i'm here to help ....
GameSock port 5555
GameSock2 port 443
Public Sub New()
Try
InitializeComponent()
GameSock = New BazSocket(Me)
GameSock.AlwaysRaiseClose = True
GameSock_StateChanged(Me, BazSocketState.Disconnected)
GameSock2 = New BazSocket(Me)
GameSock2.AlwaysRaiseClose = True
GameSock2_StateChanged(Me, BazSocketState.Disconnected)
Catch ex As Exception
End Try
End Sub
Start listen :
GameSock.Listen(5555)
GameSock2.Listen(443)
--------------------------------------------
Private Sub GameSock_Accepted(ByVal sender As System.Object, ByVal Request As AcceptRequest) Handles GameSock.Accepted
ClientList.Clear()
lstClient.Items.Clear()
Dim AcceptSock As New BazSocket(Me, Request, False) 'Cree le socket pour la nouvelle connection
AcceptSock.AlwaysRaiseClose = True
'SockList.Add(AcceptSock) 'Ajoute a la collection de socket
Dim c As New Client(AcceptSock)
ClientList.Add(c.Socket, c)
'On ajoute les evenements a gérés
AddHandler AcceptSock.Closed, AddressOf Client_Close
AddHandler AcceptSock.DataArrival, AddressOf Client_DataArrival
RefreshSockList()
'txtRecv.AppendText("-- Nouveau Client Connecté : " & AcceptSock.RemoteEP.Address.ToString() & " - (" & SockList.Count & " Clients) --" & vbCrLf)
txtRecv.AppendText("-- Jeu Connecté : " & c.ToString() & " - (" & ClientList.Count & " Jeu) --" & vbCrLf)
' Commence a recevoir les données du nouveau socket
AcceptSock.BeginReceive()
ServerSock = New BazSocket(Me)
ServerSock.AlwaysRaiseClose = True
ServerSock_StateChanged(Me, BazSocketState.Disconnected)
If Address = "213.248.126.180" Then ServerSock.Connect(Address, 5555)
End Sub
------------------------------------
Case (42)
ID_Message = New Messages.Connection.SelectedServerDataMessage
ID_Message.Deserialize(PacketData)
Form1.ServeerId = ID_Message.ServerId
Form1.Address = ID_Message.Address ' on recupere l'ip de serveur de jeu
ID_Message.initSelectedServerDataMessage(ID_Message.serverId, "127.0.0.1", 443, ID_Message.canCreateNewCharacter, ID_Message.ticket)
Dim Message As New Dofus.DofusMessage
ID_Message.serialize(Message)
Data_Out = Dofus.DofusMessage.Send(ID, Form1.ServerSock)
-----------------------------------
Private Sub GameSock2_Accepted(ByVal sender As System.Object, ByVal Request As AcceptRequest) Handles GameSock2.Accepted
Try
Beep()
Dim NewForm2 As Game = New Game(ServerSock, sender, Request, Address)
NewForm2.Show()
Catch ex As Exception
End Try
Address = "213.248.126.180"
End Sub
1 pour port 5555
un pour port 443
tu met en case 42 le ip 127.0.0.1 et 443
puis tu envoi le socket captuer par le port 443 au un newform (pour le socket de server selecté)
voila un peu de code source que j'ai codé ( ajouté au les code source de toons MITM )
dsl pour les faut de ecrire .....
i'm here to help ....
GameSock port 5555
GameSock2 port 443
Public Sub New()
Try
InitializeComponent()
GameSock = New BazSocket(Me)
GameSock.AlwaysRaiseClose = True
GameSock_StateChanged(Me, BazSocketState.Disconnected)
GameSock2 = New BazSocket(Me)
GameSock2.AlwaysRaiseClose = True
GameSock2_StateChanged(Me, BazSocketState.Disconnected)
Catch ex As Exception
End Try
End Sub
Start listen :
GameSock.Listen(5555)
GameSock2.Listen(443)
--------------------------------------------
Private Sub GameSock_Accepted(ByVal sender As System.Object, ByVal Request As AcceptRequest) Handles GameSock.Accepted
ClientList.Clear()
lstClient.Items.Clear()
Dim AcceptSock As New BazSocket(Me, Request, False) 'Cree le socket pour la nouvelle connection
AcceptSock.AlwaysRaiseClose = True
'SockList.Add(AcceptSock) 'Ajoute a la collection de socket
Dim c As New Client(AcceptSock)
ClientList.Add(c.Socket, c)
'On ajoute les evenements a gérés
AddHandler AcceptSock.Closed, AddressOf Client_Close
AddHandler AcceptSock.DataArrival, AddressOf Client_DataArrival
RefreshSockList()
'txtRecv.AppendText("-- Nouveau Client Connecté : " & AcceptSock.RemoteEP.Address.ToString() & " - (" & SockList.Count & " Clients) --" & vbCrLf)
txtRecv.AppendText("-- Jeu Connecté : " & c.ToString() & " - (" & ClientList.Count & " Jeu) --" & vbCrLf)
' Commence a recevoir les données du nouveau socket
AcceptSock.BeginReceive()
ServerSock = New BazSocket(Me)
ServerSock.AlwaysRaiseClose = True
ServerSock_StateChanged(Me, BazSocketState.Disconnected)
If Address = "213.248.126.180" Then ServerSock.Connect(Address, 5555)
End Sub
------------------------------------
Case (42)
ID_Message = New Messages.Connection.SelectedServerDataMessage
ID_Message.Deserialize(PacketData)
Form1.ServeerId = ID_Message.ServerId
Form1.Address = ID_Message.Address ' on recupere l'ip de serveur de jeu
ID_Message.initSelectedServerDataMessage(ID_Message.serverId, "127.0.0.1", 443, ID_Message.canCreateNewCharacter, ID_Message.ticket)
Dim Message As New Dofus.DofusMessage
ID_Message.serialize(Message)
Data_Out = Dofus.DofusMessage.Send(ID, Form1.ServerSock)
-----------------------------------
Private Sub GameSock2_Accepted(ByVal sender As System.Object, ByVal Request As AcceptRequest) Handles GameSock2.Accepted
Try
Beep()
Dim NewForm2 As Game = New Game(ServerSock, sender, Request, Address)
NewForm2.Show()
Catch ex As Exception
End Try
Address = "213.248.126.180"
End Sub