Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Вниз
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]Кстати в инете есть специальные программы-шлюзы для аськи типа специализированной прокси с возможностями вести логи...
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c