Option Explicit
'Diese Routinen sind aus der Newsgroup 'microsoft.public.de.access' im Mai 2001,
'Ich habe den Code nur etwas angepasst um gleiche Funktionalität zu erreichen

'von Fenasi Kerim:
Public Function GeneratePwd(lng As Integer) As String
Dim intI As Integer
Dim Zufallszahl As Integer

  Randomize Timer                       'Initialisieren des Zufallszahlengenerators mit
                                        'der Anzahl Sekunden seit Mitternacht
  For intI = 1 To lng                   'Paßwort hat Länge [lng]
    Do
      Zufallszahl = Int(Rnd() * 36)     'gibt Zahlen im Bereich von [0;35]
                                        'zurück.
    Loop Until Zufallszahl <> 2
    If Zufallszahl < 10 Then
      GeneratePwd = GeneratePwd & Trim(Str$(Zufallszahl))
    Else
      GeneratePwd = GeneratePwd & Chr$(Zufallszahl + 55)    ' Bei 65 ist der Buchstabe 'A'
    End If
  Next intI

End Function

'von Edgar Sperling:
Public Function myKennwort(Lang As Integer)
Dim myZ As Integer
Dim myZufall As Integer
Dim myZufall2 As Integer
Dim myWert As String

  For myZ = 1 To Lang
    Randomize
    myZufall = Int((3 * Rnd) + 1)
      Select Case myZufall
        Case 1
          Randomize
          myZufall2 = Int((10 * Rnd) + 48)
          myWert = Chr(myZufall2)
          myKennwort = myKennwort & myWert
        Case 2
          Randomize
          myZufall2 = Int((26 * Rnd) + 65)
          myWert = Chr(myZufall2)
          myKennwort = myKennwort & myWert
        Case 3
          Randomize
          myZufall2 = Int((26 * Rnd) + 97)
          myWert = Chr(myZufall2)
          myKennwort = myKennwort & myWert
      End Select
  Next

End Function

'von Petra Bridarolli
Public Function pw(L As Integer)
Dim sKonsonant As String
Dim sVokal As String
Dim sZiffer As String
Dim Zyklus As Integer
Dim i As Integer
Dim s As String
Dim p As Integer

  sKonsonant = "bcdfghklmnpqrstvwxz"
  sVokal = "aeiouyj"
  sZiffer = "0123456789"
  pw = ""
  Randomize (Timer)
  Zyklus = Rnd(1) * L

  For i = 0 To L - 1
    Zyklus = (Zyklus + 1) Mod 5
    s = sKonsonant
    If Zyklus = 1 Then s = sVokal
    If Zyklus = 4 Then s = sZiffer
    If Zyklus = 3 Then s = sVokal
    p = Int(Rnd(1) * Len(s)) + 1
    pw = pw & Mid(s, p, 1)
  Next

End Function