Код:
begin
TerminateProcessByName('C:\Users\Руслан\AppData\Local\Kometa\StartButton\kometastartvx64.exe');
TerminateProcessByName('c:\users\Руслан\appdata\local\mail.ru\mailruupdater.exe');
QuarantineFile('C:\Program Files\UBar\UbarDriver.sys', '');
QuarantineFile('C:\Users\27C6~1\AppData\Roaming\SETUPS~1\ml.py', '');
QuarantineFile('C:\Users\27C6~1\AppData\Roaming\setupsk\ml.py', '');
QuarantineFile('C:\Users\Руслан\AppData\Local\DuckGo\duckgo.exe', '');
QuarantineFile('C:\Users\Руслан\AppData\Local\fsOExPeUZ.bat', '');
QuarantineFile('C:\Users\Руслан\AppData\Local\Kometa\StartButton\kometastartvx64.exe', '');
QuarantineFile('C:\Users\Руслан\AppData\Local\PNyONawZ.bat', '');
QuarantineFile('C:\Users\Руслан\appdata\local\yc\application\yc.exe', '');
QuarantineFile('C:\Users\Руслан\AppData\Roaming\curl\curl.exe', '');
QuarantineFile('C:\Users\Руслан\AppData\Roaming\curl\curl_7_54.exe', '');
QuarantineFile('C:\Windows\system32\icacl.exe', '');
DeleteFile('C:\Program Files\UBar\UbarDriver.sys', '32');
DeleteFile('C:\Users\27C6~1\AppData\Roaming\SETUPS~1\ml.py', '32');
DeleteFile('C:\Users\27C6~1\AppData\Roaming\setupsk\ml.py', '32');
DeleteFile('C:\Users\Руслан\AppData\Local\DuckGo\duckgo.exe', '32');
DeleteFile('C:\Users\Руслан\AppData\Local\fsOExPeUZ.bat', '32');
DeleteFile('C:\Users\Руслан\AppData\Local\Kometa\StartButton\kometastartvx64.exe', '32');
DeleteFile('c:\users\Руслан\appdata\local\mail.ru\mailruupdater.exe', '32');
DeleteFile('C:\Users\Руслан\AppData\Local\PNyONawZ.bat', '32');
DeleteFile('C:\Users\Руслан\appdata\local\yc\application\yc.exe', '32');
DeleteFile('C:\Users\Руслан\AppData\Roaming\curl\curl.exe', '32');
DeleteFile('C:\Users\Руслан\AppData\Roaming\curl\curl_7_54.exe', '32');
DeleteFile('C:\Users\Руслан\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Mail.Ru.lnk');
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 "DuckGo Task" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "EYEZfyXZMV" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "ilRTkJucddc" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "MailRuUpdater" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "news2news2net0xaskzl" /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);
DeleteService('icacl');
DeleteService('UbarCalloutDriver');
DeleteFileMask('c:\program files\ubar', '*', true);
DeleteFileMask('c:\users\27c6~1\appdata\roaming\setups~1', '*', true);
DeleteFileMask('c:\users\27c6~1\appdata\roaming\setupsk', '*', true);
DeleteFileMask('c:\users\руслан\appdata\local\duckgo', '*', true);
DeleteFileMask('c:\users\руслан\appdata\local\kometa', '*', true);
DeleteFileMask('c:\users\руслан\appdata\local\yc', '*', true);
DeleteFileMask('c:\users\руслан\appdata\roaming\curl', '*', true);
DeleteDirectory('c:\program files\ubar');
DeleteDirectory('c:\users\27c6~1\appdata\roaming\setups~1');
DeleteDirectory('c:\users\27c6~1\appdata\roaming\setupsk');
DeleteDirectory('c:\users\руслан\appdata\local\duckgo');
DeleteDirectory('c:\users\руслан\appdata\local\kometa');
DeleteDirectory('c:\users\руслан\appdata\local\yc');
DeleteDirectory('c:\users\руслан\appdata\roaming\curl');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'MailRuUpdater');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'setupsk');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'setupsk_upd');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'StartButton');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'ztqkebxxfd');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteRepair(3);
ExecuteRepair(4);
ExecuteRepair(21);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.