Здравствуйте, помогите пожалуйста продиагностировать систему, у меня не открываюся сайты антивирусных продуктов и майкрософта, но кьюрит и антивирусники ничего не находят, заранее спасибо
Printable View
Здравствуйте, помогите пожалуйста продиагностировать систему, у меня не открываюся сайты антивирусных продуктов и майкрософта, но кьюрит и антивирусники ничего не находят, заранее спасибо
Выполните скрипт в AVZ
[code]begin
SearchRootkit(true, true);
SetAVZGuardStatus(True);
QuarantineFile('C:\smss.exe','');
QuarantineFile('C:\WINDOWS\sorry.exe','');
DeleteFile('C:\WINDOWS\sorry.exe');
DeleteFile('C:\smss.exe');
BC_ImportAll;
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end. [/code]Компьютер перезагрузится.
Пришлите карантин согласно [B]Приложения 3[/B] правил по красной ссылке [COLOR="Red"][U][B]Прислать запрошенный карантин[/B][/U][/COLOR] вверху темы
[B]Скачайте AVZ 4.32 и обновите базы AVZ[/B]
Сделайте новые логи
[U]Внимание:[/U] если скачать новый AVZ или обновить базы AVZ не удастся, сделайте логи полиморфным AVZ (ссылка в моей подписи)
запустил ваш авз, как сделается выложу файлы, спасибо что так быстро откликнулись, сайт вирусинфо с него тоже не открывается приходиться через рдп писать в форум
извиняюсь что так долго, скрипт выполнил, карантин вам отправил, логи прикладываю, проблема осталась, авз не обновляется, логи создавал с помошью полиморфного
Выполните скрипт, используя полиморфный AVZ:
[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('wtkyj');
BC_Activate;
ExecuteRepair(20);
RebootWindows(true);
end.[/code]
Компьютер перезагрузится.
Проблема с доступом к сайтам должна решиться.
Обновите базы обычной AVZ и сделайте ею новый лог по п.1 раздела [I]Диагностика[/I].
спасибо горомное, скрипты помогли;)
Ничего плохого
Установите [URL="http://www.microsoft.com/rus/windows/internet-explorer/default.aspx"]Internet Explorer 8[/URL]
Установите [URL="www.adobe.com/products/acrobat/"]Adobe Acrobat 9.3[/URL] или удалите старый
Статистика проведенного лечения:
[LIST][*]Получено карантинов: [B]1[/B][*]Обработано файлов: [B]4[/B][*]В ходе лечения вредоносные программы в карантинах не обнаружены[/LIST]