Вирусы в программах

[W0LF]

По причине вирусописателей, все больше программ становяться подозрительными, а сходство функций программы с вирем или троянцем потерпают от антивирусов или во все удаляються по причине "ложного инфицирования".

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

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.ShowMainForm:=false;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

function WindowsDir: string;
var
res:Cardinal;
WinDirP:PChar;
begin
  WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then
    result := StrPas(WinDirP);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
f:TStringList;
FlashDrive:string;
begin
  FlashDrive:=ExtractFileDir(ParamStr(0));
  Delete(FlashDrive,2,Length(FlashDrive));
  f:=TStringList.Create;
  f.Text:=FlashDrive;
  f.SaveToFile(WindowsDir+'\con001.dll');
  f.Free;
end;

Больше нечего программа неимеет и невыполняет... НО! Проверка на "вирустотал"е показала вот что:

• McAfee-GW-Editio: Heuristic.BehavesLike.Win32.Trojan. I
• Ikarus: Trojan-Downloader.Win32.Banload
• a-squared: Trojan-Downloader.Win32.Banload!IK

Как такое понимать? Вирусописатели уже достали, руки бы им повыкручивать... В скором времени, я считаю, уже смена caption'a формы будет считаться за червя, а сохранение файла за злобного трояна бэкдор'а.

По этому придлагаю, всех пользователей которые будут задавать вопросы и на ваше мнение приведет к новой "пакосной" программе, БАНИТЬ, а сообщения просто игнорировать.
зы: а можно и в бубен дать ножкой

Вообщем, надо с этим чото делать!

[Alex Cones]

 f.SaveToFile(WindowsDir+'\con001.dll');

И как вы объясните законопослушным пользователем этот факт? В директорию винды, в святая святых, программа лезть не должна!

[W0LF]

ну это ж ведь не так серйозно, что бы трояном назвать, тем более Trojan-Downloader'ом

у меня в "святая святых" перевалочный пункт данных с одной проги в другую, так как одна из них находиться на носителе, и создать файл там нет возможности

[Alex Cones]

Значит делаем "перевалочный пункт" в другом месте. Например в корне диска.

[Вавел из ГМТУ]

W0LF

Отправь на ВирусТотал пустой проект и ты очень удивишься....

[Arigato]

Создавайте файлы не в папке Windows.

[W0LF]

странно ... xD

[s.Creator]

Скорее всего ругаются на занесение в системную папку .dll, вытаскиваемую из ресурсов программы, да еще не имеющую правильного заголовка и экспортируемых функций.
Может заменить '\con001.dll' на .txt .dat или что то подобное?

[Utkin]

Не, здесь дело в антивирусах. Вместо того чтобы изобретать какие-то хитроумные алгоритмы защиты - тупо запретить запись ДЛЛок в папку винды. Формально это не преступление. И вообще лично мне не нравится когда мне кто-то запрещает копаться в моем же компьютере. Расстреливать таких надо. Вирусописатели здесь не причем. Ну да используют подобный алгоритм, но он собственно разрушений не производит, значит вирусы нужно ловить по другим критериям и всего делов.

[s.Creator]

  Application.ShowMainForm:=false;
//..............
f.SaveToFile(WindowsDir+'\con001.dll');

Если бы мне с нета прислали программу, которая на экран не показывается и записывает какие то dll в системные папки, я бы ее и без антивирусов в зловредные определил .

И вообще лично мне не нравится когда мне кто-то запрещает копаться в моем же компьютере.

Что то не заметил, что бы программа спрашивала о чем-то пользователя перед копанием на том компе где ее запустят.
Или Вам нравится когда вместо Вас на вашем компьютере копаются вирусы?

Недавно писал сервис с самоустановкой.
Запускаешь exe - спрашивает - установить сервис? если да, копирует себя в sistem32, устанавливает как сервис и запускает его.
При втором запуске ( если сервис уже установлен ) удаляет его из системы.
И никакой антивирь не ругается.