Generador de claves aleatorias en ASP

Creamos una función para obtener complicadas claves (contraseñas, passwords) 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.

Autor: Fabian Muller
Original de: WebExperto

Usuarios que han visto este tema también han visto...

- Banners aleatorios sin Adrotator
- Bloquear IPs a través de un array con ASP
- Subir ficheros al servidor mediante xelUpload y ASP
- Validación de E-Mails con ASP
- Redirección del error de servidor 301 con ASP

- Versión imprimible de este documento
- Enviar por e-mail este documento