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:  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+,
 


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