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

[rollstuhlfahrer]

Zitat von 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

Den Min/Max-Wert bei der Länge hab ich jetzt behoben, beim optischen Mangel bin ich mir nicht ganz sicher, was ich da tun soll.
Einerseits will ich vorgegebene Zeichenkombinationen haben, andererseits aber auch selbst die Zeichen auswählen. Übernommen hab ich das Panel und den Unterbaum aus einem anderen Projekt, hatte aberirgendwie vergessen auf Schönheitsfehler zu achten.

rollstuhlfahrer

Nachtrag: ich hab mich bei der Länge auf deine Version entschieden.

[lbccaleb]

da jeder heir schon mal ein gemacht hat, und ich noch nicht hab ich mich (hatte bissel langeweile) auch mal rangestzt und fix eins geschrieben, so wie es aussieht läuft es ganz gut!!

bei dem erstellen hab ich mich an die version von rollstuhlfahrer gehalten, und nur alles in nonvcl umgeändert!!
ich hoff mal du nimmst mir das nicht böse aber bei den ganzen ~300kb dingern hier, musste ja auch mal was kleines zwischen^^

naja nur einen komischen runtimeerror hab ich ab und an noch am start, und kann nicht direkt den fehler finder (komisch)

naja vllt findet ihn ja einer, der kann den code getrost ändern

[FAlter]

Hi,

beiu mir kommt der Runtime Error 210 immer.

Verdammt, mein Bookmark zu den "System Error Codes" ist nicht mehr aktuell

Mfg
FAlter

[lbccaleb]

ja das ist komisch woran liegt das nur?? bei mir kommt er ab und zu mal, keine ahnung wieso...

[FAlter]

Hi,

pack eventuell mal die SysUtils rein, dann kommt vielleicht eine verständlichere Meldung. Später natürlich wieder rausnehmen.

Früher konnte man hier nachgucken,w as 210 usw. bedeuten:
http://msdn.microsoft.com/library/de...rror_codes.asp

Leider jetzt nicht mehr

Mfg
FAlter

[toms]

Der Fehler tritt an dieser Stelle auf

SendMessage(hWndCBex, WM_SETFONT, hFont1, 0); Fehler: ERangeCheckError

[lbccaleb]

hab jetzt mit der suche was gefunden:

error list

aber das ergibt doch keinen sinn

Zitat:

error 201


illegal symbol %s; null macro formal parameter

edit:
huch hatte mich im error vertan

[lbccaleb]

Zitat von toms:

Der Fehler tritt an dieser Stelle auf

SendMessage(hWndCBex, WM_SETFONT, hFont1, 0); Fehler: ERangeCheckError

ok, aber wieso??

[FAlter]

Hi,

check mal deine Datentypen. Eventuell ist hFont1 Cardinal (THandle?) und in der Windows.pas steht Integer für den Parameter von SendMessage drin? Dann wäre wohl ein Typecast angebracht.

Mfg
FAlter

[edit] Nach einfügen des Typecasts gehts.

Nur noch zwei Warnungen:

Zitat:

[Warning] PWGenerator.dpr(240): Constant expression violates subrange bounds

[/edit]

[toms]

function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; ----------->

Delphi-Quellcode:

type
  WPARAM = Longint;

----------->

Longint   –2147483648..2147483647
hFont1 war 3607762947 als der Fehler kam.