Thema: Delphi Brute Force Algorithmus

Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#21

Re: Brute Force Algorithmus

  Alt 4. Okt 2005, 10:24
Theoretisch kannst du ja alle Brute-Force-Wörter durchnummerieren

Beispiel (ABC)
Code:
0 : ""
1 : "A"
2 : "B"
3 : "C"
4 : "AA"
5 : "AB"
6 : "AC"
7 : "BA"
8 : "BB"
...
13: "AAA"
...
40: "AAAA"
Nb ist der Index des Wortes, dass du haben möchtest.

Wenn du ab der Länge MinLen anfangen möchtest, dann musst du jeweils die Spannlängen addieren (3, 3^2, 3^3, 3^4, usw.).

Delphi-Quellcode:
function BruteForceLengthIndex(const Chars: String; Len: integer): integer;
var
  Factor: integer;
begin
  Result := 0;
  Factor := 1;
  while Len > 0 do
  begin
    dec(Len);
    Result := Result + Factor;
    Factor := Factor * Length(Chars);
  end;
end;
Geht bestimmt auch mit 'ner direkten Formel, hab' jetzt gerade nicht so die Zeit mir lange Gedanken darüber zu machen.
Volker
Besucht meine Garage
Aktuell: RtfLabel 1.3d, PrintToFile 1.4
  Mit Zitat antworten Zitat