欢迎您! | 积分 | 主页 |

官方QQ群: 8807551

3月8日QQ农场farmkey

所值积分:
浏览量:52
新闻类别:IT电脑开发
学习标签:QQ,农场,farmkey
发布时间:2010-03-09 13:17:04.0

---

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'

网店名字Don的知识网店
网店店主don