Шифр Гронсфельда (!)

[guzel20]

Пожалуйста, помогите! Очень срочно
Написать программу на С++, осуществляющую шифрование и дешифрование каких-либо данных. Тип шифрования – шифр Гронсфельда.
Если кому-то поможет, то есть код на Паскале:

program Kriptograf; 

function Shifr ( Kod, K : string ): string; 
	var i,t,d : integer; 
	begin 
		for i :=1 to length (Kod) do begin 
			d :=ord (Kod[i]); 
			t := (ord(Kod[i]) + (ord (K [(pred(i) mod length(K)) + 1]) - ord('0')));
			if t >= 256 then 
				dec (T,256); 
			Kod[i]:= Chr(t); 
		end; 
		Shifr := Kod; 
	end;

var a,k,s: string;

Begin

	writeln('vvedite slovo'); 
	readln(a); 
	writeln('vvedite klu4'); 
	readln(k); 
	s:= Shifr(a,k); 
	writeln('s= ', Shifr (a, k)); 
	readln; 
End.

//расшифровывающая 
program Kriptograf;

function DeShifr (DeKod,K:string):string; 
	var i,t:integer; 
	begin 
		for i:=1 to length(DeKod) do begin 
			t:=(Ord(DeKod[i])-(ord(K[(pred(i) mod length(K))+1])-ord('0')));
			if t<0 then 
				Inc(t,256); 
			DeKod[i]:=Chr(t); 
		end; 
		DeShifr:=DeKod; 
	end;

var a,k,s:string;

Begin 
	writeln('vvedite zashifrovannui text'); 
	readln(a); 
	writeln('vvedite klu4'); 
	readln(k); 
	s:= DeShifr(a ,k );
	writeln('s= ', DeShifr (a,k)); 
	readln; 
End.

[Abstraction]

В C++ ключ лучше сразу принимать как массив чисел. Не очень понятно, откуда у Вас 256 - если использовать всю таблицу символов, на выходе можно получить строку, содержащую управляющие символы. Лучше так:

const char* alphabet = "АБВГД...ЭЮЯ";
const int NUM_LETTERS = 33;
//...
  int symCode;
  for(symCode=0; symCode<NUM_LETTERS; ++symCode)
    if(alphabet[symCode]==plaintext[i]) break;
  cyphertext[i] = alphabet[(symCode+key[i%keyLength])%NUM_LETTERS];

Расшифрование аналогично, только плюс меняется на минус.

[guzel20]

Не совсем понятно, что за переменные: plaintext, cyphertext и key.
И чему они равны в начале.

[Abstraction]

Не совсем понятно, что за переменные: plaintext, cyphertext и key.

plaintext - открытый текст, состоящий из символов алфавита;
cyphertext - шифртекст;
key - ключ (массив целых чисел); keyLength - его длина.