Aide concernant la comprehension d'une fonction récursive
Ruz
-
Modifié par Ruz le 24/05/2014 à 20:43
yann_lo_san
Messages postés1137Date d'inscriptionlundi 17 novembre 2003StatutMembreDernière intervention23 janvier 2016
-
26 mai 2014 à 23:03
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")
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 :)
A voir également:
Aide concernant la comprehension d'une fonction récursive