QQ农场farmkey-2010.02.04

function TCommon.getFarmKey(time: TDateTime): string;
var
  md5: TIdHashMessageDigest5;
  temp1: Integer;
  temp3: string;
begin
  temp3 := '@#$N*9Fi@#$JJcZXV89h012983o!$Fl12aOAISDs';//'billyliallenfengjiajialiuderrywang0128';

//'allenfengjiajialiuderrywangbillyli2012';

//'derrywangbillyliallenfengjiajialiu';

 //'$#087asd!@#$0AHFH'; //fs#$hsJ!Fa*AF!-0aPS

  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;

本次更新的KEY是：@#$N*9Fi@#$JJcZXV89h012983o!$Fl12aOAISDs