Ist jetzt nur so ausm Kopf, aber trotzdem:
Wir machen eine rekursive Prozedur, Parameter:
![Arrow](images/smilies/icon_arrow.gif)
bisheriges Passwort
![Arrow](images/smilies/icon_arrow.gif)
Zeichen für das Pwd
![Arrow](images/smilies/icon_arrow.gif)
Wieviele Zeichen sollen noch angehängt werden ?
![Arrow](images/smilies/icon_arrow.gif)
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;