Fórum JvVigenereCipher e o TJvVigenereCipher dos Componentes JEDI #335985

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!!