23.10.2009, 15:43 | #31 (ссылка) |
Специалист
Регистрация: 01.01.2009
Сообщений: 13,209
Репутация: 415
|
Ольгуня,
Выполните это Код:
begin SearchRootkit(true, true); SetAVZGuardStatus(True); RenameFile('C:\WINDOWS\system32\TASKMAN.EXE','C:\WINDOWS\system32\TASKMAN.bak'); BC_CopyFile('C:\TASKMAN.EXE','C:\WINDOWS\system32\TASKMAN.EXE'); BC_DeleteFile('C:\Windows\TASKMAN.bak'); BC_DeleteFile('C:\WINDOWS\system32\TASKMAN.bak'); BC_ImportAll; BC_Activate; RebootWindows(true); end. |
23.10.2009, 16:25 | #33 (ссылка) |
Специалист
Регистрация: 01.01.2009
Сообщений: 13,209
Репутация: 415
|
Ольгуня,
1) Выполните это Код:
var Lines : TStrings; i : integer; begin Lines := TStringList.Create; SearchFiles('%WinDir%', 'taskman.exe', Lines, true, false); for i:= 0 to Lines.Count-1 do AddToLog(Lines[i]+',Size='+inttostr(GetFileSize(Lines[i]))); SearchFiles('%System32%', 'taskman.exe', Lines, true, false); for i:= 0 to Lines.Count-1 do AddToLog(Lines[i]+',Size='+inttostr(GetFileSize(Lines[i]))); Lines.Free; SaveLog(GetCurrentDirectory+'avz_log.txt'); end. 2) Что с доступом к проблемным сайтам? |
23.10.2009, 16:37 | #35 (ссылка) |
Специалист
Регистрация: 01.01.2009
Сообщений: 13,209
Репутация: 415
|
А после этого скрипта что будет в логфайле
Код:
var Lines : TStrings; i : integer; begin Lines := TStringList.Create; SearchFiles('%WinDir%', 'TASKMAN.EXE', Lines, true, false); for i:= 0 to Lines.Count-1 do AddToLog(Lines[i]+',Size='+inttostr(GetFileSize(Lines[i]))); SearchFiles('%System32%', 'TASKMAN.EXE', Lines, true, false); for i:= 0 to Lines.Count-1 do AddToLog(Lines[i]+',Size='+inttostr(GetFileSize(Lines[i]))); Lines.Free; SaveLog(GetCurrentDirectory+'avz_log.txt'); end. |
23.10.2009, 17:13 | #39 (ссылка) |
Специалист
Регистрация: 01.01.2009
Сообщений: 13,209
Репутация: 415
|
Вы набирали через Поиск или сортировали файлы и искали "вручную" глазами ? Это важно.
Если забивали в поиск то поищите в windows и в system32 файлы с очень похожими названиями. Возможно там будут не английские буквы а кириллица И сколько их там будет количественно. |
23.10.2009, 17:32 | #41 (ссылка) |
Специалист
Регистрация: 01.01.2009
Сообщений: 13,209
Репутация: 415
|
Ольгуня,
ну тогда выполнить следующее Код:
begin SearchRootkit(true, true); SetAVZGuardStatus(True); ExecuteRepair(6); ExecuteRepair(11); RebootWindows(true); end. |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перестали открываться многие сайты!!! | тм1 | Интернет и сети | 5 | 12.01.2011 14:10 |
вирус с контакта...........помогите | Aneela | Безопасность | 20 | 11.01.2011 09:58 |
Вместо контакта вылезает сайт xaker.ws | Sergey2009000 | Безопасность | 4 | 25.12.2010 02:52 |
из-за взлома контакта полетел антивирусник | Pandora | Безопасность | 3 | 20.12.2010 17:52 |
Как исправить взлом контакта? | Ren_Sora | Безопасность | 3 | 12.11.2010 12:45 |
почемуто перестало открываться окно Мой компьютер | Yaxich | Безопасность | 2 | 15.04.2010 00:22 |
Не хочет открываться DVD-Rom | kolomin66 | Неисправности, настройка | 6 | 07.01.2010 22:11 |
Все программы стали открываться в плеере Windows | Фёдор Цветков | Программы | 20 | 30.08.2009 22:33 |
жесткий перестал открываться | Deliveryboy | Утилиты | 2 | 13.02.2009 22:07 |
после удаления вируса флешка перестала открываться | sogrin | Безопасность | 6 | 21.05.2008 17:53 |
Иллюзия контакта | Талян | Реклама, объявления | 0 | 03.02.2008 09:52 |