0
在调用实现了墨西哥电子账单的DLL的应用程序中，错误OPENSSL_UPLINK OPENSSL_APPLINK终止进程（崩溃）。Openssl_Uplink no Openssl_Applink
当您调试DLL时，我看到错误是当我加载CER文件。和.KEY
以下是我的主码。
function TFacturacion.Validar_Certificado : boolean;
var
Certificado : TCertificado;
begin
Certificado := TCertificado.Create;
try
begin
Certificado.LoadFromFile(DmDatos.IBDs_SistemaCERTFNAME.AsString);
case TipoCertificado(Certificado.Base64) of
tcDESCONOCIDO : begin
FRespuestaCFD := 'Certificado Desconocido o de Pruebas';
Result := False;
end;
tcFIEL : begin
FRespuestaCFD := 'Certificado FIEL';
Result := False;
end;
tcCSD : begin
Result := True;
end;
end; // Fin Case
end; // Fin Begin protegido(TRY)
Except
Result := False;
FRespuestaCFD := 'Error en Certificado....No se pudo localizar el Archivo .CER';
end;
if Result = False then
begin
Certificado.Free;
Certificado := NIl;
Exit;
end;
CertificadoB64 := Certificado.Base64;
Certificado.Free;
Certificado := Nil;
end;
function TFacturacion.Validar_Llave : Boolean;
var Llave : TLlavePrivada;
begin
Result := False;
Llave := TLlavePrivada.Create;
if Llave.DER_LoadFromFile(DmDatos.IBDs_SistemaKEYFNAME.AsString, DmDatos.IBDs_SistemaCLAVEPRIVADA.AsString) then
begin
FLlaveB64 := Llave.Base64;
Result := True;
end
else
begin
FRespuestaCFD := 'Error al abrir la Llave, es posible que la clave no sea la correcta';
end;
Llave.Free;
Llave := Nil;
end;
以下是我其中函数被编码
procedure TX509Certificate.LoadFromFile(FileName: string);
begin
LoadFromFile(Filename, auto);
end;
procedure TX509Certificate.LoadFromFile(FileName: string; Encoding: TEncoding);
var
certfile: pBIO;
p12: pPKCS12;
a: pEVP_PKEY;
c: pX509;
ca: pSTACK_OFX509;
begin
c := nil;
if not(Encoding in [auto, DER, PEM, NETSCAPE, PKCS12]) then
raise EOpenSSL.Create('Bad certificate encoding.');
if not FileExists(FileName) then
raise EOpenSSL.Create('Certificate file not found ('+FileName+')');
certfile := BIO_new(BIO_s_file());
if certfile = nil then
raise EOpenSSL.Create('Error creating BIO.');
BIO_read_filename(certfile, ToChar(FileName));
if (Encoding = auto) or (encoding = DER) then
begin
fCertificate := d2i_X509_bio(certfile, nil);
if (Encoding = auto) and (fCertificate = nil) then
BIO_reset(certfile);
end;
if ((Encoding = auto) and (fCertificate = nil)) or (encoding = NETSCAPE) then
begin
// See apps.c
end;
if ((Encoding = auto) and (fCertificate = nil)) or (encoding = PEM) then
begin
fCertificate := PEM_read_bio_X509_AUX(certfile, c, nil, nil);
if (Encoding = auto) and (fCertificate = nil) then
BIO_reset(certfile);
end;
if ((Encoding = auto) and (fCertificate = nil)) or (encoding = PKCS12) then
begin
p12 := d2i_PKCS12_bio(certfile, nil);
PKCS12_parse(p12, nil, a, c, ca);
fCertificate := c;
PKCS12_free(p12);
p12 := nil;
end;
BIO_free(certfile);
if fCertificate = nil then
raise EOpenSSL.Create('Unable to read certificate from file ' + FileName + '.');
end;
function TPKCS8.DER_LoadFromFile(DERFname, PrivateKey: string) : boolean;
var
bioDER : pBIO;
p8 : pX509_SIG;
p8inf : pPKCS8_Priv_Key_Info;
begin
//OpenSSL pkcs8 -inform DER -in DERFName -passin pass:PrivateKey
Result := false;
bioDER := nil; p8 := nil;
if FileExists(DERFname) then
try
bioDER := BIO_new(BIO_s_file());
BIO_read_filename(bioDER,ToChar(DERFName));
p8 := d2i_PKCS8_bio(bioDER,nil);
if p8 = nil then exit; //El archivo no es un .key bien formado
//------HERE CRASH-----------------------------------------------
p8inf := PKCS8_decrypt(p8,ToChar(PrivateKey),length(PrivateKey));
//-------------------------------------------------------------
if p8inf = nil then exit; //No es la clave de llave privada correcta
fLlave := EVP_PKCS82PKEY(p8inf);
Result := true;
finally
X509_SIG_free(p8);
BIO_free(bioDER);
EVP_cleanup;
end;
end;
在该单元的代码。 KEY和它的私钥是正确的，这是我在调试中检查的第一件事。
最奇怪的是，我有2个文件夹，其中应用程序正在生产和其他测试。并且只在测试文件夹中工作不正常。
应用程序应该在Citrix下运行。
开发计算机的一切完美的作品上，错误是在执行和测试文件夹，
Citrix服务器是赢服务器提前2003
感谢，如果有人可以帮我找到这个错误
由于Citrix有时会根据未知规则工作，因此我建议您验证这些文件夹的属性以及该过程的应用程序权限。 – RBA