VPF::LockBox 3 RSA - Форум программистов

morpheyushka

Дата 23.4.2012, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 3
Всего: 8

Добрый день. Столкнулся с проблемой RSA.

Сгенерировал ключи и сертефикаты по следующей схеме (именно так и нужно делать для связи со второй стороной):

openssl genrsa -out provider.ppk 1024

openssl req -new -key provider.ppk -out provider.req

openssl x509 -req -days 730 -in provider.req -signkey provider.ppk -out provider.cer

Пробую выполнить кодирование строки:

Код


procedure TDengiOnlineFrm.Button4Click(Sender: TObject);
var
  Signatory1: TSignatory;
  codecRSA: TCodec;
  CryptographicLibrary1: TCryptographicLibrary;
  ms: TStream;
  base64Ciphertext: ansistring;
begin
  Memo2.Text := '';

  codecRSA := TCodec.Create(nil);
  CryptographicLibrary1 := TCryptographicLibrary.Create(nil);
  Signatory1 := TSignatory.Create(nil);
  ms := TFileStream.Create(KEY_F_NAME, fmOpenRead);

  try
    CryptographicLibrary1.CustomCipher.ProgId := RSA_ProgId;
    codecRSA.CryptoLibrary := CryptographicLibrary1;
    codecRSA.StreamCipherId := RSA_ProgId;
    codecRSA.ChainModeId := RSA_ProgId;
    codecRSA.AsymetricKeySizeInBits := 1024;

    Signatory1.Codec := codecRSA;
    ms.Position := 0;
    Signatory1.LoadKeysFromStream(ms, [partPrivate]);
    codecRSA.EncryptString('AaaaaaA', base64Ciphertext);
    Memo1.Lines.Add(String(base64Ciphertext));
  finally
    ms.Free;
    codecRSA.Free;
    CryptographicLibrary1.Free;
    Signatory1.Free;
  end;
end;

На строчке codecRSA.EncryptString('AaaaaaA', base64Ciphertext); получаю ошибку TSimpleCodec.Begin_EncryptMemory - Wrong mode.

Что я делаю не так?

Delphi XE2
LockBox 3

--------------------

Спасибо делается вот так!!!