/usr/lib/radare/bin/strings-pe-flag 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 37 38 39 40 41 42 43 44 | #!/usr/bin/perl
#
# author: pof <eslack.org>
# perl port: pancake <youterm.com>
#
die "Usage: rsc strings-pe-flag [file] ([minlen]) ([offset])\n" unless(@ARGV);
my $file=$ARGV[0];
my $minlen=$ARGV[1];
my $offset=$ARGV[2];
$offset=0 unless($offset);
$minlen=3 unless($minlen);
#my @strings=split('\n', `radare -S2 -s 100 $file 2>&1`);
my @strings=split('\n', `strings -tx -n2 $file`);
my @foo=split(' ', `objdump -h $file | grep '.rdata'`);
@foo=split(' ', `objdump -h $file | grep '.rodata'`) if ($#foo==0);
my $mem="0x".$foo[4];
my $disk="0x".$foo[5];
my $count=0;
print ":f _here_\n";
for my $i (0 .. $#strings) {
$strings[$i]=~s/^\ *//;
$strings[$i]=~/([^\ ]*) (.*)$/;
my $addr = $1;
#my $type = $2;
my $str = $2;
my $cow;
eval ("\$cow = 0x$addr-$disk+$mem+$offset\n");
$str=~tr/\ \-\>\<\`\t\|\@"/.__________./;
$str=~s/\.*//g;
$str=substr($str, 0,27);
if ($str=~/%/ || length($str)>$minlen) {
print ":fn \"$str\" @ 0x".sprintf "%08x\n", $cow;
# TODO
# print "Cs ".length($str)."0x".sprintf("%08x",$cow);
$count++;
}
}
print ":s _here_\n:f -_here_\n";
print STDERR "$count strings added\n";
|