Password Casuale [ Versione 2 ]


Grazie a questo script è possibile ampliare il set di caratteri contenuti nella password generata in modo casuale.

<%
function password(intLung)
dim ctInd
dim chrCasuale
dim intCasuale
randomize()
for ctInd = 1 to intLung
intCasuale = cint ( ( 3 - 1 ) * rnd() + 1 )
select case intCasuale
case 1
chrCasuale = cint ( ( asc("z") - asc("a") ) * rnd() + asc("a") )
case 2
chrCasuale = cint ( ( asc("9") - asc("0") ) * rnd() + asc("0") )
case 3
chrCasuale = cint ( ( asc("Z") - asc("A") ) * rnd() + asc("A") )
end select

password = password & chr(chrCasuale)
next
end function
response.write password(8)
%>