Generating Passwords

This function can be used to have a random password generated. It allows you to specify valid characters as well as specifying number of characters.

<%
 Function Password_GenPass( nNoChars, sValidChars )
 ' nNoChars = length of generated password
 ' sValidChars = valid characters. If zerolength-string ( "" )then
 ' default is used: A-Z AND a-z AND 0-9
 
Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
 Dim nCount
 Dim sRet
 Dim nNumber
 Dim nLength
 
Randomize 'init random
 
If sValidChars = "" Then
 sValidChars = szDefault
 End If
 nLength = Len( sValidChars )
 
For nCount = 1 To nNoChars
 nNumber = Int((nLength * Rnd) + 1)
 sRet = sRet & Mid( sValidChars, nNumber, 1 )
 Next
 Password_GenPass = sRet
 End Function
 %>

Call it like this to generate a 10 letter long password:

<%Response.Write "Your password: " & Password_GenPass( 10, "" ) %>

Or if you want to just use certain characters:

<%Response.Write "Your password: " & Password_GenPass( 5, "ABCabc1" ) %>

This will generate a random password only using the characters ABCabc1, therefore it give might result like: Your password: CabCB

The Result

Your password: J3Jb7qfUlI
5 Constrained Characters: Your password: BC1cc

asp generate passwords ASP ADO VBScript DOM tutorial authoring programminghowto reference examples samples source code demos tips