W32/Sality Virus – Réafficher les dossiers cachés
Les virus sont une vraie casse tête ,et lorsqu’il s’agit du W32/Sality c’est une double casse tête parceque ce virus s’intègre automatiquement au sein des Flash mémoires(Clef USB) ,il cache vos dossier et crée un ensemble de virus qui portent les icones de vos dossier et leurs noms , et lorsque vous double cliquez ces derniers il exécute le code du virus au sein de votre systèm & bingo ! votre système et aussi infecté.
Ce virus est généralement détecté par avast mais il peut rien faire pour réafficher les dossiers cachés par ce virus ,alors ce que vous devez faire c’est de réinitialiser les option d’affichage de chaque dossier et ça peut prendre du temps et de l’énérgie ,et c’est pour cela qu’on a créé un code Vbs qui nous permetra de faire cette opération en quelques instants,Voilà le code à utiliser :
' Remplacer Z:\ par le nom de votre flash mémoire dans le système
cDrive = "Z:\"
Set FSO = CreateObject("Scripting.FileSystemObject " )
ShowSubfolders FSO.GetFolder(cDrive)
WScript.Echo "Terminé avec succès."
Sub ShowSubFolders(Folder)
str = ""
For Each Subfolder in Folder.SubFolders
str = str & " " & Subfolder.Path
subFolder.Attributes = 0
ShowSubFolders Subfolder
Next
End Sub
Copier le code dans un nouveau fichier texte et enregistrer le sous un nom avec une extension .vbs et exécuter le et vous allez voir les résultats,et essayer de n’exécuter le code que dans votre flash mémoire ,sinon je suis pas responsable des résultats
A propos de l'auteur
Dans le même sujet
Anonymous veut détruire Facebook
Le groupe international de pirates informatiques Anonymous a annoncé son intention détruire...
Et si un hacker prenait le contrôle de votre Webcam?
Ordinateurs portables, téléphones mobiles, Facebook, Skype… Les merveilles de la technologie ont...
Bonjour,
Vous vaez raison Youssef j’avais du mal à résister à ce virus à chaque j’étais obligée de faire ces opération et j’étais vraiment contente lorsque tu m’as dit que tu va me chercher une solution.
Merci
Je vous empris ,on deteste les virus et on n’aime pas que les gens souffre des scripts malvaillants ,des trojans,des virus en générale ,c’est pour cela qu’on a créé une catégorie destinée à la sécurité qu’on va éssayer de résourdre des problèmes concernants les virus et comment se débarasser d’eux .
Merci pour votre passage.
bon site youssef
bon continuation
Merci Pour votre support
Merci pour ce tuto c’était bien util pour moi Mr Youssef
Je vous en prie ,Heureux de pouvoir vous aider
Youssef stp je sais pas comment faire, je vé copie le code ou exactement ?
svp fatine comment ta fé pour réglé ce prb, ta copie le code ou ?
Il faut copier l’intégralité du code ?
Oui mais sans les N° des lignes bien sûre
Merci Youssef, ça m’a vraiment soulagé.
Mais apparemment il manque une parenthèse « ) » à la ligne 5 !
Merci pour la remarque(c’était juste un petit conflit avec les fonction du theme
)
pour moi ca ne marche pas.
c ecrit erreur d’execution
m’aiderrrrrrrrr
Bonjour,
Vous êtes sûre que vous avez changer la lettre « Z » par la lettre de la racine que vous voulez scanner(ou fixer) c’est dire « C » , « D« , »E« ,…et êtes-vous sûre que vous avez enregistrer le fichier avec l’extension « .vbs » ?
slt youssef je ss driss de prosystems ca va tt va bien ramadan mobarak sa3id merci pr le code a bientôt.
Bonsoir Driss
j’espère que tu vas bien .. Ramadan Karim w Allah y9bel menna w mennek in cha allah 
Prends soin de toi
bsr ca va,merci lah yt9abal mna jami3an,j’ai ajouté ton gmail sur ma boite voila le tien [email protected] bon fin soirée prend soin de toi.
je t’ai ajouté aussi
prends soin de toi et bonne fin de soirée 
Bonjour, j’ai un problème similaire avec mon disque dur externe de 1000 Go. mais je ne sais pas trops comment remplacer le Z:/!! je ne sais pas ou on clique pour le faire. comment proceder pour changer les informations système en question! merci
Windows Associe une lettre à chaque lecteur de disque soit une clé USB,un lecteur CD/DVD etc … comme il est affiché sur l’image suivante :
http://img682.imageshack.us/img682/8976/disques.png
alors dans le code que vous avez copié précédemment changer la lettre Z par la lettre associée à votre disque dure externe .
Bonjour Youssef,
J’ai le même problème signalé par les précédents utilisateurs et j’ai essayé ton code VB mais un message d’erreur apparait lorsque je l’exécute.
Est ce qu’il t’est possible de le laisser sur le site comme un fichier exe afin qu’on le télécharge ou l’envoyer directement dans une boîte mail ? Au besoin je peux te founir mon adresse mail.
Merci d’avance
merci beaucoup Youssef. je m’éxerce tout de suite et je te rend compte
pour les personnes qui n’ont pas arrivé à faire marcher cet utilitaire , il faut juste copier la totalité du code coller le dans une bloc note ==>Fichier Enregistrer sous et donner le un nom.vbs copier ce script sur votre unité de stockage et double cliquer .
NB : il faut changer la lettre Z: par la lettre qui représente votre Clé USB
Bonjour,
J’ai essayé ce que vous avez dit, voici le message d’erreur:
Script: C:\scan.vbs
Ligne:4
Carat.:2
Erreur: Un composant Activex ne peut pas créer un objet.:’Scripting.FileSystemObjetct’
Code: 800A01AD
Source: Erreur d’exécution Microsoft VBScript
pour cette erreur supprimé l’espace entre la parenthèse et les »
Set FSO = CreateObject(« Scripting.FileSystemObject »)
essayer de copier ce code et n’oublier pas de changer la lettre Z par la lettre de votre racine
https://dl-web.dropbox.com/get/Japprend.Com/Sality.vbs?w=15ee92a5
Copier cela directement:
‘ Remplacer G:\ par le nom de votre flash mémoire dans le système
cDrive = « G:\ »
Set FSO = CreateObject(« Scripting.FileSystemObject »)
ShowSubfolders FSO.GetFolder(cDrive)
WScript.Echo « Terminé avec succès. »
Sub ShowSubFolders(Folder)
str = « »
For Each Subfolder in Folder.SubFolders
str = str & » » & Subfolder.Path
subFolder.Attributes = 0
ShowSubFolders Subfolder
Next
End Sub
La solution est superbe! ça a marché à merveille pour mo
Respect à Youssef
sa ne paasse toujours pa ya des erreure dxe dedan
commen executer alors le code?le processus pour executer le code?
j’ai suivi toute la procédure mais des erreurs de compilations apparait tjs !
script H:\ggg.vbs
Ligne: 1
caract: 1
Erreur : Instruction attendue
Code: 800A0400
Source: Erreur de Compilation Microsoft VBSscript
Bonjour,
Mehenni j’ai eu la même erreur que toi j’ai juste remplacé la ligne :
Set FSO = CreateObject(« Scripting.FileSystemObject » )
par
Set FSO = CreateObject(« Scripting.FileSystemObject »)
Voilà.
Je viens de revoir mon post et je me rends compte que l’affichage n’est pas correct. Il suffit juste supprimer les espaces après le mot « FileSystemObjet » (c’est à dire avant et après le caractère « ).
Salam,
Malheureusement ça ne marche pas avec moi
Script G:\new.vbs
Ligne : 1
Caract : 1
Erreur : Caractère incorrect
Code : 800A0408
Source : Erreur de compilation Microsoft VBScript
Merci pour ce code BIENVEILLANT.
Bonne et heureuse année 2011.
Respectueusement,
LUYCX
Merci bcp pour ton aide.
Idem que Mehenni
Bonjour,
J’ai essayé ce que vous avez dit, voici le message d’erreur:
Script: C:\scan.vbs
Ligne:4
Carat.:2
Erreur: Un composant Activex ne peut pas créer un objet.:’Scripting.FileSystemObjetct’
Code: 800A01AD
Source: Erreur d’exécution Microsoft VBScript
Le code est dans le fichier attaché :
https://sites.google.com/site/web1986/Antivir.rar
il faut juste changer la lettre « Z » par la lettre de votre disque .
A tout ceux qui ont obtenu le message d’erreur du genre:
Script: C:\scan.vbs
Ligne:4
Carat.:2
Erreur: Un composant Activex ne peut pas créer un objet.:’Scripting.FileSystemObjetct’
Code: 800A01AD
Source: Erreur d’exécution Microsoft VBScript
————————-
l’erreur provient d’un espace situé vers la fin de la ligne 4 (là où il y a la commande Scripting.FileSystemObject)
copiez le code suivant (en changeant la lettre Z par la lettre du lecteur),ça devrait marcher sans problème…et encore merçi à Youssef pour le code
cDrive = « Z:\ »
Set FSO = CreateObject(« Scripting.FileSystemObject »)
ShowSubfolders FSO.GetFolder(cDrive)
WScript.Echo « Terminé avec succès.Merçi à Youssef »
Sub ShowSubFolders(Folder)
str = « »
For Each Subfolder in Folder.SubFolders
str = str & » » & Subfolder.Path
subFolder.Attributes = 0
ShowSubFolders Subfolder
Next
End Sub
Si vous essayez le fichier que j’ai attaché dans le dernier commentaire ça va marcher
Bonne chance ^_^
salam youssef
im me donne le message d erreur suivant
line : 14
Char : 9
Error : Permission denied
code : 800A0046
Source : microsoft VBscript runetime error
Essaye ce code
https://sites.google.com/site/web1986/Antivir.rar
ca maaaaaaaaaaaaaaaaaaaaaaaaaarche !!!!!!!!!!!!!
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii bcp bcp bcp youssef, vrmt c géniaaal, j plutot utiliser le dernier code , et c parfaiit , un sacré Merci pour vouuus
tu télécharge ce fichier
http://www.box.net/shared/8y1ho5k8bq5jkil22fqc
tu l’ouvre avec bloc note
tu modifier la lettre Z par la lettre qui représente la racince que vous voulez nétoyer
MERCI MILLE MERCI VOUS VENEZ DE RENDRE VIE A 1 MILLIER DE REP
RIAD DE BISKRA
Je vous en prie
اللهم بارك لك في علمك و يرحمك و يرحم من علمك
merci pour cette merveille, je vous prie de me dire simplement es ce qu’on peut modifier ce code pour faire réapparaitre aussi les fichier .pdf
ce code affiche tous les fichiers et tous les dossiers