Bonjour Mila

Pour sscviihost.exe/new folder.exe & co, mieux vaut que tu télécharge et passe d'abord cet outil qui supprime très bien cette infection:
Flash Disinfector de sUBs
http://www.techsupportforum.com/sectools/sUBs/Flash_Disinfector.exe

Avant de le lancer, assures-toi que tous les périphériques externes qui auraient pu être infectés soit bien connectés au pc.
Passes ensuite Flash_Disinfector et laisse toi guider. (Le bureau va disparaitre puis réapparaitre, c'est normal).

Si jamais l'infection ou la partie "Keylogger" parfois installée avec cette infection devait persister après le passage de Flash_Disinfector, voilà le code du script qui pourra t'être utile:
(A noter que ce script, n'est plus updaté depuis 1 mois et demi..)

Ouvre le bloc note, et copie et colle absolument tout ce qui est en bleu ci-dessous.
Une fois fait, et dans le menu "Fichier" du bloc notes, clic sur enregistrer.
Dans la boîte de dialogue qui s'ouvrira :
- Choisis le bureau comme lieu de destination
- Dans : [Nom du fichier] tu mets -> Hakafix.vbs
- Dans : [Type] -> selectionne dans le menu déroulant: "Tous les fichiers"
Clic sur le bouton [Enregistrer]

Sur ton bureau, tu trouveras si tout c'est bien passé jusque là, un fichier nommé: Hakafix.vbs
Double clic dessus pour l'exécuter.

Tout ceci bien sur, ne te dispense pas de faire scanner ton pc par un antivirus.
Que se soit par un AV en ligne ou ton Antivirus résident une fois mis à jours.

Bon courage Mila :-)

Code source du script :

Option Explicit

Dim WshShell, DocDir, TmpDir, WinDir, SysDir
Dim strComp, strLogs, arrProcs(6), arrFiles(45)

Set WshShell = WScript.CreateObject("WScript.Shell")
DocDir = WshShell.ExpandEnvironmentStrings("%UserProfile%") & chr(92)
TmpDir = WshShell.ExpandEnvironmentStrings("%Temp%") & chr(92)
WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%") & chr(92)
SysDir = WinDir & chr(92) & "system32" & chr(92)

strComp = "."
strLogs = ""

arrProcs(0) = "rvhost.exe"
arrProcs(1) = "ssvichosst.exe"
arrProcs(2) = "sscviihost.exe"
arrProcs(3) = "new folder.exe"
arrProcs(4) = "skcvhost.exe"
arrProcs(5) = "svichoost.exe"
arrProcs(6) = "systems.exe"

arrFiles(0)  = WinDir & "RVHOST.exe"
arrFiles(1)  = WinDir & "SSVICHOSST.exe"
arrFiles(2)  = WinDir & "SSCVIIHOST.exe"
arrFiles(3)  = WinDir & "Tasks\At1.job"
arrFiles(4)  = SysDir & "nhatquanglan9.exe"
arrFiles(5)  = SysDir & "nhatquanglan11.exe"
arrFiles(6)  = SysDir & "SSVICHOSST.exe"  
arrFiles(7)  = SysDir & "SSCVIIHOST.exe"
arrFiles(8)  = SysDir & "New Folder.exe"
arrFiles(9)  = SysDir & "hinhem.scr"
arrFiles(10) = SysDir & "blastclnnn.exe"
arrFiles(11) = SysDir & "autorun.ini"
arrFiles(12) = SysDir & "setting.ini"
arrFiles(13) = SysDir & "setting.xls"
arrFiles(14) = SysDir & "SKCVHOST.exe"
arrFiles(15) = SysDir & "SKCVHOSTr.exe"
arrFiles(16) = SysDir & "SKCVHOSThk.dll"
arrFiles(17) = SysDir & "SCVHSOT.exe"
arrFiles(18) = SysDir & "SYSTEMS.exe"
arrFiles(19) = SysDir & "SYSTEMShk.dll"
arrFiles(20) = SysDir & "SYSTEMShk.dll"
arrFiles(21) = SysDir & "test1.exe"
arrFiles(22) = SysDir & "apps.dat"
arrFiles(23) = SysDir & "bpk.bin"
arrFiles(24) = SysDir & "bpk.dat"
arrFiles(25) = SysDir & "bpk.exe"
arrFiles(26) = SysDir & "bpkch.dat"
arrFiles(27) = SysDir & "bsdhooks.dll"
arrFiles(28) = SysDir & "inst.dat"
arrFiles(29) = SysDir & "inst.tmp"
arrFiles(30) = SysDir & "kw.dat"
arrFiles(31) = SysDir & "mc.dat"
arrFiles(32) = SysDir & "pk.bin"
arrFiles(33) = SysDir & "rinst.dat"
arrFiles(34) = SysDir & "rinst.exe"
arrFiles(35) = SysDir & "titles.dat"
arrFiles(36) = SysDir & "web.dat"
arrFiles(37) = SysDir & "web.dll"
arrFiles(38) = SysDir & "keystrokes.html"
arrFiles(39) = SysDir & "websites.html"
arrFiles(40) = SysDir & "chats.html"
arrFiles(42) = SysDir & "report.txt"
arrFiles(43) = SysDir & "SSVICHOSST.exe" 
arrFiles(44) = SysDir & "nhatquanglan18.exe"
arrFiles(45) = SysDir & "nhatquanglan20.exe"

delRegVal "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
delRegVal "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
delRegVal "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NofolderOptions"
delRegVal "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\WorkgroupCrawler\Shares\shared"
delRegVal "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Yahoo Messengger"
delRegVal "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\bpk"
delRegVal "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\SYSTEMS"
delRegVal "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\SKCVHOST"
setRegVal "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "Explorer.exe", "REG_SZ"
delRegVal "HKLM\SYSTEM\ControlSet001\Services\Schedule\AtTaskMaxHours"

If strLogs <> "" Then
  WScript.Echo "Winlogon... Restauration valeur Explorer.exe : " & VBCrLf & VBCrLf & strLogs
  strLogs = ""
End If

Sub setRegVal(Target, Value, Reg)
  On Error Resume Next
  WshShell.RegWrite Target, Value, Reg
  If Err = 0 Then
    strLogs = strLogs & ".. " & Target & " to " & Value & VBCrLf
  End If
  Err.Clear
  On Error Goto 0
End Sub

Sub delRegVal(Target)
  On Error Resume Next
  WshShell.RegDelete Target
  If Err = 0 Then
    strLogs = strLogs & "Valeurs supprimés : " & Target & VBCrLf
  End If
  Err.Clear
  On Error Goto 0
End Sub

Dim objWMI : Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComp & "\root\cimv2")
Dim objFSO : Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If Err = 0 Then
  KillProcs
  Set objWMI = Nothing
  Set objFSO = Nothing
