|
传奇3人寿仁DD145插件源码全套源代码
传奇3源码,传奇3引擎源码,传奇3登陆器源码,传奇3源代码
- unit _CheckVer;
- interface
- uses SysUtils, Classes, Windows, _Const, _Grobal;
- implementation
- uses _function, PlugStart;
- var
- LastCheckTime : Cardinal;
- procedure _CheckClientVer;
- var
- I : Integer;
- Flag, Flag2 : Boolean; // 这个是按钮
- T1 : Cardinal;
- begin
- T1 := GetTickCount;
- if T1 - LastCheckTime > 3 then //2010(3600000)这个是设置判断的时间！如果设置1年就1年后判断
- begin
- LastCheckTime := T1;
- if not IsHacked then
- begin
- //
- Flag := TRUE;// 设置 判断开关!
- Flag2 := TRUE;// 设置 判断开关!
- for I := Low(ServerNameList) to High(ServerNameList) do //mingzi
- begin
- //TEiFunc.DebugOut(EI.ServerName + '+' + ServerNameList[I]);
- if SameText(EI.ServerName, ServerNameList[I]) then
- begin
- Flag := FALSE; // 设置 判断开关!
- break;
- end;
- end;
- for I := Low(ServerIPList) to High(ServerIPList) do //ip
- begin
- //TEiFunc.DebugOut(EI.CSetupFile.Info.IP1.IP + '-' + ServerIPList[I]);
- if SameText(EI.CSetupFile.Info.IP1.IP, ServerIPList[I]) then
- begin
- Flag2 := FALSE; // 设置 判断开关!
- break;
- end;
- end;
- //
- Flag := FALSE;// 2010
- Flag2 := FALSE;// 2010
- IsHacked := Flag or Flag2;
- if IsHacked then // IsHacked 去找一个 Flag or Flag2; 判断！
- begin
- EI.UserEngine.HackCheckSum := $FFFF; //如果对了就设置
- end; //错了就跳过 .
- //if IsHacked then TEiFunc.DebugOut('TRUE') else TEiFunc.DebugOut('FALSE');
- {if IsHacked then
- TEiFunc.DebugOut('程序编译：传奇3技术研究组')
- else
- TEiFunc.DebugOut(Format('Ver:%s (For:%s)', [EiDllVer, EI.ServerName]));}
- end;
- end;
- end;
- procedure hkRunTimer;
- asm
- pushad
- Call _CheckClientVer
- popad
- mov eax,[$53EBB0]
- push $4A978E
- ret
- end;
- initialization
- TFunc.HookJmp($4A9789, @hkRunTimer);
- finalization
- end.
分享链接：http://pan.zxdll.cn:88/#s/9bcdeOHg
访问密码：
| 
发表于 2022-4-22 23:17:49
发表于 2023-7-2 16:20:17
