test.c

#include <stdio.h> //printf
#include <string.h> //memset
#include <stdlib.h> //exit(0);
#include <unistd.h> //close
#ifdef WIN32
	#include <winsock.h>
	#include <io.h>
	#include "winerror.h"

	#define close closesocket
	#define sleep Sleep
	#define ONESEC 1000
#else
#include <arpa/inet.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <sys/select.h> //fd_set
#define ONESEC 1
#endif

#include <wchar.h>
#include <wctype.h>
#include <stddef.h>

#define BUFLEN 1400

#define ENABLE_DEBUG 1

#if ENABLE_DEBUG
#define LOG printf
#else
#define LOG(...)
#endif

#ifdef WIN32
typedef uint32_t u32;
typedef int socklen_t;

u32 resolv(char *host) {
	struct hostent *hp;
	u32 host_ip;

	host_ip = inet_addr(host);
	if(host_ip == INADDR_NONE) {
		hp = gethostbyname(host);
		if(!hp) {
			printf("\nError: Unable to resolv hostname (%s)\n\n", host);
			exit(1);
		} else host_ip = *(u32 *)(hp->h_addr);
	}
	return(host_ip);
}

int inet_aton(const char *cp, struct in_addr *addr) {
	addr->s_addr = inet_addr(cp);
	return (addr->s_addr == INADDR_NONE) ? 0 : 1;
}
#endif

static int waitTimeOut(int sock, unsigned int time) {

	fd_set readSet;
	FD_ZERO(&readSet);
	FD_SET(sock, &readSet);
	struct timeval timeVal;
	timeVal.tv_sec = time;
	timeVal.tv_usec = 0;
	if(select(sock+1, &readSet, NULL, NULL, &timeVal) > 0)
	{
		return 1;
	}
	return 0;
}

