Gecko [ paroquia-rio-de-mouro.pt ]

Name	Size	Permission	Date
basic	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
coccinelle	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
dtc	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
gdb	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
genksyms	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
kconfig	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
ksymoops	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
mod	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
package	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
selinux	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
tracing	[ DIR ]	drwxr-xr-x	2018-04-05 07:11
.gitignore	154 B	-rw-r--r--	2016-01-11 00:01
Kbuild.include	13.07 KB	-rw-r--r--	2016-01-11 00:01
Lindent	496 B	-rwxr-xr-x	2016-01-11 00:01
Makefile	1.79 KB	-rw-r--r--	2018-04-02 18:07
Makefile.asm-generic	683 B	-rw-r--r--	2016-01-11 00:01
Makefile.build	16.5 KB	-rw-r--r--	2018-04-02 18:07
Makefile.clean	2.83 KB	-rw-r--r--	2016-01-11 00:01
Makefile.dtbinst	1.41 KB	-rw-r--r--	2016-01-11 00:01
Makefile.extrawarn	2.42 KB	-rw-r--r--	2018-04-02 18:07
Makefile.fwinst	2.01 KB	-rw-r--r--	2016-01-11 00:01
Makefile.headersinst	4.65 KB	-rw-r--r--	2016-01-11 00:01
Makefile.help	68 B	-rw-r--r--	2016-01-11 00:01
Makefile.host	4.51 KB	-rw-r--r--	2016-01-11 00:01
Makefile.kasan	934 B	-rw-r--r--	2016-01-11 00:01
Makefile.lib	13.99 KB	-rw-r--r--	2016-01-11 00:01
Makefile.modbuiltin	1.78 KB	-rw-r--r--	2016-01-11 00:01
Makefile.modinst	1.43 KB	-rw-r--r--	2018-04-02 18:07
Makefile.modpost	5.27 KB	-rw-r--r--	2016-01-11 00:01
Makefile.modsign	1005 B	-rw-r--r--	2016-01-11 00:01
analyze_suspend.py	117.57 KB	-rwxr-xr-x	2016-01-11 00:01
asn1_compiler.c	35.54 KB	-rw-r--r--	2016-01-11 00:01
bloat-o-meter	1.9 KB	-rwxr-xr-x	2018-04-02 18:07
bootgraph.pl	6.28 KB	-rwxr-xr-x	2016-01-11 00:01
check-lc_ctype.c	201 B	-rw-r--r--	2016-01-11 00:01
check_extable.sh	4.9 KB	-rwxr-xr-x	2016-01-11 00:01
checkincludes.pl	1.77 KB	-rwxr-xr-x	2016-01-11 00:01
checkkconfigsymbols.py	11.44 KB	-rwxr-xr-x	2016-01-11 00:01
checkpatch.pl	169.77 KB	-rwxr-xr-x	2018-04-02 18:07
checkstack.pl	5.38 KB	-rwxr-xr-x	2016-01-11 00:01
checksyscalls.sh	5.62 KB	-rwxr-xr-x	2016-01-11 00:01
checkversion.pl	1.86 KB	-rwxr-xr-x	2016-01-11 00:01
cleanfile	3.41 KB	-rwxr-xr-x	2016-01-11 00:01
cleanpatch	5.01 KB	-rwxr-xr-x	2016-01-11 00:01
coccicheck	4.66 KB	-rwxr-xr-x	2016-01-11 00:01
config	4.49 KB	-rwxr-xr-x	2016-01-11 00:01
conmakehash.c	5.98 KB	-rw-r--r--	2016-01-11 00:01
decode_stacktrace.sh	3.09 KB	-rwxr-xr-x	2016-01-11 00:01
decodecode	2.15 KB	-rwxr-xr-x	2016-01-11 00:01
depmod.sh	1.67 KB	-rwxr-xr-x	2016-01-11 00:01
diffconfig	3.68 KB	-rwxr-xr-x	2016-01-11 00:01
docproc.c	13.8 KB	-rw-r--r--	2016-01-11 00:01
export_report.pl	4.53 KB	-rwxr-xr-x	2016-01-11 00:01
extract-cert.c	3.46 KB	-rw-r--r--	2016-01-11 00:01
extract-ikconfig	1.69 KB	-rwxr-xr-x	2016-01-11 00:01
extract-module-sig.pl	3.61 KB	-rwxr-xr-x	2016-01-11 00:01
extract-sys-certs.pl	3.7 KB	-rwxr-xr-x	2018-04-02 18:07
extract-vmlinux	1.6 KB	-rwxr-xr-x	2016-01-11 00:01
gcc-goto.sh	495 B	-rwxr-xr-x	2016-01-11 00:01
gcc-ld	676 B	-rwxr-xr-x	2016-01-11 00:01
gcc-version.sh	822 B	-rwxr-xr-x	2016-01-11 00:01
gcc-x86_32-has-stack-protector.sh	184 B	-rwxr-xr-x	2016-01-11 00:01
gcc-x86_64-has-stack-protector.sh	209 B	-rwxr-xr-x	2018-04-02 18:07
gen_initramfs_list.sh	7.87 KB	-rwxr-xr-x	2016-01-11 00:01
get_maintainer.pl	58.29 KB	-rwxr-xr-x	2016-01-11 00:01
gfp-translate	1.71 KB	-rwxr-xr-x	2016-01-11 00:01
headerdep.pl	3.46 KB	-rwxr-xr-x	2016-01-11 00:01
headers.sh	477 B	-rwxr-xr-x	2016-01-11 00:01
headers_check.pl	3.6 KB	-rwxr-xr-x	2016-01-11 00:01
headers_install.sh	1.28 KB	-rwxr-xr-x	2016-01-11 00:01
insert-sys-cert.c	13.08 KB	-rw-r--r--	2018-04-02 18:07
kallsyms.c	16.68 KB	-rw-r--r--	2016-01-11 00:01
kernel-doc	76.05 KB	-rwxr-xr-x	2016-01-11 00:01
kernel-doc-xml-ref	4.22 KB	-rwxr-xr-x	2016-01-11 00:01
ld-version.sh	207 B	-rwxr-xr-x	2018-04-02 18:07
link-vmlinux.sh	5.84 KB	-rwxr-xr-x	2018-04-02 18:07
makelst	773 B	-rwxr-xr-x	2016-01-11 00:01
markup_oops.pl	8.08 KB	-rwxr-xr-x	2016-01-11 00:01
mkcompile_h	2.46 KB	-rwxr-xr-x	2016-01-11 00:01
mkmakefile	1.16 KB	-rwxr-xr-x	2016-01-11 00:01
mksysmap	1.33 KB	-rwxr-xr-x	2016-01-11 00:01
mkuboot.sh	379 B	-rwxr-xr-x	2016-01-11 00:01
mkversion	74 B	-rw-r--r--	2016-01-11 00:01
module-common.lds	888 B	-rw-r--r--	2018-04-02 18:07
namespace.pl	13 KB	-rwxr-xr-x	2016-01-11 00:01
objdiff	2.69 KB	-rwxr-xr-x	2016-01-11 00:01
patch-kernel	9.91 KB	-rwxr-xr-x	2016-01-11 00:01
pnmtologo.c	11.91 KB	-rw-r--r--	2016-01-11 00:01
profile2linkerlist.pl	375 B	-rwxr-xr-x	2016-01-11 00:01
recordmcount.c	15.02 KB	-rw-r--r--	2018-04-02 18:07
recordmcount.h	16.38 KB	-rw-r--r--	2016-01-11 00:01
recordmcount.pl	17.9 KB	-rwxr-xr-x	2018-04-02 18:07
setlocalversion	3.88 KB	-rwxr-xr-x	2016-01-11 00:01
show_delta	2.99 KB	-rwxr-xr-x	2016-01-11 00:01
sign-file.c	8.14 KB	-rwxr-xr-x	2016-01-11 00:01
sortextable.c	7.65 KB	-rw-r--r--	2016-01-11 00:01
sortextable.h	5.48 KB	-rw-r--r--	2016-01-11 00:01
spelling.txt	21.33 KB	-rw-r--r--	2016-01-11 00:01
stackdelta	1.8 KB	-rwxr-xr-x	2016-01-11 00:01
stackusage	759 B	-rwxr-xr-x	2016-01-11 00:01
tags.sh	10.56 KB	-rwxr-xr-x	2016-01-11 00:01
unifdef.c	34.8 KB	-rw-r--r--	2016-01-11 00:01
ver_linux	3.89 KB	-rwxr-xr-x	2016-01-11 00:01
xen-hypercalls.sh	351 B	-rw-r--r--	2016-01-11 00:01
xz_wrap.sh	562 B	-rwxr-xr-x	2016-01-11 00:01

