Показать сообщение отдельно

Antivirus Detector v0.3 [Beta] (Delphi Module)
  #8  
Старый 24.02.2010, 14:48
Fliplab
Участник форума
Регистрация: 29.07.2008
Сообщений: 128
С нами: 9360320

Репутация: 34
По умолчанию Antivirus Detector v0.3 [Beta] (Delphi Module)

Код:
// Kaspersky On-Access Scanner Issue
function IsKlif: Boolean;
begin
  if DriveExist('drivers\klif.sys') then
    Result := True
  else
    Result := False;
end;

// Legacy Kaspersky Service Issue
function IsKavAVP: Boolean;
begin
  if IsService('avp') then
    Result := True
  else
    Result := False;  
end;

// Trend Micro Internet Security Issue
function IsTrendMicro: Boolean;
begin
  if IsRing0('\\.\TMACTMON') then
    Result := True
  else
    Result := False;
end;

// Malwarebytes' Anti-Malware Issue
function IsAntiMalware: Boolean;
begin
  if (DriveExist('drivers\mbam.sys')) or (DriveExist('drivers\mbamswissarmy.sys')) then
    Result := True
  else
    Result := False;
end;

// Zillya! Antivirus Issue
function IsZillya: Boolean;
begin
  if DriveExist( 'drivers\ZFMSYS.sys') then
    Result := True
  else
    Result := False;
end;

// Lavasoft Ad-Aware Issue
function IsAdAware: Boolean;
begin
  if (DriveExist('drivers\lbd.sys')) or (IsRing0('\\.\LBD')) then
    Result := True
  else
    Result := False;
end;

// Microsoft Security Essentials Issue
function IsMSecEssentials: Boolean;
begin
  if (DriveExist('drivers\mpfilter.sys')) or (IsUninstall('Microsoft Security Essentials')) then
    Result := True
  else
    Result := False;
end;

// Advanced SystemCare Issue
function IsAdvancedSysCare: Boolean;
begin
  if IsUninstall('Advanced SystemCare') then
    Result := True
  else
    Result := False;
end;

// Antivirus Stop! Issue
function IsAvirStop: Boolean;
begin
  if IsUninstall('Антивирус Stop!') then
    Result := True
  else
    Result := False;
end;

// USBGuard Issue
function IsUSBGuard: Boolean;
begin
  if IsUninstall('USBGuard') then
    Result := True
  else
    Result := False;
end;

// AnVir Task Manager Issue
function IsAnvitTaskMgr: Boolean;
begin
  if IsUninstall('AnVir Task Manager') then
    Result := True
  else
    Result := False;
end;

// Spy Hunter Issue
function IsSpyHunter: Boolean;
begin
  if IsUninstall('SpyHunter') then
    Result := True
  else
    Result := False;
end;

// DrWeb Issue
function IsDrWeb: Boolean;
begin
  if (IsService('spidernt')) or (DriveExist('drivers\spider.sys')) then
    Result := True
  else
    Result := False;
end;

// AVG Anti-Virus Issue
function IsAvgAv: Boolean;
begin
  if (IsService('Avg7Alrt')) or (DriveExist('drivers\avg7rsxp.sys'))
     or (DriveExist('drivers\avgmfx86.sys')) or (DriveExist('drivers\avgmfx64.sys')) then
    Result := True
  else
    Result := False;
end;

// Agnitum Outpost Firewall Issue
function IsOutpostFire: Boolean;
begin
  if (DriveExist('drivers\afwcore.sys')) or (DriveExist('drivers\afw.sys'))
    or (IsUninstall('Outpost')) or (DriveExist('filt\aswfilt.dll')) or (DriveExist('drivers\sandbox.sys')) then
    Result := True
  else
    Result := False;
end;

// Norton (Symantec) AntiVirus Issue
function IsSymantec: Boolean;
begin
  if (IsService('CLTNetCnService')) or (IsService('ccEvtMgr')) then
    Result := True
  else
    Result := False;
end;

// Symantec AntiVirus AutoProtect Issue
function IsSymantecAutoProtect: Boolean;
begin
  if (IsService('ccEvtMgr')) or (DriveExist('drivers\eectrl.sys')) then
    Result := True
  else
    Result := False;
end;

// Symantec AntiVirus Content Filtration Issue
function IsSymantecFiltr: Boolean;
begin
  if DriveExist('drivers\SYMTDI.sys') then
    Result := True
  else
    Result := False;
end;

// Avast! Issue
function IsAvast: Boolean;
begin
  if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\avast!\InstallLocation') then
    Result := True
  else
    Result := False;
end;

// Avira AntiVir Issue
function IsAvira: Boolean;
begin
  if (DriveExist('drivers\avgio.sys')) or (DriveExist('drivers\avgntflt.sys'))
    or (DriveExist('drivers\avgntdd.sys')) then
    Result := True
  else
    Result := False;
end;

// BitDefender AntiVirus Issue
function IsBitDefender: Boolean;
begin
  if DriveExist('drivers\bdrsdrv.sys') then
    Result := True
  else
    Result := False;
end;

// BitDefender Antivirus 2008 Issue
function IsBitDefender2008: Boolean;
begin
  if IsService('vsserv') then
    Result := True
  else
    Result := False;
end;

// CA Anti-Virus Issue
function IsCaAv: Boolean;
begin
  if (IsService('InoRT')) or (IsService('InoRPC')) or (IsService('InoTask'))
    or (IsService('InoNmSrv')) or (IsService('vetmsgnt')) then
    Result := True
  else
    Result := False;
end;

// GDATA AntiVirusKit Issue
function IsGDATA: Boolean;
begin
  if (IsService('AVKWCtl')) or (IsService('AVKService')) then
    Result := True
  else
    Result := False;
end;
 
Ответить с цитированием