轻松获得oblog 2.52的WebShell
来源:邪恶八进制 作者:千寂孤城
一、方法
1、先进后台。利用CheckUserLogined漏洞直接加个后台管理员。关于这个CheckUserLogined漏洞我在《Blog的噩梦》(http://www.eviloctal.com/forum/htm_data/10/0508/13721.html)中有详细的说明,大概就是说可以通过Cookies欺骗搞SQL注入。
2、在后台的“网站信息配置”处有个“普通会员上传文件类型”,给它加一个aaaspspsp类型。
3、用个普通帐号登陆,来到上传文件的页面http://blog.***.com/upload.asp,看到了吗?可上传文件多了个“aaspsp”类型。好,把你的马x.asp改名为x.aaspsp,然后传上去。
4、到你自己的blog后台去看一看,是不是成功上传了x.asp了?:)
二、原理
本来刚开始我是直接在后台的“普通会员上传文件类型”里加了个“|asp”,结果发现上传失败。于是去Down个oBlog 2.52下来。读了读upload.asp的代码,大家一起看看:
'初始化上传限制数据
Sub InitUpload()
……
Select Case cint(DecodeCookie(Request.Cookies(cookiesname)("userlevel")))
Case 7
if rs("upfile_user")="true" then
themax=round(user_maxsize-theuped/1024)
sAllowExt = rs("upfile_user_type") '注意这里,得到我们在后台设置的可上传文件的类型,放入sAllowExt变量中
if themax>rs("upfile_user_size") then
nAllowSize = rs("upfile_user_size")
else
nAllowSize = themax
end if
else
sAllowExt = "暂无上传权限"
nAllowSize = 0
end if
……
End Select
sAllowExt = filtfilename(sAllowExt) '这里是对sAllowExt进行检查
……
End Sub
以上代码是说如果是普通用户,那么就给字符串sAllowExt赋值为我们在后台设定的那个“普通会员上传文件类型”:jpg|png|bmp|rar|zip|asp。但是请注意,sAllowExt然后还必须经过filtfilename()的检查。再接着看:
'保存操作
Sub DoSave()
Set oFile = oUpload.File("uploadfile")
sFileExt = UCase(oFile.FileExt)
osize = oFile.Filesize
Call CheckValidExt(sFileExt) '检查文件扩展名是不是sAllowExt里有的
sFileExt=filtfilename(sFileExt) '哎,filtfilename又来了
……
oFile.SaveToFile Server.Mappath(sUploadDir & "/"& sFileName)
……
End Sub
以上代码就是说文件扩展名必须是sAllowExt里有的然后才能上传。上传后保存到目标计算机上时扩展名还要被filtfilename过滤一次。那么那个filtfilename到底是什么东西呢?我们看看:
Function filtfilename(filename)
If IsEmpty(filename) Then Exit Function
filename = Lcase(filename)
filename = Replace(filename,Chr(0),"")
filename = Replace(filename,".","")
filename = Replace(filename,"asp","")
filename = Replace(filename,"asa","")
filename = Replace(filename,"aspx","")
filename = Replace(filename,"cer","")
filename = Replace(filename,"cdx","")
filename = Replace(filename,"htr","")
filename = Replace(filename,"asax","")
filename = Replace(filename,"ascx","")
filename = Replace(filename,"ashx","")
filename = Replace(filename,"asmx","")
filename = Replace(filename,"axd","")
filename = Replace(filename,"vsdiso","")
filename = Replace(filename,"rem","")
filename = Replace(filename,"soap","")
filename = Replace(filename,"config","")
filename = Replace(filename,"cs","")
filename = Replace(filename,"csproj","")
filename = Replace(filename,"vb","")
filename = Replace(filename,"vbproj","")
filename = Replace(filename,"webinfo","")
filename = Replace(filename,"licx","")
filename = Replace(filename,"resx","")
filename = Replace(filename,"resou","")
filename = Replace(filename,"jsp","")
filename = Replace(filename,"php","")
filename = Replace(filename,"cgi","")
filtfilename=filename
End Function
是过滤函数,害我们不成功的就是这个东西。