Ver Mensaje Individual
  #69 (permalink)  
Antiguo 17/05/2005, 05:03
Avatar de Bravenap
Bravenap
 
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años
Puntos: 4
Clave aleatoria (modificación)

Hola, esta es un pequeña modificación del código de pempas para generar una clave aleatoria (http://www.forosdelweb.com/showthrea...rio#post893965). La modificación es porque entre los caracteres ASCII que van desde el 48 al 90 se nos cuelan los siguientes indeseables:

58: :
59: ;
60: <
61: =
62: >
63: ?
64: @

Código:
function aleatorio()
	randomize
	car = Int((90 - 48 + 1) * Rnd + 48)
	aleatorio = car
end function

Dim clave
Dim tamano = 15

do while Len(clave) < tamano
	n = aleatorio()
	if n < 58 or n > 64 then
		clave = clave & chr(n)		
	end if
loop

Response.Write(clave)
Un saludo.
__________________
¡¡NO A LA GUERRA!!
Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares!