gjf
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору densavochkin - Закройте/выгрузите все программы кроме Internet Explorer. Отключите - ПК от интернета/локальной сети. - Антивирус и Файрвол. - Выполните скрипт: Код: Function DelAppInit_DLLsByFileName(Name : string) : boolean; const RegKey = 'Software\Microsoft\Windows NT\CurrentVersion\Windows'; var AppInit_DLLs,Temp_AppInit_DLLs,Temp : string; n,p : integer; begin Result := false; Name := LowerCase(Name); AppInit_DLLs := ''; n := 0; p := 0; Temp_AppInit_DLLs := StringReplace(LowerCase(RegKeyStrParamRead('HKLM', RegKey, 'AppInit_DLLs')), ',', ' ') + ' '; if (Temp_AppInit_DLLs = ' ') or (pos(Name, Temp_AppInit_DLLs) = 0) then exit; Temp := Temp_AppInit_DLLs; while pos(Name, Temp) > 0 do begin Inc(p); Delete(Temp, pos(Name, Temp), Length(Name)); end; Temp := ''; while pos(' ', Temp_AppInit_DLLs) > 0 do begin If Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1) <> '' then begin If n > 1 then Temp := Temp + ','; If pos(':\', Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1)) > 0 then Temp := Temp + ','; If pos('.', Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1)) > 0 then Temp := Temp + Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1) + ',' else Temp := Temp + Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs)); n := 0; end; Delete(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs)); Inc(n); end; while (pos(',,', Temp) > 0) or (pos(' ,', Temp) > 0) do Temp := StringReplace(StringReplace(Temp, ',,', ','), ' ,', ','); while (pos(Copy(Temp, 1, 1), ' ,') > 0) do Delete(Temp, 1, 1); while (pos(Copy(Temp, Length(Temp), 1), ' ,') > 0) do Delete(Temp, Length(Temp), 1); Temp_AppInit_DLLs := Temp + ','; Temp := ''; while pos(',', Temp_AppInit_DLLs) > 0 do begin If Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1) <> '' then If pos('\', Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1)) > 0 then Temp := Temp + Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs)) else Temp := Temp + StringReplace(Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs)), ' ', ','); Delete(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs)); end; Temp_AppInit_DLLs := Temp + ','; while pos(',', Temp_AppInit_DLLs) > 0 do begin If Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1) <> '' then If (Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1) = Name) or ((p <= 1) and (ExtractFileName(Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1)) = Name)) then AppInit_DLLs := AppInit_DLLs else AppInit_DLLs := AppInit_DLLs + Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs)); Delete(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs)); end; If Copy(AppInit_DLLs, Length(AppInit_DLLs), 1) = ',' then Delete(AppInit_DLLs, Length(AppInit_DLLs), 1); RegKeyStrParamWrite('HKEY_LOCAL_MACHINE', RegKey, 'AppInit_DLLs', AppInit_DLLs); If RegKeyStrParamRead('HKLM', RegKey, 'AppInit_DLLs') = AppInit_DLLs then Result := true; end; begin SearchRootkit(true, true); SetAVZGuardStatus(True); DeleteFileMask(GetAVZDirectory+'Quarantine', '*.*', true); {ClearQuarantine;} QuarantineFile('C:\Program Files\\Outlook Express\setup50.exe',''); DelCLSID('38DWED15-27U1-Q8Y8-PMTK-Y534T5N71VT4'); QuarantineFile('C:\WINDOWS\system32\WinDir\Svchost.exe',''); QuarantineFile('0.exe',''); DelAppInit_DLLsByFileName('0.exe'); DeleteFile('C:\WINDOWS\system32\WinDir\Svchost.exe'); BC_ImportAll; ExecuteSysClean; ExecuteRepair(6); {удаление всех политик ограничений текущего пользователя} BC_Activate; RebootWindows(true); end. | Система перезагрузится. После перезагрузки: - Очистите темп-папки, кэш проводников и корзину. - Закройте все программы, включая Антивирус и Файрвол, оставьте запущенным только Internet Explorer. Если он не запущен - запустите!!! - Сделайте повторные логи - Включите Антивирус и Файрвол - Подключите ПК к интернету/локальной сети - Выполните скрипт: Код: var qfolder: string; qname: string; begin qname := GetAVZDirectory + '..\Quarantine\quarantine.zip'; qfolder := ExtractFilePath(qname); if (not DirectoryExists(qfolder)) then CreateDirectory(qfolder); CreateQurantineArchive(qname); ExecuteFile('explorer.exe', qfolder, 1, 0, false); end. | По окончанию Вам откроет папку с архивом. Это - карантин. - Карантин загрузите по этой форме. При заполнении формы укажите свой e-mail, на него должен будет потом прийти отчёт о карантине. Его сообщите здесь. - Прикрепите новые логи к новому сообщению в этой ветке.
---------- Тут могла бы быть Ваша реклама... или эпитафия |
| Всего записей: 11401 | Зарегистр. 14-03-2007 | Отправлено: 12:33 16-12-2010 | Исправлено: gjf, 12:35 16-12-2010 |
|