Contraseña Aleatorio

[MartYn]

Que ondas Me ayudan ?

como va la variable ?

Tengo un random de passwords de 6 caracteres

coom le digo que sea digitos ?
y como le digo que sea revuelto ?

Aqui va mi codigo

<%
Randomize()
largo_del_codigo = 6
For contador = 1 To largo_del_codigo
numero = Int(26 * Rnd + 97)
letra = Chr(numero)
codigo = codigo & letra
Next
Response.Write "Codigo creado: <B>"&codigo&"</B>"
%>

[pempas]

Te explicaré la manera en que lo hago yo:

Dim confirmado, valor
randomize

For I = 1 to 50
confirmado = Int((90 - 48 + 1) * Rnd + 48)
valor = valor & chr(confirmado)
next

Lo que hago es un for de las posiciones que quiero obtener, en este caso es de 50 posiciones, el 90 es la última posición ASCII que quieres que te coja que en este caso es la "Z", y el 48 es la primera que es el "0", entonces me cogerá desde el (0 - 9 / A - Z).

Mira el rango de caracteres que te interesan y ponlo en los valores de arriba, si lo que quieres es que los puedas introducir tu, pues creas dos variables y las sustituyes.

Saludos, espero que te sirva de ayuda.

[MartYn]

EXCELENTE me gusto mas asi :)

Resuelto
asi lo deje

<%
Dim confirmado, valor
randomize

For I = 1 to 6
confirmado = Int((57 - 48 + 1) * Rnd + 48)
valor = valor & chr(confirmado)
next

Response.Write "Codigo creado: <B>"&valor&"</B>"
%>