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

[Luckie]

Du machst die gleichen Fhler wie dein Vorgänger:

Delphi-Quellcode:

function PassWort(PLen: Integer; vorrat: string): string;
begin
  Randomize;  // <- !!!

  Result := '';
  repeat
    Result := Result + vorrat[Random(Length(vorrat)) + 1];
  until (Length(Result) = PLen)
end;

Randomize nur einmal beim Programmstart aufrufen!

[FAlter]

Hi,

Zitat von Luckie:

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

Man kann auch bei mir Buchstaben eingeben. Sorry, hab mich zu sehr auf das Maximieren konzentriert.

Jetzt sollte beides bei mir nicht mehr gehen.

Am Ende gibts hier hunderte von Varianten dieses Programmes.

Mfg
FAlter

[lbccaleb]

Zitat von FAlter:

Am Ende gibts hier hunderte von Varianten dieses Programmes.

wollen wir jetzt hier nen passwortgenerator contest beginnen oder wie??

[Luckie]

Zitat von FAlter:

Man kann auch bei mir Buchstaben eingeben. Sorry, hab mich zu sehr auf das Maximieren konzentriert.

Aber ihr werdet besser. Beim ersten kam ein Exception, beim zweiten eine Fehlermeldung in einem Label und was dein Programm macht, weiß ich nicht. Ich habe 5 j's eingegeben und er hat mir ein Passwort generiert.

[FAlter]

Hi,

Zitat von Luckie:

Beim ersten kam ein Exception, beim zweiten eine Fehlermeldung in einem Label und was dein Programm macht, weiß ich nicht. Ich habe 5 j's eingegeben und er hat mir ein Passwort generiert.

Ich hatte den Wert aus dem UpDown genommen, der mit dem Edit verknüpft ist. Ich denke, der bliebt beim letzten gültigen Wert.

*Wuppdi* Jetzt kann man keine Buchstaben mehr eingeben. Anhänge oben sind aktualisiert.

Mfg
FAlter

[rollstuhlfahrer]

hi,

am anfang hab ich gedacht: "Kann es denn so schwer sein, einen Passwortgenerator zu schreiben? ". Nun möchte ich auch etwas beitragen.
Neu ist die Combobox mit den verschiedenen vorgegebenen Möglichkeitet

rollstuhlfahrer

Anhang gelöscht. Heute Abend neue Version

[lbccaleb]

Zitat von rollstuhlfahrer:

Nun möchte ich auch etwas beitragen.
Neu ist die Combobox mit den verschiedenen vorgegebenen Möglichkeitet

ich hab mir "deine" version mal angesehen, naja mir ist nen kleiner fehler aufgefallen, wenn man alles auswähl klein/grossbuchstaben und sonderzeichen, passen diese nicht mehr auf das anzeige panel...

[grenzgaenger]

Zitat von lbccaleb:

Zitat von FAlter:

Am Ende gibts hier hunderte von Varianten dieses Programmes.

wollen wir jetzt hier nen passwortgenerator contest beginnen oder wie??

gibt doch schon hunderte varianten in den foren (auch im quelltext).

[BullsEye]

Zitat von Shakyamuni:

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

Hallo und Willkommen in der DP!
Ich will dich nicht persönlich angreifen, aber so ein Programm, mit ähnlichem Code habe ich auch schon vor 2 Monaten geschrieben.. Also eig schön älter aber die aktuelle Version ist 2 Monate alt.

[FAlter]

Hi,

du hast eine Sache, um die ich mich sehr bemüht habe, wieder entfernt, nämlich das Eingeben von Zahlen außerhalb des Bereichs. Bei mir werden die dann auf dem Maximal-/Minimalwert gesetzt. Bei dir bleibt die ungültige Eingabe stehen.

Außerdem ein optischer Mangel.

Mfg
FAlter