MD5 Länge einfügen als 64 Bit?

[omata]

Was spricht gegen eine fertige Unit?

Edit: Vielleicht hilft dir ja folgendes weiter...

Delphi-Quellcode:

function ZustandZuBits(Anzahl:integer):integer;
var bits:real;
begin
  bits:=ln(Anzahl) / ln(2);
  Result:=trunc(bits);
  if Result < bits then
    inc(Result);
end;