Ich muss mal diesen gut abgehangenen Thread ausgraben, auf den ich durch Google gestoßen bin. Ich habe gerade exakt das gleiche Problem, dass jeder Aufruf von d2i_x509 zu einem kleinen Speicherleck führt. Ziel bei mir ist es letztlich, ein in einem JSON Web Key angegebenes Zertifikat auszulesen und dann später im PEM-Format weiterzunutzen.
Kleiner Code-Auszug aus einem Testprogramm:
Delphi-Quellcode:
procedure TForm2.ButtonDecodeClick(Sender: TObject);
var
byteArray: TBytes;
pr: PX509;
pubKey: string;
bio: PBIO;
begin
byteArray:=TNetEncoding.Base64.DecodeStringToBytes(MemoKey.Lines.Text);
MemoStatus.Lines.Add('base decoded. Length: '+length(byteArray).ToString);
if IdSSLOpenSSLHeaders.Load then begin
MemoStatus.Lines.Add('openssl loaded.');
pr:=d2i_X509(nil,@@byteArray[0],length(byteArray));
if pr<>nil then begin
MemoStatus.Lines.Add('X509 read.');
MemoStatus.Lines.Add('Name: '+X509_NAME_oneline(X509_get_subject_name(pr),nil,0));
MemoStatus.Lines.Add('Public Key Length: '+pr.cert_info.key.public_key.length.ToString);
MemoStatus.Lines.Add('Issuer name: '+X509_NAME_oneline(X509_get_issuer_name(pr),nil,0));
bio:=BIO_new(BIO_s_mem);
PEM_write_bio_X509(bio,pr);
BIO_read(bio,byteArray,BIo.num_write);
pubKey:=string(PAnsiChar(@byteArray[0]));
MemoPEM.Lines.Text:=pubKey;
SetLength(bytePubKey,0);
BIO_free(bio);
X509_free(pr);
end else
MemoStatus.Lines.Add('Failed read X509.');
SetLength(byteArray,0);
end;
end;
Wie ihr seht, passiert hier noch etwas mehr (nämlich die Umwandlung in einen String im PEM-Format - falls jemand weiß, ob das einfacher geht, gerne her damit). Ich bin erstmal froh, dass am Ende das erhoffte Ergebnis rauskommt.
Aber ich habe nun auch immer das Speicherleck. Ich kann den ganzen Code reduzieren zu
Delphi-Quellcode:
procedure TForm2.ButtonDecodeClick(Sender: TObject);
var
byteArray, p: TBytes;
pr: PX509;
bytePubKey: TBytes;
pubKey: string;
bio: PBIO;
begin
byteArray:=TNetEncoding.Base64.DecodeStringToBytes(MemoKey.Lines.Text);
MemoStatus.Lines.Add('base decoded. Length: '+length(byteArray).ToString);
if IdSSLOpenSSLHeaders.Load then begin
MemoStatus.Lines.Add('openssl loaded.');
pr:=d2i_X509(nil,@@byteArray[0],length(byteArray));
if pr<>nil then
X509_free(pr);
else
MemoStatus.Lines.Add('Failed read X509.');
SetLength(byteArray,0);
end;
end;
...und bekomme immer noch ein Speicherleck angezeigt.
Irgendwer vielleicht mittlerweile eine Idee? @DeddyH, hast du das damals gelöst bekommen oder nimmst du das Leck seitdem resigniert in Kauf?