unsigned char players[931] = {
	0xFF, 0xFF, 0xFF, 0xFF, 0x73, 0x74, 0x61, 0x74, 0x75, 0x73, 0x52, 0x65,
	0x73, 0x70, 0x6F, 0x6E, 0x73, 0x65, 0x0A, 0x5C, 0x5F, 0x41, 0x64, 0x6D,
	0x69, 0x6E, 0x5C, 0x61, 0x64, 0x6D, 0x69, 0x6E, 0x5C, 0x5F, 0x45, 0x6D,
	0x61, 0x69, 0x6C, 0x5C, 0x61, 0x64, 0x6D, 0x69, 0x6E, 0x40, 0x37, 0x38,
	0x2E, 0x34, 0x37, 0x2E, 0x32, 0x32, 0x35, 0x2E, 0x34, 0x36, 0x5C, 0x5F,
	0x4C, 0x6F, 0x63, 0x61, 0x74, 0x69, 0x6F, 0x6E, 0x5C, 0x52, 0x53, 0x2C,
	0x20, 0x53, 0x65, 0x72, 0x62, 0x69, 0x61, 0x5C, 0x5F, 0x57, 0x65, 0x62,
	0x73, 0x69, 0x74, 0x65, 0x5C, 0x68, 0x74, 0x74, 0x70, 0x3A, 0x2F, 0x2F,
	0x37, 0x38, 0x2E, 0x34, 0x37, 0x2E, 0x32, 0x32, 0x35, 0x2E, 0x34, 0x36,
	0x5C, 0x67, 0x5F, 0x61, 0x6E, 0x74, 0x69, 0x6C, 0x61, 0x67, 0x5C, 0x31,
	0x5C, 0x67, 0x5F, 0x67, 0x61, 0x6D, 0x65, 0x74, 0x79, 0x70, 0x65, 0x5C,
	0x64, 0x6D, 0x5C, 0x67, 0x61, 0x6D, 0x65, 0x6E, 0x61, 0x6D, 0x65, 0x5C,
	0x43, 0x61, 0x6C, 0x6C, 0x20, 0x6F, 0x66, 0x20, 0x44, 0x75, 0x74, 0x79,
	0x20, 0x32, 0x5C, 0x6D, 0x61, 0x70, 0x6E, 0x61, 0x6D, 0x65, 0x5C, 0x6D,
	0x70, 0x5F, 0x7A, 0x61, 0x61, 0x66, 0x72, 0x61, 0x6E, 0x65, 0x5C, 0x70,
	0x72, 0x6F, 0x74, 0x6F, 0x63, 0x6F, 0x6C, 0x5C, 0x31, 0x31, 0x38, 0x5C,
	0x73, 0x63, 0x72, 0x5F, 0x66, 0x72, 0x69, 0x65, 0x6E, 0x64, 0x6C, 0x79,
	0x66, 0x69, 0x72, 0x65, 0x5C, 0x30, 0x5C, 0x73, 0x63, 0x72, 0x5F, 0x6B,
	0x69, 0x6C, 0x6C, 0x63, 0x61, 0x6D, 0x5C, 0x31, 0x5C, 0x73, 0x68, 0x6F,
	0x72, 0x74, 0x76, 0x65, 0x72, 0x73, 0x69, 0x6F, 0x6E, 0x5C, 0x31, 0x2E,
	0x33, 0x5C, 0x73, 0x76, 0x5F, 0x61, 0x6C, 0x6C, 0x6F, 0x77, 0x41, 0x6E,
	0x6F, 0x6E, 0x79, 0x6D, 0x6F, 0x75, 0x73, 0x5C, 0x30, 0x5C, 0x73, 0x76,
	0x5F, 0x66, 0x6C, 0x6F, 0x6F, 0x64, 0x50, 0x72, 0x6F, 0x74, 0x65, 0x63,
	0x74, 0x5C, 0x31, 0x5C, 0x73, 0x76, 0x5F, 0x68, 0x6F, 0x73, 0x74, 0x6E,
	0x61, 0x6D, 0x65, 0x5C, 0x5E, 0x31, 0x42, 0x41, 0x4C, 0x43, 0x41, 0x4E,
	0x20, 0x5E, 0x34, 0x43, 0x4F, 0x44, 0x32, 0x5C, 0x73, 0x76, 0x5F, 0x6D,
	0x61, 0x78, 0x63, 0x6C, 0x69, 0x65, 0x6E, 0x74, 0x73, 0x5C, 0x33, 0x36,
	0x5C, 0x73, 0x76, 0x5F, 0x6D, 0x61, 0x78, 0x50, 0x69, 0x6E, 0x67, 0x5C,
	0x33, 0x30, 0x30, 0x5C, 0x73, 0x76, 0x5F, 0x6D, 0x61, 0x78, 0x52, 0x61,
	0x74, 0x65, 0x5C, 0x32, 0x32, 0x30, 0x30, 0x30, 0x5C, 0x73, 0x76, 0x5F,
	0x6D, 0x69, 0x6E, 0x50, 0x69, 0x6E, 0x67, 0x5C, 0x30, 0x5C, 0x73, 0x76,
	0x5F, 0x70, 0x72, 0x69, 0x76, 0x61, 0x74, 0x65, 0x43, 0x6C, 0x69, 0x65,
	0x6E, 0x74, 0x73, 0x5C, 0x30, 0x5C, 0x73, 0x76, 0x5F, 0x70, 0x75, 0x6E,
	0x6B, 0x62, 0x75, 0x73, 0x74, 0x65, 0x72, 0x5C, 0x30, 0x5C, 0x73, 0x76,
	0x5F, 0x70, 0x75, 0x72, 0x65, 0x5C, 0x31, 0x5C, 0x73, 0x76, 0x5F, 0x76,
	0x6F, 0x69, 0x63, 0x65, 0x5C, 0x30, 0x5C, 0x70, 0x73, 0x77, 0x72, 0x64,
	0x5C, 0x30, 0x5C, 0x6D, 0x6F, 0x64, 0x5C, 0x31, 0x0A, 0x32, 0x34, 0x20,
	0x37, 0x36, 0x20, 0x22, 0x46, 0x47, 0x27, 0x20, 0x53, 0x6F, 0x4E, 0x4E,
	0x79, 0x22, 0x0A, 0x32, 0x33, 0x20, 0x34, 0x36, 0x20, 0x22, 0x5B, 0x6B,
	0x5E, 0x39, 0x30, 0x5E, 0x37, 0x7C, 0x5E, 0x39, 0x4C, 0x5E, 0x37, 0x65,
	0x63, 0x6B, 0x53, 0x69, 0x65, 0x4B, 0x6F, 0x6E, 0x5D, 0x22, 0x0A, 0x32,
	0x32, 0x20, 0x35, 0x30, 0x20, 0x22, 0x73, 0x6B, 0x69, 0x6E, 0x68, 0x65,
	0x61, 0x64, 0x73, 0x22, 0x0A, 0x32, 0x31, 0x20, 0x37, 0x37, 0x20, 0x22,
	0x74, 0x68, 0x6F, 0x4D, 0x50, 0x73, 0x6F, 0x6E, 0x22, 0x0A, 0x32, 0x30,
	0x20, 0x38, 0x37, 0x20, 0x22, 0x56, 0x69, 0x72, 0x74, 0x75, 0x65, 0x2E,
	0x44, 0x72, 0x75, 0x73, 0x68, 0x22, 0x0A, 0x31, 0x39, 0x20, 0x33, 0x35,
	0x20, 0x22, 0x4C, 0x6F, 0x4C, 0x2E, 0x6D, 0x70, 0x22, 0x0A, 0x31, 0x38,
	0x20, 0x35, 0x38, 0x20, 0x22, 0x23, 0x4D, 0x48, 0x42, 0x3A, 0x3A, 0x55,
	0x72, 0x77, 0x61, 0x6E, 0x22, 0x0A, 0x31, 0x37, 0x20, 0x34, 0x39, 0x20,
	0x22, 0x68, 0x34, 0x6E, 0x73, 0x22, 0x0A, 0x31, 0x36, 0x20, 0x37, 0x36,
	0x20, 0x22, 0x64, 0x32, 0x54, 0x2E, 0x54, 0x75, 0x72, 0x62, 0x6F, 0x48,
	0x49, 0x47, 0x48, 0x22, 0x0A, 0x31, 0x35, 0x20, 0x36, 0x35, 0x20, 0x22,
	0x2A, 0x52, 0x21, 0x50, 0x2A, 0x20, 0x5E, 0x36, 0x5A, 0x44, 0x52, 0x41,
	0x57, 0x45, 0x58, 0x22, 0x0A, 0x31, 0x34, 0x20, 0x32, 0x33, 0x20, 0x22,
	0x5B, 0x31, 0x31, 0x5D, 0x67, 0x6C, 0x79, 0x68, 0x69, 0x67, 0x68, 0x27,
	0x22, 0x0A, 0x31, 0x33, 0x20, 0x34, 0x33, 0x20, 0x22, 0xC3, 0xB3, 0x70,
	0x69, 0x75, 0x6D, 0x22, 0x0A, 0x31, 0x32, 0x20, 0x35, 0x34, 0x20, 0x22,
	0x5B, 0x76, 0x67, 0x5D, 0x46, 0x72, 0x73, 0x74, 0x22, 0x0A, 0x31, 0x31,
	0x20, 0x36, 0x34, 0x20, 0x22, 0x5B, 0x76, 0x67, 0x5D, 0x46, 0x72, 0x73,
	0x74, 0x22, 0x0A, 0x31, 0x30, 0x20, 0x36, 0x34, 0x20, 0x22, 0x5B, 0x31,
	0x6F, 0x6F, 0x6C, 0x61, 0x63, 0x5D, 0x20, 0x68, 0x61, 0x54, 0x61, 0x2A,
	0x22, 0x0A, 0x39, 0x20, 0x37, 0x37, 0x20, 0x22, 0x53, 0x4F, 0x4C, 0x4F,
	0x22, 0x0A, 0x38, 0x20, 0x38, 0x36, 0x20, 0x22, 0x3D, 0x4F, 0x53, 0x4D,
	0x3D, 0x41, 0x6D, 0x61, 0x6E, 0x74, 0x69, 0x73, 0x22, 0x0A, 0x37, 0x20,
	0x39, 0x31, 0x20, 0x22, 0x2A, 0x52, 0x21, 0x50, 0x2A, 0x20, 0x5E, 0x36,
	0x5A, 0x44, 0x52, 0x41, 0x57, 0x45, 0x58, 0x22, 0x0A, 0x36, 0x20, 0x33,
	0x39, 0x20, 0x22, 0x28, 0x2D, 0x47, 0x50, 0x53, 0x2D, 0x29, 0x4F, 0x77,
	0x6E, 0x33, 0x64, 0x22, 0x0A, 0x35, 0x20, 0x37, 0x39, 0x20, 0x22, 0x4A,
	0x6F, 0x21, 0x4E, 0x74, 0x7A, 0x7A, 0x22, 0x0A, 0x34, 0x20, 0x39, 0x34,
	0x20, 0x22, 0x42, 0x65, 0x72, 0x74, 0x61, 0x20, 0x69, 0x6E, 0x63, 0x61,
	0x7A, 0x7A, 0x30, 0x73, 0x6F, 0x22, 0x0A, 0x33, 0x20, 0x38, 0x32, 0x20,
	0x22, 0x73, 0x63, 0x72, 0x61, 0x70, 0x70, 0x79, 0x63, 0x6F, 0x63, 0x6F,
	0x22, 0x0A, 0x32, 0x20, 0x36, 0x34, 0x20, 0x22, 0x65, 0x4D, 0x75, 0x64,
	0x61, 0x2E, 0x4D, 0x61, 0x6E, 0x64, 0x61, 0x72, 0x31, 0x6E, 0x69, 0x22,
	0x0A, 0x31, 0x20, 0x36, 0x31, 0x20, 0x22, 0x57, 0x64, 0x43, 0x7C, 0x5E,
	0x38, 0x2E, 0x4D, 0x79, 0x72, 0x6F, 0x73, 0x22, 0x0A, 0x2D, 0x31, 0x20,
	0x34, 0x39, 0x20, 0x22, 0x65, 0x73, 0x75, 0x62, 0x61, 0x27, 0x20, 0x4C,
	0x75, 0x63, 0x6B, 0x65, 0x72, 0x22, 0x0A
};

