paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 08:30:28 +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
LoadGnuTLS;
Assert(GnuTLSLoaded);
key:=nil;
try
try
TLSCheckRet(gnutls_x509_privkey_init(@key));
priv_key_size := gnutls_sec_param_to_pk_bits(GNUTLS_PK_RSA,
GNUTLS_SEC_PARAM_HIGH);
SetLength(priv_key, Pred(priv_key_size));
TLSCheckRet(gnutls_x509_privkey_generate(key, GNUTLS_PK_RSA,
priv_key_size, 0));
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;
TLSCheckRet(gnutls_x509_privkey_init(@key));
priv_key_size := gnutls_sec_param_to_pk_bits(GNUTLS_PK_RSA,GNUTLS_SEC_PARAM_HIGH);
SetLength(priv_key, Pred(priv_key_size));
TLSCheckRet(gnutls_x509_privkey_generate(key, GNUTLS_PK_RSA, priv_key_size, 0));
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);
finally
if key<>Nil then
gnutls_x509_privkey_deinit(key);
FreeGnuTLS;
end;
end.