Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
TerminateProcessByName('c:\programdata\medlight\medlight.exe');
TerminateProcessByName('c:\programdata\camycilop\camycilop.exe');
StopService('Medlight');
StopService('caMyciloP');
QuarantineFile('C:\Users\ОлегОля\AppData\Roaming\WindowsUpdater\Updater.exe','');
QuarantineFile('C:\Users\ОлегОля\AppData\Local\Hostinstaller\3880967932_installcube.exe','');
QuarantineFile('C:\ProgramData\ApplicationHosting\ApplicationHosting.exe','');
QuarantineFile('c:\programdata\medlight\medlight.exe','');
QuarantineFile('c:\programdata\camycilop\camycilop.exe','');
QuarantineFile('C:\Windows\system32\config\systemprofile\AppData\Local\Cansing', '');
DeleteFile('c:\programdata\camycilop\camycilop.exe','32');
DeleteFile('c:\programdata\medlight\medlight.exe','32');
DeleteFile('C:\ProgramData\ApplicationHosting\ApplicationHosting.exe','32');
DeleteFile('C:\Users\ОлегОля\AppData\Local\Hostinstaller\3880967932_installcube.exe','32');
DeleteFile('C:\Users\ОлегОля\AppData\Roaming\WindowsUpdater\Updater.exe','32');
DeleteFile('C:\Windows\system32\config\systemprofile\AppData\Local\Cansing', '32');
ExecuteFile('schtasks.exe', '/delete /TN "doinloaddm" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Soft installer" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "WindowsUpdater" /F', 0, 15000, true);
DeleteService('ApplicationHosting');
DeleteService('Medlight');
DeleteService('caMyciloP');
RegKeyParamDel('HKEY_LOCAL_MACHINE','SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\mobilegeni daemon','command');
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);
ExecuteSysClean;
ExecuteRepair(3);
ExecuteRepair(4);
ExecuteWizard('SCU', 2, 3, true);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
RebootWindows(true);
end.
Компьютер