Rename

#!/usr/bin/perl -w
#
use strict;
use Math::BigInt;
use Fcntl "SEEK_SET";

die "Format: $0 [-s <systemmap-file>] <vmlinux-file> <keyring-file>\n"
    if ($#ARGV != 1 && $#ARGV != 3 ||
	$#ARGV == 3 && $ARGV[0] ne "-s");

my $sysmap = "";
if ($#ARGV == 3) {
    shift;
    $sysmap = $ARGV[0];
    shift;
}

my $vmlinux = $ARGV[0];
my $keyring = $ARGV[1];

#
# Parse the vmlinux section table
#
open FD, "objdump -h $vmlinux |" || die $vmlinux;
my @lines = <FD>;
close(FD) || die $vmlinux;

my @sections = ();

foreach my $line (@lines) {
    chomp($line);
    if ($line =~ /\s*([0-9]+)\s+(\S+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+2[*][*]([0-9]+)/
	) {
	my $seg  = $1;
	my $name = $2;
	my $len  = Math::BigInt->new("0x" . $3);
	my $vma  = Math::BigInt->new("0x" . $4);
	my $lma  = Math::BigInt->new("0x" . $5);
	my $foff = Math::BigInt->new("0x" . $6);
	my $align = 2 ** $7;

push @sections, { name => $name,
			  vma => $vma,
			  len => $len,
			  foff => $foff };
    }
}

print "Have $#sections sections\n";

#
# Try and parse the vmlinux symbol table.  If the vmlinux file has been created
# from a vmlinuz file with extract-vmlinux then the symbol table will be empty.
#
open FD, "nm $vmlinux 2>/dev/null |" || die $vmlinux;
@lines = <FD>;
close(FD) || die $vmlinux;

my %symbols = ();
my $nr_symbols = 0;

sub parse_symbols(@) {
    foreach my $line (@_) {
	chomp($line);
	if ($line =~ /([0-9a-f]+)\s([a-zA-Z])\s(\S+)/
	    ) {
	    my $addr = "0x" . $1;
	    my $type = $2;
	    my $name = $3;

$symbols{$name} = $addr;
	    $nr_symbols++;
	}
    }
}
parse_symbols(@lines);

if ($nr_symbols == 0 && $sysmap ne "") {
    print "No symbols in vmlinux, trying $sysmap\n";

open FD, "<$sysmap" || die $sysmap;
    @lines = <FD>;
    close(FD) || die $sysmap;
    parse_symbols(@lines);
}

die "No symbols available\n"
    if ($nr_symbols == 0);

print "Have $nr_symbols symbols\n";

die "Can't find system certificate list"
    unless (exists($symbols{"__cert_list_start"}) &&
	    exists($symbols{"system_certificate_list_size"}));

my $start = Math::BigInt->new($symbols{"__cert_list_start"});
my $end;
my $size;
my $size_sym = Math::BigInt->new($symbols{"system_certificate_list_size"});

open FD, "<$vmlinux" || die $vmlinux;
binmode(FD);

my $s = undef;
foreach my $sec (@sections) {
    my $s_name = $sec->{name};
    my $s_vma = $sec->{vma};
    my $s_len = $sec->{len};
    my $s_foff = $sec->{foff};
    my $s_vend = $s_vma + $s_len;

next unless ($start >= $s_vma);
    next if ($start >= $s_vend);

die "Certificate list size was not found on the same section\n"
	if ($size_sym < $s_vma || $size_sym > $s_vend);

die "Cert object in multiple sections: ", $s_name, " and ", $s->{name}, "\n"
	if ($s);

my $size_off = $size_sym -$s_vma + $s_foff;
    my $packed;
    die $vmlinux if (!defined(sysseek(FD, $size_off, SEEK_SET)));
    sysread(FD, $packed, 8);
    $size = unpack 'L!', $packed;
    $end = $start + $size;

printf "Have %u bytes of certs at VMA 0x%x\n", $size, $start;

die "Cert object partially overflows section $s_name\n"
	if ($end > $s_vend);

$s = $sec;
}

die "Cert object not inside a section\n"
    unless ($s);

print "Certificate list in section ", $s->{name}, "\n";

my $foff = $start - $s->{vma} + $s->{foff};

printf "Certificate list at file offset 0x%x\n", $foff;

die $vmlinux if (!defined(sysseek(FD, $foff, SEEK_SET)));
my $buf = "";
my $len = sysread(FD, $buf, $size);
die "$vmlinux" if (!defined($len));
die "Short read on $vmlinux\n" if ($len != $size);
close(FD) || die $vmlinux;

open FD, ">$keyring" || die $keyring;
binmode(FD);
$len = syswrite(FD, $buf, $size);
die "$keyring" if (!defined($len));
die "Short write on $keyring\n" if ($len != $size);
close(FD) || die $keyring;