Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
TerminateProcessByName('c:\windows\microsoft\svchost.exe');
StopService('SvcHost Service Host');
QuarantineFile('c:\users\dima\appdata\local\syslog\syslog.exe', '');
QuarantineFile('C:\Users\Dima\AppData\Roaming\curl\curl.exe', '');
QuarantineFile('C:\Users\Dima\AppData\Roaming\curl\curl_7_54.exe', '');
QuarantineFile('C:\Users\Dima\AppData\Roaming\wget\wget.exe', '');
QuarantineFile('C:\Users\Dima\AppData\Roaming\wget\wget_1_19_4.exe', '');
QuarantineFile('c:\windows\microsoft\svchost.exe', '');
DeleteFile('C:\Users\Dima\AppData\Local\Microsoft\Start Menu\Вoйти в Интeрнeт.lnk', '32');
DeleteFile('c:\users\dima\appdata\local\syslog\syslog.exe', '32');
DeleteFile('C:\Users\Dima\AppData\Roaming\curl\curl.exe', '32');
DeleteFile('C:\Users\Dima\AppData\Roaming\curl\curl_7_54.exe', '32');
DeleteFile('C:\Users\Dima\AppData\Roaming\wget\wget.exe', '32');
DeleteFile('C:\Users\Dima\AppData\Roaming\wget\wget_1_19_4.exe', '32');
DeleteFile('C:\Users\Dima\Favorites\Links\Интернет.url', '32');
DeleteFile('c:\windows\microsoft\svchost.exe', '32');
ExecuteFile('ipconfig.exe', '/flushdns', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "curl" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "curls" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "InternetCache" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "wget" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "wgets" /F', 0, 15000, true);
DeleteService('SvcHost Service Host');
DeleteFileMask('c:\users\dima\appdata\local\syslog', '*', true);
DeleteFileMask('c:\users\dima\appdata\roaming\curl', '*', true);
DeleteFileMask('c:\users\dima\appdata\roaming\wget', '*', false);
DeleteFileMask('c:\windows\microsoft', '*', true);
DeleteDirectory('c:\users\dima\appdata\local\syslog');
DeleteDirectory('c:\users\dima\appdata\roaming\curl');
DeleteDirectory('c:\users\dima\appdata\roaming\wget');
DeleteDirectory('c:\windows\microsoft');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'ogheasfydd');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteRepair(21);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.