paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 18:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Soem simplification and reformatting

Browse Source 
git-svn-id: trunk@40814 -
This commit is contained in:
michael 2019-01-09 10:22:28 +00:00
parent e14c231d60
commit fdff42dd9e
1 changed files with 10 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/gnutls/examples/privkey.pp
View File

@ -33,24 +33,18 @@ var
begin begin
LoadGnuTLS; LoadGnuTLS;
Assert(GnuTLSLoaded); Assert(GnuTLSLoaded);
key:=nil;
try try
try TLSCheckRet(gnutls_x509_privkey_init(@key));
TLSCheckRet(gnutls_x509_privkey_init(@key)); priv_key_size := gnutls_sec_param_to_pk_bits(GNUTLS_PK_RSA,GNUTLS_SEC_PARAM_HIGH);
priv_key_size := gnutls_sec_param_to_pk_bits(GNUTLS_PK_RSA, SetLength(priv_key, Pred(priv_key_size));
GNUTLS_SEC_PARAM_HIGH); TLSCheckRet(gnutls_x509_privkey_generate(key, GNUTLS_PK_RSA, priv_key_size, 0));
SetLength(priv_key, Pred(priv_key_size)); TLSCheckRet(gnutls_x509_privkey_export(key, GNUTLS_X509_FMT_PEM, @priv_key[1], @priv_key_size));
TLSCheckRet(gnutls_x509_privkey_generate(key, GNUTLS_PK_RSA, SetLength(priv_key, Pred(priv_key_size));
priv_key_size, 0)); WriteLn(priv_key);
TLSCheckRet(gnutls_x509_privkey_export(key, GNUTLS_X509_FMT_PEM,
@priv_key[1], @priv_key_size));
SetLength(priv_key, Pred(priv_key_size));
WriteLn(priv_key);
except
gnutls_x509_privkey_deinit(key);
raise;
end;
finally finally
if key<>Nil then
gnutls_x509_privkey_deinit(key);
FreeGnuTLS; FreeGnuTLS;
end; end;
end. end.