Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #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
Poder: 26
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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
encriptar xelip Varios 1 27-08-2006 21:47:10
encriptar tablas pablo Conexión con bases de datos 2 06-11-2004 18:26:15
Encriptar Clave agora18 Varios 1 17-10-2003 22:19:32
Encriptar datos miguelb Varios 1 17-07-2003 08:24:00
Encriptar datos? emeceuy Varios 2 03-07-2003 17:56:50


La franja horaria es GMT +2. Ahora son las 21:30:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi