#include <stdio.h>

#define BYTE(l,h) (((l)<<4)|((h)&0xFF))

void rtf2char(unsigned char *data,size_t max,FILE *f)
{


	size_t uk=0;
	unsigned char c;

	while(uk<max)
        {
        // 5C = \
        // 27 = '

        // \'
        if(data[uk]==0x5C && data[uk+1]==0x27)
                {
                uk+=2;

                while(data[uk]<0x40){fputc(data[uk],f);uk++;}

                if(data[uk]>=0x60){data[uk]-=0x57;}
                else if(data[uk]>=0x30){data[uk]-=0x30;}

                if(data[uk+1]>=0x60){data[uk+1]-=0x57;}
                else if(data[uk+1]>=0x30){data[uk+1]-=0x30;}

                c=BYTE(data[uk],data[uk+1]);
				fputc(c,f);

                uk+=2;

                while(data[uk]<0x40){fputc(data[uk],f);uk++;}
				}
                   else{uk++;}

        }
}


int main(int argc, char* argv[])
{
FILE *f,*out;
int szbuffer=0;
unsigned char *buffer;
unsigned long si=0;

f=fopen("psix.test","rb");
if(f==NULL){printf("Error open!"); return 0;}

out=fopen("test.txt","w");
if(out==NULL){printf("Error open out file!"); return 0;}

fseek (f , 0 , SEEK_END);
szbuffer = ftell (f);
rewind (f);

buffer=(unsigned char *)malloc(szbuffer);
if (buffer == NULL) {printf("Memory Error\n"); exit (2);}
if (fread (buffer,1,szbuffer,f) != szbuffer) {printf ("Reading error\n"); free(buffer); exit (3);}

rtf2char(buffer,szbuffer,out);

free(buffer);
fclose(out);
fclose(f);


        return 0;
}