![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как оборвать тсп соединение
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 вобщем ее названия навело меня на мысль что автор проги воспользовался именно этой функцией к сожалению проверить забыл. Если вдруг найду название функции напишу.