ars.c 23.57 KiB
/* ars.c */
/* Synchronet Access Requirement String (ARS) functions */
/* $Id$ */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 2009 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* 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. *
* See the GNU General Public License for more details: gpl.txt or *
* http://www.fsf.org/copyleft/gpl.html *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
#include "sbbs.h"
const uchar* nular=(uchar*)""; /* AR_NULL */
static BOOL ar_string_arg(int artype)
{
switch(artype) {
case AR_SUBCODE:
case AR_DIRCODE:
case AR_SHELL:
case AR_PROT:
case AR_HOST:
case AR_IP:
return TRUE; /* These ARS Keywords expect a string argument */
}
return FALSE;
}
/* Converts ASCII ARS string into binary ARS buffer */
#ifdef __BORLANDC__ /* Eliminate warning when buildling Baja */
#pragma argsused
#endif
uchar* arstr(ushort* count, char* str, scfg_t* cfg)
{
char* p;
char* np;
char ch;
uchar ar[1024],*ar_buf;
int artype=AR_INVALID;
uint i,j,n,not=0,equal=0;
uint maxlen;
BOOL arg_expected=FALSE;
for(i=j=0;str[i];i++) {
if(str[i]==' ')
continue;
if(str[i]=='(') {
if(not)
ar[j++]=AR_NOT;
not=equal=0;
ar[j++]=AR_BEGNEST;
continue;
}
if(str[i]==')') {
ar[j++]=AR_ENDNEST;
continue;
}
if(str[i]=='|') {
ar[j++]=AR_OR;
continue;
}
if(str[i]=='!') {
not=1;
continue;
}
if(str[i]=='=') {
equal=1;
continue;
}
if(str[i]=='&')
continue;
if(isalpha(str[i])) {
p=np=str+i;
SKIP_ALPHA(np);
n=np-p;
if(n==2 && !strnicmp(p,"OR",2)) {
ar[j++]=AR_OR;
i++;
continue;
}
if(n==3 && !strnicmp(p,"AND",3)) { /* AND is ignored */
i+=2;
continue;
}
if(n==3 && !strnicmp(p,"NOT",3)) {
not=1;
i+=2;
continue;
}
if(n==2 && equal && !strnicmp(p,"TO",2)) { /* EQUAL TO */
i++;
continue;
}
if(n==5 && !strnicmp(p,"EQUAL",5)) {
equal=1;
i+=4;
continue;
}
if(n==6 && !strnicmp(p,"EQUALS",6)) {
equal=1; i+=5;
continue;
}
}
if(str[i]=='$') {
arg_expected=TRUE;
switch((ch=toupper(str[++i]))) {
case 'A':
artype=AR_AGE;
break;
case 'B':
artype=AR_BPS;
break;
case 'C':
artype=AR_CREDIT;
break;
case 'D':
artype=AR_UDFR;
break;
case 'E':
artype=AR_EXPIRE;
break;
case 'F':
artype=AR_FLAG1;
break;
case 'H':
artype=AR_SUB;
break;
case 'I':
artype=AR_LIB;
break;
case 'J':
artype=AR_DIR;
break;
case 'K':
artype=AR_UDR;
break;
case 'L':
artype=AR_LEVEL;
break;
case 'M':
artype=AR_GROUP;
break;
case 'N':
artype=AR_NODE;
break;
case 'O':
artype=AR_TUSED;
break;
case 'P':
artype=AR_PCR;
break;
case 'Q':
artype=AR_RANDOM;
break;
case 'R':
artype=AR_TLEFT;
break;
case 'S':
artype=AR_SEX;
break;
case 'T':
artype=AR_TIME;
break;
case 'U':
artype=AR_USER;
break;
case 'V':
artype=AR_LOGONS; break;
case 'W':
artype=AR_DAY;
break;
case 'X':
artype=AR_EXEMPT;
break;
case 'Y': /* Days since last on */
artype=AR_LASTON;
break;
case 'Z':
artype=AR_REST;
/* Boolean (no argument) symbols */
case '0':
case 'G':
case '*':
case '[':
switch(ch) {
case '0':
artype=AR_NULL;
break;
case 'G':
artype=AR_LOCAL;
break;
case '*':
artype=AR_RIP;
break;
case '[':
artype=AR_ANSI;
break;
}
if(not)
ar[j++]=AR_NOT;
not=0;
ar[j++]=artype;
artype=AR_INVALID;
arg_expected=FALSE;
break;
}
continue;
}
if(!arg_expected && isalpha(str[i])) {
n=i;
if(!strnicmp(str+i,"AGE",3)) {
artype=AR_AGE;
i+=2;
}
else if(!strnicmp(str+i,"BPS",3)) {
artype=AR_BPS;
i+=2;
}
else if(!strnicmp(str+i,"PCR",3)) {
artype=AR_PCR;
i+=2;
}
else if(!strnicmp(str+i,"SEX",3)) {
artype=AR_SEX;
i+=2;
}
else if(!strnicmp(str+i,"UDR",3)) {
artype=AR_UDR;
i+=2;
}
else if(!strnicmp(str+i,"ULS",3)) {
artype=AR_ULS;
i+=2;
}
else if(!strnicmp(str+i,"ULK",3)) {
artype=AR_ULK; i+=2;
}
else if(!strnicmp(str+i,"ULM",3)) {
artype=AR_ULM;
i+=2;
}
else if(!strnicmp(str+i,"DLS",3)) {
artype=AR_DLS;
i+=2;
}
else if(!strnicmp(str+i,"DLK",3)) {
artype=AR_DLK;
i+=2;
}
else if(!strnicmp(str+i,"DLM",3)) {
artype=AR_DLM;
i+=2;
}
else if(!strnicmp(str+i,"DAY",3)) {
artype=AR_DAY;
i+=2;
}
else if(!strnicmp(str+i,"RIP",3)) {
artype=AR_RIP;
i+=2;
}
else if(!strnicmp(str+i,"WIP",3)) {
artype=AR_WIP;
i+=2;
}
else if(!strnicmp(str+i,"OS2",3)) {
artype=AR_OS2;
i+=2;
}
else if(!strnicmp(str+i,"DOS",3)) {
artype=AR_DOS;
i+=2;
}
else if(!strnicmp(str+i,"WIN32",5)) {
artype=AR_WIN32;
i+=4;
}
else if(!strnicmp(str+i,"UNIX",4)) {
artype=AR_UNIX;
i+=3;
}
else if(!strnicmp(str+i,"LINUX",5)) {
artype=AR_LINUX;
i+=4;
}
else if(!strnicmp(str+i,"PROT",4)) {
artype=AR_PROT;
i+=3;
}
else if(!strnicmp(str+i,"HOST",4)) {
artype=AR_HOST;
i+=3;
}
else if(!strnicmp(str+i,"IP",2)) {
artype=AR_IP;
i++;
}
else if(!strnicmp(str+i,"SUBCODE",7)) {
artype=AR_SUBCODE;
i+=6;
}
else if(!strnicmp(str+i,"SUB",3)) {
artype=AR_SUB;
i+=2;
} else if(!strnicmp(str+i,"LIB",3)) {
artype=AR_LIB;
i+=2;
}
else if(!strnicmp(str+i,"DIRCODE",7)) {
artype=AR_DIRCODE;
i+=6;
}
else if(!strnicmp(str+i,"DIR",3)) {
artype=AR_DIR;
i+=2;
}
else if(!strnicmp(str+i,"ANSI",4)) {
artype=AR_ANSI;
i+=3;
}
else if(!strnicmp(str+i,"UDFR",4)) {
artype=AR_UDFR;
i+=3;
}
else if(!strnicmp(str+i,"FLAG",4)) {
artype=AR_FLAG1;
i+=3;
}
else if(!strnicmp(str+i,"NODE",4)) {
artype=AR_NODE;
i+=3;
}
else if(!strnicmp(str+i,"NULL",4)) {
artype=AR_NULL;
i+=3;
}
else if(!strnicmp(str+i,"USER",4)) {
artype=AR_USER;
i+=3;
}
else if(!strnicmp(str+i,"TIME",4)) {
artype=AR_TIME;
i+=3;
}
else if(!strnicmp(str+i,"REST",4)) {
artype=AR_REST;
i+=3;
}
else if(!strnicmp(str+i,"LEVEL",5)) {
artype=AR_LEVEL;
i+=4;
}
else if(!strnicmp(str+i,"TLEFT",5)) {
artype=AR_TLEFT;
i+=4;
}
else if(!strnicmp(str+i,"TUSED",5)) {
artype=AR_TUSED;
i+=4;
}
else if(!strnicmp(str+i,"LOCAL",5)) {
artype=AR_LOCAL;
i+=4;
}
else if(!strnicmp(str+i,"GROUP",5)) {
artype=AR_GROUP;
i+=4;
}
else if(!strnicmp(str+i,"EXPIRE",6)) {
artype=AR_EXPIRE;
i+=5;
}
else if(!strnicmp(str+i,"ACTIVE",6)) {
artype=AR_ACTIVE; i+=5;
}
else if(!strnicmp(str+i,"INACTIVE",8)) {
artype=AR_INACTIVE;
i+=7;
}
else if(!strnicmp(str+i,"DELETED",7)) {
artype=AR_DELETED;
i+=6;
}
else if(!strnicmp(str+i,"EXPERT",6)) {
artype=AR_EXPERT;
i+=5;
}
else if(!strnicmp(str+i,"SYSOP",5)) {
artype=AR_SYSOP;
i+=4;
}
else if(!strnicmp(str+i,"GUEST",5)) {
artype=AR_GUEST;
i+=4;
}
else if(!strnicmp(str+i,"QNODE",5)) {
artype=AR_QNODE;
i+=4;
}
else if(!strnicmp(str+i,"QUIET",5)) {
artype=AR_QUIET;
i+=4;
}
else if(!strnicmp(str+i,"EXEMPT",6)) {
artype=AR_EXEMPT;
i+=5;
}
else if(!strnicmp(str+i,"RANDOM",6)) {
artype=AR_RANDOM;
i+=5;
}
else if(!strnicmp(str+i,"LASTON",6)) {
artype=AR_LASTON;
i+=5;
}
else if(!strnicmp(str+i,"LOGONS",6)) {
artype=AR_LOGONS;
i+=5;
}
else if(!strnicmp(str+i,"CREDIT",6)) {
artype=AR_CREDIT;
i+=5;
}
else if(!strnicmp(str+i,"MAIN_CMDS",9)) {
artype=AR_MAIN_CMDS;
i+=8;
}
else if(!strnicmp(str+i,"FILE_CMDS",9)) {
artype=AR_FILE_CMDS;
i+=8;
}
else if(!strnicmp(str+i,"SHELL",5)) {
artype=AR_SHELL;
i+=4;
}
if(n!=i) /* one of the above */
{
arg_expected=TRUE;
switch(artype) {
case AR_RIP:
case AR_WIP:
case AR_ANSI: case AR_DOS:
case AR_OS2:
case AR_UNIX:
case AR_LINUX:
case AR_WIN32:
case AR_LOCAL:
case AR_ACTIVE:
case AR_INACTIVE:
case AR_DELETED:
case AR_EXPERT:
case AR_SYSOP:
case AR_GUEST:
case AR_QNODE:
case AR_QUIET:
/* Boolean (No arguments) */
if(not)
ar[j++]=AR_NOT;
not=0;
ar[j++]=artype;
artype=AR_INVALID;
arg_expected=FALSE;
break;
}
continue;
}
}
if(not)
ar[j++]=AR_NOT;
if(equal && !ar_string_arg(artype))
ar[j++]=AR_EQUAL;
not=equal=0;
if(artype==AR_FLAG1 && isdigit(str[i])) { /* flag set specified */
switch(str[i]) {
case '2':
artype=AR_FLAG2;
break;
case '3':
artype=AR_FLAG3;
break;
case '4':
artype=AR_FLAG4;
break;
}
continue;
}
arg_expected=FALSE;
if(artype==AR_SUB && !isdigit(str[i]))
artype=AR_SUBCODE;
if(artype==AR_DIR && !isdigit(str[i]))
artype=AR_DIRCODE;
if(artype==AR_INVALID)
artype=AR_LEVEL;
ar[j++]=artype;
if(isdigit(str[i]) && !ar_string_arg(artype)) {
if(artype==AR_TIME) {
n=atoi(str+i)*60;
p=strchr(str+i,':');
if(p)
n+=atoi(p+1);
*((short *)(ar+j))=n;
j+=2;
while(isdigit(str[i+1]) || str[i+1]==':') i++;
continue;
}
n=atoi(str+i);
switch(artype) { case AR_DAY:
if(n>6) /* not past saturday */
n=6;
case AR_AGE: /* byte operands */
case AR_PCR:
case AR_UDR:
case AR_UDFR:
case AR_NODE:
case AR_LEVEL:
case AR_TLEFT:
case AR_TUSED:
ar[j++]=n;
break;
case AR_BPS: /* int operands */
if(n<300)
n*=100;
case AR_MAIN_CMDS:
case AR_FILE_CMDS:
case AR_EXPIRE:
case AR_CREDIT:
case AR_USER:
case AR_RANDOM:
case AR_LASTON:
case AR_LOGONS:
case AR_ULS:
case AR_ULK:
case AR_ULM:
case AR_DLS:
case AR_DLK:
case AR_DLM:
*((short *)(ar+j))=n;
j+=sizeof(short);
break;
case AR_GROUP:
case AR_LIB:
case AR_DIR:
case AR_SUB:
if(n) n--; /* convert to 0 base */
*((short *)(ar+j))=n;
j+=2;
break;
default: /* invalid numeric AR type */
j--;
break;
}
while(isdigit(str[i+1])) i++;
continue;
}
maxlen=128;
switch(artype) {
case AR_SUBCODE:
case AR_DIRCODE:
case AR_SHELL:
maxlen=LEN_EXTCODE;
case AR_PROT:
case AR_HOST:
case AR_IP:
/* String argument */
for(n=0;n<maxlen
&& str[i]
&& str[i]!=' '
&& str[i]!='('
&& str[i]!=')'
&& str[i]!='='
&& str[i]!='|'
&& str[i]!='&'
;n++)
ar[j++]=toupper(str[i++]);
ar[j++]=0;
i--; break;
case AR_FLAG1:
case AR_FLAG2:
case AR_FLAG3:
case AR_FLAG4:
case AR_EXEMPT:
case AR_SEX:
case AR_REST:
ar[j++]=toupper(str[i]);
break;
case AR_SUB:
for(n=0;n<(uint)cfg->total_subs;n++)
if(!strnicmp(str+i,cfg->sub[n]->code,strlen(cfg->sub[n]->code)))
break;
if(n<(uint)cfg->total_subs) {
*((short *)(ar+j))=n;
j+=2;
}
else /* Unknown sub-board */
j--;
while(isalpha(str[i+1])) i++;
break;
case AR_DIR:
for(n=0;n<(uint)cfg->total_dirs;n++)
if(!strnicmp(str+i,cfg->dir[n]->code,strlen(cfg->dir[n]->code)))
break;
if(n<(uint)cfg->total_dirs) {
*((short *)(ar+j))=n;
j+=2;
}
else /* Unknown directory */
j--;
while(isalpha(str[i+1])) i++;
break;
case AR_DAY:
if(toupper(str[i])=='S'
&& toupper(str[i+1])=='U') /* Sunday */
ar[j++]=0;
else if(toupper(str[i])=='M') /* Monday */
ar[j++]=1;
else if(toupper(str[i])=='T'
&& toupper(str[i+1])=='U') /* Tuesday */
ar[j++]=2;
else if(toupper(str[i])=='W') /* Wednesday */
ar[j++]=3;
else if(toupper(str[i])=='T'
&& toupper(str[i+1])=='H') /* Thursday */
ar[j++]=4;
else if(toupper(str[i])=='F') /* Friday */
ar[j++]=5;
else ar[j++]=6; /* Saturday */
while(isalpha(str[i+1])) i++;
break;
default: /* Badly formed ARS, digit expected */
j--;
break;
}
}
if(!j)
return((uchar*)nular); /* Save memory */
ar[j++]=AR_NULL;
/** DEBUG stuff
for(i=0;i<j;i++)
lprintf(LOG_DEBUG,"%02X ",(uint)ar[i]);
lputs("\r\n");
***/
if((ar_buf=(uchar *)calloc(j+4,1))==NULL) /* Padded for ushort dereferencing */
return(NULL);
memcpy(ar_buf,ar,j); if(count)
(*count)=j;
return(ar_buf);
}
#ifdef ARS_VERIFY /* Verification for arstr() */
char *decompile_ars(uchar *ars, int len)
{
static char buf[1024];
char *out;
uchar *in;
uint n;
int equals=0;
int not=0;
out=buf;
buf[0]=0;
for(in=ars;in<ars+len;in++) {
switch(*in) {
case AR_NULL:
break;
case AR_OR:
*(out++)='|';
break;
case AR_NOT:
not=1;
break;
case AR_EQUAL:
equals=1;
break;
case AR_BEGNEST:
if(not)
*(out++)='!';
not=0;
*(out++)='(';
break;
case AR_ENDNEST:
*(out++)=')';
break;
case AR_LEVEL:
*(out++)='$';
*(out++)='L';
break;
case AR_AGE:
*(out++)='$';
*(out++)='A';
break;
case AR_BPS:
*(out++)='$';
*(out++)='B';
break;
case AR_NODE:
*(out++)='$';
*(out++)='N';
break;
case AR_TLEFT:
*(out++)='$';
*(out++)='R';
break;
case AR_TUSED:
*(out++)='$'; *(out++)='O';
break;
case AR_USER:
*(out++)='$';
*(out++)='U';
break;
case AR_TIME:
*(out++)='$';
*(out++)='T';
break;
case AR_PCR:
*(out++)='$';
*(out++)='P';
break;
case AR_FLAG1:
*(out++)='$';
*(out++)='F';
*(out++)='1';
break;
case AR_FLAG2:
*(out++)='$';
*(out++)='F';
*(out++)='2';
break;
case AR_FLAG3:
*(out++)='$';
*(out++)='F';
*(out++)='3';
break;
case AR_FLAG4:
*(out++)='$';
*(out++)='F';
*(out++)='4';
break;
case AR_EXEMPT:
*(out++)='$';
*(out++)='X';
break;
case AR_REST:
*(out++)='$';
*(out++)='Z';
break;
case AR_SEX:
*(out++)='$';
*(out++)='S';
break;
case AR_UDR:
*(out++)='$';
*(out++)='K';
break;
case AR_UDFR:
*(out++)='$';
*(out++)='D';
break;
case AR_EXPIRE:
*(out++)='$';
*(out++)='E';
break;
case AR_CREDIT:
*(out++)='$';
*(out++)='C';
break;
case AR_DAY:
*(out++)='$';
*(out++)='W';
break;
case AR_ANSI:
if(not)
*(out++)='!';
not=0;
*(out++)='$';
*(out++)='[';
break;
case AR_RIP:
if(not)
*(out++)='!';
not=0;
*(out++)='$';
*(out++)='*';
break;
case AR_LOCAL:
if(not)
*(out++)='!';
not=0;
*(out++)='$';
*(out++)='G';
break;
case AR_GROUP:
*(out++)='$';
*(out++)='M';
break;
case AR_SUB:
*(out++)='$';
*(out++)='H';
break;
case AR_LIB:
*(out++)='$';
*(out++)='I';
break;
case AR_DIR:
*(out++)='$';
*(out++)='J';
break;
case AR_EXPERT :
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"EXPERT");
out=strchr(out,0);
break;
case AR_SYSOP:
if(not)
*(out++)='!';
not=0;
*out=0; strcat(out,"SYSOP");
out=strchr(out,0);
break;
case AR_QUIET:
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"QUIET");
out=strchr(out,0);
break;
case AR_MAIN_CMDS:
*out=0;
strcat(out,"MAIN_CMDS");
out=strchr(out,0);
break;
case AR_FILE_CMDS:
*out=0;
strcat(out,"FILE_CMDS");
out=strchr(out,0);
break;
case AR_RANDOM:
*(out++)='$';
*(out++)='Q';
break;
case AR_LASTON:
*(out++)='$';
*(out++)='Y';
break;
case AR_LOGONS:
*(out++)='$';
*(out++)='V';
break;
case AR_WIP:
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"WIP");
out=strchr(out,0);
break;
case AR_SUBCODE:
*out=0;
strcat(out,"SUB ");
out=strchr(out,0);
break;
case AR_DIRCODE:
*out=0;
strcat(out,"DIR ");
out=strchr(out,0);
break;
case AR_OS2:
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"OS2");
out=strchr(out,0);
break; case AR_DOS:
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"DOS");
out=strchr(out,0);
break;
case AR_WIN32:
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"WIN32");
out=strchr(out,0);
break;
case AR_UNIX:
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"UNIX");
out=strchr(out,0);
break;
case AR_LINUX :
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"LINUX");
out=strchr(out,0);
break;
case AR_SHELL:
*out=0;
strcat(out,"SHELL ");
out=strchr(out,0);
break;
case AR_PROT:
*out=0;
strcat(out,"PROT ");
out=strchr(out,0);
break;
case AR_HOST:
*out=0;
strcat(out,"HOST ");
out=strchr(out,0);
break;
case AR_IP:
*out=0;
strcat(out,"IP ");
out=strchr(out,0);
break;
case AR_GUEST:
if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"GUEST");
out=strchr(out,0);
break;
case AR_QNODE: if(not)
*(out++)='!';
not=0;
*out=0;
strcat(out,"QNODE");
out=strchr(out,0);
break;
default:
printf("Error decoding AR: %02Xh, offset: %u\n", *in, in-ars);
return("Unknown ARS String");
}
switch(*in) {
case AR_TIME:
if(not)
*(out++)='!';
if(equals)
*(out++)='=';
not=equals=0;
in++;
n=*((short *)in);
in++;
out+=sprintf(out,"%02d:%02d",n/60,n%60);
break;
case AR_AGE: /* byte operands */
case AR_PCR:
case AR_UDR:
case AR_UDFR:
case AR_NODE:
case AR_LEVEL:
case AR_TLEFT:
case AR_TUSED:
if(not)
*(out++)='!';
if(equals)
*(out++)='=';
not=equals=0;
in++;
out+=sprintf(out,"%d",*in);
break;
case AR_BPS: /* int operands */
case AR_MAIN_CMDS:
case AR_FILE_CMDS:
case AR_EXPIRE:
case AR_CREDIT:
case AR_USER:
case AR_RANDOM:
case AR_LASTON:
case AR_LOGONS:
if(not)
*(out++)='!';
if(equals)
*(out++)='=';
not=equals=0;
in++;
n=*((short *)in);
in++;
out+=sprintf(out,"%d",n);
break;
case AR_GROUP:
case AR_LIB:
case AR_DIR:
case AR_SUB:
if(not)
*(out++)='!';
if(equals)
*(out++)='=';
not=equals=0;
in++;
n=*((short *)in); n++; /* convert from to 0 base */
in++;
out+=sprintf(out,"%d",n);
break;
case AR_SUBCODE:
case AR_DIRCODE:
case AR_SHELL:
case AR_PROT:
case AR_HOST:
case AR_IP:
if(not)
*(out++)='!';
if(equals)
*(out++)='=';
not=equals=0;
in++;
n=sprintf(out,"%s ",in);
out+=n;
in+=n-1;
break;
case AR_FLAG1:
case AR_FLAG2:
case AR_FLAG3:
case AR_FLAG4:
case AR_EXEMPT:
case AR_SEX:
case AR_REST:
if(not)
*(out++)='!';
if(equals)
*(out++)='=';
not=equals=0;
in++;
*(out++)=*in;
break;
}
}
*out=0;
return(buf);
}
void main(void)
{
char* example[] =
{
"LEVEL 60"
,"LEVEL60"
,"$L60"
,"60"
,"NOT LEVEL 60"
,"LEVEL NOT 60"
,"LEVEL !60"
,"$L!60"
,"!60"
,"LEVEL EQUAL 60"
,"LEVEL EQUALS 60"
,"LEVEL EQUAL TO 60"
,"LEVEL = 60"
,"LEVEL=60"
,"=60"
,"LEVEL 60 AND FLAG 1A"
,"LEVEL 60 FLAG 1A"
,"LEVEL 60 AND FLAG A"
,"LEVEL 60 AND FLAG1 A"
,"LEVEL 60 AND FLAG 1 A"
,"LEVEL 60 AND FLAG1A"
,"LEVEL 60 & $F A"
,"$L60 AND $FA"
,"$L60$FA"
,"60$FA" ,"SEX F OR LEVEL 90"
,"SEX F | LEVEL 90"
,"SEXF|LEVEL90"
,"$SF | $L90"
,"$SF|$L90"
,"USER NOT EQUAL TO 20"
,"$U!=20"
,"BPS 9600 OR NOT TIME 19:00"
,"BPS 9600 OR NOT TIME 19"
,"BPS 96 OR NOT TIME 19"
,"$B 9600 OR NOT $T19"
,"BPS9600|!TIME19"
,"$B96|!$T19"
,"BPS 9600 OR TIME NOT 18:00 OR TIME 21:30"
,"BPS 9600 OR TIME NOT 18:00 OR 21:30"
,"$B 9600 OR NOT $T 18 OR 21:30"
,"$B96|$T!18|21:30"
,"FLAG A OR FLAG B OR FLAG C OR LEVEL 90"
,"FLAG A OR B OR C OR LEVEL 90"
,"FLAG A|B|C OR LEVEL 90"
,"$FA|B|C|$L90"
,"USER EQUALS 145 OR LEVEL 90"
,"USER=145 OR LEVEL 90"
,"$U=145|$L90"
,"LEVEL 60 AND FLAG X AND FLAG Y AND FLAG Z"
,"LEVEL 60 AND FLAG X AND Y AND Z"
,"LEVEL 60 AND FLAG X Y Z"
,"LEVEL 60 FLAG XYZ"
,"LEVEL60 FLAGXYZ"
,"$L60 $FXYZ"
,"60$FXYZ"
,"FLAG 2A OR FLAG 2B OR FLAG 4Z"
,"FLAG 2A OR B OR FLAG 4Z"
,"FLAG 2A OR FLAG B OR FLAG 4Z" /* not the same as above and below */
,"FLAG2A|B OR FLAG4Z"
,"$F2A|B|$F4Z"
,"NOT FLAG 2G"
,"FLAG NOT 2G"
,"FLAG 2 NOT G"
,"!$F2G"
,"$F!2G"
,"$F2!G"
,"BPS 9600 OR (BPS 2400 AND TIME NOT 15:00)"
,"$B9600|($B2400$T!15)"
,"(SEX M AND AGE 21) OR (SEX F AND AGE 18)"
,"($SM$A21)|($SF$A18)"
,"AGE 21 OR (SEX F AND AGE 18)"
,"(BPS 2400 AND PCR 20) OR LEVEL 90"
,"(BPS 2400 AND PCR 20) OR 90"
,"($B 2400 $P 20) | $L 90"
,"($B2400$P20)|$L90"
,"NOT (USER=1 OR USER=20)"
,"NOT USER=1 AND NOT USER=20"
,"LEVEL 90 OR (TIME 12:00 AND TIME NOT 18:00)"
,"(TIME 12:00 AND TIME NOT 18:00) OR LEVEL 90"
,"(TIME 12:00 AND NOT 18:00) OR LEVEL 90"
,"($T12!18)|90"
,"PROT NOTIFY"
,"PROT NOT IFY"
,"PROT NOT NOTIFY"
,"NOT PROT NOTIFY"
,"HOST NOT SEXY"
,"HOST !*.YAHOO.COM"
,"FLAGA SEXY"
,"FLAGA SEX Y"
,"FLAGA AND SEX Y"
,"FLAG SEXY"
,"FLAG SEX2Y"
,"FLAG 2 SEXY"
,"FLAG2SEXY" ,"FLAG2ASEXY"
,"IP192.168.1.*"
,"HOST!=LOCALHOST&IP!=127.0.0.1"
/* terminator */
,NULL
};
int i,j;
uchar* ar;
ushort cnt;
for(i=0;example[i]!=NULL;i++) {
printf("Example : %s\n", example[i]);
ar=arstr(&cnt, example[i], NULL);
printf("Compiled : ");
for(j=0;j<cnt;j++)
printf("%02X ",ar[j]);
printf("\n");
printf("Decompiled: %s\n\n", decompile_ars(ar,cnt));
}
}
#endif