|
|
|
|
|
Dicas
|
|
ASP - Active Server Page (Miscelâneas)
|
|
|
Título da Dica: SENHA ALEATÓRIA ALFANUMÉRICA
|
|
|
|
Postada em 2/10/2003 por ^HEAVY-METAL^
Gerador de senha alfanumérica, incluindo maíusculas/minúsculas. Resultado: Senha mais segura, pois possui complexidade.
<%
function gerarsenha(valores)
Dim chr,matriz(62),num num = ""
chr = "abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
for x = 1 to 62 matriz(x) = CStr(mid(chr,x,1)) next
randomize
do while len(chave) < 8 num = matriz(int(62*rnd)) chave = chave + num loop
gerarsenha = chave
end function
response.write(gerarsenha(8))
%>
T+,
|
|
|
|
|