[Mouse]

В общем согласно заданию необходимо, что бы в методе шифрования цезаря участвовали только символы "а...я", я очень долго пытался разобраться но ничего не выходит помогите плз.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.BZShClick(Sender: TObject); var   i:integer; begin   str1:=mzSh.Text;   MZZash.Text:='';   bl:=StrToInt(ESdv.Text);   for i:=1 to length(str1) do     mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 256 ); end;    procedure TForm1.BZPozShClick(Sender: TObject); var   i:integer; begin  //str1:=mzZash.Text;  //bl:=StrToInt(ESdv.Text);   MZPozsh.Text:='';   for i:=1 to length(str1) do     MZPozsh.Text:=MZPozsh.Text+chr( (ord(str1[i])+(224-32)) mod +224 ); end;

Админ: Пользуемся тегами для оформления кода!

[PS11011010]

Код:

1 2 3

alpha:array [0..32] of byte;   for i:=byte('a') to byte('я') do alpha[i]:=ord(i);

Вот тебе массив для шифра Цезаря.

Код:

1	position:=byte('буква')-224;

А вот это позиция буквы в массиве.
Для входной строки s процедура шифрования будет примерно следующая:

Код:

1 2	for i:=o to length(s)-1 do newS[i]:=byte(S[i]-221); //C учетом сдвига на 3 символа

[Mouse]

Не могли бы Вы объяснить, что именно необходимо отредактировать что бы все заработало?

[PS11011010]

В каком смысле отредактировать? И до какой степени заработало?

[Mouse]

Вот что я сделал, вероятнее всего это неправильно, подскажите как правильно отредактировать что бы все заработало?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.BZShClick(Sender: TObject); var   i:integer;   alpha:array [0..32] of byte; begin   str1:=mzSh.Text;   MZZash.Text:='';   bl:=StrToInt(ESdv.Text);   for i:=byte('a') to byte('я') do alpha[i]:=ord(i);     mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 224 ); end;   procedure TForm1.BZPozShClick(Sender: TObject); var   i:integer; begin   str1:=mzZash.Text;   bl:=StrToInt(ESdv.Text);   MZPozsh.Text:='';   for i:=1 to length(str1) do     MZPozsh.Text:=MZPozsh.Text+chr( (ord(str1[i])-(224)) mod 224); end;

[PS11011010]

Код:

1	mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 224 );

Объясни, пожалуйста, почему так все сложно, да еще и целочисленное деление по модулю.

[Mouse]

Код:

1 2 3 4 5 6 7 8 9 10

begin   S:=newS.Text;   for i:=0 to length(s)-1 do   newS[i]:=byte(S[i]-221);     //MZZash.Text:='';   //bl:=StrToInt(ESdv.Text);   //for i:=1 to length(str1) do     //mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 256 ); end;

lmikle: Пользуемся тегами!!!

Я к сожалению незнаю как исправить, по этому и прошу помоч.

[Mouse]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.BZShClick(Sender: TObject); var   i:integer;   s: string;   begin   newS.Text:='';   for i:=0 to length(s)-1 do   newS[i]:=byte(S[i]-221);   //str1:=mzSh.Text;   //MZZash.Text:='';   //bl:=StrToInt(ESdv.Text);   //for i:=1 to length(str1) do     //mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 256 ); end;

[angvelem]

Ну почему так не любим использовать поиск? Надеетесь, что ваша тема такая уж оригинальная? Тема обсуждалась не раз, имеюются готовые программы.

[Mouse]

Умею я юзать поиск, есть необходимость в редактировании именно этой версии...

[PS11011010]

Я, к сожалению, не совсем все понимаю в твоих кодах, поэтому накидаю общую схему действий.
1. Считываешь строку из текстового поля

Код:

1	input:=Edit1.text;

2. Создаем цикл для перестановки символов каждой строки (насколько я заметил, у тебя не совсем шифр Цезаря, т.е. число позиций сдвига регулируется. Будем хранить это значение в переменной dx)

Код:

1 2	for i:=0 to length(input)-1 do  output[i]:=ord(byte(input[i])-224+dx);

3. Выводим результат.