Проблемы с шифрованием FGIntRSA на Delphi

[МелкоКодер]

Здравствуйте!
При шифровании и расшифровке текста алгоритмом RSA, реализованном в библиотеке FGIntRSA, возникла проблема.
Суть проблемы: текст не расшифровывается вообще.
Так как текст после зашифровывания имеет не читаемые символы, то весь результат я решил для надежности записать в бинарный файл, а перед расшифровкой загрузить из этого файла. Написал две процедуры, ошибок и ворнингов нет. В сам файл информация записалась. Пытаюсь расшифровать зашифрованный текст, и тут засада... Текст не расшифровывается.

Где и какую я ошибку допустил? Помогите пожалуйста исправить, привожу текст…

var
  tmp1,tmp2 : string; // глобальные переменные

…

procedure TForm1.CryptClick(Sender: TObject);
var
  e,n: TFGInt;
  i: integer;
  FS : TFileStream;
begin
  tmp1:=Memo1.Lines.Text;
  Base10StringToFGInt('10001', e);
  Base10StringToFGInt('135330880848120103668242617317652716361', n);
  // шифруем данные
  FGIntRSA.RSAEncrypt(tmp1, e, n, tmp2);
  // создаем файл
  FS:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'test.bin', fmCreate);
  // запись данных в файл
  FS.Position:=0;
  for i:=1 to length(tmp2)
    do begin
      FS.Write(tmp2[i],1); // запишем всё по 1 байту
    end;
  FS.Free;
  tmp1:='';
  tmp2:='';
end;

procedure TForm1.DecryptClick(Sender: TObject);
var
  d,n,nilgInt: TFGInt;
  i: integer;
  FS : TFileStream;
begin
  // открываем файл
  FS:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'test.bin', fmOpenRead);
  // чтение данных из файла с начала
  FS.Position:=0;
  for i:=1 to length(tmp1)
    do begin
      FS.Read(tmp1[i],1); // считаем всё по 1 байту
    end;
  FS.Free;
  Base10StringToFGInt('122123435986369089974213401515150188949', d);
  Base10StringToFGInt('135330880848120103668242617317652716361', n);
  // расшифровка данных
  FGIntRSA.RSADecrypt(tmp1, d, n, Nilgint, Nilgint, Nilgint, Nilgint, tmp2);
  Memo1.Lines.Text:=tmp2; // выведем результат в Мемо
  tmp1:='';
  tmp2:='';
end;

[BDA]

Почему у Вас различаются строки?

Base10StringToFGInt('10001', e);
Base10StringToFGInt('135330880848120103668242617317652716361', n);
...
Base10StringToFGInt('122123435986369089974213401515150188949', d);
Base10StringToFGInt('135330880848120103668242617317652716361', n);

[МелкоКодер]

Сообщение от BDA

Почему у Вас различаются строки?

Base10StringToFGInt('10001', e);
Base10StringToFGInt('135330880848120103668242617317652716361', n);
...
Base10StringToFGInt('122123435986369089974213401515150188949', d);
Base10StringToFGInt('135330880848120103668242617317652716361', n);

при шифровке нужны открытые ключи е и n, а при дешифрации нужен открытый n и закрытый ключ d. Кстати, сгенерированы при помощи утилиты RSATools2, скопировал с утилиты значения правильно...

[BDA]

procedure TForm1.Button3Click(Sender: TObject);
var
  e, n: TFGInt;
  d, nilgInt: TFGInt;
  tmp: string;
begin
  tmp := Memo1.Lines.Text;
  Base10StringToFGInt('3', e);
  Base10StringToFGInt('9173503', n);
  Base10StringToFGInt('6111579', d);
  FGIntRSA.RSAEncrypt(tmp, e, n, tmp);
  FGIntRSA.RSADecrypt(tmp, d, n, nilgInt, nilgInt, nilgInt, nilgInt, tmp);
  Memo1.Lines.Text := tmp;
end;

Срабатывает верно, вроде.

[МелкоКодер]

Сообщение от BDA

procedure TForm1.Button3Click(Sender: TObject);
var
  e, n: TFGInt;
  d, nilgInt: TFGInt;
  tmp: string;
begin
  tmp := Memo1.Lines.Text;
  Base10StringToFGInt('3', e);
  Base10StringToFGInt('9173503', n);
  Base10StringToFGInt('6111579', d);
  FGIntRSA.RSAEncrypt(tmp, e, n, tmp);
  FGIntRSA.RSADecrypt(tmp, d, n, nilgInt, nilgInt, nilgInt, nilgInt, tmp);
  Memo1.Lines.Text := tmp;
end;

Срабатывает верно, вроде.

Спасибо )) Работает. Проверил со значениями из утилиты, тоже получилось. Кстати, в утилите поле e лучше поменять...