Ist jetzt nur so ausm Kopf, aber trotzdem:
Wir machen eine rekursive Prozedur, Parameter:
bisheriges Passwort
Zeichen für das Pwd
Wieviele Zeichen sollen noch angehängt werden ?
TStrigList für die Ergebnisse
Delphi-Quellcode:
procedure BruteForce (const Pass, Zeichen: String; Length: Byte; Ergebnisse: TStringList);
If Length = 0 then Exit;
If Length = 1 then
for i := 1 to length (Zeichen) do
Ergebnisse.Add (Pass + Zeichen[i]);
else
for i := 1 to length (Zeichen) do
BruteForce (Pass + Zeichen[i], Zeichen, Length - 1, Ergebnisse);
end;