Код:
begin
ShowMessage('Внимание! Перед выполнением скрипта AVZ автоматически закроет все сетевые подключения.'+#13#10+'После перезагрузки компьютера подключения к сети будут восстановлены в автоматическом режиме.');
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
if not IsWOW64
then
begin
SearchRootkit(true, true);
SetAVZGuardStatus(true);
end;
ClearQuarantine;
TerminateProcessByName('c:\users\maxim\appdata\local\microsoft\windows\toolbar.exe');
TerminateProcessByName('c:\users\maxim\appdata\local\temp\neta92d.tmp.exe');
QuarantineFile('C:\Users\Maxim\appdata\local\systemdir\setsearchm.exe','');
QuarantineFile('C:\Users\Maxim\AppData\Local\SystemDir\nethost.exe','');
QuarantineFile('C:\Users\Maxim\AppData\Local\Temp\NETAB3~1.EXE','');
QuarantineFile('C:\Users\Maxim\AppData\Local\Microsoft\Windows\system.exe','');
QuarantineFile('c:\users\maxim\appdata\local\microsoft\windows\toolbar.exe','');
QuarantineFile('c:\users\maxim\appdata\local\temp\neta92d.tmp.exe','');
DeleteFile('C:\Users\Maxim\AppData\Local\Microsoft\Windows\system.exe','32');
DeleteFile('C:\Users\Maxim\AppData\Local\Temp\NETAB3~1.EXE','32');
DeleteFile('C:\Users\Maxim\AppData\Local\Temp\netA92D.tmp.exe','32');
DeleteFile('C:\Windows\system32\Tasks\nethost task','64');
DeleteFile('C:\Windows\system32\Tasks\SystemScript','64');
DeleteFile('C:\Users\Maxim\AppData\Local\SystemDir\nethost.exe','32');
DeleteFile('C:\Users\Maxim\AppData\Local\Microsoft\Windows\toolbar.exe','32');
DeleteFile('C:\Users\Maxim\appdata\local\systemdir\setsearchm.exe','32');
RegKeyParamDel('HKEY_LOCAL_MACHINE','Software\Microsoft\Windows\CurrentVersion\Run','SystemScript');
RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','SystemScript');
RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\RunOnce','GoSearch_startsetsearch_chrome');
RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\RunOnce','GoSearchRemoveAppiexplore');
RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','kdioseslkj');
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
DeleteFileMask('C:\Users\Maxim\appdata\local\systemdir', '*', true, ' ');
DeleteDirectory('C:\Users\Maxim\appdata\local\systemdir');
BC_ImportAll;
ExecuteSysClean;
BC_Activate;
RebootWindows(false);
end.