Ejemplo de 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>

Mira algunos ejemplos relacionados...

0 comentarios en Ejemplo de Generador de contraseñas en ASP

Escribir comentario para Ejemplo de Generador de contraseñas en ASP
Nombre:(*)
Web:
Email:(*)	(no se publicará)
Comentario:(*)
Tu comentario no se publicará inmediatamente. Tu comentario será revisado por los administradores