Код:
begin
TerminateProcessByName('c:\programdata\csrss.exe');
TerminateProcessByName('c:\programdata\dwm.exe');
QuarantineFile('c:\programdata\{E4FB901E-DDCB-66C6-2301-02C681681B3D}\49444081.exe', '');
QuarantineFile('c:\programdata\csrss.exe', '');
QuarantineFile('c:\programdata\dwm.exe', '');
QuarantineFile('C:\ProgramData\PrtScr\MgopEn\driverUp.exe', '');
QuarantineFile('c:\users\almat\appdata\roaming\{9E9E6F34-0FAC-C687-6F8D-AB9D5078F273}\3321bfab.exe', '');
QuarantineFile('C:\Users\almat\AppData\Roaming\ievdevjh\vhdvdiva.exe', '');
QuarantineFile('C:\Users\almat\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Mpeg.exe', '');
QuarantineFile('C:\Users\almat\AppData\Roaming\Microsoft\Windows\themes\Amoaoa.exe', '');
QuarantineFile('C:\Users\almat\AppData\Roaming\WindowsUpdate\Updater.exe', '');
QuarantineFileF('C:\ProgramData', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.lnk', false, '', 0, 0);
QuarantineFileF('C:\Users\almat\AppData\Roaming\My-top-apps', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js', true, '', 0, 0);
DeleteFile('c:\programdata\{E4FB901E-DDCB-66C6-2301-02C681681B3D}\49444081.exe', '32');
DeleteFile('c:\programdata\csrss.exe', '32');
DeleteFile('c:\programdata\dwm.exe', '32');
DeleteFile('C:\ProgramData\PrtScr\MgopEn\driverUp.exe', '32');
DeleteFile('c:\users\almat\appdata\roaming\{9E9E6F34-0FAC-C687-6F8D-AB9D5078F273}\3321bfab.exe', '32');
DeleteFile('C:\Users\almat\AppData\Roaming\ievdevjh\vhdvdiva.exe', '32');
DeleteFile('C:\Users\almat\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\Mail.Ru.lnk');
DeleteFile('C:\Users\almat\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Mpeg.exe', '32');
DeleteFile('C:\Users\almat\AppData\Roaming\Microsoft\Windows\themes\Amoaoa.exe', '32');
DeleteFile('C:\Users\almat\AppData\Roaming\WindowsUpdate\Updater.exe', '32');
ExecuteFile('schtasks.exe', '/delete /TN "{028E4704-279C-5A97-6F8D-AB9D5078F273}" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "{78EBB82E-F5FB-FAD6-2301-02C681681B3D}" /F', 0, 15000, true);
DeleteFileMask('C:\ProgramData', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.lnk', false);
DeleteFileMask('c:\programdata\prtscr\mgopen', '*', true);
DeleteFileMask('c:\users\almat\appdata\roaming\{9e9e6f34-0fac-c687-6f8d-ab9d5078f273}', '*', true);
DeleteFileMask('c:\users\almat\appdata\roaming\ievdevjh', '*', true);
DeleteFileMask('C:\Users\almat\AppData\Roaming\My-top-apps', '*', true);
DeleteFileMask('c:\users\almat\appdata\roaming\windowsupdate', '*', true);
DeleteDirectory('c:\programdata\prtscr\mgopen');
DeleteDirectory('c:\users\almat\appdata\roaming\{9e9e6f34-0fac-c687-6f8d-ab9d5078f273}');
DeleteDirectory('c:\users\almat\appdata\roaming\ievdevjh');
DeleteDirectory('C:\Users\almat\AppData\Roaming\My-top-apps');
DeleteDirectory('c:\users\almat\appdata\roaming\windowsupdate');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Amoaoa');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'bmyto');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Windows Update Installer');
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;
ExecuteRepair(1);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.