Модераторы: LSD

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> После компиляции получаем вирус!!!! А вам слабо? 
:(
    Опции темы
ivan219
  Дата 19.2.2007, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля
Простой код
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
    LineArray: Array[1..19,1..4] of Integer=((0,0,816,0),(0,22,816,22),
                                             (0,116,816,116),(215,44,816,44),
                                             (215,87,816,87),(143,1,143,116),
                                             (0,-1,0,116),(215,1,215,116),
                                             (390,1,390,116),(816,1,816,116),
                                             (302,43,302,87),(602,1,602,21),
                                             (443,45,443,115),(496,45,496,115),
                                             (549,45,549,115),(602,45,602,115),
                                             (655,45,655,115),(708,45,708,115),
                                             (761,45,761,115));

    LineTextXY: Array[1..7,1..2] of Integer=((5,4),(148,4),
                                             (231,4),(219,26),
                                             (399,4),(633,4),
                                             (514,26));
    LineText: Array[1..7] of String=('Тип трансформатора',
                                      'Мощность',
                                      'Ток первичной обмотки',
                                      'Вывода первичных обмоток',
                                      'Напряжение вторичных обмоток',
                                      'Ток вторичных обмоток',
                                      'Вывода вторичных обмоток');
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var
  I: Integer;
begin
 Canvas.Pen.Width:=2;
 //Canvas.Font.Style:=[fsBold];
 for I:=1 to 19 do
  begin
   Canvas.MoveTo(LineArray[I,1]+10,LineArray[I,2]+10);
   Canvas.LineTo(LineArray[I,3]+10,LineArray[I,4]+10);
  end;
 for I:=1 to 7 do Canvas.TextOut(LineTextXY[I,1]+10,LineTextXY[I,2]+10,LineText[I]);
end;
end.

Dr.Web определил -> Project1.exe - инфицирован Trojan.DownLoader.8707
Виновата строка 
Код

  for I:=1 to 7 do Canvas.TextOut(LineTextXY[I,1]+10,LineTextXY[I,2]+10,LineText[I]);

Без неё всё компилится нормально smile 
Интересно что это smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
0LineGate
Дата 19.2.2007, 23:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула
Хых... Вирус есстественно!  smile  smile  smile .... А если уж на то пошло, почекай апдейт на Др.Вэбе, и лично я советую Nod32 - самая реальная тема, не один вирус не пролезет!
PM MAIL WWW Skype   Вверх
Romikgy
Дата 20.2.2007, 00:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa
Цитата(ivan219 @  19.2.2007,  22:45 Найти цитируемый пост)
 for I:=1 to 7 do Canvas.TextOut(LineTextXY[I,1]+10,LineTextXY[I,2]+10,LineText[I]);

поменяй данный кусок кода на другую интерпретацию


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
ivan219
Дата 20.2.2007, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля
0LineGate, респект землекам smile 
Абдёйты свежие и ты не понял, вируса уменя нет это Dr.Web определил мою откомпилированную прогу как вирус smile 

Romikgy, Непонял что ты мел в виду smile 

Да и если рисовать не на Canvas формы а на Image1.Canvas то этот вирус себя не проявляет smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Alexeis
Дата 20.2.2007, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград
ivan219, отправь прогу в службу доктора веба. Они такие глюки быстро исправляют. smile 


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Nicholas_S
Дата 20.2.2007, 03:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург
не так давно наткнулся на похожую ситуацию, только кричал уже AVP 6 - программулька обращалась к десктопу по FindWindow().


--------------------
...все в мире относительно
PM   Вверх
MetalFan
Дата 20.2.2007, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow
выкиньте антивирусы) все равно против хорошего вируса не спасут ;)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Yanis
Дата 20.2.2007, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва
Цитата(MetalFan @  20.2.2007,  09:42 Найти цитируемый пост)
иньте антивирусы) все равно против хорошего вируса не спасут ;) 

К счастью, таких меньшинство smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Sunvas
Дата 20.2.2007, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно
А это только DrWeb ругается и поднимает ложную тревогу? А ну-ка.. Сейчас Касперскому дадим...
Нет. Касперский не ругается. Понял. DrWeb-a вычеркиваю. Давайте в холивар а?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
MetalFan
Дата 20.2.2007, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow
Sunvas, ДрВеб рулит адназначна! ;) касперыч у меня уронил винду( после чего был убит на месте.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Sunvas
Дата 20.2.2007, 12:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно
Цитата(MetalFan @  20.2.2007,  12:40 Найти цитируемый пост)
Sunvas, ДрВеб рулит адназначна! ;)

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


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
MetalFan
Дата 20.2.2007, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow
Sunvas, вырубишь риалтайм сканнер и все в шоколаде)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
DeadLine
Дата 20.2.2007, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем
Nod32 forever
PM   Вверх
Sunvas
Дата 20.2.2007, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно
Цитата(MetalFan @  20.2.2007,  16:15 Найти цитируемый пост)
Sunvas, вырубишь риалтайм сканнер и все в шоколаде)

А потом включать.. Тем более у меня КИС (принципиально как всегда пирацкий), а комп всегда в нете. Так что он мне нужен.



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Alexeis
Дата 20.2.2007, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград
Цитата(Sunvas @  20.2.2007,  16:38 Найти цитируемый пост)
принципиально как всегда пирацкий

 smile  Я бы скорее сказал безпринципно пиратский. Принципы нужны как раз чтобы его не использовать!

Цитата(Sunvas @  20.2.2007,  12:45 Найти цитируемый пост)
что Веб на всех нападает и приручению не подлежит!

Я же говорю отправь проект. У меня тоже такое случалось раза 3. Базы правят за пару часов, после чего качаешь апдейт и больше ни каких проблем с этипм проектом. Уже обсуждали ни раз. У него просто короткие сигнатуры вирусов, от того и ловит много лишнего, зато и мало что пропускает.


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила раздела «Флейм»
Sneg0k

Добро пожаловать в «Флейм».

В разделе не действуют многие правила:

  • Можно оффтопить(умеренно)
  • Можно общаться на темы, не только связанные с программированием.

Строго запрещено:

  • Размещать рекламу
  • Обсуждать политику
  • Оскорблять друг-друга и переходить на личности
  • Наезжать, провоцировать других участников форума
  • Материться
  • Троллить

Напоминаем о существовании волшебной кнопочки "Репорт". Если вы увидели сообщение, несовместимое с жизнью, просьба подвести на нее курсор и клацнуть левой клавишей мышки. Тем самым вы сможете призвать злого, но жутко справедливого джина-модератора, который нашлет порчу на злостного нарушителя. Кстати - счётчик сообщений здесь не растёт.


Глас Винграда:


Глас Философии:

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Sneg0k

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

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0622 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.