1e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET/***************************************************************************
29bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels *                                  _   _ ____  _
39bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels *  Project                     ___| | | |  _ \| |
49bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels *                             / __| | | | |_) | |
59bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels *                            | (__| |_| |  _ <| |___
69bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels *                             \___|\___/|_| \_\_____|
79bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels *
8e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * Copyright (C) 1998 - 2014, Daniel Stenberg, <daniel@haxx.se>, et al.
99bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels *
10e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * This software is licensed as described in the file COPYING, which
11e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * you should have received as part of this distribution. The terms
12e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * are also available at http://curl.haxx.se/docs/copyright.html.
13e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET *
14e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * copies of the Software, and permit persons to whom the Software is
16e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * furnished to do so, under the terms of the COPYING file.
17e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET *
18e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET * KIND, either express or implied.
20e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET *
21e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET ***************************************************************************/
22e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET/* Example using a "in core" PEM certificate to retrieve a https page.
239bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels * Written by Theo Borm
249bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels */
259bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
269bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels/* on a netBSD system with OPENSSL& LIBCURL installed from
279bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels * pkgsrc (using default paths) this program can be compiled using:
289bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels * gcc -I/usr/pkg/include -L/usr/pkg/lib -lcurl -Wl,-R/usr/pkg/lib -lssl
299bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels * -lcrypto -lz -o curlcacerttest curlcacerttest.c
309bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels * on other operating systems you may want to change paths to headers
319bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels * and libraries
329bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels*/
339bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels#include <openssl/ssl.h>
349bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels#include <curl/curl.h>
359bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels#include <stdio.h>
369bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
379bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckelssize_t writefunction( void *ptr, size_t size, size_t nmemb, void *stream)
389bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels{
399bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  fwrite(ptr,size,nmemb,stream);
409bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  return(nmemb*size);
419bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels}
429bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
439bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckelsstatic CURLcode sslctx_function(CURL * curl, void * sslctx, void * parm)
449bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels{
459bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  X509_STORE * store;
469bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  X509 * cert=NULL;
479bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  BIO * bio;
489bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  char * mypem = /* www.cacert.org */
499bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "-----BEGIN CERTIFICATE-----\n"\
509bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "MIIHPTCCBSWgAwIBAgIBADANBgkqhkiG9w0BAQQFADB5MRAwDgYDVQQKEwdSb290\n"\
519bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "IENBMR4wHAYDVQQLExVodHRwOi8vd3d3LmNhY2VydC5vcmcxIjAgBgNVBAMTGUNB\n"\
529bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "IENlcnQgU2lnbmluZyBBdXRob3JpdHkxITAfBgkqhkiG9w0BCQEWEnN1cHBvcnRA\n"\
539bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "Y2FjZXJ0Lm9yZzAeFw0wMzAzMzAxMjI5NDlaFw0zMzAzMjkxMjI5NDlaMHkxEDAO\n"\
549bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "BgNVBAoTB1Jvb3QgQ0ExHjAcBgNVBAsTFWh0dHA6Ly93d3cuY2FjZXJ0Lm9yZzEi\n"\
559bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "MCAGA1UEAxMZQ0EgQ2VydCBTaWduaW5nIEF1dGhvcml0eTEhMB8GCSqGSIb3DQEJ\n"\
569bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "ARYSc3VwcG9ydEBjYWNlcnQub3JnMIICIjANBgkqhkiG9w0BAQEFAAOCAg8AMIIC\n"\
579bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "CgKCAgEAziLA4kZ97DYoB1CW8qAzQIxL8TtmPzHlawI229Z89vGIj053NgVBlfkJ\n"\
589bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "8BLPRoZzYLdufujAWGSuzbCtRRcMY/pnCujW0r8+55jE8Ez64AO7NV1sId6eINm6\n"\
599bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "zWYyN3L69wj1x81YyY7nDl7qPv4coRQKFWyGhFtkZip6qUtTefWIonvuLwphK42y\n"\
609bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "fk1WpRPs6tqSnqxEQR5YYGUFZvjARL3LlPdCfgv3ZWiYUQXw8wWRBB0bF4LsyFe7\n"\
619bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "w2t6iPGwcswlWyCR7BYCEo8y6RcYSNDHBS4CMEK4JZwFaz+qOqfrU0j36NK2B5jc\n"\
629bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "G8Y0f3/JHIJ6BVgrCFvzOKKrF11myZjXnhCLotLddJr3cQxyYN/Nb5gznZY0dj4k\n"\
639bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "epKwDpUeb+agRThHqtdB7Uq3EvbXG4OKDy7YCbZZ16oE/9KTfWgu3YtLq1i6L43q\n"\
649bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "laegw1SJpfvbi1EinbLDvhG+LJGGi5Z4rSDTii8aP8bQUWWHIbEZAWV/RRyH9XzQ\n"\
659bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "QUxPKZgh/TMfdQwEUfoZd9vUFBzugcMd9Zi3aQaRIt0AUMyBMawSB3s42mhb5ivU\n"\
669bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "fslfrejrckzzAeVLIL+aplfKkQABi6F1ITe1Yw1nPkZPcCBnzsXWWdsC4PDSy826\n"\
679bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "YreQQejdIOQpvGQpQsgi3Hia/0PsmBsJUUtaWsJx8cTLc6nloQsCAwEAAaOCAc4w\n"\
689bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "ggHKMB0GA1UdDgQWBBQWtTIb1Mfz4OaO873SsDrusjkY0TCBowYDVR0jBIGbMIGY\n"\
699bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "gBQWtTIb1Mfz4OaO873SsDrusjkY0aF9pHsweTEQMA4GA1UEChMHUm9vdCBDQTEe\n"\
709bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "MBwGA1UECxMVaHR0cDovL3d3dy5jYWNlcnQub3JnMSIwIAYDVQQDExlDQSBDZXJ0\n"\
719bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "IFNpZ25pbmcgQXV0aG9yaXR5MSEwHwYJKoZIhvcNAQkBFhJzdXBwb3J0QGNhY2Vy\n"\
729bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "dC5vcmeCAQAwDwYDVR0TAQH/BAUwAwEB/zAyBgNVHR8EKzApMCegJaAjhiFodHRw\n"\
739bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "czovL3d3dy5jYWNlcnQub3JnL3Jldm9rZS5jcmwwMAYJYIZIAYb4QgEEBCMWIWh0\n"\
749bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "dHBzOi8vd3d3LmNhY2VydC5vcmcvcmV2b2tlLmNybDA0BglghkgBhvhCAQgEJxYl\n"\
759bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "aHR0cDovL3d3dy5jYWNlcnQub3JnL2luZGV4LnBocD9pZD0xMDBWBglghkgBhvhC\n"\
769bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "AQ0ESRZHVG8gZ2V0IHlvdXIgb3duIGNlcnRpZmljYXRlIGZvciBGUkVFIGhlYWQg\n"\
779bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "b3ZlciB0byBodHRwOi8vd3d3LmNhY2VydC5vcmcwDQYJKoZIhvcNAQEEBQADggIB\n"\
789bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "ACjH7pyCArpcgBLKNQodgW+JapnM8mgPf6fhjViVPr3yBsOQWqy1YPaZQwGjiHCc\n"\
799bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "nWKdpIevZ1gNMDY75q1I08t0AoZxPuIrA2jxNGJARjtT6ij0rPtmlVOKTV39O9lg\n"\
809bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "18p5aTuxZZKmxoGCXJzN600BiqXfEVWqFcofN8CCmHBh22p8lqOOLlQ+TyGpkO/c\n"\
819bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "gr/c6EWtTZBzCDyUZbAEmXZ/4rzCahWqlwQ3JNgelE5tDlG+1sSPypZt90Pf6DBl\n"\
829bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "Jzt7u0NDY8RD97LsaMzhGY4i+5jhe1o+ATc7iwiwovOVThrLm82asduycPAtStvY\n"\
839bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "sONvRUgzEv/+PDIqVPfE94rwiCPCR/5kenHA0R6mY7AHfqQv0wGP3J8rtsYIqQ+T\n"\
849bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "SCX8Ev2fQtzzxD72V7DX3WnRBnc0CkvSyqD/HMaMyRa+xMwyN2hzXwj7UfdJUzYF\n"\
859bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "CpUCTPJ5GhD22Dp1nPMd8aINcGeGG7MW9S/lpOt5hvk9C8JzC6WZrG/8Z7jlLwum\n"\
869bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "GCSNe9FINSkYQKyTYOGWhlC0elnYjyELn8+CkcY7v2vcB5G5l1YjqrZslMZIBjzk\n"\
879bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "zk6q5PYvCdxTby78dOs6Y5nCpqyJvKeyRKANihDjbPIky/qbn3BHLt4Ui9SyIAmW\n"\
889bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "omTxJBzcoTWcFbLUvFUufQb1nA5V9FrWk9p2rSVzTMVD\n"\
899bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    "-----END CERTIFICATE-----\n";
909bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  /* get a BIO */
919bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  bio=BIO_new_mem_buf(mypem, -1);
929bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  /* use it to read the PEM formatted certificate from memory into an X509
939bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels   * structure that SSL can use
949bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels   */
959bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  PEM_read_bio_X509(bio, &cert, 0, NULL);
969bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  if (cert == NULL)
979bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    printf("PEM_read_bio_X509 failed...\n");
989bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
999bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  /* get a pointer to the X509 certificate store (which may be empty!) */
1009bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  store=SSL_CTX_get_cert_store((SSL_CTX *)sslctx);
1019bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
1029bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  /* add our certificate to this store */
1039bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  if (X509_STORE_add_cert(store, cert)==0)
1049bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    printf("error adding certificate\n");
1059bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
106e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET  /* decrease reference counts */
107e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET  X509_free(cert);
108e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET  BIO_free(bio);
109e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET
1109bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  /* all set to go */
1119bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  return CURLE_OK ;
1129bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels}
1139bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
1149bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckelsint main(void)
1159bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels{
1169bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  CURL * ch;
1179bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  CURLcode rv;
1189bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
1199bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_global_init(CURL_GLOBAL_ALL);
1209bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  ch=curl_easy_init();
1219bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_VERBOSE, 0L);
1229bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_HEADER, 0L);
1239bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_NOPROGRESS, 1L);
1249bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_NOSIGNAL, 1L);
1259bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_WRITEFUNCTION, *writefunction);
1269bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_WRITEDATA, stdout);
1279bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_HEADERFUNCTION, *writefunction);
128e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET  rv=curl_easy_setopt(ch,CURLOPT_HEADERDATA, stderr);
1299bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_SSLCERTTYPE,"PEM");
1309bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_SSL_VERIFYPEER,1L);
1319bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch, CURLOPT_URL, "https://www.example.com/");
1329bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
1339bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  /* first try: retrieve page without cacerts' certificate -> will fail
1349bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels   */
1359bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_perform(ch);
1369bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  if (rv==CURLE_OK)
1379bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    printf("*** transfer succeeded ***\n");
1389bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  else
1399bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    printf("*** transfer failed ***\n");
1409bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
1419bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  /* second try: retrieve page using cacerts' certificate -> will succeed
1429bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels   * load the certificate by installing a function doing the nescessary
1439bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels   * "modifications" to the SSL CONTEXT just before link init
1449bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels   */
1459bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_setopt(ch,CURLOPT_SSL_CTX_FUNCTION, *sslctx_function);
1469bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  rv=curl_easy_perform(ch);
1479bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  if (rv==CURLE_OK)
1489bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    printf("*** transfer succeeded ***\n");
1499bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  else
1509bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels    printf("*** transfer failed ***\n");
1519bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels
1529bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  curl_easy_cleanup(ch);
1539bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  curl_global_cleanup();
1549bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels  return rv;
1559bd90e6e25f1e55f50201c87a1b5837de7e5b64aLucas Eckels}
156