Código fuente de 'Generador-de-claves-2.asp'
<html>
<head>
<title>Generador de claves 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Generador de claves 2</font></b></p>
<body style="font-family: Arial; font-size: 11pt">
<%
' Generador de claves aleatorias
Function generadordeclaves(longituddeclave)
' Nota para los principiantes : el símbolo "_" es el de continuación de linea
' Definicion del array
Dim numerodecaracteres
Dim salida
Dim char_array
char_array = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
"K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
"U", "V", "W", "X", "Y", "Z")
Randomize()
Do While Len(salida) < longituddeclave
salida = salida & char_array(Int(36 * Rnd()))
Loop
' establecemos el valor del resultado a devolver
generadordeclaves = salida
End Function
numerodecaracteres=10
' escribe los resultados de la clave con tantos caracteres como el parametro pasado
Response.Write "<b>" & generadordeclaves(numerodecaracteres) & "</b>" & vbCrLf
%><br><br><a href="Generador%20de%20claves%202.asp">Pulsa aquí para refrescar la pantalla y generar otra clave aleatoria.</a></body>
</html>