A cópia do código é a seguinte:
<%
'O sistema aloca senhas aleatórias
FunctionCreatePass ()
Dimran, i, comprimento
LengthNum = 6
CreatePass = ""
Fori = 1tol comprimento
Randomizar
Ran = cint (rnd*2)
Randomizar
Ifran = 0then
Ran = cint (rnd*25) +97
CreatePass = CreatePass & Ucase (Chr (Ran))
Elseifran = 1then
Ran = cint (rnd*9)
CreatePass = CreatePass & Ran
Elseifran = 2then
Ran = cint (rnd*25) +97
CreatePass = CreatePass & Ch (Ran)
Endif
Próximo
Função final
Response.WriteCreatePass ()
%>