» Delphi 7, шифр Цезаря. Проблема с буквой "я".

[more] Здравствуйте. Написал программу для шифрования в делфи 7. Все работает хорошо, пока перенос по ключу не попадает на букву "я". Программа использует таблицу аски. Ниже приведу код с двух кнопок. Первая шифрование, вторая дешифрование.

procedure TForm1.Button1Click(Sender: TObject);
var temp:string; i,j:integer;
begin
temp:=''; i:=0; j:=0;
for i:=0 to memo1.lines.Count-1 do
begin
for j:=1 to length(memo1.Lines[i]) do
begin
temp:=temp+chr((ord(memo1.lines[i][j])+strtoint(edit1.Text))mod 255);
end;
temp:=temp+#13+#10;
end;
memo2.text:=temp;
end;

procedure TForm1.Button2Click(Sender: TObject);
var temp:string; i,j:integer;
begin
temp:=''; i:=0; j:=0;
for i:=0 to memo2.lines.Count-1 do
begin
for j:=1 to length(memo2.Lines[i])do
begin
temp:=temp+chr((ord(memo2.lines[i][j])-strtoint(edit1.Text))mod 255);
end;
temp:=temp+#13+#10;
end;
memo2.text:=temp;
end; [/more]

Добавлено:
Ссылка
Ссылка на готовую программу.

Какой индекс в буквы "я"? И какой получается после расшифровки?

wakara
если записывать управляющие симиолы (с кодами < 32, пробела т.е) в визуальный контрол (memo), то потом будут проблемы при чтении. если так уж хочется работать с текстом прям из контрола, то нужно такие символы дополнительно сдвигать и потом восстанавливать:

Код:
procedure TForm1.Button2Click(Sender: TObject);
var temp:string; i,j:integer;
c: byte;
begin
temp:=''; i:=0; j:=0;
for i:=0 to memo2.lines.Count-1 do
begin
for j:=1 to length(memo2.Lines[i])do
begin
c := ord(memo2.lines[i][j])-strtoint(edit1.Text);
if c < 32 then
c := c - 32;
temp:=temp+char(c );
end;
temp:=temp+#13+#10;
end;
memo2.text:=temp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var temp:string; i,j:integer;
var c: byte;
begin
temp:=''; i:=0; j:=0;
for i:=0 to memo1.lines.Count-1 do
begin
for j:=1 to length(memo1.Lines[i]) do
begin
c := (ord(memo1.lines[i][j])+strtoint(edit1.Text));
if c < 32 then
c := c + 32;
temp:=temp+char(c);
end;
temp:=temp+#13+#10;
end;
memo2.text:=temp;
end;

A_V, благодарю.

Программа мною уже написана. Можете скачать ее на моем сайте програм.рф