creacion de claves de usuario automaticamente

[mamon]

Bueno he creado una función para crear password aleatorios. esta es:

<%
function passAleatorio(letra, cant, emp)
Randomize()
if letra = 1 then max = 90: min = 65 else max = 122: min = 97
for i = 1 to cant
if emp = 1 then
num = int((0 - 9 + 1) * rnd + 9)
pass = pass & num
emp = 0
else
letra = int((min - max + 1) * rnd + max)
pass = pass & chr(letra)
emp = 1
end if
next
passAleatorio = pass
end function
response.Write(passAleatorio(0, 7, 1))
%>


cómo funciona, crea una password mezclando texto y números. Bueno la función tiene 3 parámetros, el primero es para definir si las letras estan en mayúsculas o minúsculas, si le pones 0 al primer parámetro, las letras estarán en minúsculas, si el pones 1 estarán en mayúsculas.
El segundo parámetro es para indicar cuantos caracteres tendrá tu password
el tercer parámetro es para indicar con qué empiezas la cadena de tu password, si pones 0 empieza con una letra, si pones 1 empieza con un número.. un ejemplo para llamar a la función y que te pinte el password

<%=passAleatorio(1, 8, 0)%>

Saludos,
Giancarlo