Drop Kylix support

A piece of history, will be remembered.

1 files changed, 0 insertions, 711 deletions

diff --git a/compat/md5.pas b/compat/md5.pas
deleted file mode 100644
index dfcaae5..0000000
--- a/compat/md5.pas
+++ /dev/null
@@ -1,711 +0,0 @@
-{
-    This file is part of the Free Pascal packages.
-    Copyright (c) 1999-2006 by the Free Pascal development team
-    
-    Kylix port by Tomas Bzatek
-
-    Implements a MD2 digest algorithm (RFC 1319)
-    Implements a MD4 digest algorithm (RFC 1320)
-    Implements a MD5 digest algorithm (RFC 1321)
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-unit md5;
-
-{$h+}
-{$R-}
-{$Q-}
-
-interface
-
-
-(******************************************************************************
- * types and constants
- ******************************************************************************)
-
-const
-  MDDefBufSize = 1024;
-
-type
-  TMDVersion = (
-    MD_VERSION_2,
-    MD_VERSION_4,
-    MD_VERSION_5
-  );
-
-  PMDDigest = ^TMDDigest;
-  TMDDigest = array[0..15] of Byte;
-
-  PMD2Digset = PMDDigest;
-  TMD2Digest = TMDDigest;
-
-  PMD4Digset = PMDDigest;
-  TMD4Digest = TMDDigest;
-
-  PMD5Digset = PMDDigest;
-  TMD5Digest = TMDDigest;
-
-  PMDContext = ^TMDContext;
-  TMDContext = record
-    Version : TMDVersion;
-    Align   : Cardinal;
-    State   : array[0..3] of Cardinal;
-    BufCnt  : Int64;
-    Buffer  : array[0..63] of Byte;
-    case Integer of
-      0: (Length   : Cardinal);
-      1: (Checksum : array[0..15] of Byte);
-  end;
-
-  PMD2Context = PMDContext;
-  TMD2Context = TMDContext;
-
-  PMD4Context = PMDContext;
-  TMD4Context = TMDContext;
-
-  PMD5Context = PMDContext;
-  TMD5Context = TMDContext;
-
-
-(******************************************************************************
- * Core raw functions
- ******************************************************************************)
-
-procedure MDInit(var Context: TMDContext; const Version: TMDVersion);
-procedure MDUpdate(var Context: TMDContext; var Buf; const BufLen: Cardinal);
-procedure MDFinal(var Context: TMDContext; var Digest: TMDDigest);
-
-
-(******************************************************************************
- * Auxilary functions
- ******************************************************************************)
-
-function MDString(const S: String; const Version: TMDVersion): TMDDigest;
-function MDBuffer(var Buf; const BufLen: Cardinal; const Version: TMDVersion): TMDDigest;
-function MDFile(const Filename: String; const Version: TMDVersion; const Bufsize: Cardinal = MDDefBufSize): TMDDigest;
-
-
-(******************************************************************************
- * Helper functions
- ******************************************************************************)
-
-function MDPrint(const Digest: TMDDigest): String;
-function MDMatch(const Digest1, Digest2: TMDDigest): Boolean;
-
-
-(******************************************************************************
- * Dedicated raw functions
- ******************************************************************************)
-
-procedure MD2Init(var Context: TMD2Context); 
-procedure MD2Update(var Context: TMD2Context; var Buf; const BufLen: Cardinal); 
-procedure MD2Final(var Context: TMD2Context; var Digest: TMD2Digest); 
-
-procedure MD4Init(var Context: TMD4Context); 
-procedure MD4Update(var Context: TMD4Context; var Buf; const BufLen: Cardinal); 
-procedure MD4Final(var Context: TMD4Context; var Digest: TMD4Digest); 
-
-procedure MD5Init(var Context: TMD5Context); 
-procedure MD5Update(var Context: TMD5Context; var Buf; const BufLen: Cardinal); 
-procedure MD5Final(var Context: TMD5Context; var Digest: TMD5Digest); 
-
-
-(******************************************************************************
- * Dedicated auxilary functions
- ******************************************************************************)
-
-function MD2String(const S: String): TMD2Digest; 
-function MD2Buffer(var Buf; const BufLen: Cardinal): TMD2Digest; 
-function MD2File(const Filename: String; const Bufsize: Cardinal = MDDefBufSize): TMD2Digest; 
-
-function MD4String(const S: String): TMD4Digest; 
-function MD4Buffer(var Buf; const BufLen: Cardinal): TMD4Digest; 
-function MD4File(const Filename: String; const Bufsize: Cardinal = MDDefBufSize): TMD4Digest; 
-
-function MD5String(const S: String): TMD5Digest; 
-function MD5Buffer(var Buf; const BufLen: Cardinal): TMD5Digest; 
-function MD5File(const Filename: String; const Bufsize: Cardinal = MDDefBufSize): TMD5Digest; 
-
-
-
-(******************************************************************************
- * Dedicated helper functions
- ******************************************************************************)
-
-function MD2Print(const Digest: TMD2Digest): String; 
-function MD2Match(const Digest1, Digest2: TMD2Digest): Boolean; 
-
-function MD4Print(const Digest: TMD4Digest): String; 
-function MD4Match(const Digest1, Digest2: TMD4Digest): Boolean; 
-
-function MD5Print(const Digest: TMD5Digest): String; 
-function MD5Match(const Digest1, Digest2: TMD5Digest): Boolean; 
-
-implementation
-
-
-uses SysUtils;
-
-function rol(x: Cardinal; n: Byte): Cardinal;
-begin
-  Result := (x shl n) or (x shr (32 - n));
-end;
-
-const 
-  HexTbl : array[0..15] of char='0123456789ABCDEF'; 
- 
-function hexstr(val : longint;cnt : byte) : shortstring; 
-var 
-  i : longint; 
-begin 
-  hexstr[0]:=char(cnt); 
-  for i:=cnt downto 1 do 
-   begin 
-     hexstr[i]:=hextbl[val and $f]; 
-     val:=val shr 4; 
-   end; 
-end; 
-
-
-// inverts the bytes of (Count div 4) cardinals from source to target.
-procedure Invert(Source, Dest: Pointer; Count: Cardinal);
-var
-  S: Cardinal;
-  T: PCardinal;
-  I: Cardinal;
-begin
-  S := Cardinal(Source);
-  T := Dest;
-  for I := 1 to (Count div 4) do
-  begin
-    T^ := PByte(S)^ or (PByte(S + 1)^ shl 8) or (PByte(S + 2)^ shl 16) or (PByte(S + 3)^ shl 24);
-    inc(S,4);
-    inc(T);
-  end;
-end;
-
-
-procedure MD2Transform(var Context: TMDContext; Buffer: Pointer);
-const
-  PI_SUBST: array[0..255] of Byte = (
-  41, 46, 67, 201, 162, 216, 124, 1, 61, 54, 84, 161, 236, 240, 6,
-  19, 98, 167, 5, 243, 192, 199, 115, 140, 152, 147, 43, 217, 188,
-  76, 130, 202, 30, 155, 87, 60, 253, 212, 224, 22, 103, 66, 111, 24,
-  138, 23, 229, 18, 190, 78, 196, 214, 218, 158, 222, 73, 160, 251,
-  245, 142, 187, 47, 238, 122, 169, 104, 121, 145, 21, 178, 7, 63,
-  148, 194, 16, 137, 11, 34, 95, 33, 128, 127, 93, 154, 90, 144, 50,
-  39, 53, 62, 204, 231, 191, 247, 151, 3, 255, 25, 48, 179, 72, 165,
-  181, 209, 215, 94, 146, 42, 172, 86, 170, 198, 79, 184, 56, 210,
-  150, 164, 125, 182, 118, 252, 107, 226, 156, 116, 4, 241, 69, 157,
-  112, 89, 100, 113, 135, 32, 134, 91, 207, 101, 230, 45, 168, 2, 27,
-  96, 37, 173, 174, 176, 185, 246, 28, 70, 97, 105, 52, 64, 126, 15,
-  85, 71, 163, 35, 221, 81, 175, 58, 195, 92, 249, 206, 186, 197,
-  234, 38, 44, 83, 13, 110, 133, 40, 132, 9, 211, 223, 205, 244, 65,
-  129, 77, 82, 106, 220, 55, 200, 108, 193, 171, 250, 36, 225, 123,
-  8, 12, 189, 177, 74, 120, 136, 149, 139, 227, 99, 232, 109, 233,
-  203, 213, 254, 59, 0, 29, 57, 242, 239, 183, 14, 102, 88, 208, 228,
-  166, 119, 114, 248, 235, 117, 75, 10, 49, 68, 80, 180, 143, 237,
-  31, 26, 219, 153, 141, 51, 159, 17, 131, 20
-);
-var
-  i: Cardinal;
-  j: Cardinal;
-  t: Cardinal;
-  x: array[0..47] of Byte;
-begin
-  { Form encryption block from state, block, state ^ block }
-  Move(Context.State, x[0], 16);
-  Move(Buffer^, x[16], 16);
-  for i := 0 to 15 do
-    x[i+32] := PByte(Cardinal(@Context.State) + i)^ xor PByte(Cardinal(Buffer) + i)^;
-
-  { Encrypt block (18 rounds) }
-  t := 0;
-  for i := 0 to 17 do
-  begin
-    for j := 0 to 47 do
-    begin
-      x[j] := x[j] xor PI_SUBST[t];
-      t := x[j];
-    end;
-    t := (t + i) and $FF;
-  end;
-
-  { Save new state }
-  Move(x[0], Context.State, 16);
-
-  { Update checksum }
-  t := Context.Checksum[15];
-  for i := 0 to 15 do
-  begin
-    Context.Checksum[i] := Context.Checksum[i] xor PI_SUBST[PByte(Cardinal(Buffer) + i)^ xor t];
-    t := Context.Checksum[i];
-  end;
-
-  { Zeroize sensitive information. }
-  FillChar(x, Sizeof(x), 0);
-end;
-
-
-procedure MD4Transform(var Context: TMDContext; Buffer: Pointer);
-
-  procedure R1(var a: Cardinal; b,c,d,x: Cardinal; s: Byte);
-  // F(x,y,z) = (x and y) or ((not x) and z)
-  begin
-    a := rol(a + {F(b,c,d)}((b and c) or ((not b) and d)) + x, s);
-  end;
-
-  procedure R2(var a: Cardinal; b,c,d,x: Cardinal; s: Byte);
-  // G(x,y,z) = (x and y) or (x and z) or (y and z);
-  begin
-    a := rol(a + {G(b,c,d)}((b and c) or (b and d) or (c and d)) + x + $5A827999, s);
-  end;
-
-  procedure R3(var a: Cardinal; b,c,d,x: Cardinal; s: Byte);
-  // H(x,y,z) = x xor y xor z
-  begin
-    a := rol(a + {H(b,c,d)}(b xor c xor d) + x + $6ED9EBA1, s);
-  end;
-
-var
-  a, b, c, d: Cardinal;
-  Block: array[0..15] of Cardinal;
-begin
-  Invert(Buffer, @Block, 64);
-  a := Context.State[0];
-  b := Context.State[1];
-  c := Context.State[2];
-  d := Context.State[3];
-
-  // Round 1
-  R1(a,b,c,d,Block[0],  3); R1(d,a,b,c,Block[1],  7); R1(c,d,a,b,Block[2], 11); R1(b,c,d,a,Block[3], 19);
-  R1(a,b,c,d,Block[4],  3); R1(d,a,b,c,Block[5],  7); R1(c,d,a,b,Block[6], 11); R1(b,c,d,a,Block[7], 19);
-  R1(a,b,c,d,Block[8],  3); R1(d,a,b,c,Block[9],  7); R1(c,d,a,b,Block[10],11); R1(b,c,d,a,Block[11],19);
-  R1(a,b,c,d,Block[12], 3); R1(d,a,b,c,Block[13], 7); R1(c,d,a,b,Block[14],11); R1(b,c,d,a,Block[15],19);
-
-  // Round 2
-  R2(a,b,c,d,Block[0],  3); R2(d,a,b,c,Block[4],  5); R2(c,d,a,b,Block[8],  9); R2(b,c,d,a,Block[12],13);
-  R2(a,b,c,d,Block[1],  3); R2(d,a,b,c,Block[5],  5); R2(c,d,a,b,Block[9],  9); R2(b,c,d,a,Block[13],13);
-  R2(a,b,c,d,Block[2],  3); R2(d,a,b,c,Block[6],  5); R2(c,d,a,b,Block[10], 9); R2(b,c,d,a,Block[14],13);
-  R2(a,b,c,d,Block[3],  3); R2(d,a,b,c,Block[7],  5); R2(c,d,a,b,Block[11], 9); R2(b,c,d,a,Block[15],13);
-
-  // Round 3
-  R3(a,b,c,d,Block[0],  3); R3(d,a,b,c,Block[8],  9); R3(c,d,a,b,Block[4], 11); R3(b,c,d,a,Block[12],15);
-  R3(a,b,c,d,Block[2],  3); R3(d,a,b,c,Block[10], 9); R3(c,d,a,b,Block[6], 11); R3(b,c,d,a,Block[14],15);
-  R3(a,b,c,d,Block[1],  3); R3(d,a,b,c,Block[9],  9); R3(c,d,a,b,Block[5], 11); R3(b,c,d,a,Block[13],15);
-  R3(a,b,c,d,Block[3],  3); R3(d,a,b,c,Block[11], 9); R3(c,d,a,b,Block[7], 11); R3(b,c,d,a,Block[15],15);
-
-  inc(Context.State[0], a);
-  inc(Context.State[1], b);
-  inc(Context.State[2], c);
-  inc(Context.State[3], d);
-  inc(Context.Length,64);
-end;
-
-
-procedure MD5Transform(var Context: TMDContext; Buffer: Pointer);
-
-  procedure R1(var a: Cardinal; b,c,d,x: Cardinal; s: Byte; ac: Cardinal);
-  // F(x,y,z) = (x and y) or ((not x) and z)
-  begin
-    a := b + rol(a + {F(b,c,d)}((b and c) or ((not b) and d)) + x + ac, s);
-  end;
-
-  procedure R2(var a: Cardinal; b,c,d,x: Cardinal; s: Byte; ac: Cardinal);
-  // G(x,y,z) = (x and z) or (y and (not z))
-  begin
-    a := b + rol(a + {G(b,c,d)}((b and d) or (c and (not d))) + x + ac, s);
-  end;
-
-  procedure R3(var a: Cardinal; b,c,d,x: Cardinal; s: Byte; ac: Cardinal);
-  // H(x,y,z) = x xor y xor z;
-  begin
-    a := b + rol(a + {H(b,c,d)}(b xor c xor d) + x + ac, s);
-  end;
-
-  procedure R4(var a: Cardinal; b,c,d,x: Cardinal; s: Byte; ac: Cardinal);
-  // I(x,y,z) = y xor (x or (not z));
-  begin
-    a := b + rol(a + {I(b,c,d)}(c xor (b or (not d))) + x + ac, s);
-  end;
-
-var
-  a, b, c, d: Cardinal;
-  Block: array[0..15] of Cardinal;
-begin
-  Invert(Buffer, @Block, 64);
-  a := Context.State[0];
-  b := Context.State[1];
-  c := Context.State[2];
-  d := Context.State[3];
-
-  // Round 1
-  R1(a,b,c,d,Block[0] , 7,$d76aa478); R1(d,a,b,c,Block[1] ,12,$e8c7b756); R1(c,d,a,b,Block[2] ,17,$242070db); R1(b,c,d,a,Block[3] ,22,$c1bdceee);
-  R1(a,b,c,d,Block[4] , 7,$f57c0faf); R1(d,a,b,c,Block[5] ,12,$4787c62a); R1(c,d,a,b,Block[6] ,17,$a8304613); R1(b,c,d,a,Block[7] ,22,$fd469501);
-  R1(a,b,c,d,Block[8] , 7,$698098d8); R1(d,a,b,c,Block[9] ,12,$8b44f7af); R1(c,d,a,b,Block[10],17,$ffff5bb1); R1(b,c,d,a,Block[11],22,$895cd7be);
-  R1(a,b,c,d,Block[12], 7,$6b901122); R1(d,a,b,c,Block[13],12,$fd987193); R1(c,d,a,b,Block[14],17,$a679438e); R1(b,c,d,a,Block[15],22,$49b40821);
-
-  // Round 2
-  R2(a,b,c,d,Block[1] , 5,$f61e2562); R2(d,a,b,c,Block[6] , 9,$c040b340); R2(c,d,a,b,Block[11],14,$265e5a51); R2(b,c,d,a,Block[0] ,20,$e9b6c7aa);
-  R2(a,b,c,d,Block[5] , 5,$d62f105d); R2(d,a,b,c,Block[10], 9,$02441453); R2(c,d,a,b,Block[15],14,$d8a1e681); R2(b,c,d,a,Block[4] ,20,$e7d3fbc8);
-  R2(a,b,c,d,Block[9] , 5,$21e1cde6); R2(d,a,b,c,Block[14], 9,$c33707d6); R2(c,d,a,b,Block[3] ,14,$f4d50d87); R2(b,c,d,a,Block[8] ,20,$455a14ed);
-  R2(a,b,c,d,Block[13], 5,$a9e3e905); R2(d,a,b,c,Block[2] , 9,$fcefa3f8); R2(c,d,a,b,Block[7] ,14,$676f02d9); R2(b,c,d,a,Block[12],20,$8d2a4c8a);
-
-  // Round 3
-  R3(a,b,c,d,Block[5] , 4,$fffa3942); R3(d,a,b,c,Block[8] ,11,$8771f681); R3(c,d,a,b,Block[11],16,$6d9d6122); R3(b,c,d,a,Block[14],23,$fde5380c);
-  R3(a,b,c,d,Block[1] , 4,$a4beea44); R3(d,a,b,c,Block[4] ,11,$4bdecfa9); R3(c,d,a,b,Block[7] ,16,$f6bb4b60); R3(b,c,d,a,Block[10],23,$bebfbc70);
-  R3(a,b,c,d,Block[13], 4,$289b7ec6); R3(d,a,b,c,Block[0] ,11,$eaa127fa); R3(c,d,a,b,Block[3] ,16,$d4ef3085); R3(b,c,d,a,Block[6] ,23,$04881d05);
-  R3(a,b,c,d,Block[9] , 4,$d9d4d039); R3(d,a,b,c,Block[12],11,$e6db99e5); R3(c,d,a,b,Block[15],16,$1fa27cf8); R3(b,c,d,a,Block[2] ,23,$c4ac5665);
-
-  // Round 4
-  R4(a,b,c,d,Block[0] , 6,$f4292244); R4(d,a,b,c,Block[7] ,10,$432aff97); R4(c,d,a,b,Block[14],15,$ab9423a7); R4(b,c,d,a,Block[5] ,21,$fc93a039);
-  R4(a,b,c,d,Block[12], 6,$655b59c3); R4(d,a,b,c,Block[3] ,10,$8f0ccc92); R4(c,d,a,b,Block[10],15,$ffeff47d); R4(b,c,d,a,Block[1] ,21,$85845dd1);
-  R4(a,b,c,d,Block[8] , 6,$6fa87e4f); R4(d,a,b,c,Block[15],10,$fe2ce6e0); R4(c,d,a,b,Block[6] ,15,$a3014314); R4(b,c,d,a,Block[13],21,$4e0811a1);
-  R4(a,b,c,d,Block[4] , 6,$f7537e82); R4(d,a,b,c,Block[11],10,$bd3af235); R4(c,d,a,b,Block[2] ,15,$2ad7d2bb); R4(b,c,d,a,Block[9] ,21,$eb86d391);
-
-  inc(Context.State[0],a);
-  inc(Context.State[1],b);
-  inc(Context.State[2],c);
-  inc(Context.State[3],d);
-  inc(Context.Length,64);
-end;
-
-
-procedure MDInit(var Context: TMDContext; const Version: TMDVersion);
-begin
-  FillChar(Context, Sizeof(TMDContext), 0);
-  Context.Version := Version;
-
-  case Version of
-
-    MD_VERSION_4, MD_VERSION_5:
-      begin
-        Context.Align := 64;
-        Context.State[0] := $67452301;
-        Context.State[1] := $efcdab89;
-        Context.State[2] := $98badcfe;
-        Context.State[3] := $10325476;
-        Context.Length := 0;
-        Context.BufCnt := 0;
-      end;
-
-    MD_VERSION_2:
-      begin
-        Context.Align := 16;
-      end;
-
-  end;
-end;
-
-
-procedure MDUpdate(var Context: TMDContext; var Buf; const BufLen: Cardinal);
-var
-  Align: Cardinal;
-  Src: Pointer;
-  Num: Cardinal;
-begin
-  if BufLen = 0 then
-    Exit;
-
-  Align := Context.Align;
-  Src := @Buf;
-  Num := 0;
-
-  // 1. Transform existing data in buffer
-  if Context.BufCnt > 0 then
-  begin
-    // 1.1 Try to fill buffer to "Align" bytes
-    Num := Align - Context.BufCnt;
-    if Num > BufLen then
-      Num := BufLen;
-
-    Move(Src^, Context.Buffer[Context.BufCnt], Num);
-    Context.BufCnt := Context.BufCnt + Num;
-    Src := Pointer(Cardinal(Src) + Num);
-
-    // 1.2 If buffer contains "Align" bytes, transform it
-    if Context.BufCnt = Align then
-    begin
-      case Context.Version of
-        MD_VERSION_2: MD2Transform(Context, @Context.Buffer);
-        MD_VERSION_4: MD4Transform(Context, @Context.Buffer);
-        MD_VERSION_5: MD5Transform(Context, @Context.Buffer);
-      end;
-      Context.BufCnt := 0;
-    end;
-  end;
-
-  // 2. Transform "Align"-Byte blocks of Buf
-  Num := BufLen - Num;
-  while Num >= Align do
-  begin
-    case Context.Version of
-      MD_VERSION_2: MD2Transform(Context, Src);
-      MD_VERSION_4: MD4Transform(Context, Src);
-      MD_VERSION_5: MD5Transform(Context, Src);
-    end;
-    Src := Pointer(Cardinal(Src) + Align);
-    Num := Num - Align;
-  end;
-
-  // 3. If there's a block smaller than "Align" Bytes left, add it to buffer
-  if Num > 0 then
-  begin
-    Context.BufCnt := Num;
-    Move(Src^, Context.Buffer, Num);
-  end;
-end;
-
-
-procedure MDFinal(var Context: TMDContext; var Digest: TMDDigest);
-const
-{$ifdef FPC_BIG_ENDIAN}
-  PADDING_MD45: array[0..15] of Cardinal = ($80000000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
-{$else FPC_BIG_ENDIAN}
-  PADDING_MD45: array[0..15] of Cardinal = ($80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
-{$endif FPC_BIG_ENDIAN}
-var
-  Length: Int64;
-  Pads: Cardinal;
-  padding: array[0..15] of Cardinal;
-  i: integer;
-begin
-  for i := 0 to 15 do
-    padding[i] := PADDING_MD45[i];
-  case Context.Version of
-
-    MD_VERSION_4, MD_VERSION_5:
-      begin
-        // 1. Compute length of the whole stream in bits
-        Length := 8 * (Context.Length + Context.BufCnt);
-
-        // 2. Append padding bits
-        if Context.BufCnt >= 56 then
-          Pads := 120 - Context.BufCnt
-        else
-          Pads := 56 - Context.BufCnt;
-        MDUpdate(Context, padding, Pads);
-
-        // 3. Append length of the stream
-//        Length := NtoLE(Length);
-        MDUpdate(Context, Length, 8);
-
-        // 4. Invert state to digest
-        Invert(@Context.State, @Digest, 16);
-      end;
-
-    MD_VERSION_2:
-      begin
-        Pads := 16 - Context.BufCnt;
-        Length := {NtoLE(}Int64(Pads){)};
-        while Pads > 0 do
-        begin
-          MDUpdate(Context, Length, 1);
-          Dec(Pads);
-        end;
-        MDUpdate(Context, Context.Checksum, 16);
-        Move(Context.State, Digest, 16);
-      end;
-
-  end;
-
-  FillChar(Context, SizeOf(TMDContext), 0);
-end;
-
-function MDString(const S: String; const Version: TMDVersion): TMDDigest;
-var
-  Context: TMDContext;
-begin
-  MDInit(Context, Version);
-  MDUpdate(Context, PChar(S)^, length(S));
-  MDFinal(Context, Result);
-end;
-
-function MDBuffer(var Buf; const BufLen: Cardinal; const Version: TMDVersion): TMDDigest;
-var
-  Context: TMDContext;
-begin
-  MDInit(Context, Version);
-  MDUpdate(Context, buf, buflen);
-  MDFinal(Context, Result);
-end;
-
-function MDFile(const Filename: String; const Version: TMDVersion; const BufSize: Cardinal): TMDDigest;
-var
-  F: File;
-  Buf: Pchar;
-  Context: TMDContext;
-  Count: Cardinal;
-  ofm: Longint;
-begin
-  MDInit(Context, Version);
-
-  Assign(F, Filename);
-  {$i-}
-  ofm := FileMode;
-  FileMode := 0;
-  Reset(F, 1);
-  {$i+}
-
-  if IOResult = 0 then
-  begin
-    GetMem(Buf, BufSize);
-    repeat
-      BlockRead(F, Buf^, Bufsize, Count);
-      if Count > 0 then
-        MDUpdate(Context, Buf^, Count);
-    until Count < BufSize;
-    FreeMem(Buf, BufSize);
-    Close(F);
-  end;
-
-  MDFinal(Context, Result);
-  FileMode := ofm;
-end;
-
-function MDPrint(const Digest: TMDDigest): String;
-var
-  I: Byte;
-begin
-  Result := '';
-  for I := 0 to 15 do
-    Result := Result + HexStr(Digest[i],2);
-  Result := LowerCase(Result);
-end;
-
-function MDMatch(const Digest1, Digest2: TMDDigest): Boolean;
-var
-  A: array[0..3] of Cardinal absolute Digest1;
-  B: array[0..3] of Cardinal absolute Digest2;
-begin
-  Result := (A[0] = B[0]) and (A[1] = B[1]) and (A[2] = B[2]) and (A[3] = B[3]);
-end;
-
-procedure MD2Init(var Context: TMD2Context);
-begin
-  MDInit(Context, MD_VERSION_2);
-end;
-
-procedure MD2Update(var Context: TMD2Context; var Buf; const BufLen: Cardinal);
-begin
-  MDUpdate(Context, Buf, BufLen);
-end;
-
-procedure MD2Final(var Context: TMD2Context; var Digest: TMD2Digest);
-begin
-  MDFinal(Context, Digest);
-end;
-
-procedure MD4Init(var Context: TMD4Context);
-begin
-  MDInit(Context, MD_VERSION_4);
-end;
-
-procedure MD4Update(var Context: TMD4Context; var Buf; const BufLen: Cardinal);
-begin
-  MDUpdate(Context, Buf, BufLen);
-end;
-
-procedure MD4Final(var Context: TMD4Context; var Digest: TMD4Digest);
-begin
-  MDFinal(Context, Digest);
-end;
-
-procedure MD5Init(var Context: TMD5Context);
-begin
-  MDInit(Context, MD_VERSION_5);
-end;
-
-procedure MD5Update(var Context: TMD5Context; var Buf; const BufLen: Cardinal);
-begin
-  MDUpdate(Context, Buf, BufLen);
-end;
-
-procedure MD5Final(var Context: TMD5Context; var Digest: TMD5Digest);
-begin
-  MDFinal(Context, Digest);
-end;
-
-function MD2String(const S: String): TMD2Digest;
-begin
-  Result := MDString(S, MD_VERSION_2);
-end;
-
-function MD2Buffer(var Buf; const BufLen: Cardinal): TMD2Digest;
-begin
-  Result := MDBuffer(Buf, BufLen, MD_VERSION_2);
-end;
-
-function MD2File(const Filename: String; const Bufsize: Cardinal): TMD2Digest;
-begin
-  Result := MDFile(Filename, MD_VERSION_2, Bufsize);
-end;
-
-function MD4String(const S: String): TMD4Digest;
-begin
-  Result := MDString(S, MD_VERSION_4);
-end;
-
-function MD4Buffer(var Buf; const BufLen: Cardinal): TMD4Digest;
-begin
-  Result := MDBuffer(Buf, BufLen, MD_VERSION_4);
-end;
-
-function MD4File(const Filename: String; const Bufsize: Cardinal): TMD4Digest;
-begin
-  Result := MDFile(Filename, MD_VERSION_4, Bufsize);
-end;
-
-function MD5String(const S: String): TMD5Digest;
-begin
-  Result := MDString(S, MD_VERSION_5);
-end;
-
-function MD5Buffer(var Buf; const BufLen: Cardinal): TMD5Digest;
-begin
-  Result := MDBuffer(Buf, BufLen, MD_VERSION_5);
-end;
-
-function MD5File(const Filename: String; const Bufsize: Cardinal): TMD5Digest;
-begin
-  Result := MDFile(Filename, MD_VERSION_5, Bufsize);
-end;
-
-function MD2Print(const Digest: TMD2Digest): String;
-begin
-  Result := MDPrint(Digest);
-end;
-
-function MD2Match(const Digest1, Digest2: TMD2Digest): Boolean;
-begin
-  Result := MDMatch(Digest1, Digest2);
-end;
-
-function MD4Print(const Digest: TMD4Digest): String;
-begin
-  Result := MDPrint(Digest);
-end;
-
-function MD4Match(const Digest1, Digest2: TMD4Digest): Boolean;
-begin
-  Result := MDMatch(Digest1, Digest2);
-end;
-
-function MD5Print(const Digest: TMD5Digest): String;
-begin
-  Result := MDPrint(Digest);
-end;
-
-function MD5Match(const Digest1, Digest2: TMD5Digest): Boolean;
-begin
-  Result := MDMatch(Digest1, Digest2);
-end;
-
-end.