Ejemplo de Generador De Contraseñas En ASP

Inicio » ASP » Generador de contraseñas en ASP

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: Del Moral, M. & Rodriguez, J. (s.f.). Ejemplo de Generador De Contraseñas En ASP.Ejemplo de. Recuperado el 18 de Julio de 2022 de https://www.ejemplode.com/19-asp/32-ejemplo_de_generador_de_contrasenas_en_asp.html

ASP
Autor: Del Moral, Mauricio. & Rodriguez, Jennyfer.

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 2012-02-20 a las 20:01:17

Deja un comentario


Acepto la política de privacidad.