Lösenordsgenerator

1 svar · 384 visningar · startad av aleborg 7 maj 2002

aleborgMedlem sedan jan. 20013 341 inlägg

Frågan7 maj 2002 11:39#1

Någon som har en kodsnutt för en lösenordsgenerator?
Behöver få fram ett slumpat lösenord på 8 små bokstäver/siffror

aleborgMedlem sedan jan. 20013 341 inlägg

7 maj 2002 12:50#2

Löste det:

strpassword = ""
For i = 1 To txtAntalTecken.Text
Randomize
rndnum = Int(Rnd * 10) + 48
rndchr = Int(Rnd * 26) + 65
rndsel = Int(Rnd * 2)
strpassword = strpassword & Chr$(IIf(rndsel = 0, rndnum, rndchr))
Next