A
Salut à tous ! Donc à priori le forum est vb et non fufu donc je vais poster une question qui n'as rien avoir avec dofus mais dans le même cas.
Alors le jeu est un jeu sur internet (c'est un swf) donc je pense que c'est possible de faire un bot socket.
voilà mon code (oui j'ai un peu beaucoup copier overedge =D):
Voilà ce que je reçoi:
Je ne sais pas vraiment quoi faire, je ne pense pas que le jeu sois protéger il n'y à pas beaucoup de fichiers dans le dossier "action", je ne sais pas par ou commencer. Je ne pense pas que ce sois pareille que D...
à chaque connexion c'est toujours le même code je ne sais pas à quoi certains correspondes ... Celui après le mot de passe change de temps en temps ... Les autres il me semble pas qu'ils changent.
Alors le jeu est un jeu sur internet (c'est un swf) donc je pense que c'est possible de faire un bot socket.
voilà mon code (oui j'ai un peu beaucoup copier overedge =D):
Code:
Imports System.Net.Sockets
Imports System.Threading
Public Class Form1
Dim _thread As New Thread(New ThreadStart(AddressOf ecoute))
Dim _socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim buffer(8192) As Byte
Dim couleur As Color
Delegate Sub MyChatHandler(ByVal x As String)
Delegate Sub MylogHandler(ByVal x As String)
Dim Chater As New MylogHandler(AddressOf MyChatProc)
Dim Loger As New MylogHandler(AddressOf MylogProc)
Sub MyChatProc(ByVal x As String)
Chat.AppendText(x)
If Me.Chat.TextLength - x.Length < 0 Then
Me.Chat.SelectionStart = 0
Else
Me.Chat.SelectionStart = Me.Chat.TextLength - x.Length
End If
Me.Chat.SelectionLength = x.Length
Me.Chat.SelectionColor = couleur
Me.Chat.SelectionStart = Me.Chat.TextLength
Me.Chat.ScrollToCaret()
End Sub
Sub MylogProc(ByVal x As String)
Log.AppendText(x)
If Me.Log.TextLength - x.Length < 0 Then
Me.Log.SelectionStart = 0
Else
Me.Log.SelectionStart = Me.Log.TextLength - x.Length
End If
Me.Log.SelectionLength = x.Length
Me.Log.SelectionColor = couleur
Me.Log.SelectionStart = Me.Log.TextLength
Me.Log.ScrollToCaret()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If _socket.Connected = False Then
_socket.Connect("ipduserveur", 443)
_thread.Start()
End If
End Sub
Sub ecoute()
While _socket.Connected
Dim i = _socket.Receive(buffer)
Invoke(Loger, "Reçu " & i & " octets" & vbCrLf)
Dim data(i - 1) As Byte
Array.Copy(buffer, data, i)
For j = 0 To i - 1
Invoke(Loger, "0x" & buffer(j).ToString("X2") & " ")
Next
Invoke(Loger, vbCrLf)
End While
End Sub
End Class
Voilà ce que je reçoi:
Code:
Reçu 91 octets
0x3C 0x63 0x72 0x6F 0x73 0x73 0x2D 0x64 0x6F 0x6D 0x61 0x69 0x6E 0x2D 0x70 0x6F 0x6C 0x69 0x63 0x79 0x3E 0x3C 0x61 0x6C 0x6C 0x6F 0x77 0x2D 0x61 0x63 0x63 0x65 0x73 0x73 0x2D 0x66 0x72 0x6F 0x6D 0x20 0x64 0x6F 0x6D 0x61 0x69 0x6E 0x3D 0x27 0x2A 0x27 0x20 0x74 0x6F 0x2D 0x70 0x6F 0x72 0x74 0x73 0x3D 0x27 0x34 0x34 0x33 0x27 0x20 0x2F 0x3E 0x3C 0x2F 0x63 0x72 0x6F 0x73 0x73 0x2D 0x64 0x6F 0x6D 0x61 0x69 0x6E 0x2D 0x70 0x6F 0x6C 0x69 0x63 0x79 0x3E 0x00
Je ne sais pas vraiment quoi faire, je ne pense pas que le jeu sois protéger il n'y à pas beaucoup de fichiers dans le dossier "action", je ne sais pas par ou commencer. Je ne pense pas que ce sois pareille que D...
à chaque connexion c'est toujours le même code je ne sais pas à quoi certains correspondes ... Celui après le mot de passe change de temps en temps ... Les autres il me semble pas qu'ils changent.
Code:
%xt%CafeEx%lgn%1%PSEUDO%MOTDEPASSE%251%49%1329883438856328905%.