ssl https client socket

For issues with communication ports, protocols, etc.
chung
Posts: 492
Joined: Jan 16, 2010 20:52
Location: France
Contact:

ssl https client socket

Postby chung » Feb 09, 2017 4:54

i use an old http web socket code to access web data from a desktop freebasic program, but it doesnt work with https secured data.

i have found this C code which may work, can anyone translate it to freebasic ?

Code: Select all

/* ssl_client.c
 *
 * Copyright (c) 2000 Sean Walton and Macmillan Publishers.  Use may be in
 * whole or in part in accordance to the General Public License (GPL).
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
*/

/*****************************************************************************/
/*** ssl_client.c                                                          ***/
/***                                                                       ***/
/*** Demonstrate an SSL client.                                            ***/
/*****************************************************************************/

#include <stdio.h>
#include <unistd.h>
#include <malloc.h>
#include <string.h>
#include <sys/socket.h>
#include <resolv.h>
#include <netdb.h>
#include <openssl/ssl.h>
#include <openssl/err.h>

#define FAIL    -1

/*---------------------------------------------------------------------*/
/*--- OpenConnection - create socket and connect to server.         ---*/
/*---------------------------------------------------------------------*/
int OpenConnection(const char *hostname, int port)
{   int sd;
    struct hostent *host;
    struct sockaddr_in addr;

    if ( (host = gethostbyname(hostname)) == NULL )
    {
        perror(hostname);
        abort();
    }
    sd = socket(PF_INET, SOCK_STREAM, 0);
    bzero(&addr, sizeof(addr));
    addr.sin_family = AF_INET;
    addr.sin_port = htons(port);
    addr.sin_addr.s_addr = *(long*)(host->h_addr);
    if ( connect(sd, &addr, sizeof(addr)) != 0 )
    {
        close(sd);
        perror(hostname);
        abort();
    }
    return sd;
}

/*---------------------------------------------------------------------*/
/*--- InitCTX - initialize the SSL engine.                          ---*/
/*---------------------------------------------------------------------*/
SSL_CTX* InitCTX(void)
{   SSL_METHOD *method;
    SSL_CTX *ctx;

    OpenSSL_add_all_algorithms();      /* Load cryptos, et.al. */
    SSL_load_error_strings();         /* Bring in and register error messages */
    method = SSLv2_client_method();      /* Create new client-method instance */
    ctx = SSL_CTX_new(method);         /* Create new context */
    if ( ctx == NULL )
    {
        ERR_print_errors_fp(stderr);
        abort();
    }
    return ctx;
}

/*---------------------------------------------------------------------*/
/*--- ShowCerts - print out the certificates.                       ---*/
/*---------------------------------------------------------------------*/
void ShowCerts(SSL* ssl)
{   X509 *cert;
    char *line;

    cert = SSL_get_peer_certificate(ssl);   /* get the server's certificate */
    if ( cert != NULL )
    {
        printf("Server certificates:\n");
        line = X509_NAME_oneline(X509_get_subject_name(cert), 0, 0);
        printf("Subject: %s\n", line);
        free(line);                     /* free the malloc'ed string */
        line = X509_NAME_oneline(X509_get_issuer_name(cert), 0, 0);
        printf("Issuer: %s\n", line);
        free(line);                     /* free the malloc'ed string */
        X509_free(cert);               /* free the malloc'ed certificate copy */
    }
    else
        printf("No certificates.\n");
}

/*---------------------------------------------------------------------*/
/*--- main - create SSL context and connect                         ---*/
/*---------------------------------------------------------------------*/
int main(int count, char *strings[])
{   SSL_CTX *ctx;
    int server;
    SSL *ssl;
    char buf[1024];
    int bytes;
    char *hostname, *portnum;

    if ( count != 3 )
    {
        printf("usage: %s <hostname> <portnum>\n", strings[0]);
        exit(0);
    }
   hostname=strings[1];
   portnum=strings[2];

    ctx = InitCTX();
    server = OpenConnection(hostname, atoi(portnum));
    ssl = SSL_new(ctx);                  /* create new SSL connection state */
    SSL_set_fd(ssl, server);            /* attach the socket descriptor */
    if ( SSL_connect(ssl) == FAIL )         /* perform the connection */
        ERR_print_errors_fp(stderr);
    else
    {   char *msg = "Hello???";

        printf("Connected with %s encryption\n", SSL_get_cipher(ssl));
        ShowCerts(ssl);                        /* get any certs */
        SSL_write(ssl, msg, strlen(msg));         /* encrypt & send message */
        bytes = SSL_read(ssl, buf, sizeof(buf));   /* get reply & decrypt */
        buf[bytes] = 0;
        printf("Received: \"%s\"\n", buf);
        SSL_free(ssl);                        /* release connection state */
    }
    close(server);                           /* close socket */
    SSL_CTX_free(ctx);                        /* release context */
}
grindstone
Posts: 347
Joined: May 05, 2015 5:35
Location: Germany

Re: ssl https client socket

Postby grindstone » Feb 09, 2017 12:00

What's your system (Win/Linux)? And do you have the FB - bindings of "openssl/ssl.h" and "openssl/err.h"?
chung
Posts: 492
Joined: Jan 16, 2010 20:52
Location: France
Contact:

Re: ssl https client socket

Postby chung » Feb 09, 2017 14:11

i am on win32/64 .
i have seen, it uses openssl => https://www.openssl.org/source/
grindstone
Posts: 347
Joined: May 05, 2015 5:35
Location: Germany

Re: ssl https client socket

Postby grindstone » Feb 09, 2017 16:28

chung wrote:i have seen, it uses openssl => https://www.openssl.org/source/
That's bad, for "ssl.h" is BIG and includes about a dozen .h - files itself, and AFAIK there's no FB translation yet.

If you "only" want to get access to https, I recommend having a look at "libcurl". It's open source, and the bindings are part of the FB - distribution ("\inc\curl.bi")
chung
Posts: 492
Joined: Jan 16, 2010 20:52
Location: France
Contact:

Re: ssl https client socket

Postby chung » Feb 10, 2017 16:23

i tryed to compile the example test.bas , libcurl.a is missing
D.J.Peters
Posts: 7169
Joined: May 28, 2005 3:28
Location: Germany

Re: ssl https client socket

Postby D.J.Peters » Feb 10, 2017 20:54

chung you can download it from here: https://curl.haxx.se/download.html
scroll down to win32/64 binary

Joshy
chung
Posts: 492
Joined: Jan 16, 2010 20:52
Location: France
Contact:

Re: ssl https client socket

Postby chung » Feb 11, 2017 11:05

thanks a lot, after searching the good download , i finally managed to make it work with the dll version (libcurldll)

note : i had to download libcrypto-1_1.dll libssl-1_1.dll (which seems to be openSSL dlls)

Return to “Hardware Interfaces / Communication”

Who is online

Users browsing this forum: No registered users and 1 guest