Delphi-“вирус” проверьте свою установленную Delphi!

[Serge_Bliznykov]

1) Вы уж извините, но не очень я Вашему КОМОДО доверяю..
попробуйте, как минимум проверить на virustotal
(или запакуйте (желательно с паролем) project2.exe и выложите архив)

2) те проекты, что раньше компилировались без проблем - сейчас, после компиляции как ведёт себя Антивирус?

3) Создайте пустой проект с одной кнопкой и в ней попытайтесь использовать Rewrite и Writeln ...
каков результат?

[Roof]

2 Serge_Bliznykov - спасибо за отклик.
1) Проверил на virustotal.
http://www.virustotal.com/ru/analisi...6ec-1275367704

из 41 антивируса только очень внимательный COMODO обнаружил вирус.

2) с проектами, которые ранее компилировались без проблем антивирус не заморачивается.

3) Создал и использовал без проблем. Антивирус молчал.

Потом взял исходники - только .dpr .pas .dfm и скопировал в другую папку и там уже открыл в делфи и запустил из среды - результат - внимательный антивирус опять ругается.

Вот интересно - мой внимательный антивирус ругается если присутствует комбинация процедур

procedure TForm2.Button1Click(Sender: TObject);
var
  f: TextFile;
  FileName: TFileName;
  i, k: Integer;
  strTemp: string;
begin
  FileName := 'temp.txt';
  AssignFile(f, FileName);
  Reset(f);

  with StringGrid1 do
  begin
    for i := 0 to 4 do
      for k := 0 to 4 do
      begin
        Readln(f, strTemp);
        Cells[i, k] := strTemp;
      end;
  end;
  CloseFile(f);

end;

procedure TForm2.Button2Click(Sender: TObject);
var
  f: TextFile;
  FileName: TFileName;
  i, j: integer;
  sum: real;
begin
  FileName := 'result.txt';
  AssignFile(f, FileName);
  Rewrite(f);

  begin
    for i := 0 to 4 do
    begin
      sum := 0;
      for j := 0 to 4 do
        sum := sum + 12;
      Writeln(F, FloatToStr(sum));
    end;
  end;
  CloseFile(F);
end;

Т.е. чтение с файла и запись в файл, а если закомментировать тело любой из процедур - то все в порядке.

[Serge_Bliznykov]

из 41 антивируса только очень внимательный COMODO обнаружил вирус.

это называется паранойя...

добавьте Ваш проект (путь\Project2.exe) в исключения (я уверен, что в вашем антивируснике должно такое быть) и забудьте о проблеме..

[Roof]

2 Serge_Bliznykov - Спасибо, помогли.
А я уже думал подцепил вирус, который ко мне в exe прописывается.
Исключения есть, конечно. Но я чувствую мне надоест туда прописывать каждый новый проект с подобным кодом Сменю антивирус.

[3BEPOBOY]

У меня этот вирус позавчера НОД нашел. Причем раньше тот же НОД ничего не находил, а спустя неделю после прочтения темы как по заказу отыскал.
Как получилось:
вылезло сообщение что появился вирус, его название и вопрос что делать. Ну я удалил долго не думая. Потом копипастил название(к превеликому сожалению утеряно), прогуглил. На каком-то сайте вышло описание почти слово в слово что в данной теме.
Самое интересное что у меня на ноутбуке стоит BDS 2006.
А вот вспомнил деталь одну... Незадолго до этого открывал старый исходник, написанный в Delphi 7. Вот так

[XerSon]

Это тоже паранойя или как)))

program TestApp;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  IdHttp;

var
  s: string; // строковая переменная для HTML-кода
  http: TIdHttp; // обьект для работы с сетью
  sl: TStringList; // стринг лист

begin
  // создаём экземпляр объекта
  sl := TStringList.Create;
  // создаём экземпляр объекта
  http := TIdHTTP.Create(nil);
  // Вывели в окно консоли, текст Приветствия )))
  writeln('Welcome User's :)');
  // Оповестили о соединении с Virustotal.com
  writeln('Connect to Virustotal.com...');
  // Послали Get-запрос и записали в переменную s
  // HTML-код полученный с Virustotal.com
  s := s + http.Get('http://www.virustotal.com');
  // Записали в стринг лист HTML-код
  sl.Text := s;
  // Сохранили полученный HTML-код в текстовый фаил HTML.тхт
  sl.SaveToFile('HTML.txt');
  // Оповестили о сохранении тхт файла
  writeln('HTML-code save to file: HTML.txt');
  // Оповестили о завершении работы утилиты )))
  writeln('Application Close to 5 sec');
  // Выставляем задержку в 5 сек
  Sleep(5000);
  // Уничтожаем обьекты и закрываем Тилиту )))
  sl.Free;
  http.Free;
end.

D2009, приложение Упаковано перед отправкой UPX 3.07

VirusTotal report

[JTG]

Некое упакованное приложение что-то качает, сохраняет на диск и тут же завершает работу. Это не паранойя, это здравый смысл

Вот за что люблю Ikarus, так это за его дикую эвристику, не раз ловил подозрительные кряки, которые спустя неделю появлялись в сигнатурах других антивирусов под именем очередного trojan.agent.

[XerSon]

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

Некое упакованное приложение что-то качает, сохраняет на диск и тут же завершает работу. Это не паранойя, это здравый смысл

Упаковывают многие приложения
Качают аналогично многие
Сохраняют ...
Завершают работу, и т д.

Зы. Если не паковать то все чисто!
Если упаковать (проверял с UPX, PECompact, ASPack) то детект!

Что теперь скажите?

[JTG]

Значит надо не паковать //Капитан Очевидность

[GunSmoker]

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

Что теперь скажите?

А ты чего услышать-то хочешь?