random password





-5
Date Submitted Thu. Mar. 2nd, 2006 10:56 AM
Revision 1 of 1
Syntax Master dannyboy
Tags Password | VBSCRIPT
Comments 1 comments
Create a random password:


usage: CreatePasswd( 8,True,False)

Function CreatePasswd(Size,OnlyLetters,LowerCase)

        S=""
        Randomize
        If OnlyLetters Then

                If LowerCase Then
                        For Cpt=1 To Size
                                n=0
                                Do While ((n<=96) or (n>=123))
                                        n=int(rnd*126)
                                Loop
                                S=S+Chr(n)
                        Next
                Else
                        For Cpt=1 To Size
                                n=0
                                Do While ((n<=63) or (n>=91)) and ((n<=96) or (n>=123))
                                        n=int(rnd*126)
                                Loop
                                S=S+Chr(n)
                        Next

                End If

        Else
                For Cpt=1 To Size
                        n=0
                        Do While (n<=32)
                                n=int(rnd*126)
                        Loop
                        S=S+Chr(n)
                Next

        End If

        CreatePasswd = S

End Function
 

Comments

Comments *sniff*
Thu. Sep. 21st, 2006 11:46 PM    Scripter sehrgut

Voting