Denkblockade (rekursive funktion)

[jfheins]

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;