Visual Basic
Les dejare un ejemplo bastante simple, y se los tratare de explicar lo mejor posible para que lo puedan entender sin problemas.
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:
Boton Build:
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:
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.
Eso es todo, espero que les haya gustado! Luego les mostrare como meter el Stub dentro del Builder, para que directamente genere el ejecutable ya configurado.
Server Builder [VB6]
Hola a todos. En este tutorial les voy a enseñar a hacer un Builder para que puedan utilizarlo a la hora de programar un malware.Les dejare un ejemplo bastante simple, y se los tratare de explicar lo mejor posible para que lo puedan entender sin problemas.
Primero debemos crear un nuevo proyecto con un EXE Estandar
Builder:
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 StringForm 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.
Yo puse una NO-IP y un Puerto. Ahora revisamos el Stub para ver si aparecen correctamente los datos que ingresamos:
Eso es todo, espero que les haya gustado! Luego les mostrare como meter el Stub dentro del Builder, para que directamente genere el ejecutable ya configurado.
5 comentarios: