mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-21 12:48:36 +00:00
39 lines
947 B
Perl
Executable File
39 lines
947 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Extract OBJC class information into a radare2 script
|
|
# author: pancake 2014-2015
|
|
|
|
my $file = $ARGV[0] or die ("Usage: objc.pl [file] ([baddr])\n");
|
|
my $baddr = $ARGV[1] or 0;
|
|
my $class = "";
|
|
my $bits = 32;
|
|
|
|
die "Invalid base address" if ($baddr % 4);
|
|
|
|
local $classdump = qx(class-dump-z -A "$file") or die ("Cannot open file\n");
|
|
|
|
foreach my $line (split /[\r\n]+/, $classdump) {
|
|
if ($line=~/Arch: /) {
|
|
if ($line=~/arm/) {
|
|
print "e asm.arch=arm.cs\n";
|
|
print "e anal.arch=arm.cs\n";
|
|
}
|
|
} elsif ($line=~/^\@interface ([^\ ]*)/) {
|
|
$class = $1;
|
|
} elsif ($line=~/IMP=0x(.*)$/) {
|
|
my $addr = hex ("0x".$1);
|
|
if ($line=~/\)([^:;]+)/) {
|
|
my $method = $1;
|
|
if ($addr & 1) {
|
|
$addr--;
|
|
$bits = 16; # enable thumb mode by default
|
|
#$method .= "_THUMB";
|
|
} else {
|
|
#$method .= "_ARM";
|
|
}
|
|
$addr += $baddr;
|
|
printf ("f objc.".$class."_".$method." = 0x%x\n",$addr);
|
|
}
|
|
}
|
|
}
|
|
print "e asm.bits=$bits\n";
|