Запущен ли Softice?

Previous  Top  Next

    
 

 

 

Code:

//SoftIce in W9x

 

function IsSoftIce95Loaded: boolean;

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;

// SoftIce in NT OS

 

function IsSoftIceNTLoaded: boolean;

var

hFile: Thandle;

begin

result := false;

hFile := CreateFileA('\.NTICE', 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;

//to detect it

if IsSoftIce95Loaded or IsSoftIceNTLoaded then

Application.Terminate

   {if you insert a "Nag" (Message telling him he uses SoftIce) then a amatuer cracker w'll find this protection in notime}

//bestway of using this thing is in "project Unit"

 

©Drkb::04513

Взято с Delphi Knowledge Base: http://www.baltsoft.com/