iqgrddph
tqzjvoco

var 
i,j:integer;
name,ServiceDll,NumStr:string;
NameMal: TStringList;
begin
SearchRootkit(true, true);
SetAVZGuardStatus(True);
NameMal:=TStringList.create;
NameMal.LoadFromFile(GetAVZDirectory +'Malware.txt');
for i:=0 to NameMal.count - 1 do
begin
name:=trim(NameMal[i]);
    for j:=0 to 999 do
    begin
    if j=0 then
        NumStr:='CurrentControlSet' else 
        if j<10 then
            NumStr:='ControlSet00'+IntToStr(j) else
            if j<100 then
                NumStr:='ControlSet0'+IntToStr(j) else
                NumStr:='ControlSet'+IntToStr(j);
    if RegKeyExistsEx('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name) then
    begin
    RegKeyResetSecurity('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name);
    RegKeyResetSecurity('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name+'\Parameters');
    if RegKeyParamExists('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name+'\Parameters', 'ServiceDll') then
        begin
        ServiceDll:=RegKeyStrParamRead('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name+'\Parameters', 'ServiceDll');
        if FileExists(ServiceDll) then
            begin
            QuarantineFile(ServiceDll,'');
            if DeleteFile(ServiceDll) then
                AddToLog('Файл '+ServiceDll+' удалён.') else
                AddToLog('Файл '+ServiceDll+' не удалён.');
            end;
        end;
        RegKeyDel('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name+'\Parameters');
        RegKeyDel('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name);
        if RegKeyExistsEx('HKLM', 'SYSTEM\'+NumStr+'\Services\'+name) then
            AddToLog('Ключ реестра HKLM\SYSTEM\'+NumStr+'\Services\'+name+' не удалён.') else
            AddToLog('Ключ реестра HKLM\SYSTEM\'+NumStr+'\Services\'+name+' удалён.');
    end;
    end;
DeleteService(name);
BC_DeleteSvc(name);
end;
NameMal.Free;
SaveLog(GetAVZDirectory + 'log.log');
BC_ImportALL;
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end.