Ни чего не работает

[aleksprom]

Сначала поимал какую то гадость в виде окна во весь раб.стол с надписью обнаружено вредоносное ПО идет сканирование.После сканирования выводится список якобы зараженных файлов (половина из них системные) и предлагается отправить sms на какой то номер.Я долго читать не стал.Загрузил комп с LiveCD Dr.Web, он что нашел все удалил.Загружаю,окно не вылазит, но не работает реестр, дисп.задач, антивирус(NOD32) не запускается, востановление системы из свойств компа вообще пропало.Посоветуйте что сделать.

[PavelA]

Выполнить скрипт:

begin
SearchRootkit(true, true);
SetAVZGuardStatus(True);
QuarantineFile('C:\DOCUME~1\Admin\LOCALS~1\Temp\otcbnq.dll','');
DeleteFile('C:\DOCUME~1\Admin\LOCALS~1\Temp\otcbnq.dll');

QuarantineFile('C:\WINDOWS\system32\aieggoa.dll','');
DeleteFile('C:\WINDOWS\system32\aieggoa.dll');
QuarantineFile('C:\WINDOWS\system32\li.dll','');
DeleteFile('C:\WINDOWS\system32\li.dll');
 DeleteFile('C:\Program Files\DrWeb\SpiderNT.exe');
 RegKeyParamDel('HKEY_LOCAL_MACHINE','SYSTEM\CurrentControlSet\Services\Eventlog\Application\spidernt','EventMessageFile');
BC_ImportDeletedList;
ExecuteRepair(11);
ExecuteRepair(17);
ExecuteRepair(6);
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end.

Повторить логи после перезагрузки.

[aleksprom]

Понял.Щас будут.

[aleksprom]

Вроде всё заработало.

[PavelA]

Надо теперь сделать лог Гмера для зачистки мусора в реестре.
Как делать - смотрите в "Чаво".

[aleksprom]

Всё сделал.Вот лог.

[PavelA]

Скопировать аккуратно.
Выполнить скрипт:

Function RegKeyResetSecurityEx(ARoot, AName : string) : boolean;
var
i : integer; 
KeyList : TStringList;
KeyName : string;                           
begin
RegKeyResetSecurity(ARoot, AName);
KeyList := TStringList.Create;
RegKeyEnumKey(ARoot, AName, KeyList);
for i := 0 to KeyList.Count-1 do
 begin
 KeyName := AName+'\'+KeyList[i];
 RegKeyResetSecurity(ARoot, KeyName);
 RegKeyResetSecurityEx(ARoot, KeyName);
 end;
KeyList.Free;
end;
Function BC_ServiceKill(AServiceName : string; AIsSvcHosted : boolean = true) : byte;
var
 i : integer;
 KeyList : TStringList;
 KeyName : string;                           
begin
 Result := 0;
 if StopService(AServiceName) then Result := Result or 1;
 if DeleteService(AServiceName,  not(AIsSvcHosted)) then Result := Result or 2;
 KeyList := TStringList.Create;
 RegKeyEnumKey('HKLM','SYSTEM', KeyList);
 for i := 0 to KeyList.Count-1 do
  if pos('controlset', LowerCase(KeyList[i])) > 0 then begin
   KeyName := 'SYSTEM\'+KeyList[i]+'\Services\'+AServiceName;                                     
   if RegKeyExistsEx('HKLM', KeyName) then begin
    Result := Result or 4;                  
    RegKeyResetSecurityEx('HKLM', KeyName);
    RegKeyDel('HKLM', KeyName);
    if RegKeyExistsEx('HKLM', KeyName) then               
     Result := Result or 8;                  
   end;
  end;                 
 if AIsSvcHosted then
  BC_DeleteSvcReg(AServiceName)
 else
  BC_DeleteSvc(AServiceName);
 KeyList.Free;
end;
begin
SearchRootkit(true, true);
SetAVZGuardStatus(True);

QuarantineFile('C:\WINDOWS\system32\lfuviddf.dll','');
DeleteFile('C:\WINDOWS\system32\lfuviddf.dll');
BC_ServiceKill('dopwg');
BC_ImportDeletedList;
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end.

Прислать логи, после станд скрипта №2
Загрузить карантин.

[aleksprom]

После запуска скрипта выдает ошибку: udeclared identifier: BC_DeleteServiceKill
в позиции 52:21

[PavelA]

Поправил.

[aleksprom]

Вот логи.

[PavelA]

Прочистите все временные папки, устновите обновления безопасности.
В общем, чистого Вам Интернета.

[aleksprom]

Спасибо вам огромное!