<%
'***********************************
'Função: MakePassword (ByValmaxlen)
'Parâmetro: Maxlen, o comprimento dos dígitos de senha a serem gerados
'Autor: Alixi
Data: 2007/7/12
'Descrição: gerar senhas aleatórias de qualquer número de dígitos
'Exemplo: <%= MakePassword (8)%>
'***********************************
functionMakePassword (ByValmaxlen)
DIMSTRNEWPASS
Dimwhatsnext, superior, inferior, intcounter
randomizar
forintCounter = 1Tomaxlen
WhatsNext = int ((1-0+1)*rnd+0)
ifwhatsNext = 0then
'personagem
superior = 90
inferior = 65
outro
superior = 57
inferior = 48
endif
strNewPass = strNewPass & chr (int ((Upper-Lower+1)*rnd+inferior))
próximo
MakePassword = strNewPass
Função final
%>