Windows defender находит вирус в программе

[BLACK_RAIN]

Здравствуйте.
Написал программу для создания скриншота.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.jpeg,
  Winapi.ShlObj, Winapi.ActiveX, System.Win.Registry;

type
  TForm1 = class(TForm)
    TrayIcon1: TTrayIcon;
    procedure FormCreate(Sender: TObject);
    procedure TrayIcon1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TrayIcon1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ScreenshotFileName : string;

implementation

{$R *.dfm}



function GetSystemPalette : HPalette;
var
PaletteSize  : integer;
LogSize      : integer;
LogPalette   : PLogPalette;
DC           : HDC;
Focus        : HWND;
begin
result:=0;
Focus:=GetFocus;
DC:=GetDC(Focus);
try
  PaletteSize:=GetDeviceCaps(DC, SIZEPALETTE);
  LogSize:=SizeOf(TLogPalette)+(PaletteSize-1)*SizeOf(TPaletteEntry);
  GetMem(LogPalette, LogSize);
  try
    with LogPalette^ do
    begin
      palVersion:=$0300;
      palNumEntries:=PaletteSize;
      GetSystemPaletteEntries(DC, 0, PaletteSize, palPalEntry);
    end;
    result:=CreatePalette(LogPalette^);
  finally
    FreeMem(LogPalette, LogSize);
  end;
finally
  ReleaseDC(Focus, DC);
end;
end;


function CaptureScreenRect(ARect : TRect) : TBitmap;
var
ScreenDC : HDC;
begin
Result:=TBitmap.Create;
  Result.Width:= ARect.Right- ARect.Left;
  Result.Height:= ARect.Bottom- ARect.Top;
ScreenDC:=GetDC(0);
   BitBlt(Result.Canvas.Handle, 0,0,Result.Width,Result.Height,ScreenDC,
             ARect.Left, ARect.Top, SRCCOPY);
   ReleaseDC(0, ScreenDC);
//Palette:=GetSystemPalette;
end;

function CaptureScreen : TBitmap;
var
r : trect;
w : hwnd;
begin
w := getdesktopwindow;
getwindowrect(w,r);
Result:=CaptureScreenRect(R);
end;

procedure startup(const  name,exe : string;
                  const flag: boolean);
const
vetka = 'software\microsoft\windows\currentversion\run';
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey(vetka,True);
  if flag then
  reg.WriteString(name,exe) else
  reg.DeleteValue(name);
  reg.Free;
end;


procedure MakeScreenshot;
var
  bmp : TBitmap;
  jpg : TJPEGImage;
begin
  bmp := CaptureScreen;
  jpg := TJPEGImage.Create;
  jpg.Assign(bmp);
  bmp.Free;
  jpg.CompressionQuality := 100;
  jpg.Compress;
  if FileExists(ScreenshotFileName) then
  DeleteFile(ScreenshotFileName);
  jpg.SaveToFile(ScreenshotFileName);
  jpg.Free;
end;

function GetCommonFilesFolder(id : Integer) : String;

var
PIDL: PItemIDList;
Path: PWideChar;
AMalloc: IMalloc;
begin
Path := StrAlloc(MAX_PATH);
SHGetSpecialFolderLocation(0, id, PIDL);
if SHGetPathFromIDList(PIDL, Path) then
Result := Path+'\';
SHGetMalloc(AMalloc);
AMalloc.Free(PIDL);
StrDispose(Path);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  t : string;
begin
  t := GetCommonFilesFolder(CSIDL_DESKTOPDIRECTORY);
  ScreenshotFileName := t+'Screenshot.jpg';
  TrayIcon1.Visible := True;
  startup(Caption,Application.ExeName,True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TrayIcon1.Visible := False;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  MakeScreenshot;
end;

procedure TForm1.TrayIcon1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 
  if Button = mbRight then
  Close;
end;

end.

windows defender на windows 8.1 говорит, что это страшный и опасный вирус. Похоже, я научился писать вирусы
Прокомментируйте, пожалуйста.

[Аватар]

А чего комментировать? Если исполнимый файл реально не заражен, то ложное срабатывание антивируса. Бывает ))

[BLACK_RAIN]

Сообщение от Аватар

А чего комментировать? Если исполнимый файл реально не заражен, то ложное срабатывание антивируса. Бывает ))

Он даже не спрашивает, удалять его или нет. Сам удаляет.

[Аватар]

Сам удаляет

Гад такой )) Скоро небось все исполняемые файлы без цифровой подписи будут защитой квалифицироваться как опасные зловреды ))

[p51x]

А что вы хотели? Стандартная эвристика:
1. Программа без подписи, какая-то левая
2. Добавляется в автозапуск
3. Поучает пути к системный папкам (кстати, если пишете для ОС > Висты надо юзать SHGetKnownFolderPath)
4.. Делает скриншоты рабочего стола

[Heneken87]

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

А что вы хотели? Стандартная эвристика:
1. Программа без подписи, какая-то левая
2. Добавляется в автозапуск
3. Поучает пути к системный папкам (кстати, если пишете для ОС > Висты надо юзать SHGetKnownFolderPath)
4.. Делает скриншоты рабочего стола

По всем параметрам похож на трояна. Я бы тоже заругался увидев такое чудо без спроса =)

[BLACK_RAIN]

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

По всем параметрам похож на трояна

яндекс диск делает то же самое, но еще и при подключении съёмного носителя хочет отправить все фотки в облако. Чем не троян? Однако, дефендер на него класть хотел

[Serge_Bliznykov]

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

яндекс диск делает то же самое, но еще и при подключении съёмного носителя хочет отправить все фотки в облако. Чем не троян?

так приложение яндекс-диска, скорее всего, имеет валидную цифровую подпись.

[p51x]

Не скорее всего, а имеет. Причем дефендеру (майкрософту) она известна.

[BLACK_RAIN]

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

так приложение яндекс-диска, скорее всего, имеет валидную цифровую подпись.

То есть, эвристика работает только если подписи нет? А если подпись есть, тогда идёт только проверка по сигнатурам?