Generate a random password

This script sippet can be used for registering notes or web user. It generates a random password that can be stored in password field.
Sub Initialize

Dim x As Integer
Dim i As Integer
Dim nchar() As String
For x = 0 To 127 'ASCII-Code
Select Case x
Case 48 To 57
Redim Preserve nchar(i)
nchar(i) = Chr$(x)
i = i + 1
Case 97 To 122
Redim Preserve nchar(i)
nchar(i) = Chr$(x)
i = i + 1
End Select
Next

For j = 1 To 8 'generate the password
pw = pw + nchar(Rnd(x)*i)
Next
'Display the password in a password field
End Sub

This was first published in April 2001

Dig deeper on Domino Resources

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close