УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 485 из 677

485

Опции темы

Поиск в этой теме

Опции просмотра

#4841

09.11.2009, 15:54

Tribal_0_o

Новичок

Регистрация: 07.11.2009

Сообщений: 6

Провел на форуме:
35005

Репутация: 0

В DEPHI 7:

Код:

var
s:string;
pck:array [0..65534] of byte;
pck2:array [0..65534] of byte;
begin
len:=recv(sock,pck,MAX_PKT_SIZE,0);
move(pck[0],pck2[0],len);
s:='';
s:=s+inttohex(pck2,2);
memo1.lines.Add(s);

в DELPHI 2009 этот же код выдаёт ошибку:
E2250 There is no overloaded version of 'IntToHex' that can be called with these arguments

как исправить?

Последний раз редактировалось Tribal_0_o; 09.11.2009 в 15:58..

#4842

09.11.2009, 19:26

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

Есть какие нибудь способы как спрятать файл от Антивирусников имея исходный код программы?

Переименовывание форм, кнопок, процедур пойдет?

#4843

09.11.2009, 19:54

Adekvatnyj

Участник форума

Регистрация: 28.10.2009

Сообщений: 129

Провел на форуме:
460561

Репутация: 67

Цитата:

Сообщение от transserg

Adekvatnyj проверь возможно оно.

Оно, но не помогло сделать эти два шага, в RootDir мб что то поменять?.

Все сменил по батнику с дельфи сайта.

Но у меня не такая ошибка, у меня аккес виолатион!

Последний раз редактировалось Adekvatnyj; 09.11.2009 в 20:00..

#4844

09.11.2009, 20:11

$Atlet$

Участник форума

Регистрация: 25.10.2008

Сообщений: 215

Провел на форуме:
2483773

Репутация: 78

Отправить сообщение для $Atlet$ с помощью ICQ

svesve, посмотри тут и тут

#4845

09.11.2009, 22:32

=Zeus=

Участник форума

Регистрация: 10.08.2009

Сообщений: 238

Провел на форуме:
724939

Репутация: 108

Отправить сообщение для =Zeus= с помощью ICQ

Цитата:

Сообщение от svesve

Антивирусу плевать на кнопки и все остальное. Он смотрит только на функции. Для шифровки используй пакеры (есть такие, что маскируют от простеньких антивирусов). А вообще есть специальные программы, они называются крипторы. Но вся проблема в том, что те крипторы, которые в паблике, большинство антивирусов палят. Нужно либо искать нормальный паблик (если поднапрячься то можно), или купить приватный.

#4846

10.11.2009, 00:04

mr_walker

Познающий

Регистрация: 09.08.2009

Сообщений: 39

Провел на форуме:
298385

Репутация: 75

Как поставить пароль на кнопку, тоесть чтобы при нажатии на кнопку выскакивала форма с полем для ввода пароля, и при вводе правильного пароля выполнялась функция..????
Все на Делфи7

#4847

10.11.2009, 00:16

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

Цитата:

Сообщение от =Zeus=

Переименовал все функции и ничего не палиться

#4848

10.11.2009, 00:20

Adekvatnyj

Участник форума

Регистрация: 28.10.2009

Сообщений: 129

Провел на форуме:
460561

Репутация: 67

Ответьте еще на мой вопрос, он на той странице!

#4849

10.11.2009, 01:46

StealthMaster

Познающий

Регистрация: 03.12.2008

Сообщений: 56

Провел на форуме:
140714

Репутация: 29

Отправить сообщение для StealthMaster с помощью ICQ

Цитата:

Как поставить пароль на кнопку, тоесть чтобы при нажатии на кнопку выскакивала форма с полем для ввода пароля, и при вводе правильного пароля выполнялась функция..????

Добавь в проект новую форму, собственно где и будет поле ввода пароля, пропиши новый unit в секции uses первого юнита.

Код кнопки на первой форме:

Код:

form1.button1click(sender: TObject);
begin
  form1.enabled := false;
  form2.show;
end;

Во втором юните напиши проверку пароля и выполни нужную функцию.

Код:

// checkpass(pass: string): boolean - функция проверки пароля
form2.button1click(sender: TObject);
begin
  if checkpass(edit1.text) then
    MyFunction
  else
    showmessage('Неверный пароль');
end;