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.