none
renomear varios arquivos de uma vez só, em varios sub-diretorios RRS feed

  • Pergunta

  • Ola, estou com uma maquina que foi atingida pelo virus files ransomware v2.0, pois bem consegui limpar a maquina do virus, e agora que a maquina está limpa estou conseguindo renomear os arquivos e estão voltando, mas isto fiz como teste um por um.

    tipo, hj o arquivos está assim, arquivo.doc.[fileslocker@pm.me] preciso renomear varios arquivos com varias extenções para a forma original

    alguem poderia me ajudar com isto?

    quinta-feira, 27 de dezembro de 2018 17:56

Todas as Respostas

  • Ola, estou com uma maquina que foi atingida pelo virus files ransomware v2.0, pois bem consegui limpar a maquina do virus, e agora que a maquina está limpa estou conseguindo renomear os arquivos e estão voltando, mas isto fiz como teste um por um.

    tipo, hj o arquivos está assim, arquivo.doc.[fileslocker@pm.me] preciso renomear varios arquivos com varias extenções para a forma original

    alguem poderia me ajudar com isto?

    as extenções sao .log .mp3 .wma .frm .mdb .sql .zip .txt .desklink .xml .xls .db .gif .bak .rar .pdf .mydocs .png .js .myd .myi .csv .cfg .sdf
    quinta-feira, 27 de dezembro de 2018 18:07
  • Aurelio,

    O script para renomear os arquivo não é muito complexo não, mas vamos identificar as extensões corretas?

    quinta-feira, 27 de dezembro de 2018 18:36
  • Carlos,

    as extensoes alteradas sao estas mesmo...

    tipo arquivo.pdf.[fileslocker@pm.me] preciso retirar este [fileslocker@pm.me]

    quinta-feira, 27 de dezembro de 2018 20:09
  • Aurelio

    Segue abaixo script em VBS, é apenas necessário copiar para um arquivo TXT e salvar com a extensão .vbs

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set Shell = WScript.CreateObject("WScript.Shell") 
    Dim strCaminho  
    Dim strData 
     
    'Coloque aqui a pasta que será verificada 
    strPasta = "C:\Users\Desktop\Backup1" 
     
    'Coloque aqui a pasta com os arquivo corrigidos
    strPastaDestino = "C:\Users\Desktop\Backup2\"
     
    ' NOME DO ARQUIVO DE LOG 
    strLogFile = "log.txt" 
     
     
    Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0) 
    objLogFile.WriteLine "===================================================" 
    objLogFile.WriteLine "arquivo executado em: " & now 
    objLogFile.WriteLine "===================================================" 
       
     
    If (objFSO.FolderExists(strPasta) = True) Then 
       Set Folder = ObjFSO.GetFolder(strPasta) 
       Set MyFiles = Folder.files    
       For Each MyFiles in Folder.Files 
                strCaminho =  myfiles.path 
    			StrNome  = myfiles.Name
    			MsgBox(strPastaDestino)
    			objFSO.CopyFile strCaminho, strPastaDestino & Replace(StrNome,".[fileslocker@pm.me]","")  
                objLogFile.WriteLine "Corrigido no caminho:" & strPastaDestino & Replace(StrNome,".[fileslocker@pm.me]","")  
       Next 
    End if 
     
    wscript.quit

     

    quinta-feira, 27 de dezembro de 2018 23:23
  • Aurelio,

    Conseguiu fazer o teste?

    terça-feira, 8 de janeiro de 2019 16:36