paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better creation of self-signed certificates. Patch by Anton (@odisey1245). Fixes issue

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-03 21:38:12 +01:00
parent a009cc5c35
commit fb9bcac2d3
2 changed files with 3 additions and 3 deletions
packages
fcl-net/src
sslbase.pp
openssl/src
fpopenssl.pp

2
packages/fcl-net/src/sslbase.pp
View File

@ -220,7 +220,7 @@ function TX509Certificate.GetKeySize: Integer;
begin
Result:=FKeySize;
if Result=0 then
Result:=1024;
Result:=2048;
end;
function TX509Certificate.GetValidFrom: TDateTime;

4
packages/openssl/src/fpopenssl.pp
View File

@ -244,9 +244,9 @@ var
begin
Utc:=Asn1UtctimeNew;
try
ASN1UtcTimeSetString(Utc,PAnsiChar(FormatDateTime('YYMMDDHHNNSS',ValidFrom)));
ASN1UtcTimeSetString(Utc,PAnsiChar(FormatDateTime('YYMMDDHHNNSS"Z"',ValidFrom)));
X509SetNotBefore(x, Utc);
ASN1UtcTimeSetString(Utc,PAnsiChar(FormatDateTime('YYMMDDHHNNSS',ValidTo)));
ASN1UtcTimeSetString(Utc,PAnsiChar(FormatDateTime('YYMMDDHHNNSS"Z"',ValidTo)));
X509SetNotAfter(x,Utc);
finally
Asn1UtctimeFree(Utc);