Ampliación de mi última pregunta

La función que dispongo para generar el password en forma leatoria es la siguiente:
<%
' Función para generar passwords aleatorios
Function GenerarPassword(largo)
Dim Resultado, Caracter, Password
'Cargamos la matriz con números y letras
caracter = Array("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")
Randomize()
Do While Len(Resultado) < largo
Resultado = Resultado & Caracter(Int(36 * Rnd()))
Loop
GenerarPassword = Resultado
End Function
' Obtener un password de 8 caracteres
Password= GenerarPassword(8)
%>