Un Generador de claves aleatorias


http://www.asptutor.com

Generador de claves aleatorias

Este pequeño ejemplo nos permite generar claves alfanumericas aleatorias

Paso a paso:

  • En un primer paso definimos la función que no devolverá la clave buscada
  • Esta función recibe como parámetro el numero de caracteres que queremos que tenga la clave
  • Definimos las variables numerocaracteres (longitud de la clave a generar) y salida (variable en que dejaremos la clave generada)    
  • Definimos un array (char_array) con los caracteres alfanumericos que a partir de los cuales queremos     generar la clave
  • Invocamos a la función Randomize()
  • Hacemos un bucle con tantas vueltas como caracteres de longitud necesitemos, en cada una de las vueltas agregamos un nuevo caracter a la cadena a devolver (salida)

 

Generador.asp
<%
' Generador de claves aleatorias

Function generadordeclaves(longituddeclave)
' Nota para los principientes : el simpolo "_" 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
%>



Atras