Код:
begin
SearchRootkit(true, true);
SetAVZGuardStatus(True);
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ClearQuarantineEx(true);
TerminateProcessByName('c:\docume~1\oem\locals~1\temp\net1b8f.tmp.exe');
QuarantineFile('C:\Documents and Settings\OEM\Local Settings\Application Data\SystemDir\nethost.exe', '');
QuarantineFile('C:\Documents and Settings\OEM\Local Settings\Application Data\Kometa\kometaup.exe', '');
QuarantineFile('C:\Documents and Settings\OEM\Local Settings\Application Data\Kometa\Panel\KometaLaunchPanel.exe', '');
QuarantineFile('C:\Documents and Settings\OEM\Application Data\Microsoft\Internet Explorer\Quick Launch\Поиcк в Интeрнете.lnk', '');
QuarantineFile('C:\Documents and Settings\OEM\Application Data\Microsoft\Internet Explorer\Quick Launch\Вoйти в Интeрнет 2inf.net.lnk', '');
QuarantineFile('C:\DOCUME~1\OEM\LOCALS~1\Temp\NET1B8~1.EXE', '');
QuarantineFile('c:\docume~1\oem\locals~1\temp\net1b8f.tmp.exe', '');
QuarantineFileF('C:\Documents and Settings\OEM\Local Settings\Application Data\SystemDir\', '*.exe, *.dll, *.sys, *.bat, *.vbs', true, '', 0, 0);
DeleteFile('C:\DOCUME~1\OEM\LOCALS~1\Temp\NET1B8~1.EXE', '32');
DeleteFile('C:\DOCUME~1\OEM\LOCALS~1\Temp\net1B8F.tmp.exe', '32');
DeleteFile('C:\Documents and Settings\OEM\Application Data\Microsoft\Internet Explorer\Quick Launch\Вoйти в Интeрнет 2inf.net.lnk', '32');
DeleteFile('C:\Documents and Settings\OEM\Application Data\Microsoft\Internet Explorer\Quick Launch\Поиcк в Интeрнете.lnk', '32');
DeleteFile('C:\Documents and Settings\OEM\Local Settings\Application Data\Kometa\Panel\KometaLaunchPanel.exe', '32');
DeleteFile('C:\Documents and Settings\OEM\Local Settings\Application Data\Kometa\kometaup.exe', '32');
DeleteFile('C:\Documents and Settings\OEM\Local Settings\Application Data\SystemDir\nethost.exe', '32');
DeleteFile('C:\WINDOWS\Tasks\nethost task.job', '32');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'GoSearchRemoveAppiexplore');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'GoSearch_startsetsearch_opera');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\ConvertAd', 'command');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'KometaLaunchPanel');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'kometaup');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'pqpbdazmrn');
BC_ImportALL;
ExecuteSysClean;
ExecuteRepair(3);
ExecuteWizard('SCU', 2, 3, true);
BC_Activate;
RebootWindows(true);
end.