Cargar exe como texto plano

[_cero_]

Verán, por razones de estética acostumbro a cambiar las extensiones de los paquetes (.bpl), por otras (.paq), esto más unas cuantas movidas en el registro y quedan con bonitos iconos, El punto es que para que funcione todo al 100, también debo modificar el ejecutable abriéndolo con el block de notas, buscando y sustituyendo la extensión.

Así que para automatizar esta tarea me gustaría saber cómo puedo cargar el exe como si fuera texto plano para buscar y sustituir cadenas. Como siempre de antemano gracias.

[[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.

[Casimiro Notevi]

Con un editor hexadecimal.

Tal y como te ha dicho escafandra, ten muuuuuucho cuidado, no porque sea malo, sino porque es muuuuuuuuuy peligroso
Por ejemplo, hacer esto:
Replace((BYTE*)MS->Memory, "Hola", "adios", MS->Size, 4);
equivale a desastre total.

[_cero_]

Gracias escafandra, me funciono de maravilla . Mi problema fue que no dejaba de verlo como texto plano ya que así lo trabajaba, en cuanto a lo de la corrupción del exe, es algo que ya tenía presente (misma longitud siempre), sin embargo gracias a ambos por el recordatorio que nunca está de más.

[[escafandra]]

Empezado por Casimiro Notevi

Con un editor hexadecimal.

Tal y como te ha dicho escafandra, ten muuuuuucho cuidado, no porque sea malo, sino porque es muuuuuuuuuy peligroso
Por ejemplo, hacer esto:
Replace((BYTE*)MS->Memory, "Hola", "adios", MS->Size, 4);
equivale a desastre total.

En realidad el desastre total sería en cambiar el número "4" por otro mayor pues ese es el tamaño que va a sustituir. La función sólo va a cambiar 4 bytes con lo que si el siguiente a "Hola" es un carácter, no pasaría nada pero si es binario...

Conviene guardar una copia del ajecutable antes de trastearlo .

Saludos.