ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
30.03.2008, 20:30
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от ForNeVeR
De-visible, модуль со всем сопроводиловом в исходниках (там несколько файлов) - 500 кб. В dcu - 300. Всё в архиве - 280 
По поводу TICQClient.Create(nil) - правильно, посмотрел исходник, действительно запрашивает только Owner'а. Ни сервера, нифига. Видимо, в параметрах задаётся или позже, в рабочем порядке.
ЗЫ. Сам не являюсь пользователем этого модуля и пишу свою библиотеку для работы с OSCAR'ом в C++ 
De-visible, модуль со всем сопроводиловом в исходниках (там несколько файлов) - 500 кб. В dcu - 300. Всё в архиве - 280
Вес что с формой, что без нее! - МНОГО!
(Для написания червя, троя)
Последний раз редактировалось De-visible; 30.03.2008 в 21:27..
|
|
|
30.03.2008, 20:35
|
|
Участник форума
Регистрация: 01.05.2006
Сообщений: 216
Провел на форуме:
287212
Репутация:
62
|
|
С таким модулем не вирус, а троян уже получается... А всё ненужное в указанном случае из модуля рекомендуется убрать нафиг. Допустим, функции получения X-статусов, запросов авторизации и т.д.
Да и для любой качественной, оптимизированной софтины я не рекомендовал бы ипользование этого компонента, написанного фиг знает когда с кучей ненужного кода и полуреализованных "задумок на будущее". Моя практически функционирующая библиотечка (включающая в себя только необходимое!) на .net в исходном коде весит чуть более 20 кб.
|
|
|
|
30.03.2008, 21:04
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Да и для любой качественной, оптимизированной софтины я не рекомендовал бы ипользование этого компонента, написанного фиг знает когда с кучей ненужного кода и полуреализованных "задумок на будущее". Моя практически функционирующая библиотечка (включающая в себя только необходимое!) на .net в исходном коде весит чуть более 20 кб.
Почему я и предложил WinSock
|
|
|
|
30.03.2008, 21:19
|
|
Познающий
Регистрация: 15.12.2007
Сообщений: 38
Провел на форуме:
71979
Репутация:
18
|
|
Спасибо ForNeVeR за код и De-visible за дополнение , а размер для меня покачто не важен .
|
|
|
|
30.03.2008, 21:26
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Manoff
Спасибо ForNeVeR за код и De-visible за дополнение , а размер для меня покачто не важен .
В uses добавить ICQClient не забудь!
|
|
|
|
30.03.2008, 22:38
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Код:
var ICQ: TICQClient;
begin
ICQ:= TICQClient.Create(nil);
ICQ.UIN :=555555;
ICQ:=12345;
end;
ну и так далее!
Попробуй так!
Последний раз редактировалось De-visible; 30.03.2008 в 22:43..
|
|
|
|
30.03.2008, 23:18
|
|
Познающий
Регистрация: 15.12.2007
Сообщений: 38
Провел на форуме:
71979
Репутация:
18
|
|
Код:
program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileCtrl;
var
k:string;
ICQ: TICQClient;
{$R *.dfm}
{$R *.res}
begin
begin
ICQ:= TICQClient.Create(nil);
ICQ.UIN:=44028835;
ICQ.Password:='kd';
ICQ.ICQServer:='login.icq.com';
ICQ.ICQPort:=5190;
icq.Status:=8;
ICQ.Login();
end;
end.
Вот код и по идее он должен конектить к серву , НО он этого не делает в чём ошибка - не пойму походу дела у меня руки кривоваты  . |
|
|
|
30.03.2008, 23:21
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Да кривоваты, Зачем два раза begin и end писать???
Код:
program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileCtrl;
var
k:string;
ICQ: TICQClient;
{$R *.dfm}
{$R *.res}
begin
ICQ:= TICQClient.Create(nil);
ICQ.UIN:=44028835;
ICQ.Password:='kd';
ICQ.ICQServer:='login.icq.com';
ICQ.ICQPort:=5190;
icq.Status:=8;
ICQ.Login();
end.
|
|
|
|
30.03.2008, 23:40
|
|
Познающий
Регистрация: 15.12.2007
Сообщений: 38
Провел на форуме:
71979
Репутация:
18
|
|
Да и так не рабит .
Хотя с формой всё тип-топ было!
|
|
|
|
30.03.2008, 23:55
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
program isqB;
uses Windows,SysUtils,Registry,ICQClient,ICQWorks,FileC trl;//Здесь пробел не забудь убрать!!(Форум вставил)
var
k:string;
ICQ: TICQClient;
begin
ICQ:= TICQClient.Create(nil);
ICQ.UIN:=44028835;
ICQ.Password:='kd';
ICQ.ICQServer:='login.icq.com';
ICQ.ICQPort:=5190;
icq.Status:=8;
ICQ.Login();
end.
Без ресурсов компилится
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид