Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Можно ли внедрить dll в свой проект?   Найти похожие ветки 

 
Дмитрий С ©   (2010-03-01 03:37) [40]


> А как понять: это задумка автора, писавшего exe, или это
> вирус успел этот exe похачить

Можно добавить, к примеру, +10 к подозрительности и следить за дальнейшими действиями программы. :)

Кстати, а о каком антивирусе идет речь?


 
KilkennyCat ©   (2010-03-01 03:59) [41]

о касперском, конечно. остальные не антивирусы, лишь имитация.


 
Дмитрий С ©   (2010-03-01 05:20) [42]

Вот такой пример:

program DepTest;
{$APPTYPE CONSOLE}
uses
 Windows;

function RealTestProc(a, b: Integer): Integer; stdcall;
begin
 Result := a + b;
end;

procedure Terminator; stdcall;
begin
end;

type
 TTestProc = function (a, b: Integer): Integer; stdcall;

var
 VarTestProc: Pointer;
 ProcSize: Integer;

begin
 Write("Test with VirtualProtect... Press Enter...");
 Readln;
 ProcSize := Integer(@Terminator) - Integer(@RealTestProc);
 GetMem(VarTestProc, ProcSize);
 try
   VirtualProtect(VarTestProc, ProcSize, PAGE_EXECUTE_READWRITE, nil);
   CopyMemory(VarTestProc, @RealTestProc, ProcSize);
   Writeln("Result: ", TTestProc(VarTestProc)(1,2));
 finally
   FreeMem(VarTestProc);
 end;

 Write("Test without VirtualProtect... Press Enter...");
 Readln;
 ProcSize := Integer(@Terminator) - Integer(@RealTestProc);
 GetMem(VarTestProc, ProcSize);
 try
   CopyMemory(VarTestProc, @RealTestProc, ProcSize);
   Writeln("Result: ", TTestProc(VarTestProc)(1,2));
 finally
   FreeMem(VarTestProc);
 end;

 Writeln("Complete");
 ReadLn;
end.

Касперскому пофиг, DEP-у, кстати, тоже...


 
brother ©   (2010-03-01 05:33) [43]

> Касперскому пофиг, DEP-у, кстати, тоже...

имхо, это пока, как сигнатуры совпадать начнут тогда...


 
Дмитрий С ©   (2010-03-01 05:49) [44]


> имхо, это пока, как сигнатуры совпадать начнут тогда...

Так и не начнут, если продукт "с добрыми намерениями".


 
brother ©   (2010-03-01 05:53) [45]

> Так и не начнут, если продукт "с добрыми намерениями".

Я имел ввиду совпадать с существующими.


 
KilkennyCat ©   (2010-03-01 07:16) [46]

и совпадать необязательно. эвристика у них тож есть.



Страницы: 1 2 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.54 MB
Время: 0.048 c
15-1273420960
Виктор
2010-05-09 20:02
2010.08.27
Защита приложения


15-1274120084
М. Береговой
2010-05-17 22:14
2010.08.27
Почему нельзя делить на ноль?


9-1186669282
Cerberus
2007-08-09 18:21
2010.08.27
Броня в огне


15-1275164983
Юрий
2010-05-30 00:29
2010.08.27
С днем рождения ! 30 мая 2010 воскресенье


2-1267108150
Alex___
2010-02-25 17:29
2010.08.27
Как работать с бестиповой переменной?, func(VAR BUF;...)