funktionierende Unit die Hardware-IDs berechnet

[Hedge]

Die Funktion MD5Print scheint der Bösewicht zu sein:

Delphi-Quellcode:

function MD5Print(D: MD5Digest): string;
var
   I: byte;
const
   Digits: array[0..15] of char =
      ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f');
begin
   Result := '';
   for I := 0 to 15 do Result := Result + Digits[(D[I] shr 4) and $0f] + Digits[D[I] and $0f];
end;

Nach der result-Zeile geht es in die Binsen.