tạo virus

1. Tạo hiệu ứng ma trận trên CMD với Notepad
Lấy cảm hứng từ phim “Ma trận”, chỉ với một đoạn mã ngắn dưới đây bạn có thể tạo cho mình hiệu ứng đẹp mắt. Copy đoạn mã dưới đây paste vào Notepad và save lại với tên “Matrix.bat” hoặc tên bất kỳ với đuôi mở rộng “.bat”.
@echo off
color 02
:tricks
echo %random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%
goto tricks
Giờ bạn chỉ việc click đúp vào file “.bat” vừa tạo thì chương trình cmd của máy tính sẽ tự động chạy lên hiệu ứng ma trận
2. Làm cho bàn phím tự động gõ liên tục một đoạn văn bản bất kỳ (VBScript)
Với một vài đoạn mã VBSCript sau đây bạn có thể làm cho bàn phím của mình tự động gõ liên tục một đoạn văn bản đã được quy định trước. Trong ví dụ dưới đây mình sẽ sử dụng đoạn văn bản: “Virus. May ban da bi nhiem virus nguy hiem…”.
Giờ thì mở Notepad lên, copy đoạn mã dưới đây và lưu lại với tên có đuôi mở rộng là “.vbs”. Mình sẽ save lại với tên là “Trick.vbs”
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Virus. May ban da bi nhiem virus nguy hiem…"
loop
Còn chờ gì nữa, bạn hãy click đúp vào file “.vbs” vừa tạo để xem thành quả đạt được Open-mouthed smile
. Và xin lưu ý là thao tác gõ liên tục sẽ không ngừng cho đến khi bạn khởi động lại máy tính. Hãy tạo một file với thông điệp bất kỳ và gửi cho bạn bè sẽ rất vui.
3. Tạo một virus tự động đẩy ổ đĩa CD/DVD ra ngoài liên tục
Mở ứng dụng Notepad lên copy đoạn mã dưới đây vào sau đó lưu lại với đuôi mở rộng là “.vbs”. Ở đây tôi sẽ lưu với tên là “Virus.vbs
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop