Passwort Generator | Bsp. Downloads Sicherheit

ALLE |0-9 |A |B |C |D |E |F |G |H |I |J |K |L |M |N |O |P |Q |R |S |T |U |V |W |X |Y |Z

Themen

MS-Access Bsp. DB's

Bsp. Downloads Sicherheit

Suche nach Schlagwort : MS-Access, VBA, Sicherheit, Passwort

Passwort Generator

Geschrieben von TommyK, am 25-02-2008 02:00

Favoriten : Keine

Veröffentlicht in : MS-Access Bsp. DB's, Bsp. Downloads Sicherheit

Schlüsselworte : MS-Access, VBA, Sicherheit, Passwort

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 unter A00-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.

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.

Downloaddetails der Bsp-DB

Letztes Update : 02-04-2008 10:01

Benutzerkommentare

Durschnittliche Benutzerbewertung

(0 Stimmen)

Angezeigt werden 3 von 3 Kommentar(en)

1. 07-12-2009 13:58

Frage zu meiner Erweiterung

Hallo Tommy,

ich habe deine Datenbank um folgende Funktion erweitert:
Public Function TabelleFüllen(Anzahl As Integer)
Dim db As Database
Dim rs As Recordset
Dim t As Integer
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE * FROM Daten;")
DoCmd.SetWarnings True
Set db = CurrentDb()
Set rs = db.OpenRecordset("Daten")
For t = 1 To Anzahl
rs.AddNew
rs!Kennwort = CreatePassword(10, ZahlenGrossUndKlein)
rs.Update
Next t
rs.Close
db.Close
End Function
Nun wollte ich im Direktbereich eine Anzahl von über 40.000 Kennwörter, aber er lässt nur etwas mehr wie 35.000 zu?! Warum?
LG Uwe

Gast

» Diesen Kommentar dem Administrator melden

» Antworte auf diesen Kommentar...

» Alle 2 Antworten anschauen

Uwe

2. 23-06-2008 06:37

Generator

@Hondo
Zitieren

was fehlt sind noch die Sonderzeichen

Hier sind der Selbstkreativität keineGrenzen gesetzt. :grin

Zitieren

Das Kriterium besagt das diese Möglichkeiten bestehen (Groß-, Kleinbuchstaben u. Zahlen) aber nicht das es unbedingt eintritt.

Registriert

» Diesen Kommentar dem Administrator melden

» Antworte auf diesen Kommentar...

TommyK

3. 23-06-2008 06:24

2 kleine Anmerkungen

Hallo Tommy,
was fehlt sind noch die Sonderzeichen

Außerdem, wenn ich z.B. Groß/Kleinbuchstaben und Zahlen wähle und z.B. die Länge auf 4 stelle, brauche ich nur wenige male das Passwort generieren bis eines der 3 Kriterien nicht mehr erfüllt ist. Meine Strategie ist, sichere Passwörter mit Groß & Kleinbuchstaben, Zahlen und Sonderzeichen zu generieren. Dazu muss zu Beginn des Algorithmus zuerst für alle 4 Kriterien die Positionen im Passwort per Zufall ermittelt werden. Dann in der Schleife diese Positionen berüksichtigen, und die restlichen Positionen wieder zufällig auffüllen.
Andreas

Registriert

» Diesen Kommentar dem Administrator melden

» Antworte auf diesen Kommentar...

Hondo

Angezeigt werden 3 von 3 Kommentar(en)

Füge deinen Kommentar hinzu

mXcomment 1.0.6 © 2007-2010 - visualclinic.fr
License Creative Commons - Some rights reserved