/* radare - LGPL - Copyright 2009-2026 - pancake */ #if R_INCLUDE_BEGIN typedef struct { RCore *core; ut64 fdsz; } DescListCtx; static RCoreHelpMessage help_msg_o = { "Usage: o", "[file] ([offset])", "Open and close files, maps, and banks", "o", "", "list opened files", "o", " [file] 0x4000 rwx", "map file at 0x4000", "o", " [file]", "open [file] file in read-only", "o", "-1", "close file descriptor 1", "o*", "[*]", "list opened files in r2 commands, show r2 script to set flag for each fd", "o+", " [file]", "open a file in read-write mode", "o++", " [file]", "create and open file in read-write mode (see ot/omr)", "o-", "[?][#!*$.]", "close opened files", "o.", "", "show current filename (or o.q/oq to get the fd)", "o:", " [len]", "open a malloc://[len] copying the bytes from current offset", // XXX R2_590 - should be an alias for ':' no need for a malloc:// wrapper imho "o=", "(#fd)", "select fd or list opened files in ascii-art", "oL", "", "list all IO plugins registered", "oa", "[-] [A] [B] [file]", "specify arch and bits for given 'file'", "ob", "[?] [lbdos] [...]", "list opened binary files backed by fd", "oc", " [file]", "open core file, like relaunching r2", "of", "[?] [file]", "open file without creating any map", "oe", " [file]", "open cfg.editor with given 'file'", "oj", "", "list opened files in JSON format", "om", "[?]", "create, list, remove IO maps", "on", "[?][n] [file] 0x4000", "map raw 'file' at 0x4000 (no r_bin involved)", "oo", "[?][+bcdnm]", "reopen current file (see oo?) (reload in rw or debugger)", "op", "[npr] [fd]", "select priorized file by fd (see ob), opn/opp/opr = next/previous/rotate", "ot", " [file]", "same as `touch [file]`", "oq", "[q]", "list all open files or show current fd 'oqq'", "ox", " fd fdx", "exchange the descs of fd and fdx and keep the mapping", "open", " [file]", "open a file or URL with the system handler", NULL }; static RCoreHelpMessage help_msg_on = { "Usage: on[n+*]", "[file] ([addr] [rwx])", "Open file without parsing headers", "on", " /bin/ls [addr] [perm] [vsize]", "map raw file at addr with vsize (no r_bin involved)", "onn", " [file] ([rwx])", "open file without creating any map or parsing headers with rbin)", "onnu", " [file] ([rwx])", "same as onn, but unique, will return previous fd if already opened", "on+", " [file] ([rwx])", "open file in rw mode without parsing headers", "on*", "", "list open files as r2 commands", NULL }; static RCoreHelpMessage help_msg_o_dash = { "Usage: o-[#!*$.-]", "", "close opened files", "o-*", "", "close all opened files", "o-!", "", "close all files except the current one", "o-3", "", "close fd=3", "o-$", "", "close last fd", "o-.", "", "close current fd", "o--", "", "close all files, analysis, binfiles, flags, same as !r2 --", NULL }; static RCoreHelpMessage help_msg_op = { "Usage: op[rnp]", "[fd]", "", "opr", "", "open next file rotating", "opn", "", "open next file", "opp", "", "open previous file", "op", " [fd]", "open priorizing fd", NULL }; static RCoreHelpMessage help_msg_omn = { "Usage: omn[.i]", "([addr]) [name]", "Define a name for the given map", "omn", " mapaddr [name]", "set/delete name for map which spans mapaddr", "omn.", "([-|name])", "show/set/delete name for current map", "omni", " mapid [name]", "set/delete name for map with mapid", NULL }; static RCoreHelpMessage help_msg_omb = { "Usage: omb[+-adgq]", "[fd]", "Operate on memory banks", "omb", "", "list all memory banks", "omb", " [id]", "switch to use a different bank", "omb=", "[name]", "same as 'omb id' but using its name", "omb-", "*", "delete all banks", "omb-", "[mapid]", "delete the bank with given id", "omb+", "[name]", "create a new bank with given name", "omba", " [id]", "adds a map to the bank", "ombd", " [id]", "delete a map from the bank", "ombg", "", "associate all maps to the current bank", "ombj", "", "list memory banks in json", "ombq", "", "show current bankid", NULL }; static RCoreHelpMessage help_msg_oba = { "Usage: oba", "[addr] ([filename])", "Load bininfo and update flags", "oba", " [addr]", "open bin info from the given address", "oba", " [addr] [baddr]", "open file and load bin info at given address (bin.inmem reads it as a memory image)", "oba", " [addr] [/abs/filename|base64:filename]", "open file and load bin info at given address", NULL }; static RCoreHelpMessage help_msg_ob = { "Usage: ob", "", "List open binary files backed by fd", "ob", " [name|bfid]", "switch to open given objid (or name)", "ob", "", "list opened binary files and objid", "ob*", "", "list opened binary files and objid (r2 commands)", "ob", " *", "select all bins (use 'ob bfid' to pick one)", "ob-", "*", "delete all binfiles", "ob-", "[objid]", "delete binfile by binobjid", "ob--", "", "delete the last binfile", "ob.", " ([addr])", "show bfid at current address", "ob=", "", "show ascii art table having the list of open files", "oba", " [addr] [baddr]", "open file and load bin info at given address (bin.inmem reads it as a memory image)", "oba", " [addr] [filename]", "open file and load bin info at given address", "oba", " [addr]", "open bin info from the given address", "obf", " ([file|base64:file])", "load bininfo for current file (useful for r2 -n)", "obi", "?[..]", "alias for 'i'", "obio", "", "Load bin info from the io plugin forcing the use of bin.io", "obj", "", "list opened binary files and objid (JSON format)", "obL", "", "same as iL or Li", "obm", "([id])", "merge current selected binfile into previous binfile (id-1)", "obm-", "([id])", "same as obm, but deletes the current binfile", "obo", " [fd]", "switch to open binfile by fd number", "obr", " [baddr]", "rebase current bin object", NULL }; static RCoreHelpMessage help_msg_omr = { "Usage: om", "[arg]", "Map opened files", "omr", " mapid", "prioritize map with corresponding id", "omrb", " [fd]", "prioritize maps of the bin associated with the binid", "omrl", " fd", "reorder to the lower position the map with the given fd", "omrd", " [mapid]", "reorder map down with corresponding id", "omrf", " [fd]", "reorder map by fd", NULL }; static RCoreHelpMessage help_msg_omt = { "Usage: omt", "[arg]", "Manpilate IO map typings", "omt", " mapid", "toggle map backwards tying (same as omtb)", "omtb", " mapid", "toggle map backwards tying", "omtf", " mapid", "toggle map forwards tying", NULL }; static RCoreHelpMessage help_msg_om = { "Usage: om", "[arg]", "Map opened files", "om", " [fd]", "list all defined IO maps for a specific fd", "om", " fd va [sz] [pa] [rwx] [name]", "create new io map", "om", "[,=*jqq]", "list IO maps", "om.", "", "show map, that is mapped to current offset", "om-", "[mapid]", "remove the map with corresponding id", "om-*", "", "remove all maps", "om+", " [fd]", "create a map covering all VA for given fd", "oma", "[.] ([mapid]) (attr)", "set attribute to the given map id", "omb", "[?]", "list/select memory map banks", "omd", " from to @ paddr", "simplified om; takes current seek, fd and perms", "omm", " [fd]", "create default map for given fd (omm `oq`)", "omn", "[?] ([fd]) [name]", "manage map names", "omo", "[j*]", "diff overlay map data (usually relocs)", "omp", " [mapid] rwx", "change map rwx permissions (see dmp)", "ompg", "[+-]rwx", "global change permissions for all maps", "omr", "[?]", "reorder map priority", "oms", " [mapid] [newsize]", "show or change size map with corresponding id, map size cannot be 0", "omt", "[?]", "toggle map ties backward or forward", "omu", " fd va sz pa rwx name", "same as `om` but checks for existence (u stands for uniq)", "omv", "[?]", "move map to the given address", // "om*", "", "list all maps in r2 commands format", // "om,", " [query]", "list maps using table api", // "om=", "", "list all maps in ascii art", // "omj", "", "list all maps in json format", // "omq", "", "list all maps and their fds", // "omqq", "", "list all maps addresses (See $MM to get the size)", NULL }; static RCoreHelpMessage help_msg_omv = { "Usage: omv", " ([mapid]) [addr]", "Move map to another address", "omv", " mapid addr", "relocate map with corresponding id", "omv.", " addr", "relocate current map", NULL }; static RCoreHelpMessage help_msg_oo = { "Usage: oo", "[arg]", "Map opened files", "oo", "", "reopen current file", "oo+", "", "reopen in read-write", "oob", " [baddr]", "reopen loading rbin info (change base address?)", "ooi", "", "reopen bin info without reloading the file", "ooc", "", "reopen core with current file", "ood", "[?]", "reopen in debug mode", "oom", "[?]", "reopen in malloc://", "oon", "", "reopen without loading rbin info", "oon+", "", "reopen in read-write mode without loading rbin info", "oonn", "", "reopen without loading rbin info, but with header flags", "oonn+", "", "reopen in read-write mode without loading rbin info, but with", NULL }; static RCoreHelpMessage help_msg_ood = { "Usage: ood", "", "Debug (re)open commands", "ood", " [args]", "reopen in debug mode (with args)", "oodf", " [file]", "reopen in debug mode using the given file", "oodr", " [rarun2]", "same as dor ..;ood", NULL }; // TODO: deprecate this hack static bool is_valid_input_num_value(RNum * R_NULLABLE num, const char *input_value) { if (!input_value) { return false; } ut64 value = r_num_math (num, input_value); return !(value == 0 && *input_value != '0'); } static bool isfile(const char *filename) { return R_STR_ISNOTEMPTY (filename) && ( r_file_exists (filename) || r_str_startswith (filename, "./") || r_str_startswith (filename, "/") ); } // Compute the span of a memory-mapped binary from debug maps. // Finds all maps sharing the same name as the one at `addr`. static ut64 oba_memsize(RDebug *dbg, ut64 addr) { if (!dbg || !dbg->maps) { return 0; } RDebugMap *hit = r_debug_map_get (dbg, addr); if (!hit || R_STR_ISEMPTY (hit->name)) { return 0; } ut64 lo = UT64_MAX; ut64 hi = 0; RDebugMap *map; RListIter *iter; r_list_foreach (dbg->maps, iter, map) { if (R_STR_ISEMPTY (map->name) || strcmp (map->name, hit->name)) { continue; } if (map->addr < lo) { lo = map->addr; } if (map->addr_end > hi) { hi = map->addr_end; } } if (lo == UT64_MAX || hi <= lo) { return 0; } return R_MIN (hi - lo, (ut64)32 * 1024 * 1024); } // fat Mach-O and other xtr containers defer their slice load, finish it here static void oba_finish_load(RCore *core) { RBinFile *bf = r_bin_cur (core->bin); if (bf && !bf->bo && bf->xtr_data && !r_list_empty (bf->xtr_data)) { r_core_bin_update_arch_bits (core); } } static void cmd_oba(RCore *core, const char *input) { if (input[2] == '?') { r_cons_cmd_help (core->cons, help_msg_oba); return; } if (input[2] && input[3]) { char *arg = strdup (input + 3); const bool rawstr = core->bin->options.rawstr; char *filename = strchr (arg, ' '); char *decoded_filename = NULL; bool encoded_filename = false; if (filename) { *filename++ = 0; if (r_str_startswith (filename, "base64:")) { decoded_filename = (char *)sdb_decode (filename + 7, NULL); filename = decoded_filename; encoded_filename = true; } } if (filename && isfile (filename)) { int saved_fd = r_io_fd_get_current (core->io); RIODesc *desc = r_io_open (core->io, filename, R_PERM_RX, 0); if (desc) { ut64 addr = r_num_math (core->num, arg); RBinFileOptions opt; r_bin_file_options_init (&opt, desc->fd, addr, 0, rawstr); r_bin_open_io (core->bin, &opt); r_core_bin_load (core, NULL, UT64_MAX); r_core_cmd0 (core, ".is*"); r_io_desc_close (desc); r_io_use_fd (core->io, saved_fd); } else { R_LOG_ERROR ("Cannot oba open '%s'", r_str_trim_head_ro (filename)); } } else if (encoded_filename && filename) { R_LOG_ERROR ("Cannot oba open '%s'", r_str_trim_head_ro (filename)); } else if (encoded_filename) { R_LOG_ERROR ("Cannot oba open decoded filename"); } else { ut64 addr = r_num_math (core->num, input + 2); // mapaddr ut64 baddr = R_STR_ISNOTEMPTY (filename)? r_num_math (core->num, filename): addr; int fd = r_io_fd_get_current (core->io); RIODesc *desc = r_io_desc_get (core->io, fd); if (desc) { RBinFileOptions opt; r_bin_file_options_init (&opt, desc->fd, baddr, addr, rawstr); opt.inmem = r_config_get_b (core->config, "bin.inmem"); opt.sz = oba_memsize (core->dbg, addr); if (!opt.sz) { const ut64 desc_size = r_io_desc_size (desc); opt.sz = (opt.inmem && addr < desc_size)? desc_size - addr: 1024 * 1024; } r_bin_open_io (core->bin, &opt); oba_finish_load (core); r_core_cmd0 (core, ".is*"); } else { R_LOG_ERROR ("No file to load bin from?"); } } free (decoded_filename); free (arg); } else { RList *ofiles = r_id_storage_list (&core->io->files); RIODesc *desc; RListIter *iter; RList *files = r_list_newf (NULL); r_list_foreach (ofiles, iter, desc) { r_list_append (files, (void*)(size_t)desc->fd); } void *_fd; r_list_foreach (files, iter, _fd) { int fd = (size_t)_fd; RBinFileOptions opt; r_bin_file_options_init (&opt, fd, core->addr, 0, core->bin->options.rawstr); r_bin_open_io (core->bin, &opt); r_core_cmd0 (core, ".ie*"); break; } r_list_free (files); } } // HONOR bin.at static void cmd_open_bin(RCore *core, const char *input) { const char *value = NULL; ut32 binfile_num = -1; switch (input[1]) { case 'L': // "obL" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obL", 0, true); break; } r_core_cmd0 (core, "iL"); break; case '\0': // "ob" r_core_bin_list (core, input[1]); break; case 'q': // "obq" if (input[2] == '?') { r_cons_cmd_help (core->cons, help_msg_ob); break; } r_core_bin_list (core, input[1]); break; case 'j': // "obj" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obj", 0, true); break; } r_core_bin_list (core, input[1]); r_cons_newline (core->cons); break; case '*': // "ob*" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "ob*", 0, true); break; } r_core_bin_list (core, input[1]); break; case '.': // "ob." if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "ob.", 0, true); break; } { const char *arg = r_str_trim_head_ro (input + 2); ut64 at = core->addr; if (*arg) { at = r_num_math (core->num, arg); if (at == 0 && *arg != '0') { at = core->addr; } } RBinFile *bf = r_bin_file_at (core->bin, at); if (bf) { r_cons_printf (core->cons, "%d\n", bf->id); } } break; case 'a': // "oba" cmd_oba (core, input); break; case ' ': // "ob " // select bf by id or name { ut32 id; const char *tmp; if (input[2] == '?' && !input[3]) { r_cons_cmd_help_match (core->cons, help_msg_o, "ob", 0, true); break; } if (input[2] == '-' || input[2] == '*') { core->allbins = true; break; } core->allbins = false; char *v = input[2] ? strdup (input + 2) : NULL; if (!v) { R_LOG_ERROR ("Invalid arguments"); break; } int n = r_str_word_set0 (v); if (n < 1 || n > 2) { r_cons_cmd_help_match (core->cons, help_msg_o, "ob", 0, true); free (v); break; } tmp = r_str_word_get0 (v, 0); id = (*v && R_STR_ISNOTEMPTY (tmp) && is_valid_input_num_value (core->num, tmp)) ? r_num_math (core->num, tmp): UT32_MAX; if (n == 2) { tmp = r_str_word_get0 (v, 1); } else { binfile_num = id; } r_core_bin_raise (core, binfile_num); free (v); break; } case 'r': // "obr" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obr", 0, true); } else { r_core_bin_rebase (core, r_num_math (core->num, input + 3)); r_core_cmd0 (core, ".is*"); } break; case 'f': // "obf" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obf", 0, true); } else if (input[2] == ' ') { r_core_cmdf (core, "oba 0 %s", input + 3); } else { // Bare "obf" reloads bin info in place. On a true reload (not the // `r2 -n` first load) drop the old object and its stale maps first, // else each reload stacks a duplicate RBinFile and overlapping maps. RIODesc *cd = core->io->desc; RBinFile *prev_bf = cd? r_bin_file_find_by_fd (core->bin, cd->fd): NULL; const ut32 prev_id = prev_bf? prev_bf->id: 0; if (prev_bf && cd) { r_io_map_del_for_fd (core->io, cd->fd); } r_core_bin_load (core, NULL, UT64_MAX); if (prev_bf) { RBinFile *nbf = r_bin_cur (core->bin); if (nbf && nbf->id != prev_id) { r_bin_file_delete (core->bin, prev_id); } } value = input[2] ? input + 2 : NULL; } break; case 'i': // "obi" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obi", 0, true); } else if (input[2] == 'o') { // "obio" if (input[3] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obio", 0, true); break; } r_bin_force_plugin (core->bin, "io"); r_core_bin_load (core, NULL, 0); } else { r_core_cmdf (core, "i%s", input + 2); } break; case 'm': // "obm" { if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obm", 0, true); break; } if (input[2] == '-' && input[3] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "obm-", 0, true); break; } int dstid = atoi (input + 2); // TODO take argument with given id to merge to RBinFile *src = r_bin_cur (core->bin); int current = src? src->id: -1; if (current > 0) { if (dstid < 1) { dstid = current - 1; } RBinFile *dst = r_bin_file_find_by_id (core->bin, dstid); if (dst) { r_bin_file_merge (dst, src); R_LOG_DEBUG ("merge %d into %d", current, dstid); if (strchr (input + 2, '-')) { // "obm-" int curfd = -1; if (core->io->desc) { curfd = core->io->desc->fd; } r_core_callf (core, "op %d", dst->fd); r_bin_file_set_cur_binfile (core->bin, dst); r_bin_file_delete (core->bin, current); if (curfd >= 0) { r_io_fd_close (core->io, curfd); // r_core_callf (core, "o-%d", curfd); } } break; } else { R_LOG_ERROR ("Cannot find binfile with id=%d", dstid); } } R_LOG_INFO ("Nothing to merge"); } break; case 'o': // "obo" if (input[2] == ' ') { ut32 fd = r_num_math (core->num, input + 3); RBinFile *bf = r_bin_file_find_by_fd (core->bin, fd); if (!bf || !r_core_bin_raise (core, bf->id)) { R_LOG_ERROR ("Invalid RBinFile.id number"); } } else { r_cons_cmd_help_match (core->cons, help_msg_ob, "obo", 0, true); } break; case '-': // "ob-" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "ob-", 0, true); } else if (input[2] == '*') { if (input[3] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "ob-", 0, true); break; } r_bin_file_delete_all (core->bin); } else if (input[2] == '-') { if (input[3] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "ob--", 0, true); break; } RBinFile *bf = r_bin_cur (core->bin); int current = bf? bf->id: 0; if (current >= 0) { r_core_callf (core, "ob-%d", current); r_core_callf (core, "ob %d", current -1); } } else { ut32 id; value = r_str_trim_head_ro (input + 2); if (!value) { R_LOG_ERROR ("Invalid argument"); break; } id = (*value && is_valid_input_num_value (core->num, value)) ? r_num_math (core->num, value) : UT32_MAX; RBinFile *bf = r_bin_file_find_by_id (core->bin, id); if (bf) { int bfid = bf->id; if (!r_core_bin_delete (core, bfid)) { R_LOG_ERROR ("Cannot find an RBinFile associated with id %d", bfid); } } else { R_LOG_ERROR ("Invalid binid"); } } break; case '=': // "ob=" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_ob, "ob=", 0, true); break; } { char temp[SDB_NUM_BUFSZ]; RListIter *iter; RList *list = r_list_newf ((RListFree) r_listinfo_free); RBinFile *bf = NULL; RBin *bin = core->bin; if (!bin) { return; } r_list_foreach (bin->binfiles, iter, bf) { RInterval inter = (RInterval) {bf->bo->baddr, bf->bo->size}; RListInfo *info = r_listinfo_new (bf->file, inter, inter, -1, sdb_itoa (bf->fd, 10, temp, sizeof (temp))); if (!info) { break; } r_list_append (list, info); } RTable *table = r_core_table_new (core, "bins"); r_table_visual_list (table, list, core->addr, core->blocksize, r_cons_get_size (core->cons, NULL), r_config_get_i (core->config, "scr.color")); char *table_text = r_table_tostring (table); if (table_text) { r_cons_printf (core->cons, "\n%s\n", table_text); r_free (table_text); } r_table_free (table); r_list_free (list); } break; case '?': // "ob?" r_cons_cmd_help (core->cons, help_msg_ob); break; } } // TODO: discuss the output format static void map_list(RCore *core, int mode, RPrint *p, int fd) { RIO *io = core->io; ut64 off = core->addr; R_RETURN_IF_FAIL (io && p); PJ *pj = NULL; if (mode == 'j') { pj = r_core_pj_new (core); if (!pj) { return; } pj_a (pj); } char *om_cmds = NULL; bool check_for_current_map = true; RIOBank *bank = r_io_bank_get (io, io->bank); if (!bank) { pj_free (pj); return; } RIOMapRef *mapref; RListIter *iter; r_list_foreach_prev (bank->maprefs, iter, mapref) { RIOMap *map = r_io_map_get (io, mapref->id); if (fd >= 0 && map->fd != fd) { continue; } switch (mode) { case 'q': if (fd == -2) { r_print_printf (p, "0x%08"PFMT64x"\n", r_io_map_begin (map)); } else { r_print_printf (p, "%d %d\n", map->fd, map->id); } break; case 'j': pj_o (pj); pj_ki (pj, "map", map->id); pj_ki (pj, "fd", map->fd); pj_kn (pj, "delta", map->delta); pj_kn (pj, "from", r_io_map_begin (map)); pj_kn (pj, "to", r_io_map_to (map)); pj_ks (pj, "perm", r_str_rwx_i (map->perm & R_PERM_RWX)); pj_ks (pj, "sperm", r_str_rwx_i (map->sperm)); pj_ks (pj, "name", r_str_get (map->name)); pj_end (pj); break; case -3: case 1: case '*': case 'r': { if (fd == -3) { char *name = map->name? strdup (map->name): r_str_newf ("fd%d", map->fd); r_print_printf (p, "f iomap.%s=0x%"PFMT64x"\n", name, r_io_map_begin (map)); free (name); break; } // Need FIFO order here char *om_cmd = r_str_newf ("omu %d 0x%08"PFMT64x" 0x%08"PFMT64x " 0x%08"PFMT64x" %s%s%s\n", map->fd, r_io_map_begin (map), r_io_map_size (map), map->delta, r_str_rwx_i (map->perm & R_PERM_RWX), R_STR_ISEMPTY (map->name)? "": " ", r_str_get (map->name)); if (om_cmd) { om_cmds = r_str_prepend (om_cmds, om_cmd); free (om_cmd); } break; } default: { char perm_str[64]; r_cons_permstr (core->cons, map->perm & R_PERM_RWX, r_config_get_i (core->config, "scr.color") > 0, perm_str, sizeof (perm_str)); char sperm_str[64]; r_cons_permstr (core->cons, map->sperm, r_config_get_i (core->config, "scr.color") > 0, sperm_str, sizeof (sperm_str)); r_print_printf (p, "%c%2d fd: %i +0x%08"PFMT64x" 0x%08"PFMT64x " - 0x%08"PFMT64x" %s %s%s%s\n", (check_for_current_map && r_io_map_contain (map, off)) ? '*' : '-', map->id, map->fd, map->delta, r_io_map_begin (map), r_io_map_to (map), perm_str, sperm_str, R_STR_ISEMPTY (map->name)? "": " ", r_str_get (map->name)); check_for_current_map &= !r_io_map_contain (map, off); break; } } } if (om_cmds) { r_print_printf (p, "%s", om_cmds); free (om_cmds); } if (mode == 'j') { pj_end (pj); r_print_printf (p, "%s\n", pj_string (pj)); pj_free (pj); } } // TODO: move into r_io_remap() static void cmd_ompg(RCore *core, const char *input) { input = r_str_trim_head_ro (input); int perm = *input ? (*input == '+' || *input == '-') ? r_str_rwx (input + 1) : r_str_rwx (input) : 7; if (perm < 0) { R_LOG_ERROR ("Invalid permission string (%s)", input); return; } ut32 mapid; if (!r_id_storage_get_lowest (&core->io->maps, &mapid)) { ut32 fd = r_io_fd_get_current (core->io); RIODesc *desc = r_io_desc_get (core->io, fd); if (desc) { r_core_cmd0 (core, "omm"); //XXX: don't use r_core_cmd, no need to parse commands } return; } switch (*input) { case '+': do { RIOMap *map = r_io_map_get (core->io, mapid); const int _perm = map->sperm | perm; r_io_map_set_perm (core->io, mapid, _perm); } while (r_id_storage_get_next (&core->io->maps, &mapid)); break; case '-': do { RIOMap *map = r_io_map_get (core->io, mapid); const int _perm = map->sperm & ~perm; r_io_map_set_perm (core->io, mapid, _perm); } while (r_id_storage_get_next (&core->io->maps, &mapid)); break; default: do { r_io_map_set_perm (core->io, mapid, perm); } while (r_id_storage_get_next (&core->io->maps, &mapid)); break; } } static void cmd_omp(RCore *core, int argc, char *argv[]) { switch (argc) { case 0: break; case 1: { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { int nperm = r_str_rwx (argv[0]); if (nperm < 0) { R_LOG_ERROR ("Invalid permission string (%s)", argv[0]); } else { r_io_map_set_perm (core->io, map->id, nperm); } } } break; case 2: default: { const int id = r_num_math (core->num, argv[0]); RIOMap *map = r_io_map_get (core->io, id); if (map) { if (argc > 2) { bool res = r_io_map_setattr_fromstring (map, argv[2]); if (!res) { R_LOG_ERROR ("Invalid meta type string"); break; } } int nperm = r_str_rwx (argv[1]); if (nperm < 0) { R_LOG_ERROR ("Invalid permission string (%s)", argv[1]); } else { r_io_map_set_perm (core->io, id, nperm); } } } } } static void r_core_cmd_omt(RCore *core, const char *arg) { ut32 toggle; switch (arg[0]) { case ' ': // "omt" case 'b': // "omtb" toggle = R_IO_MAP_TIE_FLG_BACK; break; case 'f': // "omtf" toggle = R_IO_MAP_TIE_FLG_FORTH; break; default: r_cons_cmd_help (core->cons, help_msg_omt); return; } int argc; char **argv = r_str_argv (arg + 1, &argc); if (!argc) { return; } RIOMap *map = r_io_map_get (core->io, r_num_math (NULL, argv[0])); r_str_argv_free (argv); if (map) { map->tie_flags ^= toggle; } } static void cmd_omcomma(RCore *core, const char *arg) { RTable *t = r_core_table_new (core, "iomaps"); if (!t) { return; } r_table_set_columnsf (t, "nnnnnnnssss", "id", "fd", "pa", "pa_end", "size", "va", "va_end", "perm", "sperm", "meta", "name", NULL); ut32 mapid = 0; r_id_storage_get_lowest (&core->io->maps, &mapid); do { RIOMap *m = r_id_storage_get (&core->io->maps, mapid); if (!m) { R_LOG_WARN ("Cannot find mapid %d", mapid); break; } ut64 va = r_io_map_from (m); ut64 va_end = r_io_map_to (m); ut64 pa = m->delta; ut64 pa_size = r_itv_size (m->itv); ut64 pa_end = pa + pa_size - 1; const char *name = r_str_get (m->name); char *meta = r_io_map_getattr (m); r_table_add_rowf (t, "ddxxxxxssss", m->id, m->fd, pa, pa_end, pa_size, va, va_end, r_str_rwx_i (m->perm & R_PERM_RWX), r_str_rwx_i (m->sperm), meta, name); free (meta); } while (r_id_storage_get_next (&core->io->maps, &mapid)); if (r_table_query (t, arg)) { char *ts = r_table_tostring (t); r_cons_printf (core->cons, "%s", ts); free (ts); } r_table_free (t); } static bool cmd_om(RCore *core, const char *input, int arg) { char *s = r_str_trim_dup (input + 1); if (!s) { return false; } if (strchr (s, ' ')) { int fd = 0, rwx = 0; ut64 size = 0, vaddr = 0, paddr = 0; const char *name = NULL; bool rwx_arg = false; RIODesc *desc = NULL; int words = r_str_word_set0 (s); switch (words) { case 6: name = r_str_word_get0 (s, 5); // fallthrough case 5: { const char *arg = r_str_word_get0 (s, 4); rwx = r_str_rwx (arg); if (rwx < 0) { R_LOG_WARN ("Invalid permissions string for om (%s)", arg); rwx = 0; } rwx_arg = true; } // fallthrough case 4: paddr = r_num_math (core->num, r_str_word_get0 (s, 3)); // fallthrough case 3: size = r_num_math (core->num, r_str_word_get0 (s, 2)); // fallthrough case 2: vaddr = r_num_math (core->num, r_str_word_get0 (s, 1)); // fallthrough case 1: { const char *w = r_str_word_get0 (s, 0); if (*w == '.') { fd = r_io_fd_get_current (core->io); } else { fd = r_num_math (core->num, w); } } break; } if (fd < 3) { R_LOG_ERROR ("Wrong fd, it must be greater than 3"); return false; } desc = r_io_desc_get (core->io, fd); if (desc) { if (!size) { size = r_io_fd_size (core->io, fd); } bool addmap = true; if (arg == 'u') { // check if map exists before adding it RIOMap *map = r_io_map_get_at (core->io, vaddr); if (map) { ut64 ms = r_itv_size (map->itv); ut64 mp = map->delta; if (mp == paddr && ms == size) { addmap = false; } } } if (addmap) { RIOMap *map = r_io_map_add (core->io, fd, rwx_arg ? rwx : desc->perm, paddr, vaddr, size); if (map) { if (name) { r_io_map_set_name (map, name); } } else { R_LOG_ERROR ("Cannot add map"); } } } } else { int fd = r_io_fd_get_current (core->io); if (r_io_desc_get (core->io, fd)) { map_list (core, 0, core->print, fd); } else { R_LOG_ERROR ("Invalid fd %d", (int)fd); } } free (s); return true; } static void cmd_omd(RCore *core, const char* input) { if (*input == '?') { r_cons_cmd_help_match (core->cons, help_msg_om, "omd", 0, true); return; } int fd = r_io_fd_get_current (core->io); RIODesc *desc = r_io_desc_get (core->io, fd); if (desc) { char *inp = r_str_trim_dup (input); RList *args = r_str_split_list (inp, " ", 0); if (args && r_list_length (args) == 2) { ut64 pa = core->addr; ut64 va = r_num_math (core->num, r_list_get_n (args, 0)); ut64 vb = r_num_math (core->num, r_list_get_n (args, 1)); ut64 sz = vb - va; if (va < vb) { RIOMap *map = r_io_map_add (core->io, fd, desc->perm, pa, va, sz); if (!map) { R_LOG_ERROR ("Cannot add a new map"); } } else { R_LOG_ERROR ("Invalid map range"); } } else { r_cons_cmd_help_match (core->cons, help_msg_om, "omd", 0, true); } r_list_free (args); r_free (inp); } else { R_LOG_ERROR ("Cannot get any fd"); } } static void cmd_oma(RCore *core, const char *input) { switch (input[2]) { case '?': r_cons_cmd_help_match (core->cons, help_msg_om, "oma", 0, true); r_cons_print (core->cons, "Type: "); r_cons_println (core->cons, "heap, stack, mmap, mmio, dma, jit, bss, shared, kernel, guard, null, gpu, tls, buffer, cow, pagetables"); r_cons_print (core->cons, "Flags: "); r_cons_println (core->cons, "paged, private, persistent, aslr, swap, dep, enclave, compressed, encrypted, large"); break; case 0: { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { char *s = r_io_map_getattr (map); r_cons_println (core->cons, s); free (s); } } break; case ' ': { const char *arg0 = r_str_trim_head_ro (input + 1); const char *arg1 = strchr (arg0, ' '); if (arg1) { char *s = r_str_ndup (arg0, arg1 - arg0); int mapid = r_num_math (core->num, s); free (s); RIOMap *map = r_io_map_get (core->io, mapid); if (map) { if (!r_io_map_setattr_fromstring (map, arg1)) { R_LOG_ERROR ("Invalid attributes string"); } } else { R_LOG_ERROR ("Cannot find map with id %d", mapid); } } else { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { char *s = r_io_map_getattr (map); r_cons_println (core->cons, s); free (s); } else { R_LOG_ERROR ("Cannot find map in the current offset"); } } } break; case '.': if (input[3] == ' ') { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { const char *arg = r_str_trim_head_ro (input + 3); if (!r_io_map_setattr_fromstring (map, arg)) { R_LOG_ERROR ("Invalid attributes string"); } } else { R_LOG_ERROR ("Cannot find map in the current offset"); } } else if (!input[3]) { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { char *s = r_io_map_getattr (map); r_cons_println (core->cons, s); free (s); } else { R_LOG_ERROR ("Cannot find map in the current offset"); } } else { r_core_return_invalid_command (core, "oma.", input[3]); } break; default: r_core_return_invalid_command (core, "oma", input[2]); break; } } // a bank must reference a map once, so raise it instead of adding it again static void bank_map_top(RCore *core, ut32 mapid) { if (!r_io_bank_map_priorize (core->io, core->io->bank, mapid)) { r_io_bank_map_add_top (core->io, core->io->bank, mapid); } } static void cmd_open_banks(RCore *core, int argc, char *argv[]) { const char cmd = argv[0][1]; // the argument can be glued to the command ("ombaN") or passed apart ("omba N") const char *arg = (argc > 1)? argv[1]: (cmd? argv[0] + 2: ""); if (arg[0] == '?') { r_cons_cmd_help (core->cons, help_msg_omb); return; } switch (cmd) { case '=': // "omb=[name]" { RIOBank *bank = r_io_bank_get_byname (core->io, arg); if (bank) { r_io_bank_use (core->io, bank->id); } else { R_LOG_ERROR ("unknown bank name (%s)", arg); } } break; case 'q': // "ombq" r_cons_printf (core->cons, "%d\n", core->io->bank); break; case 'a': // "omba" if (isdigit (arg[0])) { int mapid = atoi (arg); if (r_io_map_get (core->io, mapid)) { bank_map_top (core, mapid); } else { R_LOG_ERROR ("Invalid map id"); } } else { R_LOG_ERROR ("Expect a mapid number"); } break; case 'd': // "ombd" if (isdigit (arg[0])) { if (r_io_bank_get (core->io, core->io->bank)) { r_io_bank_del_map (core->io, core->io->bank, atoi (arg)); } else { R_LOG_ERROR ("Unknown bank id"); } } else { R_LOG_ERROR ("Expect a mapid number"); } break; case '-': // "omb-" if (R_STR_ISEMPTY (arg)) { R_LOG_ERROR ("Missing argument for omb-"); } else if (!strcmp ("*", arg)) { r_io_bank_drain (core->io, core->io->bank); core->io->bank = r_io_bank_first (core->io); } else { int bank_id = r_num_math (core->num, arg); if (core->num->nc.errors == 0) { r_io_bank_del (core->io, bank_id); } else { R_LOG_ERROR ("Invalid number in %s", arg); } } break; case 'g': // "ombg" -- associate all maps to the current bank { ut32 mapid; if (r_id_storage_get_lowest (&core->io->maps, &mapid)) { do { RIOMap *map = r_id_storage_get (&core->io->maps, mapid); if (map) { bank_map_top (core, map->id); } } while (r_id_storage_get_next (&core->io->maps, &mapid)); } } break; case '+': // "omb+ [name]" if (isdigit (arg[0])) { // add a map to the current bank (we cant name a bank with a number) bank_map_top (core, atoi (arg)); } else { RIOBank *bank = r_io_bank_new (arg); if (bank) { r_io_bank_add (core->io, bank); } else { R_LOG_ERROR ("Cannot create map from %s", arg); } } break; case 'j': // "ombj" { ut32 bank_id = 0; if (!r_id_storage_get_lowest (&core->io->banks, &bank_id)) { break; } PJ *pj = r_core_pj_new (core); pj_a (pj); do { RIOBank *bank = r_id_storage_get (&core->io->banks, bank_id); bool selected = core->io->bank == bank_id; pj_o (pj); pj_kb (pj, "selected", selected); pj_ki (pj, "id", bank->id); pj_ks (pj, "name", bank->name); pj_ka (pj, "maps"); RIOMapRef *mapref; RListIter *iter; r_list_foreach (bank->maprefs, iter, mapref) { pj_i (pj, mapref->id); } pj_end (pj); pj_end (pj); // list all the associated maps } while (r_id_storage_get_next (&core->io->banks, &bank_id)); pj_end (pj); char *s = pj_drain (pj); r_cons_println (core->cons, s); free (s); } break; case 0: // "omb [id]" if (argc == 1) { ut32 bank_id = 0; if (!r_id_storage_get_lowest (&core->io->banks, &bank_id)) { break; } do { RIOBank *bank = r_id_storage_get (&core->io->banks, bank_id); const char ch = core->io->bank == bank_id? '*': '-'; r_cons_printf (core->cons, "%c %d %s [", ch, bank->id, bank->name); RIOMapRef *mapref; RListIter *iter; r_list_foreach (bank->maprefs, iter, mapref) { r_cons_printf (core->cons, " %d", mapref->id); } r_cons_printf (core->cons, " ]\n"); // list all the associated maps } while (r_id_storage_get_next (&core->io->banks, &bank_id)); } else { int id = r_num_math (core->num, argv[1]); if (core->num->nc.errors == 0) { if (!r_io_bank_use (core->io, id)) { R_LOG_ERROR ("Cannot find bank by id %s", argv[1]); } } else { R_LOG_ERROR ("omb expects a number, not a string"); } } break; case '?': // "omb?" r_cons_cmd_help (core->cons, help_msg_omb); break; default: r_core_return_invalid_command (core, "omb", cmd); break; } } static void overlay_print_diff_pj_cb(RInterval itv, const ut8 *m_data, const ut8 *o_data, void *user) { PJ *pj = (PJ*)user; pj_o (pj); char *m_hex = r_hex_bin2strdup (m_data, r_itv_size (itv)); char *o_hex = r_hex_bin2strdup (o_data, r_itv_size (itv)); pj_kn (pj, "addr", r_itv_begin (itv)); pj_kn (pj, "size", r_itv_size (itv)); pj_ks (pj, "odata", m_hex); pj_ks (pj, "ndata", o_hex); pj_end (pj); free (m_hex); free (o_hex); } static void overlay_print_diff_r2_cb(RInterval itv, const ut8 *m_data, const ut8 *o_data, void *user) { RCore *core = (RCore *)user; // char *m_hex = r_hex_bin2strdup (m_data, r_itv_size (itv)); char *o_hex = r_hex_bin2strdup (o_data, r_itv_size (itv)); r_cons_printf (core->cons, "'@0x%08"PFMT64x"'wx %s\n", r_itv_begin (itv), o_hex); // free (m_hex); free (o_hex); } static void overlay_print_diff_cb(RInterval itv, const ut8 *m_data, const ut8 *o_data, void *user) { RCore *core = (RCore *)user; char *m_hex = r_hex_bin2strdup (m_data, r_itv_size (itv)); char *o_hex = r_hex_bin2strdup (o_data, r_itv_size (itv)); r_cons_printf (core->cons, "0x%08"PFMT64x": %s => %s\n", r_itv_begin (itv), m_hex, o_hex); free (m_hex); free (o_hex); } static void cmd_open_map(RCore *core, const char *input) { ut64 fd = 0LL; ut32 id = 0; ut64 addr = 0; char *s = NULL, *p = NULL; ut64 newaddr; RIOMap *map = NULL; PJ *pj; switch (input[1]) { case '.': // "om." map = r_io_map_get_at (core->io, core->addr); if (map) { if (input[2] == 'j') { // "om.j" pj = r_core_pj_new (core); if (!pj) { return; } pj_o (pj); pj_ki (pj, "map", map->id); pj_ki (pj, "fd", map->fd); pj_kn (pj, "delta", map->delta); pj_kn (pj, "from", r_io_map_begin (map)); pj_kn (pj, "to", r_io_map_to (map)); pj_ks (pj, "perm", r_str_rwx_i (map->perm & R_PERM_RWX)); pj_ks (pj, "sperm", r_str_rwx_i (map->sperm)); pj_ks (pj, "name", r_str_get (map->name)); pj_end (pj); r_cons_printf (core->cons, "%s\n", pj_string (pj)); pj_free (pj); } else { r_cons_printf (core->cons, "%2d fd: %i +0x%08"PFMT64x" 0x%08"PFMT64x " - 0x%08"PFMT64x" %s %s %s\n", map->id, map->fd, map->delta, r_io_map_begin (map), r_io_map_to (map), r_str_rwx_i (map->perm & R_PERM_RWX), r_str_rwx_i (map->sperm), r_str_get (map->name)); } } else if (input[2] == 'j') { r_cons_println (core->cons, "{}"); } break; case 's': // "oms" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_om, "oms", 0, true); } else if (input[2] != ' ') { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { r_cons_printf (core->cons, "%"PFMT64d"\n", r_itv_size (map->itv)); } } else { const char *p = strchr (input + 3, ' '); if (p) { id = (ut32)r_num_math (core->num, input + 3); newaddr = r_num_math (core->num, p + 1); r_io_map_resize (core->io, id, newaddr); } else { R_LOG_ERROR ("Missing argument"); } } break; case 'b': // "omb" -- manage memory banks { int argc; char **argv = r_str_argv (&input[1], &argc); cmd_open_banks (core, argc, argv); r_str_argv_free (argv); } break; case 'v': // "omv" if (input[2] == '?') { r_cons_cmd_help (core->cons, help_msg_omv); } else if (input[2] == '.') { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { ut64 dst = r_num_math (core->num, input + 3); r_io_map_remap (core->io, map->id, dst); } } else { if (input[2] == ' ') { const char *p = strchr (input + 3, ' '); if (p) { id = (ut32)r_num_math (core->num, input + 3); newaddr = r_num_math (core->num, p + 1); r_io_map_remap (core->io, id, newaddr); } else { R_LOG_ERROR ("Missing argument"); } } else { r_core_return_invalid_command (core, "omv", input[2]); } } break; case 'o': // "omo" if (core->io->va) { const char mode = input[2]; PJ *pj = NULL; RIOOverlayForeach cb = overlay_print_diff_cb; void *user = core; // the plain and the r2 callbacks take the core, the json one the pj if (mode == '*') { cb = overlay_print_diff_r2_cb; } else if (mode == 'j') { cb = overlay_print_diff_pj_cb; pj = r_core_pj_new (core); pj_a (pj); user = pj; } else if (mode == '?') { r_cons_cmd_help_match (core->cons, help_msg_om, "omo", 0, true); break; } else if (mode) { r_core_return_invalid_command (core, "omo", input[2]); break; } r_io_bank_overlay_foreach (core->io, core->io->bank, cb, user); if (pj) { pj_end (pj); char *s = pj_drain (pj); r_cons_println (core->cons, s); free (s); } } else { R_LOG_WARN ("Requires io.va"); } break; case 'r': // "omr" switch (input[2]) { case 'l': // "omrl" if (input[2] == ' ') { r_core_cmdf (core, "om %s 0x%08"PFMT64x " $s r oml", input + 2, core->addr); } else { r_core_cmd0 (core, "om `oq.` $B $s r"); } r_core_cmd0 (core, "omrd `omq.`"); break; case '?': // "omr?" r_cons_cmd_help (core->cons, help_msg_omr); break; case 'd': // "omrd" id = r_num_math (core->num, input + 3); //mapid if (r_io_map_exists_for_id (core->io, id)) { r_io_map_depriorize (core->io, id); } else { R_LOG_ERROR ("Cannot find any map with mapid %d", id); } break; case 'f': // "omrf" fd = r_num_math (core->num, input + 3); if (!r_io_map_priorize_for_fd (core->io, (int)fd)) { R_LOG_ERROR ("Cannot prioritize any map for fd %d", (int)fd); } break; case 'b': // "omrb" id = (ut32)r_num_math (core->num, input + 4); if (!r_bin_file_set_cur_by_id (core->bin, id)) { R_LOG_ERROR ("Cannot prioritize bin with fd %d", id); } break; case ' ': // "omr" id = r_num_math (core->num, input + 3); // mapid if (r_io_map_exists_for_id (core->io, id)) { r_io_map_priorize (core->io, id); r_core_block_read (core); } else { R_LOG_ERROR ("Cannot find any map with mapid %d", id); } break; case 0: { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { const char *sperm = r_str_rwx_i (map->perm & R_PERM_RWX); r_cons_println (core->cons, sperm); } } break; default: r_core_return_invalid_command (core, "omr", input[2]); break; } break; case 't': // "omt" r_core_cmd_omt (core, input + 2); break; case ',': // "om," cmd_omcomma (core, input + 2); break; case ' ': // "om" cmd_om (core, input, 0); break; case 'n': // "omn" if (input[2] == '?') { // "omn?" r_cons_cmd_help (core->cons, help_msg_omn); } else if (input[2] == '.') { // "omn." RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { switch (input[3]) { case '-': r_io_map_del_name (map); break; case 0: r_cons_printf (core->cons, "%s\n", map->name); break; case ' ': r_io_map_set_name (map, r_str_trim_head_ro (input + 3)); break; default: r_core_return_invalid_command (core, "omn.", input[3]); break; } } } else if (input[2] == 0 || input[2] == ' ' || input[2] == 'i') { bool use_id = (input[2] == 'i') ? true : false; s = r_str_trim_dup (input + (use_id ? 3: 2)); if (!s) { break; } p = s; s = (char *)r_str_trim_head_ro (s); if (*s == '\0') { s = p; break; } char *q = strchr (s, ' '); if (q) { *q++ = '\0'; if (use_id) { id = (ut32)r_num_math (core->num, s); map = r_io_map_get (core->io, id); } else { addr = r_num_math (core->num, s); map = r_io_map_get_at (core->io, addr); } if (map) { if (*q) { r_io_map_set_name (map, q); } else { r_io_map_del_name (map); } } s = p; } else { if (use_id) { id = (ut32)r_num_math (core->num, s); map = r_io_map_get (core->io, id); } else { addr = r_num_math (core->num, s); map = r_io_map_get_at (core->io, addr); } if (map) { r_io_map_del_name (map); } else { R_LOG_ERROR ("Cannot find map with given id or address"); } s = p; break; } } else { r_core_return_invalid_command (core, "omn", input[2]); } break; case 'a': // "oma" cmd_oma (core, input); break; case '+': // "om+" { ut32 fd = input[2]? r_num_math (core->num, input + 2): r_io_fd_get_current (core->io); RIODesc *desc = r_io_desc_get (core->io, fd); if (desc) { map = r_io_map_add (core->io, fd, desc->perm, 0, 0, UT64_MAX); if (map) { r_io_map_set_name (map, desc->name); } } else { r_cons_cmd_help_match (core->cons, help_msg_om, "omv", 0, false); } } break; case 'm': // "omm" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_om, "omm", 0, false); } else if (input[2] == 0 || input[2] == ' ') { ut32 fd = input[2]? r_num_math (core->num, input + 2): r_io_fd_get_current (core->io); RIODesc *desc = r_io_desc_get (core->io, fd); if (desc) { ut64 size = r_io_desc_size (desc); map = r_io_map_add (core->io, fd, desc->perm, 0, 0, size); if (map && desc->name) { r_io_map_set_name (map, desc->name); } } else { R_LOG_DEBUG ("Cannot find any fd to map"); } } else { r_core_return_invalid_command (core, "omm", input[2]); } break; case '-': // "om-" if (input[2] == '*') { r_io_map_reset (core->io); } else { const char *arg = r_str_trim_head_ro (input + 2); const int mapid = r_num_math (core->num, arg); if (core->num->nc.errors != 0) { R_LOG_ERROR ("Invalid mapid %s", arg); } else { r_io_map_del (core->io, mapid); } } break; case 'u': // "omu" -- same as "om", but checks if already exists switch (input[2]) { case '?': r_cons_cmd_help_match (core->cons, help_msg_om, "omu", 0, true); break; case 0: case ' ': cmd_om (core, input + 1, 'u'); break; default: r_core_return_invalid_command (core, "omu", input[2]); break; } break; case 'd': // "omd" cmd_omd (core, input + 2); break; case 'p': // "omp" switch (input[2]) { case 'g': // "ompg" if (input[3] == '?') { r_cons_cmd_help_match (core->cons, help_msg_om, "ompg", 0, false); } else { cmd_ompg (core, input + 3); } break; case ' ': // "omp" { int argc; char **argv = r_str_argv (&input[3], &argc); cmd_omp (core, argc, argv); r_str_argv_free (argv); } break; case '?': // "omp?" r_cons_cmd_help_match (core->cons, help_msg_om, "omp", 0, true); r_cons_cmd_help_match (core->cons, help_msg_om, "ompg", 0, false); break; case 0: // "omp" { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { r_cons_println (core->cons, r_str_rwx_i (map->perm & R_PERM_RWX)); } } break; default: r_core_return_invalid_command (core, "omp", input[2]); break; } break; case '\0': // "om" case 'j': // "omj" case '*': // "om*" "om**" case 'q': // "omq" if (input[1] && input[2] == '*') { // "om**" map = r_io_map_get_at (core->io, core->addr); if (map) { map_list (core, input[1], core->print, -3); } } else if (input[1] && input[2] == '.') { map = r_io_map_get_at (core->io, core->addr); if (map) { r_cons_printf (core->cons, "%i\n", map->id); } } else { if (input[1] && input[2] == 'q') { // "omqq" map_list (core, input[1], core->print, -2); } else { map_list (core, input[1], core->print, -1); } } break; case '=': // "om=" { RList *list = r_list_newf ((RListFree) r_listinfo_free); if (!list) { return; } RIOBank *bank = r_io_bank_get (core->io, core->io->bank); if (!bank) { r_list_free (list); return; } RListIter *iter; RIOMapRef *mapref; r_list_foreach_prev (bank->maprefs, iter, mapref) { RIOMap *map = r_io_map_get (core->io, mapref->id); char temp[32]; snprintf (temp, sizeof (temp), "%d", map->fd); RListInfo *info = r_listinfo_new (map->name, map->itv, map->itv, map->perm & R_PERM_RWX, temp); if (!info) { break; } r_list_append (list, info); } RTable *table = r_core_table_new (core, "maps"); r_table_visual_list (table, list, core->addr, core->blocksize, r_cons_get_size (core->cons, NULL), r_config_get_i (core->config, "scr.color")); char *tablestr = r_table_tostring (table); if (tablestr) { r_cons_printf (core->cons, "\n%s\n", tablestr); free (tablestr); } r_table_free (table); r_list_free (list); } break; case '?': r_cons_cmd_help (core->cons, help_msg_om); break; default: r_core_return_invalid_command (core, "om", input[1]); break; } R_FREE (s); r_core_block_read (core); } static bool reopen_in_malloc_cb(void *user, void *data, ut32 id) { RIO *io = (RIO *)user; RIODesc *desc = (RIODesc *)data; RIODescInfo di = r_io_desc_info (desc); if (di.blkdev || di.chrdev || di.isdbg) { return true; } if (strstr (desc->uri, "://")) { return true; } ut64 size = r_io_desc_size (desc); char *uri = r_str_newf ("malloc://%"PFMT64u, size); if (!uri) { return false; } ut8 *buf = malloc (size); // if malloc fails, we can just abort the loop by returning false if (!buf) { free (uri); return false; } RIODesc *ndesc = r_io_open_nomap (io, uri, R_PERM_RW, 0); free (uri); if (!ndesc) { free (buf); return false; } r_io_desc_read_at (desc, 0LL, buf, (int)size); //that cast o_O r_io_desc_write_at (ndesc, 0LL, buf, (int)size); free (buf); r_io_desc_exchange (io, desc->fd, ndesc->fd); r_io_desc_close (desc); return true; } R_API void r_core_file_reopen_in_malloc(RCore *core) { if (core && core->io) { r_id_storage_foreach (&core->io->files, reopen_in_malloc_cb, core->io); } } static RVecRBinSection *__save_old_sections(RCore *core) { RVecRBinSection *sections = r_bin_get_sections_vec (core->bin); RBinSection *sec; RVecRBinSection *old_sections = RVecRBinSection_new (); // Return an empty vec if (!sections) { R_LOG_WARN ("No sections found, functions and flags won't be rebased"); return old_sections; } R_VEC_FOREACH (sections, sec) { RBinSection *old_sec = RVecRBinSection_emplace_back (old_sections); *old_sec = *sec; old_sec->name = strdup (sec->name); old_sec->format = NULL; } return old_sections; } struct __rebase_struct { RCore *core; RVecRBinSection *old_sections; ut64 old_base; ut64 diff; int type; }; #define __is_inside_section(item_addr, section)\ (item_addr >= old_base + section->vaddr && item_addr <= old_base + section->vaddr + section->vsize) static bool __rebase_flags(RFlagItem *fi, void *user) { struct __rebase_struct *reb = user; ut64 old_base = reb->old_base; RBinSection *sec; // Only rebase flags that were in the rebased sections, otherwise it will take too long R_VEC_FOREACH (reb->old_sections, sec) { if (__is_inside_section (fi->addr, sec)) { r_flag_set (reb->core->flags, fi->name, fi->addr + reb->diff, fi->size); break; } } return true; } static void __rebase_everything(RCore *core, RVecRBinSection *old_sections, ut64 old_base) { RListIter *it, *ititit; RAnalFunction *fcn; ut64 new_base = (core->bin->cur && core->bin->cur->bo)? core->bin->cur->bo->baddr_shift: 0; RBinSection *old_section; ut64 diff = new_base - old_base; if (!diff) { return; } // FUNCTIONS r_list_foreach (core->anal->fcns, it, fcn) { R_VEC_FOREACH (old_sections, old_section) { if (!__is_inside_section (fcn->addr, old_section)) { continue; } r_anal_function_rebase_vars (core->anal, fcn); r_anal_function_relocate (fcn, fcn->addr + diff); RAnalBlock *bb; ut64 new_sec_addr = new_base + old_section->vaddr; r_list_foreach (fcn->bbs, ititit, bb) { if (bb->addr >= new_sec_addr && bb->addr <= new_sec_addr + old_section->vsize) { // Todo: Find better way to check if bb was already rebased continue; } r_anal_block_relocate (bb, bb->addr + diff, bb->size); if (bb->jump != UT64_MAX) { bb->jump += diff; } if (bb->fail != UT64_MAX) { bb->fail += diff; } } break; } } // FLAGS struct __rebase_struct reb = { core, old_sections, old_base, diff }; r_flag_foreach (core->flags, __rebase_flags, &reb); // META r_meta_rebase (core->anal, diff); // REFS RVecAnalRef *old_refs = r_anal_refs_get (core->anal, UT64_MAX); // r_anal_xrefs_free (core->anal); r_anal_xrefs_init (core->anal); // init already calls free if (old_refs) { RAnalRef *ref; R_VEC_FOREACH (old_refs, ref) { ref->addr += diff; ref->at += diff; r_anal_xrefs_set (core->anal, ref->at, ref->addr, ref->type); } } RVecAnalRef_free (old_refs); // BREAKPOINTS r_debug_bp_rebase (core->dbg, old_base, new_base); } R_API void r_core_file_reopen_remote_debug(RCore *core, char *uri, ut64 addr) { RIODesc *desc = core->io->desc; RIODesc *file; int fd; if (!desc || !desc->uri) { R_LOG_ERROR ("No file open?"); return; } core->dbg->main_arena_resolved = false; RVecRBinSection *old_sections = __save_old_sections (core); ut64 old_base = core->bin->cur->bo->baddr_shift; int bits = core->rasm->config->bits; r_config_set_i (core->config, "asm.bits", bits); r_config_set_b (core->config, "cfg.debug", true); // Set referer as the original uri so we could return to it with `oo` desc->referer = desc->uri; desc->uri = strdup (uri); if ((file = r_core_file_open (core, uri, R_PERM_RW, addr))) { fd = file->fd; r_core_return_value (core, fd); // if no baddr is defined, use the one provided by the file if (addr == 0) { desc = r_io_desc_get (core->io, file->fd); if (r_io_desc_info (desc).isdbg) { addr = r_debug_get_baddr (core->dbg, desc->name); } else { addr = r_bin_get_baddr (core->bin); } } r_core_bin_load (core, uri, addr); } else { R_LOG_ERROR ("Cannot open remote %s", uri); RVecRBinSection_free (old_sections); return; } r_core_block_read (core); if (r_config_get_i (core->config, "dbg.rebase")) { __rebase_everything (core, old_sections, old_base); } RVecRBinSection_free (old_sections); r_core_cmd0 (core, "sr PC"); } R_API void r_core_file_reopen_debug(RCore *core, const char *args) { RIODesc *desc = core->io->desc; if (!desc || !desc->uri) { R_LOG_ERROR ("No file open?"); return; } // Reopen the original file as read only since we can't open native debug while the // file is open with write permissions if (!r_io_desc_info (desc).isdbg && (desc->perm & R_PERM_W)) { R_LOG_ERROR ("Cannot debug file (%s) with permissions set to 0x%x" "Reopening the original file in read-only mode.\n", desc->name, desc->perm); int fd = desc->fd; if (r_io_reopen (core->io, fd, R_PERM_RX, 755)) { desc = r_io_desc_get (core->io, fd); } else { R_LOG_ERROR ("Cannot reopen"); return; } } RBinFile *bf = r_bin_file_find_by_fd (core->bin, desc->fd); char *binpath = (bf && bf->file) ? strdup (bf->file) : NULL; if (!binpath) { if (r_file_exists (desc->name)) { binpath = strdup (desc->name); } } if (!binpath) { /* fallback to oo */ (void)r_core_cmd0 (core, "oo"); return; } core->dbg->main_arena_resolved = false; RVecRBinSection *old_sections = __save_old_sections (core); ut64 old_base = (core->bin->cur && core->bin->cur->bo)? core->bin->cur->bo->baddr_shift: 0; int bits = core->rasm->config->bits; char *bin_abspath = r_file_abspath (binpath); if (strstr (bin_abspath, "://")) { free (bin_abspath); free (binpath); RVecRBinSection_free (old_sections); return; } char *escaped_path = r_str_arg_escape (bin_abspath); char *newfile = r_str_newf ("dbg://%s%c%s", escaped_path, *args?' ':0, args); desc->uri = newfile; desc->referer = NULL; r_config_set_i (core->config, "asm.bits", bits); if (!r_config_get_b (core->config, "cfg.debug")) { r_config_set_b (core->config, "cfg.debug", true); } r_core_file_reopen (core, newfile, 0, 2); if (r_config_get_i (core->config, "dbg.rebase")) { __rebase_everything (core, old_sections, old_base); } RVecRBinSection_free (old_sections); r_core_cmd0 (core, "sr PC"); free (bin_abspath); free (escaped_path); free (binpath); } static bool init_desc_list_visual_cb(void *user, void *data, ut32 id) { DescListCtx *ctx = (DescListCtx *)user; RIODesc *desc = (RIODesc *)data; ut64 sz = r_io_desc_size (desc); if (sz > ctx->fdsz) { ctx->fdsz = sz; } return true; } static bool desc_list_visual_cb(void *user, void *data, ut32 id) { DescListCtx *ctx = (DescListCtx *)user; RCore *core = ctx->core; RPrint *p = core->print; RIODesc *desc = (RIODesc *)data; ut64 sz = r_io_desc_size (desc); r_cons_printf (core->cons, "%2d %c %s 0x%08"PFMT64x" ", desc->fd, (desc->io && (desc->io->desc == desc)) ? '*' : '-', r_str_rwx_i (desc->perm), sz); int flags = p->flags; p->flags &= ~R_PRINT_FLAGS_HEADER; const int percent = (ctx->fdsz > 0) ? (sz * 100) / ctx->fdsz: 0; r_print_progressbar (p, percent, r_cons_get_size (core->cons, NULL) - 40, NULL); p->flags = flags; r_cons_printf (core->cons, " %s\n", desc->uri); return true; } static bool desc_list_quiet2_cb(void *user, void *data, ut32 id) { RPrint *p = (RPrint *)user; RIODesc *desc = (RIODesc *)data; r_print_printf (p, "%d\n", desc->fd); return false; } static bool desc_list_quiet_cb(void *user, void *data, ut32 id) { RPrint *p = (RPrint *)user; RIODesc *desc = (RIODesc *)data; r_print_printf (p, "%d\n", desc->fd); return true; } static bool desc_list_cmds_cb2(void *user, void *data, ut32 id) { RCore *core = (RCore *)user; RPrint *p = core->print; RIODesc *desc = (RIODesc*)data; char *name = strdup (desc->name); r_name_filter (name, -1); r_print_printf (p, "f fd.%s=%d\n", name, desc->fd); free (name); return true; } static void desc_print_open(RPrint *p, RBinFile *bf, const char *uri, int perm) { char *arg = r_str_r2arg (uri); if (bf) { r_print_printf (p, "o \"%s\" 0x%08"PFMT64x" %s\n", arg, bf->bo->baddr, r_str_rwx_i (perm)); } else { r_print_printf (p, "onnu \"%s\" %s\n", arg, r_str_rwx_i (perm)); } free (arg); } static bool desc_list_cmds_cb(void *user, void *data, ut32 id) { RCore *core = (RCore *)user; RPrint *p = core->print; RIODesc *desc = (RIODesc *)data; RBinFile *bf = r_bin_file_find_by_fd (core->bin, desc->fd); if (bf) { if (r_config_get_b (core->config, "prj.files") && *r_config_get (core->config, "prj.name")) { const char *buri = strstr (desc->uri, "://")? desc->uri: r_file_basename (desc->uri); r_print_printf (p, "pushd %s/%s\n", r_config_get (core->config, "dir.projects"), r_config_get (core->config, "prj.name")); desc_print_open (p, bf, buri, desc->perm); r_print_printf (p, "popd\n"); } else if (r_config_get_b (core->config, "prj.abspath") && !strstr (desc->uri, "://")) { char *apath = r_file_abspath (desc->uri); desc_print_open (p, bf, r_str_get_fail (apath, desc->uri), desc->perm); free (apath); } else { desc_print_open (p, bf, desc->uri, desc->perm); } } else if (r_config_get_b (core->config, "prj.abspath") && !strstr (desc->uri, "://")) { char *apath = r_file_abspath (desc->uri); desc_print_open (p, NULL, r_str_get_fail (apath, desc->uri), desc->perm); free (apath); } else { desc_print_open (p, NULL, desc->uri, desc->perm); } if (strstr (desc->uri, "null://")) { // null descs dont want to be mapped return true; } RVecRBinSection *list = bf? r_bin_file_get_sections_vec (bf): NULL; const ut64 fdsize = r_io_desc_size (desc); RList *maps = r_io_map_get_by_fd (core->io, desc->fd); RListIter *iter; RBinSection *sec; RIOMap *map; r_list_foreach_prev (maps, iter, map) { bool map_from_bin = false; bool have_segments = false; if (list) { R_VEC_FOREACH (list, sec) { if (sec->is_segment) { have_segments = true; ut64 psize = sec->paddr < fdsize? R_MIN (sec->size, fdsize - sec->paddr): 0; if (sec->vaddr == map->itv.addr && R_MIN (sec->vsize, psize) == map->itv.size && sec->paddr == map->delta) { map_from_bin = true; break; } } } } if (!have_segments) { map_from_bin = true; } if (!map_from_bin) { // ut64 paddr = 0; // map->itv.addr; ut64 paddr = map->itv.addr; if (paddr == map->itv.addr) { paddr = 0; } ut64 vaddr = map->itv.addr + map->delta; ut64 vsize = map->itv.size; if (vsize > 0) { r_print_printf (p, "om $d 0x%08"PFMT64x" 0x%08"PFMT64x" 0x%08"PFMT64x" %s %s\n", vaddr, vsize, paddr, r_str_rwx_i (map->perm & R_PERM_RWX), r_str_get (map->name)); } } } return true; } static bool desc_list_cb(void *user, void *data, ut32 id) { RPrint *p = (RPrint *)user; RIODesc *desc = (RIODesc *)data; r_print_printf (p, "%2d %c %s 0x%08"PFMT64x" %s\n", desc->fd, (desc->io && (desc->io->desc == desc)) ? '*' : '-', r_str_rwx_i (desc->perm), r_io_desc_size (desc), desc->uri); return true; } static bool desc_list_json_cb(void *user, void *data, ut32 id) { PJ *pj = (PJ *)user; RIODesc *desc = (RIODesc *)data; // TODO: from is always 0? See libr/core/file.c:945 ut64 from = 0LL; pj_o (pj); pj_kb (pj, "raised", desc->io && (desc->io->desc == desc)); pj_kN (pj, "fd", desc->fd); pj_ks (pj, "uri", desc->uri); pj_kn (pj, "from", from); pj_kb (pj, "writable", desc->perm & R_PERM_W); pj_kN (pj, "size", r_io_desc_size (desc)); pj_end (pj); return true; } static bool cmd_op(RCore *core, char mode, int fd) { int cur_fd = r_io_fd_get_current (core->io); int next_fd = cur_fd; switch (mode) { case 0: next_fd = fd; break; case 'n': next_fd = r_io_fd_get_next (core->io, cur_fd); break; case 'p': next_fd = r_io_fd_get_prev (core->io, cur_fd); break; case 'r': next_fd = r_io_fd_get_next (core->io, cur_fd); if (next_fd == -1) { next_fd = r_io_fd_get_lowest (core->io); } break; } if (next_fd >= 0 && next_fd != cur_fd && r_io_use_fd (core->io, next_fd)) { RBinFile *bf = r_bin_file_find_by_fd (core->bin, next_fd); if (bf && r_core_bin_raise (core, bf->id)) { r_core_block_read (core); return true; } } return next_fd != -1; } typedef struct { const char *name; RIODesc *desc; RCore *core; } Onn; static bool find_desc_by_name(void *user, void *data, ut32 id) { Onn *on = (Onn *)user; RIODesc *desc = (RIODesc *)data; if (!strcmp (desc->name, on->name)) { on->desc = desc; return false; } // eprintf ("%s %c", desc->name, 10); return true; } static int cmd_ooi(RCore *r, const char *file, ut64 baseaddr) { int result = 0; RIODesc *cd = r->io->desc; if (baseaddr == UT64_MAX) { baseaddr = 0; } if (cd) { RBinFile *bf = r_bin_file_find_by_fd (r->bin, cd->fd); if (bf) { result = r_bin_reload (r->bin, bf->id, baseaddr); } } r_core_bin_set_env (r, r_bin_cur (r->bin)); return result; } static bool cmd_onn(RCore *core, const char *input) { const char *args = strchr (input, ' '); int argc = 0; char **argv = args? r_str_argv (args, &argc): NULL; if (argc < 1 || argc > 2) { r_cons_cmd_help_match (core->cons, help_msg_on, "onn", 0, false); r_str_argv_free (argv); return false; } int perms = argc == 2? r_str_rwx (argv[1]): R_PERM_R; if (perms < 0) { R_LOG_WARN ("Invalid permissions string"); perms = 0; } if (r_str_startswith (argv[0], "base64:")) { char *decoded = (char *)sdb_decode (argv[0] + 7, NULL); if (decoded) { free (argv[0]); argv[0] = decoded; } } Onn on = {argv[0], NULL, core}; if (r_str_startswith (input, "nnu")) { r_id_storage_foreach (&core->io->files, find_desc_by_name, &on); if (on.desc) { core->io->desc = on.desc; r_str_argv_free (argv); return true; } } RIODesc *desc = r_io_open_nomap (core->io, argv[0], perms, 0644); bool ok = desc && desc->fd != -1; if (!ok) { R_LOG_ERROR ("Cannot onn open file '%s'", argv[0]); } r_str_argv_free (argv); return ok; } static int cmd_on(RCore *core, int argc, char *argv[]) { if (argc < 1) { return 0; } char *path = NULL; int fd = -1; ut64 vsize = 0, vaddr = 0ULL; ut32 i, perm = R_PERM_R; const ut32 end = R_MIN (argc, 4); for (i = 0; i < end; i++) { switch (i) { case 0: if (!strcmp (argv[0], "-")) { path = "malloc://512"; perm = R_PERM_RW; break; } path = argv[0]; if (r_str_startswith (path, "malloc://")) { perm = R_PERM_RW; //HACK } break; case 1: if (!r_num_is_valid_input (core->num, argv[1])) { break; } vaddr = r_num_math (core->num, argv[1]); break; case 2: perm = r_str_rwx (argv[2]); break; case 3: fd = r_io_fd_open (core->io, path, perm, 0664); if (fd < 0) { R_LOG_ERROR ("Cannot open file at %s", path); return fd; } if (r_num_is_valid_input (core->num, argv[3])) { vsize = R_MIN (r_num_math (core->num, argv[3]), r_io_fd_size (core->io, fd)); } else { vsize = r_io_fd_size (core->io, fd); } break; } } if (argc < 4) { fd = r_io_fd_open (core->io, path, perm, 0664); if (fd < 0) { R_LOG_ERROR ("Cannot open file %s", path); return fd; } } if (fd >= 0 && vsize < 1) { vsize = r_io_fd_size (core->io, fd); } if (!r_io_map_add (core->io, fd, perm, 0ULL, vaddr, vsize)) { R_LOG_WARN ("Couldn't create map at 0x%08"PFMT64x" with size=0x%08"PFMT64x, vaddr, vsize); } return fd; } static int cmd_open(void *data, const char *input) { RCore *core = (RCore*)data; int perms = R_PERM_R; ut64 baddr = r_config_get_i (core->config, "bin.baddr"); ut64 addr = 0LL; int argc, fd = -1; RIODesc *file; const char *ptr = NULL; char **argv = NULL; switch (*input) { case 'a': // "oa" switch (input[1]) { case '*': // "oa*" { RListIter *iter; RBinFile *bf = NULL; r_list_foreach (core->bin->binfiles, iter, bf) { if (bf && bf->bo && bf->bo->info) { r_cons_printf (core->cons, "oa %s %d %s\n", bf->bo->info->arch, bf->bo->info->bits, bf->file); } } return 1; } break; case '?': // "oa?" r_cons_cmd_help_match (core->cons, help_msg_o, "oa", 0, true); return 1; case ' ': { // "oa " int i; char *ptr = strdup (input+2); const char *arch = NULL; ut16 bits = 0; const char *filename = NULL; i = r_str_word_set0 (ptr); if (i < 2) { R_LOG_ERROR ("Missing argument"); free (ptr); return 0; } if (i == 3) { filename = r_str_word_get0 (ptr, 2); } bits = r_num_math (core->num, r_str_word_get0 (ptr, 1)); arch = r_str_word_get0 (ptr, 0); r_core_bin_set_arch_bits (core, filename, arch, bits); RBinFile *file = NULL; if (filename) { file = r_bin_cur (core->bin); if (!file || !file->file || strcmp (file->file, filename)) { file = r_bin_file_find_by_name (core->bin, filename); } if (!file) { R_LOG_ERROR ("Cannot find file %s", filename); } } else if (r_list_length (core->bin->binfiles) == 1) { file = (RBinFile *)r_list_first (core->bin->binfiles); } else { R_LOG_INFO ("More than one file is opened, you must specify the filename"); } if (!file) { free (ptr); return 0; } if (file->bo && file->bo->info) { free (file->bo->info->arch); file->bo->info->arch = strdup (arch); file->bo->info->bits = bits; r_core_bin_set_env (core, file); } free (ptr); return 1; } break; default: r_cons_cmd_help_match (core->cons, help_msg_o, "oa", 0, true); return 0; } break; case 'n': // "on" if (input[1] == '?') { r_cons_cmd_help (core->cons, help_msg_on); return 0; } if (input[1] == 'n') { // "onn" cmd_onn (core, input); return 0; } if (input[1] == '*') { // "on*" R_LOG_TODO ("on* is not yet implemented"); return 0; } if (input[1] == '+') { // "on+" perms |= R_PERM_W; if (input[2] != ' ') { r_cons_cmd_help_match (core->cons, help_msg_on, "on+", 0, true); return 0; } ptr = r_str_trim_head_ro (input + 3); } else if (input[1] == ' ') { ptr = input + 2; } else { r_cons_cmd_help (core->cons, help_msg_on); return 0; } argv = r_str_argv (ptr, &argc); if (!argc) { r_cons_cmd_help (core->cons, help_msg_on); r_str_argv_free (argv); return 0; } if (cmd_on (core, argc, argv) < 0) { R_LOG_ERROR ("Cannot open file on '%s'", argv[0]); } r_str_argv_free (argv); r_core_return_value (core, fd); r_core_block_read (core); return 0; case 'e': // "oe" if (input[1] == ' ') { const char *arg = r_str_trim_head_ro (input + 1); free (r_core_editor (core, arg, NULL, NULL)); } else { r_cons_cmd_help_match (core->cons, help_msg_o, "oe", 0, false); } return 0; // XXX projects use the of command, but i think we should deprecate it... keeping it for now case 'f': // "of" if (input[1]) { ptr = r_str_trim_head_ro (input + 2); argv = r_str_argv (ptr, &argc); if (argc == 0 || input[1] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o, "of", 0, true); r_str_argv_free (argv); return 0; } if (argc == 2) { perms = r_str_rwx (argv[1]); if (perms < 0) { R_LOG_WARN ("Invalid permissions string"); perms = 0; } } fd = r_io_fd_open (core->io, argv[0], perms, 0); r_core_return_value (core, fd); r_str_argv_free (argv); } else { r_cons_cmd_help_match (core->cons, help_msg_o, "of", 0, true); } return 0; case 't': // "ot" r_core_cmdf (core, "touch%s", input + 1); return 0; case 'p': // "op" /* handle prioritize */ if (input[1]) { switch (input[1]) { case 'e': // "ope" - 'open' { const char *sp = strchr (input, ' '); if (sp) { if (!r_sys_open (sp + 1, NULL, false)) { R_LOG_ERROR ("Cannot open '%s' with a system handler", sp + 1); } } else { r_cons_cmd_help_match (core->cons, help_msg_o, "open", 0, true); } } break; case 'r': // "opr" - open next file + rotate if not found case 'n': // "opn" - open next file case 'p': // "opp" - open previous file if (!cmd_op (core, input[1], -1)) { R_LOG_ERROR ("Cannot find file"); } break; case ' ': { int fd = r_num_math (core->num, input + 1); if (fd >= 0 || input[1] == '0') { cmd_op (core, 0, fd); } else { R_LOG_ERROR ("Invalid fd number"); } } break; default: r_cons_cmd_help (core->cons, help_msg_op); break; } } else { if (core->io && core->io->desc) { r_cons_printf (core->cons, "%d\n", core->io->desc->fd); } } return 0; break; case 'r': // "or" ptr = input + 1; argv = r_str_argv (ptr, &argc); if (argc > 1) { const int fd = (int)r_num_math (core->num, argv[0]); const ut64 size = r_num_math (core->num, argv[1]); if (r_io_fd_resize (core->io, fd, size)) { R_LOG_WARN ("maps cant have zero size, use omu command to re-create it when file resized"); } else { R_LOG_ERROR ("fdresize failed"); } } r_str_argv_free (argv); return 0; break; case '+': // "o+" if (input[1] == '?' || (input[1] && input[2] == '?')) { r_cons_cmd_help_match (core->cons, help_msg_o, "o+", 0, false); return 0; } perms |= R_PERM_W; if (input[1] == '+') { // "o++" perms |= R_PERM_CREAT; input++; } /* fallthrough */ case ' ': // "o" "o " ptr = input + 1; argv = r_str_argv (ptr, &argc); if (argc == 0) { if (perms & R_PERM_W) { r_cons_cmd_help_match (core->cons, help_msg_o, "o+", 0, false); } else { r_cons_cmd_help_match (core->cons, help_msg_o, "o", 0, true); } r_str_argv_free (argv); return 0; } if (argv) { if (r_str_startswith (argv[0], "base64:")) { char *decoded = (char *)sdb_decode (argv[0] + 7, NULL); if (decoded) { free (argv[0]); argv[0] = decoded; } } else { // Unescape spaces from the path r_str_path_unescape (argv[0]); } if (argc == 2) { if (r_num_is_valid_input (core->num, argv[1])) { addr = r_num_math (core->num, argv[1]); } else { perms = r_str_rwx (argv[1]); if (perms < 0) { R_LOG_WARN ("Invalid permissions string (%s)", argv[1]); perms = 0; } } } else if (argc == 3) { addr = r_num_math (core->num, argv[1]); perms = r_str_rwx (argv[2]); if (perms < 0) { R_LOG_WARN ("Invalid permissions string (%s)", argv[1]); perms = 0; } } } { const char *argv0 = argv ? argv[0] : ptr; if ((file = r_core_file_open (core, argv0, perms, addr))) { fd = file->fd; r_core_return_value (core, fd); if (addr == 0) { // if no baddr defined, use the one provided by the file addr = UT64_MAX; } r_core_bin_load (core, argv0, addr); if (*input == '+') { // "o+" RIODesc *desc = r_io_desc_get (core->io, fd); if (desc && (desc->perm & R_PERM_W)) { RListIter *iter; RList *maplist = r_io_map_get_by_fd (core->io, desc->fd); if (!maplist) { break; } RIOMap *map; r_list_foreach (maplist, iter, map) { map->perm = (map->sperm | R_PERM_WX) & desc->perm & R_PERM_RWX; } r_list_free (maplist); } else { R_LOG_ERROR ("%s is not writable", argv0); } } } else { if (perms & R_PERM_W) { // create file! } R_LOG_ERROR ("Cannot open file %s", argv0); } } r_core_block_read (core); r_str_argv_free (argv); return 0; } switch (*input) { case '=': // "o=" if (input[1]) { // "o=#number" // set current fd int n = (int)r_num_math (core->num, input + 1); if (n > 0) { RIODesc *desc = r_io_desc_get (core->io, n); if (desc) { core->io->desc = desc; } } } else { // "o=" DescListCtx ctx = { core, 0 }; r_id_storage_foreach (&core->io->files, init_desc_list_visual_cb, &ctx); r_id_storage_foreach (&core->io->files, desc_list_visual_cb, &ctx); } break; case 'q': // "oq" if (input[1] == 'q') { // "oqq" if (core->io->desc) { int fd = core->io->desc->fd; r_cons_printf (core->cons, "%d\n", fd); } } else if (input[1] == '.') { // "oq." r_id_storage_foreach (&core->io->files, desc_list_quiet2_cb, core->print); } else { r_id_storage_foreach (&core->io->files, desc_list_quiet_cb, core->print); } break; case '\0': // "o" r_id_storage_foreach (&core->io->files, desc_list_cb, core->print); break; case '*': // "o*" if (input[1] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o, "o*", 0, true); } else if (input[1] == '*') { r_id_storage_foreach (&core->io->files, desc_list_cmds_cb2, core); } else { r_id_storage_foreach (&core->io->files, desc_list_cmds_cb, core); } break; case 'j': // "oj" if (input[1] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o, "oj", 0, true); break; } PJ *pj = r_core_pj_new (core); pj_a (pj); r_id_storage_foreach (&core->io->files, desc_list_json_cb, pj); pj_end (pj); r_cons_printf (core->cons, "%s\n", pj_string (pj)); pj_free (pj); break; case 'L': // "oL" if (!r_sandbox_check (R_SANDBOX_GRAIN_FILES | R_SANDBOX_GRAIN_DISK)) { R_LOG_ERROR ("This command is disabled in sandbox mode"); return 0; } if (input[1] == ' ') { if (!r_lib_open (core->lib, input + 2)) { R_LOG_ERROR ("Oops. Cannot open library"); } } else { r_core_list_io (core, NULL, input[1]); } break; case 'u': { // "ou" core->switch_file_view = 0; int num = atoi (input + 2); r_io_use_fd (core->io, num); RBinFile *bf = r_bin_file_find_by_fd (core->bin, num); if (bf) { r_core_bin_raise (core, bf->id); r_core_block_read (core); } break; } case 'b': // "ob" cmd_open_bin (core, input); break; case '-': // "o-" switch (input[1]) { case '!': // "o-!" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o_dash, "o-!", 0, true); } else { r_core_file_close_all_but (core); } break; case '$': // "o-$" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o_dash, "o-$", 0, true); } else { R_LOG_TODO ("o-$: close last fd is not implemented"); } break; case '.': // "o-." if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o_dash, "o-*", 0, true); } else { RBinFile *bf = r_bin_cur (core->bin); if (bf && bf->fd >= 0) { core->bin->cur = NULL; int fd = bf->fd; if (!r_io_fd_close (core->io, fd)) { R_LOG_ERROR ("Unable to find file descriptor %d", fd); } } } break; case '*': // "o-*" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o_dash, "o-*", 0, true); } else { r_io_close_all (core->io); r_bin_file_delete_all (core->bin); } break; case '-': // "o--" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o_dash, "o--", 0, true); } else { r_io_close_all (core->io); r_bin_file_delete_all (core->bin); r_core_cmd0 (core, "o-*;om-*"); r_anal_purge (core->anal); r_flag_unset_all (core->flags); } break; case '\0': case '?': r_cons_cmd_help (core->cons, help_msg_o_dash); break; default: { int fd = (int)r_num_math (core->num, input + 1); RFSRoot *mounted = r_fs_root_by_fd (core->fs, fd); if (mounted) { R_LOG_ERROR ("fd %d backs mount %s (unmount first with 'm-%s')", fd, mounted->path, mounted->path); } else if (!r_io_fd_close (core->io, fd)) { R_LOG_ERROR ("Unable to find file descriptor %d", fd); } } break; } break; case '.': // "o." if (input[1] == 'q') { // "o.q" // same as oq RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { r_cons_printf (core->cons, "%d\n", map->fd); } } else { RIOMap *map = r_io_map_get_at (core->io, core->addr); if (map) { RIODesc *desc = r_io_desc_get (core->io, map->fd); if (desc) { r_cons_printf (core->cons, "%s\n", desc->uri); } } } break; case ':': // "o:" { int len = r_num_math (core->num, input + 1); if (len < 1) { len = core->blocksize; } char *uri = r_str_newf ("malloc://%d", len); ut8 *data = calloc (len, 1); r_io_read_at (core->io, core->addr, data, len); if ((file = r_core_file_open (core, uri, R_PERM_RWX, 0))) { fd = file->fd; r_core_return_value (core, fd); r_core_bin_load (core, uri, 0); RIODesc *desc = r_io_desc_get (core->io, fd); if (desc) { // TODO: why r_io_desc_write() fails? r_io_desc_write_at (desc, 0, data, len); } } else { R_LOG_ERROR ("Cannot %s", uri); } free (uri); free (data); } break; case 'm': // "om" cmd_open_map (core, input); break; case 'o': // "oo" switch (input[1]) { case 'm': // "oom" r_core_file_reopen_in_malloc (core); break; case 'd': // "ood" : reopen in debugger switch (input[2]) { case 'r': // "oodr" r_core_cmdf (core, "dor %s", input + 3); r_core_file_reopen_debug (core, ""); break; case 'f': // "oodf" argv = r_str_argv (input + 3, &argc); if (argc < 1 || argc > 2) { r_cons_cmd_help_match (core->cons, help_msg_ood, "oodf", 0, true); r_str_argv_free (argv); return 0; } if (argc == 2 && r_num_is_valid_input (core->num, argv[1])) { addr = r_num_math (core->num, argv[1]); } r_core_file_reopen_remote_debug (core, argv[0], addr); r_str_argv_free (argv); break; case '\0': // "ood" case ' ': // "ood " r_core_file_reopen_debug (core, r_str_trim_head_ro (input + 2)); break; case '?': // "ood?" default: r_cons_cmd_help (core->cons, help_msg_ood); break; } break; case 'c': // "ooc" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_oo, "ooc", 0, true); } else { r_core_cmd0 (core, "oc `o.`"); } break; case 'i': // "ooi" // reload info if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_oo, "ooi", 0, true); } else { const char *arg = strchr (input, ' '); if (arg) { arg++; } ut64 baddr = arg? r_num_math (core->num, arg) : r_config_get_i (core->config, "bin.baddr"); // XXX: this will reload the bin using the buffer. // An assumption is made that assumes there is an underlying // plugin that will be used to load the bin (e.g. malloc://) // TODO: Might be nice to reload a bin at a specified offset? cmd_ooi (core, NULL, baddr); r_core_block_read (core); } break; case 'b': // "oob" : reopen with bin info if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_oo, "oob", 0, true); } else { r_core_file_reopen (core, input + 2, 0, 2); } break; case 'n': // "oon" switch (input[2]) { case 0: // "oon" r_core_file_reopen (core, NULL, 0, 0); break; case '+': // "oon+" r_core_file_reopen (core, NULL, R_PERM_RW, 0); break; case 'n': // "oonn" if (input[3] == '?' || !core->io->desc) { r_cons_cmd_help_match (core->cons, help_msg_oo, "oonn", 0, false); break; } RIODesc *desc = r_io_desc_get (core->io, core->io->desc->fd); if (desc) { perms = core->io->desc->perm; if (input[3] == '+') { perms |= R_PERM_RW; } char *fname = strdup (desc->name); if (fname) { r_core_bin_load_structs (core, fname); r_core_file_reopen (core, fname, perms, 0); free (fname); } break; } break; case '?': default: r_cons_cmd_help_match (core->cons, help_msg_oo, "oon", 0, false); break; } break; case '+': // "oo+" if (input[2] == '?') { r_cons_cmd_help_match (core->cons, help_msg_oo, "oo+", 0, true); } else if (core && core->io && core->io->desc) { int fd; int perms = R_PERM_RW; if ((ptr = strrchr (input, ' ')) && ptr[1]) { fd = (int)r_num_math (core->num, ptr + 1); } else { fd = core->io->desc->fd; perms |= core->io->desc->perm; } if (r_io_reopen (core->io, fd, perms, 644)) { RListIter *iter; RList *maplist = r_io_map_get_by_fd (core->io, fd); if (!maplist) { break; } RIOMap *map; r_list_foreach (maplist, iter, map) { r_io_map_set_perm (core->io, map->id, map->sperm | R_PERM_WX); } r_list_free (maplist); } } break; case '\0': // "oo" if (core && core->io && core->io->desc) { int fd; if ((ptr = strrchr (input, ' ')) && ptr[1]) { fd = (int)r_num_math (core->num, ptr + 1); } else { fd = core->io->desc->fd; } if (r_config_get_b (core->config, "cfg.debug")) { RBinFile *bf = r_bin_cur (core->bin); if (bf && r_file_exists (bf->file)) { // Escape spaces so that o's argv parse will detect the path properly char *file = r_str_path_escape (bf->file); // Backup the baddr and sections that were already rebased to // revert the rebase after the debug session is closed ut64 orig_baddr = core->bin->cur->bo->baddr_shift; RVecRBinSection *orig_sections = __save_old_sections (core); r_core_cmd0 (core, "ob-*"); r_io_close_all (core->io); r_config_set_b (core->config, "cfg.debug", false); r_core_callf (core, "o %s", file); r_core_block_read (core); __rebase_everything (core, orig_sections, orig_baddr); RVecRBinSection_free (orig_sections); free (file); } else { R_LOG_WARN ("Nothing to do"); } } else { // r_io_reopen (core->io, fd, R_PERM_R, 644); if (!r_io_reopen (core->io, fd, R_PERM_RX, 755)) { R_LOG_ERROR ("Cannot reopen"); } } } break; case '?': // "oo?" default: r_cons_cmd_help (core->cons, help_msg_oo); break; } break; case 'c': // "oc" if (input[1] == '?') { r_cons_cmd_help_match (core->cons, help_msg_o, "oc", 0, true); } else if (input[1] && input[2]) { if (!r_sandbox_check (R_SANDBOX_GRAIN_FILES | R_SANDBOX_GRAIN_DISK)) { R_LOG_ERROR ("This command is disabled in sandbox mode"); return 0; } if (!r_core_task_ismain (&core->tasks)) { R_LOG_ERROR ("This command can only be executed on the main task!"); return 0; } // memleak? lose all settings wtf // if load fails does not fallbacks to previous file r_core_task_sync_end (&core->tasks); // Detach the console so it survives the reinit: the command // dispatch stack executing this "oc" holds pointers into it RCons *cons = core->cons; cons->teefile = NULL; // borrowed from the config, freed by fini core->cons = NULL; r_core_fini (core); core->cons = cons; r_core_init (core); r_core_task_sync_begin (&core->tasks); if (r_core_file_open (core, input + 2, R_PERM_RX, 0)) { (void)r_core_bin_load (core, NULL, baddr); } else { R_LOG_ERROR ("Cannot open file"); } } else { R_LOG_ERROR ("Missing argument"); } break; case 'x': // "ox" if (input[1] && input[1] != '?') { int fd, fdx; fd = fdx = -1; char *ptr, *inp = strdup (input); if ((ptr = strrchr (inp, ' '))) { fdx = (int)r_num_math (core->num, ptr + 1); *ptr = '\0'; if ((ptr = strchr (inp, ' '))) { fd = r_num_math (core->num, ptr + 1); } } if ((fdx == -1) || (fd == -1) || (fdx == fd)) { free (inp); break; } r_io_desc_exchange (core->io, fd, fdx); free (inp); r_core_block_read (core); } else { r_cons_cmd_help_match (core->cons, help_msg_o, "oxr", 0, true); } break; case '?': // "o?" r_cons_cmd_help (core->cons, help_msg_o); break; default: r_core_return_invalid_command (core, "o", *input); break; } return 0; } #endif