Cargar exe como texto plano

[[escafandra]]

Los ejecutables no son archivos de texto y no los puedes manejar como tales. Sin embargo puedes leer el archivo y buscar cadenas.

Hace algún tiempo respondí a una pregunta similar pero tras un problema en el foro, en el que se perdieron numerosos mensajes de la base de datos, debió desaparecer esa respuesta, pues no la he encontrado.

Te muestro la forma de hacer una búsqueda de cadena y cambiarla. Ten en cuenta que le número de caracteres cambiados en una cadena no puede variar, es decir no puedes sustituir una cadena del ejecutable por otra de diferente tamaño.


La siguiente función busca un array de bytes (texto o binario) en un buffer y lo cambia por otro:

void Replace(BYTE *Buffer, BYTE *Val, BYTE *newVal, int SizeBuffer, int sizeVal)
{
   for(int n= 0; n<SizeBuffer; n++){
      if(Buffer[n] == *Val){
         int i=1;
         for(; i<sizeVal; i++)
           if(Buffer[n+i]!=Val[i])  break;
         if(i==sizeVal)
           memcpy(&Buffer[n], newVal, sizeVal);
      }
   }
}

Ahora te muestro un de las formas para manejar el archivo, donde se cambian las cadenas que contengan "Hola" por "casa":

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   TMemoryStream *MS = new TMemoryStream;

   MS->LoadFromFile("project1.exe");
   Replace((BYTE*)MS->Memory, "Hola", "casa", MS->Size, 4);
   MS->SaveToFile("prueba.exe");

   delete MS;
}

Saludos.