Ir para o conteúdo

Gerando Uma Senha Aleatória De Forma Simples


Criado por Alexandre de Luccia, Out 05 2010 10:17

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Alexandre de Luccia

Alexandre de Luccia
  • Alexandre de Luccia
  • Colaborador
  • 1 Revisões

Revisou 05 outubro 2010 - 10:17


<%

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" )

%>


Esta revisão foi editado por Matias Rezende: 05 outubro 2010 - 10:32
Adição do BBCode CODE





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)