Расшифруйте и ответьте на вопрос для ключа КРЭС

[Dj_Tiger]

Буквы алфавита нумеруются числами от 0 до 32.
При шифровании ключевое слово подписывается под сообщением с повторениями,например,
сообщение - в связи с создавшимся...
ключ - з апись з аписьзапись...

Каждая буква сдвигается в доль алфавита по следующему правилу:
буква с номером m , под которой стоит буква ключевого слова с номером k , заменяется на букву
с номером l: если k+m<33 , то l=k+m,
если k+m>=33 , то l=k+m-33.

Расшифруйте и ответьте на вопрос для ключа КРЭС:

ВГЛДКЫЛЦХЯЙБУЬЬДЩБ

[Serge_Bliznykov]

>"Буквы алфавита нумеруются числами от 0 до 32."
Точно от нуля до 32?

и ещё - проверьте ПОБУКВЕННО - кодовое слово и шифровку.
Я написал программу дешифровки, но она какой-то бред выдаёт... ;-(
то ли я ошибся, то ли Вы...

[Dj_Tiger]

Именно от 0 до 32!!!
Да, задание я написал правильно!!!Ключ КРЭС::
ВГЛДКЫЛЦХЯЙБУЬЬДЩБ!
Т.Е Должно быть так:
ВГЛДКЫЛЦХЯЙБУЬЬДЩБ
КРЭСКРЭСКРЭСКРЭСКР

А мне ещё оказывается и зашифровать текст нужно по этому методу!!!!

[Serge_Bliznykov]

блин, от нуля до 32! Значит 33 буквы! Значит Ё тоже входит. а я про неё забыл... ;-(

У Вас зашифрована фраза:
ЧТОТАКОЕКОМПИЛЯТОР


вот код для дешифрации:
(те куски, что для отладки - можно просто выкинуть - это я баловался ;-):

CONST
  Russ = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var
  s, keypass, r : string;
  i, j, k : integer;

begin
  keypass := 'КРЭС';
  s := 'ВГЛДКЫЛЦХЯЙБУЬЬДЩБ';

  {для ОТЛАДКИ!!!!!!!!!!!!!!
   выведем строчку исходного текста, а под ней - коды символов
    под ними строка шифра под ней - коды символов шифра}
  WriteLn;
  for i:=1 to Length(s) do begin
    Write(' ',s[i],' ');
  end;
  WriteLn;
  for i:=1 to Length(s) do begin
    Write((Pos(s[i],Russ)-1):2,' ');
  end;
  WriteLn;
  j := 1;
  for i:=1 to Length(s) do begin
    Write(' ',keypass[j],' ');
    inc(j);
    if j>Length(keypass) then j:=1;
  end;
  WriteLn;
  j := 1;
  for i:=1 to Length(s) do begin
    Write((Pos(keypass[j],Russ)-1):2,' ');
    inc(j);
    if j>Length(keypass) then j:=1;
  end;
  WriteLn;
  {конец кода ДЛЯ ОТЛАДКИ!}


  j := 1;
  r := '';
  for i:=1 to Length(s) do
  begin
     k := (Pos(s[i],Russ)-1) - (Pos(keypass[j],Russ)-1) ;
     if k<0 then k := k+33;
     r := r + Copy(Russ,k+1,1);
     inc(j);
     if j>Length(keypass) then j:=1;
  end;
  WriteLn(r);
end.

[Serge_Bliznykov]

для зашифроки поменяйте знак минус на плюс:

  
     k := Pos(s[i],Russ) + Pos(keypass[j],Russ) ;

[Dj_Tiger]

Спасибо тебе ОГРОМНОЕ!!!!!!!!!ВЫручил!!!!!!!!

[Dj_Tiger]

Привет, извини, что спрашиваю, но вот с зашифровкой вроде что-то не то!!!Какую-то чушь выдаёт!!!Я так понимаю должно тоже самое выдавать: ВГЛДКЫЛЦХЯЙБУЬЬДЩБ, а он не то!!!Скажи ещё, пожалуйста, что за процедура inc(j)? и вкратце можешь объяснить, что ты тут как бы делаешь?!!Извини, за беспокойство!!!!

[Dj_Tiger]

И не знаешь, как сделать, чтобы при нажатиие одной клавиши, текст зашифровывался, а при нажатии другой расшифровывался?Ещё раз извини, просто я тупак в этом!!!