VB编写病毒的大体方法
* 本文章仅供研究、学习 *
相信电脑界的每个人都悔恨盘算机病毒，她给我们带来了很多贫苦和损失，可你知道编写病毒的要领和历程吗？在此我仅以VB编写为例，揭开她的面纱。
用VB编写病毒需要思量到如下几点：
* 熏染主机
~~~~~~~~~~
起首染毒文件运行后先要果断主机能否以熏染病毒，也就是果断病毒主体文件能否存在，如果不存在则将病毒主体拷贝到指定位置(如：
将病毒文件拷贝到c:\windows\system\)，可用filecopy语句完成；如果病毒已熏染主机则结束果断。
例如，果断C:\windows\system\Killer.exe能否存在，如果有则加入果断，如果没有则证明本机未熏染病毒，立刻拷入病毒文件。
病毒源文件名为game.exe
声明部分：
""界说 FileExists% 函数
public success%
Function FileExists%(fname$)
On Local Error Resume Next
Dim ff%
ff% = FreeFile
Open fname$ For Input As ff%
If Err Then
FileExists% = False
Else
FileExists% = True
End If
Close ff%
End Function
代码部分：
""果断文件能否存在
success% = FileExists%("C:\windows\system\Killer.exe")
If success% = False Then ""病毒不存在则拷贝病毒到盘算机
FileCopy "game.exe", "C:\windows\system\Killer.exe"
... ""修正注册表，将其加入RUN中。(省略若干代码)
End If
* 开机启动病毒
~~~~~~~~~~~~~~
在病毒熏染主机的同时，将本身加入注册表的开机运行中，这与向主机拷入病毒是同时进行的，主机熏染后不再修正注册表。可经过编程
和调用API函数对WIN注册表进行操作来完成，这样在每次启动盘算机时病毒自动启动。(详细编写要领请查阅别的材料)
* 任务办理器
~~~~~~~~~~~~
在任务办理器列表中禁止病毒自己被列出，可以经过编程来完成。
用代码 App.TaskVisible = false 就可以完成；再有就是经过调用Win API函数来完成，这里就不作介绍了。
* 病毒发作条件
~~~~~~~~~~~~~~
可用Day(Date)来果断今天是几号，再与确定好的日期作比力，雷同则体现出病毒主体的破坏性，否则不发作。也可用Time、Date或别的方
法作为病毒发作条件的果断。
例：
if day(date)=16 then ""16是发作日期，取值为1-31的整数
... ... ""kill 指导* 当日期相符时运行的破坏性代码(款式化、删除指定的文件范例、发送数据包杜塞网路等，省略若干代码)
end if
* 病毒的破坏性
~~~~~~~~~~~~~~
编写的此部分代码决定了病毒威力的强弱。轻的可以使体系资源迅速淘汰直至死机(需要你懂得一点蠕虫的原理)，也就是完成开机即死的
效果；也可以加入硬盘炸弹代码、体系后台删文件等。重的可以使盘算机彻底瘫痪(不作介绍，你可以参阅别的病毒的有关材料)。
* 病毒的繁殖
~~~~~~~~~~~~
原理很简略，就是将其本身与别的可执行文件合并，也就是两个文件并成一个文件。也可经过E-Mail传播，要领是病毒读取被熏染主机的
邮件列表，将带有病毒附件的E-Mail发给列表中的每一个人(这需要你懂得VB网络编程)。
读完本文章相信您已对病毒的编写思绪有了初步的相识，如果你是个VB喜好者，你曾经可以编写一个很简略的病毒了，但你要是醒目VB的话，请不要有编写后传播她的想法，由于传播她造成很大的影响将转变你的命运(被公安捉住就挂了)。
- 文章作者: 福州军威计算机技术有限公司
军威网络是福州最专业的电脑维修公司,专业承接福州电脑维修、上门维修、IT外包、企业电脑包年维护、局域网网络布线、网吧承包等相关维修服务。
版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处 、作者信息和声明。否则将追究法律责任。
TAG:
|
评论加载中...
|
