ASP代码审计学习笔记 -5.文件下载漏洞

文件下载漏洞

漏洞代码：

<%
function download(f,n)
on error resume next
Set S=CreateObject("Adodb.Stream")
S.Mode=
S.Type=
S.Open
S.LoadFromFile(f)
if Err.Number> then
Reaponse.status=""
else
Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition:","Attachment;filename="&n
Range=Mid(Request.ServerVariables("HTTP_RANGE"),)   

if Range="" then
Response.BinaryWrite(S.Read)
else
S.Postion=Clng(Split(Range,"-")())
Response.BinaryWrite(S.Read)
end if
End if
End function
dim filename
filename=request("filename")
filename=filename&".asp"
call download(server.MapPath(filename),filename)
%> 

在 MapPath 的 Path 参数中不允许字符 '..'，需要启用父路径（IIS6.0出于安全考虑，这一选项默认是关闭的。）

漏洞利用：

漏洞修复：

如果存在.. 就结束脚本，禁止跨目录进行操作

If InStr(filename,"..")> Then
Response.write "禁止跨目录操作!"
response.end
End IF

错误处理1：

filename=Replace(filename, "../", "") '替换../为空
filename=Replace(filename, "./", "") 

代码对../和./进行过滤用来防止目录跳转,但可以通过构造参数饶过检测.由于检测替换只进行一次可以使用....//代替上级目录,程序替换后....//变成../

攻击代码示例：filename=.....///sql.asp

错误处理2：

If InStr(filename,"../")> Then
Response.write "禁止跨目录操作!"
response.end
End IF

代码对../进行检测，但是忽略了对..\的情况，在windows下，..\也可实现跨目录。

攻击代码示例：filename=..\sql.asp