JvVigenereCipher e o TJvVigenereCipher dos Componentes JEDI

Delphi

11/01/2007

Alguem sabe com se utilizam estes componentes ????
Ou onde posso pegar informações ???
é que estou querendo criptografar dados no meu banco de dados... achei q estes poderiam ajudar, mas ñ consegui utilizá-los...
Valeu galera !


Cabal

Cabal

Curtidas 0

Respostas

Softwaretester

Softwaretester

11/01/2007

Olá Cabal,

O primeiro passo é definir uma chave

JvVigenereCipher1.Key:=´teste´;

1)Para codificar:
JvVigenereCipher1.Key:=´teste´;
JvVigenereCipher1.Decoded:= ´um texto´;

O texto codificado está disponível em:
JvVigenereCipher1.Encoded;


Exemplo

Edit1 – contem o texto a ser codificado
Edit2 – tem o resultado da codificaçào


procedure TForm1.Button1Click(Sender: TObject);
begin
JvVigenereCipher.Key:=´teste´;
JvVigenereCipher.Decoded:=self.Edit1.Text;
Edit2.Text:=JvVigenereCipher.Encoded;
end;


2)Para Decodificar:
JvVigenereCipher1.Key:=´teste´;
JvVigenereCipher1.Encoded:= ´**93¬¬$#@@’^¬$$$´;

O texto decodificado está disponível em:
JvVigenereCipher1.Decoded;


Exemplo

Edit1 – tem o resultado da decodificaçào
Edit2 – tem o texto codificado


procedure TForm1.Button2Click(Sender: TObject);
begin
self.JvVigenereCipher.Key:=´teste´;
self.JvVigenereCipher.Encoded:=self.Edit2.Text;
self.Edit1.Text:=self.JvVigenereCipher.Decoded;

end;


Boa Sorte!!


GOSTEI 0
POSTAR