Revision: 29371
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at July 28, 2010 05:25 by mreed72
Initial Code
Function genAdvRndString(ByRef length As Integer) As String Randomize() Dim allowableChars As String allowableChars = "!@#$%^&*()?><1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" Dim i As Integer For i = 1 To length genAdvRndString = genAdvRndString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1) Next End Function
Initial URL
Initial Description
Initial Title
Random Password Generator
Initial Tags
Initial Language
Visual Basic