ASP: Gerando uma senha aleatória de forma simples

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.

Por | @oficinadanet Programação
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 "
Senha B: " & GeraSenha( 5, "ABCabc" )
%>


Qualquer dúvida entre em contato comigo deixando um comentário. Abraços!

Mais sobre: asp, gerar senha, senha randomica asp
Share Tweet
DESTAQUESRecomendadoMais compartilhados
Comentários
AINDA NÃO SE INSCREVEU?

Vem ver os vídeos legais que
estamos produzindo no Youtube.