Criando uma senha alfanumérica aleatória


Autor/fonte: Cláudio Hickstein



Digg del.icio.us

Esta é uma função que muitas pessoas estavam me perguntando como poderia fazer. Para você criar um tipo de senha aleatória existe muitos modos, portanto vou explicar uma das maneiras.

Arquivo gerador.asp:

<%
' Em primeiro lugar vamos criar uma função chamada GerarChave()
' esta função ira criar e definir um array alfanumérico de
' 0 a 9 e A a Z.


Function GerarChave(valores)

Dim chr_Array(35)

chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "A"
chr_array(11) = "B"
chr_array(12) = "C"
chr_array(13) = "D"
chr_array(14) = "E"
chr_array(15) = "F"
chr_array(16) = "G"
chr_array(17) = "H"
chr_array(18) = "I"
chr_array(19) = "J"
chr_array(20) = "K"
chr_array(21) = "L"
chr_array(22) = "M"
chr_array(23) = "N"
chr_array(24) = "O"
chr_array(25) = "P"
chr_array(26) = "Q"
chr_array(27) = "R"
chr_array(28) = "S"
chr_array(29) = "T"
chr_array(30) = "U"
chr_array(31) = "V"
chr_array(32) = "W"
chr_array(33) = "X"
chr_array(34) = "Y"
chr_array(35) = "Z"

' Agora vamos fazer um Randomize em todo Array

Randomize

' Ok, feito a bagunça no Array vamos preparar
' para gerar a senha


' Enquanto a chave tiver a quantidade de caracteres
' menor que 10 o loop continua gerando ela.


do while len(chave) < 10


num = chr_array(Int(35 * Rnd ))


chave = chave + num

loop

' Chave gerada com sucesso então definimos a
' função GerarChave

GerarChave = chave

End Function

' Finalizando a função


' Mostrando a senha no browser.

' Obs: O número dez significa o tamanho da senha em
' carateres que será criado

response.write "Senha gerada: " & GerarChave(10) & vbcrlf
%>




Enviado por xKuRt em 21/10/2006 às 10:59


Avaliação

Esta publicação ainda não foi avaliada!


Avaliar:


A avaliação de publicações é restrita a membros cadastrados e logados no nosso site.



Comentários

Este artigo ainda não foi comentado ou o(s) comentário(s) que foi(ram) enviado(s) a ele ainda não foi(ram) publicado(s).


Envio de comentário:




  

Domingo, 23 de Novembro de 2014




Top 5 membros

Últimos membros online

Últimos membros cadastrados



Capa do livro
SQL - Curso Pratico


Capa do livro
Excel 2010 - Guia Prático e Visual


Capa do livro
Fundamentos de Informática - Geometria Analítica para Computação





Hostnet

IMD