End If
Err.Clear

Sub KillProcs
  ' Variables
  Dim objProc, objFile
  Dim strFile, i
  
  Dim colProc : Set colProc = objWMI.ExecQuery("Select Name from Win32_Process")
  For Each objProc in colProc
    For i=0 to UBound(arrProcs)
      If arrProcs(i) = LCase(CStr(objProc.Name)) Then
        objProc.Terminate()
        strLogs = strLogs & "Processus arrêté: " & arrProcs(i) & VBCrLf
        Exit For
      End If
    Next
  Next
  
  Set colProc = Nothing
  Set objProc = Nothing
  
  For i=0 to UBound(arrFiles)
    RemoveFile arrFiles(i)
  Next
   
  RemoveTmpFolder TmpDir
  
  If strLogs <> "" Then
    WScript.Echo "Scan en cours: " & VBCrLf & VBCrLf & strLogs
  End If
End Sub

Sub RemoveTmpFolder(Target)
  On Error Resume Next
  Dim tmpDir : Set tmpDir = objFSO.GetFolder(Target)
  Dim tmpFolder, tmpFile
  
  For Each tmpFile In tmpDir.Files
    tmpFile.Attributes = 0
    tmpFile.Delete
  Next
  
  For Each tmpFolder In tmpDir.SubFolders
    RemoveTmpFolder tmpFolder.Path
    tmpFolder.Attributes = 0
    tmpFolder.Delete
  Next
  
  Set tmpDir    = Nothing
  Set tmpFolder = Nothing
  Set tmpFile   = Nothing
  On Error Goto 0
End Sub

Sub RemoveFile(Target)
  On Error Resume Next
  If objFSO.FileExists(Target) Then
    Dim objFile : Set objFile = objFSO.GetFile(Target)
    objFile.attributes = 0
    objFile.Delete
    Set objFile = Nothing
    strLogs = strLogs & "Fichier supprimé : " & Target & VBCrLf
  End If
  On Error Goto 0
End Sub

WScript.Echo "Fin du nettoyage."
WScript.Quit