Mein erster Passwort Generator [Delphi]

[bl4ckb1rd]

Wie im Titel schon steht: Mein erster Passwort Generator
geschrieben in Delphi.

Zum Programm:

Man kann zwischen einem 6stelligen bis zu einem 25stelligen Password auswählen. Es gibt 8 verschiedene Optionen, die die stärke des Passworts beeinflussen.

- Pw aus nur kleinen Buchstaben
- Pw aus nur großen Buchstaben
- Pw aus großen und kleinen Buchstaben
- Pw aus Zahlen und nur kleinen Buchstaben
- Pw aus Zahlen und nur großen Buchstaben
- Pw aus Zahlen und großen und kleinen Buchstaben
- Pw aus nur Zahlen

- Easy to remember Funktion

Die 'Easy to remember' Funktion generiert ein Passwort welches man einfach aussprechen kann und somit sich leichter merken kann.
Dies wurde dadurch erreicht das sich Konsonante und Vokale immer abwechseln.

Diese Funktion wird nicht unterstütz wenn der Punkt: Pw aus nur Zahlen ausgewählt wurde. (logisch oder? :P )

Den Code kann man sich hier anschauen: http://armag3ddon.bplaced.net/pwgensource.txt

Und das tool kann man sich hier runterladen: http://armag3ddon.bplaced.net/pwgen.zip


Bitte um ein Feedback. Also was euch gefallen hat, was nicht, was ihr gerne verbessern würdet bzw. gerne in einem verbessertem Zustand sehen möchtet ;)

Danke schon mal im voraus!

[RWarnecke]

Ich habe Dein Tool noch nicht getestet. Aber Deinen Sourcecode angeschaut. Ich gebe Dir den Rat, Deine Buttons, RadioButtons u.s.w. mit richtigen Namen zu versehen, die die Tätigkeit des Buttons oder des RadioButtons beschreiben. Ich benenne meine Buttons zum Beispiel so Btn_GeneratePwd. Damit weiß ich, wenn ich den Namen im Sourcecode sehe, dass dieser Button dazu da ist, dass Passwort zu generieren. Das erleichtert die Übersicht. Dann könntest Du noch diesen Bereich vereinfachen :

Deine Version:

Delphi-Quellcode:

konsonanteklein[1] := 'b';
konsonanteklein[2] := 'c';
konsonanteklein[3] := 'd';
konsonanteklein[4] := 'f';
konsonanteklein[5] := 'g';
konsonanteklein[6] := 'h';
konsonanteklein[7] := 'j';
konsonanteklein[8] := 'k';
konsonanteklein[9] := 'l';
konsonanteklein[10] := 'm';
konsonanteklein[11] := 'n';
konsonanteklein[12] := 'p';
konsonanteklein[13] := 'q';
konsonanteklein[14] := 'r';
konsonanteklein[15] := 's';
konsonanteklein[16] := 't';
konsonanteklein[17] := 'v';
konsonanteklein[18] := 'w';
konsonanteklein[19] := 'x';
konsonanteklein[20] := 'y';
konsonanteklein[21] := 'z';

Meine Version :

Delphi-Quellcode:

konsonantegross : array[1..21] of string = (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);

[Namenloser]

Zitat:

Zitat von RWarnecke

Ich habe Dein Tool noch nicht getestet. Aber Deinen Sourcecode angeschaut. Ich gebe Dir den Rat, Deine Buttons, RadioButtons u.s.w. mit richtigen Namen zu versehen, die die Tätigkeit des Buttons oder des RadioButtons beschreiben. Ich benenne meine Buttons zum Beispiel so Btn_GeneratePwd. Damit weiß ich, wenn ich den Namen im Sourcecode sehe, dass dieser Button dazu da ist, dass Passwort zu generieren. Das erleichtert die Übersicht. Dann könntest Du noch diesen Bereich vereinfachen :

Deine Version:

Delphi-Quellcode:

