C / C++ / MFC

void main( void )
{
    WSADATA wsaData;
    int rVal;
    char Str[32];
    SOCKET client;
 
    WSAStartup(MAKEWORD(1,1), &wsaData);
 
    //create socket
    SOCKET s = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
 
    //fill in sockaddr_in struct 
    SOCKADDR_IN sin, clientaddr;
    sin.sin_family = PF_INET;
    sin.sin_port = htons(13);
    sin.sin_addr.s_addr = INADDR_ANY;
 
    //bind the socket
    rVal = bind(s, (LPSOCKADDR) &sin, sizeof(sin));
 
    //get socket to listen 
    rVal = listen(s, 2);
 
    while (1)
    {
        int addrlen = sizeof(clientaddr);
 
        //wait for a client
        client = accept(s, (struct sockaddr *) &clientaddr, &addrlen);
 
        if (client < 0)
            continue;
 
        char *clienthost = inet_ntoa(clientaddr.sin_addr);
        int port = ntohs(clientaddr.sin_port);
 
        fprintf(stderr, "Received request from [%s] on port [%d]\n", clienthost, port);
 
        sprintf(Str, "Hello %s on %d", clienthost, port);
 
        rVal = send(client, Str, lstrlen(Str), 0);
 
        closesocket(client);
 
        fprintf(stderr, "Sent %s to client\n", Str);
    }
    
    closesocket(s);
 
    WSACleanup();
}

"When I was born I was so surprised that I didn't talk for a year and a half." - Gracie Allen