Ich habe mal aus langweile ein Tutorial geamcht.
In diesem Tutorial zeige ich euch wie irh einen kleinen Passwort Generator schreibt...
Ja ich weiß es ist umständlich so wie ich es gemacht habe aber lol es funzt^^
Was mich da dran stört ist das man die Passwort Länge nicht frei wählen kann und das man für jeden möglichen Buchstaben eine Zeile braucht und das man nicht so einfach die Buchstaben vorgeben kann.
Ich finde diese Funktion besser:
Code:
Private Function PasswordGenerate(strZeichen As String, intLength As Integer) As String
Dim i As Integer
Dim intStrLength As Integer
Dim strPassword As String
intStrLength = Len(strZeichen)
For i = 1 To intLength
Randomize
strPassword = strPassword & Mid(strZeichen, CLng(Rnd(1) * intStrLength + 1), 1)
Next i
PasswordGenerate = strPassword
End Function
Die Funktion kann man ganz einfach aufrufen:
Code:
Private Sub cmdGenerate_Click()
ZufaelligesPasswort = PasswordGenerate("abcdefghijklmnopqrstuvwxyz", 10) 'Generirt ein 10 stelliges Passwort mit den Buchstaben a-z
End Sub
Zuletzt bearbeitet von The-God-of-all_ am 05.10.2007, 09:32, insgesamt einmal bearbeitet