2 * An demo illustrating how to retrieve a URI from a secure HTTP server.
5 * Date: September 7, 1999
6 * Comments: This relies heavily on my MacSockets library.
7 * This project is also set up so that it expects the OpenSSL source folder (0.9.4 as I write this)
8 * to live in a folder called "OpenSSL-0.9.4" in this project's parent folder. For example:
13 * (OpenSSL sources here)
15 * (OpenSSL example junk here)
18 * Also-- before attempting to compile this, make sure the aliases in "OpenSSL-0.9.4:include:openssl"
19 * are installed! Use the AppleScript applet in the "openssl-0.9.4" folder to do this!
23 // Include some funky libs I've developed over time
25 #include "CPStringUtils.hpp"
26 #include "ErrorHandling.hpp"
27 #include "MacSocket.h"
30 // We use the OpenSSL implementation of SSL....
31 // This was a lot of work to finally get going, though you wouldn't know it by the results!
33 #include <openssl/ssl.h>
34 #include <openssl/err.h>
38 // Let's try grabbing some data from here:
40 #define kHTTPS_DNS "www.apache-ssl.org"
41 #define kHTTPS_Port 443
42 #define kHTTPS_URI "/"
45 // Forward-declare this
47 OSErr MyMacSocket_IdleWaitCallback(void *inUserRefPtr);
53 // My idle-wait callback. Doesn't do much, does it? Silly cooperative multitasking.
55 OSErr MyMacSocket_IdleWaitCallback(void *inUserRefPtr)
57 #pragma unused(inUserRefPtr)
61 ::EventAvail(everyEvent,&theEvent);
76 SSL_CTX *ssl_ctx = nil;
82 printf("OpenSSL Demo by Roy Wood, roy@centricsystems.ca\n\n");
84 BailIfError(errCode = MacSocket_Startup());
88 // Create a socket-like object
90 BailIfError(errCode = MacSocket_socket(&theSocket,false,theTimeout * 60,MyMacSocket_IdleWaitCallback,nil));
93 // Set up the connect string and try to connect
95 CopyCStrAndInsertCStrLongIntIntoCStr("%s:%ld",kHTTPS_DNS,kHTTPS_Port,tempString,sizeof(tempString));
97 printf("Connecting to %s....\n",tempString);
99 BailIfError(errCode = MacSocket_connect(theSocket,tempString));
104 SSL_load_error_strings();
106 SSLeay_add_ssl_algorithms();
109 // Pick the SSL method
111 // ssl_ctx = SSL_CTX_new(SSLv2_client_method());
112 ssl_ctx = SSL_CTX_new(SSLv23_client_method());
113 // ssl_ctx = SSL_CTX_new(SSLv3_client_method());
116 // Create an SSL thingey and try to negotiate the connection
118 ssl = SSL_new(ssl_ctx);
120 SSL_set_fd(ssl,theSocket);
122 errCode = SSL_connect(ssl);
126 SetErrorMessageAndLongIntAndBail("OpenSSL: Can't initiate SSL connection, SSL_connect() = ",errCode);
129 // Request the URI from the host
131 CopyCStrToCStr("GET ",tempString,sizeof(tempString));
132 ConcatCStrToCStr(kHTTPS_URI,tempString,sizeof(tempString));
133 ConcatCStrToCStr(" HTTP/1.0\r\n\r\n",tempString,sizeof(tempString));
136 errCode = SSL_write(ssl,tempString,CStrLength(tempString));
140 SetErrorMessageAndLongIntAndBail("OpenSSL: Error writing data via ssl, SSL_write() = ",errCode);
146 char tempString[256];
150 // Read some bytes and dump them to the console
152 bytesRead = SSL_read(ssl,tempString,sizeof(tempString) - 1);
154 if (bytesRead == 0 && MacSocket_RemoteEndIsClosing(theSocket))
159 else if (bytesRead < 0)
161 SetErrorMessageAndLongIntAndBail("OpenSSL: Error reading data via ssl, SSL_read() = ",bytesRead);
165 tempString[bytesRead] = '\0';
179 // Clean up and go home
183 MacSocket_close(theSocket);
193 SSL_CTX_free(ssl_ctx);
197 if (errCode != noErr)
199 printf("An error occurred:\n");
201 printf(GetErrorMessage());
205 MacSocket_Shutdown();