Criando um componente p/ criptografia de dados

Nós vamos aprender a ciar nosso proóprio componente p/ criptografia de dados, que serve apenas para criptogafar e descriptografar sequencia de caracteres.Vamos lá, abra o Delphi:->Menu Component -> item New ComponentNa janela New Component altere o campo Ancestor Type para "Tcomponent" e campo ClassName para "Tcriptografia".-> Clique no botão isntall, e confirme a montagem e complicação da package, clicando nos botões YES & OK.-> O delphi então criou uma \'unit\' chamada de Criptografia, que conterá o codigo fonte de nosso componente->A interface da Unit, logo antes da declaração da procedure Register, adicione as seguintes linhas.ConstC1= 33598;C2=24219;Estas constantes sã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:VChave: Word;À Seção Published acrescente a linha:Property Chave:Word read vChave write vChave;Á seção public da interface da Unit Criptografia, acrescente a declaração do construtor do componente:Constructor Create(AOWner:Tcomponent);override;Á parte implementation acrescente a implementação do construtor:Construtor Tcriptografia.Create(AOWner: TComponent);BeginInherited Create(AOWner); //Chama o construtor priginalChave:=16854;End;Á seção Public acrescente as declarações dos métodos de criptografia:Function Criptografar(pTexto:String):String;Function Descriptografar(pTexto:String):String;Á parte implementation acrescente a implementação dos métodos de criptografia:Function Tcriptografia.Criptografar(pTexto:String):String;VarI:Byte;VChave:Word;Texto:String;BeginVChave:=Chave;For I:=1 to to Length(pTexto) doBeginTexto:=Texto+char(Byte(pTexto[i]) xor (vChave shr 8));VChave:=(Byte(Texto[i]) + vChave) * C1 + C2;End;Result:=Texto;End;->Cria comandos pra Descriptografar os caracteresFunction Tcriptografia.Descriptografar(pTexto:String):Strin g;VarI:Byte;VChave:Word;Texto:String;BeginVChave:=Chave;For I:=1 to to Length(pTexto) doBeginTexto:=Texto+char(Byte(pTexto[i]) xor (vChave shr 8));VChave:=(Byte(Texto[i]) + vChave) * C1 + C2;End;Result:=Texto;End;Bom é isso ai pessoal, espero que tenham gostado!Não importa se é inutil ou não, o que importa é coisa própria, feita do seu próprio esforço!