Registriert seit: 28. Dez 2004
Ort: Salzburg
379 Beiträge
|
Re: Denkblockade (rekursive funktion)
17. Feb 2005, 19:33
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 ^^
(aka AXMD in der EE)
Die Nummer, die Sie gewählt haben, ist imaginär. Bitte drehen Sie Ihr Telefon um 90° und versuchen Sie es erneut.
|