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