http://www.tksoft-online.de

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 PDF Drucken E-Mail
Benutzer Bewertung: / 4
SchlechtSehr gut 
 

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

Views : 1985    

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.
Image
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.


Image Downloaddetails der Bsp-DB

 

Letztes Update : 02-04-2008 10:01

Favoriten Drucken Als E-mail versenden Ähnliche Artikel

Benutzerkommentare  RSS feed Kommentar
 

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
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
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.
 
Das Kriterium besagt das diese Möglichkeiten bestehen (Groß-, Kleinbuchstaben u. Zahlen) aber nicht das es unbedingt eintritt.
Registriert

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

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
Keine Beiträge bisher.

Diskutiere...
< Zurück   Weiter >

Google Site Search

Google
Web TKSoft-Online
Google PageRank modul - Camelpark SEO centrum

Login

Latest Forum Posts

Last Comments

Einlesen von Dateien in eine...
DLL Fehler?
Hallo Swear, das ist keine...
11.02.10 15:37 Mehr...
von TommyK

Einlesen von Dateien in eine...
dll Probleme
Echt gute Programmsequenz. Ich hab nur...
11.02.10 10:40 Mehr...
von Swear

Berechnung von Kalenderwochen...
Falsche KW
Hallo MAG, schreibe: Dann erhälst...
18.01.10 17:10 Mehr...
von TommyK

Berechnung von Kalenderwochen...
Funktion gibt bei mir falsche KW aus.
Hallo, super Danke für den Tipp,...
18.01.10 13:14 Mehr...
von Mag

Passwort Generator
Oh Mann...
Danke Tommy, manchmal scheint man...
08.12.09 06:25 Mehr...
von Uwe

Download Statistik

1 Kategorien:33 1 Files:186 1 Downloads:142080 1 Traffic:
JoomlaWatch Stats 1.2.8_05-dev by Matej Koval