2026-02-26 20:50 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

  * contrib/hbssl/evppkey.c
  * contrib/hbssl/hbssl.hbx
    + added new PRG function
         EVP_PKEY_get_encoded_public_key( <pKey> ) -> <cPubKeyData>

Author: druzus

ChangeLog.txt

@@ -7,6 +7,12 @@
    Entries may not always be in chronological/commit order.
    See license at the end of file. */
 
+2026-02-26 20:50 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * contrib/hbssl/evppkey.c
+  * contrib/hbssl/hbssl.hbx
+    + added new PRG function
+         EVP_PKEY_get_encoded_public_key( <pKey> ) -> <cPubKeyData>
+
 2026-02-16 23:30 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * contrib/gtqtc/gtqtc.hbp
     ! give HB_WITH_QT higher priority then the general setting

contrib/hbssl/evppkey.c

@@ -210,6 +210,31 @@ HB_FUNC( EVP_PKEY_BITS )
       hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
 }
 
+HB_FUNC( EVP_PKEY_GET_ENCODED_PUBLIC_KEY )
+{
+   if( hb_EVP_PKEY_is( 1 ) )
+   {
+      EVP_PKEY * pkey = hb_EVP_PKEY_par( 1 );
+
+      if( pkey )
+      {
+         unsigned char * pubkey_val;
+         size_t pubkey_len;
+
+         pubkey_len = EVP_PKEY_get1_encoded_public_key( pkey, &pubkey_val );
+         if( pubkey_len != 0 )
+         {
+            hb_retclen( ( char * ) pubkey_val, pubkey_len );
+            OPENSSL_free( pubkey_val );
+         }
+         else
+            hb_retc_null();
+      }
+   }
+   else
+      hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
 HB_FUNC( EVP_PKEY_ASSIGN )
 {
    if( hb_EVP_PKEY_is( 1 ) )

contrib/hbssl/hbssl.hbx

@@ -182,6 +182,7 @@ DYNAMIC EVP_PKEY_decrypt_init
 DYNAMIC EVP_PKEY_encrypt
 DYNAMIC EVP_PKEY_encrypt_init
 DYNAMIC EVP_PKEY_free
+DYNAMIC EVP_PKEY_get_encoded_public_key
 DYNAMIC EVP_PKEY_new
 DYNAMIC EVP_PKEY_sign
 DYNAMIC EVP_PKEY_sign_init