網(wǎng)頁“黑手”如何攻擊你的Windows系統(tǒng)
您當(dāng)前位置：首頁 > 紅訊頻道 > 網(wǎng)絡(luò)技術(shù)
紅軟基地 推薦
2012-01-19
4、應(yīng)用舉例
〖應(yīng)用之一〗
以下將是一個創(chuàng)建、讀取顯示、修改和刪除注冊表項的腳本示例。程序在每一次進行注冊表的操作之前，都會給出相應(yīng)的提示，建議大家在運行本程序之前，用一個窗口打開本腳本的源代碼，在另一個窗口打開注冊表編輯器，并找到HKEY_CURRENT_USER根鍵。在每一次出現(xiàn)提示之后，不要急于點擊“確定”，按<TAB>鍵切換到注冊表編輯窗口，按下<F5>刷新一下注冊表的相關(guān)鍵值，并觀察程序的執(zhí)行情況與注冊表變化之間的關(guān)系。最后切換到提示窗口，按下“確定”繼續(xù)程序的執(zhí)行。這樣，相信大家都能立即理解并學(xué)會這幾個方法的使用方法。源代碼如下：
‘DEMO.vbs 這是腳本程序的文件名
Dim RegWsh，sReadKey，sPrompt，sFixprompt
sFixprompt=chr(13)&chr(10)&" 是否與寫入的內(nèi)容相一致？:) :-) :--)"
MsgBox "此腳本顯示如何創(chuàng)建、讀取、修改和刪除注冊表項。"
Set RegWsh = WScript.CreateObject("WScript.Shell")
MsgBox "創(chuàng)建項 HKCUMyRegKey，數(shù)值為 ‘一級鍵值‘"
RegWsh.RegWrite "HKCUMyRegKey"， "一級鍵值"
sReadKey=RegWsh.RegRead("HKCUMyRegKey")
sPrompt="(默認(rèn))鍵值為：‘"&sReadKey&"‘"&sFixprompt
msgbox "讀取的HKCUMyRegKey下"&sPrompt
MsgBox "創(chuàng)建項 HKCUMyRegKeyEntry，數(shù)值為 ‘二級子鍵‘"
RegWsh.RegWrite "HKCUMyRegKeyEntry"， "二級子鍵"
sReadKey=RegWsh.RegRead("HKCUMyRegKeyEntry")
sPrompt="(默認(rèn))鍵值為：‘"&sReadKey&"‘"&sFixprompt
msgbox "讀取的HKCUMyRegKeyEntry下"&sPrompt
MsgBox "修改 HKCUMyRegKeyEntry(默認(rèn))鍵值為：‘修改后的二級子鍵‘"
RegWsh.RegWrite "HKCUMyRegKeyEntry"， "修改后的二級子鍵"
sReadKey=RegWsh.RegRead("HKCUMyRegKeyEntry")
sPrompt="(默認(rèn))鍵值已經(jīng)修改為：‘"&sReadKey&"‘"&sFixprompt
msgbox "讀取的HKCUMyRegKeyEntry下"&sPrompt
MsgBox "將數(shù)值項 HKCUMyRegKeyValue 設(shè)為字符類型（REG_SZ），數(shù)值為 1"
RegWsh.RegWrite "HKCUMyRegKeyValue"， 1
MsgBox "將數(shù)值項 HKCUMyRegKeyEntry 設(shè)為 雙字節(jié)型（REG_DWORD），數(shù)值為 2"
RegWsh.RegWrite "HKCUMyRegKeyEntry"， 2， "REG_DWORD"
MsgBox "將數(shù)值項 HKCUMyRegKeyEntryValue1 設(shè)為 二進制類型（REG_BINARY），數(shù)值為 3" RegWsh.RegWrite "HKCUMyRegKeyEntryValue1"， 3， "REG_BINARY" [未結(jié)束][iduba_page]MsgBox "以下將刪除 HKCUMyRegKeyEntryValue1 數(shù)值"
RegWsh.RegDelete "HKCUMyRegKeyEntryValue1"
MsgBox "以下將刪除 HKCUMyRegKeyEntry 主鍵"
RegWsh.RegDelete "HKCUMyRegKeyEntry"
MsgBox "以下將刪除 HKCUMyRegKey 主鍵"
RegWsh.RegDelete "HKCUMyRegKey"
從上面的例子可以看出，用腳本訪問注冊表其實也很簡單。當(dāng)然，我們也可以將用VBScript編寫的腳本代碼放在網(wǎng)頁文件（Html文檔）之中，這時，一般無需對代碼進行任何更改，只需要在VBScript代碼的前后，分別加上<script language=vbs>和</script>即可。下面我們再舉一例進行說明：
〖應(yīng)用之二〗帶毒網(wǎng)頁解析
點擊這里看帶毒網(wǎng)頁演示。如果提示網(wǎng)頁上有錯誤，請下載到本地運行。
[說明]：在使用上面這個“〖應(yīng)用之二〗帶毒網(wǎng)頁解析”例子的時候，請注意有一定的危險性。一定要事先做好注冊表的備份！如果出現(xiàn)其他異常情況，請盡快用后文中的recover.htm進行恢復(fù)�。�！
有了前面所學(xué)的知識，我們已經(jīng)知道，在網(wǎng)頁中調(diào)用腳本語言訪問注冊表，其實是很容易的一件事。但如果所訪問的注冊表的鍵值被蓄意的進行了惡意的修改……呵呵。我們的系統(tǒng)的安全性就受到了嚴(yán)峻的挑戰(zhàn)。
來源：紅訊頻道