Esta função pode ser usada para ter uma senha aleatória gerada automáticamente. Ela permite a especificação de caracteres válidos e também a quantidade de caracteres a ser utilizado. É uma função bem simples limpa e muito eficiente.

<%
Function GeraSenha( nNoChars, sValidChars )
‘ nNoChars = comprimento da senha gerada
‘ sValidChars = Validando caracteres
‘ ( “” ) then
‘     Padrão para gerar senha: A-Z AND a-z AND 0-9

Const szDefault = “abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789”
Dim nCount
Dim sRet
Dim nNumber
Dim nLength

Randomize ‘iniciando randomização

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

Response.Write “Senha A: ” & GeraSenha( 10, “” )
Response.Write “<br>Senha B: ” & GeraSenha( 5, “ABCabc” )
%>

Qualquer dúvida entre em contato comigo deixando um comentário.