QQ农场farmkey更新-2010.1.28

function TCommon.getFarmKey(time: TDateTime): string;
var
  md5: TIdHashMessageDigest5;
  temp1: Integer;
  temp3: string;
begin
  temp3 := 'billyliallenfengjiajialiuderrywang0128'; 

  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)));
end;

新KEY   billyliallenfengjiajialiuderrywang0128

 QQ农场,农场,farmkey,农场外挂,QQ农夫,外挂