Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim vPassword as String
- Dim vKategorie as Integer
- Dim i as Integer
- Dim r as Random
- r = New Random
- For i=1 to Val(Length.text)
- vKategorie = r.InRange(1, 3)
- if vKategorie = 1 then
- //Zahlen
- vPassword = vPassword + Chr(r.InRange(48, 57))
- end if
- if vKategorie = 2 then
- //Großbuchstaben
- vPassword = vPassword + Chr(r.InRange(65, 90))
- end if
- if vKategorie = 3 then
- //Kleichbuchstaben
- vPassword = vPassword + Chr(r.InRange(97, 122))
- end if
- Next
- Password.Text = vPassword
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement