本文目录一览：

• 1、谁能解释下面简单的电脑病毒代码？

• 2、高手指点小型病毒代码

• 3、简单的病毒编程代码是什么?

• 4、简单的病毒编程代码

• 5、求简单的病毒代码

谁能解释下面简单的电脑病毒代码？

我帮你"翻译"一下代码的意思。

这是一段vbs代码：直到(除非)1等于2，否则就一直弹出一个写有"烦死你"的窗口，因为1永远不等于2，所以不断的弹窗。

这是VB的一个简单编程，但是代码却不怀好意。这段代码的意思是说，当双击运行这个程序的时候，执行以下代码：直到(除非)1等于2，否则隐藏这个软件的窗体，然后显示这个软件的窗体，然后调用系统的"calc.exe"程序，也就是调用系统自带的"计算器"，因为1永远不等于2，所以这些步骤永远循环的执行下去。以现在的计算机来看，并不会"运行后马上死机"，我们的计算机还不至于这么差劲，不过cpu会高涨，根据不同计算机的配置，时间范围从很快死机到数秒后死机不等。

高手指点小型病毒代码

用VB编的， 代码如下

Private Sub Command1_Click()

Text1.Text = " "

Shell "cmd.exe /c md " Mid(Drive1.Drive, 1, 2) "\Autorun.inf", vbHide

Shell "cmd.exe /c md " Mid(Drive1.Drive, 1, 2) "\Autorun.inf\xc..\", vbHide

End Sub

“xc..\”

取消免疫按钮

Private Sub Command2_Click()

Text1.Text = " "

Shell "cmd.exe /c rd " Mid(Drive1.Drive, 1, 2) "\Autorun.inf\xc..\", vbHide

Shell "cmd.exe /c rd " Mid(Drive1.Drive, 1, 2) "\Autorun.inf", vbHide

End Sub

退出按钮

Private Sub Command3_Click()

End

End Sub

检查按钮：

Private Sub Command4_Click()

On Error Resume Next

Dim fso, path

Set fso = CreateObject("scripting.filesystemobject")

Dim A

A = 67

For i = 1 To 24

path = Chr(A) ":\Autorun.inf\xc..\" = c:\Autorun.inf\xc..\

If Not fso.FolderExists(path) Then

Text1 = Text1 + vbCrLf + Chr(A) ":" + "没有免疫"

Else

Text1 = Text1 + vbCrLf + Chr(A) ":" + "已经免疫"

End If

A = A + 1

Next i

End Sub

Private Sub Command5_Click()

MsgBox "龙月专版 *** 于2008年3月15日", vbDefaultButton2, "龙月 *** :331224655"

End Sub

“Set fso = CreateObject("scripting.filesystemobject")，作用是创建一个“scripting.filesystemobject”对象，VB中创建语法“Set 变量 = CreateObject（"对象名"）”，创建了“fso”后就可以使用FOS对象 *** 。

简单的病毒编程代码是什么?

编写的计算机程序代码统称为恶意代码。恶意代码定义一:恶意代码又称恶意软件。

首先，病毒要有感染机制，即它能够实现繁殖自身。其次，病毒要有有效载荷触发事件，即病毒要找到一定数量的感染体、或者某一日期、或者在碰到某一段文本后才能发作。

所谓的病毒代码其实可以想象成是犯人的指纹, 当防毒软件公司收集到一只新的病毒时， 他们就会从这个病毒程序中截取一小段独一无二而且足以表示这只病毒的二进位程序码 (Binary Code) , 来当做杀毒程序辨认此病毒的依据。

而这段独一无二的二进位程序码就是所谓的病毒代码。病毒代码它可以把计算机程序打乱，使计算机无法正常使用。

简单的病毒编程代码

蠕虫病毒小代码

打开Visual Basic，选择“Standard EXE”的Project。移除那个Form，然后加入一个Module。点击Project-Project1 Properties。在弹出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：

Sub Main() 'TaskVisible的功能是把程序在End Task表中除掉。App.TaskVisible = False End Sub。

以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹。

在Sub Main中键入以下的编码：

＇阻止问题发生On Error Resume Next Dim Location, Location2, DesLocation, DesLocation2 '得到EXE的位置Location = App.Path "\" App.EXEName ".exe" Location2 = App.Path App.EXEName ".exe"。

求简单的病毒代码

本代码尽管测试，无任何危险。病毒文件测试代码。使用 *** 如下：

This is not a real virus. It is a text file that is used to test antivirus software.

测试代码：

---------------------请复制下面的代码到文本中保存-------------------

X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*

---------------------请复制上面的代码到文本中保存-------------------

测试 *** ：

1.鼠标右键点击桌面空白处，创建一个“文本文档”。（什么，还不会建？我倒）

2.将下面这段测试代码复制到“文本”里，保存，然后可以直接右键点击这个文本，用杀毒软件扫描（图1）。也可以等一会，如果你的杀毒软件还行，会自动报毒并将该文本删除，那就可以初步放心了。

测试原理：

该段代码是欧洲计算机防病毒协会开发的一种病毒代码，其中的特征码已经包含在各种杀毒软件的病毒代码库里，所以可以用做测试病毒扫描引擎。

测试等级:

特等：复制完代码后便提示内存有病毒

优等：刚保存完就提示病毒(或者直接删除)

中等：保存后几秒提示病毒(或者直接删除)

下等：需自己启动病毒扫描查杀才提示病毒(或者直接删除)

劣等：无论怎么扫描都无法提示病毒(或者直接删除)