Показано с 1 по 8 из 8.

Вирус с флешки (заявка № 194445)

  1. #1
    Junior Member Репутация
    Регистрация
    04.12.2015
    Сообщений
    7
    Вес репутации
    8

    Вирус с флешки

    Подцепили вирус с флешки, помогите пожалуйста
    Вложения Вложения

  2. Будь в курсе!
    Реклама на VirusInfo

    Надоело быть жертвой? Стань профи по информационной безопасности, получай самую свежую информацию об угрозах и средствах защиты от ведущего российского аналитического центра Anti-Malware.ru:

    Anti-Malware Telegram
     

  3. #2
    Cyber Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Аватар для Info_bot
    Регистрация
    11.05.2011
    Сообщений
    2,459
    Вес репутации
    342
    Уважаемый(ая) sir_matrix, спасибо за обращение на наш форум!

    Помощь в лечении комьютера на VirusInfo.Info оказывается абсолютно бесплатно. Хелперы в самое ближайшее время ответят на Ваш запрос. Для оказания помощи необходимо предоставить логи сканирования утилитами АВЗ и HiJackThis, подробнее можно прочитать в правилах оформления запроса о помощи.

    information

    Информация

    Если вы хотите получить персональную гарантированную помощь в приоритетном режиме, то воспользуйтесь платным сервисом Помогите+.





    Если наш сайт окажется полезен Вам и у Вас будет такая возможность - пожалуйста поддержите проект.

  4. #3
    Невымерший Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Аватар для thyrex
    Регистрация
    07.03.2009
    Адрес
    Soligorsk, Belarus
    Сообщений
    96,357
    Вес репутации
    3019
    Выполните скрипт в AVZ
    Код:
    var
    DescriptionTextWuauServ, DispayNameTextWuauServ, DescriptionTextBITS: String;
    DispayNameTextBITS, FullPathSystem32, NameFolderSystem32, FileServiceDll: String;
    ImagePathStr, RootStr, SubRootStr, LangID: string;
    AllRoots, AllKeys, RootsRestored, KeysRestored, KeysFixed: integer;
    FinishMsg, RestoreMsg, FixMsg, CheckMsg: String;
    RegSectMsg, ParamMsg, ParamValueMsg, InRegSectMsg, CorrectMsg, RestMsg: String;
    
    procedure CheckAndRestoreSection(Root: String);
    begin
    Inc(AllRoots);
    if RegKeyExistsEx('HKLM', Root)
      then RegKeyResetSecurity('HKLM', Root)
      else
       begin
        Inc(RootsRestored);
        RegKeyCreate('HKLM', Root);
        AddToLog(RegSectMsg + Root + RestMsg);
       end;
    end;
    
    procedure CheckAndRestoreSubSection;
    begin
    CheckAndRestoreSection(SubRootStr);
    end;
    
    procedure RestoredMsg(Root, Param: String);
    begin
    AddToLog(ParamMsg + Param + InRegSectMsg + Root + RestMsg);
    Inc(KeysRestored);
    end;
    
    procedure FixedMsg(Root, Param: String);
    begin
    AddToLog(ParamValueMsg + Param + InRegSectMsg + Root + CorrectMsg);
    Inc(KeysFixed);
    end;
    
    procedure RestoreStrParam(Root, Param, Value: String);
    begin
    RegKeyStrParamWrite('HKLM', Root, Param, Value);
    RestoredMsg(Root, Param);
    end;
    
    procedure CheckAndRestoreStrParam(Root, Param, Value: String);
    begin
    Inc(AllKeys);
    if not RegKeyParamExists('HKLM', Root, Param)
      then RestoreStrParam(Root, Param, Value);
    end;
    
    procedure CheckAndRestoreIntParam(Root, Param: String; Value: Integer);
    begin
    Inc(AllKeys);
    if not RegKeyParamExists('HKLM', Root, Param) then
      begin
       RegKeyIntParamWrite('HKLM', Root, Param, Value);
       RestoredMsg(Root, Param);
      end;
    end;
    
    procedure CheckAndRestoreMultiSZParam(Param, Value: String);
    begin
    Inc(AllKeys);
    if not RegKeyParamExists('HKLM', RootStr, Param)
      then
       begin
        ExecuteFile('REG ADD HKLM\' + RootStr + ' /v ' + Param + Value, '', 0, 10000, true);
        RestoredMsg(RootStr, Param);
       end;
    end;
    
    // Исправление значения параметра ImagePath для служб 'wuauserv' и 'BITS'
    procedure ImagePathFix(Node, Srv: String);
    var RegStr: String;
    begin
    RegStr:= 'SYSTEM\' + Node + '\Services\' + Srv;
    if RegKeyExistsEx('HKLM', RegStr) then
      begin
       Inc(AllKeys);
       RegKeyResetSecurity('HKLM', RegStr);
       RegKeyStrParamWrite('HKLM', RegStr, 'ImagePath', ImagePathStr);
       FixedMsg(RegStr, 'ImagePath');
      end;
    end;
    
    { Выполнение исправление всех ключей в ветках -
       'HKLM\SYSTEM\CurrentControlSet\Services\BITS' и 'HKLM\SYSTEM\CurrentControlSet\Services\wuauserv'}
    procedure CorrectRegistryRoot(DescriptionText, DisplayNameText, Srv: String);
    var FileServiceDll, CCSNumber: string;
         i : integer;
    begin
    if Srv = 'BITS'
      then FileServiceDll := FullPathSystem32 + 'qmgr.dll'
      else FileServiceDll := FullPathSystem32 + 'wuauserv.dll';
    RootStr:= 'SYSTEM\CurrentControlSet\Services\' + Srv;
    
    CheckAndRestoreSection(RootStr);
    
    CheckAndRestoreStrParam(RootStr, 'Description', DescriptionText);
    CheckAndRestoreStrParam(RootStr, 'DisplayName', DisplayNameText);
    CheckAndRestoreStrParam(RootStr, 'ObjectName', 'LocalSystem');
    
    Inc(AllKeys);
    if not RegKeyParamExists('HKLM', RootStr, 'ImagePath')
      then RestoreStrParam(RootStr, 'ImagePath', ImagePathStr)
      else
       begin
        Dec(AllKeys);
        if LowerCase(RegKeyStrParamRead('HKLM', RootStr, 'ImagePath')) <> LowerCase(ImagePathStr)
         then
          for i:= 0 to 999 do
           begin
            if i > 0
             then CCSNumber:= FormatFloat('ControlSet000', i)
             else CCSNumber:= 'CurrentControlSet';
             ImagePathFix(CCSNumber, Srv);
            end;
       end;
    
    CheckAndRestoreIntParam(RootStr, 'ErrorControl', 1);
    CheckAndRestoreIntParam(RootStr, 'Start', 2);
    CheckAndRestoreIntParam(RootStr, 'Type', 32);
    
    if Srv = 'BITS'
      then
       begin
        CheckAndRestoreMultiSZParam('DependOnService', ' /t REG_MULTI_SZ /d RpcSs');
        CheckAndRestoreMultiSZParam('DependOnGroup', ' /t REG_MULTI_SZ');
       end;
    
    SubRootStr:= RootStr + '\Enum';
    CheckAndRestoreSubSection;
    
    CheckAndRestoreStrParam(SubRootStr, '0', 'Root\LEGACY_' + UpperCase(Srv) + '\0000');
    CheckAndRestoreIntParam(SubRootStr, 'Count', 1);
    CheckAndRestoreIntParam(SubRootStr, 'NextInstance', 1);
    
    SubRootStr := RootStr + '\Security';
    CheckAndRestoreSubSection;
    
    Inc(AllKeys);
    if not RegKeyParamExists('HKLM', SubRootStr, 'Security') then
      begin
       RegKeyBinParamWrite('HKLM', SubRootStr, 'Security', '01,00,14,80,78,00,00,00,84,00,00,00,14,00,00,00,30,00,00,00,02,00,1c,00,01,00,00,00,02,80,14,00,ff,00,0f,00,01,01,00,00,00,00,00,01,00,00,00,00,02,00,48,00,03,00,00,00,00,00,14,00,9d,00,02,00,01,01,00,00,00,00,00,05,0b,00,00,00,00,00,18,00,ff,01,0f,00,01,02,00,00,00,00,00,05,20,00,00,00,20,02,00,00,00,00,14,00,ff,01,0f,00,01,01,00,00,00,00,00,05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00');
       RestoredMsg(SubRootStr, 'Security');
      end;
    
    SubRootStr:= RootStr + '\Parameters';
    CheckAndRestoreSubSection;
    
    Inc(AllKeys);
    if not RegKeyParamExists('HKLM', SubRootStr, 'ServiceDll')
      then
      begin
       RegKeyParamWrite('HKLM', SubRootStr, 'ServiceDll', 'REG_EXPAND_SZ', FileServiceDll);
       RestoredMsg(SubRootStr, 'ServiceDll');
      end
       else
        if LowerCase(RegKeyStrParamRead('HKLM', SubRootStr, 'ServiceDll')) <> LowerCase(FileServiceDll)
         then
          begin
           RegKeyParamWrite('HKLM', SubRootStr, 'ServiceDll', 'REG_EXPAND_SZ', FileServiceDll);
           FixedMsg(SubRootStr, 'ServiceDll');
          end
    end;
    
    { Главное выполнение }
    begin
    ClearLog;
    ExpRegKey('HKLM', 'SYSTEM\CurrentControlSet\Services\wuauserv', 'wuauserv.reg');
    ExpRegKey('HKLM', 'SYSTEM\CurrentControlSet\Services\BITS', 'BITS.reg');
    LangID:= RegKeyStrParamRead('HKLM', 'SYSTEM\CurrentControlSet\Control\Nls\Language', 'InstallLanguage');
    if LangID = '0419'
      then
       begin
        DescriptionTextWuauServ:= 'Включает загрузку и установку обновлений Windows. Если служба отключена, то на этом компьютере нельзя будет использовать возможности автоматического обновления или веб-узел Центра обновления Windows.';
        DispayNameTextWuauServ:= 'Автоматическое обновление';
        DescriptionTextBITS:= 'Обеспечивает передачу данных между клиентами и серверами в фоновом режиме. Если служба BITS отключена, такие возможности, как Windows Update, не могут правильно работать.';
        DispayNameTextBITS:= 'Фоновая интеллектуальная служба передачи (BITS)';
        AddToLog('Операционная система - русская');
        FinishMsg:= '–––– Восстановление завершено ––––';
        RestoreMsg:= 'Восстановлено разделов\параметров: ';
        FixMsg:= 'Исправлено параметров: ';
        CheckMsg:= 'Проверено разделов\параметров: ';
        RegSectMsg:= 'Раздел реестра HKLM\';
        ParamMsg:= 'Параметр ';
        ParamValueMsg:= 'Значение параметра ';
        InRegSectMsg:= ' в разделе реестра HKLM\';
        CorrectMsg:= ' исправлено на оригинальное.';
        RestMsg:= ' восстановлен.';
       end
      else
       if LangID = '0409'
        then
         begin
          DescriptionTextWuauServ:= 'Enables the download and installation of Windows updates. If this service is disabled, this computer will not be able to use the Automatic Updates feature or the Windows Update Web site.';
          DispayNameTextWuauServ := 'Automatic Updates';
          DescriptionTextBITS:= 'Transfers data between clients and servers in the background. If BITS is disabled, features such as Windows Update will not work correctly.';
          DispayNameTextBITS:= 'Background Intelligent Transfer Service';
          AddToLog('Operation system - english');
          FinishMsg:= '–––– Restoration finished ––––';
          RestoreMsg:= 'Sections\parameters restored: ';
          FixMsg:= 'Parameters corrected: ';
          CheckMsg:= 'Sections\parameters checked: ';
          RegSectMsg:= 'Registry section HKLM\';
          ParamMsg:= 'Parameter ';
          ParamValueMsg:= 'Value of parameter ';
          InRegSectMsg:= ' in registry section HKLM\';
          CorrectMsg:= ' corrected on original.';
          RestMsg:= ' restored.';
         end;
    AddToLog('');
    
    { Определение папки X:\Windows\System32\ }
    NameFolderSystem32:= RegKeyStrParamRead('HKLM', 'SYSTEM\CurrentControlSet\Control\Windows', 'SystemDirectory');
    ImagePathStr:= NameFolderSystem32 + '\svchost.exe -k netsvcs';
    Delete(NameFolderSystem32, 1, pos('\', NameFolderSystem32) - 1);
    FullPathSystem32:= GetEnvironmentVariable('WinDir') + NameFolderSystem32 + '\';
    
    AllRoots:= 0;
    AllKeys:= 0;
    RootsRestored:= 0;
    KeysRestored:= 0;
    KeysFixed:= 0;
    
    CorrectRegistryRoot(DescriptionTextBITS, DispayNameTextBITS, 'BITS');
    CorrectRegistryRoot(DescriptionTextWuauServ, DispayNameTextWuauServ, 'wuauserv');
    
    AddToLog('');
    AddToLog(FinishMsg);
    AddToLog('');
    AddToLog(RestoreMsg + IntToStr(RootsRestored) + ' \ ' + IntToStr(KeysRestored));
    AddToLog(FixMsg + IntToStr(KeysFixed));
    AddToLog(CheckMsg + IntToStr(AllRoots) + ' \ ' + IntToStr(AllKeys));
    SaveLog(RegKeyStrParamRead('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 'Desktop') + '\Correct_wuauserv&BITS.log');
    end.
    После выполнения скрипта на Рабочем столе появится текстовый файл Correct_wuauserv&BITS. Прикрепите его к следующему сообщению


    Выполните скрипт в AVZ
    Код:
    begin
    ShowMessage('Внимание! Перед выполнением скрипта AVZ автоматически закроет все сетевые подключения.' + #13#10 + 'После перезагрузки компьютера подключения к сети будут восстановлены в автоматическом режиме.');
    ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
    if not IsWOW64
     then
      begin
       SearchRootkit(true, true);
       SetAVZGuardStatus(True);
      end;
     QuarantineFile('C:\PROGRA~1\WINDOW~4\Datamngr\DATAMN~1.EXE','');
     QuarantineFile('C:\PROGRA~1\WINDOW~4\Datamngr\IEBHO.dll','');
     QuarantineFile('C:\PROGRA~1\WINDOW~4\Datamngr\datamngr.dll','');
     DeleteFile('C:\PROGRA~1\WINDOW~4\Datamngr\datamngr.dll','32');
     DeleteFile('C:\PROGRA~1\WINDOW~4\Datamngr\IEBHO.dll','32');
     DeleteFile('C:\PROGRA~1\WINDOW~4\Datamngr\DATAMN~1.EXE','32');
     DeleteFile('C:\Program Files\Ask.com\Updater\Updater.exe','32');
     RegKeyParamDel('HKEY_LOCAL_MACHINE','SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\ApnUpdater','command');
     RegKeyParamDel('HKEY_LOCAL_MACHINE','SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\DATAMNGR','command');
     BC_ImportAll;
    ExecuteSysClean;
    BC_Activate;
    RebootWindows(false);
    end.
    Будет выполнена перезагрузка компьютера.

    Выполните скрипт в AVZ
    Код:
    begin
    CreateQurantineArchive('c:\quarantine.zip');
    end.
    c:\quarantine.zip пришлите по красной ссылке Прислать запрошенный карантин над первым сообщением в Вашей теме.

    Выполните правила ЕЩЕ РАЗ и предоставьте НОВЫЕ логи
    Microsoft MVP 2012-2016 Consumer Security
    Microsoft MVP 2016 Reconnect

  5. #4
    Junior Member Репутация
    Регистрация
    04.12.2015
    Сообщений
    7
    Вес репутации
    8
    Готово, во вложении
    Вложения Вложения

  6. #5
    Невымерший Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Аватар для thyrex
    Регистрация
    07.03.2009
    Адрес
    Soligorsk, Belarus
    Сообщений
    96,357
    Вес репутации
    3019
    Microsoft MVP 2012-2016 Consumer Security
    Microsoft MVP 2016 Reconnect

  7. #6
    Junior Member Репутация
    Регистрация
    04.12.2015
    Сообщений
    7
    Вес репутации
    8
    во вложении
    Вложения Вложения
    • Тип файла: txt mbam.txt (134.5 Кб, 1 просмотров)

  8. #7
    Невымерший Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Аватар для thyrex
    Регистрация
    07.03.2009
    Адрес
    Soligorsk, Belarus
    Сообщений
    96,357
    Вес репутации
    3019
    Удалите в МВАМ все, кроме
    Код:
    Trojan.Agent.CK, E:\Program\INTERNET\The Bat\the_bat3.x.x.rar, , [5386a109b9d29f971725a6437e831ee2], 
    HackTool.Agent, C:\!INST\abbp.zip, , [b2275d4d2d5ea2940d51a2642bd54eb2], 
    Trojan.Agent.Drop, C:\WINDOWS\system32\hidcon.exe, , [f1e81c8eb5d60d292c652e02b9499967],
    Microsoft MVP 2012-2016 Consumer Security
    Microsoft MVP 2016 Reconnect

  9. #8
    Cybernetic Helper Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация Репутация
    Регистрация
    29.12.2008
    Сообщений
    48,318
    Вес репутации
    953

    Итог лечения

    Статистика проведенного лечения:
    • Получено карантинов: 1
    • Обработано файлов: 6
    • В ходе лечения вредоносные программы в карантинах не обнаружены


  • Уважаемый(ая) sir_matrix, наши специалисты оказали Вам всю возможную помощь по вашему обращению.

    В целях поддержания безопасности вашего компьютера настоятельно рекомендуем:

     

     

    Чтобы всегда быть в курсе актуальных угроз в области информационной безопасности и сохранять свой компьютер защищенным, рекомендуем следить за последними новостями ИТ-сферы портала Anti-Malware.ru:

     

     

    Anti-Malware VK

     

    Anti-Malware Telegram

     

     

    Надеемся больше никогда не увидеть ваш компьютер зараженным!

     

    Если Вас не затруднит, пополните пожалуйста нашу базу безопасных файлов.

  • Похожие темы

    1. Ответов: 7
      Последнее сообщение: 04.02.2015, 19:57
    2. Внутри флешки создается ярлык самой флешки
      От Araksasus в разделе Помогите!
      Ответов: 2
      Последнее сообщение: 12.06.2013, 09:05
    3. Ответов: 2
      Последнее сообщение: 10.06.2013, 19:09
    4. Вирус с флешки.
      От Deluxe в разделе Помогите!
      Ответов: 3
      Последнее сообщение: 17.02.2013, 15:57
    5. Вирус с флешки
      От xzence в разделе Помогите!
      Ответов: 2
      Последнее сообщение: 28.06.2008, 01:36

    Свернуть/Развернуть Ваши права в разделе

    • Вы не можете создавать новые темы
    • Вы не можете отвечать в темах
    • Вы не можете прикреплять вложения
    • Вы не можете редактировать свои сообщения
    •  
    Page generated in 0.01086 seconds with 17 queries