黑客风云——风云网络
设为首页 加入收藏 我要投稿 网站地图
您现在的位置: 黑客风云 >> 黑客文章 >> 黑客进阶 >> 脚本入侵 >> 文章正文
[组图]BBSXP 2007的漏洞利用演示
      ★★★★
BBSXP 2007的漏洞利用演示
文章整理发布:黑客风云 文章来源:www.05112.com 更新时间:2007-7-11

首先感谢sobiny。最近B.C.T的朋友似乎发布了很多BBSXP2007的漏洞。我今天在官方下了一个BBSXP2007的最新版本(发布日期:2007年7月7日发布)。大致看了一下,在一种极端的情况下,说明一下漏洞的利用方法。
举例说明,search.asp,我们看如下代码:

以下是引用片段:
 <!-- #include file="Setup.asp" --><%
 HtmlTop

 ForumID=RequestInt("ForumID")
 DateComparer=RequestInt("DateComparer")

 if Request("menu")="Result" then
 Keywords=HTMLEncode(Request("Keywords"))

 SortBy=HTMLEncode(Request("SortBy"))
 Item=HTMLEncode(Request("Item"))

 if Keywords="" then error("您没有输入任何查询条件!")
 if Request("VerifyCode")<>Session("VerifyCode") or Session("VerifyCode")="" then error("验证码错误!")

 SQLSearch="IsApproved=1 and IsDel=0 and "&Item&" like '%"&Keywords&"%' "
 
 if DateComparer > 0 then SQLSearch=SQLSearch&" and PostTime>"&SqlNowString&"-"&DateComparer&" "

 if ForumID > 0 then SQLSearch=SQLSearch&" and ForumID="&ForumID&" "

 sql="select * from [BBSXP_Threads] where "&SQLSearch&" order by ThreadID "&SortBy&""
 Rs.Open sql,Conn,1

我们找到BBSXP_Class.asp,找到如下代码:

以下是引用片段:
Function HTMLEncode(fString)

 fString=Trim(fString)
 fString=Replace(fString,CHR(9),"")
 fString=Replace(fString,CHR(13),"")
 fString=Replace(fString,CHR(22),"")
 fString=Replace(fString,CHR(38),"&") '“&”
 fString=Replace(fString,CHR(32)," ") '“ ”
 fString=Replace(fString,CHR(34),""") '“"”
 fString=Replace(fString,CHR(39),"'") '“'”
 fString=Replace(fString,CHR(60),"<") '“<”
 fString=Replace(fString,CHR(62),">") '“>”
 fString=Replace(fString,CHR(92),"\") '“\”
 fString=Replace(fString,CHR(45)&CHR(45),"--") '“--”
 fString=Replace(fString,CHR(59),";") '“;”
 fString=Replace(fString,CHR(10),"<br>")
 fString=ReplaceText(fString,"([&#])([a-z0-9]*);","$1$2;")

 if SiteConfig("BannedText")<>"" then fString=ReplaceText(fString,"("&SiteConfig("BannedText")&")",string(len("&$1&"),"*"))

 if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi
 fString=escape(fString)
 fString=ReplaceText(fString,"%u30([A-F][0-F])","0$1;")
 fString=unescape(fString)
 end if

 HTMLEncode=fString
 End Function

前面我们说,在一种极端的情况下,其实这里我们要测试要做如下手脚,把htmlencode的第六行注释掉:
'fString=Replace(fString,CHR(32)," ") '“ ”
然后我们来利用,在论坛注册一个Ivory的用户,然后发一张帖子,如图一:
 

[1] [2] 下一页  

文章录入:cainiaowang    责任编辑:cainiaowang 
  • 上一篇文章:

  • 下一篇文章: 没有了
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    Copyright @2006 黑客风云 ●业务联系:QQ 联系怪人 联系奇人 Email:给怪人发邮件 给奇人发邮件
    ICP备案:冀06009886