md5hash

unit md5hash;

interface

uses DCPcrypt2, DCPmd5, SysUtils;

function md5 (s: String): String;

implementation

function DigestToStr(Digest: array of byte): String;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to Length(Digest) - 1 do
    Result := Result + LowerCase(IntToHex(Digest[i], 2));
end;

function md5 (S: String): String;
var
  Hash: TDCP_md5;
  SA : AnsiString;
  Digest: array of Byte;
begin
  Hash := TDCP_md5.Create(nil); // создаём объект
  Hash.Init;
  SA := AnsiString(S);
  Hash.Update(SA[1], length(SA));
  SetLength(Digest,Hash.HashSize div 8);
  Hash.Final(Digest[0]);             // сохраняем её в массив
  Hash.Free;                      // уничтожаем объект
  Result := DigestToStr(Digest);  // получаем хэш-сумму строкой
end;

end.