标题:
动网论坛博客插件XSS漏洞
[打印本页]
作者:
柔肠寸断
时间:
2010-2-5 16:59
标题:
动网论坛博客插件XSS漏洞
版本:dvbbs 8.2.0最新版本(直接在动网论坛下的最新程序)
漏洞文件:1.bokemanage.asp&bokepostings.asp
2.BokeSearch.asp 两个漏洞原理一样的
官网好像删除了
-----------------------------------------------------------------------------------
bokepostings.asp大约270行部分代码
-------------
P_Catid = Request.Form("Catid")
P_Lock = DvBoke.CheckNumeric(Request.Form("Lock"))
P_Best = DvBoke.CheckNumeric(Request.Form("Best"))
P_PostContent = CheckAlipay()
If P_PostContent = "" Then P_PostContent = DvBoke.Checkstr(Request.Form("PostContent"))
P_PostTitleNote = DvBoke.Checkstr(Request.Form("PostTitleNote")) //问题出现在这里
PostID = DvBoke.CheckNumeric(Request.Form("PostID"))
RootID = DvBoke.CheckNumeric(Request.Form("RootID"))
P_Weather = DvBoke.CheckNumeric(Request.Form("Weather"))
----------------------------------------------------------------------------------
bokemanage.asp文件的部分代码大约290行
-----------------------------------
P_Lock = DvBoke.CheckNumeric(Request.Form("Lock"))
P_Best = DvBoke.CheckNumeric(Request.Form("Best"))
P_PostContent = CheckAlipay()
If P_PostContent = "" Then P_PostContent = DvBoke.Checkstr(Request.Form("PostContent"))
P_PostTitleNote = DvBoke.Checkstr(Request.Form("PostTitleNote")) //问题出现在这里
PostID = DvBoke.CheckNumeric(Request.Form("PostID"))
--------------------------------------------------
下面是checkstr()函数中的代码
----------
Public Function Checkstr(Str)
If Isnull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str,Chr(0),"")
CheckStr = Replace(Str,"'","''") //用"替换'
End Function
-------------------------------------------------------------------------
下面是BokeSearch.asp 中的部分代码
------------
SelType = DvBoke.CheckNumeric(Request("Sel"))
KeyWord = DvBoke.Checkstr(Request("KeyWord")) // 同样用checkstr()函数过滤
DYear = DvBoke.CheckNumeric(Request("DY"))
DMonth = DvBoke.CheckNumeric(Request("DM"))
........
If KeyWord<>"" Then
Select Case SelType
Case 2 '内容
SqlStr = SqlStr &" and Content like '%"&KeyWord&"%'"
Case 1 '作者
SqlStr = SqlStr &" and UserName like '%"&KeyWord&"%'"
Case Else '标题
SqlStr = SqlStr &" and Title like '%"&KeyWord&"%'"
End Select
绕过'过滤就可以注入了............
作者:
hack.晓雨
时间:
2010-2-10 21:23
学习了 。我还是不 懂。 不怎么明白哦。
欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./)
Powered by Discuz! 7.2