USUÁRIO:
SENHA:
SALVAR LOGIN ?
Dicas
ASP - Active Server Page
(Miscelâneas)
Título da Dica:
Gerador de Senhas em ASP
Postada em 17/9/2003 por
Mago_Pc
Function GerarSenha(valor)
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"
Randomize
do while len(senha) < 6
num = chr_Array(Int(35*Rnd))
senha = senha + num
End Function
response.write "Sua Senha é: " & GerarSenha(06)
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
