/usr/lib/radare/bin/symbytediff is in radare-common 1:1.5.2-4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | #!/usr/bin/env perl
#
# Look for symbol-byte-level differences between two elfs
#
# pancake <youterm.com>
#
my $a=$ARGV[0];
my $b=$ARGV[1];
die "Usage: rsc symbytediff [a-file] [b-file]\n"
if ($a eq "" or $b eq "" or $a eq "-h");
sub domybest {
unlink $tmpa;
unlink $tmpb;
exit 0;
}
sub ow_yeah {
foreach (@_) {
print "$1\n" if(/^\+([^:]+)/ and !/^\+\+/);
}
}
$SIG{INT}=\&domybest;
my $tmpa="/tmp/.a.$$.".int rand(0xfef);
my $tmpb="/tmp/.b.$$.".int rand(0xefe);
system("rsc syms-dump $a > $tmpa");
system("rsc syms-dump $b > $tmpb");
my @difflines=`diff -u $tmpa $tmpb`;
ow_yeah @difflines;
domybest;
|