Autor Thema: Paßwort Erzeugung  (Gelesen 4131 mal)

Offline Wipe

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 873
  • Geschlecht: Männlich
Paßwort Erzeugung
« am: 09.10.02 - 12:54:02 »
Hallo,  :D

kennt oder hat jemand ein Tool/DB unter Notes, daß mir autom. Paßwörter generiert.
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline fritandr

  • Global Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 742
  • Geschlecht: Männlich
  • Höre nie auf besser zu werden...
    • KAMMACHI Consulting GmbH
Re: Paßwort Erzeugung
« Antwort #1 am: 09.10.02 - 23:03:31 »
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
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Andreas Fritz

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz