Encriptando Dados de Arquivos .TXT

Enviar dados encriptados é uma forma muito segura de fazer o tráfego de informações. Inicie um novo aplicativo Delphi com os seguintes componentes:

• 2 Labels
• 2 Edits
• 1 Button

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

implementation

{$R *.dfm}

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

Este código é o referente à citaçã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 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. Clique aqui para fazer o download.