Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Muss man auch nicht... das wird abgespeichert.
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Alles falsch, mein Programm geht auf alles ein. Ihr habt nur die Logik von dem Prog nicht verstanden. Da wird nicht ausgewertet was der User eingegeben hat. Das Prog generiert die Passwörter selber. Da ist nix mit Wörterbuch usw.
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Das stimmt, aber mein Programm gibt die Passwörter vor, nicht der User. Daher gibt's da keine Wörter, Geb.Datum und desgleichen.
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Ich habe rausgefunden, dass der Fehler hier liegt, die Frage ist nur wieso hat Lazarus damit Probleme?
Trunc(jahre)
oder
Round(jahre)
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Ich habe das selber ausgedacht.
(((Anzahl Zeichen^Passwortlänge)/Schlüssel in der Sekunde, dass ein moderner Rechner schafft)/Sekunden im Jahr)/1000
Ich teile das ganze durch 1000 um die Entwicklung der Prozessoren einzuberechnen.
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Ich verstehe was Du meinst, aber in meinem Fall kann ich das, da ich ganz genau weiß mit welchen Zeichen ich das Passwort erstelle und wie lange das Passwort ist. Meine Anwendung generiert sie. Hätte der User das Passwort selber eingegeben, dann hast Du recht, hier greift meine Methode nicht.
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Ja die Passwortlänge 0 und > 33 werde ich abfangen (ich meine Passwortlänge > 33 berechne ich nicht, weil das in jedem Fall sehr gut ist). Aber der Fehler liegt irgendwo dazwischen.
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Das ganze ist noch ein Prototyp, ich werde noch so einiges ändern und die Variablen bekommen englische Bezeichner.
Aber wie kann ich kleinere Werte nehmen? Dann stimmt doch die Berechnung nicht.
Forum: Object-Pascal / Delphi-Language
FreePascal
by AlexII,
11. Dez 2014
Hallo,
ich lasse wie folgt die Passwortstärke berechnen.
procedure TForm1.PassStrength();
var
a, b, c, d, e, f, summezeichen, potenz, jahre: Float;
begin
if UppercaseCB.Checked then a := 26 else a := 0;