TKSoft-Online

Passwort Generator PDF Drucken E-Mail
( 4 Votes )
MS-Access Bsp. DB's - Bsp. Downloads Sicherheit
Geschrieben von: TommyK   
Montag, den 25. Februar 2008 um 04:00 Uhr
Tags:

 

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.

Passwort Generator

Passwort Generator mit verschiedenen Möglichkeiten
für A00-A07

Die Zip-Datei enthält eine Version ab A00




 Erstellt am
Dateigröße
Downloads		 25.02.2008
18.12 KB
614

Downloads in dieser Kategorie

MS-Access Sicherheit

MS-Access Sicherheit

Seite: 1


DatumKlicks
Total4168
Mi. 231
Di. 222
Mo. 211
So. 206
Sa. 191
Fr. 182
Do. 172
< Zurück   Weiter >
Aktualisiert ( Mittwoch, den 19. Oktober 2011 um 12:51 Uhr )
 

Kommentare  

 
0 # Hondo 2008-06-23 08:24
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
Antworten | Antworten mit Zitat | Zitieren
 
 
0 # TommyK 2008-06-23 08:37
@Hondo
Zitat:
was fehlt sind noch die Sonderzeichen

Hier sind der Selbstkreativit ät keineGrenzen gesetzt. :D
Zitat:
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.
Antworten | Antworten mit Zitat | Zitieren
 
 
0 # Uwe 2009-12-07 15:58
Hallo Tommy,

ich habe deine Datenbank um folgende Funktion erweitert:
Public Function TabelleFüllen(A nzahl 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, ZahlenGrossUndK lein)
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
Antworten | Antworten mit Zitat | Zitieren
 
 
0 # TommyK 2009-12-08 06:37
Hallo Uwe,

ganz einfach.
Es liegt an diesen Zeilen:
Zitat:
Public Function TabelleFüllen(A nzahl As Integer)

und
Zitat:
Dim t As Integer

Da ist beim Datentyp Integer Schluß
Mit dem Datentyp Long sollte es klappen.
Code:Dim t As Long
und
Code:Public Function TabelleFüllen(A nzahl As Long)

Gruß Tommy
Antworten | Antworten mit Zitat | Zitieren
 
 
0 # Uwe 2009-12-08 08:25
Danke Tommy,

manchmal scheint man den Wald vor lauter Bäumen nicht mehr zu sehen.
Ich habe mir wieder auf's Hirn geklopft, jetzt sollte es wieder gehen :-)
Danke nochmal...

LG Uwe
Antworten | Antworten mit Zitat | Zitieren
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173444 Downloads