Passwort Generator

[Shakyamuni]

Hallo Allerseits,
zwar ist dies mein erster Beitrag im Forum, aber damit schicke ich auch gleich ein Programm
mit, das ich eben grade programmiert habe.
Dieses 191kB kleine Programm generiert für euch ein schwer knackbares Passwort mit der euren
gewünschten Zeichenlänge. Dabei verwendet das Programm Buchstaben, Zahlen und Sonderzeichen.

Der Quellcode sieht wie folgend aus:

Code:

procedure TForm1.GenerierenClick(Sender: TObject);
begin
zahl1 := strtoint(Anzahl.text);
Generated.Text := PassWort(zahl1);
end;

function TForm1.PassWort(PLen:Integer):String;
begin
  Randomize;
  str:='1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ|<>^°!§$%&/=?+#*-';
  Result:=''; 
  repeat
    Result:=Result+str[Random(Length(str))+1]; 
  until(Length(Result)=PLen)
end;

Dieses Programm ist nicht dazu gedacht, um es als Gerüst für ein Brute-Force-Programm zu dienen.
Außerdem bitte ich darum, dies nicht als sein eigenes zu verkaufen, egal, ob gegenüber
seiner Freunde, Lehrer oder Dozenten. Es kann gerne als Programmierhilfe genutzt werden.

Lg,
Shakyamuni

[lbccaleb]

hey und willkommen in der dp :dp: :dp:

das schut ja schon mal nicht schlecht aus dein programm ;-)

wie wärs wenn du noch eine edit einbaust, in der man die zu benutzenden zeichen auswählen kann!!
falls man ein pw haben will nur mit kleinen buchstaben oder bchstaben und zahlen!!

[Luckie]

- Man kann Buchstaben eingeben.
- Guck mal, was passiert, wenn man dein Fenster maximiert.
- Man sollte einstellen können aus was für einem Zeichenvorrat man das Passwort generiert haben will.

[Matze]

Hallo Shakyamuni, herzlich Willkommen!

Zitat:

Zitat von Shakyamuni

Außerdem bitte ich darum, dies nicht als sein eigenes zu verkaufen

Das ist so wenig Code, den man sicher selbst in kurzer Zeit zusammengetippt hat. Das ist jetzt ja nichts wirklich besonderes. ;)

Ich möchte das Programm nicht schlecht machen und es funktioniert sicher einwandfrei und kann auch ganz praktisch sein, doch wegen dem bisschen Code eine Art Lizenz ins Leben zu rufen, ist ein klein wenig übertrieben. :)

Grüße

[Shakyamuni]

Um schonmal ein paar Fragen zu beantworten :-D
Wegen der "Lizenz":
Das hab ich einfach kurz hingeschrieben, weil es ja auch (leider) Personen gibt,
die sich als Programmierer darstellen wollen, mal eben online gehen, sich einen
Quelltext, seis für Schule oder sonst was, herunterholen und damit dann groß
rumlaufen.

Was die Sache mit dem Maximieren angeht:
Das Programm soll halt nichts großes sein, und ich sehe eig auch nicht die Nötigkeit,
wieso ich die Größen an die des Fenster anpassen sollte. Vielleicht bei einer späteren
Version.

Das mit dem Pool kommt auch noch bei einer späteren Version, das hier ist ja nur so was,
was ich kurz "hingeschmiert" hab.

Freue mic aber über die schnellen Rückmeldungen :corky:

Lg,
Shakyamuni

[_frank_]

btw. randomize sollte nur einmal aufgerufen werden...

Gruß Frank

[lbccaleb]

Zitat:

Zitat von Shakyamuni

Was die Sache mit dem Maximieren angeht:
Das Programm soll halt nichts großes sein, und ich sehe eig auch nicht die Nötigkeit,
wieso ich die Größen an die des Fenster anpassen sollte. Vielleicht bei einer späteren
Version.

wieso?? ist doch auch nicht wirklich was dickes bei??!!
einfach im oi die eigenschaft "BorderStyle" auf bsSingle gesetzt und fertig ;-)

oder direkt im oncreate:

Delphi-Quellcode:

borderstyle := bsSingle;
Randomize; //das sollte auch eher hier hinn als in die funktion selber!!

[MSSSSM]

nochmla ein bisschen verbessert
wo krieg ich den borland style guide her?

mfg

aktualisiert!

[Luckie]

Gleichen Kritikpunkte:
- Man kann Buchstaben eingeben.
- Maximier mal das Fenster und guck, was passiert...

[Matze]

Zitat:

Zitat von MSSSSM

wo krieg ich den borland style guide her?

Von CodeGear oder übersetzt findest du ihn auf dsdt.info.