Encriptando Dados de Arquivos .TXT

Enviar dados encriptados é uma forma muito segura de fazer o tráfego de informações. Nesse artigo você poderá montar um pequeno aplicativo capaz de encriptar e desencriptar arquivos .txt com informações.

Inicie um novo aplicativo com os seguintes componentes:

2 Labels
2 Edits
1 Button

Copie o código abaixo e cole junto ao códico fonte da página em que sera utilizado após as linhas:

implementation

{$R *.dfm}

Procedimento para Encriptação e Decriptação de arquivos

Este código é o referente à sitação acima.

procedure EnDecryptFile(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;

end;

Depois que colar este código, dê um duplo click no Button e coloque o seguinte código:

var

origem, destino: string;



begin

origem := Edit1.Text;

destino := Edit2.Text;

EnDecryptFile(origem, destino, 12)

end;

Entendendo o Código

O procedimento EnDecryptFile recebe como parâmetros o arquivo de origem e o arquivo que deverá ser criado com o resultado, seja uma encriptação ou uma decriptação, e a o valor da chave de encriptação.

O arquivo de exemplo

No arquivo de exemplo você poderá conferir o funcionamento da função e ver como e onde os códigos foram aplicados. Não deixe de fazer o download dele, pois será muito útil.