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>

Keywords: Ejemplo de Generador de contraseñas en ASP, Generador de contraseñas en ASP, generador contraseñas, asp, ejemplo,
Creado por: Morris el 04.10.08