diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0562fbe21f..77f0b1319c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,17 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-07-21 01:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbssl/sslctx.c
+  * contrib/hbssl/ssl.c
+    + Added:
+      SSL_CTX_USE_RSAPRIVATEKEY_ASN1()
+      SSL_CTX_USE_PRIVATEKEY_ASN1()
+      SSL_CTX_USE_CERTIFICATE_ASN1()
+      SSL_USE_RSAPRIVATEKEY_ASN1()
+      SSL_USE_PRIVATEKEY_ASN1()
+      SSL_USE_CERTIFICATE_ASN1()
+
 2009-07-21 00:23 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * source/rtl/net.c
     ! Fixed NETNAME()/hb_netname() on dos/watcom platforms
diff --git a/harbour/contrib/hbssl/ssl.c b/harbour/contrib/hbssl/ssl.c
index 9f8ec0eaf8..df5143cb56 100644
--- a/harbour/contrib/hbssl/ssl.c
+++ b/harbour/contrib/hbssl/ssl.c
@@ -1364,19 +1364,54 @@ HB_FUNC( SSL_LOAD_CLIENT_CA_FILE )
       hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
 }
 
+HB_FUNC( SSL_USE_RSAPRIVATEKEY_ASN1 )
+{
+   if( hb_SSL_is( 1 ) )
+   {
+      SSL * ssl = hb_SSL_par( 1 );
+
+      if( ssl )
+         /* 'const' not used in 2nd param because ssh.h misses it, too. [vszakats] */
+         hb_retni( SSL_use_RSAPrivateKey_ASN1( ssl, ( unsigned char * ) hb_parc( 2 ), hb_parclen( 2 ) ) );
+   }
+   else
+      hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
+HB_FUNC( SSL_USE_PRIVATEKEY_ASN1 )
+{
+   if( hb_SSL_is( 2 ) )
+   {
+      SSL * ssl = hb_SSL_par( 2 );
+
+      if( ssl )
+         hb_retni( SSL_use_PrivateKey_ASN1( hb_parni( 1 ), ssl, ( const unsigned char * ) hb_parc( 3 ), hb_parclen( 3 ) ) );
+   }
+   else
+      hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
+HB_FUNC( SSL_USE_CERTIFICATE_ASN1 )
+{
+   if( hb_SSL_is( 1 ) )
+   {
+      SSL * ssl = hb_SSL_par( 1 );
+
+      if( ssl )
+         hb_retni( SSL_use_certificate_ASN1( ssl, ( const unsigned char * ) hb_parc( 2 ), hb_parclen( 2 ) ) );
+   }
+   else
+      hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
 /*
 STACK *      SSL_get_peer_cert_chain(const SSL *ssl);
 int          SSL_use_PrivateKey(SSL *ssl, EVP_PKEY *pkey);
-int          SSL_use_PrivateKey_ASN1(int type, SSL *ssl, unsigned char *d, long len);
 int          SSL_use_RSAPrivateKey(SSL *ssl, RSA *rsa);
-int          SSL_use_RSAPrivateKey_ASN1(SSL *ssl, unsigned char *d, long len);
-int          SSL_use_certificate_ASN1(SSL *ssl, int len, unsigned char *d);
-
 void         SSL_set_app_data(SSL *ssl, char *arg);
 int          SSL_set_ex_data(SSL *ssl, int idx, char *arg);
 char *       SSL_get_app_data(SSL *ssl);
 char *       SSL_get_ex_data( ssl, int );
-
 int          SSL_add_dir_cert_subjects_to_stack(STACK *stack, const char *dir);
 int          SSL_add_file_cert_subjects_to_stack(STACK *stack, const char *file);
 STACK *      SSL_dup_CA_list(STACK *sk);
diff --git a/harbour/contrib/hbssl/sslctx.c b/harbour/contrib/hbssl/sslctx.c
index a3980ddf36..621baa5641 100644
--- a/harbour/contrib/hbssl/sslctx.c
+++ b/harbour/contrib/hbssl/sslctx.c
@@ -707,20 +707,55 @@ HB_FUNC( SSL_CTX_USE_RSAPRIVATEKEY_FILE )
       hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
 }
 
+HB_FUNC( SSL_CTX_USE_RSAPRIVATEKEY_ASN1 )
+{
+   if( hb_SSL_CTX_is( 1 ) )
+   {
+      SSL_CTX * ctx = hb_SSL_CTX_par( 1 );
+
+      if( ctx )
+         hb_retni( SSL_CTX_use_RSAPrivateKey_ASN1( ctx, ( const unsigned char * ) hb_parc( 2 ), hb_parclen( 2 ) ) );
+   }
+   else
+      hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
+HB_FUNC( SSL_CTX_USE_PRIVATEKEY_ASN1 )
+{
+   if( hb_SSL_CTX_is( 2 ) )
+   {
+      SSL_CTX * ctx = hb_SSL_CTX_par( 2 );
+
+      if( ctx )
+         hb_retni( SSL_CTX_use_PrivateKey_ASN1( hb_parni( 1 ), ctx, ( const unsigned char * ) hb_parc( 3 ), hb_parclen( 3 ) ) );
+   }
+   else
+      hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
+HB_FUNC( SSL_CTX_USE_CERTIFICATE_ASN1 )
+{
+   if( hb_SSL_CTX_is( 1 ) )
+   {
+      SSL_CTX * ctx = hb_SSL_CTX_par( 1 );
+
+      if( ctx )
+         hb_retni( SSL_CTX_use_certificate_ASN1( ctx, hb_parclen( 2 ), ( const unsigned char * ) hb_parc( 2 ) ) );
+   }
+   else
+      hb_errRT_BASE( EG_ARG, 2010, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
 /*
 #define sk_X509_NAME_new_null() SKM_sk_new_null(X509_NAME)
 #define sk_X509_NAME_push(st, val) SKM_sk_push(X509_NAME, (st), (val))
 #define sk_X509_NAME_free(st) SKM_sk_free(X509_NAME, (st))
 
-int SSL_CTX_use_certificate_ASN1(SSL_CTX *ctx, int len, unsigned char *d);
-
 X509_STORE *SSL_CTX_get_cert_store(const SSL_CTX *);
 void SSL_CTX_set_cert_store(SSL_CTX *,X509_STORE *);
 void SSL_CTX_set_cert_store(SSL_CTX *ctx, X509_STORE *cs);
 int  SSL_CTX_use_PrivateKey(SSL_CTX *ctx, EVP_PKEY *pkey);
-int  SSL_CTX_use_PrivateKey_ASN1(int type, SSL_CTX *ctx, unsigned char *d, long len);
 int  SSL_CTX_use_RSAPrivateKey(SSL_CTX *ctx, RSA *rsa);
-int  SSL_CTX_use_RSAPrivateKey_ASN1(SSL_CTX *ctx, unsigned char *d, long len);
 long SSL_CTX_ctrl(SSL_CTX *ctx, int cmd, long larg, char *parg);
 
 void SSL_CTX_set_app_data(SSL_CTX *ctx, void *arg);