online - Uso de certificado y clave privada de Windows cert store con OpenSSL

ssl certificate online generator

Question

Estoy tratando de crear un programa que use algunos servicios web en Delphi XE. Para conectarme a los servicios web, tengo que usar un certificado autofirmado, que se almacena en la tienda de certificados de Windows. Abrí la tienda de certificados con CertOpenSystemStore, obtuve el CertFindCertificateInStore con CertFindCertificateInStore y lo configuré con SSL_CTX_use_certificate . No hay problema con esto Luego obtengo el blob de clave pública con CryptExportKey y CryptExportKey una clave privada como esta:

function PrivKeyBlob2RSA(const AKeyBlob: PByte; const ALength: Integer; const ASSLCtx: PSSL_CTX): IdSSLOpenSSLHeaders.PEVP_PKEY;
var
  modulus: PByte;
  bh: PBLOBHEADER;
  rp: PRSAPUBKEY;
  rsa_modlen: DWORD;
  rsa_modulus: PAnsiChar;
  rkey: PRSA;
begin
  bh := PBLOBHEADER(AKeyBlob);
  Assert(bh^.bType = PUBLICKEYBLOB);
  rp := PRSAPUBKEY(AKeyBlob + 8);
  Assert(rp.magic = $31415352);
  rsa_modulus := PAnsiChar(Integer(Pointer(rp))+12);
  rkey := RSA_new_method(ASSLCtx.client_cert_engine);
  rkey^.References := 1;
  rkey^.e := BN_new;
  rkey^.n := BN_new;
  BN_set_word(rkey^.e, rp^.pubexp);
  rsa_modlen := (rp^.bitlen div 8) + 1;
  modulus := AllocMem(rsa_modlen);
  CopyMemory(modulus, rsa_modulus, rsa_modlen);
  RevBuffer(modulus, rsa_modlen);
  BN_bin2bn(modulus, rsa_modlen, rkey^.n);
  Result := EVP_PKEY_new;
  EVP_PKEY_assign_RSA(Result, PAnsiChar(rkey));
end;

Luego lo configuré con SSL_CTX_use_PrivateKey y SSL_CTX_check_private_key - sin problema hasta el momento. Pero cuando comienza la transferencia de datos, aparece una infracción de acceso en libeay32.dll. Si cargo la clave desde el archivo .pem, todo está bien. No puedo ver lo que estoy haciendo mal, por favor ayuda :)

Aquí está el mensaje de error exacto:

Infracción de acceso en la dirección 09881C5F en el módulo ''libeay32.dll''. Lectura de la dirección 00000000.

La versión libeay32.dll es 1.0.0.5. Intenté con la versión 0.9.algo también: recibí el mismo error, solo una dirección diferente.

A continuación se muestra la estructura de RSA que obtengo en PrivKeyBlob2RSA :

pad    0
version  0
meth       $898030C
engine     nil
n      $A62D508
e      $A62D4D8
d      nil
p      nil
q      nil
dmp1       nil
dmq1       nil
iqmp       nil
ex_data (nil, -1163005939 {$BAADF00D})
references  1
flags      6
_method_mod_n   nil
_method_mod_p   nil
_method_mod_q   nil
bignum_data nil {#0}
blinding    nil
mt_blinding nil

Verifiqué los n y e bignums, y están CORRECTOS, y todo lo demás se ve bien. Y sí, el error ocurre cuando se llama a la función ssl_read .

Answer 1

Me parece que las razones más razonables por las que obtendría estos errores incluyen:

1. Versión incorrecta de dlls de OpenSSL (libeay32 ssleay.dll) o error al declarar contenedores de SSL (en este caso, es posible que necesite una actualización de Indy versión 10).

2. Después de haber liberado el bloque de memoria que está pasando a la DLL, según el comentario de Ken.

3. Algún error sutil de desreferenciación del puntero en el código que publicaste. Una llamada a CopyMemory podría perder un nivel de indirección de puntero a través de "PointerVariableName ^" en lugar de solo "PointerVariableName". Lea sobre "parámetros var no tipados y punteros en pascal" si no está seguro.