Код:
begin
TerminateProcessByName('C:\Windows\Temp\g438D.tmp.exe');
TerminateProcessByName('C:\Windows\Temp\g4795.tmp.exe');
QuarantineFile('C:\Windows\Temp\g438D.tmp.exe', '');
QuarantineFile('C:\Windows\Temp\g4795.tmp.exe', '');
QuarantineFile('C:\WINDOWS\System32\themctrl.dll', '');
QuarantineFile('C:\WINDOWS\System32\wbiosrvp.dll', '');
QuarantineFile('C:\Users\Дмитрий\AppData\Local\MapleStudio\ISSCH\issch.exe', '');
QuarantineFile('C:\Users\Дмитрий\AppData\Roaming\Microsoft\msi.exe', '');
QuarantineFileF('C:\WINDOWS\Microsoft', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js', true, '', 0, 0);
QuarantineFileF('C:\Program Files (x86)\Kzoshdirise', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js', true, '', 0, 0);
DeleteFile('C:\Windows\Temp\g438D.tmp.exe', '32');
DeleteFile('C:\Windows\Temp\g4795.tmp.exe', '32');
DeleteFile('C:\WINDOWS\System32\themctrl.dll', '32');
DeleteFile('C:\WINDOWS\System32\wbiosrvp.dll', '32');
DeleteFile('C:\Users\Дмитрий\Favorites\Links\Интернет.url', '32');
DeleteFile('C:\Users\Дмитрий\AppData\Local\MapleStudio\ISSCH\issch.exe', '32');
DeleteFile('C:\Users\Дмитрий\AppData\Roaming\Microsoft\msi.exe', '32');
DeleteFileMask('c:\users\дмитрий\appdata\local\maplestudio\issch', '*', true);
DeleteFileMask('C:\WINDOWS\Microsoft', '*', true);
DeleteFileMask('C:\Program Files (x86)\Kzoshdirise', '*', true);
DeleteDirectory('c:\users\дмитрий\appdata\local\maplestudio\issch');
DeleteDirectory('C:\WINDOWS\Microsoft');
DeleteDirectory('C:\Program Files (x86)\Kzoshdirise');
ExecuteFile('schtasks.exe', '/delete /TN "InstallShield Update Service" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Bozerght" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "MSI" /F', 0, 15000, true);
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Services\themctrl\Parameters', 'ServiceDll');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Services\wbiosrvp\Parameters', 'ServiceDll');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\RunOnce', 'DESKTOP-E4PQ5QA');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
RebootWindows(false);
end.
Компьютер перезагрузится.