Karuta’s ASP & M$ SQLserver

Dicas, códigos e outras coisinhas de meus estudos para não esquecer…

Gerando senha aleatórias

Posted by karuta em setembro 18, 2008

‘Nesta constante eu determino que letras e números serão utilizados para gerar a senha aleatória.
Const szDefault = “abcdefghijklmnopqrstuvxz0123456789”

‘Aqui eu chamo o comando Randozime do ASP para gerar um valor randômico para a nossa senha 
Randomize

‘Passa para a variavel os caracteres da seguencia szDefault e pego o tamanho da string para a variável nLenght 
sValidChars = szDefault 
nLength = Len( sValidChars ) 

‘Agora é a hora onde o script vai fazer um loop de 1 até 6 para gerar uma senha com 6 dígitos, caso necessite de uma senha com mais dígitos troque o valor 6 
For nCount = 1 To 6

‘Nesta linha o Script pega um número aleatório para buscar a posição dentro da constante trazendo o caracter correspondente a esta posição 
nNumber = Int((nLength * Rnd) + 1)

‘Acrescento a variável sRet o valor dela adicionado com o caracter encontrado dentro da constante
sRet = sRet & Mid( sValidChars, nNumber, 1 )

Passo para o próximo loop 
Next

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: