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.

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.

<%
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!

Melhores celulares Xiaomi para comprar agora

Conteúdo relacionado

Melhores celulares da Xiaomi para comprar em 2021
Xiaomi

Melhores celulares da Xiaomi para comprar em 2021

Qual marca consegue oferecer modelos de celular que sejam bons e que não custe tanto? É provável que você tenha pensado na Xiaomi, e sim, você está certo. Confira a nossa lista de melhores modelos da empresa para comprar atualmente!

Uber dispensa 1600 motoristas por cancelamentos de corridas
Uber

Uber dispensa 1600 motoristas por cancelamentos de corridas

O mais famoso aplicativo de transporte particular de passageiros do mundo, a Uber anunciou o afastamento de 1600 motoristas por cancelamentos de corridas.

Raspberry Pi Foundation recebe US$45 milhões para atender a demanda de PCs de baixo custo
Hardware

Raspberry Pi Foundation recebe US$45 milhões para atender a demanda de PCs de baixo custo

Foi anunciado pela Raspberry Pi Foundation o recebimento de US$45 milhões em uma rodada de financiamento. Confira todos os detalhes!