VisualBasic Snippets  

Routinen zum generieren von Passwörtern:
 

Mit den folgenden Funktionen können automatisch Passwörter generiert werden.

Jede Routine verfolgt einen anderen Weg, alle zusammen dienen auch gut als Beispiel für das arbeiten mit Strings.

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
Viel Spass !!

  Download VB6
Projekt-Quellcode
Download
Demo-Exe

© '2001 by T. Schindzielorz