VB/VB.Net Connexion LeafBot

[Anonymous]

Bonjour à tous.

Je viens de télécharger LeafBot, j'ai changer l'IP mais comment faire pour connecter notre personnage en MITM ?
Il n'y a pas de panel de connexion.. Je ne comprend pas trop.
Est-ce que nous devons codé nous même le système de connexion ? ( nom du compte / mot de passe -> connecter le Bot )
Ou bien il suffit juste d'Activer le MITM et ensuite de cliquer sur Lancer Dofus et de ce connecter ? car si c'est ça bah je n'arrive pas à le faire fonctionné !

[15:02:58] Jeu en écoute ... (Connexion)
[15:02:58] Jeu en écoute ... (Game)

 

[BlueDream]

Bonjour,

il faut injecter une DLL désormais pour faire fonctionner les MITM.
Je te redirige vers ce post:
viewtopic.php?f=54&t=1435&hilit=injecter+dll&start=90

 

[Anonymous]

Re-Bonsoir lolodu93,

J'ai relu plusieurs fois toutes les pages et je n'y comprend rien.
Certains dise ça, un autre dit ça...

 

[BlueDream]

Humm,

Asyade a dit : "Va dans la séction c#/projet ,tu peut telecharge mon injecteur, la dll et dedant"

De plus sorrow a donné ses sources:
"Source : https://gist.github.com/xCatbug/775b94618a6bcba8c746
Detours lib : http://research.microsoft.com/en-us/projects/detours/"

 

[Anonymous]

J'ai modifier l'ip qui étais 127.0.0.1,127.0.0.1

Spoiler

Private Sub ActiverToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ActiverToolStripMenuItem.Click
Try
Dim Reader As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Dofus2\app\config.xml")
Dim Txt_Reader As String = Reader.ReadToEnd
Reader.Close()

Dim R() As String = Txt_Reader.Split(vbCrLf)
Dim regexMITM As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("[<](\S*)\s*(\S*)[>](\S*)[<](\S*)[>]")

For i = 0 To Txt_Reader.Split(vbCrLf).Count - 1
If R(i).Contains("entry key=" & ChrW(34) & "connection.host" & ChrW(34)) Then
Dim m As Match = regexMITM.Match(R(i))
Txt_Reader = Txt_Reader.Replace(m.Groups(3).Value, "213.248.126.39,213.248.126.40")
End If
If R(i).Contains("entry key=" & ChrW(34) & "connection.port" & ChrW(34)) Then
Dim m As Match = regexMITM.Match(R(i))
Txt_Reader = Txt_Reader.Replace(m.Groups(3).Value, "5555,443")
End If
Next

Dim Writer As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Dofus2\app\config.xml")
Writer.Write(Txt_Reader)
Writer.Close()
MsgBox("MITM Activé", MsgBoxStyle.Information, "Information")
Catch exe As Exception
MsgBox(exe.Message, MsgBoxStyle.Exclamation, "Erreur")
End Try
End Sub

Mais après je ne comprend pas comment faire fonctionner ce foutu MITM !

 

[BlueDream]

Bah tu lance LeafBot, tu lances dofus, tu injectes la DLL et enfin tu peux te connecter.