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>