| El siguiente es el fragmento de código: <% Function MakePassword (Byval MaxLen) Dim strnewpass Dim whatsNext, superior, inferior, intcounter Aleatorizar Para intCounter = 1 a Maxlen WhatsNext = int ((1-0 1) * rnd 0) Si whatsNext = 0 entonces superior = 90 Inferior = 65 Demás superior = 57 Inferior = 48 Final si StrNewPass = strNewPass & chr (Inchete -Lower 1) * rnd más bajo) Próximo MakePassword = strnewpass función final 'Especifique la longitud de la contraseña y llame a la función Respuesta.WRITE MAKEPASSWORD (16) %> |