Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
QuarantineFile('C:\ProgramData\Windows NT\dlchosts.exe', '');
QuarantineFileF('c:\programdata\windows nt', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js*, *.tmp*', false, '', 0 , 0);
DeleteFile('C:\ProgramData\Windows NT\dlchosts.exe', '32');
DeleteFile('C:\Users\akret\Favorites\OVGORSKIY.url');
ExecuteFile('schtasks.exe', '/delete /TN "{21F38BB2-DBD6-4EF8-8572-0DCA700C4CA1}" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "{358A77D4-D5C6-47F2-BFA5-EFBADB3F60B8}" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "{49873422-7370-4E47-943A-A61DA91892B4}" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "{7B818B4A-EF35-414A-9998-9E6D6A5E1855}" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Maintenance\WinDAT" /F', 0, 15000, true);
DeleteFileMask('c:\programdata\windows nt', '*', true);
DeleteDirectory('c:\programdata\windows nt');
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\', '1201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.