Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ClearQuarantineEx(true);
TerminateProcessByName('c:\users\user\appdata\local\yc\application\yc.exe');
TerminateProcessByName('C:\Windows\System32\Ea3Host.exe');
StopService('Ea3Host');
QuarantineFile('c:\users\user\appdata\local\yc\application\yc.exe', '');
QuarantineFile('C:\Users\User\AppData\Roaming\curl\curl.exe', '');
QuarantineFile('C:\Users\User\AppData\Roaming\curl\curl_7_54.exe', '');
QuarantineFile('C:\Windows\System32\Ea3Host.exe', '');
QuarantineFileF('c:\users\user\appdata\roaming\curl', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.ps1, *.js*, *.tmp*', true, '', 0 , 0);
ExecuteFile('schtasks.exe', '/delete /TN "curl" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "curls" /F', 0, 15000, true);
DeleteFile('c:\users\user\appdata\local\yc\application\yc.exe', '32');
DeleteFile('C:\Users\User\AppData\Roaming\curl\curl.exe', '32');
DeleteFile('C:\Users\User\AppData\Roaming\curl\curl_7_54.exe', '32');
DeleteFile('C:\Users\User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Вoйти в Интeрнет.lnk');
DeleteFile('C:\Users\User\Desktop\Вoйти в Интeрнет.lnk');
DeleteFile('C:\Users\User\Favorites\Links\Интернет.url');
DeleteFile('C:\Windows\System32\Ea3Host.exe', '32');
DeleteService('Ea3Host');
DeleteFileMask('c:\users\user\appdata\local\yc', '*', true);
DeleteFileMask('c:\users\user\appdata\roaming\curl', '*', true);
DeleteDirectory('c:\users\user\appdata\roaming\curl');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'nrfdblvdgd');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'ycAutoLaunch_E945EC6410C7CE86DF55E29C29AFA8B8');
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(21);
ExecuteFile('ipconfig', '/flushdns', 0, 10000, true);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер