Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ClearQuarantineEx(true);
SetServiceStart('WindowsMangerProtect', 4);
StopService('WindowsMangerProtect');
QuarantineFile('C:\Users\sony\AppData\Roaming\cpuminer\sgminer\sgminer.cmd', '');
QuarantineFileF('C:\Program Files (x86)\WordShark_1.10.0.20\', '*.exe, *.dll, *.sys, *.bat, *.vbs', true, '', 0, 0);
QuarantineFileF('c:\programdata\windowsmangerprotect\', '*.exe, *.dll, *.sys, *.bat, *.vbs', true, '', 0, 0);
QuarantineFileF('c:\program files (x86)\miuitab\', '*.exe, *.dll, *.sys, *.bat, *.vbs', true, '', 0, 0);
QuarantineFileF('C:\Program Files (x86)\GameXPService\', '*.exe, *.dll, *.sys, *.bat, *.vbs', true, '', 0, 0);
QuarantineFileF('C:\Users\sony\AppData\Roaming\eTranslator\', '*.exe, *.dll, *.sys, *.bat, *.vbs', true, '', 0, 0);
QuarantineFile('C:\Program Files (x86)\GameXPService\gamexpsvc.exe', '');
QuarantineFile('C:\Users\sony\AppData\Roaming\eTranslator\eTranslator.exe', '');
QuarantineFile('C:\Program Files (x86)\ShopperPro\JSDriver\1.42.1.2093\jsdrv.exe', '');
DeleteFile('C:\Users\sony\AppData\Roaming\cpuminer\sgminer\sgminer.cmd', '32');
DeleteFile('C:\Program Files (x86)\ShopperPro\JSDriver\1.42.1.2093\jsdrv.exe', '32');
DeleteFile('C:\Users\sony\AppData\Roaming\eTranslator\eTranslator.exe', '32');
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
DeleteService('WindowsMangerProtect');
DeleteFileMask('c:\programdata\windowsmangerprotect\', '*', true);
DeleteFileMask('C:\Users\sony\AppData\Roaming\eTranslator\', '*', true);
DeleteDirectory('C:\Users\sony\AppData\Roaming\eTranslator\');
DeleteDirectory('c:\programdata\windowsmangerprotect\');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'gpuminer');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\SPDriver', 'command');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\eTranslator Automatic Update', 'command');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 3, true);
RebootWindows(true);
end.