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 |
Partager