Назойливая реклама в браузерах

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;
SetServiceStart('ccnfd_1_10_0_6', 4);
 TerminateProcessByName('c:\users\user1\appdata\local\wincheck\wincheck.exe');
QuarantineFile('C:\Users\User1\AppData\Roaming\Gameo\gameo.exe','');
 QuarantineFile('C:\Users\User1\AppData\Roaming\Gameo\gameo.dat','');
 QuarantineFile('C:\Users\User1\AppData\Roaming\Browsers\exe.resworb.bat','');
 QuarantineFile('C:\Users\User1\AppData\Roaming\Browsers\exe.erolpxei.bat','');
 QuarantineFile('C:\Users\User1\AppData\Roaming\Browsers\exe.emorhc.bat','');
 QuarantineFile('C:\Users\User1\AppData\Roaming\VOPackage\VOsrv.exe','');
 QuarantineFile('C:\Users\User1\AppData\Local\ConvertAd\CASrv.exe','');
 QuarantineFile('C:\Windows\system32\drivers\ccnfd_1_10_0_6.sys','');
 QuarantineFile('c:\users\user1\appdata\local\wincheck\wincheck.exe','');
 DeleteFile('c:\users\user1\appdata\local\wincheck\wincheck.exe','32');
 DeleteFile('C:\Windows\system32\drivers\ccnfd_1_10_0_6.sys','32');
 DeleteFile('C:\Users\User1\AppData\Local\ConvertAd\CASrv.exe','32');
 DeleteFile('C:\Users\User1\AppData\Roaming\VOPackage\VOsrv.exe','32');
 DeleteFile('C:\Users\User1\AppData\Roaming\Browsers\exe.emorhc.bat','32');
 DeleteFile('C:\Users\User1\AppData\Roaming\Browsers\exe.erolpxei.bat','32');
 DeleteFile('C:\Users\User1\AppData\Roaming\Browsers\exe.resworb.bat','32');
 DeleteFile('C:\Users\User1\AppData\Roaming\Gameo\gameo.dat','32');
 DeleteFile('C:\Users\User1\AppData\Roaming\Gameo\gameo.exe','32');
DeleteService('ccnfd_1_10_0_6');
 DeleteService('servervo');
 DeleteService('serverca');
 RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','Gameo');
BC_ImportAll;
ExecuteSysClean;
BC_Activate;	
RebootWindows(false);
end.

begin
CreateQurantineArchive('c:\quarantine.zip');
end.

var
LogPath : string;
ScriptPath : string;
begin
 LogPath := GetAVZDirectory + 'log\avz_log.txt';
 if FileExists(LogPath) Then DeleteFile(LogPath);
 ScriptPath := GetAVZDirectory +'ScanVuln.txt';
  if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 1) then ExecuteScript(ScriptPath) else 
begin
    if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 0) then ExecuteScript(ScriptPath) 
else begin
       ShowMessage('Невозможно загрузить скрипт AVZ для обнаружения наиболее часто используемых уязвимостей!');
       exit;
      end;
  end;
 if FileExists(LogPath) Then ExecuteFile('notepad.exe', LogPath, 1, 0, false)
end.