static char remoteip[20];
static int remoteport = 28960;
static int localport = 32000;

static unsigned char *replace_str(const char *str, const char *old, const char *new)
{
	static unsigned char *ret;
	char *r;
	const char *p, *q;
	size_t oldlen = strlen(old);
	size_t count, retlen, newlen = strlen(new);

	if (oldlen != newlen) {
		for (count = 0, p = str; (q = strstr(p, old)) != NULL; p = q + oldlen)
			count++;
		/* this is undefined if p - str > PTRDIFF_MAX */
		retlen = p - str + strlen(p) + count * (newlen - oldlen);
	} else
		retlen = strlen(str);

	if ((ret = malloc(retlen + 1)) == NULL)
		return NULL;

	for (r = ret, p = str; (q = strstr(p, old)) != NULL; p = q + oldlen) {
		/* this is undefined if q - p > PTRDIFF_MAX */
		ptrdiff_t l = q - p;
		memcpy(r, p, l);
		r += l;
		memcpy(r, new, newlen);
		r += newlen;
	}
	strcpy(r, p);

	return ret;
}

static unsigned char *get_server_status(char *server, int port)
{
	struct sockaddr_in client;
	int s;
	int slen;
	static unsigned char buf[BUFLEN];
	char get_status[] = "\xFF\xFF\xFF\xFF" "getstatus";

	char *line;

	if ((s = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)) == -1)
		return players;

	memset((char *) &client, 0, sizeof(client));

	client.sin_family = AF_INET;
	client.sin_port = htons(port);

	if (inet_aton(server, &client.sin_addr) == 0) {
		close(s);
		return players;
	}

	slen = sizeof(client);

	if (sendto(s, get_status, strlen(get_status), 0, (struct sockaddr *)&client, slen) == -1) {
		close(s);
		return players;
	}

	if(!waitTimeOut(s, 3)) {
		close(s);
		return players;
	}

	memset(buf,'\0', BUFLEN);

	if (recvfrom(s, buf, BUFLEN, 0, (struct sockaddr *)&client, (socklen_t *)&slen) == -1) {
		close(s);
		return players;
	}

	close(s);
	LOG("----------------------\n    SERVER STATUS     \n----------------------\n%s\n", buf);
	return buf;
}

