Ejemplo de Generador de contraseñas en ASP

Inicio » ASP » Generador de contraseñas en ASP
Autor: Redacción Ejemplode.com.

Si estás realizando una aplicación donde es necesario generar una contraseña te será de gran utilidad este pedazo de código en ASP.

Copia el siguiente código y guárdalo con el nombre GeneradorContrasena.asp

<%
'Ejemplo de generador de contaseñas en ASP

     Function gen_con(max_num)

     dim gen_array(36)
' ------- Array de caracteres ------
   
     gen_array(0) = "0"
     gen_array(1) = "1"
     gen_array(2) = "2"
     gen_array(3) = "3"
     gen_array(4) = "4"
     gen_array(5) = "5"
     gen_array(6) = "6"
     gen_array(7) = "7"
     gen_array(8) = "8"
     gen_array(9) = "9"
     gen_array(10) = "a"
     gen_array(11) = "b"
     gen_array(12) = "c"
     gen_array(13) = "d"
     gen_array(14) = "e"
     gen_array(15) = "f"
     gen_array(16) = "g"
     gen_array(17) = "h"
     gen_array(18) = "i"
     gen_array(19) = "j"
     gen_array(20) = "k"
     gen_array(21) = "l"
     gen_array(22) = "m"
     gen_array(23) = "n"
     gen_array(24) = "o"
     gen_array(25) = "p"
     gen_array(26) = "q"
     gen_array(27) = "r"
     gen_array(28) = "s"
     gen_array(29) = "t"
     gen_array(30) = "u"
     gen_array(31) = "v"
     gen_array(32) = "w"
     gen_array(33) = "x"
     gen_array(34) = "y"
     gen_array(35) = "z"


     Randomizar
' ------- Genera la cadena hasta que el largo es alcanzado------


     do while len(salida) < max_num
          num = gen_array(Int((35 - 0 + 1) * Rnd + 0))
          salida = salida + num
     loop


' ------- La función arroja un resultado = salida ------

     gen_con = salida
     End Function

' ------- Función de salida que toma el valor máximo------

     If Request.Form ("NUMGEN") <> "" THEN
       intGEN = CInt(Request.Form ("NUMGEN"))
    a = 0
do while a < 500
       response.write gen_con(intGEN) & "<br>"
a = a + 1
loop
     end if 
        
    
%>
<pre>
   o = letra "o"
   O = letra mayúscula "O"
   0 = Cero
   l = letra "l"
   1 = numero 1
</pre>
<FORM NAME=FORM1 METHOD="POST" ACTION="GeneradorContrasena.asp">
<SELECT NAME="NUMGEN" OnChange="this.form.submit();">
<OPTION VALUE=""> Selecciona el número de caracteres...
<OPTION VALUE="6">Contraseña de 6 caracteres de largo
<OPTION VALUE="8"> Contraseña de 8 caracteres de largo
<OPTION VALUE="10"> Contraseña de 10 caracteres de largo
</SELECT>
</FORM>

Citado APA: (A. 2008,04. Ejemplo de Generador de contraseñas en ASP. Revista Ejemplode.com. Obtenido 04, 2008, de https://www.ejemplode.com/19-asp/32-ejemplo_de_generador_de_contrasenas_en_asp.html)

ASP

Búsqueda:

Comentarios:

  1. Puedo sugerir esta variante?
    ------------------------------
    FUNCTION GenerarCadenaAleatoria(i_cuantosdigitos)
    \'Esta función genera una cadena de \"i_cuantosdigitos\" dígitos aleatorios
    \'donde pueden haber números o letras mayúsculas
    GenerarCadenaAleatoria = \"\"
    DO WHILE TRUE
    RANDOMIZE TIMER
    \'Int((limitesuperior - límiteinferior + 1) * Rnd + límiteinferior)
    limiteinferior = 48
    limitesuperior = 90
    wnum_ = Int((limitesuperior - limiteinferior + 1) * Rnd + limiteinferior)
    IF INSTR(\":;?@\",CHR(wnum_))=0 THEN
    \' Esto es para saltear los caracteres de simbolos que estan entre los numeros y las mayusculas GenerarCadenaAleatoria = GenerarCadenaAleatoria & CHR(wnum_)
    END IF
    IF LEN(GenerarCadenaAleatoria)=i_cuantosdigitos THEN
    EXIT DO
    END IF
    LOOP
    END FUNCTION
    Por Sergio 02.20.12 a las 20:01:17

    Deja un comentario


    Acepto la política de privacidad.