58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
102 lines
2.9 KiB
Plaintext
102 lines
2.9 KiB
Plaintext
/*
|
|
* Copyright 2009 Viktor Szakats (vszakats.net/harbour)
|
|
*/
|
|
|
|
#require "hbssl"
|
|
|
|
#define CRLF Chr( 13 ) + Chr( 10 )
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL ssl_ctx
|
|
LOCAL ssl
|
|
LOCAL cipher
|
|
|
|
LOCAL socket
|
|
LOCAL buffer
|
|
|
|
LOCAL bits
|
|
LOCAL tmp
|
|
|
|
//
|
|
|
|
hb_inetInit()
|
|
|
|
? "-------"
|
|
|
|
socket := hb_inetCreate()
|
|
? "INETTIMEOUT", hb_inetTimeout( socket, 500 )
|
|
? "INETCONN", hb_inetConnect( "www.fortify.net", 80, socket )
|
|
? "INETERR", hb_inetErrorCode( socket )
|
|
? "INETFD", hb_inetFD( socket )
|
|
? "INETSEND", hb_inetSend( socket, "GET / http/1.1" + CRLF + "Host: " + "www.fortify.net" + CRLF + CRLF )
|
|
? "INETERR", hb_inetErrorCode( socket )
|
|
buffer := Space( 1024 )
|
|
? "INETRECVALL", hb_inetRecvAll( socket, @buffer, Len( buffer ) )
|
|
? "BUFFER", ">" + AllTrim( buffer ) + "<"
|
|
? "INETCLOSE", hb_inetClose( socket )
|
|
|
|
? "-------"
|
|
|
|
socket := hb_inetCreate()
|
|
? hb_inetTimeout( socket, 2500 )
|
|
? hb_inetConnect( "www.fortify.net", 443, socket )
|
|
? hb_inetErrorCode( socket )
|
|
|
|
//
|
|
|
|
SSL_init()
|
|
|
|
? SSLeay_version()
|
|
? SSLeay_version( HB_SSLEAY_VERSION )
|
|
? SSLeay_version( HB_SSLEAY_CFLAGS )
|
|
? SSLeay_version( HB_SSLEAY_BUILT_ON )
|
|
? SSLeay_version( HB_SSLEAY_PLATFORM )
|
|
? SSLeay_version( HB_SSLEAY_DIR )
|
|
|
|
? "RAND_SEED", RAND_seed( "some entropy" )
|
|
|
|
? "SSL_CTX_NEW", ssl_ctx := SSL_CTX_new()
|
|
|
|
? "SSL_NEW", ssl := SSL_new( ssl_ctx )
|
|
|
|
? "SSL_VERSION", SSL_version( ssl )
|
|
? "SSL_GET_VERSION", SSL_get_version( ssl )
|
|
|
|
? "INET FD", hb_inetFD( socket )
|
|
|
|
? "SSL_SET_FD", SSL_set_fd( ssl, hb_inetFD( socket ) )
|
|
? "SSL_CONNECT", tmp := SSL_connect( ssl )
|
|
? "SSL_GET_ERROR", SSL_get_error( ssl, tmp )
|
|
|
|
tmp := SSL_get_ciphers( ssl )
|
|
FOR EACH cipher IN tmp
|
|
? "SSL_CIPHER_GET_NAME", SSL_CIPHER_get_name( cipher )
|
|
? "SSL_CIPHER_GET_VERSION", SSL_CIPHER_get_version( cipher )
|
|
? "SSL_CIPHER_GET_BITS", SSL_CIPHER_get_bits( cipher, @bits ), bits
|
|
? "SSL_CIPHER_DESCRIPTION", ">" + SSL_CIPHER_description( cipher ) + "<"
|
|
? "- - - - - - - - - - - - - - -"
|
|
NEXT
|
|
|
|
? "SSL_GET_CIPHER_BITS", SSL_get_cipher_bits( ssl, @bits ), bits
|
|
? "SSL_GET_CIPHER_LIST", SSL_get_cipher_list( ssl )
|
|
? "SSL_GET_CIPHER_NAME", SSL_get_cipher_name( ssl )
|
|
? "SSL_GET_CIPHER_VERSION", SSL_get_cipher_version( ssl )
|
|
|
|
? "SSL_GET_CURRENT_CIPHER", cipher := SSL_get_current_cipher( ssl )
|
|
? "SSL_CIPHER_GET_NAME", SSL_CIPHER_get_name( cipher )
|
|
? "SSL_CIPHER_GET_VERSION", SSL_CIPHER_get_version( cipher )
|
|
? "SSL_CIPHER_GET_BITS", SSL_CIPHER_get_bits( cipher, @bits ), bits
|
|
? "SSL_CIPHER_DESCRIPTION", SSL_CIPHER_description( cipher )
|
|
|
|
? "SSL_WRITE", tmp := SSL_write( ssl, "GET / http/1.1" + CRLF + "Host: " + "www.fortify.net" + CRLF + CRLF )
|
|
? "SSL_GET_ERROR", SSL_get_error( ssl, tmp )
|
|
buffer := Space( 1024 )
|
|
? "SSL_READ", tmp := SSL_read( ssl, @buffer )
|
|
? "SSL_GET_ERROR", SSL_get_error( ssl, tmp )
|
|
? buffer
|
|
|
|
? hb_inetClose( socket )
|
|
|
|
RETURN
|