mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-04 11:43:39 +00:00
2365918652
Fix slow ELF loading when shstr section was huge Added 'ahj' command to list anal hints in json Add 'ah*' and use it from r_core_project Fix 'i*' command
20 lines
480 B
Perl
20 lines
480 B
Perl
#!/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";
|
|
}
|
|
}
|