?? gateshare.~pas

?? 飄飄的傳奇服務端院代碼能編譯的要控件老大就讓我傳上去吧
?? ~PAS
字號:
unit GateShare;

interface
uses
  Windows, Messages, Classes, SysUtils, JSocket, WinSock, SyncObjs,Common;
resourcestring
{$IF Version = SuperUser}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey1}
  g_sProductName = '飛爾世界防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 周行 QQ:13677866';
  g_sWebSite = '程序網(wǎng)站: http://www.cqfir.com';
{$ELSEIF Version = UserKey2}
  g_sProductName = '億眾網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 億眾網(wǎng)絡 QQ:987355';
  g_sWebSite = '程序網(wǎng)站: http://www.hao4f.cn';
{$ELSEIF Version = UserKey3}
  g_sProductName = '弘智網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 我愛羅 QQ:548262';
  g_sWebSite = '程序網(wǎng)站: http://www.588idc.com';
{$ELSEIF Version = UserKey4}
  g_sProductName = '封神網(wǎng)防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 無淚 QQ:19639454';
  g_sWebSite = '程序網(wǎng)站: http://www.coipc.com';
{$ELSEIF Version = UserKey5}
  g_sProductName = '速網(wǎng)科技防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 速網(wǎng)科技 QQ:240272';
  g_sWebSite = '程序網(wǎng)站: http://www.sukj.com';
{$ELSEIF Version = UserKey6}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey7}
  g_sProductName = '翎風數(shù)據(jù)防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 翎風數(shù)據(jù) QQ:635455 648409';
  g_sWebSite = '程序網(wǎng)站: http://www.Gm06.com';
{$ELSEIF Version = UserKey8}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey9}
  g_sProductName = '楓越網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: ヤ傲氣ぺ無悔 QQ：842321';
  g_sWebSite = '程序網(wǎng)站: Http://Www.42199.Com';
{$ELSEIF Version = UserKey10}
  g_sProductName = '暴風網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 暴風網(wǎng)絡 QQ：65631790';
  g_sWebSite = '程序網(wǎng)站: http://www.bfsf.cn';
{$ELSEIF Version = UserKey11}
  g_sProductName = '億人科技防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 億人科技 QQ：79446';
  g_sWebSite = '程序網(wǎng)站: http://www.79445.com';
{$ELSEIF Version = UserKey12}
  g_sProductName = '奔騰科技防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 奔騰科技 QQ:774058';
  g_sWebSite = '程序網(wǎng)站: http://Www.Idc512.Com';

{$ELSEIF Version = UserKey13}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey14}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey15}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey16}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey17}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey18}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey19}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$ELSEIF Version = UserKey20}
  g_sProductName = '飄飄網(wǎng)絡防攻擊登陸網(wǎng)關 V 1.0';
  g_sUpDateTime = '更新日期: 2006/09/12';
  g_sProgram = '程序制作: 葉隨風飄 QQ:240621028';
  g_sWebSite = '程序網(wǎng)站: http://www.51ggame.com';
{$IFEND}

type
  TGList = Class(TList)
  private
    GLock: TRTLCriticalSection;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Lock;
    procedure UnLock;
  end;

  TBlockIPMethod = (mDisconnect, mBlock, mBlockList);
  
  TSockaddr = record
    nIPaddr: Integer;
    dwStartAttackTick: LongWord;
    nAttackCount:Integer;
  end;
  pTSockaddr = ^TSockaddr;

procedure LoadBlockIPFile();
procedure SendGameCenterMsg(wIdent: Word; sSendMsg: String);
procedure SaveBlockIPList();
var
  CS_MainLog: TCriticalSection;
  CS_FilterMsg: TCriticalSection;
  MainLogMsgList: TStringList;
  BlockIPList: TGList;
  TempBlockIPList: TGList;
  CurrIPaddrList: TGList;
  AttackIPaddrList: TGList;

  nShowLogLevel: Integer = 3;
  StringList456A14: TStringList;
  GateClass: String = 'SelGate';
  GateName: String = '角色網(wǎng)關';
{$IF Version = SuperUser}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey1}
  TitleName: string = '飛爾世界';
{$ELSEIF Version = UserKey2}
  TitleName: string = '億眾網(wǎng)絡';
{$ELSEIF Version = UserKey3}
  TitleName: string = '弘智網(wǎng)絡';
{$ELSEIF Version = UserKey4}
  TitleName: string = '封神網(wǎng)';
{$ELSEIF Version = UserKey5}
  TitleName: string = '速網(wǎng)科技';
{$ELSEIF Version = UserKey6}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey7}
  TitleName: string = '翎風數(shù)據(jù)';
{$ELSEIF Version = UserKey8}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey9}
  TitleName: string = '楓越網(wǎng)絡';
{$ELSEIF Version = UserKey10}
  TitleName: string = '暴風網(wǎng)絡';
{$ELSEIF Version = UserKey11}
  TitleName: string = '億人科技';
{$ELSEIF Version = UserKey12}
  TitleName: string = '奔騰科技';
  
