Шифровка по квадрату Виженера

[Риндера]

Приветс. Пишу прогу, которая среди прочего шифрует текст по квадрату Виженера.

Проблема в том, что код работает вроде бы правильно, но результат получается кривой.

procedure TMain.Vijener(input,output:TMemo;key:string;encode:boolean);
  var
    i,lit,lenABC,lenkey: integer; 	// i - счетчик; lit - текущий обрабатываемый символ в input; 
					//Длина алфавита (стороны квадрата Виженера) и длина ключа, чтоб не вычислять их каждый раз 
    Ru,En,ABC: string;			// Строчки из которых собирается алфавит
    bukva:string;			// Итоговая буква, которая идет в output на каждой итерации
    p,k,c:integer;// Для облегчения читаемости формулы
                  // c = (p + k) mod 26
                  // p = (c - k + 26) mod 26
begin
  output.Clear;				// Очищаю выходной мемо
  ProgressBar1.Position:=0;		
  lit:=0;						
  Ru:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ';
  En:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  ABC:='';
  // Убираю пробелы из ключа
  while Pos(' ',key)>0 do Delete(key,Pos(' ',key),1);
  // Привожу ключ к формату алфавита
  key:=AnsiUpperCase(key);		
  // Создаю алфавит для таблицы, значения берутся из настроек программы
  if OptionsForm.VijenerEn.Checked then ABC:=ABC+En;
  if OptionsForm.VijenerRu.Checked then ABC:=ABC+Ru;
  lenABC:=Length(ABC);
  lenkey:=Length(key);

  // Кодирую
  repeat
    if Cancel=true then break; 		// Если нажата кнопка отмены
    for i:=1 to lenkey do		// Для имитации "цикличной записи" ключа
      begin
        inc(lit);				
        if lit>Length(input.Text) then break; 			// Чтоб не было лишних букв в конце
        if Pos(AnsiUpperCase(input.Text[lit]),ABC)=0 then 	// Если символ не буква, пропускаем
          begin
            output.Text:=output.Text+input.Text[lit];
            continue;
          end;

        if encode then  	// Шифровать
          begin
            p:=Pos(AnsiUpperCase(input.Text[lit]),ABC);		
            k:=Pos(key[i],ABC);
            c:=(p+k) mod lenABC;
            bukva:=ABC[c];
          end
        else       		// Расшифровывать
          begin
            c:=Pos(AnsiUpperCase(input.Text[lit]),ABC);
            k:=Pos(key[i],ABC);
            p:=(c-k+lenABC) mod lenABC;
            bukva:=ABC[p];
          end;
        if not (AnsiUpperCase(input.Text[lit])=input.Text[lit]) then	// Чтоб все буквы не были капсом, привожу к регистру оригинала
          bukva:=AnsiLowerCase(bukva);
        output.Text:=output.Text+bukva;					// Записываю букву в output мемо
      end;

    // Косметика
    if (lit mod 10 = 0) or (lit>=Length(input.Text)) then		// Чтоб выходной мемо не мигал слишком сильно от постоянного обновления
      begin
        Application.ProcessMessages;
        ProgressBar1.Position:=Round(100*lit/(Length(input.Text)+0.001)); // +0.001 чтоб не крашилась при пустом входном поле
        SendMessage(output.Handle,EM_LINESCROLL,0,output.Lines.Count);	
      end;
  until lit>=Length(input.Text);

end;

Результат работы при ключе Unicorn и только английском алфавите вот: http://i.imgur.com/z0Thsgp.jpg

Как видно, после определенного момента всё просто крашится.

Объясните кто-нибудь, что я делаю не так =)

[Аватар]

Не вникал, но визуально косяк вижу

            c:=(p+k) mod lenABC;
            bukva:=ABC[c];

Чего будет, когда с=0? Аналогично и ниже по коду

[Вадим Мошев]

Кстати, онлайн (де)шифратор шифра вижнера http://planetcalc.ru/2468/?language_select=ru

Для проверки, если что.

[Риндера]

Да, при с=0 получается не хорошо.
Я думаю вообще вся проблема в том, что формулы для букв, пронумерованных от 0 до 25, а в делфи строка нумеруется с единицы.
Попробую завтра переписать так, чтоб ABC был массивом, а не строкой, сегодня устала уже от этого Виженера.
А еще надо наверное поубирать нафиг возможность выбирать язык и делать сразу на оба, действительно, зачем оно ваще нужно.

[Риндера]

Утро вечера мудренее, как говорится. Вот так работает на ура:

p:=Pos(AnsiUpperCase(input.Text[lit]),ABC)-1; 	// Добавила -1
k:=Pos(key[i],ABC)-1;				// Добавила -1
c:=(p+k) mod lenABC;
bukva:=ABC[c+1];				// Добавила +1

С калькулятором, кстати, не совпадает.
Хотя я знаю почему.

[Вадим Мошев]

Вероятнее всего, алфавиты записаны в разных порядках.
Например, когда я писал шифровку Виженера (на заказ) я использовал непосредственно сам квадрат Виженера, никаких вычислений не выполнял. С русским алфавитом всё шло нормально и совпадало с калькулятором, но когда добавил английский, результаты совпадать перестали, хотя в моей программе дешифровка работала как положено.

Я эту тему закрываю. Если появится вопрос, создайте новую.