Jump to content

Simple Password Generator


AlmarM
 Share

Recommended Posts

  • 3 weeks later...

I have a lightweight random password generator UDF which I usualy use.

Using 0-9, a-z, A-Z:

Func _RandomPassword()
    Local $s_Result = ""
    For $i = 1 To 32
        Local $i_Rndm = Random(1,3,1)
        Select
            Case $i_Rndm = 1
                $s_Result &= Random(0, 9, 1) ; Chars 0-9
            Case $i_Rndm = 2
                $s_Result &= Chr(Random(65, 90, 1)) ; Chars A-Z
            Case $i_Rndm = 3
                $s_Result &= Chr(Random(97, 122, 1)) ; Chars a-z
        EndSelect
    Next
    Return $s_Result
EndFuncoÝ÷ Ú%,xZk{ZnWªÚr׫³øºÚ"µÍ[ÈÔ[ÛTÜÝÛÜ

BSØØ[ ÌÍÜ×ÔÝ[H  ][ÝÉ][ÝÂQÜ ÌÍÚHHHÈÌBIÌÍÜ×ÔÝ[    [ÏHÚ[ÛJÌËLJJHÈ[[XHÚÂS^T]    ÌÍÜ×ÔÝ[[[

Take if you wish...

Edited by qwer85
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...