Если совсем быстро и просто, то в JVCL есть компонент
TJvVigenereCipher. Кидаем его на форму.
Также:
Edit для кодового слова
Memo для нашего текста
Button (2 шт) для кодирования/раскодирования
Для кнопок пишем код:
Код:
procedure TForm1.ButtonEncodeClick(Sender: TObject);
begin
Memo1.Lines.Text := JvVigenereCipher1.EncodeString(edit3.Text,Memo1.Lines.Text);
end;
procedure TForm1.ButtonDecodeClick(Sender: TObject);
begin
Memo1.Lines.Text := JvVigenereCipher1.DecodeString(edit3.Text,Memo1.Lines.Text);
end;
Дальше только усложнение/усовершенствование.
Кому интересно -
прикладываю исходник (Delphi2010) и exe'шник. (rar 312Кбайт)