EXE que almacena

[Xaina]

 alguien sabe como se puede hacer para que un EXE almacene dentro de si mismo, un conjunto de caracteres y los lleve siempre consigo.

me explico: este programa --> https://www.steganos.com/es/products/home-office/locknote/overview/
Steganos LockNote, es capas de guardar password y su contenido, supongo que dentro de él mismo, porque si te lo llevas a cualquier pc, el pass y el contenido siempre es igual, dudo que cree un archivo con esa informacion en algun lugar, porque si lo sacas de tu pc ya no estaria esa informacion. no se si me explique bien...

Existe alguna forma parecida de hacer lo mismo, prueben el locknote para que vean a que me refiero.

de antemano gracias.

Xaina!

[~~]

Pues escribes los datos al final del propio ejecutable y luego los lees, no tiene mas misterios. Busca sobre joiners o edit' servers para ver algun ejemplo

[Xaina]

 Gracias! una pista por donde comenzar.
Xaina!

[~~]

Mas q una pista te dejo un code
http://foro.elhacker.net/index.php/topic,171824.0.html

Esa es la idea, ahora solo tienes q aplicarlo a tu proyecto en vez de a un troyano. Si no entiendes algo preguntame eneste post

[Xaina]

 Muchas gracias EON, tambien consegui algunos manuales para joiner desde 0, a ver por donde empiezo.

Gracias de nuevo, a trabajar de una vez!

Xaina!

[‭‭‭‭jackl007]

Toma esto es lo que buscas:

Crear un Editor de Servers en VB (By Hendrix)

Suerte

EDIT by Moderador: Tenias mal puesto los tags del URL, ya está solucionado

[Xaina]

Hola, primero le doy las gracias a jackl007 su colaboracion tambien me sirvio y lo habia pasado por alto, a EON ya le di las gracias. 

Esa es la idea, ahora solo tienes q aplicarlo a tu proyecto en vez de a un troyano. Si no entiendes algo preguntame eneste post

era de esperarse que comenzando con esto me atascara...

Segundo... aqui voy...

Siguiendo con esto de los Edit server y con la intención de hacer algo parecido a lo de Stegano locknote he hecho lo siguiente:

- mi intencion es que cuando el exe se abra verifique si es la primera vez que es abierto, esto lo hago comprobando si tiene la clave grabada al final del mismo. De no ser asi abre el form1 y agrega la clave

el modulo

Código [Seleccionar] Expandir

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

el form:

Código [Seleccionar] Expandir


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

El problema que se me presenta, es que, no se si es que no graba la clave al final del archivo o si lo estoy leyendo de manera incorrecta cuando es ejecutado nuevamente, porque siempre me dice que "Es la primera vez que se abre el proyecto".

Por favor necesito de su ayuda, gracias por todo...

¡Xaina!

pd: he de acotar que el proyecto inicia por sub Main.

[Xaina]

El problema que se me presenta, es que, no se si es que no graba la clave al final del archivo o si lo estoy leyendo de manera incorrecta cuando es ejecutado nuevamente, porque siempre me dice que "Es la primera vez que se abre el proyecto".

Alguien me puede echar una mano con esto por favor!

He intentado asignandole limite a las variables para lectura y escritura, ej:

Código [Seleccionar] Expandir

Valor as string * 8
Clave as string * 8

Pero igual no me funciona. ¡Pliss help me!

Xaina