Codigo sin utilidad

[Neftali [Germán.Estévez]]

Empezado por seoane

Si, Si que engancha ¿Que tiempo haces?

No he conseguido pasar de 31 sg.

Me pongo nervioso, miro cuanto tiempo llevo y me "pasan por encima"

[[seoane]]

Empezado por Neftali

No he conseguido pasar de 31 sg.

Me pongo nervioso, miro cuanto tiempo llevo y me "pasan por encima"

No te preocupes yo no paso de 19 seg

Quizá es por eso que no somos pilotos de combate aunque con 31 segundos a lo mejor te dejaban una avioneta, a mi ni eso

[ContraVeneno]

Orales!, por fin: Record 38.513

[[Caral]]

Hola
Que va esto es imposible, voy a tener que dejar de fumar, con 6 segundos, no me dan ni una bicicleta.
Aparte, Seoane, no me canso de decirlo, eres genial, de verdad, impresionas cada 6 segundos, como mi record.
Saludos

[[white_zombie]]

Complicado el juegecito, 20 seg y de casualidad porque el resto de la veces no paso de 8.

Esto es como el pac-man, simple pero adictivo.

Un saludo.

[[seoane]]

Empezado por ContraVeneno

Orales!, por fin: Record 38.513

Se nota que juegas habitualmente, tu coordinación mano-ojo es excelente

[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