#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <time.h>

#include <wchar.h>

#include <windows.h>

#include <winsock.h>

#include <winsock2.h>

#include <winuser.h>

#include <ws2tcpip.h>

#pragma comment(lib, "ws2_32.lib") // Winsock Library

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

int port;

port = atoi(argv[1]);

if (port < 1 || port > 65535) {

port = 55555;

}

// Initialize WSA variables

WSADATA wsaData;

int wsaerr;

WORD wVersionRequested = MAKEWORD(2, 2);

wsaerr = WSAStartup(wVersionRequested, &wsaData);

// Check for initialization success

if (wsaerr != 0) {

printf("The Winsock dll not found!\n");

return 0;

} else {

printf("The Winsock dll found\n");

}

SOCKET serverSocket;

serverSocket = INVALID_SOCKET; // Initializing as a inivalid socket

serverSocket = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

if (serverSocket == INVALID_SOCKET) {

printf("Error at socket\n");

WSACleanup();

return 0;

} else {

printf("Socket is ok\n");

}

// Bind the socket to an IP address and port number

SOCKADDR_IN service;

service.sin_family = AF_INET;

service.sin_addr.s_addr = inet_addr("0.0.0.0"); // Desired IP address

service.sin_port = htons(port); // Port number

int iResult = 0;

iResult = bind(serverSocket, (SOCKADDR*)&service, sizeof(service));

if (iResult == SOCKET_ERROR) {

printf("Bind failed with error %u\n", WSAGetLastError());

closesocket(serverSocket);

WSACleanup();

return 1;

} else {

printf("Bind returned success\n");

}

if (listen(serverSocket, SOMAXCONN) == SOCKET_ERROR) {

printf("Listen function failed with error: %d\n", WSAGetLastError());

}

printf("Listening on http://127.0.0.1:%d\n", port);

// Create a SOCKET for accepting incoming requests.

SOCKET AcceptSocket;

unsigned long long counter = 0;

