criptografar jpeg
24/01/2006
0
// 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
Crcam
Posts
24/01/2006
Sourcecode
Neste site você irá encontrar várias informações sobre como trabalhar com imagens com delphi, vários exemplos e dicas, excelente.
25/01/2006
Crcam
25/01/2006
Crcam
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
Clique aqui para fazer login e interagir na Comunidade :)