Код:
begin
TerminateProcessByName('d:\tmp\1694.tmp.exe');
TerminateProcessByName('d:\tmp\e.exe');
TerminateProcessByName('C:\Users\Виктор-Анна\AppData\Roaming\System\svchost.exe');
TerminateProcessByName('C:\Program Files\UBar\ubar.exe');
StopService('clr_optimization_v1.03');
StopService('UbarCalloutDriver');
QuarantineFileF('d:\tmp', '*.exe', false, '', 0 , 0);
QuarantineFile('d:\tmp\1694.tmp.exe', '');
QuarantineFile('d:\tmp\e.exe', '');
QuarantineFile('C:\Program Files\UBar\ubar.exe', '');
QuarantineFile('C:\Users\Виктор-Анна\AppData\Roaming\System\svchost.exe', '');
QuarantineFile('C:\Program Files\UBar\UbarDriver.sys', '');
QuarantineFile('C:\Users\Виктор-Анна\AppData\Roaming\TablacusApp\TablacusApp.exe', '');
QuarantineFile('D:\tmp\GZ0xIGa2PkiM.exe', '');
QuarantineFile('D:\tmp\YG0HEO~1.EXE', '');
QuarantineFile('D:\tmp\FvPPuCsvju0k.exe', '');
QuarantineFile('C:\Users\Виктор-Анна\AppData\Local\fupdate\fupdate.exe', '');
QuarantineFile('C:\Users\Виктор-Анна\AppData\Local\FilterStart\FilterStart.exe', '');
QuarantineFile('C:\Users\Виктор-Анна\AppData\Local\SearchGo\searchgo.exe', '');
QuarantineFile('C:\Users\Виктор-Анна\AppData\Local\svshost\svshost.exe', '');
QuarantineFile('C:\Program Files (x86)\ScreenUp\future_helper.exe', '');
DeleteFile('d:\tmp\1694.tmp.exe', '32');
DeleteFile('d:\tmp\e.exe', '32');
DeleteFile('C:\Program Files\UBar\ubar.exe', '32');
DeleteFile('C:\Users\Виктор-Анна\AppData\Roaming\System\svchost.exe', '32');
DeleteFile('C:\Program Files\UBar\UbarDriver.sys', '32');
DeleteFile('C:\Users\Виктор-Анна\AppData\Roaming\TablacusApp\TablacusApp.exe', '32');
DeleteFile('D:\tmp\GZ0xIGa2PkiM.exe', '32');
DeleteFile('D:\tmp\YG0HEO~1.EXE', '32');
DeleteFile('D:\tmp\FvPPuCsvju0k.exe', '32');
DeleteFile('C:\Users\Виктор-Анна\AppData\Local\fupdate\fupdate.exe', '32');
DeleteFile('C:\Users\Виктор-Анна\AppData\Local\FilterStart\FilterStart.exe', '32');
DeleteFile('C:\Users\Виктор-Анна\AppData\Local\SearchGo\searchgo.exe', '32');
DeleteFile('C:\Users\Виктор-Анна\AppData\Local\svshost\svshost.exe', '32');
DeleteFile('C:\Program Files (x86)\ScreenUp\future_helper.exe', '32');
DeleteService('clr_optimization_v1.03');
DeleteService('UbarCalloutDriver');
DeleteFileMask('c:\program files\ubar', '*', true);
DeleteFileMask('c:\users\виктор-анна\appdata\roaming\tablacusapp', '*', true);
DeleteFileMask('c:\users\виктор-анна\appdata\local\fupdate', '*', true);
DeleteFileMask('c:\users\виктор-анна\appdata\local\filterstart', '*', true);
DeleteFileMask('c:\users\виктор-анна\appdata\local\searchgo', '*', true);
DeleteFileMask('c:\users\виктор-анна\appdata\local\svshost', '*', true);
DeleteFileMask('c:\program files (x86)\screenup', '*', true);
DeleteDirectory('c:\program files\ubar');
DeleteDirectory('c:\users\виктор-анна\appdata\roaming\tablacusapp');
DeleteDirectory('c:\users\виктор-анна\appdata\local\fupdate');
DeleteDirectory('c:\users\виктор-анна\appdata\local\filterstart');
DeleteDirectory('c:\users\виктор-анна\appdata\local\searchgo');
DeleteDirectory('c:\users\виктор-анна\appdata\local\svshost');
DeleteDirectory('c:\program files (x86)\screenup');
ExecuteFile('schtasks.exe', '/delete /TN "fupdate" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Language Command Helper" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "SearchGo Task" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "svshost" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Trusted Private Helper" /F', 0, 15000, true);
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'TablacusApp');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'mhbpmzrdsa');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'igvbmnfsin');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'speeddialmaker_delete_self');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'oexxafyyob');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'bvbkhyghre');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.