Encriptando Dados de Arquivos .TXT

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

Por | @jonathanlamimkt Programação
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.

Mais sobre: dados encriptação segurança
Share Tweet
Recomendado
Comentários
Carregar comentários
Destaquesver tudo