学习从此开始
新闻资讯 资源下载 学习工具 English 繁體中文 风尚OK服饰
⊙ 欢迎您!
点击放大图片-3月8日QQ农场farmkey
发布日:2010-03-09 13:17:04.0 发布人:i 浏览量:259

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'



类别:电脑科技 标签: qq 农场 farmkey

评论|留言:

验证码:验证码