Hfdhfdh

------------------------------------------------------------------------------
| |
| Este testo esta diseñado para aprender, para la gente que tiene curiosidad, |
| para cualquier persona que tenga ganas de saber como funcionan las cosas, y |
| para mostrar lo facil que puede ser hacer algo sin necesitar unnivel alto |
| de conocimientos! |
| |
| Logicamente lo que hagas con lo aprendido aquí es cosa tuya, este testo no |
| fomenta a cometer delitos informaticos, lo que se pretende es enseñar, pero |
| por favor, no seas un capullo y no vallas por hayborrando archivos y |
| jodiendo pc's |aparte de ser una tonteria, no vas a ganar nada, al contrario!|
| |
| Este testo esde libre difusión, solo espero que se respeten los creditos de |
| su autor: Xenon.Quiero agradecer en especial a una persona que me a ayudado |
| mucho y me a resuelto dudas y problemasque he ido teniendo, y sin su ayuda, |
| no esistiria este manual! GRACIAS P0W3RF1Y !!!!!!!!! |
| |
------------------------------------------------------------------------------

aver que tal me esplico y que tal os parece este minicurso de como hacer un troyano desde 0 en vb conconocimientos MINIMOS:

un troyano consta fundamentalmente de 2 partes; el cliente y el servidor, entre ambos se establece una conexion para pasar datos
de todo tipo, asi que lo primero que haremos es crear estos 2 programas y diseñar esa conexion, veamoslo:

CLIENTE

con el vb abierto y elijiendo un nuevo proyecto empezamos agregando en: PROYECTO-COMPONENTES y selecionamos microsoft winsockcontrols
ahora se abra agregado un icono nuevo de 2 pcs ala derecha, pues le picamos y lo incluimos en el formulario. una buena idea es renombrarlo a WS para
ahorrar tiempo al nombrarlo en el codigo.

para configurar la conexion pondremos este codigo; añadimos un boton lo podemos llamar "escuchar" y en el evento click:

Private Sub escuchar_Click()
On Error Resume Next'esta linea sirve para que en caso de error siga el programa en la siguiente linea sin interrumpirlo
Ws.LocalPort = Text1.Text 'el puerto que empleara el winsock sera el que introduzcas en un textbox, AÑADELO
Ws.Close 'ws llama al objeto winsock que hemos agregado el punto te deja elejiropciones, y la opcion close es para que cierre la conexiono el puerto abierto
Ws.Listen 'deja ala escucha el puerto introducido en el textbox
If Ws.State = 2 Then Label1.Caption = "Escuchando" 'si el estado del winsock es (escuchando) entonces la propiedad caption de la etiketa sera "Escuchando" asi que ya estas añadiendo unlabel(etiketa), esto es util
para ver si de verdad esta escuchando o no, ya que si ese puerto ya estubiera abierto no te dejaria abrirlo para este programa, de ay tambien lo de ws.close antes...
End Sub

con este codigo ya tenemos un puerto escuchando ala espera, pero esto no es todo, ya que por muy abierto que este, si no le decimos que hacer si alguien intenta conectarse a el, no servira denada, veamoslo:

añadimos este codigo al programa:

Private Sub ws_ConnectionRequest(ByVal requestID As Long) 'cuando se intente conectar a este (servicio,puerto,socket,o etc..) recojera su ip y ejecutara el siguiente codigo:
On Error GoTo error 'si ay un error ves ala etiketa (error)
Ws.Close...