![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to unbaja.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3|
Return to unbaja.c CVS log | Up to [Synchronet] / sbbs / src / sbbs3 |
1.1 ! root 1: /* $Id: unbaja.c,v 1.34 2006/09/09 02:16:31 rswindell Exp $ */ ! 2: ! 3: #include <stdio.h> ! 4: #include <string.h> ! 5: ! 6: #include <stdlib.h> ! 7: ! 8: #include "dirwrap.h" ! 9: ! 10: #include "crc32.h" ! 11: ! 12: #include "cmdshell.h" ! 13: #include "ars_defs.h" ! 14: ! 15: int indent=0; ! 16: int indenteol=0; ! 17: ! 18: /* table of variables for use by bsearch() */ ! 19: ! 20: struct var_table_t { ! 21: unsigned long crc; ! 22: char *var; ! 23: } var_table[] = { ! 24: { 0x00000000, "STR" }, { 0x01837ca9, "r2" }, { 0x023e4b48, "fattr" }, ! 25: { 0x02408dc5, "_SYS_TIMEZONE" }, { 0x038a840b, "k1" }, ! 26: { 0x0400f83f, "e2" }, { 0x04807a11, "_USERON.LOGONS" }, ! 27: { 0x057e4cd4, "_TIMELEFT" }, { 0x07954570, "_USERON.XEDIT" }, ! 28: { 0x08f65a2a, "_USERON.MODEM" }, { 0x094cc42c, "_USERON.ROWS" }, ! 29: { 0x098bdfcb, "_USERON.TLAST" }, { 0x0bf3b87a, "w3" }, ! 30: { 0x0c1a1011, "_USERON.FLAGS2" }, { 0x0c8dcf3b, "_USERON.FBACKS" }, ! 31: { 0x0e42002a, "_EXPIRED_EXEMPT" }, { 0x0ea515b1, "_USERON.LASTON" }, ! 32: { 0x10bfc6e9, "_EXPIRED_FLAGS2" }, { 0x11c83294, "_SYS_PSNUM" }, ! 33: { 0x12e7d6d2, "_USERON.EXEMPT" }, { 0x12e8893b, "v3" }, ! 34: { 0x15755030, "_COMSPEC" }, { 0x167ea426, "pos" }, ! 35: { 0x16e2585f, "_CLIENT_SOCKET" }, { 0x176b0dad, "a3" }, ! 36: { 0x18984de8, "s2" }, { 0x19982a4f, "log" }, { 0x1a91b54a, "j1" }, ! 37: { 0x1c4455ee, "_DTE_RATE" }, { 0x1d1bc97e, "d2" }, ! 38: { 0x1e5052a7, "_MAX_MINUTES" }, { 0x1ef214ef, "_USERON.FIRSTON" }, ! 39: { 0x2039a29f, "_USERON.POSTS" }, { 0x205ace36, "_AUTOTERM" }, ! 40: { 0x2060efc3, "s" }, { 0x20cb6325, "_NEW_REST" }, ! 41: { 0x20deebb9, "t3" }, { 0x2105d2b9, "_SOCKET_ERROR" }, ! 42: { 0x222d1c26, "ss" }, { 0x22f01d71, "_NEW_FLAGS3" }, ! 43: { 0x23edbcbc, "nodes_wfc" }, { 0x255d6f2f, "c3" }, ! 44: { 0x270d2bda, "w" }, { 0x274e4d59, "nm" }, { 0x27a9fc7c, "attempt" }, ! 45: { 0x28a7d7c8, "h1" }, { 0x2aa89801, "_NODE_SWAP" }, ! 46: { 0x2aae2f6a, "q2" }, { 0x2aaf9bd3, "_USERON.EXPIRE" }, ! 47: { 0x2b3c257f, "_CUR_CPS" }, { 0x2c0c389a, "dir" }, ! 48: { 0x2f2dabfc, "f2" }, { 0x30ffd1ff, "cmdline" }, ! 49: { 0x31178ba2, "_NEW_CDT" }, { 0x3178f9d6, "_USERON.COMMENT" }, ! 50: { 0x31bce689, "i1" }, { 0x328ed476, "_USERON.LEVEL" }, ! 51: { 0x32ebcea0, "attr" }, { 0x330c7795, "k" }, { 0x33b51e2b, "p2" }, ! 52: { 0x3461b38c, "o" }, { 0x357b23ee, "total" }, ! 53: { 0x3587ad08, "cursor" }, { 0x36369abd, "g2" }, ! 54: { 0x381d3c2a, "_SYS_STATUS" }, { 0x396b7167, "_NETMAIL_COST" }, ! 55: { 0x39c5daf8, "u3" }, { 0x3a37c26b, "_NODE_EXT" }, ! 56: { 0x3aba3bbe, "g" }, { 0x3c465e6e, "b3" }, { 0x3d39d372, "argc" }, ! 57: { 0x3dc166bb, "path" }, { 0x3dd7ffa7, "c" }, ! 58: { 0x41239e21, "_CONNECTION" }, { 0x4131aa2b, "g3" }, ! 59: { 0x430178ec, "_UQ" }, { 0x4366831a, "n" }, { 0x440b4703, "j" }, ! 60: { 0x44b22ebd, "p3" }, { 0x455cb929, "_FTP_MODE" }, ! 61: { 0x4569c62e, "_EXPIRED_REST" }, { 0x46cd817e, "bytes" }, ! 62: { 0x490873f1, "_USERON.ALIAS" }, { 0x4a16a4ea, "filepos" }, ! 63: { 0x4a9f3955, "_USERON.EMAILS" }, { 0x4ad0cf31, "b" }, ! 64: { 0x4b0aeb24, "_NEW_EXEMPT" }, { 0x4b416ef8, "b2" }, ! 65: { 0x4b8a0705, "connect" }, { 0x4ccb12cc, "l1" }, ! 66: { 0x4db200d2, "_LEECH_PCT" }, { 0x4dbd0b28, "f" }, ! 67: { 0x4ec2ea6e, "u2" }, { 0x4ee1ff3a, "_USERON.LOCATION" }, ! 68: { 0x4f02623a, "_NODE_MINBPS" }, { 0x500a1b4c, "v" }, ! 69: { 0x5053a71b, "z1" }, { 0x50e43799, "argv" }, { 0x525a5fb9, "c2" }, ! 70: { 0x52996eab, "_USERON.TTODAY" }, { 0x55d0238d, "m1" }, ! 71: { 0x55f72de7, "_NEW_FLAGS2" }, { 0x5767df55, "r" }, ! 72: { 0x57d9db2f, "t2" }, { 0x582a9b6a, "f3" }, { 0x5863165a, "fname" }, ! 73: { 0x590175f1, "time" }, { 0x59bc5767, "z" }, ! 74: { 0x5a22d4bd, "_NODEFILE" }, { 0x5aaccfc5, "_ERRNO" }, ! 75: { 0x5b0d0c54, "_USERON.NS_TIME" }, { 0x5be35885, "guest" }, ! 76: { 0x5c1c1500, "_TOS" }, { 0x5da91ffc, "q3" }, ! 77: { 0x5de44e8b, "_USERON.NAME" }, { 0x5e049062, "_QUESTION" }, ! 78: { 0x5e914a47, "nodes_inuse" }, { 0x5eeaff21, "_NETMAIL_MISC" }, ! 79: { 0x606c3d3b, "a2" }, { 0x613b690e, "_ROWS" }, ! 80: { 0x6178e75f, "handle" }, { 0x61be0d36, "_USERON.QWK" }, ! 81: { 0x6265c599, "x1" }, { 0x6392dc62, "_SYS_AUTODEL" }, ! 82: { 0x640f7f81, "addr" }, { 0x65efb9ad, "v2" }, ! 83: { 0x665ac227, "_USERON.CHAT" }, { 0x67b8f67f, "_EXPIRED_FLAGS3" }, ! 84: { 0x67e6410f, "o1" }, { 0x682d973f, "start" }, ! 85: { 0x68b693b2, "name" }, { 0x698d59b4, "_SYS_NODES" }, ! 86: { 0x69d4f019, "ftime" }, { 0x6a1cf9e8, "d3" }, ! 87: { 0x6a9fd069, "LIMIT_REPSIZE" }, { 0x6c8e350a, "_NEW_LEVEL" }, ! 88: { 0x6f9f7d7e, "s3" }, { 0x6fb1c46e, "_SYS_EXP_WARN" }, ! 89: { 0x709c07da, "_NODE_MISC" }, { 0x7166336e, "hubid" }, ! 90: { 0x717231d6, "MAX_REPSIZE" }, { 0x7307c8a9, "e3" }, ! 91: { 0x7342a625, "_NEW_EXPIRE" }, { 0x7345219f, "_NEW_MIN" }, ! 92: { 0x7504b078, "port" }, { 0x75dc4306, "_NEW_PROT" }, ! 93: { 0x761cc978, "rep" }, { 0x76844c3f, "r3" }, ! 94: { 0x78afeaf1, "_SYS_PWDAYS" }, { 0x79f47b28, "attempts" }, ! 95: { 0x7ade6ef8, "local_file" }, { 0x7b1d2087, "_USERON.FLAGS3" }, ! 96: { 0x7b7ef4d8, "y1" }, { 0x7c602a37, "_USERON.MISC" }, ! 97: { 0x7c72376d, "_USERON.TIMEON" }, { 0x7cf488ec, "w2" }, ! 98: { 0x7d0ed0d1, "_CONSOLE" }, { 0x7dd9aac0, "_USERON.LEECH" }, ! 99: { 0x7e29c819, "_SYS_MISC" }, { 0x7efd704e, "n1" }, ! 100: { 0x7fbf958e, "_LNCNTR" }, { 0x81911c52, "s1" }, ! 101: { 0x82d9484e, "_INETMAIL_COST" }, { 0x82f6983b, "int" }, ! 102: { 0x8398e4f0, "j2" }, { 0x83aa2a6a, "_LOGONTIME" }, ! 103: { 0x83dea272, "pasv_mode" }, { 0x841298c4, "d1" }, ! 104: { 0x86cbce1e, "qwk" }, { 0x89b69753, "_EXPIRED_FLAGS1" }, ! 105: { 0x89c91dc8, "_USERON.PWMOD" }, { 0x89e82023, "o3" }, ! 106: { 0x8b12ba9d, "_POSTS_READ" }, { 0x8bf8a29a, "status" }, ! 107: { 0x8c6ba4b5, "x3" }, { 0x8e395209, "_LOGON_FBACKS" }, ! 108: { 0x908ece53, "_USERON.NUMBER" }, { 0x90f31162, "n3" }, ! 109: { 0x90fc82b4, "_CID" }, { 0x9154f82b, "logfile" }, ! 110: { 0x92fb364f, "_USERON.CDT" }, { 0x94d59a7a, "_USERON.BIRTH" }, ! 111: { 0x951341ab, "_USERON.FLAGS1" }, { 0x957095f4, "y3" }, ! 112: { 0x965b713b, "end" }, { 0x979ef1de, "_USERON.HANDLE" }, ! 113: { 0x97f99eef, "_ONLINE" }, { 0x988a2d13, "r1" }, ! 114: { 0x9a13bf95, "_USERON.ETODAY" }, { 0x9a7d9cca, "_LEECH_SEC" }, ! 115: { 0x9a83d5b1, "k2" }, { 0x9aab7a61, "len" }, { 0x9c0bdace, "date" }, ! 116: { 0x9c5051c9, "_LOGON_POSTS" }, { 0x9d09a985, "e1" }, ! 117: { 0x9e70e855, "_USERON.SEX" }, { 0x9e7638c7, "logonlst" }, ! 118: { 0xa0023a2e, "_STARTUP_OPTIONS" }, { 0xa15faa1f, "mode" }, ! 119: { 0xa1f0fcb7, "_NODE_SCRNBLANK" }, { 0xa278584f, "_NEW_MISC" }, ! 120: { 0xa2c573e0, "l3" }, { 0xa3b36a04, "d" }, ! 121: { 0xa4a51044, "bbs_name" }, { 0xa842c43b, "_USERON.ADDRESS" }, ! 122: { 0xa8b5b733, "i2" }, { 0xaa05262f, "h" }, { 0xaabc4f91, "p1" }, ! 123: { 0xabb91f93, "_USERON.DLB" }, { 0xabc4317e, "_USERON.PROT" }, ! 124: { 0xac58736f, "_LOGON_ULS" }, { 0xac72c50b, "_USERON.TEXTRA" }, ! 125: { 0xad1a21f0, "hash_mode" }, { 0xad68e236, "l" }, ! 126: { 0xadae1681, "_NODE_IVT" }, { 0xae256560, "_CUR_RATE" }, ! 127: { 0xae92d249, "_LAST_NS_TIME" }, { 0xaeb16536, "repsize" }, ! 128: { 0xaf3fcb07, "g1" }, { 0xb17e7914, "_NODE_VALUSER" }, ! 129: { 0xb1ae8672, "h2" }, { 0xb1bcba28, "_LOGON_DLS" }, ! 130: { 0xb31b556d, "phone" }, { 0xb3a77ed0, "q1" }, ! 131: { 0xb3f64be4, "_NEW_SHELL" }, { 0xb50cb889, "_NS_TIME" }, ! 132: { 0xb624fa46, "f1" }, { 0xb65dd6d4, "_USERON.ULB" }, ! 133: { 0xb7b2364b, "x" }, { 0xb9603173, "sock" }, { 0xb969be79, "p" }, ! 134: { 0xba0adba4, "file" }, { 0xba483fc2, "tmp" }, ! 135: { 0xbb063bfd, "user" }, { 0xbbde42a1, "m3" }, ! 136: { 0xbc9488d2, "_NEW_FLAGS4" }, { 0xbd1cee5d, "_USERON.LTODAY" }, ! 137: { 0xbda3fa42, "ascii_mode" }, { 0xbe047a60, "t" }, ! 138: { 0xbe5dc637, "z3" }, { 0xbef3c427, "dest" }, ! 139: { 0xbf31a280, "_ANSWERTIME" }, { 0xc0b506dd, "y" }, ! 140: { 0xc1093f61, "_USERON.DLS" }, { 0xc1ea73f2, "bbs_name_length" }, ! 141: { 0xc6a9b6e4, "h3" }, { 0xc6e8539d, "_LOGON_ULB" }, ! 142: { 0xc70d2fc0, "waitforstr" }, { 0xc7e0e8ce, "_USERON.NETMAIL" }, ! 143: { 0xc82ba467, "_LOGON_EMAILS" }, { 0xc8cd5fb7, "_USERON.COMP" }, ! 144: { 0xc9034af6, "u" }, { 0xc9082cbd, "_USERON.PTODAY" }, ! 145: { 0xc95af6a1, "z2" }, { 0xcb530e03, "c1" }, ! 146: { 0xcc7aca99, "_USERON.NOTE" }, { 0xccd97237, "m2" }, ! 147: { 0xccfe7c5d, "_NEW_FLAGS1" }, { 0xcdb7e4a9, "_USERON.PASS" }, ! 148: { 0xce6e8eef, "q" }, { 0xced08a95, "t1" }, ! 149: { 0xcf9ce02c, "_CDT_MIN_VALUE" }, { 0xd0a99c72, "_USERON.MIN" }, ! 150: { 0xd2483f42, "b1" }, { 0xd28e9da9, "debug_mode" }, ! 151: { 0xd3606303, "_USERON.TMPEXT" }, { 0xd3d99e8b, "a" }, ! 152: { 0xd42ccd08, "buf" }, { 0xd4b45a92, "e" }, { 0xd5c24376, "l2" }, ! 153: { 0xd7ae3022, "_USERON.FREECDT" }, { 0xd7cbbbd4, "u1" }, ! 154: { 0xd8222145, "sm" }, { 0xd859385f, "_SYS_DELDAYS" }, ! 155: { 0xd92803bb, "waitforbuf" }, { 0xda6fd2a0, "m" }, ! 156: { 0xdb0c9ada, "_LOGON_DLB" }, { 0xdcedf626, "_USERON.ULS" }, ! 157: { 0xdd0216b9, "i" }, { 0xdd982780, "_SYS_AUTONODE" }, ! 158: { 0xdf391ca7, "_SYS_LASTNODE" }, { 0xdfb287a5, "i3" }, ! 159: { 0xe277a562, "y2" }, { 0xe3920695, "result" }, ! 160: { 0xe51c1956, "_LOGFILE" }, { 0xe558c608, "_INETMAIL_MISC" }, ! 161: { 0xe579b524, "_USERON.FLAGS4" }, { 0xe5fdd956, "w1" }, ! 162: { 0xe7a7fb07, "_NODE_NUM" }, { 0xe7f421f4, "n2" }, ! 163: { 0xeb6c9c73, "_ERRORLEVEL" }, { 0xec2b8fb8, "_USERON.PHONE" }, ! 164: { 0xed84e527, "k3" }, { 0xedc643f1, "_MAX_QWKMSGS" }, ! 165: { 0xedf6aa98, "_USERON.SHELL" }, { 0xf000aa78, "_USERON.ZIPCODE" }, ! 166: { 0xf16182e9, "files" }, { 0xf19cd046, "_WORDWRAP" }, ! 167: { 0xf3f1da99, "password" }, { 0xf49fd466, "j3" }, ! 168: { 0xf53db6c7, "_NODE_SCRNLEN" }, { 0xf6e36607, "src" }, ! 169: { 0xf8e53990, "pass" }, { 0xf9656c81, "a1" }, ! 170: { 0xf9dc63dc, "_EXPIRED_FLAGS4" }, { 0xfa387529, "filename" }, ! 171: { 0xfad17b8e, "flen" }, { 0xfb394e27, "_EXPIRED_LEVEL" }, ! 172: { 0xfb6c9423, "x2" }, { 0xfcb5b274, "_CDT_PER_DOLLAR" }, ! 173: { 0xfce6e817, "v1" }, { 0xfcf3542e, "_MIN_DSPACE" }, ! 174: { 0xfd4b63d7, "htmlfile" }, { 0xfed3115d, "_USERON.REST" }, ! 175: { 0xfeef10b5, "o2" }, ! 176: }; ! 177: ! 178: #define members(x) (sizeof(x)/sizeof(x[0])) ! 179: ! 180: const char *char_table="________________________________________________123456789!_______BCDEFGHIJKLMNOPQRSTUVWXYZ0____A________________________________________________________________________________________________________________________________________________________________"; ! 181: const char *first_char_table="_________________________________________________________________BCDEFGHIJKLMNOPQRSTUVWXYZ!____A________________________________________________________________________________________________________________________________________________________________"; ! 182: unsigned char *brute_buf=NULL; ! 183: unsigned long *brute_crc_buf=NULL; ! 184: size_t brute_len=0; ! 185: char **bruted=NULL; ! 186: size_t bruted_len=0; ! 187: char **badbruted=NULL; ! 188: size_t badbruted_len=0; ! 189: ! 190: void add_bruted(unsigned long name, char good, char *val, int save) ! 191: { ! 192: char **new_bruted; ! 193: char *p; ! 194: FILE *cache; ! 195: ! 196: bruted_len++; ! 197: p=(char *)malloc(strlen(val)+6); ! 198: if(p==NULL) ! 199: return; ! 200: new_bruted=realloc(bruted, sizeof(char *)*bruted_len); ! 201: if(new_bruted==NULL) { ! 202: free(p); ! 203: return; ! 204: } ! 205: *(long *)p=name; ! 206: p[4]=good; ! 207: strcpy(p+5,val); ! 208: new_bruted[bruted_len-1]=p; ! 209: bruted=new_bruted; ! 210: if(*val && save) { ! 211: cache=fopen("unbaja.brute","a"); ! 212: if(cache!=NULL) { ! 213: fprintf(cache,"%08x,%hhd,%s\n",name,good,val); ! 214: fclose(cache); ! 215: } ! 216: } ! 217: } ! 218: ! 219: int check_bruted(long name,char *val) ! 220: { ! 221: int i; ! 222: ! 223: for(i=0; i<bruted_len; i++) { ! 224: if(*(long *)bruted[i]==name) { ! 225: if(!strcmp(val,bruted[i]+5)) ! 226: return(*(bruted[i]+4)); ! 227: } ! 228: } ! 229: return(2); ! 230: } ! 231: ! 232: char *find_bruted(long name) ! 233: { ! 234: int i; ! 235: ! 236: for(i=0; i<bruted_len; i++) { ! 237: if(*(long *)bruted[i]==name && *(bruted[i]+4)) ! 238: return(bruted[i]+5); ! 239: } ! 240: return(NULL); ! 241: } ! 242: ! 243: char* bruteforce(unsigned long name) ! 244: { ! 245: long this_crc=0; ! 246: char *ret; ! 247: int counter=0; ! 248: unsigned char *pos; ! 249: size_t l=0; ! 250: size_t i,j; ! 251: ! 252: if(!brute_len) ! 253: return(NULL); ! 254: if((ret=find_bruted(name))!=NULL) { ! 255: if(!(*ret)) ! 256: return(NULL); ! 257: return(ret); ! 258: } ! 259: memset(brute_buf,0,brute_len+1); ! 260: memset(brute_crc_buf,0,brute_len*sizeof(long)); ! 261: printf("Brute forcing var_%08x\n",name); ! 262: this_crc=crc32(brute_buf,0); ! 263: for(;;) { ! 264: pos=brute_buf+l; ! 265: if(pos>brute_buf) { ! 266: pos--; ! 267: while(pos>brute_buf) { ! 268: if(*pos!='9') { /* last char from more_chars */ ! 269: *pos=char_table[*pos]; ! 270: pos++; ! 271: i=(size_t)(pos-brute_buf); ! 272: memset(pos,'_',l-i); ! 273: /* Calculate all the following CRCs */ ! 274: for(i--;brute_buf[i];i++) ! 275: brute_crc_buf[i]=ucrc32(brute_buf[i],brute_crc_buf[i-1]); ! 276: goto LOOP_END; ! 277: } ! 278: else ! 279: pos--; ! 280: } ! 281: } ! 282: if(*pos=='Z' || *pos==0) { /* last char from first_chars */ ! 283: /* This the max? */ ! 284: if(l==brute_len) { ! 285: printf("\r%s Not found.\n",brute_buf); ! 286: add_bruted(name,1,"",0); ! 287: return(NULL); ! 288: } ! 289: /* Set string to '_' with one extra at end */ ! 290: memset(brute_buf,'_',++l); ! 291: brute_crc_buf[0]=ucrc32(brute_buf[0],~0UL); ! 292: for(i=1;brute_buf[i];i++) ! 293: brute_crc_buf[i]=ucrc32(brute_buf[i],brute_crc_buf[i-1]); ! 294: /* String is pre-filled with zeros so no need to terminate */ ! 295: goto LOOP_END; ! 296: } ! 297: *pos=first_char_table[*pos]; ! 298: memset(brute_buf+1,'_',l-1); ! 299: brute_crc_buf[0]=ucrc32(brute_buf[0],~0UL); ! 300: for(i=1;brute_buf[i];i++) ! 301: brute_crc_buf[i]=ucrc32(brute_buf[i],brute_crc_buf[i-1]); ! 302: ! 303: LOOP_END: ! 304: this_crc=~(brute_crc_buf[l-1]); ! 305: if(this_crc==name) { ! 306: switch(check_bruted(name,brute_buf)) { ! 307: case 0: ! 308: break; ! 309: case 2: ! 310: add_bruted(name,1,brute_buf,1); ! 311: case 1: ! 312: goto BRUTE_DONE; ! 313: } ! 314: if(check_bruted(name,brute_buf)) ! 315: break; ! 316: } ! 317: if(!((++counter)%10000)) ! 318: printf("\r%s ",brute_buf); ! 319: } ! 320: ! 321: BRUTE_DONE: ! 322: printf("\r%s Found!\n",brute_buf); ! 323: return(brute_buf); ! 324: } ! 325: ! 326: /* comparison function for var_table */ ! 327: static int vt_compare(const void *key, const void *table) { ! 328: if (*(unsigned long *)key == (*(struct var_table_t *)table).crc) return 0; ! 329: if (*(unsigned long *)key < (*(struct var_table_t *)table).crc) return -1; ! 330: return 1; ! 331: } ! 332: ! 333: char *getvar(long name) ! 334: { ! 335: static char varname[20]; ! 336: struct var_table_t *found; ! 337: char *brute; ! 338: ! 339: found = (struct var_table_t *)bsearch( &name, var_table, members( var_table ), ! 340: sizeof( struct var_table_t ), vt_compare ); ! 341: ! 342: if (found) { ! 343: strcpy( varname, (*found).var ); ! 344: } else { ! 345: brute=bruteforce(name); ! 346: if(brute) ! 347: strcpy(varname,brute); ! 348: else ! 349: sprintf(varname,"var_%08x",name); ! 350: } ! 351: ! 352: return(varname); ! 353: } ! 354: ! 355: void write_var(FILE *bin, char *src) ! 356: { ! 357: long lng; ! 358: ! 359: fread(&lng, 1, 4, bin); ! 360: sprintf(strchr(src,0),"%s ",getvar(lng)); ! 361: } ! 362: ! 363: void write_cstr(FILE *bin, char *src) ! 364: { ! 365: uchar ch; ! 366: char* p; ! 367: ! 368: strcat(src,"\""); ! 369: while(fread(&ch,1,1,bin)==1) { ! 370: if(ch==0) ! 371: break; ! 372: if((p=c_escape_char(ch))!=NULL) ! 373: sprintf(strchr(src,0),"%s",p); ! 374: else if(ch<' ' || ch > 126) ! 375: sprintf(strchr(src,0), "\\%03d", ch); ! 376: else ! 377: sprintf(strchr(src,0), "%c", ch); ! 378: } ! 379: strcat(src,"\" "); ! 380: } ! 381: ! 382: void write_lng(FILE *bin, char *src) ! 383: { ! 384: long lng; ! 385: ! 386: fread(&lng,4,1,bin); ! 387: sprintf(strchr(src,0),"%ld ",lng); ! 388: } ! 389: ! 390: void write_short(FILE *bin, char *src) ! 391: { ! 392: short sht; ! 393: ! 394: fread(&sht,2,1,bin); ! 395: sprintf(strchr(src,0),"%d ",sht); ! 396: } ! 397: ! 398: void write_ushort(FILE *bin, char *src) ! 399: { ! 400: ushort sht; ! 401: ! 402: fread(&sht,2,1,bin); ! 403: sprintf(strchr(src,0),"%d ",sht); ! 404: } ! 405: ! 406: void write_ch(FILE *bin, char *src) ! 407: { ! 408: char ch; ! 409: ! 410: fread(&ch,1,1,bin); ! 411: sprintf(strchr(src,0),"%c ",ch); ! 412: } ! 413: ! 414: void write_uchar(FILE *bin, char *src) ! 415: { ! 416: uchar uch; ! 417: ! 418: fread(&uch,1,1,bin); ! 419: sprintf(strchr(src,0),"%u ",uch); ! 420: } ! 421: ! 422: void write_logic(FILE *bin, char *src) ! 423: { ! 424: char ch; ! 425: fread(&ch,1,1,bin); ! 426: if(ch==LOGIC_TRUE) ! 427: strcat(src,"TRUE "); ! 428: else ! 429: strcat(src,"FALSE "); ! 430: } ! 431: ! 432: int write_key(FILE *bin, char *src, int keyset) ! 433: { ! 434: uchar uch; ! 435: fread(&uch,1,1,bin); ! 436: if(uch==0 && keyset) ! 437: return(uch); ! 438: if(uch==CS_DIGIT) ! 439: strcat(src,"DIGIT"); ! 440: else if(uch==CS_EDIGIT) ! 441: strcat(src,"EDIGIT"); ! 442: else if(uch==CR) ! 443: strcat(src,"\\r"); ! 444: else if(uch==LF) ! 445: strcat(src,"\\n"); ! 446: else if(uch==TAB) ! 447: strcat(src,"\\t"); ! 448: else if(uch==BS) ! 449: strcat(src,"\\b"); ! 450: else if(uch==BEL) ! 451: strcat(src,"\\a"); ! 452: else if(uch==FF) ! 453: strcat(src,"\\f"); ! 454: else if(uch==11) ! 455: strcat(src,"\\v"); ! 456: else if(uch & 0x80) ! 457: sprintf(strchr(src,0),"/%c",uch&0x7f); ! 458: else if(uch < ' ') ! 459: sprintf(strchr(src,0),"^%c",uch+0x40); ! 460: else if(uch=='\\') ! 461: strcat(src,"'\\'"); ! 462: else if(uch=='^') ! 463: strcat(src,"'^'"); ! 464: else if(uch=='/') ! 465: strcat(src,"'/'"); ! 466: else if(uch=='\'') ! 467: strcat(src,"\\'"); ! 468: else ! 469: sprintf(strchr(src,0),"%c",uch); ! 470: if(!keyset) ! 471: strcat(src," "); ! 472: return(uch);; ! 473: } ! 474: ! 475: void write_keys(FILE *bin, char *src) ! 476: { ! 477: while(write_key(bin,src,TRUE)); ! 478: strcat(src," "); ! 479: } ! 480: ! 481: void eol(char *src) ! 482: { ! 483: char *p; ! 484: p=strchr(src,0); ! 485: p--; ! 486: *p='\n'; ! 487: indent+=indenteol; ! 488: indenteol=0; ! 489: } ! 490: ! 491: #define WRITE_NAME(name) if(indent<0) indent=0; \ ! 492: sprintf(strchr(src,0),"%.*s"name" ",indent,"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t") \ ! 493: /* printf("%s\n",name) */ ! 494: ! 495: ! 496: #define KEYS(name) WRITE_NAME(name); \ ! 497: write_keys(bin,src); \ ! 498: eol(src); \ ! 499: break ! 500: ! 501: #define KEY(name) WRITE_NAME(name); \ ! 502: write_key(bin,src,FALSE); \ ! 503: eol(src); \ ! 504: break ! 505: ! 506: #define LGC(name) WRITE_NAME(name); \ ! 507: write_logic(bin,src); \ ! 508: eol(src); \ ! 509: break ! 510: ! 511: #define NONE(name) WRITE_NAME(name); \ ! 512: eol(src); \ ! 513: break ! 514: ! 515: #define VAR(name) WRITE_NAME(name); \ ! 516: write_var(bin,src); \ ! 517: eol(src); \ ! 518: break ! 519: ! 520: #define CH(name) WRITE_NAME(name); \ ! 521: write_ch(bin,src); \ ! 522: eol(src); \ ! 523: break ! 524: ! 525: #define CHCH(name) WRITE_NAME(name); \ ! 526: write_ch(bin,src); \ ! 527: write_ch(bin,src); \ ! 528: eol(src); \ ! 529: break ! 530: ! 531: #define UCH(name) WRITE_NAME(name); \ ! 532: write_uchar(bin,src); \ ! 533: eol(src); \ ! 534: break ! 535: ! 536: #define UCHUCH(name) WRITE_NAME(name); \ ! 537: write_uchar(bin,src); \ ! 538: write_uchar(bin,src); \ ! 539: eol(src); \ ! 540: break ! 541: ! 542: #define SHT(name) WRITE_NAME(name); \ ! 543: write_short(bin,src); \ ! 544: eol(src); \ ! 545: break ! 546: ! 547: ! 548: #define LNG(name) WRITE_NAME(name); \ ! 549: write_lng(bin,src); \ ! 550: eol(src); \ ! 551: break ! 552: ! 553: #define STR(name) WRITE_NAME(name); \ ! 554: write_cstr(bin,src); \ ! 555: eol(src); \ ! 556: break ! 557: ! 558: #define VARVAR(name) WRITE_NAME(name); \ ! 559: write_var(bin,src); \ ! 560: write_var(bin,src); \ ! 561: eol(src); \ ! 562: break ! 563: ! 564: #define VARUCH(name) WRITE_NAME(name); \ ! 565: write_var(bin,src); \ ! 566: write_uchar(bin,src); \ ! 567: eol(src); \ ! 568: break ! 569: ! 570: #define VARVARVAR(name) WRITE_NAME(name); \ ! 571: write_var(bin,src); \ ! 572: write_var(bin,src); \ ! 573: write_var(bin,src); \ ! 574: eol(src); \ ! 575: break ! 576: ! 577: #define VARSTR(name) WRITE_NAME(name); \ ! 578: write_var(bin,src); \ ! 579: write_cstr(bin,src); \ ! 580: eol(src); \ ! 581: break ! 582: ! 583: #define VARLNG(name) WRITE_NAME(name); \ ! 584: write_var(bin,src); \ ! 585: write_lng(bin,src); \ ! 586: eol(src); \ ! 587: break ! 588: ! 589: #define MUCH(name) WRITE_NAME(name); \ ! 590: if(usevar) { \ ! 591: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 592: usevar=FALSE; \ ! 593: fread(buf,1,1,bin); \ ! 594: } else { \ ! 595: write_uchar(bin,src); \ ! 596: } \ ! 597: eol(src); \ ! 598: break ! 599: ! 600: #define MSHT(name) WRITE_NAME(name); \ ! 601: if(usevar) { \ ! 602: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 603: usevar=FALSE; \ ! 604: fread(buf,2,1,bin); \ ! 605: } else { \ ! 606: write_short(bin,src); \ ! 607: } \ ! 608: eol(src); \ ! 609: break ! 610: ! 611: #define MVARLNG(name) WRITE_NAME(name); \ ! 612: write_var(bin,src); \ ! 613: if(usevar) { \ ! 614: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 615: usevar=FALSE; \ ! 616: fread(buf,4,1,bin); \ ! 617: } else { \ ! 618: write_lng(bin,src); \ ! 619: } \ ! 620: eol(src); \ ! 621: break ! 622: ! 623: #define MVARSHTUCH(name) WRITE_NAME(name); \ ! 624: write_var(bin,src); \ ! 625: write_short(bin,src); \ ! 626: if(usevar) { \ ! 627: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 628: usevar=FALSE; \ ! 629: fread(buf,1,1,bin); \ ! 630: } else { \ ! 631: write_uchar(bin,src); \ ! 632: } \ ! 633: eol(src); \ ! 634: break ! 635: ! 636: #define MVARSHT(name) WRITE_NAME(name); \ ! 637: write_var(bin,src); \ ! 638: if(usevar) { \ ! 639: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 640: usevar=FALSE; \ ! 641: fread(buf,2,1,bin); \ ! 642: } else { \ ! 643: write_short(bin,src); \ ! 644: } \ ! 645: eol(src); \ ! 646: break ! 647: ! 648: #define MVARUCH(name) WRITE_NAME(name); \ ! 649: write_var(bin,src); \ ! 650: if(usevar) { \ ! 651: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 652: usevar=FALSE; \ ! 653: fread(buf,1,1,bin); \ ! 654: } else { \ ! 655: write_uchar(bin,src); \ ! 656: } \ ! 657: eol(src); \ ! 658: break ! 659: ! 660: #define MVARVARNZUST(name) WRITE_NAME(name); \ ! 661: write_var(bin,src); \ ! 662: write_var(bin,src); \ ! 663: if(usevar) { \ ! 664: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 665: usevar=FALSE; \ ! 666: fread(buf,2,1,bin); \ ! 667: } else { \ ! 668: fread(&ush, 2, 1, bin); \ ! 669: if(ush) \ ! 670: sprintf(strchr(src,0),"%u ",ush); \ ! 671: } \ ! 672: eol(src); \ ! 673: break ! 674: ! 675: #define MVARVARUST(name) WRITE_NAME(name); \ ! 676: write_var(bin,src); \ ! 677: write_var(bin,src); \ ! 678: if(usevar) { \ ! 679: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 680: usevar=FALSE; \ ! 681: fread(buf,2,1,bin); \ ! 682: } else { \ ! 683: write_ushort(bin,src); \ ! 684: } \ ! 685: eol(src); \ ! 686: break ! 687: ! 688: #define MVARUSTVAR(name) WRITE_NAME(name); \ ! 689: write_var(bin,src); \ ! 690: if(usevar) { \ ! 691: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 692: usevar=FALSE; \ ! 693: fread(buf,2,1,bin); \ ! 694: } else { \ ! 695: write_ushort(bin,src); \ ! 696: } \ ! 697: write_var(bin,src); \ ! 698: eol(src); \ ! 699: break ! 700: ! 701: #define MVARUSTSTR(name) WRITE_NAME(name); \ ! 702: write_var(bin,src); \ ! 703: if(usevar) { \ ! 704: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 705: usevar=FALSE; \ ! 706: fread(buf,2,1,bin); \ ! 707: } else { \ ! 708: write_ushort(bin,src); \ ! 709: } \ ! 710: write_cstr(bin,src); \ ! 711: eol(src); \ ! 712: break ! 713: ! 714: #define MLNG(name) WRITE_NAME(name); \ ! 715: if(usevar) { \ ! 716: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 717: usevar=FALSE; \ ! 718: fread(buf,4,1,bin); \ ! 719: } else { \ ! 720: write_lng(bin,src); \ ! 721: } \ ! 722: eol(src); \ ! 723: break ! 724: ! 725: #define MLNGVAR(name) WRITE_NAME(name); \ ! 726: if(usevar) { \ ! 727: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 728: usevar=FALSE; \ ! 729: fread(buf,4,1,bin); \ ! 730: } else { \ ! 731: write_lng(bin,src); \ ! 732: } \ ! 733: write_var(bin,src); \ ! 734: eol(src); \ ! 735: break ! 736: ! 737: #define MSHTSTR(name) WRITE_NAME(name); \ ! 738: if(usevar) { \ ! 739: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 740: usevar=FALSE; \ ! 741: fread(buf,2,1,bin); \ ! 742: } else { \ ! 743: write_short(bin,src); \ ! 744: } \ ! 745: write_cstr(bin,src); \ ! 746: eol(src); \ ! 747: break ! 748: ! 749: #define MLNGSTR(name) WRITE_NAME(name); \ ! 750: if(usevar) { \ ! 751: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 752: usevar=FALSE; \ ! 753: fread(buf,4,1,bin); \ ! 754: } else { \ ! 755: write_lng(bin,src); \ ! 756: } \ ! 757: write_cstr(bin,src); \ ! 758: eol(src); \ ! 759: break ! 760: ! 761: #define MVARLNGLNG(name) WRITE_NAME(name); \ ! 762: write_var(bin,src); \ ! 763: if(usevar) { \ ! 764: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 765: usevar=FALSE; \ ! 766: fread(buf,4,1,bin); \ ! 767: } else { \ ! 768: write_lng(bin,src); \ ! 769: } \ ! 770: write_lng(bin,src); \ ! 771: eol(src); \ ! 772: break ! 773: ! 774: #define MVARUCHLNG(name) WRITE_NAME(name); \ ! 775: write_var(bin,src); \ ! 776: if(usevar) { \ ! 777: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 778: usevar=FALSE; \ ! 779: fread(buf,1,1,bin); \ ! 780: } else { \ ! 781: write_uchar(bin,src); \ ! 782: } \ ! 783: write_lng(bin,src); \ ! 784: eol(src); \ ! 785: break ! 786: ! 787: #define MVARCH(name) WRITE_NAME(name); \ ! 788: write_var(bin,src); \ ! 789: if(usevar) { \ ! 790: sprintf(strchr(src,0),"%s ",getvar(var)); \ ! 791: usevar=FALSE; \ ! 792: fread(buf,1,1,bin); \ ! 793: } else { \ ! 794: write_ch(bin,src); \ ! 795: } \ ! 796: eol(src); \ ! 797: break ! 798: ! 799: #define VARSTRVAR(name) WRITE_NAME(name); \ ! 800: write_var(bin,src); \ ! 801: write_cstr(bin,src); \ ! 802: write_var(bin,src); \ ! 803: eol(src); \ ! 804: break ! 805: ! 806: #define UCHVARSTR(name) WRITE_NAME(name); \ ! 807: write_uchar(bin,src); \ ! 808: write_var(bin,src); \ ! 809: write_cstr(bin,src); \ ! 810: eol(src); \ ! 811: break ! 812: ! 813: #define UCHVARVAR(name) WRITE_NAME(name); \ ! 814: write_uchar(bin,src); \ ! 815: write_var(bin,src); \ ! 816: write_var(bin,src); \ ! 817: eol(src); \ ! 818: break ! 819: ! 820: #define UCHVAR(name) WRITE_NAME(name); \ ! 821: write_uchar(bin,src); \ ! 822: write_var(bin,src); \ ! 823: eol(src); \ ! 824: break ! 825: ! 826: #define UCHSTR(name) WRITE_NAME(name); \ ! 827: write_uchar(bin,src); \ ! 828: write_cstr(bin,src); \ ! 829: eol(src); \ ! 830: break ! 831: ! 832: #define CHSTR(name) WRITE_NAME(name); \ ! 833: write_ch(bin,src); \ ! 834: write_cstr(bin,src); \ ! 835: eol(src); \ ! 836: break ! 837: ! 838: #define VARCH(name) WRITE_NAME(name); \ ! 839: write_var(bin,src); \ ! 840: write_ch(bin,src); \ ! 841: eol(src); \ ! 842: break ! 843: ! 844: #define CHVAR(name) WRITE_NAME(name); \ ! 845: write_ch(bin,src); \ ! 846: write_var(bin,src); \ ! 847: eol(src); \ ! 848: break ! 849: ! 850: #define VARVARSHT(name) WRITE_NAME(name); \ ! 851: write_var(bin,src); \ ! 852: write_var(bin,src); \ ! 853: write_short(bin,src);\ ! 854: eol(src); \ ! 855: break ! 856: ! 857: #define VARVARUST(name) WRITE_NAME(name); \ ! 858: write_var(bin,src); \ ! 859: write_var(bin,src); \ ! 860: write_ushort(bin,src);\ ! 861: eol(src); \ ! 862: break ! 863: ! 864: char *decompile_ars(uchar *ars, int len) ! 865: { ! 866: static char buf[1024]; ! 867: char *out; ! 868: uchar *in; ! 869: uint artype; ! 870: uint n; ! 871: int equals=0; ! 872: int not=0; ! 873: ! 874: out=buf; ! 875: buf[0]=0; ! 876: for(in=ars;in<ars+len;in++) { ! 877: switch(*in) { ! 878: case AR_NULL: ! 879: break; ! 880: case AR_OR: ! 881: *(out++)='|'; ! 882: artype=*in; ! 883: break; ! 884: case AR_NOT: ! 885: not=1; ! 886: break; ! 887: case AR_EQUAL: ! 888: equals=1; ! 889: break; ! 890: case AR_BEGNEST: ! 891: if(not) ! 892: *(out++)='!'; ! 893: not=0; ! 894: *(out++)='('; ! 895: artype=*in; ! 896: break; ! 897: case AR_ENDNEST: ! 898: *(out++)=')'; ! 899: artype=*in; ! 900: break; ! 901: case AR_LEVEL: ! 902: *(out++)='$'; ! 903: *(out++)='L'; ! 904: artype=*in; ! 905: break; ! 906: case AR_AGE: ! 907: *(out++)='$'; ! 908: *(out++)='A'; ! 909: artype=*in; ! 910: break; ! 911: case AR_BPS: ! 912: *(out++)='$'; ! 913: *(out++)='B'; ! 914: artype=*in; ! 915: break; ! 916: case AR_NODE: ! 917: *(out++)='$'; ! 918: *(out++)='N'; ! 919: artype=*in; ! 920: break; ! 921: case AR_TLEFT: ! 922: *(out++)='$'; ! 923: *(out++)='R'; ! 924: artype=*in; ! 925: break; ! 926: case AR_TUSED: ! 927: *(out++)='$'; ! 928: *(out++)='O'; ! 929: artype=*in; ! 930: break; ! 931: case AR_USER: ! 932: *(out++)='$'; ! 933: *(out++)='U'; ! 934: artype=*in; ! 935: break; ! 936: case AR_TIME: ! 937: *(out++)='$'; ! 938: *(out++)='T'; ! 939: artype=*in; ! 940: break; ! 941: case AR_PCR: ! 942: *(out++)='$'; ! 943: *(out++)='P'; ! 944: artype=*in; ! 945: break; ! 946: case AR_FLAG1: ! 947: *(out++)='$'; ! 948: *(out++)='F'; ! 949: *(out++)='1'; ! 950: artype=*in; ! 951: break; ! 952: case AR_FLAG2: ! 953: *(out++)='$'; ! 954: *(out++)='F'; ! 955: *(out++)='2'; ! 956: artype=*in; ! 957: break; ! 958: case AR_FLAG3: ! 959: *(out++)='$'; ! 960: *(out++)='F'; ! 961: *(out++)='3'; ! 962: artype=*in; ! 963: break; ! 964: case AR_FLAG4: ! 965: *(out++)='$'; ! 966: *(out++)='F'; ! 967: *(out++)='4'; ! 968: artype=*in; ! 969: break; ! 970: case AR_EXEMPT: ! 971: *(out++)='$'; ! 972: *(out++)='X'; ! 973: artype=*in; ! 974: break; ! 975: case AR_REST: ! 976: *(out++)='$'; ! 977: *(out++)='Z'; ! 978: artype=*in; ! 979: break; ! 980: case AR_SEX: ! 981: *(out++)='$'; ! 982: *(out++)='S'; ! 983: artype=*in; ! 984: break; ! 985: case AR_UDR: ! 986: *(out++)='$'; ! 987: *(out++)='K'; ! 988: artype=*in; ! 989: break; ! 990: case AR_UDFR: ! 991: *(out++)='$'; ! 992: *(out++)='D'; ! 993: artype=*in; ! 994: break; ! 995: case AR_EXPIRE: ! 996: *(out++)='$'; ! 997: *(out++)='E'; ! 998: artype=*in; ! 999: break; ! 1000: case AR_CREDIT: ! 1001: *(out++)='$'; ! 1002: *(out++)='C'; ! 1003: artype=*in; ! 1004: break; ! 1005: case AR_DAY: ! 1006: *(out++)='$'; ! 1007: *(out++)='W'; ! 1008: artype=*in; ! 1009: break; ! 1010: case AR_ANSI: ! 1011: if(not) ! 1012: *(out++)='!'; ! 1013: not=0; ! 1014: *(out++)='$'; ! 1015: *(out++)='['; ! 1016: artype=*in; ! 1017: break; ! 1018: case AR_RIP: ! 1019: if(not) ! 1020: *(out++)='!'; ! 1021: not=0; ! 1022: *(out++)='$'; ! 1023: *(out++)='*'; ! 1024: artype=*in; ! 1025: break; ! 1026: case AR_LOCAL: ! 1027: if(not) ! 1028: *(out++)='!'; ! 1029: not=0; ! 1030: *(out++)='$'; ! 1031: *(out++)='G'; ! 1032: artype=*in; ! 1033: break; ! 1034: case AR_GROUP: ! 1035: *(out++)='$'; ! 1036: *(out++)='M'; ! 1037: artype=*in; ! 1038: break; ! 1039: case AR_SUB: ! 1040: *(out++)='$'; ! 1041: *(out++)='H'; ! 1042: artype=*in; ! 1043: break; ! 1044: case AR_LIB: ! 1045: *(out++)='$'; ! 1046: *(out++)='I'; ! 1047: artype=*in; ! 1048: break; ! 1049: case AR_DIR: ! 1050: *(out++)='$'; ! 1051: *(out++)='J'; ! 1052: artype=*in; ! 1053: break; ! 1054: case AR_EXPERT : ! 1055: if(not) ! 1056: *(out++)='!'; ! 1057: not=0; ! 1058: *out=0; ! 1059: strcat(out,"EXPERT"); ! 1060: out=strchr(buf,0); ! 1061: artype=*in; ! 1062: break; ! 1063: case AR_SYSOP: ! 1064: if(not) ! 1065: *(out++)='!'; ! 1066: not=0; ! 1067: *out=0; ! 1068: strcat(out,"SYSOP"); ! 1069: out=strchr(buf,0); ! 1070: artype=*in; ! 1071: break; ! 1072: case AR_QUIET: ! 1073: if(not) ! 1074: *(out++)='!'; ! 1075: not=0; ! 1076: *out=0; ! 1077: strcat(out,"QUIET"); ! 1078: out=strchr(buf,0); ! 1079: artype=*in; ! 1080: break; ! 1081: case AR_MAIN_CMDS: ! 1082: *out=0; ! 1083: strcat(out,"MAIN_CMDS"); ! 1084: out=strchr(buf,0); ! 1085: artype=*in; ! 1086: break; ! 1087: case AR_FILE_CMDS: ! 1088: *out=0; ! 1089: strcat(out,"FILE_CMDS"); ! 1090: out=strchr(buf,0); ! 1091: artype=*in; ! 1092: break; ! 1093: case AR_RANDOM: ! 1094: *(out++)='$'; ! 1095: *(out++)='Q'; ! 1096: artype=*in; ! 1097: break; ! 1098: case AR_LASTON: ! 1099: *(out++)='$'; ! 1100: *(out++)='Y'; ! 1101: artype=*in; ! 1102: break; ! 1103: case AR_LOGONS: ! 1104: *(out++)='$'; ! 1105: *(out++)='V'; ! 1106: artype=*in; ! 1107: break; ! 1108: case AR_WIP: ! 1109: if(not) ! 1110: *(out++)='!'; ! 1111: not=0; ! 1112: *out=0; ! 1113: strcat(out,"WIP"); ! 1114: out=strchr(buf,0); ! 1115: artype=*in; ! 1116: break; ! 1117: case AR_SUBCODE: ! 1118: *out=0; ! 1119: strcat(out,"SUBCODE"); ! 1120: out=strchr(buf,0); ! 1121: artype=*in; ! 1122: break; ! 1123: case AR_DIRCODE: ! 1124: *out=0; ! 1125: strcat(out,"DIRCODE"); ! 1126: out=strchr(buf,0); ! 1127: artype=*in; ! 1128: break; ! 1129: case AR_OS2: ! 1130: if(not) ! 1131: *(out++)='!'; ! 1132: not=0; ! 1133: *out=0; ! 1134: strcat(out,"OS2"); ! 1135: out=strchr(buf,0); ! 1136: artype=*in; ! 1137: break; ! 1138: case AR_DOS: ! 1139: if(not) ! 1140: *(out++)='!'; ! 1141: not=0; ! 1142: *out=0; ! 1143: strcat(out,"DOS"); ! 1144: out=strchr(buf,0); ! 1145: artype=*in; ! 1146: break; ! 1147: case AR_WIN32: ! 1148: if(not) ! 1149: *(out++)='!'; ! 1150: not=0; ! 1151: *out=0; ! 1152: strcat(out,"WIN32"); ! 1153: out=strchr(buf,0); ! 1154: artype=*in; ! 1155: break; ! 1156: case AR_UNIX: ! 1157: if(not) ! 1158: *(out++)='!'; ! 1159: not=0; ! 1160: *out=0; ! 1161: strcat(out,"UNIX"); ! 1162: out=strchr(buf,0); ! 1163: artype=*in; ! 1164: break; ! 1165: case AR_LINUX : ! 1166: if(not) ! 1167: *(out++)='!'; ! 1168: not=0; ! 1169: *out=0; ! 1170: strcat(out,"LINUX"); ! 1171: out=strchr(buf,0); ! 1172: artype=*in; ! 1173: break; ! 1174: case AR_SHELL: ! 1175: *out=0; ! 1176: strcat(out,"SHELL"); ! 1177: out=strchr(buf,0); ! 1178: artype=*in; ! 1179: break; ! 1180: case AR_PROT: ! 1181: if(not) ! 1182: *(out++)='!'; ! 1183: not=0; ! 1184: *out=0; ! 1185: strcat(out,"PROT"); ! 1186: out=strchr(buf,0); ! 1187: artype=*in; ! 1188: break; ! 1189: case AR_GUEST: ! 1190: if(not) ! 1191: *(out++)='!'; ! 1192: not=0; ! 1193: *out=0; ! 1194: strcat(out,"GUEST"); ! 1195: out=strchr(buf,0); ! 1196: artype=*in; ! 1197: break; ! 1198: case AR_QNODE: ! 1199: if(not) ! 1200: *(out++)='!'; ! 1201: not=0; ! 1202: *out=0; ! 1203: strcat(out,"QNODE"); ! 1204: out=strchr(buf,0); ! 1205: artype=*in; ! 1206: break; ! 1207: default: ! 1208: printf("Error decoding ARS!\n"); ! 1209: return("Unknown ARS String"); ! 1210: } ! 1211: switch(*in) { ! 1212: case AR_TIME: ! 1213: if(not) ! 1214: *(out++)='!'; ! 1215: if(equals) ! 1216: *(out++)='='; ! 1217: not=equals=0; ! 1218: in++; ! 1219: n=*((short *)in); ! 1220: in++; ! 1221: out+=sprintf(out,"%02d:%02d",n/60,n%60); ! 1222: break; ! 1223: case AR_AGE: /* byte operands */ ! 1224: case AR_PCR: ! 1225: case AR_UDR: ! 1226: case AR_UDFR: ! 1227: case AR_NODE: ! 1228: case AR_LEVEL: ! 1229: case AR_TLEFT: ! 1230: case AR_TUSED: ! 1231: if(not) ! 1232: *(out++)='!'; ! 1233: if(equals) ! 1234: *(out++)='='; ! 1235: not=equals=0; ! 1236: in++; ! 1237: out+=sprintf(out,"%d",*in); ! 1238: break; ! 1239: case AR_BPS: /* int operands */ ! 1240: case AR_MAIN_CMDS: ! 1241: case AR_FILE_CMDS: ! 1242: case AR_EXPIRE: ! 1243: case AR_CREDIT: ! 1244: case AR_USER: ! 1245: case AR_RANDOM: ! 1246: case AR_LASTON: ! 1247: case AR_LOGONS: ! 1248: if(not) ! 1249: *(out++)='!'; ! 1250: if(equals) ! 1251: *(out++)='='; ! 1252: not=equals=0; ! 1253: in++; ! 1254: n=*((short *)in); ! 1255: in++; ! 1256: out+=sprintf(out,"%d",n); ! 1257: break; ! 1258: case AR_GROUP: ! 1259: case AR_LIB: ! 1260: case AR_DIR: ! 1261: case AR_SUB: ! 1262: if(not) ! 1263: *(out++)='!'; ! 1264: if(equals) ! 1265: *(out++)='='; ! 1266: not=equals=0; ! 1267: in++; ! 1268: n=*((short *)in); ! 1269: n++; /* convert from to 0 base */ ! 1270: in++; ! 1271: out+=sprintf(out,"%d",n); ! 1272: break; ! 1273: case AR_SUBCODE: ! 1274: case AR_DIRCODE: ! 1275: case AR_SHELL: ! 1276: if(not) ! 1277: *(out++)='!'; ! 1278: if(equals) ! 1279: *(out++)='='; ! 1280: not=equals=0; ! 1281: in++; ! 1282: n=sprintf(out,"%s ",in); ! 1283: out+=n; ! 1284: in+=n-1; ! 1285: break; ! 1286: case AR_FLAG1: ! 1287: case AR_FLAG2: ! 1288: case AR_FLAG3: ! 1289: case AR_FLAG4: ! 1290: case AR_EXEMPT: ! 1291: case AR_SEX: ! 1292: case AR_REST: ! 1293: if(not) ! 1294: *(out++)='!'; ! 1295: if(equals) ! 1296: *(out++)='='; ! 1297: not=equals=0; ! 1298: in++; ! 1299: *(out++)=*in; ! 1300: break; ! 1301: } ! 1302: } ! 1303: *out=0; ! 1304: return(buf); ! 1305: } ! 1306: ! 1307: void decompile(FILE *bin, FILE *srcfile) ! 1308: { ! 1309: int i; ! 1310: char ch; ! 1311: uchar uch; ! 1312: ushort ush; ! 1313: long lng; ! 1314: long lng2; ! 1315: int usevar=FALSE; ! 1316: long var=0; ! 1317: char buf[80]; ! 1318: char *p; ! 1319: char src[2048]; ! 1320: int redo=FALSE; ! 1321: char *labels; ! 1322: size_t currpos=0; ! 1323: ! 1324: currpos=filelength(fileno(bin)); ! 1325: labels=(char *)calloc(1,filelength(fileno(bin))); ! 1326: if(labels==NULL) { ! 1327: printf("ERROR allocating memory for labels\n"); ! 1328: return; ! 1329: } ! 1330: while(1) { ! 1331: currpos=ftell(bin); ! 1332: ! 1333: if(fread(&uch,1,1,bin)!=1) { ! 1334: if(redo) ! 1335: break; ! 1336: redo=TRUE; ! 1337: printf("Second pass...\n"); ! 1338: rewind(bin); ! 1339: continue; ! 1340: } ! 1341: src[0]=0; ! 1342: if(labels[currpos]) ! 1343: sprintf(src,":label_%04x\n",currpos); ! 1344: switch(uch) { ! 1345: case CS_USE_INT_VAR: ! 1346: usevar=TRUE; ! 1347: fread(&var,4,1,bin); ! 1348: fread(&buf,2,1,bin); /* offset/length */ ! 1349: continue; ! 1350: case CS_VAR_INSTRUCTION: ! 1351: fread(&uch,1,1,bin); ! 1352: switch(uch) { ! 1353: case SHOW_VARS: ! 1354: WRITE_NAME("SHOW_VARS"); ! 1355: eol(src); ! 1356: break; ! 1357: case PRINT_VAR: ! 1358: VAR("PRINT"); ! 1359: case VAR_PRINTF: ! 1360: case VAR_PRINTF_LOCAL: ! 1361: if(uch==VAR_PRINTF) { ! 1362: WRITE_NAME("PRINTF"); ! 1363: } ! 1364: else { ! 1365: WRITE_NAME("LPRINTF"); ! 1366: } ! 1367: write_cstr(bin,src); ! 1368: fread(&uch, 1, 1, bin); ! 1369: for(i=0; i<uch; i++) { ! 1370: write_var(bin,src); ! 1371: } ! 1372: eol(src); ! 1373: break; ! 1374: case DEFINE_STR_VAR: ! 1375: VAR("STR"); ! 1376: case DEFINE_INT_VAR: ! 1377: VAR("INT"); ! 1378: case DEFINE_GLOBAL_STR_VAR: ! 1379: VAR("GLOBAL_STR"); ! 1380: case DEFINE_GLOBAL_INT_VAR: ! 1381: VAR("GLOBAL_INT"); ! 1382: case SET_STR_VAR: ! 1383: VARSTR("SET"); ! 1384: case SET_INT_VAR: ! 1385: VARLNG("SET"); ! 1386: case COMPARE_STR_VAR: ! 1387: VARSTR("COMPARE"); ! 1388: case COMPARE_INT_VAR: ! 1389: VARLNG("COMPARE"); ! 1390: case STRNCMP_VAR: ! 1391: UCHVARSTR("STRNCMP"); ! 1392: case STRSTR_VAR: ! 1393: VARSTR("STRSTR"); ! 1394: case COMPARE_VARS: ! 1395: VARVAR("COMPARE"); ! 1396: case STRNCMP_VARS: ! 1397: UCHVARVAR("STRNCMP"); ! 1398: case STRSTR_VARS: ! 1399: VARVAR("STRSTR"); ! 1400: case COPY_VAR: ! 1401: VARVAR("COPY"); ! 1402: case SWAP_VARS: ! 1403: VARVAR("SWAP"); ! 1404: case CAT_STR_VAR: ! 1405: VARSTR("STRCAT"); ! 1406: case CAT_STR_VARS: ! 1407: VARVAR("STRCAT"); ! 1408: case FORMAT_STR_VAR: ! 1409: WRITE_NAME("SPRINTF"); ! 1410: write_var(bin,src); ! 1411: write_cstr(bin,src); ! 1412: fread(&uch, 1, 1, bin); ! 1413: for(i=0; i<uch; i++) { ! 1414: write_var(bin,src); ! 1415: } ! 1416: eol(src); ! 1417: break; ! 1418: case TIME_STR: ! 1419: VARVAR("TIME_STR"); ! 1420: case DATE_STR: ! 1421: VARVAR("DATE_STR"); ! 1422: case FORMAT_TIME_STR: ! 1423: VARSTRVAR("STRFTIME"); ! 1424: case SECOND_STR: ! 1425: VARVAR("SECOND_STR"); ! 1426: case STRUPR_VAR: ! 1427: VAR("STRUPR"); ! 1428: case STRLWR_VAR: ! 1429: VAR("STRLWR"); ! 1430: case ADD_INT_VAR: ! 1431: VARLNG("ADD"); ! 1432: case ADD_INT_VARS: ! 1433: VARVAR("ADD"); ! 1434: case SUB_INT_VAR: ! 1435: VARLNG("SUB"); ! 1436: case SUB_INT_VARS: ! 1437: VARVAR("SUB"); ! 1438: case MUL_INT_VAR: ! 1439: VARLNG("MUL"); ! 1440: case MUL_INT_VARS: ! 1441: VARVAR("MUL"); ! 1442: case DIV_INT_VAR: ! 1443: VARLNG("DIV"); ! 1444: case DIV_INT_VARS: ! 1445: VARVAR("DIV"); ! 1446: case MOD_INT_VAR: ! 1447: VARLNG("MOD"); ! 1448: case MOD_INT_VARS: ! 1449: VARVAR("MOD"); ! 1450: case AND_INT_VAR: ! 1451: VARLNG("AND"); ! 1452: case AND_INT_VARS: ! 1453: VARVAR("AND"); ! 1454: case COMPARE_ANY_BITS: ! 1455: MVARLNG("COMPARE_ANY_BITS"); ! 1456: case COMPARE_ALL_BITS: ! 1457: MVARLNG("COMPARE_ALL_BITS"); ! 1458: case OR_INT_VAR: ! 1459: VARLNG("OR"); ! 1460: case OR_INT_VARS: ! 1461: VARLNG("OR"); ! 1462: case NOT_INT_VAR: ! 1463: VARLNG("NOT"); ! 1464: case NOT_INT_VARS: ! 1465: VARVAR("NOT"); ! 1466: case XOR_INT_VAR: ! 1467: VARLNG("XOR"); ! 1468: case XOR_INT_VARS: ! 1469: VARVAR("XOR"); ! 1470: case RANDOM_INT_VAR: ! 1471: MVARLNG("RANDOM"); ! 1472: case TIME_INT_VAR: ! 1473: VAR("TIME"); ! 1474: case DATE_STR_TO_INT: ! 1475: VARVAR("DATE_INT"); ! 1476: case STRLEN_INT_VAR: ! 1477: VARVAR("STRLEN"); ! 1478: case CRC16_TO_INT: ! 1479: VARVAR("CRC16"); ! 1480: case CRC32_TO_INT: ! 1481: VARVAR("CRC32"); ! 1482: case FLENGTH_TO_INT: ! 1483: VARVAR("GET_FILE_LENGTH"); ! 1484: case CHARVAL_TO_INT: ! 1485: VARVAR("CHARVAL"); ! 1486: case GETNUM_VAR: ! 1487: MVARSHT("GETNUM"); ! 1488: case GETSTR_VAR: ! 1489: MVARUCH("GETSTR"); ! 1490: case GETNAME_VAR: ! 1491: MVARUCH("GETNAME"); ! 1492: case GETSTRUPR_VAR: ! 1493: MVARUCH("GETSTRUPR"); ! 1494: case GETLINE_VAR: ! 1495: MVARUCH("GETLINE"); ! 1496: case SHIFT_STR_VAR: ! 1497: MVARUCH("SHIFT_STR"); ! 1498: case GETSTR_MODE: ! 1499: MVARUCHLNG("GETSTR"); ! 1500: case TRUNCSP_STR_VAR: ! 1501: VAR("TRUNCSP"); ! 1502: case CHKFILE_VAR: ! 1503: VAR("CHKFILE"); ! 1504: case PRINTFILE_VAR_MODE: ! 1505: MVARSHT("PRINTFILE"); ! 1506: case PRINTTAIL_VAR_MODE: ! 1507: MVARSHTUCH("PRINTTAIL"); ! 1508: case CHKSUM_TO_INT: ! 1509: VARVAR("CHKSUM"); ! 1510: case STRIP_CTRL_STR_VAR: ! 1511: VAR("STRIP_CTRL"); ! 1512: case SEND_FILE_VIA: ! 1513: CHSTR("SEND_FILE_VIA"); ! 1514: case SEND_FILE_VIA_VAR: ! 1515: CHVAR("SEND_FILE_VIA"); ! 1516: case FTIME_TO_INT: ! 1517: VARVAR("GET_FILE_TIME"); ! 1518: case RECEIVE_FILE_VIA: ! 1519: CHSTR("RECEIVE_FILE_VIA"); ! 1520: case RECEIVE_FILE_VIA_VAR: ! 1521: CHVAR("RECEIVE_FILE_VIA"); ! 1522: case TELNET_GATE_STR: /* TELNET_GATE reverses argument order */ ! 1523: WRITE_NAME("TELNET_GATE"); ! 1524: fread(&lng,4,1,bin); ! 1525: write_cstr(bin,src); ! 1526: if(usevar) { ! 1527: sprintf(strchr(src,0),"%s ",getvar(var)); ! 1528: usevar=FALSE; ! 1529: } else { ! 1530: sprintf(strchr(src,0),"%ld ",lng); ! 1531: } ! 1532: eol(src); ! 1533: break; ! 1534: case TELNET_GATE_VAR: /* TELNET_GATE reverses argument order */ ! 1535: WRITE_NAME("TELNET_GATE"); ! 1536: fread(&lng,4,1,bin); ! 1537: fread(&lng2, 1, 4, bin); ! 1538: sprintf(strchr(src,0),"%s ",getvar(lng2)); ! 1539: if(usevar) { ! 1540: sprintf(strchr(src,0),"%s ",getvar(var)); ! 1541: usevar=FALSE; ! 1542: } else { ! 1543: sprintf(strchr(src,0),"%ld ",lng); ! 1544: } ! 1545: eol(src); ! 1546: break; ! 1547: case COPY_FIRST_CHAR: ! 1548: VARVAR("COPY_FIRST_CHAR"); ! 1549: case COMPARE_FIRST_CHAR: ! 1550: VARUCH("COMPARE_FIRST_CHAR"); ! 1551: case COPY_CHAR: ! 1552: VAR("COPY_CHAR"); ! 1553: case SHIFT_TO_FIRST_CHAR: ! 1554: MVARUCH("SHIFT_TO_FIRST_CHAR"); ! 1555: case SHIFT_TO_LAST_CHAR: ! 1556: MVARUCH("SHIFT_TO_LAST_CHAR"); ! 1557: case MATCHUSER: ! 1558: VARVAR("MATCHUSER"); ! 1559: default: ! 1560: printf("ERROR! Unknown variable-length instruction: %02x%02X\n",CS_VAR_INSTRUCTION,uch); ! 1561: printf("Cannot continue.\n"); ! 1562: free(labels); ! 1563: return; ! 1564: } ! 1565: break; ! 1566: case CS_IF_TRUE: ! 1567: indenteol=1; ! 1568: NONE("IF_TRUE"); ! 1569: case CS_IF_FALSE: ! 1570: indenteol=1; ! 1571: NONE("IF_FALSE"); ! 1572: case CS_ELSE: ! 1573: indent--; ! 1574: indenteol=1; ! 1575: NONE("ELSE"); ! 1576: case CS_ENDIF: ! 1577: indent--; ! 1578: NONE("END_IF"); ! 1579: case CS_CMD_HOME: ! 1580: NONE("CMD_HOME"); ! 1581: case CS_CMD_POP: ! 1582: NONE("CMD_POP"); ! 1583: case CS_END_CMD: ! 1584: indent--; ! 1585: NONE("END_CMD"); ! 1586: case CS_RETURN: ! 1587: NONE("RETURN"); ! 1588: case CS_GETKEY: ! 1589: NONE("GETKEY"); ! 1590: case CS_GETKEYE: ! 1591: NONE("GETKEYE"); ! 1592: case CS_UNGETKEY: ! 1593: NONE("UNGETKEY"); ! 1594: case CS_UNGETSTR: ! 1595: NONE("UNGETSTR"); ! 1596: case CS_PRINTKEY: ! 1597: NONE("PRINTKEY"); ! 1598: case CS_PRINTSTR: ! 1599: NONE("PRINTSTR"); ! 1600: case CS_HANGUP: ! 1601: NONE("HANGUP"); ! 1602: case CS_SYNC: ! 1603: NONE("SYNC"); ! 1604: case CS_ASYNC: ! 1605: NONE("ASYNC"); ! 1606: case CS_CHKSYSPASS: ! 1607: NONE("CHKSYSPASS"); ! 1608: case CS_LOGKEY: ! 1609: NONE("LOGKEY"); ! 1610: case CS_LOGKEY_COMMA: ! 1611: NONE("LOGKEY_COMMA"); ! 1612: case CS_LOGSTR: ! 1613: NONE("LOGSTR"); ! 1614: case CS_CLS: ! 1615: NONE("CLS"); ! 1616: case CS_CRLF: ! 1617: NONE("CRLF"); ! 1618: case CS_PAUSE: ! 1619: NONE("PAUSE"); ! 1620: case CS_PAUSE_RESET: ! 1621: NONE("PAUSE_RESET"); ! 1622: case CS_GETLINES: ! 1623: NONE("GETLINES"); ! 1624: case CS_GETFILESPEC: ! 1625: NONE("GETFILESPEC"); ! 1626: case CS_FINDUSER: ! 1627: NONE("FINDUSER"); ! 1628: case CS_CLEAR_ABORT: ! 1629: NONE("CLEAR_ABORT"); ! 1630: case CS_SELECT_SHELL: ! 1631: NONE("SELECT_SHELL"); ! 1632: case CS_SET_SHELL: ! 1633: NONE("SET_SHELL"); ! 1634: case CS_SELECT_EDITOR: ! 1635: NONE("SELECT_EDITOR"); ! 1636: case CS_SET_EDITOR: ! 1637: NONE("SET_EDITOR"); ! 1638: case CS_INKEY: ! 1639: NONE("INKEY"); ! 1640: case CS_INCHAR: ! 1641: NONE("INCHAR"); ! 1642: case CS_GETTIMELEFT: ! 1643: NONE("GETTIMELEFT"); ! 1644: case CS_SAVELINE: ! 1645: NONE("SAVELINE"); ! 1646: case CS_RESTORELINE: ! 1647: NONE("RESTORELINE"); ! 1648: case CS_IF_GREATER: ! 1649: indenteol=1; ! 1650: NONE("IF_GREATER"); ! 1651: case CS_IF_GREATER_OR_EQUAL: ! 1652: indenteol=1; ! 1653: NONE("IF_GREATER_OR_EQUAL"); ! 1654: case CS_IF_LESS: ! 1655: indenteol=1; ! 1656: NONE("IF_LESS"); ! 1657: case CS_IF_LESS_OR_EQUAL: ! 1658: indenteol=1; ! 1659: NONE("IF_LESS_OR_EQUAL"); ! 1660: case CS_DEFAULT: ! 1661: indenteol=1; ! 1662: NONE("DEFAULT"); ! 1663: case CS_END_SWITCH: ! 1664: indent--; ! 1665: NONE("END_SWITCH"); ! 1666: case CS_END_CASE: ! 1667: indent--; ! 1668: NONE("END_CASE"); ! 1669: case CS_PUT_NODE: ! 1670: NONE("PUT_NODE"); ! 1671: case CS_GETCHAR: ! 1672: NONE("GETCHAR"); ! 1673: case CS_ONE_MORE_BYTE: ! 1674: fread(&uch,1,1,bin); ! 1675: switch(uch) { ! 1676: case CS_ONLINE: ! 1677: NONE("ONLINE"); ! 1678: case CS_OFFLINE: ! 1679: NONE("OFFLINE"); ! 1680: case CS_NEWUSER: ! 1681: NONE("NEWUSER"); ! 1682: case CS_LOGON: ! 1683: NONE("LOGON"); ! 1684: case CS_LOGOUT: ! 1685: NONE("LOGOUT"); ! 1686: case CS_EXIT: ! 1687: NONE("EXIT"); ! 1688: case CS_LOOP_BEGIN: ! 1689: indenteol=1; ! 1690: NONE("LOOP_BEGIN"); ! 1691: case CS_CONTINUE_LOOP: ! 1692: NONE("CONTINUE_LOOP"); ! 1693: case CS_BREAK_LOOP: ! 1694: NONE("BREAK_LOOP"); ! 1695: case CS_END_LOOP: ! 1696: indent--; ! 1697: NONE("END_LOOP"); ! 1698: default: ! 1699: printf("ERROR! Unknown one-byte instruction: %02x%02X\n",CS_ONE_MORE_BYTE,uch); ! 1700: } ! 1701: break; ! 1702: case CS_CMDKEY: ! 1703: indenteol=1; ! 1704: KEY("CMDKEY"); ! 1705: case CS_NODE_ACTION: ! 1706: MUCH("NODE_ACTION"); ! 1707: case CS_GETSTR: ! 1708: MUCH("GETSTR"); ! 1709: case CS_GETNAME: ! 1710: MUCH("GETNAME"); ! 1711: case CS_GETSTRUPR: ! 1712: MUCH("GETSTRUPR"); ! 1713: case CS_SHIFT_STR: ! 1714: MUCH("SHIFT_STR"); ! 1715: case CS_COMPARE_KEY: ! 1716: KEY("COMPARE_KEY"); ! 1717: case CS_SETLOGIC: ! 1718: LGC("SETLOGIC"); ! 1719: case CS_SET_USER_LEVEL: ! 1720: MUCH("SET_USER_LEVEL"); ! 1721: case CS_SET_USER_STRING: ! 1722: MUCH("SET_USER_STRING"); ! 1723: case CS_GETLINE: ! 1724: MUCH("GETLINE"); ! 1725: case CS_NODE_STATUS: ! 1726: MUCH("NODE_STATUS"); ! 1727: case CS_CMDCHAR: ! 1728: indenteol=1; ! 1729: CH("CMDCHAR"); ! 1730: case CS_COMPARE_CHAR: ! 1731: CH("COMPARE_CHAR"); ! 1732: case CS_MULTINODE_CHAT: ! 1733: MUCH("MULTINODE_CHAT"); ! 1734: case CS_TWO_MORE_BYTES: ! 1735: fread(&uch,1,1,bin); ! 1736: switch(uch) { ! 1737: case CS_USER_EVENT: ! 1738: MUCH("USER_EVENT"); ! 1739: default: ! 1740: printf("ERROR! Unknown two-byte instruction: %02x%02X\n",CS_ONE_MORE_BYTE,uch); ! 1741: } ! 1742: break; ! 1743: case CS_GOTO: ! 1744: fread(&ush,2,1,bin); ! 1745: labels[ush]=TRUE; ! 1746: WRITE_NAME("GOTO"); ! 1747: sprintf(strchr(src,0),"label_%04x ",ush); ! 1748: eol(src); ! 1749: break; ! 1750: case CS_CALL: ! 1751: fread(&ush,2,1,bin); ! 1752: labels[ush]=TRUE; ! 1753: WRITE_NAME("CALL"); ! 1754: sprintf(strchr(src,0),"label_%04x ",ush); ! 1755: eol(src); ! 1756: break; ! 1757: case CS_TOGGLE_NODE_MISC: ! 1758: MSHT("TOGGLE_NODE_MISC"); ! 1759: case CS_ADJUST_USER_CREDITS: ! 1760: MSHT("ADJUST_USER_CREDITS"); ! 1761: case CS_TOGGLE_USER_FLAG: ! 1762: CHCH("TOGGLE_USER_FLAG"); ! 1763: case CS_GETNUM: ! 1764: MSHT("GETNUM"); ! 1765: case CS_COMPARE_NODE_MISC: ! 1766: MSHT("COMPARE_NODE_MISC"); ! 1767: case CS_MSWAIT: ! 1768: MSHT("MSWAIT"); ! 1769: case CS_ADJUST_USER_MINUTES: ! 1770: MSHT("ADJUST_USER_MINUTES"); ! 1771: case CS_REVERT_TEXT: ! 1772: MSHT("REVERT_TEXT"); ! 1773: case CS_THREE_MORE_BYTES: ! 1774: printf("ERROR! I dont know anything about CS_THREE_MORE_BYTES.\n"); ! 1775: printf("Cannot continue.\n"); ! 1776: free(labels); ! 1777: return; ! 1778: case CS_MENU: ! 1779: STR("MENU"); ! 1780: case CS_PRINT: ! 1781: STR("PRINT"); ! 1782: case CS_PRINT_LOCAL: ! 1783: STR("PRINT_LOCAL"); ! 1784: case CS_PRINT_REMOTE: ! 1785: STR("PRINT_REMOTE"); ! 1786: case CS_PRINTFILE: ! 1787: STR("PRINTFILE"); ! 1788: case CS_PRINTFILE_LOCAL: ! 1789: STR("PRINTFILE_LOCAL"); ! 1790: case CS_PRINTFILE_REMOTE: ! 1791: STR("PRINTFILE_REMOTE"); ! 1792: case CS_YES_NO: ! 1793: STR("YES_NO"); ! 1794: case CS_NO_YES: ! 1795: STR("NO_YES"); ! 1796: case CS_COMPARE_STR: ! 1797: STR("COMPARE_STR"); ! 1798: case CS_COMPARE_WORD: ! 1799: STR("COMPARE_WORD"); ! 1800: case CS_EXEC: ! 1801: STR("EXEC"); ! 1802: case CS_EXEC_INT: ! 1803: STR("EXEC_INT"); ! 1804: case CS_EXEC_BIN: ! 1805: STR("EXEC_BIN"); ! 1806: case CS_EXEC_XTRN: ! 1807: STR("EXEC_XTRN"); ! 1808: case CS_GETCMD: ! 1809: STR("GETCMD"); ! 1810: case CS_LOG: ! 1811: STR("LOG"); ! 1812: case CS_MNEMONICS: ! 1813: STR("MNEMONICS"); ! 1814: case CS_SETSTR: ! 1815: STR("SETSTR"); ! 1816: case CS_SET_MENU_DIR: ! 1817: STR("SET_MENU_DIR"); ! 1818: case CS_SET_MENU_FILE: ! 1819: STR("SET_MENU_FILE"); ! 1820: case CS_CMDSTR: ! 1821: indenteol=1; ! 1822: STR("CMDSTR"); ! 1823: case CS_CHKFILE: ! 1824: STR("CHKFILE"); ! 1825: case CS_GET_TEMPLATE: ! 1826: STR("GET_TEMPLATE"); ! 1827: case CS_TRASHCAN: ! 1828: STR("TRASHCAN"); ! 1829: case CS_CREATE_SIF: ! 1830: STR("CREATE_SIF"); ! 1831: case CS_READ_SIF: ! 1832: STR("READ_SIF"); ! 1833: case CS_CMDKEYS: ! 1834: indenteol=1; ! 1835: KEYS("CMDKEYS"); ! 1836: case CS_COMPARE_KEYS: ! 1837: KEYS("COMPARE_KEYS"); ! 1838: case CS_STR_FUNCTION: ! 1839: fread(&uch,1,1,bin); ! 1840: switch(uch) { ! 1841: case CS_LOGIN: ! 1842: STR("LOGIN"); ! 1843: case CS_LOAD_TEXT: ! 1844: STR("LOAD_TEXT"); ! 1845: default: ! 1846: printf("ERROR! Unknown string instruction: %02x%02X\n",CS_STR_FUNCTION,uch); ! 1847: ch=0; ! 1848: while(ch) fread(&ch,1,1,bin); ! 1849: } ! 1850: break; ! 1851: case CS_COMPARE_ARS: ! 1852: fread(&uch,1,1,bin); ! 1853: p=(char *)malloc(uch); ! 1854: fread(p,uch,1,bin); ! 1855: WRITE_NAME("COMPARE_ARS"); ! 1856: sprintf(strchr(src,0),"%s\n",decompile_ars((uchar*)p,uch)); ! 1857: free(p); ! 1858: break; ! 1859: case CS_TOGGLE_USER_MISC: ! 1860: MLNG("TOGGLE_USER_MISC"); ! 1861: case CS_COMPARE_USER_MISC: ! 1862: MLNG("COMPARE_USER_MISC"); ! 1863: case CS_REPLACE_TEXT: ! 1864: MSHTSTR("REPLACE_TEXT"); ! 1865: case CS_TOGGLE_USER_CHAT: ! 1866: MLNG("TOGGLE_USER_CHAT"); ! 1867: case CS_COMPARE_USER_CHAT: ! 1868: MLNG("COMPARE_USER_CHAT"); ! 1869: case CS_TOGGLE_USER_QWK: ! 1870: MLNG("TOGGLE_USER_QWK"); ! 1871: case CS_COMPARE_USER_QWK: ! 1872: MLNG("COMPARE_USER_QWK"); ! 1873: case CS_SWITCH: ! 1874: indenteol=1; ! 1875: VAR("SWITCH"); ! 1876: case CS_CASE: ! 1877: indenteol=1; ! 1878: LNG("CASE"); ! 1879: case CS_NET_FUNCTION: ! 1880: fread(&uch,1,1,bin); ! 1881: switch(uch) { ! 1882: case CS_SOCKET_OPEN: ! 1883: VAR("SOCKET_OPEN"); ! 1884: case CS_SOCKET_CLOSE: ! 1885: VAR("SOCKET_CLOSE"); ! 1886: case CS_SOCKET_CONNECT: ! 1887: MVARVARUST("SOCKET_CONNECT"); ! 1888: case CS_SOCKET_ACCEPT: ! 1889: VAR("SOCKET_ACCEPT"); ! 1890: case CS_SOCKET_NREAD: ! 1891: VARVAR("SOCKET_NREAD"); ! 1892: case CS_SOCKET_PEEK: ! 1893: MVARVARUST("SOCKET_PEEK"); ! 1894: case CS_SOCKET_READ: ! 1895: MVARVARUST("SOCKET_READ"); ! 1896: case CS_SOCKET_WRITE: ! 1897: VARVAR("SOCKET_WRITE"); ! 1898: case CS_SOCKET_CHECK: ! 1899: VAR("SOCKET_CHECK"); ! 1900: case CS_SOCKET_READLINE: ! 1901: MVARVARUST("SOCKET_READLINE"); ! 1902: case CS_FTP_LOGIN: ! 1903: VARVARVAR("FTP_LOGIN"); ! 1904: case CS_FTP_LOGOUT: ! 1905: VAR("FTP_LOGOUT"); ! 1906: case CS_FTP_PWD: ! 1907: VAR("FTP_PWD"); ! 1908: case CS_FTP_CWD: ! 1909: VARVAR("FTP_CWD"); ! 1910: case CS_FTP_DIR: ! 1911: VARVAR("FTP_DIR"); ! 1912: case CS_FTP_PUT: ! 1913: VARVARVAR("FTP_PUT"); ! 1914: case CS_FTP_GET: ! 1915: VARVARVAR("FTP_GET"); ! 1916: case CS_FTP_RENAME: ! 1917: VARVARVAR("FTP_RENAME"); ! 1918: case CS_FTP_DELETE: ! 1919: VARVAR("FTP_DELETE"); ! 1920: default: ! 1921: printf("ERROR! Unknown net function %02x%02X\n",CS_NET_FUNCTION,uch); ! 1922: printf("Cannot continue.\n"); ! 1923: free(labels); ! 1924: return; ! 1925: } ! 1926: break; ! 1927: case CS_FIO_FUNCTION: ! 1928: fread(&uch,1,1,bin); ! 1929: switch(uch) { ! 1930: case FIO_OPEN: ! 1931: MVARUSTSTR("FOPEN"); ! 1932: case FIO_CLOSE: ! 1933: VAR("FCLOSE"); ! 1934: case FIO_READ: ! 1935: MVARVARNZUST("FREAD"); ! 1936: case FIO_READ_VAR: ! 1937: VARVARVAR("FREAD"); ! 1938: case FIO_WRITE: ! 1939: MVARVARNZUST("FWRITE"); ! 1940: case FIO_WRITE_VAR: ! 1941: VARVARVAR("FWRITE"); ! 1942: case FIO_GET_LENGTH: ! 1943: VARVAR("FGET_LENGTH"); ! 1944: case FIO_EOF: ! 1945: VAR("FEOF"); ! 1946: case FIO_GET_POS: ! 1947: VARVAR("FGET_POS"); ! 1948: case FIO_SEEK: ! 1949: WRITE_NAME("FSEEK"); ! 1950: write_var(bin,src); ! 1951: write_lng(bin,src); ! 1952: fread(&ush,2,1,bin); ! 1953: if(ush==SEEK_CUR) ! 1954: strcat(src,"CUR "); ! 1955: else if(ush==SEEK_END) ! 1956: strcat(src,"END "); ! 1957: else ! 1958: sprintf(strchr(src,0), "%d ",ush); ! 1959: eol(src); ! 1960: break; ! 1961: case FIO_SEEK_VAR: ! 1962: WRITE_NAME("FSEEK"); ! 1963: write_var(bin,src); ! 1964: write_var(bin,src); ! 1965: fread(&ush,2,1,bin); ! 1966: if(ush==SEEK_CUR) ! 1967: strcat(src,"CUR "); ! 1968: else if(ush==SEEK_END) ! 1969: strcat(src,"END "); ! 1970: else ! 1971: sprintf(strchr(src,0), "%d ",ush); ! 1972: eol(src); ! 1973: break; ! 1974: case FIO_LOCK: ! 1975: VARLNG("FLOCK"); ! 1976: case FIO_LOCK_VAR: ! 1977: VARVAR("FLOCK"); ! 1978: case FIO_UNLOCK: ! 1979: VARLNG("FUNLOCK"); ! 1980: case FIO_UNLOCK_VAR: ! 1981: VARVAR("FUNLOCK"); ! 1982: case FIO_SET_LENGTH: ! 1983: VARLNG("FSET_LENGTH"); ! 1984: case FIO_SET_LENGTH_VAR: ! 1985: VARVAR("FSET_LENGTH"); ! 1986: case FIO_PRINTF: ! 1987: WRITE_NAME("FPRINTF"); ! 1988: write_var(bin,src); ! 1989: write_cstr(bin,src); ! 1990: fread(&uch, 1, 1, bin); ! 1991: for(i=0; i<uch; i++) { ! 1992: write_var(bin,src); ! 1993: } ! 1994: eol(src); ! 1995: break; ! 1996: case FIO_SET_ETX: ! 1997: MUCH("FSET_ETX"); ! 1998: case FIO_GET_TIME: ! 1999: VARVAR("FGET_TIME"); ! 2000: case FIO_SET_TIME: ! 2001: VARVAR("FSET_TIME"); ! 2002: case FIO_OPEN_VAR: ! 2003: MVARUSTVAR("FOPEN"); ! 2004: case FIO_READ_LINE: ! 2005: VARVAR("FREAD_LINE"); ! 2006: case FIO_FLUSH: ! 2007: VAR("FFLUSH"); ! 2008: case REMOVE_FILE: ! 2009: VAR("REMOVE_FILE"); ! 2010: case RENAME_FILE: ! 2011: VARVAR("RENAME_FILE"); ! 2012: case COPY_FILE: ! 2013: VARVAR("COPY_FILE"); ! 2014: case MOVE_FILE: ! 2015: VARVAR("MOVE_FILE"); ! 2016: case GET_FILE_ATTRIB: ! 2017: VARVAR("GET_FILE_ATTRIB"); ! 2018: case SET_FILE_ATTRIB: ! 2019: VARVAR("SET_FILE_ATTRIB"); ! 2020: case MAKE_DIR: ! 2021: VAR("MAKE_DIR"); ! 2022: case CHANGE_DIR: ! 2023: VAR("CHANGE_DIR"); ! 2024: case REMOVE_DIR: ! 2025: VAR("REMOVE_DIR"); ! 2026: case OPEN_DIR: ! 2027: VARVAR("OPEN_DIR"); ! 2028: case READ_DIR: ! 2029: VARVAR("READ_DIR"); ! 2030: case REWIND_DIR: ! 2031: VAR("REWIND_DIR"); ! 2032: case CLOSE_DIR: ! 2033: VAR("CLOSE_DIR"); ! 2034: default: ! 2035: printf("ERROR! Unknown file function %02x%02X\n",CS_FIO_FUNCTION,uch); ! 2036: printf("Cannot continue.\n"); ! 2037: free(labels); ! 2038: return; ! 2039: } ! 2040: break; ! 2041: case CS_MAIL_READ: ! 2042: NONE("MAIL_READ"); ! 2043: case CS_MAIL_READ_SENT: ! 2044: NONE("MAIL_READ_SENT"); ! 2045: case CS_MAIL_READ_ALL: ! 2046: NONE("MAIL_READ_ALL"); ! 2047: case CS_MAIL_SEND: ! 2048: NONE("MAIL_SEND"); ! 2049: case CS_MAIL_SEND_BULK: ! 2050: NONE("MAIL_SEND_BULK"); ! 2051: case CS_MAIL_SEND_FILE: ! 2052: NONE("MAIL_SEND_FILE"); ! 2053: case CS_MAIL_SEND_FEEDBACK: ! 2054: NONE("MAIL_SEND_FEEDBACK"); ! 2055: case CS_MAIL_SEND_NETMAIL: ! 2056: NONE("MAIL_SEND_NETMAIL"); ! 2057: case CS_MAIL_SEND_NETFILE: ! 2058: NONE("MAIL_SEND_NETFILE"); ! 2059: case CS_LOGOFF: ! 2060: NONE("LOGOFF"); ! 2061: case CS_LOGOFF_FAST: ! 2062: NONE("LOGOFF_FAST");; ! 2063: case CS_AUTO_MESSAGE: ! 2064: NONE("AUTO_MESSAGE"); ! 2065: case CS_MSG_SET_AREA: ! 2066: NONE("MSG_SET_AREA"); ! 2067: case CS_MSG_SELECT_AREA: ! 2068: NONE("MSG_SELECT_AREA"); ! 2069: case CS_MSG_SHOW_GROUPS: ! 2070: NONE("MSG_SHOW_GROUPS"); ! 2071: case CS_MSG_SHOW_SUBBOARDS: ! 2072: NONE("MSG_SHOW_SUBBOARDS");; ! 2073: case CS_MSG_GROUP_UP: ! 2074: NONE("MSG_GROUP_UP"); ! 2075: case CS_MSG_GROUP_DOWN: ! 2076: NONE("MSG_GROUP_DOWN");; ! 2077: case CS_MSG_SUBBOARD_UP: ! 2078: NONE("MSG_SUBBOARD_UP");; ! 2079: case CS_MSG_SUBBOARD_DOWN: ! 2080: NONE("MSG_SUBBOARD_DOWN"); ! 2081: case CS_MSG_GET_SUB_NUM: ! 2082: NONE("MSG_GET_SUB_NUM"); ! 2083: case CS_MSG_GET_GRP_NUM: ! 2084: NONE("MSG_GET_GRP_NUM"); ! 2085: case CS_MSG_READ: ! 2086: NONE("MSG_READ"); ! 2087: case CS_MSG_POST: ! 2088: NONE("MSG_POST"); ! 2089: case CS_MSG_QWK: ! 2090: NONE("MSG_QWK"); ! 2091: case CS_MSG_PTRS_CFG: ! 2092: NONE("MSG_PTRS_CFG"); ! 2093: case CS_MSG_PTRS_REINIT: ! 2094: NONE("MSG_PTRS_REINIT"); ! 2095: case CS_MSG_NEW_SCAN_CFG: ! 2096: NONE("MSG_NEW_SCAN_CFG"); ! 2097: case CS_MSG_NEW_SCAN: ! 2098: NONE("MSG_NEW_SCAN"); ! 2099: case CS_MSG_NEW_SCAN_ALL: ! 2100: NONE("MSG_NEW_SCAN_ALL"); ! 2101: case CS_MSG_CONT_SCAN: ! 2102: NONE("MSG_CONT_SCAN"); ! 2103: case CS_MSG_CONT_SCAN_ALL: ! 2104: NONE("MSG_CONT_SCAN_ALL"); ! 2105: case CS_MSG_BROWSE_SCAN : ! 2106: NONE("MSG_BROWSE_SCAN "); ! 2107: case CS_MSG_BROWSE_SCAN_ALL: ! 2108: NONE("MSG_BROWSE_SCAN_ALL"); ! 2109: case CS_MSG_FIND_TEXT: ! 2110: NONE("MSG_FIND_TEXT"); ! 2111: case CS_MSG_FIND_TEXT_ALL: ! 2112: NONE("MSG_FIND_TEXT_ALL"); ! 2113: case CS_MSG_YOUR_SCAN_CFG: ! 2114: NONE("MSG_YOUR_SCAN_CFG"); ! 2115: case CS_MSG_YOUR_SCAN: ! 2116: NONE("MSG_YOUR_SCAN"); ! 2117: case CS_MSG_YOUR_SCAN_ALL: ! 2118: NONE("MSG_YOUR_SCAN_ALL"); ! 2119: case CS_MSG_NEW_SCAN_SUB: ! 2120: NONE("MSG_NEW_SCAN_SUB"); ! 2121: case CS_MSG_SET_GROUP: ! 2122: NONE("MSG_SET_GROUP"); ! 2123: case CS_MSG_UNUSED4: ! 2124: NONE("MSG_UNUSED4"); ! 2125: case CS_MSG_UNUSED3: ! 2126: NONE("MSG_UNUSED3"); ! 2127: case CS_MSG_UNUSED2: ! 2128: NONE("MSG_UNUSED2"); ! 2129: case CS_MSG_UNUSED1: ! 2130: NONE("MSG_UNUSED1"); ! 2131: case CS_FILE_SET_AREA: ! 2132: NONE("FILE_SET_AREA"); ! 2133: case CS_FILE_SELECT_AREA: ! 2134: NONE("FILE_SELECT_AREA"); ! 2135: case CS_FILE_SHOW_LIBRARIES: ! 2136: NONE("FILE_SHOW_LIBRARIES"); ! 2137: case CS_FILE_SHOW_DIRECTORIES: ! 2138: NONE("FILE_SHOW_DIRECTORIES"); ! 2139: case CS_FILE_LIBRARY_UP: ! 2140: NONE("FILE_LIBRARY_UP"); ! 2141: case CS_FILE_LIBRARY_DOWN: ! 2142: NONE("FILE_LIBRARY_DOWN"); ! 2143: case CS_FILE_DIRECTORY_UP: ! 2144: NONE("FILE_DIRECTORY_UP"); ! 2145: case CS_FILE_DIRECTORY_DOWN: ! 2146: NONE("FILE_DIRECTORY_DOWN"); ! 2147: case CS_FILE_GET_DIR_NUM: ! 2148: NONE("FILE_GET_DIR_NUM"); ! 2149: case CS_FILE_GET_LIB_NUM: ! 2150: NONE("FILE_GET_LIB_NUM"); ! 2151: case CS_FILE_LIST: ! 2152: NONE("FILE_LIST"); ! 2153: case CS_FILE_LIST_EXTENDED: ! 2154: NONE("FILE_LIST_EXTENDED"); ! 2155: case CS_FILE_VIEW: ! 2156: NONE("FILE_VIEW"); ! 2157: case CS_FILE_UPLOAD: ! 2158: NONE("FILE_UPLOAD"); ! 2159: case CS_FILE_UPLOAD_USER: ! 2160: NONE("FILE_UPLOAD_USER"); ! 2161: case CS_FILE_UPLOAD_SYSOP: ! 2162: NONE("FILE_UPLOAD_SYSOP"); ! 2163: case CS_FILE_DOWNLOAD: ! 2164: NONE("FILE_DOWNLOAD"); ! 2165: case CS_FILE_DOWNLOAD_USER: ! 2166: NONE("FILE_DOWNLOAD_USER"); ! 2167: case CS_FILE_DOWNLOAD_BATCH: ! 2168: NONE("FILE_DOWNLOAD_BATCH"); ! 2169: case CS_FILE_REMOVE : ! 2170: NONE("FILE_REMOVE "); ! 2171: case CS_FILE_BATCH_SECTION: ! 2172: NONE("FILE_BATCH_SECTION"); ! 2173: case CS_FILE_TEMP_SECTION: ! 2174: NONE("FILE_TEMP_SECTION"); ! 2175: case CS_FILE_NEW_SCAN_CFG: ! 2176: NONE("FILE_NEW_SCAN_CFG"); ! 2177: case CS_FILE_NEW_SCAN: ! 2178: NONE("FILE_NEW_SCAN"); ! 2179: case CS_FILE_NEW_SCAN_ALL: ! 2180: NONE("FILE_NEW_SCAN_ALL"); ! 2181: case CS_FILE_FIND_TEXT: ! 2182: NONE("FILE_FIND_TEXT"); ! 2183: case CS_FILE_FIND_TEXT_ALL: ! 2184: NONE("FILE_FIND_TEXT_ALL"); ! 2185: case CS_FILE_FIND_NAME: ! 2186: NONE("FILE_FIND_NAME"); ! 2187: case CS_FILE_FIND_NAME_ALL: ! 2188: NONE("FILE_FIND_NAME_ALL"); ! 2189: case CS_FILE_PTRS_CFG: ! 2190: NONE("FILE_PTRS_CFG"); ! 2191: case CS_FILE_BATCH_ADD: ! 2192: NONE("FILE_BATCH_ADD"); ! 2193: case CS_FILE_BATCH_CLEAR: ! 2194: NONE("FILE_BATCH_CLEAR"); ! 2195: case CS_FILE_SET_LIBRARY: ! 2196: NONE("FILE_SET_LIBRARY"); ! 2197: case CS_FILE_SEND: ! 2198: NONE("FILE_SEND"); ! 2199: case CS_FILE_BATCH_ADD_LIST: ! 2200: NONE("FILE_BATCH_ADD_LIST"); ! 2201: case CS_FILE_RECEIVE: ! 2202: NONE("FILE_RECEIVE"); ! 2203: case CS_NODELIST_ALL: ! 2204: NONE("NODELIST_ALL"); ! 2205: case CS_NODELIST_USERS: ! 2206: NONE("NODELIST_USERS"); ! 2207: case CS_CHAT_SECTION: ! 2208: NONE("CHAT_SECTION"); ! 2209: case CS_USER_DEFAULTS: ! 2210: NONE("USER_DEFAULTS"); ! 2211: case CS_USER_EDIT: ! 2212: NONE("USER_EDIT"); ! 2213: case CS_TEXT_FILE_SECTION: ! 2214: NONE("TEXT_FILE_SECTION"); ! 2215: case CS_INFO_SYSTEM: ! 2216: NONE("INFO_SYSTEM"); ! 2217: case CS_INFO_SUBBOARD: ! 2218: NONE("INFO_SUBBOARD"); ! 2219: case CS_INFO_DIRECTORY: ! 2220: NONE("INFO_DIRECTORY"); ! 2221: case CS_INFO_USER: ! 2222: NONE("INFO_USER"); ! 2223: case CS_INFO_VERSION: ! 2224: NONE("INFO_VERSION"); ! 2225: case CS_INFO_XFER_POLICY: ! 2226: NONE("INFO_XFER_POLICY"); ! 2227: case CS_XTRN_EXEC: ! 2228: NONE("XTRN_EXEC"); ! 2229: case CS_XTRN_SECTION: ! 2230: NONE("XTRN_SECTION"); ! 2231: case CS_USERLIST_SUB: ! 2232: NONE("USERLIST_SUB"); ! 2233: case CS_USERLIST_DIR: ! 2234: NONE("USERLIST_DIR"); ! 2235: case CS_USERLIST_ALL: ! 2236: NONE("USERLIST_ALL"); ! 2237: case CS_USERLIST_LOGONS: ! 2238: NONE("USERLIST_LOGONS");; ! 2239: case CS_PAGE_SYSOP: ! 2240: NONE("PAGE_SYSOP"); ! 2241: case CS_PRIVATE_CHAT: ! 2242: NONE("PRIVATE_CHAT");; ! 2243: case CS_PRIVATE_MESSAGE: ! 2244: NONE("PRIVATE_MESSAGE");; ! 2245: case CS_MINUTE_BANK: ! 2246: NONE("MINUTE_BANK"); ! 2247: case CS_GURU_LOG: ! 2248: NONE("GURU_LOG"); ! 2249: case CS_ERROR_LOG: ! 2250: NONE("ERROR_LOG"); ! 2251: case CS_SYSTEM_LOG: ! 2252: NONE("SYSTEM_LOG"); ! 2253: case CS_SYSTEM_YLOG: ! 2254: NONE("SYSTEM_YLOG"); ! 2255: case CS_SYSTEM_STATS: ! 2256: NONE("SYSTEM_STATS"); ! 2257: case CS_NODE_STATS: ! 2258: NONE("NODE_STATS"); ! 2259: case CS_SHOW_MEM: ! 2260: NONE("SHOW_MEM"); ! 2261: case CS_CHANGE_USER: ! 2262: NONE("CHANGE_USER"); ! 2263: case CS_ANSI_CAPTURE: ! 2264: NONE("ANSI_CAPTURE"); ! 2265: case CS_LIST_TEXT_FILE: ! 2266: NONE("LIST_TEXT_FILE"); ! 2267: case CS_EDIT_TEXT_FILE: ! 2268: NONE("EDIT_TEXT_FILE"); ! 2269: case CS_FILE_SET_ALT_PATH: ! 2270: NONE("FILE_SET_ALT_PATH"); ! 2271: case CS_FILE_RESORT_DIRECTORY: ! 2272: NONE("FILE_RESORT_DIRECTORY"); ! 2273: case CS_FILE_GET: ! 2274: NONE("FILE_GET"); ! 2275: case CS_FILE_PUT: ! 2276: NONE("FILE_PUT"); ! 2277: case CS_FILE_UPLOAD_BULK: ! 2278: NONE("FILE_UPLOAD_BULK"); ! 2279: case CS_FILE_FIND_OLD: ! 2280: NONE("FILE_FIND_OLD"); ! 2281: case CS_FILE_FIND_OPEN: ! 2282: NONE("FILE_FIND_OPEN"); ! 2283: case CS_FILE_FIND_OFFLINE: ! 2284: NONE("FILE_FIND_OFFLINE"); ! 2285: case CS_FILE_FIND_OLD_UPLOADS: ! 2286: NONE("FILE_FIND_OLD_UPLOADS"); ! 2287: case CS_INC_MAIN_CMDS: ! 2288: NONE("INC_MAIN_CMDS"); ! 2289: case CS_INC_FILE_CMDS: ! 2290: NONE("INC_FILE_CMDS"); ! 2291: case CS_PRINTFILE_STR: ! 2292: NONE("PRINTFILE_STR"); ! 2293: case CS_PAGE_GURU: ! 2294: NONE("PAGE_GURU"); ! 2295: case CS_SPY: ! 2296: NONE("SPY"); ! 2297: default: ! 2298: printf("ERROR! Unknown instruction: %02X\n",uch); ! 2299: printf("Cannot continue.\n"); ! 2300: free(labels); ! 2301: return; ! 2302: } ! 2303: if(redo) ! 2304: fputs(src,srcfile); ! 2305: } ! 2306: free(labels); ! 2307: } ! 2308: ! 2309: int main(int argc, char **argv) ! 2310: { ! 2311: int f; ! 2312: FILE *bin; ! 2313: FILE *src; ! 2314: char newname[MAX_PATH+1]; ! 2315: char *p; ! 2316: char revision[16]; ! 2317: FILE *cache; ! 2318: char cache_line[1024]; ! 2319: char *crc,*good,*str; ! 2320: ! 2321: sscanf("$Revision: 1.34 $", "%*s %s", revision); ! 2322: ! 2323: printf("\nUNBAJA v%s-%s - Synchronet Baja Shell/Module De-compiler\n" ! 2324: ,revision, PLATFORM_DESC); ! 2325: ! 2326: for(f=1; f<argc; f++) { ! 2327: if(!strncmp(argv[f],"-b",2)) { ! 2328: brute_len=atoi(argv[f]+2); ! 2329: if(brute_len) { ! 2330: brute_buf=(char *)malloc(brute_len+1); ! 2331: if(!brute_buf) ! 2332: brute_len=0; ! 2333: brute_crc_buf=(unsigned long *)malloc(brute_len*sizeof(unsigned long)); ! 2334: if(!brute_crc_buf) { ! 2335: free(brute_buf); ! 2336: brute_len=0; ! 2337: } ! 2338: if((cache=fopen("unbaja.brute","r"))!=NULL) { ! 2339: while(fgets(cache_line,sizeof(cache_line),cache)) { ! 2340: truncnl(cache_line); ! 2341: crc=strtok(cache_line,","); ! 2342: if(crc!=NULL) { ! 2343: good=strtok(NULL,","); ! 2344: if(good!=NULL) { ! 2345: str=strtok(NULL,","); ! 2346: if(str!=NULL) { ! 2347: add_bruted(strtoul(crc,NULL,16),strtoul(good,NULL,10),str,0); ! 2348: } ! 2349: } ! 2350: } ! 2351: } ! 2352: fclose(cache); ! 2353: } ! 2354: } ! 2355: printf("Will brute-force up to %d chars\n",brute_len); ! 2356: continue; ! 2357: } ! 2358: bin=fopen(argv[f],"rb"); ! 2359: if(bin==NULL) ! 2360: perror(argv[f]); ! 2361: else { ! 2362: SAFECOPY(newname, argv[f]); ! 2363: p=strrchr(newname, '.'); ! 2364: if(p==NULL) ! 2365: p=strchr(newname,0); ! 2366: strcpy(p,".decompiled"); ! 2367: src=fopen(newname,"w"); ! 2368: if(src == NULL) ! 2369: perror(newname); ! 2370: else { ! 2371: printf("\nDecompiling %s to %s\n",argv[f],newname); ! 2372: fputs("!include sbbsdefs.inc\n",src); ! 2373: fputs("!include file_io.inc\n",src); ! 2374: fputs("!include dir_attr.inc\n\n",src); ! 2375: decompile(bin, src); ! 2376: fclose(src); ! 2377: } ! 2378: fclose(bin); ! 2379: } ! 2380: } ! 2381: ! 2382: return(0); ! 2383: } ! 2384:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.