Generación de passwords aleatorios

kevin22 · #1 (**permalink**) 12/07/2002, 12:03

Alguien podria decirme como generar numeros aleatorios de 8 cifras con ASP? Lo necesito para enviar contraseñas a los usuarios registrados.

Gracias

RootK · #2 (**permalink**) 12/07/2002, 12:48

Hola... puedes usar el siguiente codigo como base para tu proyecto:

Código:

&lt;%
Function generadordeclaves(longituddeclave)
Dim numerodecaracteres 
Dim salida
Dim char_array
char_array = Array(&quot;0&quot;, &quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;, &quot;7&quot;, &quot;8&quot;, &quot;9&quot;, _
&quot;A&quot;, &quot;B&quot;, &quot;C&quot;, &quot;D&quot;, &quot;E&quot;, &quot;F&quot;, &quot;G&quot;, &quot;H&quot;, &quot;I&quot;, &quot;J&quot;, _
&quot;K&quot;, &quot;L&quot;, &quot;M&quot;, &quot;N&quot;, &quot;O&quot;, &quot;P&quot;, &quot;Q&quot;, &quot;R&quot;, &quot;S&quot;, &quot;T&quot;, _
&quot;U&quot;, &quot;V&quot;, &quot;W&quot;, &quot;X&quot;, &quot;Y&quot;, &quot;Z&quot;)

Randomize()

Do While Len(salida) &lt; longituddeclave
salida = salida &amp; char_array(Int(36 * Rnd()))
Loop

devolver
generadordeclaves = salida
End Function


numerodecaracteres=10

Response.Write &quot;&lt;b&gt;&quot; &amp; generadordeclaves(numerodecaracteres) &amp; &quot;&lt;/b&gt;&quot; &amp; vbCrLf
%&gt;

Saludos y suerte..!!!