criptografar imagens

Delphi

02/04/2004

como faco pra criptografar imagen do tipo .jpg e .Tif ?


Vander2000rj

Vander2000rj

Curtidas 0

Respostas

Alves

Alves

02/04/2004

use esta unit
procedure Cripto(INFName, OutFName : String; Chave : Word);
var
  InMS, OutMS : TMemoryStream;
  I : Integer;
  C : byte;
begin
  InMS := TMemoryStream.Create;
  OutMS := TMemoryStream.Create;
  Try
   InMS.LoadFromFile(INFName);
   InMS.Position := 0;
     for I := 0 to InMS.Size - 1 do
       begin
        InMS.Read(C, 1);
        C := (C xor not(ord(chave shr I)));
        OutMS.Write(C,1);
       end;
       OutMS.SaveToFile(OutFName);
  finally
  InMS.Free;
  OutMS.Free;
end;

---------------------------------------------------------------
Para Criptografar qualquer tipo de Arquivo, Um Click no Botao!!
Para Reverter clica outra vez no botao


procedure TFrmPrincipal.Button3Click(Sender: TObject);
Var
NomeArquivo: String;
begin
  NomeArquivo := ´c:\teste.txt´;
  Cripto(NomeArquivo, NomeArquivo,(12));
end;



GOSTEI 0
POSTAR