ICQ

← →
dolphin1 (2003-12-24 13:01) [0]

Типа с рождеством всех !

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

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

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

var
Form1: TForm1;
csend: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
cSend := "POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/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

← →
DCoder (2003-12-24 13:07) [1]

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

← →
dolphin1 (2003-12-24 13:10) [2]

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

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

← →
dolphin1 (2003-12-24 13:16) [3]

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

← →
Digitman (2003-12-24 13:16) [4]

> dolphin1

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

← →
dolphin1 (2003-12-24 13:18) [5]

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

← →
Digitman (2003-12-24 13:30) [6]

да вот так)

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

точнее - так :

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

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

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

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

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

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

← →
dolphin1 (2003-12-24 13:35) [9]

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

← →
Digitman (2003-12-24 13:37) [10]

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

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

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

← →
dolphin1 (2003-12-24 13:48) [11]

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

← →
Digitman (2003-12-24 13:54) [12]

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

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

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

← →
Slym (2003-12-25 07:08) [13]

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

← →
Slym (2003-12-25 07:10) [14]

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

ICQ Найти похожие ветки