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
 
#16

Re: Brute Force Algorithmus

  Alt 1. Aug 2005, 14:15
Hmmm ... das war nicht trivial 8)
Delphi-Quellcode:
function BruteForce(Nb: Cardinal): string;
const
  ch = 'abcdefghijklmnopqrstuvwxyz';
begin
  Result := '';
  while Nb > Length(ch) do
  begin
    dec(Nb);
    Result := ch[Nb mod Length(ch) + 1] + Result;
    Nb := Nb div Length(ch);
  end;

  if Nb > 0 then
    Result := ch[Nb] + Result;
end;
In diesem Beispiel kommt für 28 'ab' heraus und für 53 'ba'.
Volker
  Mit Zitat antworten Zitat