#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <openssl/crypto.h>
#include <openssl/ssl.h>
#include <openssl/err.h>

#if defined _WIN32
#include <winsock.h>
#define sleep(x) Sleep(x)
#define close(x) closesocket(x)
#pragma comment(lib, "ws2_32.lib")
#else
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <unistd.h>
#endif

static char *fetch_ssl_url(const char *, const char *, int *);

int main(int argc, char *argv[])
{
  char *body;

  if (argc < 1 && argc > 4) {
    printf("%s <ssl url> <path>\n", argv[0]);
    return 1;
  }

  body = fetch_ssl_url(argv[1], argv[2], NULL);

  printf("%s\n", body);

  return 0;
}

int hard_fetch_ip = 0;

#define MAX_LEN 1024

static char *fetch_ssl_url(const char *host, const char *url, int *res_len)
{
  struct hostent *phe;
  struct sockaddr_in sin;
  int s, len, len_respose;
  char *body_send;
  char *body_recv;
  char *body_response;

  SSL_METHOD *method;
  SSL_CTX *ctx;
  SSL *ssl;

  SSL_library_init();
  OpenSSL_add_all_algorithms();
  SSL_load_error_strings();
  method = SSLv2_client_method();
  ctx = SSL_CTX_new(method);
  ssl = SSL_new(ctx);

#if defined _WIN32
  WSADATA wsaData;
  WSAStartup(0x101, &wsaData);
#endif

  s = socket(AF_INET, SOCK_STREAM, 0);
  if (s == -1) {
    perror("socket");
    return NULL;
  }

  if (!hard_fetch_ip) {
    phe = gethostbyname(host);
    if (phe == NULL) {
      perror("gethostbyname");
      return NULL;
    }
    hard_fetch_ip = ((struct in_addr*)phe->h_addr_list[0])->s_addr;
  }

  sin.sin_family = AF_INET;
  sin.sin_addr.s_addr = hard_fetch_ip;
  sin.sin_port = htons(443);

  if (connect(s, (struct sockaddr*)&sin, sizeof(struct sockaddr_in))) {
    perror("connect");
    return NULL;
  }

  SSL_set_fd(ssl, s);
  SSL_connect(ssl);

  body_send = (char *)malloc(MAX_LEN);
  body_recv = (char *)malloc(MAX_LEN);
  body_response = (char *)malloc(MAX_LEN);

  memset(body_response, 0, MAX_LEN);
  len_respose = 0;

  sprintf(body_send,
	  "GET /%s HTTP/1.1\r\n"
	  "Host: %s\r\n"
	  "Connection: close\r\n"
	  "Accept: */*\r\n\r\n", url, host);

  SSL_write(ssl, body_send, strlen(body_send));

  int new_len = MAX_LEN;
  char *tmp;

  do {
    len = SSL_read(ssl, body_recv, MAX_LEN);
    len_respose += len;
    if (len_respose > new_len) {
      new_len = new_len * 2;
      body_response = (char *) realloc(body_response, new_len );
    }
    memcpy(body_response + (len_respose - len), body_recv, len);
  } while (len);

  // remove headers
  tmp = strstr(body_response, "\r\n\r\n");
  len_respose -= (tmp - body_response + 4);
  memcpy(body_response, tmp + 4, len_respose);

  free(body_recv);
  free(body_send);
  close(s);
  SSL_free(ssl);

  if (res_len) {
    *res_len = len_respose;
  }
  return body_response;
}