Bruteforce Algorithmus

[himitsu]

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.