while (1) {

printf("Waiting for client to connect ...\n");

AcceptSocket = accept(serverSocket, NULL, NULL);

time_t t = time(NULL);

struct tm tm = *localtime(&t);

if (AcceptSocket == INVALID_SOCKET) {

printf("%d-%02d-%02d %02d:%02d:%02d - Accept failed with error: %ld\n\n", tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec, WSAGetLastError());

continue;

} else {

printf("%d-%02d-%02d %02d:%02d:%02d - Client connected!\n", tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec);

}

printf("Conn. counter=%llu\n", counter++);

char req[65536];

char request[65536];

DWORD timeout = 1500;

setsockopt(AcceptSocket, SOL_SOCKET, SO_RCVTIMEO, (char*)&timeout, sizeof(timeout));

// timeout = 1000;

setsockopt(AcceptSocket, SOL_SOCKET, SO_SNDTIMEO, (char*)&timeout, sizeof(timeout));

// setsockopt(AcceptSocket, SOL_SOCKET, SO_KEEPALIVE,(char*)&timeout, sizeof(timeout));

int bytes_recvd = recv(AcceptSocket, req, 65535, 0);

if (bytes_recvd > 65534 || bytes_recvd < 1) {

printf("Reading error! Socket Closed.\n\n");

closesocket(AcceptSocket);

continue;

}

char uri[65536] = "./serverroot"; // Root web directory

printf("Recieved req=%d bytes.\n", bytes_recvd);

int p = 0;

while (req[p] != '/' && p < bytes_recvd) {

p++;

}

int p2 = 12;

while (req[p] != ' ' && req[p] != '?' && req[p] != '*' && req[p] != ':' && p < bytes_recvd) {

if (req[p] == '%' && req[p + 1] == '2' && req[p + 2] == '0') {

p = p + 2;

uri[p2++] = ' ';

} else {

uri[p2++] = tolower(req[p]);

}

p++;

}

bool IsDirRequested = false;

p = strlen(uri);

if (uri[p - 1] == '/') {

IsDirRequested = true;

sprintf(uri + p, "%s", "index.html");

}

printf("Requested file: %s\n", uri);

char text[65536];

FILE* fp;

fp = fopen(uri, "rb");

char* fname = strrchr(uri, '/');

fname++;

if (fp == NULL) {

fclose(fp);

printf("FILE NOT FOUND!\n");

WIN32_FIND_DATA data;

char buf[65536];

if (IsDirRequested) {

uri[p] = '*';

uri[p + 1] = '\0';

HANDLE hFind = FindFirstFile(uri, &data);

uri[p] = '\0';

p = 0;

if (hFind != INVALID_HANDLE_VALUE) {

// memset(text, 0, sizeof(text));memset(buf, 0, sizeof(buf));memset(request, 0, sizeof(request));

printf("Creating listing of %s ...\n", uri);

printf("Send: HTTP/1.1 200 OK ...\n");

sprintf(request, "HTTP/1.1 200 OK\r\nContent-Type: text/html; charset=UTF-8\r\nCache-Control: no-cache\r\nServer: TinyCHttpServer\r\nAccept-ranges: bytes\r\nTransfer-Encoding: chunked\r\nConnection: close\r\n");

send(AcceptSocket, request, strlen(request), 0);

sprintf(request, "<!DOCTYPE html><html lang=\"en\"><head><meta charset=\"UTF-8\"><meta name=\"viewport\" content=\"width=device-width, initial-scale=1\"><link href=\"data:image/x-icon;base64,AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAQAABILAAASCwAAAAAAAAAAAAD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD///SkxgD0pMYAAAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA//8AAPwfAAD8HwAA/B8AAPwfAAD8HwAA/B8AAPwfAAD8HwAA/B8AAPwfAACAAQAAgAEAAIABAACAAQAA//8AAA==\" rel=\"icon\" type=\"image/x-icon\"><style>html {line-break: anywhere;word-wrap: break-word;height: 100%%;padding: 0;margin: 0;}body {text-align: center;max-width: 920px;margin: auto;border-color: #bf4f00;border-style: solid;}b {color:#bf4f00;}</style><title>TinyCHttpServer: Index of %s</title></head><body><br>date time now: %d-%02d-%02d %02d:%02d:%02d\n<br>and random number: %d<p><h1><b>Index of %s</b></h1><p><a href=\"..\">..</a>\n", uri + 12, tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec, rand(), uri + 12);

sprintf(buf, "\r\n%x\r\n%s\r\n", strlen(request), request);

send(AcceptSocket, buf, strlen(buf), 0);

do {

if (strcmp(data.cFileName, ".") != 0 && strcmp(data.cFileName, "..") != 0) { // memset(text, 0, sizeof(text));memset(buf, 0, sizeof(buf));

sprintf(text, "<p><a href=\"%s\">%s</a> - %d\n", data.cFileName, data.cFileName, data.nFileSizeLow);

sprintf(buf, "%x\r\n%s\r\n", strlen(text), text);

send(AcceptSocket, buf, strlen(buf), 0);

}

} while (FindNextFile(hFind, &data));

FindClose(hFind);

sprintf(text, "<br><br><a href=\"/\">Back to root</a><p><b>TinyCHttpServer</b></body></html>");

sprintf(request, "%x\r\n%s\r\n", strlen(text), text);

send(AcceptSocket, request, strlen(request), 0);

send(AcceptSocket, "0\r\n\r\n", 5, 0);

closesocket(AcceptSocket);

printf("Socket Closed.\n\n");

continue;

}

} else {

uri[p] = '/';

uri[p + 1] = '*';

uri[p + 2] = '\0';

HANDLE hFind = FindFirstFile(uri, &data);

uri[p] = '/';

uri[p + 1] = '\0';

p = 0;

if (hFind != INVALID_HANDLE_VALUE) {

// do{p++;if(p>2){break;}}while(FindNextFile(hFind, &data));

FindClose(hFind);

printf("DIR FOUND!\nSend: HTTP/1.1 301 Moved Permanently ...\n");

// sprintf(request,"<html><head><title>301 Moved Permanently</title></head><body><center><h1>301 Moved Permanently</h1></center><hr><center>TinyCHttpServer</center></body></html>");

sprintf(buf, "HTTP/1.1 301 Moved Permanently\r\nContent-Type: text/html; charset=UTF-8\r\nLocation: %s\r\nCache-Control: no-cache\r\nServer: TinyCHttpServer\r\nAccept-ranges: bytes\r\nContent-Length: 158\r\nConnection: close\r\n\r\n<html><head><title>301 Moved Permanently</title></head><body><center><h1>301 Moved Permanently</h1></center><hr><center>TinyCHttpServer</center></body></html>", uri + 12);

send(AcceptSocket, buf, strlen(buf), 0);

closesocket(AcceptSocket);

printf("Socket Closed.\n\n");

continue;

}

}

sprintf(text, "<!DOCTYPE html><html lang=\"en\"><head><meta charset=\"UTF-8\"><meta name=\"viewport\" content=\"width=device-width, initial-scale=1\"><link href=\"data:image/x-icon;base64,AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAQAABILAAASCwAAAAAAAAAAAAD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYAAAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD///SkxgD0pMYAAAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA///0pMYA9KTGAAAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//9KTGAPSkxgAAAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD///SkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA9KTGAPSkxgD0pMYA//8AAPwfAAD8HwAA/B8AAPwfAAD8HwAA/B8AAPwfAAD8HwAA/B8AAPwfAACAAQAAgAEAAIABAACAAQAA//8AAA==\" rel=\"icon\" type=\"image/x-icon\"><style>html {line-break: anywhere;word-wrap: break-word;height: 100%%;padding: 0;margin: 0;}body {text-align: center;max-width: 920px;margin: auto;border-color: #bf4f00;border-style: solid;}b {color:#bf4f00;}</style><title>TinyCHttpServer: 404 Not Found</title></head><body><br>date time now: %d-%02d-%02d %02d:%02d:%02d\n<br>and random number: %d<p><h1><b>404 Page not found</b></h1><br><a href=\"/\">Back to root</a><p><b>TinyCHttpServer</b></body></html>\n", tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec, rand());

sprintf(request, "HTTP/1.1 404 Not Found\r\nContent-Type: text/html; charset=UTF-8\r\nCache-Control: no-cache\r\nAccept-ranges: bytes\r\nServer: TinyCHttpServer\r\nContent-Length: %d\r\nConnection: close\r\n\r\n%s", strlen(text), text);

printf("Send: HTTP/1.1 404 Not Found ...\n");

send(AcceptSocket, request, strlen(request), 0);

} else {

char* ext = strrchr(fname, '.');

char mimetype[32] = "application/octet-stream"; // Default mimetype

if (ext != NULL) {

ext++;

if (strcmp(ext, "txt") == 0) {

strcpy(mimetype, "text/plain; charset=UTF-8");

} else {

if (strcmp(ext, "html") == 0 || strcmp(ext, "htm") == 0 || strcmp(ext, "xhtml") == 0) {

strcpy(mimetype, "text/html; charset=UTF-8");

} else {

if (strcmp(ext, "jpeg") == 0 || strcmp(ext, "jpg") == 0 || strcmp(ext, "jfif") == 0) {

strcpy(mimetype, "image/jpg");

} else {

if (strcmp(ext, "css") == 0) {

strcpy(mimetype, "text/css");

} else {

if (strcmp(ext, "js") == 0) {

strcpy(mimetype, "application/javascript");

} else {

if (strcmp(ext, "json") == 0) {

strcpy(mimetype, "application/json");

} else {

if (strcmp(ext, "gif") == 0) {

strcpy(mimetype, "image/gif");

} else {

if (strcmp(ext, "png") == 0) {

strcpy(mimetype, "image/png");

} else {

if (strcmp(ext, "ico") == 0) {

strcpy(mimetype, "image/x-icon");

} else {

if (strcmp(ext, "webm") == 0) {

strcpy(mimetype, "video/webm");

} else {

if (strcmp(ext, "mp4") == 0 || strcmp(ext, "mp4v") == 0 || strcmp(ext, "mpg4") == 0) {

strcpy(mimetype, "video/mp4");

} else {

if (strcmp(ext, "mp3") == 0 || strcmp(ext, "m2a") == 0 || strcmp(ext, "m3a") == 0 || strcmp(ext, "mp2") == 0 || strcmp(ext, "mp2a") == 0 || strcmp(ext, "mpga") == 0) {

strcpy(mimetype, "audio/mpeg");

} else {

if (strcmp(ext, "svg") == 0 || strcmp(ext, "svgz") == 0) {

strcpy(mimetype, "image/svg+xml");

} else {

if (strcmp(ext, "wbmp") == 0) {

strcpy(mimetype, "image/vnd.wap.wbmp");

} else {

if (strcmp(ext, "webp") == 0) {

strcpy(mimetype, "image/webp");

}

}

}

}

}

}

}

}

send(AcceptSocket, request, strlen(request), 0);

fseek(fp, ranges[0][1], SEEK_SET);

sz = to_read;

p = (sz / 65536);

printf("Filesize=%lld bytes\n", sz);

for (p2 = 0; p2 < p; p2++) {

printf("Sending file: %d/%d ...\r", p2 + 1, p);

fread(request, 65536, 1, fp);

if (send(AcceptSocket, request, 65536, 0) == -1) {

break;

}

}

if (p > 0) {

if (p2 >= p) {

printf("\nFile sent successfully!\n");

} else {

printf("\nFile transfer interrupted.\n");

}

} else {

printf("File sent successfully!\n");

}

p = sz - (p * 65536);

fread(request, p, 1, fp);

send(AcceptSocket, request, p, 0);

fclose(fp);

closesocket(AcceptSocket);

printf("Socket Closed.\n\n");

continue;

}

} else {

sprintf(request, "HTTP/1.1 200 OK\r\nContent-Type: %s\r\nCache-Control: no-cache\r\nServer: TinyCHttpServer\r\nAccept-ranges: bytes\r\nContent-Length: %lld\r\nConnection: close\r\n\r\n", mimetype, sz);

printf("Send: HTTP/1.1 200 OK ...\n");

send(AcceptSocket, request, strlen(request), 0);

p = (sz / 65536);

printf("Filesize=%lld bytes\n", sz);

for (p2 = 0; p2 < p; p2++) {

printf("Sending file: %d/%d ...\r", p2 + 1, p);

fread(request, 65536, 1, fp);

if (send(AcceptSocket, request, 65536, 0) == -1) {

break;

}

}

if (p > 0) {

if (p2 >= p) {

printf("\nFile sent successfully!\n");

} else {

printf("\nFile transfer interrupted.\n");

}

} else {

printf("File sent successfully!\n");

}

p = sz - (p * 65536);

fread(request, p, 1, fp);

send(AcceptSocket, request, p, 0);

fclose(fp);

}

}

closesocket(AcceptSocket);

printf("Socket Closed.\n\n");

}

return 0;

}