[Cubar]

Здравствуйте!
Сейчас делаю программу "Шифрование Виженера".
Цель: сделать программу, которая шифрует и дешифрует методом Виженера.

Может у кого-нибудь есть готовая программа или кто-нибудь знает, где можно найти исходник программы?

А так, возникла такая проблема:
На поле 3 компонента: TStringGrid (для ввода ключа, для ввода слова, для зашифрованного или дешифрованного слова); 2 компонента: TButton (для шифрования, для дефифрования).
Нужно сделать так, чтобы при каждой введенной букве в поле "TString", курсор переводился на следующее поле.

Вот код, что у меня получился, но он не так, как надо работает, т.е. при вводе первой буквы в поле, буква в первое поле не вводится, а вводится во второе поле и при переходе в другой компонент "TStringGrid", в последнее поле первого компонента вводится 2 буквы:

Код:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#192..#255: {маленькие и большие буквы}
If Key<>'' then // нажата клавиша
If StringGrid1.Col<StringGrid1.ColCount-1
then // курсор в следующую ячейку таблицы
StringGrid1.Col:=StringGrid1.Col+1
else // курсор в поле StringGrid2
StringGrid2.SetFocus;
#8:;
else
Key:=Chr (0);
end;
end;

Помогите, кто знает!

[Burka]

Вот мой модуль с различными методами шифрования.
http://qvadro.livejournal.com/3493.html#cutid1

Комментарии есть, так что разберешься.

[Cubar]

Спасибо большое, Burka. Разобрался.
Программу сделал.