Public Function RandomPass()

s = ""
For i = 1 To Int(Rnd() * 6 + 6)
If Rnd() < 0.3 Then
s = s & Chr(Int(Rnd() * 26 + 65))
ElseIf Rnd() < 0.5 Then
s = s & Chr(Int(Rnd() * 26 + 97))
ElseIf Rnd() < 0.75 Then
s = s & CStr(Int(Rnd() * 10 + 1))
Else
s = s & Choose(Int(Rnd() * 10 + 1), "!", "#", _
"$", "%", "^", "*", "(", ")", "", "<")
End If
Next
RandomPass = s
End Function


? randompass()
TusX10%u9c
2ifP75
muSH3DhZzP4
8uleI109
qJmpafP
cNAwe4

--
Regards,
Tom Ogilvy

"USCBrad" wrote:

I am looking for a random generator that will give me anywhere between 6 to
12 characters (alphanumeric) that we can use as temp passwords. Can someone
give me direction as to what the code would be or where to find it. Please
email me at