Bonjour, j'avais trouvé le script d'un bruteforce sur le net récemment, je me suis creusé la tête plusieures heures et rien n'y fait, je n'arrive pas a comprendre la logique derrière.
Voici le script:
(On admet un form "Main", un bouton "Button", une textbox "Textbox")
J'ai compris que si l'on modifie la valeur de t, le bruteforce commencera avec t caractères.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Public Class Main Const dico As String = "abcdefghijklmnopqrstuvwxyz" Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click Dim t As Integer t = 1 While True AllKey("", t) t += 1 End While End Sub Private Sub AllKey(ByVal Pass As String, ByVal Lg As Integer) Dim i As Integer If Pass.Length < Lg Then For i = 0 To dico.Length - 1 AllKey(Pass & dico.Substring(i, 1), Lg) Next i Else TextBox.Text = Pass Application.DoEvents() End If End Sub End Class
Merci beaucoup à ceux qui peuvent m'éclaircir, bonne soirée
Partager