(the author left a back door for us?)
Xiao Yu listen to the website Content Management system:
At present, the most powerful whole station system: including general Web site must be modules such as news articles, downloads, film and television, pictures, music and other modules of each other independent and close contact, unlimited classification, free call, Support Template, the foreground all generate HTML, maximize the system resources, large and medium-sized portal site best choice
Content page is generated HTML, more secure, the background of the place looked, as if the problem is not big.
But go to the upload directory and find two files
Uploadset.asp upnewsimg.asp
Where uploadset.asp is validated, and upnewsimg.asp has no restrictions, let's take a look at the source code:
Function to add pic
function Addpic (ImagePath) {
Window.opener.frames.message.focus ();
Window.opener.frames.message.document.execCommand (Insertimage, False, ImagePath);
}
-->
</script>
<% server.scripttimeout=1900%>
<%
Upfilepath= "newsimg/"
fileweb= "upload/"
NameSet =1
Pathset =0
Dim i
I=1
%>
<%
function Makefilename (fname)
FName = Now ()
fname = replace (fname, "-", "")
fname = replace (fname, "", "")
fname = replace (fname, ":", "")
Makefilename=fname
End Function
%>
<!--#include file= "Upload_5xsoft.inc"-->
<%
Dim Upload,file,formname,icount
Dim url,url1
Set upload=new Upload_5xsoft Build upload Object
Icount=0
For every formName in upload.file list all uploaded files
Set File=upload.file (formName) generates a file object
If file. Filesize>0 then If FileSize > 0 indicates file data
FName = Makefilename (now ()) & Icount & "." & Getextendname (file. FileName)
File. SaveAs Server.MapPath (upfilepath&fname) Save file
Icount=icount+1
Response.Write "Picture" &i& "<input type=" "Text" "Name=" "&i&" "size=" "," "style=" "Border-style: Solid Border-width:1 "" Value= "". /"&fileweb&UpFilePath&fname&" "><br>[<a href=# onclick=" "Addpic (... /"&fileweb&UpFilePath&fname&") "> click here to add the picture" &i& "to the editor </a>]<br>"
I=i+1
Set file=nothing
End If
Next
Set Upload=nothing Delete this object
function Getextendname (FileName)
Dim extname
Extname = LCase (FileName)
Extname = Right (extname,3)
Extname = Right (Extname,3-instr (Extname, "."))
Getextendname = Extname
End Function
%>
[Copy to Clipboard]
Haha, can buy their own to build an upload page, upload directly, even EXE file can, don't say ASP or anything.
and upload the end of the address, is simply the author left us a backdoor.
Use files:
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.