Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
TerminateProcessByName('c:\windows\microsoft\svchost.exe');
StopService('SvcHost Service Host');
QuarantineFile('C:\Users\78FC~1\AppData\Roaming\curl\curl.exe', '');
QuarantineFile('C:\Users\78FC~1\AppData\Roaming\curl\curl_7_54.exe', '');
QuarantineFile('C:\Users\78FC~1\AppData\Roaming\SETUPS~1\ml.py', '');
QuarantineFile('C:\Users\78FC~1\AppData\Roaming\SETUPS~1\python\pythonw.exe', '');
QuarantineFile('C:\Users\78FC~1\AppData\Roaming\setupsk\ml.py', '');
QuarantineFile('C:\Users\78FC~1\AppData\Roaming\setupsk\python\pythonw.exe', '');
QuarantineFile('C:\Users\Рома\AppData\Local\etdctrl\etdctrl.exe', '');
QuarantineFile('C:\Users\Рома\AppData\Local\wupdate\wupdate.exe', '');
QuarantineFile('C:\Users\Рома\AppData\Local\yc\Application\yc.exe', '');
QuarantineFile('C:\Users\Рома\AppData\Local\ZenMate\Update.exe', '');
QuarantineFile('C:\Users\Рома\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\ZenMate.bat', '');
QuarantineFile('C:\Windows\microsoft\svchost.exe.exe', '');
QuarantineFile('C:\Windows\system32\icacl.exe', '');
DeleteFile('C:\Users\78FC~1\AppData\Roaming\curl\curl.exe', '32');
DeleteFile('C:\Users\78FC~1\AppData\Roaming\curl\curl_7_54.exe', '32');
DeleteFile('C:\Users\78FC~1\AppData\Roaming\SETUPS~1\ml.py', '32');
DeleteFile('C:\Users\78FC~1\AppData\Roaming\SETUPS~1\python\pythonw.exe', '32');
DeleteFile('C:\Users\78FC~1\AppData\Roaming\setupsk\ml.py', '32');
DeleteFile('C:\Users\78FC~1\AppData\Roaming\setupsk\python\pythonw.exe', '32');
DeleteFile('C:\Users\Рома\AppData\Local\etdctrl\etdctrl.exe', '32');
DeleteFile('C:\Users\Рома\AppData\Local\Microsoft\Start Menu\Вoйти в Интeрнeт.ico');
DeleteFile('C:\Users\Рома\AppData\Local\Microsoft\Start Menu\Вoйти в Интeрнeт.lnk');
DeleteFile('C:\Users\Рома\AppData\Local\wupdate\wupdate.exe', '32');
DeleteFile('C:\Users\Рома\AppData\Local\yc\Application\yc.exe', '32');
DeleteFile('C:\Users\Рома\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Вoйти в Интeрнeт.lnk');
DeleteFile('C:\Users\Рома\Favorites\Links\Интернет.url');
DeleteFile('c:\windows\microsoft\svchost.exe', '32');
DeleteFile('C:\Windows\microsoft\svchost.exe.exe', '32');
DeleteFile('C:\Windows\system32\icacl.exe', '32');
DeleteFile('wupdate.job', '64');
ExecuteFile('ipconfig.exe', '/flushdns', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "curl" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "curls" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "etdctrl" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "setupsk" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "setupsk_upd" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "wupdate" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "ПланировщикProtect" /F', 0, 15000, true);
DeleteService('icacl');
DeleteService('SvcHost Service Host');
DeleteFileMask('c:\users\78fc~1\appdata\roaming\curl', '*', true);
DeleteFileMask('c:\users\78fc~1\appdata\roaming\setups~1', '*', true);
DeleteFileMask('c:\users\78fc~1\appdata\roaming\setupsk', '*', true);
DeleteFileMask('c:\users\рома\appdata\local\etdctrl', '*', true);
DeleteFileMask('c:\users\рома\appdata\local\wupdate', '*', true);
DeleteFileMask('c:\users\рома\appdata\local\yc', '*', true);
DeleteFileMask('c:\windows\microsoft', '*', true);
DeleteDirectory('c:\users\78fc~1\appdata\roaming\curl');
DeleteDirectory('c:\users\78fc~1\appdata\roaming\setups~1');
DeleteDirectory('c:\users\78fc~1\appdata\roaming\setupsk');
DeleteDirectory('c:\users\рома\appdata\local\wupdate');
DeleteDirectory('c:\users\рома\appdata\local\yc');
DeleteDirectory('c:\windows\microsoft');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\ufwuunftte', 'command');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\ycAutoLaunch_C4E1F655FCEE3F5B55489FF9CCA1750A', 'command');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteRepair(21);
ExecuteRepair(23);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.