Ошибка в RSA кодиовании.

[Quetzal]

Здравствуйте!
Задание стандартное. Задаем p, q, e, d. и По формуле где шифруем.
Но у меня ошибка точно есть в расшифровке. А в шифровании я не уверена.
Помогите кто-нибудь, пожалуйста...

#include <iostream>
#include <locale.h>
#include <cmath>
#include <fstream>
#include <string>
using namespace std;
 
int main( )
{
	setlocale(LC_ALL, "russian");
	int q=19, p=13;
	int n, t, openExponent=0, ks=1, d=0;
	int A[100];
	char s;
	char B[100];
//	int code;
	cout<<"=============================="<<endl<<endl;
 
	cout<<"1. Выбираем два простых числа p = "<<p<<", q = "<<q<<endl;
	n = p * q;
	cout<<"2. Вычисляем модуль n = p * q = "<<p<<" * "<<q<<" = "<<n<<endl;
	cout<<"3. Введите открытый ключ e = ";
	cin>>openExponent;
        cout<<endl;
	cout<<"3. открытый ключ e = "<<openExponent<<endl;
	cout<<"4. Введите ключ расшифровки d = ";
	 cin>>d;
	cout<<"=============================="<<endl<<endl;
	
ifstream infile("file");
	
	if ( ! infile ) 
	{
		cerr << "Ошибка открытия входного файла.\n";
		return -1;
	}
	string word, newword;
	infile >> word;
	cout << word << ' ';
	t=word.size();
	cout<<t<<endl;
for (int i=0; i<t; i++){
		A[i]= int(word[i]);
		cout<<"ASCII код сточки текста "<<A[i];
		cout<<endl;
		for(int j=1; j<=openExponent; j++){
			ks=ks*A[i]%n;}
		s=char(ks);
		//cout<<"Зашифрованный символ "<<s<<endl;
		newword=newword+s;		
	}
	cout<<newword<<endl;
	string unkeyword;
	cout<<endl<<"=============================="<<endl;
	ks=1;
	for (int i=0; i<newword.size(); i++){
		A[i]= int(newword[i]);
		cout<<"ASCII код сточки текста "<<A[i];
		cout<<endl;
		for(int j=1; j<=d; j++){
			ks=ks*A[i]%n;}
		s=char(ks);
		//cout<<"Расшифрованный символ "<<s<<endl;
		unkeyword=unkeyword+s;		
	}
	cout<<unkeyword<<endl;
	system("pause");
	
        return 0;
		
}