//author: Victor Muņoz (vmunoz@ingenieria-inversa.cl
//license: the very same than radare, blah, blah
//some definitions and test cases borrowed from http://www.nightmare.com/~ryb/code/CrcMoose.py (Ray Burr)

typedef struct t_crc_ctx {
    unsigned int crc;
    unsigned int size;
    int reflect;
    unsigned int poly;
    unsigned int xout;
} t_crc_ctx;

void crc_init(t_crc_ctx *ctx, unsigned int crc, unsigned int size, int reflect, unsigned int poly, unsigned int xout) {
    ctx->crc=crc;
    ctx->size=size;
    ctx->reflect=reflect;
    ctx->poly=poly;
    ctx->xout=xout;
}
         
void crc_update(t_crc_ctx *ctx, unsigned char *data, unsigned int sz) {
    unsigned int crc, d;
    int i, j;
        
    crc=ctx->crc;
    for(i=0; i<sz; i++) {
        d=data[i];
        if(ctx->reflect) for (j=0; j<4; j++) if(((d>>j)^(d>>(7-j)))&1) d^=(1<<j)^(1<<(7-j));
        crc^=d<<(ctx->size-8);
        for(j=0; j<8; j++) crc=((crc>>(ctx->size-1))&1?ctx->poly:0)^(crc<<1);
    }
    ctx->crc=crc;
}

static void crc_final(t_crc_ctx *ctx, unsigned int *r) {
    unsigned int crc;
    int i;
    
    crc=ctx->crc; 
    crc&=((((unsigned int)1<<(ctx->size-1))-1)<<1)|1;
    if(ctx->reflect) for(i=0; i<(ctx->size>>1); i++)
        if(((crc>>i)^(crc>>(ctx->size-1-i)))&1) crc^=((unsigned int)1<<i)^((unsigned int)1<<(ctx->size-1-i));
    
    *r=crc^ctx->xout;
}

enum CRC_PRESETS {
     CRC_32=0,
     CRC_16,
     CRC_32_ECMA_267,
     CRC_32C,    
     CRC_24,
     CRC_16_CITT,
     CRC_16_USB,
     CRC_16_HDLC,
     CRC_15_CAN,
     CRC_8_SMBUS
};

t_crc_ctx crc_presets[]={
    {0xFFFFFFFF, 32, 1, 0x04C11DB7, 0xFFFFFFFF}, //CRC-32, test vector for "1234567892: cbf43926
    {0x0000,     16, 1, 0x8005,     0x0000},     //CRC-16-IBM, test vector for "1234567892: bb3d
    {0x00000000, 32, 0, 0x80000011, 0x00000000}, //CRC-32-ECMA-267 (EDC for DVD sectors), test vector for "1234567892: b27ce117
    {0xFFFFFFFF, 32, 1, 0x1EDC6F41, 0xFFFFFFFF}, //CRC-32C, test vector for "1234567892: e3069283
    {0xB704CE,   24, 0, 0x864CFB,   0x000000},   //CRC-24, test vector for "1234567892: 21cf02
    {0xFFFF,     16, 0, 0x1021,     0x0000},     //CRC-16-CITT, test vector for "1234567892: 29b1
    {0xFFFF,     16, 1, 0x8005,     0xFFFF},     //CRC-16-USB, test vector for "1234567892:  b4c8
    {0xFFFF,     16, 1, 0x1021,     0xFFFF},     //CRC-HDLC, test vector for "1234567892: 906e
    {0x0000,     15, 0, 0x4599,     0x0000},     //CRC-15-CAN, test vector for "1234567892: 059e
    {0x00,       8,  0, 0x07,       0x00},       //CRC-8-SMBUS, test vector for "1234567892: f4
};

void crc_init_preset(t_crc_ctx *ctx, enum CRC_PRESETS preset) {
    ctx->crc=crc_presets[preset].crc;
    ctx->size=crc_presets[preset].size;
    ctx->reflect=crc_presets[preset].reflect;
    ctx->poly=crc_presets[preset].poly;
    ctx->xout=crc_presets[preset].xout;
}

#if 1
#include <stdio.h>
int main() {
    int i;
    unsigned int r;
    t_crc_ctx crc32;

    for(i=CRC_32; i<=CRC_8_SMBUS; i++) {
       	crc_init_preset(&crc32, (enum CRC_PRESETS)i);
        crc_update(&crc32, (unsigned char *)"123456789", 9);
        crc_final(&crc32, &r);
        printf("%08x\n", r);
    }

    return 0;
}
#endif