Код:
begin
StopService('QQProtectX64');
QuarantineFile('C:\Program Files (x86)\Common Files\Tencent\QQProtect\Bin\QQProtect.exe', '');
QuarantineFile('C:\Program Files (x86)\Tencent\QQMicroGameBoxService\1.0.4.9\QQMicroGameBoxService.exe', '');
QuarantineFile('C:\Windows\system32\drivers\QQProtectX64.sys', '');
QuarantineFile('C:\Program Files (x86)\Common Files\Tencent\QQProtect\Bin\QDAntiDrv64.sys', '');
QuarantineFile('C:\Users\KenshiN\AppData\Local\Microsoft\Macromed\Flash Player\Updater Startup Utility\A25EEC2B-E118-4E31-B0C4-00F973B1DCB0.exe', '');
QuarantineFile('C:\ProgramData\AlterGeo\Update', '');
QuarantineFile('C:\Users\KenshiN\AppData\Roaming\Tencent\QQ\QQAntiPhishing\AccountProtect.dll', '');
QuarantineFile('C:\Program Files (x86)\AlterGeo\Html5', '');
QuarantineFile('C:\Program Files (x86)\Tencent\QQMusic\QQMusic1264.21.39.27\QQMusicUninst.exe', '');
DeleteFile('C:\Windows\Tasks\AlterGeoUpdater-S-1-5-18.job', '64');
DeleteFile('C:\Windows\Tasks\AlterGeoUpdaterS-1-5-18.job', '64');
DeleteFile('C:\Program Files (x86)\Common Files\Tencent\QQProtect\Bin\QQProtect.exe', '32');
DeleteFile('C:\Program Files (x86)\Tencent\QQMicroGameBoxService\1.0.4.9\QQMicroGameBoxService.exe', '32');
DeleteFile('C:\Windows\system32\drivers\QQProtectX64.sys', '32');
DeleteFile('C:\Program Files (x86)\Common Files\Tencent\QQProtect\Bin\QDAntiDrv64.sys', '32');
DeleteFile('C:\Users\KenshiN\AppData\Local\Microsoft\Macromed\Flash Player\Updater Startup Utility\A25EEC2B-E118-4E31-B0C4-00F973B1DCB0.exe', '32');
DeleteFile('C:\Users\KenshiN\AppData\Roaming\Tencent\QQ\QQAntiPhishing\AccountProtect.dll', '32');
DeleteFile('C:\Program Files (x86)\Tencent\QQMusic\QQMusic1264.21.39.27\QQMusicUninst.exe', '32');
DeleteService('QPCore');
DeleteService('QQMicroGameBoxService');
DeleteService('QQProtectX64');
DeleteService('QDAntiDrv');
DeleteService('nfklq');
DeleteService('ksapi64');
DeleteFileMask('c:\program files (x86)\common files\tencent', '*', true);
DeleteFileMask('c:\program files (x86)\tencent', '*', true);
DeleteFileMask('c:\users\kenshin\appdata\local\microsoft\macromed\flash player\updater startup utility', '*', true);
DeleteFileMask('c:\programdata\altergeo', '*', true);
DeleteFileMask('c:\users\kenshin\appdata\local\mail.ru', '*', true);
DeleteFileMask('c:\users\kenshin\appdata\roaming\tencent', '*', true);
DeleteFileMask('c:\program files (x86)\altergeo', '*', true);
DeleteDirectory('c:\program files (x86)\common files\tencent');
DeleteDirectory('c:\program files (x86)\tencent');
DeleteDirectory('c:\users\kenshin\appdata\local\microsoft\macromed\flash player\updater startup utility');
DeleteDirectory('c:\programdata\altergeo');
DeleteDirectory('c:\users\kenshin\appdata\local\mail.ru');
DeleteDirectory('c:\users\kenshin\appdata\roaming\tencent');
DeleteDirectory('c:\program files (x86)\altergeo');
DelBHO('{DDD362CF-523B-4BC9-8FDC-58F93B6BC945}');
DelBHO('{A52C66B3-D4A9-4d10-A67D-2BEF0A85AB3F}');
ExecuteFile('schtasks.exe', '/delete /TN "AlterGeoUpdater-S-1-5-18" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "AlterGeoUpdaterS-1-5-18" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "{88701B11-A241-4D15-95F4-01BA917A63FD}" /F', 0, 15000, true);
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'EE508AE5-7D1D-4C45-8ABC-C30FB15B1096');
RegKeyParamDel('HKEY_USERS', '.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run', 'AlterGeoUpdater');
RegKeyParamDel('HKEY_USERS', 'S-1-5-18\Software\Microsoft\Windows\CurrentVersion\Run', 'AlterGeoUpdater');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\GameCenterMailRu', '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;
RebootWindows(true);
end.
Компьютер перезагрузится.