Форум РадиоКот

VoLT писал(а):sachok, твои программки больны индюком народ будте бдительны

"Лаборатория Касперского" обнаружила вирус, заражающий Delphi-приложения на этапе разработки

«Лаборатория Касперского», ведущий производитель систем защиты от вредоносного и нежелательного ПО, хакерских атак и спама, сообщает о появлении вируса Virus.Win32.Induc.a, распространяющегося через интегрированную среду разработки программного обеспечения CodeGear Delphi. Защита от новейшей угрозы уже реализована во всех продуктах «Лаборатории Касперского».

Для своего размножения Virus.Win32.Induc.a использует механизм двушагового создания исполняемых файлов, реализованный в среде Delphi. Согласно данному механизму, исходный код разрабатываемых приложений сначала компилируется в промежуточные .dcu-модули, из которых затем собираются исполняемые в Windows файлы.

Новый вирус активизируется при запуске заражённого им приложения и проверяет, установлен ли на компьютере пакет среды разработки Delphi версий 4.0-7.0. В случае обнаружения пакета, Virus.Win32.Induc.a внедряется в исходный файл базовых констант Delphi Sysconst.pas и компилирует его, в результате чего получается модифицированный откомпилированный файл базовых констант Sysconst.dcu.

Практически каждый проект Delphi включает строчку "use SysConst", поэтому заражение одного системного модуля ведет к инфицированию всех разрабатываемых приложений. Это приводит к тому, что в результате модификации Sysconst.dcu, в дальнейшем все программы, создаваемые в заражённой среде, содержат код нового вируса. Изменённый pas-файл вирусу больше не нужен и удаляется.

В настоящее время вирус не несет функциональной нагрузки помимо самого заражения, скорее он предназначен для демонстрации и тестирования нового вектора заражений. Отсутствие заметной и деструктивной функциональности, инфицирование новым вирусом некоторых версий популярного интернет-пейджера QIP, а также обычная практика публикации .dcu-модулей разработчиками уже привели к широкому распространению Virus.Win32.Induc.a во всем мире. Вполне вероятно, что в будущем он может быть доработан киберпреступниками в сторону увеличения деструктивности.

Проверьте свои установки Delphi (версий с 4 по 7 включительно) и, если найдёте у себя SysConst.bak, выполните следующие действия:

1. Удалите SysConst.dcu
2. Скопируйте SysConst.bak в SysConst.dcu. Важно именно скопировать, а не переименовать, чтобы SysConst.bak тоже остался на диске - это убережёт систему от повторного заражения, т.к. вирус не производит заражения, если находит SysConst.bak, считая, что свою работу он уже выполнил.

Не пытайтесь найти вирус в SysConst.pas: его там НЕТ!

Rushack писал(а):tviktor, Прицепляй к своей программе Com.pas (во вложениях)
и можешь свободно работать с портом )

Я его во многих проектах использую, багов замечено не было

mr_smit писал(а):А как выставить произвольную скорость COM порта???

Magadan69 писал(а):Не бейте сразу камнями. Дайте кто-нибудь готовый примерчик, для Делфи как считать из FT232R ЕЕПРОМ в массив (а лучше сразу в бин-файл).
Просто взял за базу исходник готовой программы. Переделал под свои нужды. Юсер Арию писать-читать получилось. А вот функцией "FT_ReadEE", никак не могу воспользоваться. В даташите нет примера на нее. А также на "FT_WriteEE".
Никак не компилируется проект, постоянно останавливается на компиляции этой функции ("FT_ReadEE").
С ошибкой "E2066 Missing operator or semicolon". А если ее отключить, то компилируется, но соответственно не читает ФТ-ху. То-ли переменные надо как-то по особому обзывать, то-ли я чего-то еще не знаю.

witia03 писал(а):на офф ... исходники

//Это уже было в готовом исходнике-----------------------
[color=#00BF00]function FT_ReadEE(ftHandle:DWord; WordAddr:DWord; WordRead:Pointer):FT_Result; stdcall; External FT_DLL_Name  name 'FT_ReadEE';
.                        .
.                        .
//------------------------------------------------------------------------
procedure TForm1.FT_ReadEEClick(Sender: TObject);
var
   Addr:dword;
   EEReadW:word;
begin
//------------------------------------------------
//Здесь открываю порт
//-----------------------------------------------
 Addr:=$10; //Допустим адрес $10 считываю
 Res:=FT_ReadEE(FT_Handle,Addr,@EEReadW); Останавливается компиллятор здесь
    if Res<>0 then //  <>
       begin  //Если не прочлась EEPROM
           MessageDlg('FT_ReadEЕ не прочлась ' + DeviceDescription,mtInformation,[mbOK],0);
           Exit;
        end;
ShowMessage('EEReadW='+inttohex(ord(EEReadW),4));
//---------------------------------------------------
//Здесь закрываю порт
//--------------------------------------------------
end;