{$ELSEIF Version = UserKey13}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey14}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey15}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey16}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey17}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey18}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey19}
  TitleName: string = '飄飄網(wǎng)絡';
{$ELSEIF Version = UserKey20}
  TitleName: string = '飄飄網(wǎng)絡';
{$IFEND}
  ServerPort: Integer = 5100;
  ServerAddr: String = '127.0.0.1';
  GatePort: Integer = 7100;
  GateAddr: String = '0.0.0.0';

  boGateReady: Boolean = False;
  boShowMessage: Boolean;
  boStarted: Boolean = False;
  boClose: Boolean = False;
  boServiceStart: Boolean = False;
  dwKeepAliveTick: LongWord;
  boKeepAliveTimcOut: Boolean = False;
  nSendMsgCount: Integer;
  n456A2C: Integer;
  n456A30: Integer;
  boSendHoldTimeOut: Boolean;
  dwSendHoldTick: LongWord;
  boDecodeLock: Boolean;

  nMaxConnOfIPaddr: Integer = 10;

  BlockMethod: TBlockIPMethod = mDisconnect;
  dwKeepConnectTimeOut: LongWord = 60 * 1000;
  g_boDynamicIPDisMode: Boolean = False; //用于動態(tài)IP，分機放置登錄網(wǎng)關用，打開此模式后，網(wǎng)關將會把連接登錄服務器的IP地址，當為服務器IP，發(fā)給登錄服務器，客戶端將直接使用此IP連接角色網(wǎng)關

  g_dwGameCenterHandle: THandle;
  g_sNowStartGate: String = '正在啟動角色網(wǎng)關...';
  g_sNowStartOK: String = '啟動角色網(wǎng)關完成...';

  dwAttackTick: LongWord = 100;
  nAttackCount: Integer = 10;
  nReviceMsgLength: Integer = 350; //每MS允許接受的長度，超過即認為是攻擊
  dwReviceTick: LongWord = 500;
  nAttackLevel: Integer = 2;
  nMaxClientMsgCount: Integer = 2;
const
  tLoginGate = 6;
implementation
uses Grobal2;

procedure LoadBlockIPFile();
var
  I: Integer;
  sFileName: String;
  LoadList: TStringList;
  sIPaddr: String;
  nIPaddr: Integer;
  IPaddr: pTSockaddr;
begin
  sFileName := '.\BlockIPList.txt';
  if FileExists(sFileName) then begin
    LoadList := TStringList.Create;
    LoadList.LoadFromFile(sFileName);
    for I := 0 to LoadList.Count - 1 do begin
      sIPaddr := Trim(LoadList.Strings[0]);
      if sIPaddr = '' then Continue;
      nIPaddr := inet_addr(PChar(sIPaddr));
      if nIPaddr = INADDR_NONE then Continue;
      New(IPaddr);
      FillChar(IPaddr^, SizeOf(TSockaddr), 0);
      IPaddr.nIPaddr := nIPaddr;
      BlockIPList.Add(IPaddr);
    end;
    LoadList.Free;
  end;
end;
procedure SaveBlockIPList();
var
  I: Integer;
  SaveList: TStringList;
begin
  SaveList := TStringList.Create;
  for I := 0 to BlockIPList.Count - 1 do begin
    SaveList.Add(StrPas(inet_ntoa(TInAddr(pTSockaddr(BlockIPList.Items[I]).nIPaddr))));
  end;
  SaveList.SaveToFile('.\BlockIPList.txt');
  SaveList.Free;
end;
procedure SendGameCenterMsg(wIdent: Word; sSendMsg: String);
var
  SendData: TCopyDataStruct;
  nParam: Integer;
begin
  nParam := MakeLong(Word(tLoginGate), wIdent);
  SendData.cbData := Length(sSendMsg) + 1;
  GetMem(SendData.lpData, SendData.cbData);
  StrCopy(SendData.lpData, PChar(sSendMsg));
  SendMessage(g_dwGameCenterHandle, WM_COPYDATA, nParam, Cardinal(@SendData));
  FreeMem(SendData.lpData);
end;

constructor TGList.Create;
begin
  inherited Create;
  InitializeCriticalSection(GLock);
end;

destructor TGList.Destroy;
begin
  DeleteCriticalSection(GLock);
  inherited;
end;

procedure TGList.Lock;
begin
  EnterCriticalSection(GLock);
end;

procedure TGList.UnLock;
begin
  LeaveCriticalSection(GLock);
end;

initialization
  begin
    CS_MainLog := TCriticalSection.Create;
    CS_FilterMsg := TCriticalSection.Create;
    StringList456A14 := TStringList.Create;
    MainLogMsgList := TStringList.Create;
  end;

finalization
  begin
    StringList456A14.Free;
    MainLogMsgList.Free;
    CS_MainLog.Free;
    CS_FilterMsg.Free;
  end;

end.
?? 文件大小 5213 K
?? 上傳用戶 zhhw254774338
?? 所屬分類游戲
??? 相關標簽

#服務端 #代碼 #控件 #編譯
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? gateshare.~pas

?? 快捷鍵說明
