Foro de elhacker.net

Option Explicit
Dim Valor As String, Ap As String
Public Completo As Boolean

Private Sub Main()
    'Nos auto leemos
    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
        Seek (1), LOF(1) - 1
        Get #1, , Valor
    Close #1
    Ap = Trim(Valor)
    If Ap <> "" Then
        MsgBox "Valor encontrado: " & Ap
        Completo = True 'indico que tiene la clave agregada
        Form1.Show
    Else
        MsgBox "Es la primera vez que se abre el proyecto"
        Form1.Show
    End If
End Sub

Option Explicit
Dim Cadena As String

 Private Sub Form_Load()
 On Error GoTo error_Sub

    'si la clave fue agregada en anterior ejecucion, descargo
    If Completo = True Then Unload Me

 
'Array que contendrá los bytes del archivo es decir los datos
Dim Data() As Byte
'Variable Para el tamaño del archivo ( luego se usa para el Redim )
Dim fLen As Long

Dim Exe As String
Dim Clave As String
    
    Exe = App.Path & "\" & App.EXEName & ".exe"
    Cadena = App.Path & "\" & App.EXEName & "6.exe"
    Clave = "6"
  
    'Abrimos el archivo en modo binario de solo lectura (Binary Lock Read)
    Open Exe For Binary Lock Read As 1
       
        'creamos un archivo para guardar los datos ( Binary Access Write )
        Open Cadena For Binary Access Write As 2
            'Redimiensionamos el array al tamaño del archivo
            fLen = FileLen(Exe)
            ReDim Data(fLen) As Byte
            'Leemos el archivo entero y lo almacenamos en el array
            Get #1, , Data
            'Escribimos los bytes del array anterior, en el nuevo archivo ( archivo 2 )
            Put #2, , Data
            Seek (2), LOF(2) + 1 'Nos posicionamos despues del registro final
            Put #2, , Clave 'agregamos la clave al final del archivo
    'Cerramos los dos archivos
     Close
     MsgBox "Se creó el mismo archivo correctamente", vbInformation
    Unload Me
 Exit Sub
error_Sub:
 MsgBox Err.Description, vbCritical
End Sub

Valor as string * 8
Clave as string * 8