Прослушивание портов - Работа с сетью в Delphi

EdNovice · 19.05.2008, 09:57

Дайте направление, в котором нужно двигаться!
Необходимо прослушивать порты своего компа на предмет того что кто-то подключился к нему (залез на шару, или еще что-либо). Желательно с применением WinApi. Как сделать, если нужно прослушивать 100 портов. Создавать для каждого сокет (функцией Socket, и потом привязывать к определенному порту функцией Bind). Как получить событие о том что к компу подцепился кто-либо?

Квэнди · 19.05.2008, 11:39

в Indy I/O Intercept

Квэнди · 19.05.2008, 11:40

в WinApi только штудированием MSDN)

doniyor · 21.05.2008, 11:48

У меня похожая головоломка. Не могу найти достойного ответа.
Попробуй погуглить статью "Александр Багель - Сетевой мониторинг". Может тебе поможет. Лично я кодил много, но проку что то нет (пока)
:-).Вот тебе ссылка
http://www.realcoding.net/article/view/688

EdNovice · 23.05.2008, 12:26

doniyor я использовал GetTcpTable, определил по установленному соединению на локальном 445 порте что ко мне залезли на шару.

doniyor · 23.05.2008, 15:56

Цитата:

doniyor я использовал GetTcpTable

Спасибо! А каков принцип работы функции? Обязательно ли чтобы к моему компу присоединялась конкретная прога? (мне нужно чтобы я узнавал о подключении ко мне даже через "Сетевое окружение"). Спасибо.

doniyor · 24.05.2008, 17:57

Цитата:

Сообщение от doniyor

Спасибо! А каков принцип работы функции? Обязательно ли чтобы к моему компу присоединялась конкретная прога? (мне нужно чтобы я узнавал о подключении ко мне даже через "Сетевое окружение"). Спасибо.

Если можно, залей полный исходничек заголовочгых файлов на мыло doniyor_88@list.ru.

Баламут · 25.05.2008, 10:02

Функция AllocateAndGetTCPExTableFromStack. У меня все на ней сделано.

doniyor · 27.05.2008, 13:32

Баламут, а можешь, если не трудно, исходничек на меил кинуть? А то я вовсе запутался... Спасибо
doniyor_88@list.ru

doniyor · 27.05.2008, 13:44

Код:

Caption:='TCP';

SubItems.Add(inet_ntoa(TInAddr(tcpTable^.table[i].dwLocalAddr)));

SubItems.Add(IntToStr(tcpTable^.table[i].dwLocalPort));

SubItems.Add(inet_ntoa(TInAddr(tcpTable^.table[i].dwRemoteAddr)));

Это кусок кода функции GetTcpTable. Всё получилось, только вот дельфи ругается на

Код:

inet_ntoa

. Что делать? link -> http://www.xakep.ru/magazine/xa/097/128/1.asp

19.05.2008, 09:57	#1
EdNovice Пользователь Регистрация: 13.04.2007 Сообщений: 65	Прослушивание портов Дайте направление, в котором нужно двигаться! Необходимо прослушивать порты своего компа на предмет того что кто-то подключился к нему (залез на шару, или еще что-либо). Желательно с применением WinApi. Как сделать, если нужно прослушивать 100 портов. Создавать для каждого сокет (функцией Socket, и потом привязывать к определенному порту функцией Bind). Как получить событие о том что к компу подцепился кто-либо?

19.05.2008, 11:39	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	в Indy I/O Intercept ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

19.05.2008, 11:40	#3
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	в WinApi только штудированием MSDN) ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

21.05.2008, 11:48	#4
doniyor Форумчанин Регистрация: 22.04.2008 Сообщений: 143	У меня похожая головоломка У меня похожая головоломка. Не могу найти достойного ответа. Попробуй погуглить статью "Александр Багель - Сетевой мониторинг". Может тебе поможет. Лично я кодил много, но проку что то нет (пока) :-).Вот тебе ссылка http://www.realcoding.net/article/view/688 Мой сайт - www.fortis-soft.narod.ru

27.05.2008, 13:32	#9
doniyor Форумчанин Регистрация: 22.04.2008 Сообщений: 143	Пожалуйста! Баламут, а можешь, если не трудно, исходничек на меил кинуть? А то я вовсе запутался... Спасибо doniyor_88@list.ru Мой сайт - www.fortis-soft.narod.ru Последний раз редактировалось doniyor; 27.05.2008 в 13:35.

23.05.2008, 12:26	#5
EdNovice Пользователь Регистрация: 13.04.2007 Сообщений: 65	doniyor я использовал GetTcpTable, определил по установленному соединению на локальном 445 порте что ко мне залезли на шару.

25.05.2008, 10:02	#8
Баламут Баламучу слегка... Участник клуба Регистрация: 01.11.2006 Сообщений: 1,585	Функция AllocateAndGetTCPExTableFromStack. У меня все на ней сделано.

27.05.2008, 13:44	#10
doniyor Форумчанин Регистрация: 22.04.2008 Сообщений: 143	не пойму :-( Код: `Caption:='TCP'; SubItems.Add(inet_ntoa(TInAddr(tcpTable^.table[i].dwLocalAddr))); SubItems.Add(IntToStr(tcpTable^.table[i].dwLocalPort)); SubItems.Add(inet_ntoa(TInAddr(tcpTable^.table[i].dwRemoteAddr)));` Это кусок кода функции GetTcpTable. Всё получилось, только вот дельфи ругается на Код: `inet_ntoa` . Что делать? link -> http://www.xakep.ru/magazine/xa/097/128/1.asp Мой сайт - www.fortis-soft.narod.ru

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Список открытых портов	Баламут	Работа с сетью в Delphi	3	21.05.2008 10:17
Сканер портов	One.Love	Работа с сетью в Delphi	4	18.02.2008 16:05
Перенаправление портов	ADSoft	Безопасность, Шифрование	2	05.01.2008 00:30
Assembler. Количество LPT-портов	AVS	Помощь студентам	1	06.12.2007 20:25
Запись, прослушивание телефонов через программу и модем.....	kuzmich	Общие вопросы Delphi	1	30.09.2007 01:13