Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Brute Force Algorithmus
1. Aug 2005, 15: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
|