Array
(
)

criptografar jpeg

Crcam
   - 24 jan 2006

pessoal alguém sabe como fazer esse codigo codificar jpeg ele so aceita BMP.


// codificar imagens
procedure cripto(const BMP: TBitmap; Key: Integer);
var
BytesPorScan: Integer;
w, h: integer;
p: pByteArray;
begin
try
BytesPorScan := Abs(Integer(BMP.ScanLine[1]) -
Integer(BMP.ScanLine[0]));
except
raise Exception.Create(´Erro !´);
end;
RandSeed := Key;
for h := 0 to BMP.Height - 1 do
begin
P := BMP.ScanLine[h];
for w := 0 to BytesPorScan - 1 do
P^[w] := P^[w] xor Random(256);
end;
end;
// fim codificar imagens


Sourcecode
   - 24 jan 2006

Amigo, você encontra uma rotina pra isso [url=http://www.efg2.com/Lab/ImageProcessing/CryptImage.htm#JPEG]aqui[/url], e o exemplo completo [url=http://www.efg2.com/Lab/ImageProcessing/CryptJPEG.ZIP]aqui[/url].
Neste site você irá encontrar várias informações sobre como trabalhar com imagens com delphi, vários exemplos e dicas, excelente.


Crcam
   - 25 jan 2006

muito obrigado! vou dar uma olhada eu vi que é um pouco complicado mas vamos ver no que da.


Crcam
   - 25 jan 2006

o fonte dels é muito legal.
mas cabei trocando seis por meia duzia pois eu já estava tendo dificuldade em mudar aquele código com esse é pior pois ele vem vinculado a outras procedures .

o meu objetivo é codificar gravar no banco e o sistema filtrara a imagem p/ poder visualizar ela somente no programa