Не открываются Мои рисунки

[mett.ulv]

Когда пытаюсь открыть Мои рисунки через Пуск, система зависает (пока не перезагружу через диспетчер задач explorer.exe). Удается туда зайти только через папку Мои документы, и то очень редко, обычно тоже зависает.

Нечисть?
Помогите разобраться, пожалуйста.

[PavelA]

надо:
1 Провериться TdssKiller с сайта Касперского
2. сделать лог Гмер

[mett.ulv]

Лог ТдссКилеера приложил.
Когда пытаюсь сделать проверку Гмером, выскакивает ошибка "память не может быть "read""
Еще теперь при запуске ГуглХром(основной браузер) выскакивает синий экран, приходится ребутиться.

[PavelA]

Тогда лог GetSystemInfo сделайте.

[mett.ulv]

http://www.getsysteminfo.com/read.ph...50d67c153788b8

Сделал

[mett.ulv]

http://spywarefiles.prevx.com/RRBJJB...EKABA.EXE.html
Один из подозрительных процессов - Гуглкаба. Так вот, тут пишут, что это скорее всего червь. Им можно верить?
Еще отправил этот файл ДрВебу на анализ, будем ждать, что скажут.

[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
BC_ServiceKill('nzohd');
BC_ServiceKill('wwfiqoi');
BC_Activate;
RebootWindows(true);
end.

Повторить логи AVZ

[mett.ulv]

Жалуется...
; expected в позиции 2:1

Исправьте, пожалуйста.

[PavelA]

Лишний begin затесался. Извините.

Шутка была такая у программеров:
begin это кто - команда, или Израильский премьер.

[mett.ulv]

Вот, готово. Жду дальнейших указаний.

[PavelA]

В логах чисто. Как "Мои рисунки" открываются?

[mett.ulv]

Когда открываю через С - Мои документы - мои рисунки, все чисто.
когда через пуск - Мои рисунки, система подвисает, експлорер.ехе начинает есть 50% цп
если открывать через пуск - мои документы - мои рисунки - тоже подвисает