Код:
begin
QuarantineFile('C:\Users\Кирилл\AppData\Roaming\GMDOU.exe', '');
QuarantineFile('c:\windows\debug\item.dat', '');
QuarantineFile('c:\windows\help\lsmosee.exe', '');
QuarantineFile('c:\windows\debug\ok.dat', '');
QuarantineFile('C:\Users\Кирилл\AppData\Local\svshost\svshost.exe', '');
DeleteFile('C:\Windows\Tasks\GMDOU.job', '32');
DeleteFile('C:\Users\Кирилл\AppData\Roaming\GMDOU.exe', '32');
DeleteFile('c:\windows\debug\item.dat', '32');
DeleteFile('c:\windows\help\lsmosee.exe', '32');
DeleteFile('c:\windows\debug\ok.dat', '32');
DeleteFile('C:\Users\Кирилл\AppData\Local\svshost\svshost.exe', '32');
DeleteFileMask('c:\users\кирилл\appdata\local\svshost', '*', true);
DeleteDirectory('c:\users\кирилл\appdata\local\svshost');
ExecuteFile('schtasks.exe', '/delete /TN "Driver Booster SkipUAC (Кирилл)" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Mysa" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Mysa1" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Mysa2" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Mysa3" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "ok" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "svshost" /F', 0, 15000, true);
DelCLSID('{B089FE88-FB52-11D3-BDF1-0050DA34150D}');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Praetorian');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'start');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'start1');
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.