Здравствуйте!
Сейчас делаю программу "Шифрование Виженера".
Цель: сделать программу, которая шифрует и дешифрует методом Виженера.
Может у кого-нибудь есть готовая программа или кто-нибудь знает, где можно найти исходник программы?
А так, возникла такая проблема:
На поле 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;
Помогите, кто знает!