File: idc2rdb.pl

package info (click to toggle)
radare2 0.9.6-3.1%2Bdeb8u1
  • links: PTS, VCS
  • area: main
  • in suites: jessie
  • size: 17,496 kB
  • ctags: 45,959
  • sloc: ansic: 240,999; sh: 3,645; makefile: 2,520; python: 1,212; asm: 312; ruby: 214; awk: 209; perl: 188; lisp: 169; java: 23; xml: 17; php: 6
file content (19 lines) | stat: -rw-r--r-- 480 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl
# author: pancake <youterm.com>
#      MakeName        (0X804C1AF,     "the_forker");
#      MakeRptCmt      (0X804C1B6,     "comentari chachi\n");

open FD, "<".$ARGV[0] or die "Cannot open file\n";
print "fs symbols\n";
while(<FD>) {
	$str=$_;
	if ($str=~/MakeName[^X]*.([^,]*)[^"]*.([^"]*)/) {
		print "f sym.$2 @ 0x$1\n";
	}
	elsif ($str=~/MakeRptCmt[^X]*.([^,]*)[^"]*.([^"]*)/) {
		$cmt = $2;
		$off = $1;
		$cmt=~s/\\n//g;
		print "CC $cmt @ 0x$off\n";
	}
}