ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
10.09.2008, 17:29
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
http://forum.antichat.ru/threadnav80004-1-10.html
разжуйте плз а то чет не могу =\
|
|
|
10.09.2008, 21:45
|
|
Новичок
Регистрация: 02.09.2008
Сообщений: 2
Провел на форуме:
4183
Репутация:
0
|
|
Подскажите как в delphi проверить открыт ли порт, например 25, и если возможно, закрыть его ???
Последний раз редактировалось begin_end; 11.09.2008 в 22:14..
Причина: без цвета
|
|
|
|
10.09.2008, 22:27
|
|
Banned
Регистрация: 16.07.2007
Сообщений: 79
Провел на форуме:
801879
Репутация:
337
|
|
Сообщение от diznt
http://forum.antichat.ru/threadnav80004-1-10.html
разжуйте плз а то чет не могу =\
Берется любой редактор ресурсов типа restorator или reshack, затем копируются все окна проги, то бишь формы из которых они сделаны (например мэйлагент) и из них собирается уже новый мэйлагент, только из своего кода - это фейк проги.
update/
Сообщение от whiledo
Подскажите как в delphi проверить открыт ли порт, например 25, и если возможно, закрыть его ???
http://stfw.ru/page.php?id=7405
Последний раз редактировалось Dober'man; 10.09.2008 в 22:35..
|
|
|
|
11.09.2008, 09:35
|
|
Познающий
Регистрация: 24.07.2008
Сообщений: 47
Провел на форуме:
108397
Репутация:
31
|
|
Помогите с компонентом ICQClient.
------------------
Пишут что это единственный из извесных работающий компонентов Delphi для работы с ICQ. Кто имел с ним дело хочю спросить кое-что:
На форме есть два Edit'a, кнопка ну и естественно сам компонент ICQClient. Первый Edit для ввода UIN'a, второй для пароля. Задача что-бы при нажатии на кнопку, происходило подключение и при правельном пароле Caption изменил название на Режим "OnLine":
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='')
or (StrToInt(Edit1.Text)<10000)
then
begin
MessageBox(0, 'Пожалуйста введите верно UIN и Пароль', MB_ICONWARNING);
Exit;
end;
ICQClient1.UIN:=StrToInt(Edit1.Text);
ICQClient1.Password:=Edit2.Text;
ICQClient1.ConvertToPlaintext:=true;
//логинимся к серверу в статусе Online
ICQClient1.Login;
//--------------------------------------
Button1.Enabled:=False;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
end;
---------------------
При удачном соединении надо что-бы Форма1 меняло свое название:
---------------------
Код:
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
Form1.Caption:=('Статус: Online')
end;
Вопрос, почему это не работает, форма не менят Caption. Tckb кто знает в чем проблема, прошу сказать что я сделал не правильно.
|
|
|
|
11.09.2008, 10:57
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
_GlaD1aT(OR)_, в твоём коде всё правильно.
Ошибка возможно кроется в самом компоненте Ticq, так как в сети есть много вариантов, изначальный (а там протокол изменён), ну и разные модификации, так вот изначальный работать не будет, а модифицированный, да.
Поэтому надо сначала убедиться, что сам компонент исправен.
|
|
|
|
11.09.2008, 12:19
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
_GlaD1aT(OR)_, попробуй сделать так:
откров файл ICQClient.pas и измени строчку:
Код:
procedure TICQClient.Login(Status: LongWord = S_ONLINE; BirthDay: Boolean = False);
на
Код:
function TICQClient.Login(Status: LongWord = S_ONLINE; BirthDay: Boolean = False):boolean;
....//в сааамом конце:
FSock.Connect;
RESULT:=TRUE;
end;
и в коде делай так:
Код:
if ICQClient1.Login=false then
begin showmessage('CONNECT ERROR'); exit; end;
showmessage('CONNECTER');
Form1.Caption:=('Статус: Online')
...
ПОМОГИТЕ МНЕ єЩО РЕБЯТА! МНЕ НАДО СПРЯТАТЬ КЛЮЧ В ФАЙЛЕ)) |
|
|
|
11.09.2008, 12:39
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от eLWAux
ПОМОГИТЕ МНЕ єЩО РЕБЯТА! МНЕ НАДО СПРЯТАТЬ КЛЮЧ В ФАЙЛЕ))
Есть только вариант шифровать текст непосредственно в самом .pas файле разными алгоритмами. Это опытные крякеры расшифруют дело но...
Я лично всегда делал несколько алгоритмов шифровки текста с открытыми ключами...
|
|
|
|
11.09.2008, 18:07
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
мда...
whiledo лесом идет с таким постом...
eLWAux если ключ вшивать будешь в pas то:
Delphi String Protect
=====================
О программе
Delphi String Protect осуществляет защиту строк в исходниках, что после компиляции защитит программу от крэкеров. Строки в исходниках превращаются в зашифрованный массив байт, который расшифровывается по мере необходимости во время работы скомпилированной программы, таким образом, сам исполянемый файл не содержит строк в открытом виде и тем самым сильно противодействует взлому программ путем дизассемблирования и анализа кода программы.
прогу ищи сам
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
11.09.2008, 21:28
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Delphi String Protect, кому надо ловите:
http://slil.ru/26136468
|
|
|
|
11.09.2008, 23:05
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
а мне нужно с помощью делфи!
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
