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