/usr/lib/radare/bin/syms-pe-flag is in radare-common 1:1.5.2-6.
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 | #!/usr/bin/perl
#
# author: pof <eslack.org>
# perl port: pancake <youterm.com>
#
die "Usage: rsc syms-pe-flag [file] ([offset])\n" unless(@ARGV);
my $file=$ARGV[0];
my $offset=$ARGV[1];
$offset="0x400c00" unless($offset);
# XXX THIS IS BROKEN: MUST BE REPLACED BY RABIN
my @strings=split('\n', `echo food`); #rsc syms $file`);
print ":f _here_\n";
for my $i (0 .. $#strings) {
$strings[$i]=~/^([^\ ]*) (.*)$/;
my $addr = $1;
my $str = $2;
my $cow;
eval ("\$cow = $addr-$offset\n");
$str=~s/\@.*$//g;
$str=~tr/\ \-\>\<\`\t\|\@"/.__________./;
$str=substr($str, 0, 27);
printf ":fn sym$str @ 0x%08x\n", $cow;
}
print ":s _here_\n:f -_here_\n";
print STDERR $#strings." symbols added\n";
|