Aide concernant la comprehension d'une fonction récursive
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")
Code:
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 |
J'ai compris que si l'on modifie la valeur de t, le bruteforce commencera avec t caractères.
Merci beaucoup à ceux qui peuvent m'éclaircir, bonne soirée :)
