<%
'**********************************
'Función: MakePassword (byvalmaxlen)
'Parámetro: Maxlen, la longitud de los dígitos de contraseña a generar
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: Genere contraseñas aleatorias de cualquier número de dígitos
'Ejemplo: <%= makepassword (8)%>
'**********************************
functionmakePassword (byvalmaxlen)
dimstrNewPass
dimwhatsNext, superior, inferior, intcounter
aleatorizar
forintcounter = 1Tomaxlen
whatsNext = int ((1-0+1)*rnd+0)
ifwhatsNext = 0then
'personaje
superior = 90
inferior = 65
demás
superior = 57
inferior = 48
endif
strNewPass = strnewpass & chr (int ((superior-bajo+1)*rnd+inferior)))
próximo
MakePassword = strnewpass
Función final
%>