VPF::Антивирь ругается на код - Форум программистов

elestrago

Дата 21.11.2008, 10:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

мой нод начал ругатся на этот код

Код


function Killproc(ProcName:string): Bool;
var
  SnapProc: THandle;
  ProcEntry: TProcessEntry32;
  OpProc:cardinal;
begin
  SnapProc := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if SnapProc <> INVALID_HANDLE_VALUE then
  try
    ProcEntry.dwSize := SizeOf(TProcessEntry32);
    if Process32First(SnapProc, ProcEntry) then
      repeat
        if ProcEntry.szExeFile = ProcName then
          begin
            OpProc:=OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcEntry.th32ProcessID);
            TerminateProcess(OpProc,DWORD(-1));
          end;
      until not Process32Next(SnapProc, ProcEntry);
  finally
    CloseHandle(SnapProc);
  end;
end;

а если быть точнее на эту функцию TerminateProcess, одно не пойму почему антивирь ругается и как сделать так чтобы не ругался!

--------------------

Poseidon

Дата 21.11.2008, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133

А как ты хотел? Завершение чужого процесса - это подозрительное действие (тебе ведь так антивирус говорит).

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Riply

Дата 21.11.2008, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: нет
Всего: 32

Цитата(elestrago @ 21.11.2008, 10:21

)

Ты уверен, что ругается именно на TerminateProcess ?
Попробуй закоментировать ее в данной процедуре и прописать, например, в другом юните.
Будет ли он тогда ругаться ?

--------------------

Решение задач под заказ

Alexeis

Дата 21.11.2008, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 2
Всего: 459

elestrago, если антивирус ругается на программу, то есть 2 варианта
1) Отправить программу в службу поддержки с пометкой False Positive и дождаться исправления сигнатур или эвристики.
2) Сменить антивирь.

Delphi тут ни при чем.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

elestrago

Дата 21.11.2008, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

да говорит мая прога вероятно неизвестный ВИРУС smile

Alexeis это конечно хорошо но мне это не подходит!!

Цитата

Попробуй закоментировать ее в данной процедуре и прописать, например, в другом юните.

ща попробую smile

я в принцепе пробовал вставлять этот кусок кода в другую процедуру но не помогло, щас попробую в другой юнит запихать

Это сообщение отредактировал(а) elestrago - 21.11.2008, 11:12

--------------------

Alexeis

Дата 21.11.2008, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 2
Всего: 459

Цитата(elestrago @ 21.11.2008, 10:07

)

да говорит мая прога вероятно неизвестный ВИРУС

Попробуй снизить уровень эвристики.

--------------------

elestrago

Дата 21.11.2008, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

Alexeis, я знаю как сделать так чтобы антивирь не ругался на прогу но дело не в этом мне НЕхочется везде свою прогу в исключения сувать, мне код нужен нормальный чтобы антивирь не ругался на него

Добавлено @ 11:21
Riply, Твой вариант с другим юнитом помог спасиба!!

Тема закрыта!

Это сообщение отредактировал(а) elestrago - 21.11.2008, 11:22

--------------------

Alexeis

Дата 21.11.2008, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 2
Всего: 459

Цитата(elestrago @ 21.11.2008, 10:16

)

Alexeis, я знаю как сделать так чтобы антивирь не ругался на прогу но дело не в этом мне НЕхочется везде свою прогу в исключения сувать, мне код нужен нормальный чтобы антивирь не ругался на него

Тогда предлагаю решать вопрос так. Сначала погонять код на разных антивирях, посмотреть на их реакцию, если так реагирует только нод, то обращаться в их суппорт, пусть правят модуль эвристики, покажи им исходный код. Если возмущаться будут все антивири, то остается только smile

--------------------

Nastya

Дата 21.11.2008, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 27.3.2002
Где: Мариуполь

Репутация: нет
Всего: 44

http://new-forum.drweb.com/ - пишем сюда. Присылаем свои файлы на которые ругается там же внизу страницы. если это ложное срабатывание то его исключат из базы или отпишутсья что да как

--------------------

Что бы понять рекурсию, надо понять рекурсию

"Профессионал - это человек сделавший все возможные ошибки в очень узкой области". Н.Бор

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Разные вопросы \| Следующая тема »