Senhas Aleatórias

[Ted k']

Script que gera senhas aleatórias

<%@ Language="VBScript" %>
<%
Dim Consoantes, Numeral, Vogal
Dim rConsoantes, rNumeral, rVogal

        Consoantes = "bcdfghjklmnpqrstvyxzw"
        Numeral = "1234567890"
        Vogal = "aeiou"

                lConsoantes = Len(Consoantes)
                lNumeral = Len(Numeral)
                lVogal = Len(Vogal)

        Randomize
                rConsoantes = (Rnd * lConsoantes + 1)
                rNumeral = (Rnd * lNumeral + 1)
                rVogal = (Rnd * lVogal + 1)
        Randomize

                rConsoantes = CInt(rConsoantes)
                rNumeral = CInt(rNumeral)
                rVogal = CInt(rVogal)

        Randomize
                PassWord = PassWord & Mid(Consoantes, rConsoantes, 1) & Mid(Numeral, rNumeral, 1) & Mid(Vogal, rVogal, 1) & Mid(Numeral, (Rnd * rNumeral + 1), 1) & Mid(Vogal, (Rnd * rVogal + 1), 1) & Mid(cConsoantes, (Rnd * rConsoantes + 1), 1)
        Randomize

        Response.Write PassWord
%>