Denkblockade (rekursive funktion)

[Dust Signs]

Wie wärs mit sowas (ungetestet)?

Delphi-Quellcode:

function CheckPassword(APassword: String; Depth: Integer): Boolean;
var
  i, j: Byte;
begin
  if Depth <= 0 then
    exit;
  for i := #97 to #122 do begin
    for j := #97 to #122 do begin
      CheckPassword(APassword + Chr(i) + Chr(j));
      //evtl. Result von CheckPassword bearbeiten...
      end;
    end;

  //Hier der Check...

  Dec(Depth, 2);
end;

Aufruf:

ABoolean := CheckPassword('', 6); Nur so eine Idee...

Dust Signs

//EDIT: Mist, zu langsam ^^