[Resolvido] Senhas Aleatórias

[Ted k' 126]

Script que gera senhas aleatórias

 

ASP

<%@ 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

%>