Olá galera do Invaders, fiz esse pequeno tutorial de como criptografar strings nos seus programas.

Introdução.

Primeiramente é preciso saber o que é uma String e onde usar ela. Strings são tipos de dados que mais se familiarizam aos seres humanos. Exemplo:
I := ‘Informação’;

Vantagens em Encriptar uma String

Uma das maiores vantagens em usar encriptação de strings é dificultar um certo tipo de “Engenharia Reversa” em seu programa. Hoje em dia muitos dos programadores encriptam strigs como, por exemplo, que tem dados de envio de e-mail, dados de senhas, entre outros.

Encriptando uma string

Na Linguagem Object Pascal encontramos diversas funções na net para a encriptação. Os métodos de criptografia se baseiam de certo modo em usar uma chave numérica para a encriptação dos valores. Diversas dessas funções podemos estar encontrando no planetadelphi, google.

Função que irei utilizar:
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;

É necessário ser feito antes de mais nada um programa para a encriptação para facilitar.
Abriremos o Delphi e iremos adicionar 2 edits, 1 button .
Colocaremos a função na unit logo abaixo de implementation.
Declararemos no button o seguinte comando:
Edit2.text:=EnDecryptString(Edit1.text,132);
O edit 2 irá receber o texto que foi digitado dentro do edit1 e irá chamar a função EnDecryptString criptografando-o utilizando a chave numérica 132.

Bem agora vamos salvar esse projeto e compilar.
Temos agora em mãos um programa que faz encriptação de comandos. Agora irei pegar uma parte do texto do meu código para testar a encriptação, lembrando no código do seu programa também é necessário declarar a função.
K.Add('email=marcelomoraes@compilandoideias.com.br ');
Temos uma linha do meu programa para envio de formulários de email, iremos criptografar o texto que está entre o ' '.
Vamos copiar e colar dentro do edit 1 do nosso programa de encriptação.
Agora temos o texto encriptado agora teremos que na linha do nosso programa chamar a função para descriptografa-lo
K.Add(EnDecryptString(' " F " " C " ¬ ¬ " U U! ',132));
Estaremos chamando a função EnDecryptString para estar descriptografando utilizando a chave 894. Vale lembrar que temos que utilizar a mesma chave numérica em ambos programas, caso contrário não dará certo.

Espero que tenham gostado desse pequeno tutorial.

Autor: Marcelo Moraes.

Fonte e Link para Leitura: http://www.compilandoideias.com.br/novo/?p=160