Função Gera Senha

<%
Function GerarSenha(maxnum,par1)
IF par1 = 1 Then var_valores = "0,1,2,3,4,5,6,7,8,9,"&_
        "A,B,C,D,E,F,G,H,I,J,K,L,M,"&_
        "N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
IF par1 = 2 Then var_valores = "0,1,2,3,4,5,6,7,8,9"
IF par1 = 3 Then var_valores = "A,B,C,D,E,F,G,H,I,J,K,L,M,"&_
        "N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
xArray = Split(var_valores,",")
Randomize
do while len(chave) < maxnum
num = xArray(Int(Ubound(xArray) * Rnd ))
chave = chave + num
loop
GerarSenha = Trim(chave)

End Function

response.write GerarSenha(8,1)
%>

Onde, 8 é a quantidade de casas que terá sua senha.
o outro parâmetro que pode ser 1, 2 ou 3, determina se será alfanumérico, númerico ou com somente letras.

Esta função teve como base uma com o nome de GeraChave, já postada aqui também.

Bom proveito

Esta matéria foi postada originalmente no ASP4Developers por Marcio Lima (Guardião) (site), que na época era "Programador ASP e VBA, apaixonado por Design, futurismo e ficção.
". Hoje, vai saber...