Problemstellung:
Es kommt ab und zu mal die Frage auf - Wie kann ich ein Passwort automatisch generieren?
Hier mal eine Lösung dafür.
Der Originalcode (nur Zahlen und Großbuchstaben) stammt von D.Otter vom vbarchiv
und wurde von mir angepasst und erweitert.
Voraussetzungen:
Das Bsp ist ab A07 lauffähig
Funktionsweise:
Herzstück ist die Funktion "CreatePassword"
Public Enum KeyType nurGross = 0 nurGrossUndKlein = 1 nurKlein = 2 nurGrossUndZahlen = 3 nurKleinUndZahlen = 4 ZahlenGrossUndKlein = 5 End Enum Public Function CreatePassword(nLen As Long, nType As KeyType) As String '----------------------------------------------------------------------- ' Procedure : CreatePassword ' DateTime : 23.02.2008 16:18 ' Author : TommyK (Original von Dieter Otter) '------------------------------------------------------------------------
Komplette Funktion in der Bsp-DB.
Die Funktion erwartet 2 Parameter:
1. nLen = Länge des Passwortes, Möglich von 1 - 32767
2. nType = Typ des Passwortes (Möglichkeiten s. o. Enum-Auflistung)
In der Bsp-DB habe ich ein paar Lösungen eingebaut.
Die Funktion erwartet 2 Parameter:
1. nLen = Länge des Passwortes, Möglich von 1 - 32767
2. nType = Typ des Passwortes (Möglichkeiten s. o. Enum-Auflistung)
In der Bsp-DB habe ich ein paar Lösungen eingebaut.
Ihr könnt natürlich die Funktion beliebig erweitern, z.B. um mit Sonderzeichen zu arbeiten.
In diesem Fall müsst Ihr nur die entsprechenden ASCII-Codes in die Funktion integrieren.
In diesem Fall müsst Ihr nur die entsprechenden ASCII-Codes in die Funktion integrieren.
10.08.2026
21.81 KB
1.803Ähnliche Artikel