Printable View
Когда пытаюсь открыть Мои рисунки через Пуск, система зависает (пока не перезагружу через диспетчер задач explorer.exe). Удается туда зайти только через папку Мои документы, и то очень редко, обычно тоже зависает.
Нечисть?
Помогите разобраться, пожалуйста.
надо:
1 Провериться TdssKiller с сайта Касперского
2. сделать лог Гмер
Лог ТдссКилеера приложил.
Когда пытаюсь сделать проверку Гмером, выскакивает ошибка "память не может быть "read""
Еще теперь при запуске ГуглХром(основной браузер) выскакивает синий экран, приходится ребутиться.
Тогда лог GetSystemInfo сделайте.
[url]http://www.getsysteminfo.com/read.php?file=6c219e28f2e238e20350d67c153788b8[/url]
Сделал
[url]http://spywarefiles.prevx.com/RRBJJB44513936/GOOGLEKABA.EXE.html[/url]
Один из подозрительных процессов - Гуглкаба. Так вот, тут пишут, что это скорее всего червь. Им можно верить?
Еще отправил этот файл ДрВебу на анализ, будем ждать, что скажут.
выполнить:
[CODE]
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.[/CODE]
Повторить логи AVZ
Жалуется...
; expected в позиции 2:1
Исправьте, пожалуйста.
Лишний begin затесался. Извините.
Шутка была такая у программеров:
begin это кто - команда, или Израильский премьер.
Вот, готово. Жду дальнейших указаний.
В логах чисто. Как "Мои рисунки" открываются?
Когда открываю через С - Мои документы - мои рисунки, все чисто.
когда через пуск - Мои рисунки, система подвисает, експлорер.ехе начинает есть 50% цп
если открывать через пуск - мои документы - мои рисунки - тоже подвисает
:?