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)

%>