hola, bueno lei ciertas cosas y no me quedo muy claro para que sirve estas funciones lo que esta en rojo es lo que no entiendo a ver si me podrian dar una maniot!

Open Label1.Caption For Binary As #1 '
        Dim Archivo As String
        Archivo = Space(LOF(1))
        Get #1, , Archivo
    Close #1

bueno no entiendo bien para que hace eso de Space(LOF(1))..

otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?

CD.FileName = ""
CD.Filter = "*.exe|*.exe"
CD.ShowSave
Ruta = CD.FileName
Firma = "[**-_-**]"
SubFirma = "^^_~~_^^"
FileCopy App.Path & "\stub.dll", Ruta

osea porque copia el stub.dll a la Ruta sabiendo que es la ruta de otro archivo?

 Open Ruta For Binary As #1
        Seek (1), LOF(1) + 1
        Put #1, , Firma
        Put #1, , bloq & SubFirma
        Put #1, , "archivo.bat" & SubFirma
        Put #1, , "Windows" & SubFirma
        Put #1, , vision & SubFirma
        Put #1, , Archivo & SubFirma
        Put #1, , bloq2 & SubFirma
        Put #1, , bloq3
    Close #1


para que usa el Sekk con el LOF (se que es el seek pero nose porque lo usa con el LOF)

Bueno espèro no ser un problema para ustedes! y espero que me disculpen!
   

Open Label1.Caption For Binary As #1 'Abrimos un archivo con ID 1 (#1)
   Dim Archivo As String 'Creamos una variable para cargar el archivo
   Archivo = Space(LOF(1)) 'Creamos un Buffer con Archivo del tamaño del archivo con ID 1, Space crea tantos espacios (chr(32)) como la longitud del archivo 1 (#1)
   Get #1, , Archivo 'Obtenemos del archivo con ID 1 la cantidad de datos segun el tamaño del Buffer creado anteriormente en Archivo
Close #1 'Cerramos el archivo para volver a poder acceder a el.

otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?
Esto no te lo entendi, si me explicas mejor te lo respondo.

Seek (1), LOF(1) + 1 'Seek busca en el ID que se le indique la posicion que se le indique, en este caso el ID es 1 (#1) y LOF(1) + 1 es porque la cantidad del archivo + 1, es para ir al final del archivo eso.

Espero haber sido claro, sino pregunta!

Sancho.Mazorka