Mit BruteForceLengthIndex kann man ausrechnen, welchen Berechnungsindex die erste Kombination mit n Stellen besitzt.
Wie schon gesagt, hätte man das auch mathematisch und ohne Schleife "errechnen" können.
Bei dir wurde damit also der Index berechnent, über welchen dann bei BruteForce 'aaa' rauskommt.
Und nein, es werden nicht alle Werte für 3 und 4 Stellen berechnet, sondern nur noch der erste 4-Stellige.
Für 3 Stellen hätte also
if s = 'aaaa' then exit;
grad noch so geklappt.
Vielleicht sieht es so besser/übersichtlicher aus?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
CHARS = 'abcdefghijklmnopqrstuvwxyz';
TEST = 'zzz';
var
Index, Stop: Int64;
s: string;
begin
Index := BruteForceLengthIndex(Length(TEST), CHARS);
Stop := BruteForceLengthIndex(Length(TEST) + 1, CHARS) - 1;
while Index <= Stop do
begin
s := BruteForce(Index, CHARS);
Caption := s;
if s = TEST then
break;
Inc(Index);
end;
end;
oder
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
CHARS = 'abcdefghijklmnopqrstuvwxyz';
TEST = 'zzz';
var
Start, Stop, Index: Int64;
s: string;
begin
Start := BruteForceLengthIndex(Length(TEST), CHARS);
Stop := BruteForceLengthIndex(Length(TEST) + 1, CHARS) - 1;
Index := Start;
while Index <= Stop do
begin
s := BruteForce(Index, CHARS);
Caption := Format('%s (%.1n%%)', [s, (Index - Start) / (Stop - Start) * 100]);
if s = TEST then
break;
Inc(Index);
end;
end;
Und um bei Olli mitzumachen:
Och, auch mit
Ansi könnte es schön schnell sein,
vorallem wenn man nicht ständig den ganzen String komplett neu zusammenstellt, sondern nur die relevanten Teile ändert.
PS: Über den AnsiString als Result muß nur ein Zeiger kopiert und die Referenzzählung angepaßt werden, wärend beim ShortString der komplette Record/String kopiert werden muß.
Als Var-Parameter, anstatt als Result, wär's bestimmt schneller, wärend die zuvielen
Result := Chars[...] + Result;
als
SetLength(Result, Len);
und
Result[i] := Chars[...];
sowieso viel ersparen würde.
