Paßwort Erzeugung

[Wipe]

Hallo,  

kennt oder hat jemand ein Tool/DB unter Notes, daß mir autom. Paßwörter generiert.

[fritandr]

Hallo Bubble,

ich habe da mal was im Internet gefunden. Wenn Du dieses Script in eine Schaltfläche einbaust, bekommst Du bei jedem Klick ein neues Passwort. Für meine Zwecke reicht das völlig aus.

Viele Grüße
Andreas / fritandr

-----
Sub Click(Source As Button)
     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 6 'generate the password
           pw = pw + nchar(Rnd(x)*i)
     Next
     Messagebox pw
'Display the password in a password field
End Sub