传奇单机版,GM论坛,传奇版本库,GM基地

传奇3人寿仁插件DD145源代码全套编译通过

[复制链接]
查看: 337   回复: 0     # 登录器源码

187

主题

189

帖子

7505

积分

霸王教主

Rank: 9Rank: 9Rank: 9

积分
7505
2022-4-22 23:17:49   显示全部楼层   阅读模式  

传奇3人寿仁DD145插件源码全套源代码

[Delphi] 纯文本查看 复制代码
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.


游客,如果您要查看本帖隐藏内容请回复






上一篇:C3Mir3全套delphi代码+控件包 光通刺客4职业
下一篇:传奇3大补帖1.82 Delphi源代码
回复 关闭延时

使用道具 举报

您需要登录后才可以回帖   登录 立即注册

高级模式

Powered by Discuz! X3.4 © Comsenz Inc.

Archiver|手机版|小黑屋|美林传奇GM论坛 ( 蜀ICP备2020030293号-2 )