SoftIce – один из самых лучших отладчиков на планете. Этим дебаггером очень часто пользуются как начинающими так и опытными кракерами. От последних вряд ли какая защита поможет, а вот от начинающих мы в силе защититься. Обидно, когда ты написал какую-нибудь утилиту, а деньги на пиво не получил.

В этой статье я приведу код, который будет блокировать SoftIce95.

Во-первых проверь, прописан ли у тебя в разделе uses модуль windows. Прописан? Нет, так прописывай и поехали дальше…

Напишем функцию когда SoftIce загружен и выхода из системы. Затем, в конче кода, в разделе initialization совместим их.

Привожу код с комментариями:

interface

implementation

uses windows;

function isSoftIce95Loaded: boolean; // функция загрузки SoftIce
 var hfile:thandle;
 begin
 result:=false;
 hfile:=createfileA('\\.\sice',generic_read or generic_write, 
      file_share_read or file_share_write, 
      nil, open_existing,  file_attribute_normal,0);
 if(hfile <> invalid_handle_value) then begin
 closehandle(hfile);
 result:=true;
 end;
end;

function winexit(flags:integer):boolean; // функция выхода из системы

// эта функция поможет 
//нам определить выходить ли из системы или продолжать работу программы
function Setprivilege (privilegename:string; enable:boolean):boolean; 
var
tpPrev, tp:TTokenPrivileges;
token: Thandle;
dwRetLen: Dword;
begin
result:= false;
openprocesstoken (GetCurrentProcess, token_adjust_privileges or token_query,token);
tp.privilegecount:=1;
if lookupprivilegeValue(nil, pchar(privilegename),tp.Privileges[0].luid) then begin
if enable then tp.privileges[0].attributes:=se_privilege_enabled
else tp.privileges[0].attributes:=0;
dwRetLen:=0;
result:=AdjustTokenPrivileges(token,false, tp, sizeof(tpprev),tpprev, dwretlen);
end;
closeHandle(token);
end;

begin 
if SetPrivilege ('SeShutdownPrivilege', true) then begin // если true то выходим из системы 
exitwindowsex(flags,0);
SetPrivilege('SeShutdownPrivilege', false); // иначе работаем дальше
end;
end;

initialization // начинаем сравнивать
if isSoftIce95Loaded then begin // если SoftIce95 загружен то
winexit (ewx_shutdown or ewx_force); // выходим из системы
halt;
end;

Ну вот и все, идем пить пиво :)

Я привел код для 95-ого SoftIce, но не забывай есть еще NT-ный

А от NT-ого тебе придется догадаться самому. Сразу говорю, поменять надо всего пару букв.

Если есть вопросы, задавай! Адрес тот же: crazy_script@mail.ru