Generador de claves aleatorias

Creamos una función para obtener complicadas claves automáticas en forma aleatoria.

Resulta muy útil para brindarle a nuestros usuarios claves de activación y/o registración en nuestro sitio. De esta manera se generarán claves desiguales entre sí, y son imposibles de descifrar.

<%
' 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)

' Imprimir clave
Response.Write "<center><b>"& Password & "</b></center>"
%>

Al ejecutar el script anterior obtendremos claves como: tsyq151a, 50oemxcg, npxnxnz1, i9zbfqyh, e0hm20l2, etc.