Domino Code Fragment

Code Name*
Date*
02/14/2001		Source (or email address if you prefer)*
Jannan
IP address:.53.122.34.113
Description*
How to generate a random password for notes or web users.		Type*
LotusScript		Categories*
String Handling
Implementation:
None (plug and play)		Required Client:
(none)		Server:
(none)
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
function GeneratePasswort()
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 'ein 8-stelliges PW erstellen
pw = pw + nchar(Rnd(x)*i)
Next
End Function