criptografar arquivos

[aalessandre]

caros colegas, preciso fazer um codigo que criptografa/ descriptografa arquivos, alguém poderia dar umas dicas, ou mostrar algum codigo exemplo.

obrigado

[Jhonas]

preciso fazer um codigo que criptografa/ descriptografa arquivos, alguém poderia dar umas dicas, ou mostrar algum codigo exemplo.

veja neste endereço:

http://www.activedelphi.com.br/forum/viewtopic.php?t=35848

outra solução

15. Função de Criptografia de 32 Bits (topo)

Para criptografar passe como paramêtros 3 valores inteiros quaisquer.
Para referter a criptografia utilize os mesmos valores

{$R-} {$Q-}
function EncryptSTR(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var I : Byte;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
  end;
end;

function DecryptSTR(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var I : Byte;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
  end;
end;
{$R+} {$Q+}

mais informações:

http://www.ramosdainformatica.com.br/dic_r...s01.php?CDA=765

OBS: leve em conta que se o seu arquivo for grande e estiver usando rede, a performance do programa cai muito, pois ele terá que fazer a descritografia antes de mostrar para o usuário.

abraço