/* * hidehost.c: Generates a hash for hostnames. * * Copyright (C) 2002 by the past and present ircd coders, and others. * Refer to the documentation within doc/authors/ for full credits and copyrights. * * Modified for use as an Unreal3.2 module by Allan Vejvoda * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 * USA * * $Id: hidehost.c,v 1.1.1.2 2006/01/12 07:57:07 allan Exp $ * */ /* ** ** Originally rewritten from AustNet's VirtualWorld Code. ** Virtual World written by Roger 'RogerY' Yerramsetti ** ** Rewritten using the crc32 implementation by //ylo based on the original ** implementation by Gary S. Brown ** ** hiddenhost implementation based on the code from UnrealIRCd by ** RaYmAn, NiQuiL, narf, Griever (great thinking) eternal, bball, JK.@ roxnet.org ** ** Additional ideas and code by ShadowMaster, [-Th3Dud3-] (RageIRCd) and Solaris @ Demonkarma.net ** ** Modified to work in Unreal3.2.2 by pomme. ** */ /* include stuff */ #include "config.h" #include "struct.h" #include "common.h" #include "sys.h" #include "numeric.h" #include "msg.h" #include "channel.h" #include #include #include #include #include #ifdef _WIN32 #include #endif #include #include "h.h" #ifdef _WIN32 #include "version.h" #endif int str2arr (char **, char *, char *); char *make_myvirthost (char *host); short ipv6_mask = 0, ipv4_mask = 0; /* some of this is taken from cloak.c made by syzop from the unrealircd team * I guess we should give him some credit for some of it :P --pomme */ static long cloak_key1 = 0, cloak_key2 = 0, cloak_key3 = 0; static int nokeys = 1; DLLFUNC int cloak_config_test(ConfigFile *, ConfigEntry *, int, int *); DLLFUNC int cloak_config_test2(ConfigFile *, ConfigEntry *, int, int *); DLLFUNC int cloak_config_run(ConfigFile *, ConfigEntry *, int); DLLFUNC int cloak_config_run2(ConfigFile *, ConfigEntry *, int); DLLFUNC int cloak_config_posttest(int *); DLLFUNC int cloak_rehash(void); DLLFUNC char *hidehost(char *); DLLFUNC char *cloakcsum(); Callback *cloak = NULL, *cloak_csum = NULL; static unsigned long my_crc32 (const unsigned char *, unsigned int); /* crc32_tab COPYRIGHT (C) 1986 Gary S. Brown. */ static unsigned long crc32_tab[] = { 0x00000000L, 0x77073096L, 0xee0e612cL, 0x990951baL, 0x076dc419L, 0x706af48fL, 0xe963a535L, 0x9e6495a3L, 0x0edb8832L, 0x79dcb8a4L, 0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7eb17cbdL, 0xe7b82d07L, 0x90bf1d91L, 0x1db71064L, 0x6ab020f2L, 0xf3b97148L, 0x84be41deL, 0x1adad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0x83d385c7L, 0x136c9856L, 0x646ba8c0L, 0xfd62f97aL, 0x8a65c9ecL, 0x14015c4fL, 0x63066cd9L, 0xfa0f3d63L, 0x8d080df5L, 0x3b6e20c8L, 0x4c69105eL, 0xd56041e4L, 0xa2677172L, 0x3c03e4d1L, 0x4b04d447L, 0xd20d85fdL, 0xa50ab56bL, 0x35b5a8faL, 0x42b2986cL, 0xdbbbc9d6L, 0xacbcf940L, 0x32d86ce3L, 0x45df5c75L, 0xdcd60dcfL, 0xabd13d59L, 0x26d930acL, 0x51de003aL, 0xc8d75180L, 0xbfd06116L, 0x21b4f4b5L, 0x56b3c423L, 0xcfba9599L, 0xb8bda50fL, 0x2802b89eL, 0x5f058808L, 0xc60cd9b2L, 0xb10be924L, 0x2f6f7c87L, 0x58684c11L, 0xc1611dabL, 0xb6662d3dL, 0x76dc4190L, 0x01db7106L, 0x98d220bcL, 0xefd5102aL, 0x71b18589L, 0x06b6b51fL, 0x9fbfe4a5L, 0xe8b8d433L, 0x7807c9a2L, 0x0f00f934L, 0x9609a88eL, 0xe10e9818L, 0x7f6a0dbbL, 0x086d3d2dL, 0x91646c97L, 0xe6635c01L, 0x6b6b51f4L, 0x1c6c6162L, 0x856530d8L, 0xf262004eL, 0x6c0695edL, 0x1b01a57bL, 0x8208f4c1L, 0xf50fc457L, 0x65b0d9c6L, 0x12b7e950L, 0x8bbeb8eaL, 0xfcb9887cL, 0x62dd1ddfL, 0x15da2d49L, 0x8cd37cf3L, 0xfbd44c65L, 0x4db26158L, 0x3ab551ceL, 0xa3bc0074L, 0xd4bb30e2L, 0x4adfa541L, 0x3dd895d7L, 0xa4d1c46dL, 0xd3d6f4fbL, 0x4369e96aL, 0x346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44042d73L, 0x33031de5L, 0xaa0a4c5fL, 0xdd0d7cc9L, 0x5005713cL, 0x270241aaL, 0xbe0b1010L, 0xc90c2086L, 0x5768b525L, 0x206f85b3L, 0xb966d409L, 0xce61e49fL, 0x5edef90eL, 0x29d9c998L, 0xb0d09822L, 0xc7d7a8b4L, 0x59b33d17L, 0x2eb40d81L, 0xb7bd5c3bL, 0xc0ba6cadL, 0xedb88320L, 0x9abfb3b6L, 0x03b6e20cL, 0x74b1d29aL, 0xead54739L, 0x9dd277afL, 0x04db2615L, 0x73dc1683L, 0xe3630b12L, 0x94643b84L, 0x0d6d6a3eL, 0x7a6a5aa8L, 0xe40ecf0bL, 0x9309ff9dL, 0x0a00ae27L, 0x7d079eb1L, 0xf00f9344L, 0x8708a3d2L, 0x1e01f268L, 0x6906c2feL, 0xf762575dL, 0x806567cbL, 0x196c3671L, 0x6e6b06e7L, 0xfed41b76L, 0x89d32be0L, 0x10da7a5aL, 0x67dd4accL, 0xf9b9df6fL, 0x8ebeeff9L, 0x17b7be43L, 0x60b08ed5L, 0xd6d6a3e8L, 0xa1d1937eL, 0x38d8c2c4L, 0x4fdff252L, 0xd1bb67f1L, 0xa6bc5767L, 0x3fb506ddL, 0x48b2364bL, 0xd80d2bdaL, 0xaf0a1b4cL, 0x36034af6L, 0x41047a60L, 0xdf60efc3L, 0xa867df55L, 0x316e8eefL, 0x4669be79L, 0xcb61b38cL, 0xbc66831aL, 0x256fd2a0L, 0x5268e236L, 0xcc0c7795L, 0xbb0b4703L, 0x220216b9L, 0x5505262fL, 0xc5ba3bbeL, 0xb2bd0b28L, 0x2bb45a92L, 0x5cb36a04L, 0xc2d7ffa7L, 0xb5d0cf31L, 0x2cd99e8bL, 0x5bdeae1dL, 0x9b64c2b0L, 0xec63f226L, 0x756aa39cL, 0x026d930aL, 0x9c0906a9L, 0xeb0e363fL, 0x72076785L, 0x05005713L, 0x95bf4a82L, 0xe2b87a14L, 0x7bb12baeL, 0x0cb61b38L, 0x92d28e9bL, 0xe5d5be0dL, 0x7cdcefb7L, 0x0bdbdf21L, 0x86d3d2d4L, 0xf1d4e242L, 0x68ddb3f8L, 0x1fda836eL, 0x81be16cdL, 0xf6b9265bL, 0x6fb077e1L, 0x18b74777L, 0x88085ae6L, 0xff0f6a70L, 0x66063bcaL, 0x11010b5cL, 0x8f659effL, 0xf862ae69L, 0x616bffd3L, 0x166ccf45L, 0xa00ae278L, 0xd70dd2eeL, 0x4e048354L, 0x3903b3c2L, 0xa7672661L, 0xd06016f7L, 0x4969474dL, 0x3e6e77dbL, 0xaed16a4aL, 0xd9d65adcL, 0x40df0b66L, 0x37d83bf0L, 0xa9bcae53L, 0xdebb9ec5L, 0x47b2cf7fL, 0x30b5ffe9L, 0xbdbdf21cL, 0xcabac28aL, 0x53b39330L, 0x24b4a3a6L, 0xbad03605L, 0xcdd70693L, 0x54de5729L, 0x23d967bfL, 0xb3667a2eL, 0xc4614ab8L, 0x5d681b02L, 0x2a6f2b94L, 0xb40bbe37L, 0xc30c8ea1L, 0x5a05df1bL, 0x2d02ef8dL }; ModuleHeader MOD_HEADER(cloak) = { "hidehost", "$Id: hidehost.c,v 1.1.1.2 2006/01/12 07:57:07 allan Exp $", "Generates a hash code to hide the user's realhost/IP address", "3.2-b8-1", NULL }; DLLFUNC int MOD_TEST(cloak)(ModuleInfo *modinfo) { cloak = CallbackAddPCharEx(modinfo->handle, CALLBACKTYPE_CLOAK, hidehost); if (!cloak) { config_error("cloak: Error while trying to install cloaking callback!"); return MOD_FAILED; } cloak_csum = CallbackAddPCharEx(modinfo->handle, CALLBACKTYPE_CLOAKKEYCSUM, cloakcsum); if (!cloak_csum) { config_error("cloak: Error while trying to install cloaking checksum callback!"); return MOD_FAILED; } HookAddEx(modinfo->handle, HOOKTYPE_CONFIGTEST, cloak_config_test); HookAddEx(modinfo->handle, HOOKTYPE_CONFIGTEST, cloak_config_test2); HookAddEx(modinfo->handle, HOOKTYPE_CONFIGPOSTTEST, cloak_config_posttest); return MOD_SUCCESS; } DLLFUNC int MOD_INIT(cloak)(ModuleInfo *modinfo) { /* This module is not official; it is a third party module * so don't mark it as an official module... * I removed MARK_AS_OFFICIAL_MODULE upon syzop's request * --pomme */ HookAddEx(modinfo->handle, HOOKTYPE_CONFIGRUN, cloak_config_run); HookAddEx(modinfo->handle, HOOKTYPE_CONFIGRUN, cloak_config_run2); HookAddEx(modinfo->handle, HOOKTYPE_REHASH, cloak_rehash); return MOD_SUCCESS; } DLLFUNC int MOD_LOAD(cloak)(int module_load) { return MOD_SUCCESS; } DLLFUNC int MOD_UNLOAD(cloak)(int module_unload) { if (cloak_key1) { cloak_key1 = NULL; cloak_key2 = NULL; cloak_key3 = NULL; } return MOD_SUCCESS; } /* Return a 32-bit CRC of the contents of the buffer. */ unsigned long my_crc32 (const unsigned char *s, unsigned int len) { unsigned int i; unsigned long crc32val; crc32val = 0; for (i = 0; i < len; i++) { crc32val = crc32_tab[(crc32val ^ s[i]) & 0xff] ^ (crc32val >> 8); } return crc32val; } /* * octets = str2arr(ip, "192.168.0.2", '.'); * * octets is 4 * ip[0] is 192 ip[1] is 168 ip[2] is 0 ip[3] is 2 * * --pomme */ int str2arr (char **pparv, char *string, char *delim) { char *tok; int pparc = 0; tok = (char *) strtok (string, delim); while (tok != NULL) { pparv[pparc++] = tok; tok = (char *) strtok (NULL, delim); } return pparc; } /* Time for a makeover */ char *make_myvirthost (char *host) { static char mask[HOSTLEN + 1]; char *parv[HOSTLEN + 1], *shash[8], *p; unsigned long hash[8]; short i=0, parc=0; if (strchr(host, ':')) { i=1; parc = str2arr(parv, host, ":"); } else parc = str2arr(parv, host, "."); if (i) { hash[0] = ((my_crc32 (parv[7], strlen (parv[7])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[0] <<= 2; hash[0] >>= 2; shash[0] = MyMalloc((7*sizeof(char))); snprintf(shash[0], 7, "%X", hash[0]); if (ipv6_mask >= 2) { hash[1] = ((my_crc32 (parv[6], strlen (parv[6])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[1] <<= 2; hash[1] >>= 2; shash[1] = MyMalloc((7*sizeof(char))); snprintf(shash[1], 7, "%X", hash[1]); } if (ipv6_mask >= 3) { hash[2] = ((my_crc32 (parv[5], strlen (parv[5])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[2] <<= 2; hash[2] >>= 2; shash[2] = MyMalloc((7*sizeof(char))); snprintf(shash[2], 7, "%X", hash[2]); } if (ipv6_mask >=4) { hash[3] = ((my_crc32 (parv[4], strlen (parv[4])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[3] <<= 2; hash[3] >>= 2; shash[3] = MyMalloc((7*sizeof(char))); snprintf(shash[3], 7, "%X", hash[3]); } if (ipv6_mask >=5) { hash[4] = ((my_crc32 (parv[3], strlen (parv[3])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[4] <<= 2; hash[4] >>= 2; shash[4] = MyMalloc((7*sizeof(char))); snprintf(shash[4], 7, "%X", hash[4]); } if (ipv6_mask >=6) { hash[5] = ((my_crc32 (parv[2], strlen (parv[2])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[5] <<= 2; hash[5] >>= 2; shash[5] = MyMalloc((7*sizeof(char))); snprintf(shash[5], 7, "%X", hash[5]); } if (ipv6_mask >=7) { hash[6] = ((my_crc32 (parv[1], strlen (parv[1])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[6] <<= 2; hash[6] >>= 2; shash[6] = MyMalloc((7*sizeof(char))); snprintf(shash[6], 7, "%X", hash[6]); } if (ipv6_mask >= 8) { hash[7] = ((my_crc32 (parv[0], strlen (parv[0])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[7] <<= 2; hash[7] >>= 2; shash[7] = MyMalloc((7*sizeof(char))); snprintf(shash[7], 7, "%X", hash[7]); } snprintf (mask, HOSTLEN, "%s:%s:%s:%s:%s:%s:%s:%s=", ipv6_mask>=8?shash[7]:parv[0], ipv6_mask>=7?shash[6]:parv[1], ipv6_mask>=6?shash[5]:parv[2], ipv6_mask>=5?shash[4]:parv[3], ipv6_mask>=4?shash[3]:parv[4], ipv6_mask>=3?shash[2]:parv[5], ipv6_mask>=2?shash[1]:parv[6], shash[0]); i=0; do { MyFree(shash[i]); i++; } while (i < ipv6_mask); return (char *)mask; } /* IPv4 */ if (parc == 4 && strchr ("0123456789", parv[3][strlen (parv[3]) - 1])) { hash[0] = ((my_crc32 (parv[3], strlen (parv[3])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[0] <<= 2; hash[0] >>= 2; shash[0] = MyMalloc((7*sizeof(char))); snprintf(shash[0], 7, "%X", hash[0]); if (ipv4_mask >= 2) { hash[1] = ((my_crc32 (parv[2], strlen (parv[2])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[1] <<= 2; hash[1] >>= 2; shash[1] = MyMalloc((7*sizeof(char))); snprintf(shash[1], 7, "%X", hash[1]); } if (ipv4_mask >= 3) { hash[2] = ((my_crc32 (parv[1], strlen (parv[1])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[2] <<= 2; hash[2] >>= 2; shash[2] = MyMalloc((7*sizeof(char))); snprintf(shash[2], 7, "%X", hash[2]); } if (ipv4_mask >= 4) { hash[3] = ((my_crc32 (parv[0], strlen (parv[0])) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[3] <<= 2; hash[3] >>= 2; shash[3] = MyMalloc((7*sizeof(char))); snprintf(shash[3], 7, "%X", hash[3]); } snprintf (mask, HOSTLEN, "%s.%s.%s.%s=", ipv4_mask>=4?shash[3]:parv[0], ipv4_mask>=3?shash[2]:parv[1], ipv4_mask>=2?shash[1]:parv[2], shash[0]); i=0; do { MyFree(shash[i]); i++; } while (i < ipv4_mask); return (char *)mask; } /* Taken from Unreal3.2.3's src/modules/cloak.c * * else... (An else statement is not needed, but you can imagine one here to * make this code easier to understand, incase my code is difficult to read) * */ for (p = host; *p; p++) if (*p == '.') if (IsAlpha(*(p + 1))) break; hash[0] = ((my_crc32 (host, strlen (host)) + cloak_key2) ^ cloak_key1) ^ cloak_key3; hash[0] <<= 2; hash[0] >>= 2; shash[0] = MyMalloc((7*sizeof(char))); snprintf(shash[0], 7, "%X", hash[0]); if (*p) { unsigned int len; p++; snprintf(mask, HOSTLEN, "%s-%s.", hidden_host, shash[0]); len = strlen(mask) + strlen(p); if (len <= HOSTLEN) strcat(mask, p); else strcat(mask, p + (len - HOSTLEN)); } else snprintf(mask, HOSTLEN, "%s-%s", hidden_host, shash[0]); MyFree(shash[0]); return (char *) mask; } /* these DLLFUNC things are conf stuff.. Im not documenting them, find out * for yourself. Trial and error :P * * --pomme */ DLLFUNC int cloak_config_test(ConfigFile *cf, ConfigEntry *ce, int type, int *errs) { ConfigEntry *cep; int keycnt = 0, errors = 0; char *keys[3]; if (type != CONFIG_CLOAKKEYS) return 0; nokeys = 0; for (cep = ce->ce_entries; cep; cep = cep->ce_next) { keycnt++; if (atoi(strdup(cep->ce_varname)) < 1000000) { config_error("%s:%i: set::cloak-keys: (key %d) Each key should be higher than 999999", cep->ce_fileptr->cf_filename, cep->ce_varlinenum, keycnt); errors++; } if (atoi(strdup(cep->ce_varname)) > 2147438645) { config_error("%s:%i: set::cloak-keys: (key %d) Each key should be lower than 2147438646", cep->ce_fileptr->cf_filename, cep->ce_varlinenum, keycnt); errors++; } if (keycnt < 4) keys[keycnt-1] = cep->ce_varname; } if (keycnt != 3) { config_error("%s:%i: set::cloak-keys: we want 3 values, not %i!", ce->ce_fileptr->cf_filename, ce->ce_varlinenum, keycnt); errors++; } if ((keycnt == 3) && (!strcmp(keys[0], keys[1]) || !strcmp(keys[1], keys[2]))) { config_error("%s:%i: set::cloak-keys: All your 3 keys should be RANDOM, they should not be equal", ce->ce_fileptr->cf_filename, ce->ce_varlinenum); errors++; } *errs = errors; return errors ? -1 : 1; } DLLFUNC int cloak_config_test2(ConfigFile *cf, ConfigEntry *ce, int type, int *errs) { int errors = 0; if (type != CONFIG_SET) return 0; if (!strcmp(ce->ce_varname, "ipv4_mask")) { if (!ce->ce_vardata) { config_error("%s:%i: set::ipv4_mask has no value", ce->ce_fileptr->cf_filename, ce->ce_varlinenum); errors++; } if (ce->ce_vardata && (atoi(ce->ce_vardata) > 4 || atoi(ce->ce_vardata) < 1)) { config_error("%s:%i: set::ipv4_mask %s bad value [1|2|3|4].", ce->ce_fileptr->cf_filename, ce->ce_varlinenum, ce->ce_vardata); errors++; } *errs = errors; return errors ? -1 : 1; } if (!strcmp(ce->ce_varname, "ipv6_mask")) { if (!ce->ce_vardata) { config_error("%s:%i: set::ipv6_mask has no value", ce->ce_fileptr->cf_filename, ce->ce_varlinenum); errors++; } if (ce->ce_vardata && (atoi(ce->ce_vardata) > 8 || atoi(ce->ce_vardata) < 1)) { config_error("%s:%i: set::ipv6_mask %s bad value [1|2|3|4|5|6|7|8].", ce->ce_fileptr->cf_filename, ce->ce_varlinenum, ce->ce_vardata); errors++; } *errs = errors; return errors ? -1 : 1; } else return 0; } DLLFUNC int cloak_config_posttest(int *errs) { int errors = 0; if (nokeys) { config_error("set::cloak-keys missing!"); errors++; } *errs = errors; return errors ? -1 : 1; } DLLFUNC int cloak_config_run(ConfigFile *cf, ConfigEntry *ce, int type) { ConfigEntry *cep; char buf[512], result[16]; MD5_CTX hash; if (type != CONFIG_CLOAKKEYS) return 0; /* config test should ensure this goes fine... */ cep = ce->ce_entries; cloak_key1 = atoi(strdup(cep->ce_varname)); cep = cep->ce_next; cloak_key2 = atoi(strdup(cep->ce_varname)); cep = cep->ce_next; cloak_key3 = atoi(strdup(cep->ce_varname)); return 1; } DLLFUNC int cloak_config_run2(ConfigFile *cf, ConfigEntry *ce, int type) { if (type != CONFIG_SET) return 0; if (!strcmp(ce->ce_varname, "ipv4_mask")) { if (ipv4_mask) ipv4_mask = 1; ipv4_mask = atoi(strdup(ce->ce_vardata)); return 1; } if (!strcmp(ce->ce_varname, "ipv6_mask")) { if (ipv6_mask) ipv6_mask = 1; ipv6_mask = atoi(strdup(ce->ce_vardata)); return 1; } else return 0; } DLLFUNC int cloak_rehash() { if (ipv4_mask) ipv4_mask = 1; if (ipv6_mask) ipv6_mask = 1; if (cloak_key1) cloak_key1 = 0; if (cloak_key2) cloak_key2 = 0; if (cloak_key3) cloak_key3 = 0; return 1; } /* this hides the users host by calling make_myvirthost :P * * --pomme */ DLLFUNC char *hidehost(char *host) { return make_myvirthost(host); } /* dunno wtf this does, so I'll nullify it. unreal wont start without it. * * --pomme */ DLLFUNC char *cloakcsum() { return NULL; }