delphi md5

unit unQyMD5;

interface

uses
  IdHashMessageDigest,IdGlobal, IdHash;
type
  TMD5 = class(TIdHashMessageDigest5);

  function StrToMD5(S: String): String; overload;
  function StrToMD5(S: String; L: integer): String; overload;

implementation

function StrToMD5(S: String): String;
var
  Md5Encode: TMD5;
begin
  Md5Encode:= TMD5.Create;
  try
  //Result := Md5Encode.AsHex(Md5Encode.HashValue(S)); // Indy9的写法
    Result := Md5Encode.HashStringAsHex(S);    // Indy10中可以直接HashStringAsHex
  finally
    Md5Encode.Free;
  end;
end;

function StrToMD5(S: String; L: integer): String;
begin
  Result := Copy(StrToMD5(S), 5, L);
end;
end.