heur.trojan.win32 в собственной программе ....

[maximfallen]

пишу софт на  delphi .  пару дней назад  в при компиляции  и в старой версии   находит  этот вирус ,  в других  прогах  после компиляции  нет ....

файл не подкрепить, происходит либо блок либо удаление 

од  прилагаю 

Спойлер

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Timer1: TTimer;
    Memo2: TMemo;
    Button2: TButton;
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.Button1Click(Sender: TObject);
begin
 if listbox1.Selected[0]=true then memo1.Lines.savetofile('.\0.txt');
 if listbox1.Selected[1]=true then memo1.Lines.savetofile('.\1.txt');
 if listbox1.Selected[2]=true then memo1.Lines.savetofile('.\2.txt');
 if listbox1.Selected[3]=true then memo1.Lines.savetofile('.\3.txt');
 if listbox1.Selected[4]=true then memo1.Lines.savetofile('.\4.txt');
 if listbox1.Selected[5]=true then memo1.Lines.savetofile('.\5.txt');
 if listbox1.Selected[6]=true then memo1.Lines.savetofile('.\6.txt');
 if listbox1.Selected[7]=true then memo1.Lines.savetofile('.\7.txt');

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
memo1.clear;
memo2.clear;
memo2.Lines.LoadFromFile('.\8.tx1');
FORM2.VISIBLE:=TRUE;
listbox1.items.add(MEMO2.Lines[0]);
listbox1.items.add(MEMO2.Lines[1]);
listbox1.items.add(MEMO2.Lines[2]);
listbox1.items.add(MEMO2.Lines[3]);
listbox1.items.add(MEMO2.Lines[4]);
listbox1.items.add(MEMO2.Lines[5]);
listbox1.items.add(MEMO2.Lines[6]);
listbox1.items.add(MEMO2.Lines[7]);

listbox1.items.add('{НАСТРОЙКА}');
listbox1.items.add('{О ПРОГРАММЕ}');
memo2.Visible:=false;
form2.Caption:='remember v.0.0.003     *****@*****.tld';

end;

procedure TForm2.ListBox1Click(Sender: TObject);
begin
 if listbox1.Selected[0]=true then memo1.Lines.LoadFromFile('.\0.txt');
 if listbox1.Selected[1]=true then memo1.Lines.LoadFromFile('.\1.txt');
 if listbox1.Selected[2]=true then memo1.Lines.LoadFromFile('.\2.txt');
 if listbox1.Selected[3]=true then memo1.Lines.LoadFromFile('.\3.txt');
 if listbox1.Selected[4]=true then memo1.Lines.LoadFromFile('.\4.txt');
 if listbox1.Selected[5]=true then memo1.Lines.LoadFromFile('.\5.txt');
 if listbox1.Selected[6]=true then memo1.Lines.LoadFromFile('.\6.txt');
 if listbox1.Selected[7]=true then memo1.Lines.LoadFromFile('.\7.txt');
 if listbox1.Selected[8]=true then FORM1.VISIBLE:=TRUE;
 if listbox1.Selected[9]=true then SHOWMESSAGE('REMEMNBER 001');
{listbox1.items.Add('газ');
listbox1.items.Add('свет');
listbox1.items.Add('вода');
listbox1.items.Add('расчет');
listbox1.items.Add('о программе');
 listbox1.items.Add('как пользоваться?');
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button6.Enabled:=false;
button1.Caption:='газ';
button2.Caption:='свет';
button3.Caption:='вода';
button4.Caption:='сегодня';
if listbox1.Selected[0]=true then edit1.Text:=memo1.Lines[0];

}
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;

end.

 

[Friend]

3 часа назад, maximfallen сказал:

этот вирус ,  в других  прогах  после компиляции  нет

Пожалуйста, не пишите вирусы, их и так хватает 😞

P.S.  Посмотрите/изучите статьи: 
https://support.kaspersky.ru/common/error/other/1870
https://support.kaspersky.ru/common/error/other/15332
https://support.kaspersky.ru/common/diagnostics/15898
Контакты поддержки: https://support.kaspersky.ru/b2c/ru#contacts

[maximfallen]

41 минуту назад, Friend сказал:

Пожалуйста, не пишите вирусы, их и так хватает 😞

P.S.  Посмотрите/изучите статьи: 
https://support.kaspersky.ru/common/error/other/1870
https://support.kaspersky.ru/common/error/other/15332
https://support.kaspersky.ru/common/diagnostics/15898
Контакты поддержки: https://support.kaspersky.ru/b2c/ru#contacts

не пишу, писал  себе блокнот....а если знаете код, можете посмотреть  и поймете там не  вирус