1:
2:
3:
4:
5:
6:
7:

{ Create md5 string out of a string
  Transmit only variables of the type string to make shure that you get also compareable
  bit strings, because 123 as integer produces an other md5 hash than the string "123" }
function md5 (pattern : string): string;
begin
        result := MD5Print(MD5String(pattern));
end; //noitcnuf					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

program md5mod;

{$ifdef win32}
{$apptype console}
{$endif}

{md5('abc')=900150983CD24FB0D6963F7D28E17F72}
{Beispiel: md5('abc') mod 12345 = 7225.}

const
  md5: array[0..15] of byte = ($90,$01,$50,$98,$3c,$d2,$4f,$b0,$d6,$96,$3f,$7d,$28,$e1,$7f,$72);
var
  i: integer;
  w: longint;
  b: word;
begin
  b := 12345;
  w := 0;
  {Interpretation md5 als Big-Endian, sonst i:=15 downto 0}
  for i:=0 to 15 do begin
    w := (w shl 8) or md5[i];
    w := w mod b;
  end;
  writeln('md5 mod b = ', w);
end.