generare password di lettere e numeri

[ricc@rdo]

E' possbile generare password casuali composte sempre sia da lettere che da numeri?

avete qualche esempio a portata di mano?

Ciao a tutti
R.

[Enrique_Rojas]

Function genera_pwd()

	Dim i, x
	Dim chars(36)
	Dim pwd(8)
	
	x = 0 
	'a-z
	for i = 97 to 122
		chars(x) = chr(i)
		x = x + 1
	next
	'0-9
	for i = 48 to 57
		chars(x) = chr(i)
		x = x + 1
	next
	password = "" 
	For i = 1 to 8
		Randomize
		password = password & chars(Int((UBound(chars) - LBound(chars) + 1) * Rnd + LBound(chars)))
		next
	genera_pwd = password
end Function

[morphy79]

Il parametro da passare è la lunghezza della password


function GenerateSessionID(nchar)
dim sessionID
sessionID = ""
randomize timer
dim i, n
for i=0 to nchar-1
do
n = int(rnd * 75) + 48
loop until ((n >= 48) AND (N <= 57)) OR ((N >= 65) AND (N <= 90)) OR ((N >= 97) AND (N <= 122))
sessionID = sessionID & chr(n)
next
GenerateSessionID = sessionID
end function




Generare una password casuale (solo numeri)

<%
Randomize ' inizializza il generatore di numeri casuale
Do Until len(password) = 10 ' qui imposti la lunghezza della password
numero = Int((9 Rnd) + 1) ' Genera un valore casuale compreso tra 1 e 9.
password = password &amp; numero
Loop
Response.Write ("La tua password è : " &amp; password &amp; "")
%>

Generare una password casuale (solo lettere)

<%
caratteri = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize ' inizializza il generatore di numeri casuale
Do Until len(password) = 10 ' qui imposti la lunghezza della password
lettera = Int((27 Rnd) + 1) ' Genera un valore casuale compreso tra A e Z.
password = password &amp; Mid(caratteri,lettera,1)
Loop
Response.Write ("La tua password è : " &amp; password &amp; "")
%>

[optime]

<%

Function xRandom(xLower, xUpper)

	Randomize
	xRange = xUpper - xLower
	xRandom = CInt ( ( xRange * Rnd() ) + xLower) 
	
End Function

Function RandomString(myLen)

	Dim i, myWord
	
	For i = 1 to myLen
		myWord = myWord & CHR(xRandom(65, 90))
	Next

	RandomString = myWord

End Function

For i = 1 To 1000
	Response.Write RandomString(20) & " 
 "									' print
Next

%>

solo lettere... aggiungere i numeri non dovrebbe essere difficile