I use 6 char passwords. You can add any characters you desire into the
pickstring string, just make sure you increase/decrease the 71
character count in the tempPW setup. Call this function to get a temp
PW then email it. Good luck, Tom.
Function build_random_temp_pw()
Dim pickstring, tempPW as string
pickstring = "ABCDEFGHJKLMN6PQRSTUVWXYZ123456789abcdefghkmnzpqr stuvwxyzeth3649xwamk74v"
Dim oRand as New Random(Environment.TickCount)
Dim x as integer
FOR X = 1 to 6
tempPW = tempPW & pickstring.Substring(oRand.Next(1,71),1)
NEXT
Return tempPW
End Function
"MattB" <so********@yahoo.com> wrote in message news:<c5***********@ID-86156.news.uni-berlin.de>...
I'm working on implementing a feature in a web site to let a visitor create
a new account and have it email a randomly generated password back to the
user. I'm not too concerned about it, but thought I'd check and see if
anyone has any good examples of this that could save me a little time. LMK.
Thanks!
Matt