海洋頂端2006新版安全解決方案
- 發(fā)布于：2023-02-05
- 共 200 人圍觀
可以說(shuō),海洋此次新版,功能超級(jí),超牛B, 我嘛,主要*寫小程序混飯吃,還能看得懂.
除了它以前經(jīng)常使用的對(duì)象外,此次還加了可以讓管理員毛骨悚然的ADSI對(duì)象,要知道ADSI可是無(wú)所不能,在應(yīng)用軟件編程里可以操縱WINNT的很多東西,比如添加管理員,用戶組,獲取遠(yuǎn)程主機(jī)的......嚇壞了吧?廢話少說(shuō). 以下是進(jìn)入海洋2006新版后的界面.
如下圖:
海陽(yáng)頂端網(wǎng)ASP木馬@2006
--------------------------------------------------------------------------------
系統(tǒng)服務(wù)信息
服務(wù)器相關(guān)數(shù)據(jù)
(系統(tǒng)參數(shù),系統(tǒng)磁盤,站點(diǎn)文件夾,終端端口&自動(dòng)登錄)
服務(wù)器組件探針
系統(tǒng)用戶及用戶組信息
客戶端服務(wù)器交互信息
WScript.Shell程序運(yùn)行器
Shell.Application程序運(yùn)行器
FSO文件瀏覽操作器
Shell.Application文件瀏覽操作器
微軟數(shù)據(jù)庫(kù)查看/操作器
文件夾打包/解開(kāi)器
文本文件搜索器
一些零碎的小東西
--------------------------------------------------------------------------------
Powered By Marcos 2005.02
打開(kāi)源程序研究研究....
<object runat="server" id="ws" scope="page" classid="clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object>
<object runat="server" id="ws" scope="page" classid="clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></object>
<object runat="server" id="fso" scope="page" classid="clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object>
<object runat="server" id="sa" scope="page" classid="clsid:13709620-C279-11CE-A49E-444553540000"></object>
開(kāi)頭就來(lái)四個(gè)對(duì)象.
明眼人一看就知道是啥了吧?
第一個(gè)是:wscript.shell,第二個(gè)仍然是,只不過(guò)稍不同.wscript.network 好像是.不記得了.
第三個(gè)是fso,第四個(gè)是shell.application
有的人說(shuō),禁止FSO不就萬(wàn)事大吉了?費(fèi)這么多功夫做什么?
可以告訴你,不用FSO一樣可以寫入文件和創(chuàng)建文件,adodb.stream就可以做到.
更何況shell.application?
爽快地刪除了wscript.shell,wscript.network,shell.application這些個(gè)不安全對(duì)象.
FSO可以不用刪除.可保自身安全,也讓那些個(gè)不注重安全的網(wǎng)站用戶受受罪.
這就是"不同WEB不同低權(quán)限用戶"訪問(wèn)方法.詳細(xì)設(shè)置方法請(qǐng)參考其他貼子.
當(dāng)然了.看看海洋失效與否,肯定得一邊測(cè)試一邊來(lái)看效果了.
當(dāng)其他的安全設(shè)置:升級(jí)FTP到6.X最新版,刪除mssql不安全存儲(chǔ)過(guò)程,加強(qiáng)本地安全策略,
限制本地連接端口等等, 再對(duì)IIS6.0(Win2003)進(jìn)行一些比較安全的設(shè)置.
再次運(yùn)行海洋2006, 以上界面所列功能除了一個(gè)其他已全部失效.唯有這個(gè)"系統(tǒng)用戶及用戶組信息 "還是可以運(yùn)行,打開(kāi)源程序.
Sub PageUserList()
Dim objUser, objGroup, objComputer
showTitle("系統(tǒng)用戶及用戶組信息查看")
Set objComputer = GetObject("WinNT://.")
objComputer.Filter = Array("User")
echo "<a href=javascript:showHideMe(userList);>User:</a>"
echo "<span id=userList><hr/>"
For Each objUser in objComputer
echo "<li>" & objUser.Name & "</li>"
echo "<ol><hr/>"
getUserInfo(objUser.Name)
echo "<hr/></ol>"
Next
echo "</span>"
echo "<br/><a href=javascript:showHideMe(userGroupList);>UserGroup:</a>"
echo "<span id=userGroupList><hr/>"
objComputer.Filter = Array("Group")
For Each objGroup in objComputer
echo "<li>" & objGroup.Name & "</li>"
echo "<ol><hr/>" & objGroup.Description & "<hr/></ol>"
Next
echo "</span><hr/>Powered By Marcos 2005.02"
End Sub
關(guān)鍵在于這句"Set objComputer = GetObject("WinNT://.")"
把這個(gè)對(duì)象給殺了不就完事了?對(duì).正是如此.
但這是ADSI,這是WMI的對(duì)象.并不在注冊(cè)表里可以找得到的.
也就是它應(yīng)該是一種服務(wù),OK,我們到服務(wù)里找吧.
它對(duì)應(yīng)的服務(wù)應(yīng)該是WorkStation,停止此服務(wù)后,再次運(yùn)行.
海洋2006基本上所列功能已失效.為什么說(shuō)是基本上,因?yàn)槲抑粶y(cè)試了它列出的這些功能.
至于它有沒(méi)有隱藏的功能.請(qǐng)?jiān)徫也恢?因?yàn)榇a有80K,
兄弟你去一行一行看.至少應(yīng)該有四萬(wàn)行代碼.
好像沒(méi)什么好說(shuō)的了.就這樣了.對(duì)不起如下這N個(gè)兄弟們了.
Sub showTitle(str)
echo "<title>" & str & " - 海陽(yáng)頂端網(wǎng)ASP木馬2006 - By Marcos & LCX</title>" & vbNewLine
echo "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbNewLine
echo "<!--" & vbNewLine
echo "=衷心感謝=====================================================" & vbNewLine
echo "網(wǎng)辰在線、化境編程、桂林老兵、冰狐浪子、藍(lán)屏、小路、wangyong、" & vbNewLine
echo "czy、allen、lcx、Marcos、kEvin1986、myth對(duì)海陽(yáng)頂端網(wǎng)asp木馬所" & vbNewLine
echo "做的一切努力！" & vbNewLine
echo "==============================================================" & vbNewLine & vbNewLine
echo "=本版關(guān)于=====================================================" & vbNewLine
echo "程序編寫: Marcos" & vbNewLine
echo "聯(lián)系方式: QQ26696782" & vbNewLine
echo "發(fā)布時(shí)間: 2005.02.28" & vbNewLine
echo "出 品 人: Allen, lcx, Marcos" & vbNewLine
echo "官方發(fā)布: www.HIDIDI.NET(2) www.HAIYANGTOP.NET(1)" & vbNewLine
echo "==============================================================" & vbNewLine
echo "-->" & vbNewLine
PageOther()
End Sub
只是請(qǐng)所有擁有此版本的朋友們勿以入侵國(guó)內(nèi)主機(jī)及服務(wù)器為好.
要黑或者要入侵可以去入侵國(guó)外.有機(jī)會(huì)帶上3cts.com,謝謝.
3cts.com 杜雪.Net
2005.05.05
1、卸載wscript.shell對(duì)象
regsvr32 WSHom.Ocx /u
2、卸載FSO對(duì)象
regsvr32.exe scrrun.dll /u
3、卸載stream對(duì)象
regsvr32 /u "C:\\Program Files\\Common Files\\System\\ado\\msado15.dll"
4、卸載Shell.Application對(duì)象
regsvr32.exe shell32.dll /u
轉(zhuǎn)載請(qǐng)說(shuō)明出處：六百號(hào)技術(shù) - SEO優(yōu)化,網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)絡(luò)編程,軟件技巧,網(wǎng)絡(luò)知識(shí),系統(tǒng)技術(shù) ? 海洋頂端2006新版安全解決方案
標(biāo)簽：
