3月8日QQ农场farmkey

function TCommon.getFarmKey(time: TDateTime): string;
var
  md5: TIdHashMessageDigest5;
  temp1: Integer;
  temp3: string;
begin
  temp3 := 'N#i$7c!@hfF8@sd!^12*Da9#$4';
  temp1 := DatetimeToUnix(time - 8 / 24);
  Delete(temp3, 1, temp1 mod 10);
  temp3 := IntToStr(temp1) + temp3;
  md5 := TIdHashMessageDigest5.Create;
  Result := LowerCase(md5.AsHex(md5.HashValue(temp3)));
  md5.Free;
end;

本次KEYSTR:'N#i$7c!@hfF8@sd!^12*Da9#$4'