Generating passwords Easy password generation, you specify length and also which characters are valid - if you would like to.

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, "ABCabc" ) 
This will generate a random password only using the characters ABCabc, therefore it give might result like: Your password: CabCB