Aide pour un programme

Fermé
zorro5959 - 27 févr. 2013 à 14:24
cptpingu Messages postés 3837 Date d'inscription dimanche 12 décembre 2004 Statut Modérateur Dernière intervention 28 mars 2023 - 27 févr. 2013 à 14:32
voici mon code ou sa ce bloque:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub
Function GenerateRandomString(ByRef length As Integer) As String
Randomize()
Dim allowableChars As String
allowableChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_`{|}~"

Dim i As Integer
For i = 1 To length

Next
GenerateRandomString = GenerateRandomString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1)
End Function

1 réponse

cptpingu Messages postés 3837 Date d'inscription dimanche 12 décembre 2004 Statut Modérateur Dernière intervention 28 mars 2023 123
27 févr. 2013 à 14:32
Poste ton code à la suite de ton message d'origine, qui est ici: http://www.vbfrance.com/forum/sujet-CODER-ALGO-BRUTEFORCE_1628591.aspx

Merci aussi d'utiliser des balises de code !

________________________________________________________________________
Historique de mes créations, et quelques articles:
[ http://0217021.free.fr/portfolio http://0217021.free.fr/portfolio]
Merci d'utiliser Réponse acceptée si un post répond à votre question
0
Rejoignez-nous