RE:Como genero passwords aleatorios?
Publicado por
javier (1 intervención) el 05/09/2002 10:39:45
Esta función te servira.
Function PwdAleatorio ( Longitud, Repetir )
'----------------------------------------------------------
' Devuelve una cadena con una secuencia de caracteres
' aleatoria, de longitud especificada.
' Si Repetir = True la secuencia puede contener caracteres
' repetidos. Si Repetir = False, todos los caracteres son
' únicos.
' Para añadir más caracteres posibles, añadirlos al vector
' vCaracteres simplemente separando como comas, como los
' que están ya escritos, y la función los escogerá.
'----------------------------------------------------------
Dim vPass(), I, J ' nuestro vector y dos contadores
Dim vNumeros() ' vector para guardar lo que llevamos
Dim n, bRep
Dim vCaracteres ' vector donde están los posibles caract.
vCaracteres = Array("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", "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", "1", "2", "3", "4", _
"5", "6", "7", "8", "9", "0")
'Establezco la longitud del vector
Redim vPass(Longitud-1)
'Y del vector auxiliar que guarda los caracteres ya escog