QQ农场终于更新啦~~

    我将是一名高中生了,前不久去军训,咳,还真苦,倒也学了不少,为期6天,眼看暑假要过去了,我的农场外挂还没有完成,毕竟没有时间啊~ 好了,废话不多说,转入正题,我军训前看了QQ农场的版本,是64,但回来后看了IE缓存,已经是66了,我马上想起一个问题:farmkey算法更新了吗?因为有许多次版本虽然有更新,但farmkey的生成的算法都是没有变的,说干就干,复制了一份Main_v_66.swf,马上反汇编,导出as脚本后,发现真的更新了!在Main_v_66.swf\动作\module\_-NA.as中是这样描述farmkey的生成原理的:

CommonData.getKey = function () : String{
                var _loc_1:String = "usuCkmYdicKaNdishitiNuRMouTh";
                var _loc_2:* = CommonData.serverTime.toString();
                var _loc_3:* = parseInt(_loc_2.substr((_loc_2.length - 1)), 10);
                var _loc_4:* = _loc_1.substr(_loc_3);
                return _-dO._-No(_loc_2 + _loc_4);
}// end function

    在Main_v_64.swf是这样描述的:

CommonData.getKey = function () : String
{
                var _loc_1:String = "FiNalHQKtL6bFaRmSUck";
                var _loc_2:* = CommonData.serverTime.toString();
                var _loc_3:* = parseInt(_loc_2.substr((_loc_2.length - 1)), 10);
                var _loc_4:* = _loc_1.substr(_loc_3);
                return _-1C._-FC(_loc_2 + _loc_4);
}// end function

    很明显,只是换了个字符串而已,再翻译成Pascal就OK啦,以下代码在Delphi7下面通过:

 

getKey
1 function GetFarmKey(Time: TDateTime): string;
2  var
3 md5: TIdHashMessageDigest5;
4 temp1: Integer;
5 temp3: string;
6 //temp3: AnsiString; //D2010
7 begin
8 temp1 := DatetimeToUnix(time - 8 / 24);
9 FarmTime := temp1;
10 //Update ==> LHGHqwdsdfgHQKtL6b6gsESuck
11 //Update ==> FiNalHQKtL6bFaRmSUck
12 temp3 := 'usuCkmYdicKaNdishitiNuRMouTh';
13 Delete(temp3, 1, temp1 mod 10);
14 temp3 := IntToStr(temp1) + temp3;
15 md5 := TIdHashMessageDigest5.Create;
16 Result := LowerCase(md5.AsHex(md5.HashValue(temp3)));
17 //Result := LowerCase(md5.HashStringAsHex(temp3)); //D2010
18 md5.Free;
19 end;

    呵呵,这个算法也不知道是哪位老兄写的,我只是换了个字符串,当然,我写这篇文章的目的,纯属是为了学习和交流,并无别的意思。毕竟,许多人想写辅助软件,但无从下手,最终信心受挫,有了这些代码,至少也能激起他们学习的兴趣,更何况有利于QQ农场的进步呢!你觉得呢?嘿嘿——道高一尺,魔高一丈啊~!

posted @ 2010-08-26 13:52 Lofanmi 阅读(...) 评论(...) 编辑 收藏