Код:
begin
QuarantineFile('C:\Program Files\UBar\UbarService.exe', '');
QuarantineFile('C:\Users\Max\AppData\Roaming\MediaPlayerApplication2\MediaPlayerApplication.exe', '');
QuarantineFile('C:\Users\Max\AppData\Local\Mail.Ru\Sputnik\IESearchPlugin.dll', '');
QuarantineFile('C:\Users\Max\AppData\Local\SearchGo\searchgo.exe', '');
QuarantineFile('C:\Users\Max\AppData\Roaming\setupsk\ml.py', '');
QuarantineFile('C:\Users\Max\AppData\Roaming\setupsk\python\pythonw.exe', '');
QuarantineFile('C:\Users\Max\AppData\Roaming\setupsk\app.py', '');
QuarantineFile('C:\Users\Max\AppData\Local\sysnet\sysnet.exe', '');
QuarantineFile('C:\Users\Max\AppData\Local\wupdate\wupdate.exe', '');
QuarantineFile('C:\Users\Max\appdata\locallow\searchgo\searchgo.dll', '');
DeleteFile('C:\Program Files\UBar\UbarService.exe', '32');
DeleteFile('C:\Users\Max\Favorites\Links\Интернет.url', '32');
DeleteFile('C:\Users\Max\AppData\Roaming\MediaPlayerApplication2\MediaPlayerApplication.exe', '32');
DeleteFile('C:\Users\Max\AppData\Local\Mail.Ru\Sputnik\IESearchPlugin.dll', '32');
DeleteFile('C:\Users\Max\AppData\Local\SearchGo\searchgo.exe', '32');
DeleteFile('C:\Users\Max\AppData\Roaming\setupsk\ml.py', '32');
DeleteFile('C:\Users\Max\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Mail.Ru.lnk', '32');
DeleteFile('C:\Users\Max\AppData\Roaming\setupsk\python\pythonw.exe', '32');
DeleteFile('C:\Users\Max\AppData\Roaming\setupsk\app.py', '32');
DeleteFile('C:\Users\Max\AppData\Local\sysnet\sysnet.exe', '32');
DeleteFile('C:\Users\Max\AppData\Local\wupdate\wupdate.exe', '32');
DeleteFile('C:\Users\Max\appdata\locallow\searchgo\searchgo.dll', '32');
DeleteService('UbarPolicyProvider');
DeleteFileMask('c:\program files\ubar', '*', true);
DeleteFileMask('c:\users\max\appdata\roaming\mediaplayerapplication2', '*', true);
DeleteFileMask('c:\users\max\appdata\local\mail.ru', '*', true);
DeleteFileMask('c:\users\max\appdata\local\searchgo', '*', true);
DeleteFileMask('c:\users\max\appdata\roaming\setupsk', '*', true);
DeleteFileMask('c:\users\max\appdata\local\sysnet', '*', true);
DeleteFileMask('c:\users\max\appdata\local\wupdate', '*', true);
DeleteFileMask('c:\users\max\appdata\locallow\searchgo', '*', true);
DeleteDirectory('c:\program files\ubar');
DeleteDirectory('c:\users\max\appdata\roaming\mediaplayerapplication2');
DeleteDirectory('c:\users\max\appdata\local\mail.ru');
DeleteDirectory('c:\users\max\appdata\local\searchgo');
DeleteDirectory('c:\users\max\appdata\roaming\setupsk');
DeleteDirectory('c:\users\max\appdata\local\sysnet');
DeleteDirectory('c:\users\max\appdata\local\wupdate');
DeleteDirectory('c:\users\max\appdata\locallow\searchgo');
DelBHO('{8E8F97CD-60B5-456F-A201-73065652D099}');
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "SearchGo Task" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "setupsk" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "setupsk2" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "sysnet" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "wupdate" /F', 0, 15000, true);
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'MediaPlayerApplication');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteRepair(9);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(false);
end.
Компьютер перезагрузится.