Codigo sin utilidad

[principiante22]

ehhhhh!!!!! new record 52 seg, es demasiado dificil mantenerse dentro del cuadro blanco

[[seoane]]

Caramba me voy dos días de fiesta y me borran los mensajes

Pues nada, el ejemplo que se borro, genera una gráfica a partir del numero de mensajes de los 32 usuarios con mas mensajes. Perdonar si no me extiendo mas en la explicación, pero el ron me impide ser mas locuaz

[[seoane]]

Yo continuo, al final este hilo esta siendo un monologo

Bueno, imaginaros esta situación, estas en un ordenador que no es el tuyo y quieres ocultar un archivo a la vista de los curiosos, una foto comprometida, un documento confidencial, etc. Como no es tu ordenador, no te vas a poner a instalar nada, ni andar ejecutando ningún programa extraño, pero lo que si podemos hacer es abrir la consola de comandos y teclear esto:

copy /b foto.jpg+secreto.doc oculto.jpg

Donde "foto.jpg" es una foto jpg cualquiera, que tenga una apariencia lo mas inocente posible, "secreto.doc" es el archivo a ocultar (puede ser cualquier tipo de archivo) y "oculto.jpg" es el nombre del archivo ya empaquetado.

Te preguntaras que hacemos con esto, pues básicamente "ponerle un sombrero" a nuestro archivo. A todos los efectos el archivo resultante parecerá una foto, y tanto la vista previa de windows, como la mayoría de los programas lo abrirán como si de una foto se tratara.

Ahora el problema es "quitarle el sombreo" a nuestro archivo. Para esto no queda mas remedio que usar un programa (al menos no se de ningún comando que realice esta labor). Y aquí es donde, por fin , entra en acción el siguiente código:

Es una aplicación de consola

Código Delphi [-]
program unpack;

{$APPTYPE CONSOLE}

uses 
  SysUtils, Classes;

// Esta funcion posiciona el puntero al principio del archivo oculto
procedure QuitarSombrero(Stream: TStream);
var
  Buffer: array[0..3] of Byte;
  Size: Integer;
begin
  while TRUE do
  begin
    FillChar(Buffer,Sizeof(Buffer),#0);
    Stream.Read(Buffer,4);
    Size:= ((Buffer[2] shl 8) + Buffer[3]) - 2;
    case Buffer[1] of
      $01,$D0..$D8: Stream.Seek(-2,soFromCurrent);
      $D9: begin
             Stream.Seek(-2,soFromCurrent);
             Exit;
           end;
      $DA: begin
             Stream.Seek(-2,soFromCurrent);
             while TRUE do
             begin
               Stream.ReadBuffer(Buffer,1);
               if Buffer[0] = $FF then
               begin
                 Stream.ReadBuffer(Buffer,1);
                 if (Buffer[0] <> 0) and not (Buffer[0] in [$D0..$D7]) then
                 begin
                   Stream.Seek(-2,soFromCurrent);
                   break;
                 end;
               end;
             end;
           end;
      else
        Stream.Seek(Size,soFromCurrent);
    end;
  end;
end;

var
  Entrada, Salida: TFileStream;
begin
  try
    Entrada:= TFileStream.Create(ParamStr(1),fmOpenRead or fmShareDenyWrite);
    try
      Salida:= TFileStream.Create(ParamStr(2),fmCreate);
      try
        QuitarSombrero(Entrada);
        Salida.CopyFrom(Entrada,Entrada.Size - Entrada.Position);
      finally
        Salida.Free;
      end;
    finally
      Entrada.Free;
    end;
  except
    On E: Exception do
      Writeln('Error: ' + E.Message);
  end;
end.

Por ejemplo, para extraer "secreto.doc" de "oculto.jpg":

unpack oculto.jpg secreto.doc

[[ArdiIIa]]

Pues yo también me quito el sombrero ante esta "inutilidad"..

¿Que ocurre si no hay ningún archivo jpg en ese ordenador ?
Y... si la hubiera...
¿Que pasaría si la foto fuera mas comprometida que el propio documento a ocultar.?

[[seoane]]

Empezado por ArdiIIa

¿Que ocurre si no hay ningún archivo jpg en ese ordenador ?

Entonces el proceso a seguir seria el siguiente, vamos a "Inicio > Programas > Accesorios > Paint", abrimos un documento nuevo, dibujamos un bonito paisaje con un arbolito y un sol bien grande, y para terminar lo guardamos como jpg

Pues yo también me quito el sombrero ante esta "inutilidad"..

Pues colabora y pon tu algo, no me creo que no tengas alguna idea de bombero por ahí guardada

[[ArdiIIa]]

Empezado por seoane

Pues colabora y pon tu algo, no me creo que no tengas alguna idea de bombero por ahí guardada

Lo son casi todas, pero no están patentadas.
Además, imagina que se me echa encima el cuerpo de bomberos por exponer aquí sus ideas.

[[seoane]]

Empezado por ArdiIIa

Además, imagina que se me echa encima el cuerpo de bomberos ...

Mientras no se te eche encima el cuerpo de un bombero ...

Por dios, cuanto reparo hay en mostrar código, os veo muy tímidos

[Ñuño Martínez]

Seoane, me has decepcionado: ¡Ese código es útil!

[[seoane]]

Empezado por Ñuño Martínez

Seoane, me has decepcionado: ¡Ese código es útil!

No tanto, no pasa de ser un truco para emergencias

Y aprovechando que se encuentra usted por aquí maestro Ñuño, no tiene ningún código que dejarnos ...

[Ñuño Martínez]

Empezado por seoane

Y aprovechando que se encuentra usted por aquí maestro Ñuño, no tiene ningún código que dejarnos ...

Pues tenía uno, pero ahora no lo encuentro. Tendré que reescribirlo. A ver si esta tarde saco tiempo antes de cenar y lo pongo por aquí.