Решение для безопасного шифрования пар ключей в Delphi и PHP?

Я бы выбрал OpenSSL.
Кажется, PHP имеет много поддержки для этого, хотя я на самом деле не пробовал: например, руководство и пример здесь.

Delphi можно заставить хорошо работать с OpenSSL, немного поработав, используя вещи, о которых я упоминал много раз: http://www.disi.unige.it/person/FerranteM/delphiopenssl/. На этой странице тоже есть несколько хороших примеров. И взгляните на импорт Indy OpenSSL.

Не специфические компоненты, но определенно бесплатные, гибкие и с полными возможностями для стрельбы себе в ногу с точки зрения безопасности :-)

РЕДАКТИРОВАТЬ:

Для Delphi я бы подумал об использовании функций EVP_Seal *, и вы можете найти мою версию урезанного файла libeay32.pas в этом ответе SO . Вы это сделали, поскольку Indy не показывает и не реализует большую часть / какие-либо из фактических функций EVP_, поэтому вам нужно импортировать объявления функций и несколько других подпрограмм.

Для PHP эта ссылка кажется правильным аналогом.

В качестве бонуса это должно дать вам представление о том, как использовать материал EVP_Seal * (не проверенный):

function EVPSeal(ASource: TBytes; const APublicKey: PEVP_PKEY; out Key: TBytes; out IV: TBytes): TBytes; 
var
  cipher: PEVP_CIPHER;
  ctx: EVP_CIPHER_CTX;
  buf: TBytes;
  block_size, buf_start, out_len, keysize: integer;
  ek: array[0..0] of PByte;
  ekl: array[0..0] of integer;
  pubk: array[0..0] of PEVP_PKEY;
begin
  keysize := EVP_PKEY_size(APublicKey);
  cipher := EVP_aes_256_cbc;
  SetLength(IV, EVP_MAX_IV_LENGTH);
  SetLength(Key, keysize);
  ek[0] := @Key[0];
  pubk[0] := APublicKey;
  buf_start := 0;
  EVP_CIPHER_CTX_init(@ctx);
  try
    EVP_SealInit(@ctx, cipher, @ek[0], @ekl, @IV[0], @pubk[0], 1);
    block_size := EVP_CIPHER_CTX_block_size(@ctx);
    SetLength(buf, Length(ASource) + block_size);
    SetLength(Key, ekl[0]);
    EVP_SealUpdate(@ctx, @buf[buf_start], out_len, @ASource[0], Length(ASource));
    Inc(buf_start, out_len);
    EVP_SealFinal(@ctx, @buf[buf_start], out_len);
    Inc(buf_start, out_len);
    SetLength(buf, buf_start);
    result := buf;
  finally
    EVP_CIPHER_CTX_cleanup(@ctx);
  end;
end;

Ах, крипто. Есть поговорка о программисте, который знает, что криптовалюта намного опаснее, чем программист, который ничего не знает.

В очень похожем ключе я потратил некоторое время, пытаясь найти способ создания цифровых XML-подписей с использованием открытого исходного кода. Мне только удалось зайти так далеко, прежде чем я застегнулся и получил надежная сторонняя библиотека. Это недешево в чисто денежном смысле, но на данный момент это одно из моих лучших вложений.

(Правдивая история: я фактически вступил в небольшую войну с автором этой библиотеки, которую даже удалили из комментариев. Увы, в конечном итоге я купил у него. Подумайте.)