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;
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 !!!