[Mouse]

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

Код:

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]

Код:

alpha:array [0..32] of byte;

for i:=byte('a') to byte('я') do alpha[i]:=ord(i);

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

Код:

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

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

Код:

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

[Mouse]

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

[PS11011010]

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

[Mouse]

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

Код:

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]

Код:

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

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

[Mouse]

Код:

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]

Код:

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. Считываешь строку из текстового поля

Код:

input:=Edit1.text;

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

Код:

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

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