На асме https://forum.antichat.ru/showpost.php?p=689443&postcount=7 Незабудь вверху статьи написать begin a внизу end и будет работать
ребята, ну так мне кто нибуть поможет или нет?)) мне нужно максимально безопасно спрятать в файле ключ.. (тоесть есть процедура которая расшифровывает текст по ключу XXX.. вот мне єтот ключ XXX надо спрятать, что при reverse'нге било трудно его найти..)
nezerus, ти не понял моего вопроса.. как зашифровать/расшифровать я знаю.. (шифровка и расшифровка идет по ключу..), так вот ключ для расшифровки мне надо спрятать.. как?
Берется любой редактор ресурсов типа restorator или reshack, затем копируются все окна проги, то бишь формы из которых они сделаны (например мэйлагент) и из них собирается уже новый мэйлагент, только из своего кода - это фейк проги. update/ http://stfw.ru/page.php?id=7405
Помогите с компонентом ICQClient. ------------------ Пишут что это единственный из извесных работающий компонентов Delphi для работы с ICQ. Кто имел с ним дело хочю спросить кое-что: На форме есть два Edit'a, кнопка ну и естественно сам компонент ICQClient. Первый Edit для ввода UIN'a, второй для пароля. Задача что-бы при нажатии на кнопку, происходило подключение и при правельном пароле Caption изменил название на Режим "OnLine": Code: 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 меняло свое название: --------------------- Code: procedure TForm1.ICQClient1Login(Sender: TObject); begin Form1.Caption:=('Статус: Online') end; Вопрос, почему это не работает, форма не менят Caption. Tckb кто знает в чем проблема, прошу сказать что я сделал не правильно.
_GlaD1aT(OR)_, попробуй сделать так: откров файл ICQClient.pas и измени строчку: Code: procedure TICQClient.Login(Status: LongWord = S_ONLINE; BirthDay: Boolean = False); на Code: function TICQClient.Login(Status: LongWord = S_ONLINE; BirthDay: Boolean = False):boolean; ....//в сааамом конце: FSock.Connect; RESULT:=TRUE; end; и в коде делай так: Code: if ICQClient1.Login=false then begin showmessage('CONNECT ERROR'); exit; end; showmessage('CONNECTER'); Form1.Caption:=('Статус: Online') ... ПОМОГИТЕ МНЕ єЩО РЕБЯТА! МНЕ НАДО СПРЯТАТЬ КЛЮЧ В ФАЙЛЕ))
мда... whiledo лесом идет с таким постом... eLWAux если ключ вшивать будешь в pas то: Delphi String Protect ===================== О программе Delphi String Protect осуществляет защиту строк в исходниках, что после компиляции защитит программу от крэкеров. Строки в исходниках превращаются в зашифрованный массив байт, который расшифровывается по мере необходимости во время работы скомпилированной программы, таким образом, сам исполянемый файл не содержит строк в открытом виде и тем самым сильно противодействует взлому программ путем дизассемблирования и анализа кода программы. прогу ищи сам
Кто подскажет код, что бы0при нажатии на кнопку включался ехе файл предположем программы или игры На делфи
Локальный чат Интересует реализация локального чата, чтобы люди могли отсылать сообщения на шлюзовой компьютер (раздающий инет). подкреплять ответ разъяснением. ЗЫ: желательно, чтобы мессенджер вёл лог и обязательно, чтобы все сообщения было видно каждому
