Password casuale

Grazie a questo breve script, è possibile generare una password in modo del tutto casuale:

<%

function password(intLung)

dim ctInd

dim chrCasuale

randomize

for ctInd = 1 to intLung

chrCasuale = cint ( ( asc("Z") - asc("A") ) * rnd() + asc("A") )

password = password & chr(chrCasuale)

next

end function

response.write password(8)

%>