function md5(s: string): string;
begin
  Result := '';
  with TIdHashMessageDigest5.Create do
  try
  Result := AnsiLowerCase(AsHex(HashValue(s)));
  finally
  Free;
  end;
end;