static char *get_filetype (RBinFile *arch) {
ut8 buf[4096] = {0};
char *res = NULL;
RMagic * ck;
if (!arch) return NULL;
ck = r_magic_new (0);
if (ck && arch && arch->buf) {
const char *tmp = NULL;
r_magic_load (ck, R_MAGIC_PATH);
r_buf_read_at (arch->buf, 0, buf, sizeof (buf));
tmp = r_magic_buffer (ck, buf, sizeof (buf));
if (tmp) res = strdup (tmp);
}
r_magic_free (ck);
return res;
}
static void get_filetype (RBinFile *arch, char *res, int len) {
ut8 test_buffer[4096] = {0};
RMagic * ck;
if (!res || !arch)
return;
ck = r_magic_new (0);
*res = 0;
if (ck && arch && arch->buf) {
const char *tmp;
r_magic_load (ck, R_MAGIC_PATH);
r_buf_read_at (arch->buf, 0, test_buffer, 4096);
tmp = r_magic_buffer (ck, test_buffer, 4096);
if (tmp)
strncpy (res, tmp, len-1);
}
r_magic_free (ck);
}
static int r_core_magic_at(RCore *core, const char *file, ut64 addr, int depth, int v) {
const char *fmt;
char *q, *p;
const char *str;
int found = 0, delta = 0, adelta = 0;
const char *cmdhit = r_config_get (core->config, "cmd.hit");
#define NAH 32
if (--depth<0)
return 0;
if (addr != core->offset) {
#if 1
if (addr >= core->offset && (addr+NAH) < (core->offset + core->blocksize)) {
delta = addr - core->offset;
} else {
r_core_seek (core, addr, R_TRUE);
}
#endif
}
if (((addr&7)==0) && ((addr&(7<<3))==0))
eprintf ("0x%08"PFMT64x"\r", addr);
if (file) {
if (*file == ' ') file++;
if (!*file) file = NULL;
}
if (ck==NULL) {
// TODO: Move RMagic into RCore
r_magic_free (ck);
// allocate once
ck = r_magic_new (0);
if (file) {
if (r_magic_load (ck, file) == -1) {
eprintf ("failed r_magic_load (\"%s\") %s\n", file, r_magic_error (ck));
return -1;
}
} else {
const char *magicpath = r_config_get (core->config, "dir.magic");
if (r_magic_load (ck, magicpath) == -1) {
eprintf ("failed r_magic_load (dir.magic) %s\n", r_magic_error (ck));
return -1;
}
}
}
//repeat:
//if (v) r_cons_printf (" %d # pm %s @ 0x%"PFMT64x"\n", depth, file? file: "", addr);
str = r_magic_buffer (ck, core->block+delta, core->blocksize-delta);
if (str) {
if (!v && !strcmp (str, "data")) {
r_magic_free (ck);
ck = NULL;
return -1;
}
p = strdup (str);
fmt = p;
// processing newlinez
for (q=p; *q; q++)
if (q[0]=='\\' && q[1]=='n') {
*q = '\n';
strcpy (q+1, q+((q[2]==' ')? 3: 2));
}
if (cmdhit && *cmdhit) {
r_core_cmd0 (core, cmdhit);
}
// TODO: This must be a callback .. move this into RSearch?
r_cons_printf ("0x%08"PFMT64x" %d %s\n", addr + adelta, magicdepth-depth, p);
r_cons_clear_line (1);
eprintf ("0x%08"PFMT64x" 0x%08"PFMT64x" %d %s\n",
addr+adelta, addr+adelta, magicdepth-depth, p);
// walking children
for (q=p; *q; q++) {
switch (*q) {
case ' ':
fmt = q+1;
break;
case '@':
{
ut64 addr = 0LL;
*q = 0;
if (!memcmp (q+1, "0x", 2))
sscanf (q+3, "%"PFMT64x, &addr);
else sscanf (q+1, "%"PFMT64d, &addr);
if (!fmt || !*fmt) fmt = file;
r_core_magic_at (core, fmt, addr, depth, 1);
*q = '@';
}
break;
}
}
free (p);
r_magic_free (ck);
ck = NULL;
found ++;
// return adelta+1;
}
adelta ++;
delta ++;
#if 0
if((core->blocksize-delta)>16)
goto repeat;
#endif
#if 0
r_magic_free (ck);
ck = NULL;
#endif
return adelta; //found;
}
static int r_core_magic_at(RCore *core, const char *file, ut64 addr, int depth, int v) {
const char *fmt;
char *q, *p;
const char *str;
int found = 0, delta = 0, adelta = 0;
#define NAH 32
if (--depth<0) {
return 0;
}
if (addr != core->offset) {
#if 1
if (addr >= core->offset && (addr+NAH) < (core->offset + core->blocksize)) {
delta = addr - core->offset;
} else {
r_core_seek (core, addr, true);
}
#endif
}
if (core->search->align) {
int mod = addr % core->search->align;
if (mod) {
eprintf ("Unaligned search at %d\n", mod);
return mod;
}
}
if (((addr&7)==0) && ((addr&(7<<8))==0))
eprintf ("0x%08"PFMT64x"\r", addr);
if (file) {
if (*file == ' ') file++;
if (!*file) file = NULL;
}
if (file && ofile && file != ofile) {
if (strcmp (file, ofile)) {
r_magic_free (ck);
ck = NULL;
}
}
if (ck==NULL) {
// TODO: Move RMagic into RCore
r_magic_free (ck);
// allocate once
ck = r_magic_new (0);
if (file) {
free (ofile);
ofile = strdup (file);
if (r_magic_load (ck, file) == -1) {
eprintf ("failed r_magic_load (\"%s\") %s\n", file, r_magic_error (ck));
ck = NULL;
return -1;
}
} else {
const char *magicpath = r_config_get (core->config, "dir.magic");
if (r_magic_load (ck, magicpath) == -1) {
ck = NULL;
eprintf ("failed r_magic_load (dir.magic) %s\n", r_magic_error (ck));
return -1;
}
}
}
//repeat:
//if (v) r_cons_printf (" %d # pm %s @ 0x%"PFMT64x"\n", depth, file? file: "", addr);
if (delta+2>core->blocksize) {
eprintf ("EOB\n");
return -1;
}
str = r_magic_buffer (ck, core->block+delta, core->blocksize-delta);
if (str) {
const char *cmdhit;
#if USE_LIB_MAGIC
if (!v && (!strcmp (str, "data") || strstr(str, "ASCII") || strstr(str, "ISO") || strstr(str, "no line terminator"))) {
#else
if (!v && (!strcmp (str, "data"))) {
#endif
int mod = core->search->align;
if (mod<1) mod = 1;
//r_magic_free (ck);
//ck = NULL;
//return -1;
return mod+1;
}
p = strdup (str);
fmt = p;
// processing newlinez
for (q=p; *q; q++) {
if (q[0]=='\\' && q[1]=='n') {
*q = '\n';
strcpy (q+1, q+((q[2]==' ')? 3: 2));
}
}
cmdhit = r_config_get (core->config, "cmd.hit");
if (cmdhit && *cmdhit) {
r_core_cmd0 (core, cmdhit);
}
// TODO: This must be a callback .. move this into RSearch?
r_cons_printf ("0x%08"PFMT64x" %d %s\n", addr + adelta, magicdepth-depth, p);
r_cons_clear_line (1);
eprintf ("0x%08"PFMT64x" 0x%08"PFMT64x" %d %s\n",
addr+adelta, addr+adelta, magicdepth-depth, p);
// walking children
for (q=p; *q; q++) {
switch (*q) {
case ' ':
fmt = q+1;
break;
case '@':
{
ut64 addr = 0LL;
*q = 0;
if (!memcmp (q+1, "0x", 2))
sscanf (q+3, "%"PFMT64x, &addr);
else sscanf (q+1, "%"PFMT64d, &addr);
if (!fmt || !*fmt) fmt = file;
r_core_magic_at (core, fmt, addr, depth, 1);
*q = '@';
}
break;
}
}
free (p);
r_magic_free (ck);
ck = NULL;
found ++;
// return adelta+1;
}
adelta ++;
delta ++;
#if 0
if((core->blocksize-delta)>16)
goto repeat;
#endif
#if 0
r_magic_free (ck);
ck = NULL;
#endif
{
int mod = core->search->align;
if (mod) {
return mod; //adelta%addr + deR_ABS(mod-adelta)+1;
}
}
return adelta; //found;
}
static void r_core_magic(RCore *core, const char *file, int v) {
ut64 addr = core->offset;
magicdepth = r_config_get_i (core->config, "magic.depth"); // TODO: do not use global var here
r_core_magic_at (core, file, addr, magicdepth, v);
if (addr != core->offset)
r_core_seek (core, addr, true);
}
static int r_core_magic_at(RCore *core, const char *file, ut64 addr, int depth, int v) {
const char *fmt;
char *q, *p;
const char *str;
if (--depth<0)
return 1;
if (addr != core->offset)
r_core_seek (core, addr, R_TRUE);
eprintf ("0x%08"PFMT64x"\r", addr);
if (file) {
if (*file == ' ') file++;
if (!*file) file = NULL;
}
if (ck==NULL || (file && strcmp (file, oldfile))) {
// TODO: Move RMagic into RCore
r_magic_free (ck);
ck = r_magic_new (0);
if (file) {
if (r_magic_load (ck, file) == -1) {
eprintf ("failed r_magic_load (\"%s\") %s\n", file, r_magic_error (ck));
return -1;
}
} else {
const char *magicpath = r_config_get (core->config, "dir.magic");
if (r_magic_load (ck, magicpath) == -1) {
eprintf ("failed r_magic_load (dir.magic) %s\n", r_magic_error (ck));
return -1;
}
}
}
//if (v) r_cons_printf (" %d # pm %s @ 0x%"PFMT64x"\n", depth, file? file: "", addr);
str = r_magic_buffer (ck, core->block, core->blocksize);
if (str) {
if (!v && !strcmp (str, "data"))
return -1;
p = strdup (str);
fmt = p;
// processing newlinez
for (q=p; *q; q++)
if (q[0]=='\\' && q[1]=='n') {
*q = '\n';
strcpy (q+1, q+((q[2]==' ')? 3: 2));
}
// TODO: This must be a callback .. move this into RSearch?
r_cons_printf ("0x%08"PFMT64x" %d %s\n", addr, magicdepth-depth, p);
r_cons_clear_line (1);
eprintf ("0x%08"PFMT64x" 0x%08"PFMT64x" %d %s\r",
addr, addr, magicdepth-depth, p);
// walking children
for (q=p; *q; q++) {
switch (*q) {
case ' ':
fmt = q+1;
break;
case '@':
*q = 0;
if (!memcmp (q+1, "0x", 2))
sscanf (q+3, "%"PFMT64x, &addr);
else sscanf (q+1, "%"PFMT64d, &addr);
if (!fmt || !*fmt) fmt = file;
r_core_magic_at (core, fmt, addr, depth, 1);
*q = '@';
}
}
free (p);
return 1;
}
return 0;
}
