USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Senhas Aleotórias!
Postada em 23/1/2004 por Mago_Pc            
FUNCTION GeraSenha(valor)

Dim Chr_Val(35)

Chr_Val(0)= "0"
Chr_Val(1)= "1"
Chr_Val(2)= "2"
Chr_Val(3)= "3"
Chr_Val(4)= "4"
Chr_Val(5)= "5"
Chr_Val(6)= "6"
Chr_Val(7)= "7"
Chr_Val(8)= "8"
Chr_Val(9)= "9"
Chr_Val(10)= "a"
Chr_Val(11)= "b"
Chr_Val(12)= "c"
Chr_Val(13)= "d"
Chr_Val(14)= "e"
Chr_Val(15)= "f"
Chr_Val(16)= "g"
Chr_Val(17)= "h"
Chr_Val(18)= "i"
Chr_Val(19)= "j"
Chr_Val(20)= "k"
Chr_Val(21)= "l"
Chr_Val(22)= "m"
Chr_Val(23)= "n"
Chr_Val(24)= "o"
Chr_Val(25)= "p"
Chr_Val(26)= "q"
Chr_Val(27)= "r"
Chr_Val(28)= "s"
Chr_Val(29)= "t"
Chr_Val(30)= "u"
Chr_Val(31)= "v"
Chr_Val(32)= "w"
Chr_Val(33)= "x"
Chr_Val(34)= "y"
Chr_Val(35)= "z"

Randomize
do while len(chave) < 6
num = Chr_Val(Int(35 * Rnd))
chave = chave + num
loop
GeraSenha = chave

END FUNCTION
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página