Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ICQ

dolphin1 © (2003-12-24 13:01:00)
Типа с рождеством всех !

кто то работал с аськой

я хочу узнать можно ли написать програмулю которая может следить за ICQ я думаю можно но пока не знаю как

ведь отправить сообщение на ICq можно так

var
Form1: TForm1;
csend: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
cSend := "POST http://wwp.icq.com/scripts/WWPMsg.dllHTTP/2.0" + chr(13) + chr(10);
cSend := cSend + "Referer: http://wwp.mirabilis.com" + chr(13) + chr(10);
cSend := cSend + "User-Agent: Mozilla/4.06 (Win95; I)" + chr(13) + chr(10);
cSend := cSend + "Connection: Keep-Alive" + chr(13) + chr(10);
cSend := cSend + "Host: wwp.mirabilis.com:80" + chr(13) + chr(10);
cSend := cSend + "Content-type: application/x-www-form-urlencoded" + chr(13) + chr(10);
cSend := cSend + "Content-length:8000" + chr(13) + chr(10);
cSend := cSend + "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" +
chr(13) + chr(10) + chr(13) + chr(10);
cSend := cSend + "from=" + edit1.Text + " &fromemail=" + edit2.Text +
" &fromicq:110206786" + " &body=" + memo1.Text + " &to=" + edit3.Text + "&Send=";
clientsocket1.Active := True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket1.Socket.SendText(csend);
clientsocket1.Active := False;
end;

а как отловить входящие и исходящие мессаги ?

Заранее thanx

Slym (2003-12-25 07:10:00) [1]

Кстати в инете есть специальные программы-шлюзы для аськи типа специализированной прокси с возможностями вести логи...

Slym (2003-12-25 07:08:00) [2]

А прокси поставить слабо? или файрвол?

Digitman (2003-12-24 13:54:00) [3]

т.е. тебе настойчиво предлагают переквалифицироваться в соглядатаи и регулярно класть на стол администрации "доносы" а-ля протокол всех ICQ-контактов всех пользователей ?

ну хорошо ... это - как минимум дело совести ... как твоей , так и твоей администрации)

а вот мне любопытно , как ты намерен ассоциировать "вынюханные" тобой тем или иным образом сообщения с конкретными пользователями

dolphin1 (2003-12-24 13:48:00) [4]

это к администрации

Digitman (2003-12-24 13:37:00) [5]

> ненужный треп

ну-ка, ну-ка) ... поподробней, пожалуйста)

любопытен "алгоритм", результатом которого будет резолюция : этот треп - нужный, а этот - ненужный ...

dolphin1 (2003-12-24 13:35:00) [6]

у меня 50 пользователей надо отслеживать ненужный треп
начальство дало такое задание именно написать на delphi следилку

dolphin1 (2003-12-24 13:32:00) [7]

чем мона из delphi нюхать TCP-потоки ?

Digitman (2003-12-24 13:32:00) [8]

тебе на кой шут это надо ? хочешь поставить на сервер доступа к провайдеру и подслушивать частный треп юзеров лок.сети ? так что ль ? как минимум по шее не рискуешь схлопотать за это грязное дело ?

Digitman (2003-12-24 13:30:00) [9]

да вот так)

для каждого протокола - свой "сниффер" должен быть

точнее - так :

"нюхаешь" TCP-потоки, анализируешь, раскладываешь по "кучкам" : этот был сформирован HTTP-протоколом, этот - ICQ-протоколом, этот - еще черт-те каким протоколом ..

а далее - каждую "кучку" подвергаешь парсингу и "выковыриваешь" оттуда нужную инф-цию отдельным , специфичным ТОЛЬКО для протокола данной "кучки" алгоритмом

dolphin1 (2003-12-24 13:18:00) [10]

согласен никакого
а как ?

dolphin1 (2003-12-24 13:16:00) [11]

помотрел icqsniff - не то мне не надо определять IP надо ловить исходящие и водящие мессаги

Digitman (2003-12-24 13:16:00) [12]

> dolphin1

какой толк будет от ICQSniff, если пример, упомянутый тобой выше, не использует ICQ-протокол ?

dolphin1 (2003-12-24 13:10:00) [13]

pls если можно ссылку

необходимо встроить ее в мое delphi приложение (тоесть надо исходники на любой языке)

DCoder (2003-12-24 13:07:00) [14]

Ее не надо изобретать, есть готовая
Зовется ICQSniff

Наверх

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