наустанавливалась куча прог и приложений, кой что сама удалила, что делать?(
- Вложения
Код: Выделить всё
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
SearchRootkit(true, true);
SetAVZGuardStatus(True);
QuarantineFile('C:\Program Files\5C4606FA-1440679439-453A-B299-7B088C63BB9B\jnsq3D49.tmp', '');
QuarantineFile('C:\Program Files\5C4606FA-1440679439-453A-B299-7B088C63BB9B\knsl122E.tmpfs', '');
QuarantineFile('C:\Program Files\5C4606FA-1440679439-453A-B299-7B088C63BB9B\hnsg5BD3.tmp', '');
QuarantineFile('C:\Users\Алексей\AppData\Roaming\Browsers\exe.emorhc.bat', '');
QuarantineFile('C:\Users\Алексей\AppData\Roaming\Browsers\exe.erolpxei.bat', '');
DeleteFile('C:\Program Files\5C4606FA-1440679439-453A-B299-7B088C63BB9B\jnsq3D49.tmp', '32');
DeleteFile('C:\Program Files\5C4606FA-1440679439-453A-B299-7B088C63BB9B\knsl122E.tmpfs', '32');
DeleteFile('C:\Program Files\5C4606FA-1440679439-453A-B299-7B088C63BB9B\hnsg5BD3.tmp', '32');
DeleteFile('C:\Users\Алексей\AppData\Roaming\Browsers\exe.emorhc.bat', '32');
DeleteFile('C:\Users\Алексей\AppData\Roaming\Browsers\exe.erolpxei.bat', '32');
DeleteService('jimocoso');
DeleteService('kozeliso');
DeleteService('totyseku');
BC_ImportALL;
ExecuteSysClean;
BC_Activate;
ExecuteWizard('SCU', 2, 3, true);
RebootWindows(true);
end.Код: Выделить всё
begin
CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');
end.
Код: Выделить всё
var
LogPath : string;
ScriptPath : string;
begin
LogPath := GetAVZDirectory + 'log\avz_log.txt';
if FileExists(LogPath) Then DeleteFile(LogPath);
ScriptPath := GetAVZDirectory +'ScanVuln.txt';
if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 1) then ExecuteScript(ScriptPath) else
begin
if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 0) then ExecuteScript(ScriptPath)
else begin
ShowMessage('Невозможно загрузить скрипт AVZ для обнаружения наиболее часто используемых уязвимостей!');
exit;
end;
end;
if FileExists(LogPath) Then ExecuteFile('notepad.exe', LogPath, 1, 0, false)
end.