Underc0de

Hola estoy por hacer un troyano ya sea en vb o delphi pero el problema es que en la mayoria de los foros de programacion no me quieren ayudar cuando se trata de generar un servidor con la ip de la victima usando conexion inversa , solo encuentro manuales de conexion directa , mi problema es que no entiendo como se hace el tema de generar el servidor exe a partir del cliente del troyano.

¿ alguien me podria explicar como se hace ?

Aca te explico un simple ejemplo de lo que pides. Se le llama server builder cuando el cliente del troyano genera al servidor del mismo.

Primero debemos crear un nuevo proyecto con un EXE Estandar

Builder:


En el formulario colocaremos 2 TextBox y 1 Boton (Los labels son opcionales ya que no afectan al funcionamiento)


Y en su codigo lo siguiente:

Declaracion de variables:

'Declaraciones
Dim std As String

Boton Build:

Private Sub Command1_Click()

    Open App.Path & "\Stub.exe" For Binary As #1 'Busca y abre el Stub en el mismo dir en donde esta el cliente
    std = Space(LOF(1)) 'Space: Devuelve una cadena que consta del número especificado de espacios.
                        'LOF: Devuelve un valor Long que representa el tamaño, en bytes, de un archivo abierto mediante la función FileOpen.
    Get #1, , std 'Obtiene el valor de bytes de la variable std
    Put #1, , std & "{Dil}" 'Inserta un {Dil} al final del stub
    Put #1, , Text1.Text & "{Dil}" ' Coloca en el Stub lo ingresado en el text1 (DNS/IP) seguido de un {Dil}
    Put #1, , Text2.Text & "{Dil}" ' Coloca en el Stub lo ingresado en el text2 (Puerto) Seguido de un {Dil}
     
    MsgBox ("Listo!") ' Si todo esta bien muestra el mensaje de ok!

End Sub

Stub:

Ahora abrimos un nuevo proyecto y aqui crearemos el Stub que se modificara.
En el formulario ponemos 2 TextBox. Y en ellos mostraremos los valores que hemos ingresado desde el Builder


Y el codigo seria el siguiente:

Veriables:

'Declaraciones
Dim std As String

Form Load:

Private Sub Form_Load()

    Open App.Path + "\" & App.EXEName & ".exe" For Binary As #1
    std = Space(LOF(1))
    Get #1, , std
    Close #1
     
    Text1.Text = Split(std, "{Dil}")(1)
    Text2.Text = Split(std, "{Dil}")(2)
     

End Sub

No comente las lineas por que creo que esta mas que claro. En definitiva lo que hace es tomar lo ingresado en el Builder y colocarlo en el Text1 y Text2

Una vez hecho esto, generamos el *.EXE y lo colocamos en la misma carpeta del Builder.


Ahora corremos el Builder, colocamos los datos y revisamos.
Yo puse una NO-IP y un Puerto. Ahora revisamos el Stub para ver si aparecen correctamente los datos que ingresamos:


Como se puede ver, ejecute el Stub y me mostro los datos. Y si lo abro con un editor Hexadecimal, puedo ver el EOF con los datos ingresados.

Espero que te sirva! Cualquier cosa nos dices!

Saludos!
ANTRAX

ahh , entonces se llama server builder no entiendo porque no encuentro documentacion en google sobre esto , por casualidad no conoces como hacerlo en delphi o sino algun tuto en ingles en algun lado ?.

En delphi no, pero la logica es la misma

tengo una duda con el codigo ,  el archivo stub ya tiene que existir o el builder lo crea en el codigo ?

Lo tenes que tener creado previamente como muestra el tutorial

ahh , ahora que lo leo se parece a los joiners cuando se programan (en el tema de los stubs) , verdad ?

Algo asi, pero para un troyano

tengo otra duda , tiene que ser siempre {Dil} o puede tener otro nombre como {test}. ???

La mejor forma de saberlo, es probando y luego comentanos como te fue!

Saludos!

respondo a la pregunta de 14k ,  si podes usar el ancla que quieras ya se sea {dil} u otro como {ip} , de he hecho acabo de hacer este mismo manual para delphi , lo podes ver en la seccion de Delphi.