Tutorial - Componente para criptografia de dados

[loupa174 5]

Vamos criar um componente simples para criptografar e descriptografar seqüencias de caracteres.

 

No menu Component do Delphi, escolha o item New Component. Na janela New Component altere o campo Ancestor Type pata “TComponent”, e o campo Class Name para “TCriptografia”. Clique no botão Install e, nas próximas janelas, confirme a montagem e compilação da package, clicando nos botões Yes e OK.

 

Agora o Delphi criou uma Unit chamada de Criptografia, que conterá o código fonte do nosso componente.

 

À interface da Unit, logo antes da declaração da procedure Register, adicione as seguintes linhas:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Estas constantes serão utilizadas nos cálculos das rotinas de criptografia e podem ser alteradas conforme o gosto do leitor.

 

Criaremos apenas uma propriedade para o nosso componente, que servirá para armazenar a chave utilizada na criptografia dos dados.

 

À seção Private da Interface da Unit Criptografia acrescente a linha:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

À seção Published acrescente a linha:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

À seção Public da Interface da Unit Criptografia, acrescente a declaração do construtor do componente:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

À parte Implementation acrescente a implementação do constructor:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

À seção Public acrescente as declarações dos métodos de criptografia:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

À parte Implementation acrescente a implementação dos métodos de criptografia:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Para finalizar, compile novamente a package, utilizando o botão Compile (abra o arquivo dclusr50.dpk).

 

Utilizando o componente Criptografia

 

Agora que já fizemos a escrita do código do componente Criptografia, escreveremos um programa simples, que exemplifica a sua utilização. Para isso, crie uma nova aplicação, utilizando a opção New Application do menu File do Delphi. Salve a Unit criada com o nome de “UCript” e o projeto com o nome de “Cript”.

 

Selecione a Página Aprendendo da paleta da Componentes e adicione um componente Criptografia ao Form1.

 

Selecione a Página Standard da paleta de Componentes e adicione um componente Edit e dois componentes Button ao form.

 

Altere a propriedade Caption do Button1 para “Criptografar” e o do Button2 para “Descriptografar”.

 

A aparência do form deve ficar semelhante a essa:

 

Dê um duplo clique no Button1 e coloque o código:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Dê um cuplo clique no Button2 e coloque o código:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Pronto o componente está pronto, agora execute o programa, digite algum texto no Edit e experimente criptografar e descriptografar, utilizando os botões.

 

Fonte: Livro Delphi 5 – Aplicações comerciais | Carlos Hamilton Rocha Santos | 3ª Edição | Editora érica

Mais em:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[darkfenyx3 7]

Ahhm... você dobrou a função... =/

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[loupa174 5]

Ahhm... você dobrou a função... =/[/color][/b]

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É verdade, obrigado. (Ctrl + C / Ctrl + V ^^)

[darkfenyx3 7]

A função ainda está igual.. .-.

[luxfer 0]

A função ainda está igual.. .-.[/color][/b]

 

É por causa do operador xor.

Se você fizer por exemplo: x := x xor y;

x terá um determinado valor, e se você repetir o comando x := x xor y, ele voltará a ter o mesmo valor que tinha antes do primeiro xor.

 

Resumindo, não presisava escrever 2 funções iguais, pode usar apenas 1 que irá encriptar e desencriptar.

[darkfenyx3 7]

@Momento Noob.

Ahhh, esqueci deste detalhe.. .-.

[†Guilherme™ 0]

Dark o Luxfer disse quase tudo mas o duplicamento dependendo do lugar

pode acaba nao zuando a source e dando certo , mas tem que saber

usa pke se nao FUUUU.

[soureidosnoob 0]

uma duvida...

 

pq n da pra criptografar textos grandes com um memo?????????

 

uma duvida...

 

pq n da pra criptografar textos grandes com um memo?????????

[darkfenyx3 7]

Utilize PChar na string do memo.

[loupa174 5]

uma duvida...

 

pq n da pra criptografar textos grandes com um memo?????????

 

uma duvida...

 

pq n da pra criptografar textos grandes com um memo?????????

 

Você pode fazer como o darkfenyx3 falo, mais a intenção é criptografar dados que vai no banco de dados tipo senhas, cpf, essas coisas que são confidenciais.