PowerBuilder

Generating Random Password

See more PRNG Examples

Demonstrates how to generate random passwords. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Fortuna
long li_BDigit
long li_BUpperAndLower
string ls_OtherChars
string ls_ExcludeChars
long i

li_Success = 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

li_Success = 0

loo_Fortuna = create oleobject
li_rc = loo_Fortuna.ConnectToNewObject("Chilkat.Prng")
if li_rc < 0 then
    destroy loo_Fortuna
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  Set this equal to 1 if the generated password must include at least one digit (0-9)
li_BDigit = 1

//  Set this equal to 1 if the generated password must include both uppercase and lowercase chars.
li_BUpperAndLower = 1

//  The generated password must contain one of the following non-alphanumeric chars.
ls_OtherChars = "@#$%*"

//  Exclude chars that appear similar to others:
ls_ExcludeChars = "iIlLoO0"

//  Generate 8-character passwords:

for i = 1 to 10
    Write-Debug loo_Fortuna.RandomPassword(8,li_BDigit,li_BUpperAndLower,ls_OtherChars,ls_ExcludeChars)
next


destroy loo_Fortuna