помите заткнуть дыры и уязвимости

[obvalshik]

Здравствуйте. Недавно подцепил порнобанер и вроде удалил своими силами. Но решил полностью проверить систему. Проверил avira premium sec. потом curelt а потом еще утилитой касперского. нашел всякой дряни и удалил. Все сделал по вашим правилам. Хотелось бы чтобы вы помогли заткнуть дырки. логи внизу.

[PavelA]

Не до били. Профиксить:

F2 - REG:system.ini: Shell=Explorer.exe rundll32.exe
O4 - HKLM\..\Policies\Explorer\Run: [csrcs] C:\WINDOWS\system32\csrcs.exe

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

begin
SetAVZPMStatus(True);
SearchRootkit(true, true);
SetAVZGuardStatus(True);
QuarantineFile('jyku.fjo','');
 QuarantineFile('C:\WINDOWS\system32\csrcs.exe','');
 QuarantineFile('C:\WINDOWS\System32\netprotocol.dll','');
 DeleteFile('C:\WINDOWS\System32\netprotocol.dll');
 RegKeyParamDel('HKEY_LOCAL_MACHINE','SYSTEM\CurrentControlSet\Services\Netprotocol\Parameters','ServiceDll');
 DeleteFile('C:\WINDOWS\system32\csrcs.exe');
 RegKeyParamDel('HKEY_LOCAL_MACHINE','Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run','csrcs');
BC_ImportDeletedList;
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end.

повторить логи. Сделать лог Gmer.
прислать карантин по Правилам.

[obvalshik]

выполнил все. карантин пуст. Что такое лог Gmer непонял.

[PavelA]

http://virusinfo.info/showthread.php?t=40118

[obvalshik]

сделал полное сканирование

[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\nsbdw.dll','');
DeleteFile(' C:\WINDOWS\system32\nsbdw.dll');
BC_ImportDeletedList;
BC_ServiceKill('cmiukxd');
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end.

Повторить станд. скрипт №2. Прислать лог.

[obvalshik]

выполнил.