konsonanteklein[1] := 'b';
konsonanteklein[2] := 'c';
konsonanteklein[3] := 'd';
konsonanteklein[4] := 'f';
konsonanteklein[5] := 'g';
konsonanteklein[6] := 'h';
konsonanteklein[7] := 'j';
konsonanteklein[8] := 'k';
konsonanteklein[9] := 'l';
konsonanteklein[10] := 'm';
konsonanteklein[11] := 'n';
konsonanteklein[12] := 'p';
konsonanteklein[13] := 'q';
konsonanteklein[14] := 'r';
konsonanteklein[15] := 's';
konsonanteklein[16] := 't';
konsonanteklein[17] := 'v';
konsonanteklein[18] := 'w';
konsonanteklein[19] := 'x';
konsonanteklein[20] := 'y';
konsonanteklein[21] := 'z';

Meine Version :

Delphi-Quellcode:

konsonantegross : array[1..21] of string = (b,c,d,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z);

Meine Version:

Delphi-Quellcode:

konsonantegross : string = 'bcdfghjklmnpqrstvwxyz';

Bei dir sind übrigens auch Vokale drin.

[Luckie]

Zitat:

Zitat von NamenLozer

Bei dir sind übrigens auch Vokale drin.

Bei dir auch. :corky:

[Matze]

Hallo,

wenn du die Datei schon nicht anhängst, so füge bitte noch die Dateigröße des Zip-Archivs zum Link hinzu, wie es in der Sparte gewünscht wird. ;)

Grüße, Matze

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Freeware" nach "Open-Source" verschoben.
Der Source ist ebenfalls verfügbar.

[bl4ckb1rd]

Ich habs mir denken können das ich diesen block auch irgendwie kürzer machen kann^^

Ändere ich aber morgen weil ich heute keine lust mehr hab :tongue:

Danke auch ;)

[himitsu]

hab jetzt auch noch nicht getestet und nur geguckt... :stupid:

warum die ZeichenArrays als String?
1 Zeichen = Char

und wenn du mehrdimensionale Arrays verwendest, dann könntest du die Angelegenheit, mit der Groß- und Kleinschreibungs, einfacher handhaben

Delphi-Quellcode:

easyaabc   : array[1..62] of char = (...);
abc        : array[boolean] of array[1..26] of char = (...);
vokale     : array[boolean] of array[1..5] of char = (('a', 'e', ...), ('A', 'E', ...));
konsonante : array[boolean] of array[1..21] of char = (...);

das ganze dann noch als Konstanten (siehe vorredner) wäre auch schöner ^^

z.B.

Delphi-Quellcode:

if odd(I) then begin
  pw := pw + vokaleklein[random(4)+1];
end
else
begin
  pw := pw + konsonanteklein[random(20)+1];
end;

zu

Delphi-Quellcode:

pw := pw + vokale[odd(I), random(4)+1];

oder halt nur Kleinschreibung

Delphi-Quellcode:

pw := pw + vokale[false, random(4)+1];

oder *editiertes vom vorredner anseh* mit Strings

Delphi-Quellcode:

const easyaabc   = '.....';
abc        : array[boolean] of string = ('...', '...');
vokale     : array[boolean] of string = ('aeiou', 'AEIOU');
konsonante : array[boolean] of string = ('...', '...');

Delphi-Quellcode:

pw := pw + vokale[false][random(4)+1];

[BullsEye]

Ich weiß ja nicht, was die Funktion "easy to remember" bei dir bewirkt bzw was die bewirken soll.
Allerdings finde ich nicht, das :

Zitat:

rOmoQegIBIyapiTa8AtIfo

Einfach zu behalten ist ;)


Du solltest ggf noch eine Funktion "in die Zwischenablage kopieren" einbauen ;)

[himitsu]

Zitat:

Zitat von BullsEye

Allerdings finde ich nicht, das :

Zitat:

rOmoQegIBIyapiTa8AtIfo

Einfach zu behalten ist ;)

romo qegibi yapita 8 @ ifo

geht doch? :angel2: