Ver Mensaje Individual
  #2  
Antiguo 24-12-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Esta bien que se acuerden de uno.

El problema no es encriptar la imagen, si no la compresión. Manipular una imagen y guardarla como bmp, para luego recuperar los datos originales, es algo sencillo. También los seria para otros formatos de compresión como gif, tif o png, donde durante el proceso de compresión no se pierde información de la imagen original. Pero por ejemplo con el formato jpeg, la cosa cambia, en el proceso de compresión se pierde parte de la información de la imagen original, así que cuando quisiéramos deshacer la manipulación y volver a la primera imagen, no conseguiríamos un buen resultado. La imagen se recompondría pero parecerían multitud de puntitos multicolor molestando

Ahora vamos con un poco de codigo:
Código Delphi [-]
type
  Triple = array[1..3]of Byte;

procedure Cifrar(Imagen: TPicture; Clave: Longint);
var
  Bitmap: TBitmap;
  P: ^Triple;
  i, j: Integer;
begin
  RandSeed:= Clave;
  if not (Imagen.Graphic is TBitmap) then
  begin
    Bitmap:= TBitmap.Create;
    try
      Bitmap.Width:= Imagen.Width;
      Bitmap.Height:= Imagen.Height;
      Bitmap.Canvas.Draw(0,0,Imagen.Graphic);
      Imagen.Assign(Bitmap);
    finally
      Bitmap.Free;
    end;
  end;
  Imagen.Bitmap.PixelFormat:= pf24bit;
  for j:= 0 to Imagen.Bitmap.Height - 1 do
  begin
    P:= Imagen.Bitmap.ScanLine[j];
    for i:= 0 to Imagen.Bitmap.Width - 1 do
    begin
      P^[1]:= P^[1] xor Byte(Random(256));
      P^[2]:= P^[2] xor Byte(Random(256));;
      P^[3]:= P^[3] xor Byte(Random(256));
      inc(P);
    end;
  end;
end;

// Por ejemplo
  Cifrar(Image1.Picture,1978);
  Image1.Refresh;

En la función anterior usamos un simple cifrado XOR sobre los pixeles. EL resultado es un montón de pixeles multicolor que no se parecen en nada a la imagen original. Para obtener la imagen original solo tenemos que volver a realizar la misma operación porque como ya sabrás (a xor b) xor b = a

También podemos superponer una imagen sobre otra, esto lo explico aquí:
http://www.clubdelphi.com/foros/showthread.php?t=35371

Y ahora se me ocurre, que podríamos hacer una codificación similar a la que usan algunos canales de televisión de pago. Cambian el orden de las lineas horizontales, dejando una imagen en la que a veces se puede intuir lo que pasa, pero prácticamente irreconocible. Alguno se quedo ciego intentando ver los partidos de fútbol gratis

Este ultimo método lo dejo para mas tarde, porque no consigo resolver un problema al copiar las lineas horizontales que hace que el proceso sea muy lento, y además me están llamando para cenar

FELIZ NAVIDAD A TODOS !!!
Responder Con Cita