[iskander-k]

• Скрипт AVZ.
Выполните скрипт AVZ. Меню Файл - Выполнить скрипт, вставляем написаный скрипт - кнопка Запустить, после выполнения компьютер перезагрузится.

Код:

begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
SearchRootkit(true, true);
SetAVZGuardStatus(True);
 QuarantineFile('C:\ProgramData\DNG.dll','');
 QuarantineFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\4jNhveq4mas.exe','');
 QuarantineFile('C:\Windows\system32\taskhost.exe','');
 QuarantineFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\tpzaw.lnk ','');
 QuarantineFile('C:\plg.txt','');
 DeleteFile('C:\plg.txt');
 DeleteFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\tpzaw.lnk');
 DeleteFile('C:\ProgramData\DNG.dll');
 DeleteFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\4jNhveq4mas.exe');
 DeleteFileMask('C:\Users\Comp\AppData\Roaming\9vO3wAguzta6wyz', '*.*', true);
 DeleteDirectory('C:\Users\Comp\AppData\Roaming\9vO3wAguzta6wyz');
RegKeyStrParamWrite('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','AutoCreateQuarantine', '"' + GetAVZDirectory + 'avz.exe' + '"' + ' Script=' + '"' + GetAVZDirectory + 'Script.txt' + '"');
 AddLineToTxtFile(GetAVZDirectory + 'Script.txt', 'begin'+#13#10+' CreateQurantineArchive(GetAVZDirectory' + ' + ' + Chr(39) + 'quarantine.zip' + Chr(39) + ');'+#13#10+' RegKeyParamDel('+Chr(39)+'HKEY_CURRENT_USER'+Chr(39) + ', ' +Chr(39)+'Software\Microsoft\Windows\CurrentVersion\Run'+Chr(39)+ ', '+Chr(39)+'AutoCreateQuarantine'+Chr(39)+');'+#13#10+' ExecuteFile('+Chr(39)+'explorer.exe'+Chr(39) + ', ' + 'GetAVZDirectory, 1, 0, false);'+#13#10+' ExitAVZ;'+#13#10+'end.');
BC_ImportAll;
ExecuteSysClean;
BC_Activate;
 ExecuteRepair(13);
 ExecuteRepair(14);
RebootWindows(true);
end.

В результате выполнения скрипта будет сформирован карантин quarantine.zip. Полученный архив отправьте через форму

Если пропала сеть и доступ в Интернет
Выполните скрипт в AVZ

Код:

begin 
ExecuteRepair(15); 
RebootWindows(true); 
end.

• Скачайте Malwarebytes Anti-Malware, установите, обновите базы, выберите Perform Full Scan, нажмите Scan, после сканирования - Ok - Show Results (показать результаты) Откройте лог и скопируйте в сообщение.
Если базы MBAM в автоматическом режиме обновить не удалось, обновите их отдельно. Загрузить обновление MBAM.

[Maxik050]

Ещё одна проблема
Ошибка скрипта: ')' expected, позиция [8:18]

[Warrior Kratos]

Maxik050, скрипт поправил, выполняйте:

Код:

begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
SearchRootkit(true, true);
SetAVZGuardStatus(True);
 QuarantineFile('C:\ProgramData\DNG.dll','');
 QuarantineFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\4jNhveq4mas.exe','');
 QuarantineFile('C:\Windows\system32\taskhost.exe','');
 QuarantineFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\tpzaw.lnk ','');
 QuarantineFile('C:\plg.txt','');
 DeleteFile('C:\plg.txt');
 DeleteFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\tpzaw.lnk');
 DeleteFile('C:\ProgramData\DNG.dll');
 DeleteFile('C:\Users\Comp\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\4jNhveq4mas.exe');
 DeleteFileMask('C:\Users\Comp\AppData\Roaming\9vO3wAguzta6wyz', '*.*', true);
 DeleteDirectory('C:\Users\Comp\AppData\Roaming\9vO3wAguzta6wyz');
 RegKeyStrParamWrite('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','AutoCreateQuarantine', '"' + GetAVZDirectory + 'avz.exe' + '"' + ' Script=' + '"' + GetAVZDirectory + 'Script.txt' + '"');
 AddLineToTxtFile(GetAVZDirectory + 'Script.txt', 'begin'+#13#10+' CreateQurantineArchive(GetAVZDirectory' + ' + ' + Chr(39) + 'quarantine.zip' + Chr(39) + ');'+#13#10+' RegKeyParamDel('+Chr(39)+'HKEY_CURRENT_USER'+Chr(39) + ', ' +Chr(39)+'Software\Microsoft\Windows\CurrentVersion\Run'+Chr(39)+ ', '+Chr(39)+'AutoCreateQuarantine'+Chr(39)+');'+#13#10+' ExecuteFile('+Chr(39)+'explorer.exe'+Chr(39) + ', ' + 'GetAVZDirectory, 1, 0, false);'+#13#10+' ExitAVZ;'+#13#10+'end.');
BC_ImportAll;
ExecuteSysClean;
BC_Activate;
 ExecuteRepair(13);
 ExecuteRepair(14);
RebootWindows(true);
end.