Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
TerminateProcessByName('c:\program files (x86)\rglsumfyoie\miqjwvskxb.exe');
TerminateProcessByName('C:\Windows\imesrv.exe');
QuarantineFile('C:\Program Files (x86)\aunVMUbNiU.exe', '');
QuarantineFile('C:\Program Files (x86)\qwfRohVFxxGU2\IzTpQQpIAmvKX.dll', '');
QuarantineFile('C:\Program Files (x86)\RGlsUMfYOIE\2yVJeT.dll', '');
QuarantineFile('C:\Program Files (x86)\RGlsUMfYOIE\ktnwMn4Vi.dll', '');
QuarantineFile('c:\program files (x86)\rglsumfyoie\miqjwvskxb.exe', '');
QuarantineFile('C:\Program Files (x86)\vzlsVHjbHHOzmiMpIxR\KuAgLQq.dll', '');
QuarantineFile('C:\Program Files (x86)\YlVLjqGVU\zpQImK.dll', '');
QuarantineFile('C:\Users\admin\AppData\Local\mtJOUEIceqZ.exe', '');
QuarantineFile('C:\Users\admin\AppData\Local\Optimizer\Optimizer.exe', '');
QuarantineFile('C:\Users\admin\AppData\Local\Temp\d3dx11_31.dll', '');
QuarantineFile('C:\Windows\imesrv.exe', '');
DeleteFile('"C:\Program Files (x86)\aunVMUbNiU.exe" /q /i http://freshnerrb.info/0QQnIt525FV1.yUm', '32');
DeleteFile('C:\Program Files (x86)\aunVMUbNiU.exe', '32');
DeleteFile('C:\Program Files (x86)\Mail.Ru\MailRuUpdater\MailRuUpdater.exe', '32');
DeleteFile('C:\Program Files (x86)\qwfRohVFxxGU2\IzTpQQpIAmvKX.dll', '32');
DeleteFile('C:\Program Files (x86)\RGlsUMfYOIE\2yVJeT.dll', '32');
DeleteFile('C:\Program Files (x86)\RGlsUMfYOIE\ktnwMn4Vi.dll', '32');
DeleteFile('c:\program files (x86)\rglsumfyoie\miqjwvskxb.exe', '32');
DeleteFile('C:\Program Files (x86)\vzlsVHjbHHOzmiMpIxR\KuAgLQq.dll', '32');
DeleteFile('C:\Program Files (x86)\YlVLjqGVU\zpQImK.dll', '32');
DeleteFile('C:\Program Files (x86)\Zaxar\ZaxarLoader.exe', '32');
DeleteFile('C:\Users\admin\AppData\Local\Mail.Ru\MailRuUpdater.exe', '32');
DeleteFile('C:\Users\admin\AppData\Local\mtJOUEIceqZ.exe', '32');
DeleteFile('C:\Users\admin\AppData\Local\Optimizer\Optimizer.exe', '32');
DeleteFile('C:\Users\admin\AppData\Local\Temp\d3dx11_31.dll', '32');
DeleteFile('C:\Windows\imesrv.exe', '32');
DeleteFile('C:\Windows\System32\mracsvc.exe', '32');
ExecuteFile('schtasks.exe', '/delete /TN "{1F3B77C0-7A84-4247-B79C-37FD139958AD}" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "{964C287C-AB17-4FB6-8231-6E0C8AB25B93}" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "MailRuUpdater" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "riQfNeUpomoVAkX2" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "WdtbjSHxksVivgkcm2" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "yYGDsOPCPYeOKD" /F', 0, 15000, true);
DeleteService('mracsvc');
DeleteService('Updater.Mail.Ru');
DeleteFileMask('c:\program files (x86)\qwfrohvfxxgu2', '*', true);
DeleteFileMask('c:\program files (x86)\rglsumfyoie', '*', true);
DeleteFileMask('c:\program files (x86)\vzlsvhjbhhozmimpixr', '*', true);
DeleteFileMask('c:\program files (x86)\ylvljqgvu', '*', true);
DeleteFileMask('c:\program files (x86)\zaxar', '*', true);
DeleteFileMask('c:\users\admin\appdata\local\optimizer', '*', true);
DeleteDirectory('c:\program files (x86)\mail.ru');
DeleteDirectory('c:\program files (x86)\qwfrohvfxxgu2');
DeleteDirectory('c:\program files (x86)\rglsumfyoie');
DeleteDirectory('c:\program files (x86)\vzlsvhjbhhozmimpixr');
DeleteDirectory('c:\program files (x86)\ylvljqgvu');
DeleteDirectory('c:\program files (x86)\zaxar');
DeleteDirectory('c:\users\admin\appdata\local\mail.ru');
DeleteDirectory('c:\users\admin\appdata\local\optimizer');
DelBHO('{C0D38E5A-7CF8-4105-8FE8-31B81443A114}');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'DirectX 11');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'MailRuUpdater');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'THIS IS WIIIGET!');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Optimizer.exe');
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.
Компьютер перезагрузится.