70 lines
1.5 KiB
Text
70 lines
1.5 KiB
Text
|
' SSL library
|
||
|
|
PRAGMA INCLUDE <openssl/ssl.h> <openssl/err.h>
|
||
|
|
PRAGMA LDFLAGS -lcrypto -lssl
|
||
|
|
|
||
|
|
' Using RAM disk as a string
|
||
|
|
OPTION MEMSTREAM TRUE
|
||
|
|
|
||
|
|
' BaCon must not choke on SSL functions
|
||
|
|
OPTION PARSE FALSE
|
||
|
|
|
||
|
|
' Request to send to remote webserver (CONST is a macro def)
|
||
|
|
CONST req$ = "GET / HTTP/1.1\r\nHost: " & TOKEN$(website$, 1, ":") & "\r\n\r\n"
|
||
|
|
|
||
|
|
' Some SSL related variables
|
||
|
|
DECLARE ctx TYPE SSL_CTX*
|
||
|
|
DECLARE meth TYPE const SSL_METHOD*
|
||
|
|
DECLARE ssl TYPE SSL*
|
||
|
|
DECLARE sbio TYPE BIO*
|
||
|
|
|
||
|
|
' Which website we need to fetch
|
||
|
|
IF AMOUNT(ARGUMENT$) = 1 THEN
|
||
|
|
website$ = "www.google.com:443"
|
||
|
|
ELSE
|
||
|
|
website$ = TOKEN$(ARGUMENT$, 2)
|
||
|
|
END IF
|
||
|
|
|
||
|
|
' Initialize SSL
|
||
|
|
SSL_library_init()
|
||
|
|
SSL_load_error_strings()
|
||
|
|
|
||
|
|
' Create SSL context object
|
||
|
|
meth = SSLv23_method()
|
||
|
|
ctx = SSL_CTX_new(meth)
|
||
|
|
ssl = SSL_new(ctx)
|
||
|
|
|
||
|
|
' Cpnnect to website creating a socket
|
||
|
|
OPEN website$ FOR NETWORK AS mynet
|
||
|
|
|
||
|
|
' Perform the SSL handshake using the socket
|
||
|
|
sbio = BIO_new_socket(mynet, BIO_NOCLOSE)
|
||
|
|
SSL_set_bio(ssl, sbio, sbio)
|
||
|
|
IF SSL_connect(ssl) <= 0 THEN
|
||
|
|
EPRINT "SSL connect error"
|
||
|
|
END 1
|
||
|
|
END IF
|
||
|
|
|
||
|
|
' Setup buffer for the data coming back
|
||
|
|
mem = MEMORY(1024)
|
||
|
|
OPEN mem FOR MEMORY AS buf$
|
||
|
|
|
||
|
|
' Send the GET request to the remote server
|
||
|
|
SSL_write(ssl, req$, LEN(req$))
|
||
|
|
REPEAT
|
||
|
|
' Fetch the response into the buffer
|
||
|
|
SSL_read(ssl, buf$, 1024)
|
||
|
|
total$ = total$ & buf$
|
||
|
|
memset((void*)mem, 0, 1024)
|
||
|
|
UNTIL ISFALSE(WAIT(mynet, 500))
|
||
|
|
|
||
|
|
' Bring down SSL
|
||
|
|
SSL_shutdown(ssl)
|
||
|
|
|
||
|
|
' Close handles and free memory
|
||
|
|
CLOSE MEMORY buf$
|
||
|
|
CLOSE NETWORK mynet
|
||
|
|
FREE mem
|
||
|
|
|
||
|
|
' Show result
|
||
|
|
PRINT total$
|