int main(int argc, char**argv)
{
	int sockfd, n;
	struct sockaddr_in servaddr, cliaddr;
	socklen_t len;
	char mesg[1000];
	unsigned char replace[1000];

#ifdef WIN32
	WSADATA wsadata;
	WSAStartup(MAKEWORD(1,0), &wsadata);
#endif

	printf("#######                                                    #######\n");
	printf("#######  Fake Gametracker player stats for Call Of Dutty 2 #######\n");
	printf("#######                                                    #######\n");
	printf("##################################################################\n\n");

	if (argc != 4) {
		printf("%s REMOTEIP REMOTEPORT LOCALPORT\n", argv[0]);
		return 0;
	} else {
		memset(remoteip,'\0', 20);
		snprintf(remoteip, sizeof(remoteip), "%s", argv[1]);
		remoteport = atoi(argv[2]);
		localport = atoi(argv[3]);
	}
 
	printf("Using player stats from: %s:%s and waiting for requests on local udp port: %s\n",
		 argv[1], argv[2], argv[3]);

	sockfd=socket(AF_INET,SOCK_DGRAM, 0);

	memset((char *) &servaddr, 0, sizeof(servaddr));
	servaddr.sin_family = AF_INET;
	servaddr.sin_addr.s_addr=htonl(INADDR_ANY);
	servaddr.sin_port=htons(localport);
	bind(sockfd,(struct sockaddr *)&servaddr, sizeof(servaddr));

	for (;;)
	{
		len = sizeof(cliaddr);
		n = recvfrom(sockfd, mesg, 1000, 0, (struct sockaddr *)&cliaddr, &len);
		if (n == -1)
			memset(mesg,'\0', 1000);
		else
			mesg[n] = 0;

		if (strstr(mesg, "getstatus") || strstr(mesg, "Getstatus")) {
			snprintf(replace, sizeof(replace), "%s", replace_str(get_server_status(remoteip, remoteport), "^3DAJKA I EKIPA^1//^6CoD2 server", "^1BALCAN ^4COD2"));
			sendto(sockfd, replace, sizeof(replace), 0, (struct sockaddr *)&cliaddr, sizeof(cliaddr));
			memset(replace,'\0', 1000);
		} else
			sendto(sockfd, "$", 1, 0, (struct sockaddr *)&cliaddr, sizeof(cliaddr));

		printf("--------------------------------------------\n    Request from: %s:%d     \n--------------------------------------------\n%s\n",
			 inet_ntoa(cliaddr.sin_addr), ntohs(cliaddr.sin_port), mesg);
	}

	close(sockfd);
	return 0;
}