Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как оборвать тсп соединение


AT ©   (2006-04-14 19:52:00) 

У меня проблемка. Хочу написать античит на игру как проследить читы и как связаться с сервера с клиентами я знаю а вот как оборвать установившееся соединение между клиентом и сервером если на клиенте нет моего античита мне не ведомо. Я знаю ип машины и порт на который она села. Мне надо её отключить. Может если кто знает как сделать это какойнить командой консольной тоже пойдёт игра - World of Warcraft сервер Wowemu 0.4735.1.9.


Николас   (2006-08-04 23:35:00) [1]

А зачем изобретать велосипед? Все уже давно написано, смотри LACD античит.


OldMax   (2006-07-29 06:12:00) [2]

>Хочу написать античит на игру как проследить читы

AT, как???
умоляю - пришли инфу, как проследить, на е-мыл(в нике)


AT   (2006-05-18 01:07:00) [3]

спасибо


SPACE!!   (2006-04-24 23:58:00) [4]

Мощно задвинул . :)


Rouse_   (2006-04-23 22:17:00) [5]


> А вопще спроси у Rouse_ ... Мнеб честно говоря тожеб было
> интересно.

К сожалению я на на такие типы вопросов не отвечаю :)


SPACE!!   (2006-04-23 20:59:00) [6]

А вопще спроси у Rouse_ ... Мнеб честно говоря тожеб было интересно.


SPACE!!   (2006-04-17 18:56:00) [7]

А вот нарыл навеное несколько нето, но всеже выложу ты уж сам разбирайся. Честно говоря я 15 минут попарился с этим кодом у меня
ничего не вышло. :)

Как оперделить все IP и порты на моем компьютере

Функции GetTcpTable, GetUdpTable.

Импорт GetTcpTable:

unit TcpTable;
interface
type
 PDWord = ^Longword;
 PMIB_TCPROW = ^TMIB_TCPROW;
 TMIB_TCPROW = record
   dwState: LongWord;
   dwLocalAddr: LongWord;
   dwLocalPort: LongWord;
   dwRemoteAddr: LongWord;
   dwRemotePort: LongWord;
 end;
 PMIB_TCPTABLE = ^TMIB_TCPTABLE;
 TMIB_TCPTABLE = record
   dwNumEntries: LongWord;
   table: array[0..0] of TMIB_TCPROW;
 end;

function GetTcpTable(var TcpTable: PMIB_TCPTABLE;
 var Size: PDWord; bOrder: Boolean): LongWord; stdcall

implementation

function GetTcpTable; external 'Iphlpapi.dll' name 'GetTcpTable';

end.
Вызов GetTcpTable:

{$R-}
Entries := 16;
Sz := SizeOf(TMIB_TCPTABLE) + SizeOf(TMIB_TCPROW) * (Entries - 1);
pMibTable := nil;
try
 repeat
   ReallocMem(pMibTable, Sz);
   Res := GetTcpTable(pMibTable^, Sz, False);
 until Res <> ERROR_INSUFFICIENT_BUFFER;
 if Res <> NO_ERROR then
 begin
   ShowMessage(SysErrorMessage(Res));
   exit;
 end;
 for Entries := 0 to pMibTable.dwNumEntries - 1 do
 begin
   < Делать что - то >
 end;
finally
 FreeMem(pMibTable);
end;
{$R+}


SPACE!!   (2006-04-17 00:03:00) [8]

Да помоему ты можешь закрыть любое соеденение посмотри на програму
TCPView  у меня v2.34 она показывает все соеденения и ты можешь закрыть
любое из них вроде как я честно говоря не проверял. А как это сделать я
незнаю уж извини. Вопще начни с того что попытайся получить также всю
информацию о соеденениях я если честно сильно этим вопросом не интересовался но где-то видел функцию в названии которой фигурировало
слово table и connections или sockets вобщем ее названия навело меня на мысль что автор проги воспользовался именно этой функцией к сожалению проверить забыл. Если вдруг найду название функции напишу.


Наверх

Титульная страница Поиск, карта сайта Написать письмо