传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 679|回复: 4

Ei3.0火炬引擎Eiserver dededark反编译版

[复制链接]

624

帖子

2131

钻石

1354

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
109 小时
发表于 2018-12-3 00:37:42 | 显示全部楼层 |阅读模式
Ei3.0火炬引擎Eiserver dededark反编译版


{$DEFINE SQL}
unit _SQL;

interface

Uses Windows,SysUtils,Classes,DB,ADODB,Inifiles,Forms,StdCtrls,ExtCtrls,Controls;

var ADOConnection : TADOConnection;
    Sa,IP,PWS,DBSn: String;
    _SQLinit_ret  :DWORD=$49FE1E;
    aSQLconnected:boolean=False;
    QuerySave,SQLQury:TADOQuery;
    ItemCount:DWORD=$0;
    ItemSQLreadPathe_ret:DWORD=$4937C4;

function BQuery:TADOQuery;
implementation
Uses _function,_NewMerchant;

function SQLinit:boolean;
var _ADOCreate:Boolean;
begin
  Result:=False;
  _ADOCreate:=False;
  try
  ADOConnection:=TADOConnection.Create(nil);
  aSQLconnected:=TRUE;
  ADOConnection.ConnectionString:='Provider=SQLOLEDB.1;Password='+PWS+';Persist Security Info=True;User ID='+Sa+';Initial Catalog='+DBsn+';Data Source=' +IP;
  ADOConnection.LoginPrompt:=False;
  ADOConnection.KeepConnection:=TRUE;
  ADOConnection.Open;
  Result:=TRUE;
  QuerySave:=BQuery;
  SQLQury:=BQuery;
  except
    ADOConnection.Free;
    aSQLconnected:=False;
    Application.Terminate;
  end;
end;

function BQuery:TADOQuery;
var ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  ADOQuery.Connection:=ADOConnection;
  ADOQuery.Close;
  ReSult:=ADOQuery;
end;

procedure SqlParam;
var FI:tInifile;
    aPathe:string;
begin
  aPathe:=string(pchar($49e7bc));
  Fi  :=Tinifile.Create(ExtractFilePath(paramstr(0))+aPathe);
  Sa  :=Fi.ReadString('Server','CommonDBID','');
  IP  :=Fi.ReadString('Server','CommonDBLoc','');
  PWS :=Fi.ReadString('Server','CommonDBPassword','');
  DBSn:=Fi.ReadString('Server','CommonDBDSN','');
  Fi.Destroy;
end;

procedure _SQLinit;
asm
  PUSHAD
  CALL Merchant
{$IFDEF SQL}
  CALL SQLinit
{$ENDIF}
  POPAD
  mov eax,dword ptr ss:[ebp-4]
  mov eax,dword ptr ds:[eax+$2D4]
  mov eax,dword ptr ds:[eax+$208]
  mov edx,$004A0620
  mov ecx,dword ptr ds:[eax]
  jmp [_SQLinit_ret]
end;

procedure ItemSQLreadPathe;
asm
mov eax,ItemCount
mov dword ptr ss:[ebp-$10],eax
Inc DWORD PTR[ItemCount]
jmp [ItemSQLreadPathe_ret]
end;

Initialization
  SqlParam;
  ADDRW($49FE08,DWORD(@_SQLinit));
  ADDRW($4937af,DWORD(@ItemSQLreadPathe));
finalization
  try
  if aSQLconnected then
    begin
     QuerySave.Free;
     SQLQury.Free;
     ADOConnection.Free;
    end;
  except end;
end.

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

回复

使用道具 举报

38

帖子

5

钻石

48

积分

初级GM

Rank: 1

在线时间
2 小时
发表于 2019-3-11 11:13:13 | 显示全部楼层
Ei3.0火炬引擎Eiserver dededark反编译版
回复

使用道具 举报

20

帖子

2015

钻石

24

积分

初级GM

Rank: 1

在线时间
4 小时
发表于 2019-3-14 21:18:53 | 显示全部楼层
Ei3.0火炬引擎Eiserver dededark反编译版
回复

使用道具 举报

9

帖子

46

钻石

9

积分

初级GM

Rank: 1

在线时间
0 小时
发表于 2020-1-20 08:36:35 | 显示全部楼层
Ei3.0火炬引擎Eiserver dededark反编译版
回复

使用道具 举报

17

帖子

52

钻石

18

积分

初级GM

Rank: 1

在线时间
1 小时
发表于 2020-3-20 17:53:53 | 显示全部楼层
瞧瞧,喜欢传奇3
回复

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|85ji.com Inc.最大的GM论坛交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

快速回复 快速发帖 返回顶部 返回列表