services.exe перегружается (с ошибкой 1073741819)

Доброго времени суток!

Помогите, пожалуйста, побороть вирусы! :(
Перегружается компьютер с ошибкой "неожиданное завершение services.exe, № ошибки: 1073741819. Видел много тем с подобной ошибкой, но нуждаюсь в индивидуальном скрипте, т.к. своими силами пока не осилил.. :>
Согласно Ваших правил (когда делал сбор), антивирусники до конца не сканят (зависают где-то на 70% сканирования), но нашли порядка 38 вирусов!! :O

Логи вышлю чуть позже (они на зараженном компе, который не конектится к инету, возможно из-за настроек местного провайдера)

Заранее благодарен!!! :beer:

Добавил файлы

1. Отключите восстановление системы и антивирус.
2. Выполните скрипт в 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
SetAVZGuardStatus(True);
DeleteFileMask(GetAVZDirectory+'Quarantine', '*.*', true);
RegKeyStrParamWrite('HKEY_LOCAL_MACHINE','Software\Microsoft\Windows NT\CurrentVersion\Winlogon','Userinit','C:\WINDOWS\system32\userinit.exe,');
QuarantineFile('C:\Program Files\Internet Explorer\beqvfof.dll','');
DelBHO('{710EB7A1-45ED-11D0-924A-0020AFC7AC4D}');
DelBHO('{09900DE8-1DCA-443F-9243-26FF581438AF}');
DelBHO('{E7E6F031-17CE-4C07-BC86-EABFE594F69C}');
DelBHO('{DBC80044-A445-435b-BC74-9C25C1C588A9}');
DelBHO('{8984B388-A5BB-4DF7-B274-77B879E179DB}');
QuarantineFile('c:\windows\system32\sdra64.exe','');
QuarantineFile('c:\windows\system32\f1a61ff8.exe','');
QuarantineFile('C:\WINDOWS\system32\csrcs.exe','');
DeleteFile('C:\WINDOWS\system32\csrcs.exe');
RegKeyParamDel('HKEY_LOCAL_MACHINE','Software\Microsoft\Windows\CurrentVersion\RunServices','csrcs');
RegKeyParamDel('HKEY_LOCAL_MACHINE','Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run','csrcs');
DeleteFile('c:\windows\system32\f1a61ff8.exe');
DeleteFile('c:\windows\system32\sdra64.exe');
DeleteFile('C:\Program Files\Internet Explorer\beqvfof.dll');
BC_ImportDeletedList;
ExecuteSysClean;
ExecuteRepair(20);
BC_ServiceKill('akrtci');
BC_ServiceKill('jvbiczl');
BC_ServiceKill('siltevnue');
BC_Activate;
RebootWindows(true);
end.[/CODE]
После выполнения скрипта компьютер перезагрузится!

3. Выполните скрипт в AVZ:

[CODE]begin
CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');
end.[/CODE]

Загрузите файл quarantine.zip, используя ссылку [url]http://virusinfo.info/upload_virus.php?tid=76426[/url]

4. Повторите логи.

Большое Человеческое спасибо за столь оперативный ответ!!
:clapping:

Выполнил скрипты, выкладываю логи (карантин отправляю)

[QUOTE=vareliy;623882]Большое Человеческое спасибо за столь оперативный ответ!!
:clapping:

Выполнил скрипты, выкладываю логи (карантин отправляю)[/QUOTE]

немножко лоханулся, первый раз не тот файл выслал (quarantine.zip)
virus.zip - по правилам.

1. Отключите восстановление системы и антивирус.
2. Выполните скрипт в AVZ:

[CODE]begin
DeleteFile('F:\autorun.inf');
ExecuteSysClean;
ExecuteWizard('SCU', 3, 3, true);
RebootWindows(true);
end.[/CODE]
После выполнения скрипта компьютер перезагрузится!

3. Повторите лог [B]virusinfo_syscheck.[/B]

Все выполнен в лучшем виде.
Спасибо Вам, Александра.
Последнее время хоть и не на долго загружается проблемный виндовз, но уже без проблем и эроров, который были.

Файл прикрепил. (есть подозрение, что еще не финал).

Еще раз огромное спасибо!

Система работает уже несколько часов без сбоев (тьху-тьху)! :D
Просканировал еще раз полностью - антивирус ничего не нашел.
На всякий случай выкладываю только что полученный virusinfo_syscheck.zip.
Если Вас не сильно затруднит, просмотрите все ли впорядке, т.к. немного смущает строка AVZ "перехватчик не определен" и т.п. (хоть все пока работает). :>

Большое спасибо! Вы МОЛОДЦЫ!!! :094:
:clapping::clapping::clapping::clapping:
:beer::beer::beer:

[QUOTE='vareliy;624108']немного смущает строка AVZ "перехватчик не определен"[/QUOTE]Это от DAEMON Tools.

Статистика проведенного лечения:
[LIST][*]Получено карантинов: [B]2[/B][*]Обработано файлов: [B]3[/B][*]В ходе лечения обнаружены вредоносные программы:
[LIST=1][*] c:\program files\internet explorer\beqvfof.dll - [B]Net-Worm.Win32.Kido.ih[/B] ( DrWEB: Win32.HLLW.Shadow.based, BitDefender: Win32.Worm.Downadup.Gen, AVAST4: Win32:Rootkit-gen [Rtk] )[*] f:\autorun.inf - [B]Trojan.Win32.Buzus.bvza[/B] ( NOD32: Win32/AutoRun.KS worm )[/LIST][/LIST]