V8.0x 会员中心短消息存在发送消息时跨站xss bug的修正-领先建站CMS提供服务商我们专注于CMS建站产品的研发

kesion

<<返回列表上一个主题下一个主题打印本帖复制本帖地址

5185 查看	12 回复

主题：[分享]V8.0x 会员中心短消息存在发送消息时跨站xss bug的修正 [收藏主题]

转到：

科汛官方当前离线

47268 主题	145 广播	405 粉丝

添加关注

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

创始人

管理员

终身成就奖

当前不在线

科汛官方发表于：2011/12/1 9:59:10 | 显示全部帖子查看该作者主题楼主

科汛在线考试系统(NET)

有生源找课程就上科汛课堂街!

首先感谢“loveshe” 提供此BUG

问题是发送者可以发送带脚本的跨站xss ，当接收者打开消息时，可能就中了

解决方法：

打开ks_cls/kesion.commoncls.asp 找到3000多行的如下代码

'发送站内信息
'参数Incept--接收者,Sender-发送者,title--主题,Content--信件内容
Public Function SendInfo(Incept,Sender,title,Content)
Dim GroupID,Max_Num,RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "select top 1 groupid from ks_user where username='" & Incept & "'",conn,1,1
if RS.Eof And RS.Bof Then
RS.Close:Set RS=Nothing
SendInfo=false:exit Function
End If
GroupID=RS(0)
RS.Close:Set RS=Nothing
Max_Num=ChkClng(U_S(GroupID,13))
If Max_Num<>0 And ChkClng(conn.execute("select count(*) from KS_Message where IsSend=1 and delR=0 and Incept='"&Incept&"'")(0))>=ChkClng(Max_Num) Then
SendInfo=false:exit Function
End If
Conn.Execute("insert Into KS_Message(Incept,Sender,Title,Content,SendTime,Flag,IsSend,DelR,DelS) values('" & Incept & "','" & Sender & "','" & replace(Title,"'","""") & "','" & replace(Content,"'","""") & "'," & SqlNowString & ",0,1,0,0)")
SendInfo=true
End Function

并修改为

'发送站内信息
'参数Incept--接收者,Sender-发送者,title--主题,Content--信件内容
Public Function SendInfo(Incept,Sender,title,Content)
Dim GroupID,Max_Num,RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "select top 1 groupid from ks_user where username='" & Incept & "'",conn,1,1
if RS.Eof And RS.Bof Then
RS.Close:Set RS=Nothing
SendInfo=false:exit Function
End If
GroupID=RS(0)
RS.Close:Set RS=Nothing
Max_Num=ChkClng(U_S(GroupID,13))
If Max_Num<>0 And ChkClng(conn.execute("select count(*) from KS_Message where IsSend=1 and delR=0 and Incept='"&Incept&"'")(0))>=ChkClng(Max_Num) Then
SendInfo=false:exit Function
End If
Conn.Execute("insert Into KS_Message(Incept,Sender,Title,Content,SendTime,Flag,IsSend,DelR,DelS) values('" & Incept & "','" & Sender & "','" & checkxss(replace(Title,"'","""")) & "','" & ClearBadChr(replace(Content,"'","""")) & "'," & SqlNowString & ",0,1,0,0)")
SendInfo=true
End Function

增加红色的代码就可以了。这样就可以过滤掉

做新职业技能培训平台就选#科汛网校

反对(0)

回到顶部

回到底部

底部

＜上一主题 | 下一主题＞

首页 1 2 末页下一页

Powered By KesionCMS Version X1

厦门科汛软件有限公司 © 2006-2016 页面执行0.20313秒 powered by KesionCMS 9.0