Delphi MD5加密[和Java的MD5加密结果一致]

//MD5加密字符串

function TWorkWindowForm.ret_mymd5(const sVaule: string): string;
var
  mymd5: TIdHashMessageDigest5;
begin
  try
    mymd5 := TIdHashMessageDigest5.Create;
    Result := (mymd5.AsHex(mymd5.HashValue(sVaule))); 
  finally
    mymd5.Free;
  end;
end;