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

Name	Size	Permission	Date
basic	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
coccinelle	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
dtc	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
gdb	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
genksyms	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
kconfig	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
ksymoops	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
mod	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
package	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
selinux	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
tracing	[ DIR ]	drwxr-xr-x	2021-04-21 07:33
.gitignore	154 B	-rw-r--r--	2016-01-11 00:01
Kbuild.include	13.37 KB	-rw-r--r--	2021-04-16 11:57
Lindent	496 B	-rwxr-xr-x	2016-01-11 00:01
Makefile	2.03 KB	-rw-r--r--	2021-04-16 11:57
Makefile.asm-generic	683 B	-rw-r--r--	2016-01-11 00:01
Makefile.build	17.16 KB	-rw-r--r--	2021-04-16 11:57
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.54 KB	-rw-r--r--	2021-04-16 11:57
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	976 B	-rw-r--r--	2021-04-16 11:57
Makefile.lib	14.9 KB	-rw-r--r--	2021-04-16 11:57
Makefile.modbuiltin	1.78 KB	-rw-r--r--	2016-01-11 00:01
Makefile.modinst	1.43 KB	-rw-r--r--	2021-04-16 11:57
Makefile.modpost	5.25 KB	-rw-r--r--	2021-04-16 11:57
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	2021-04-16 11:57
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	2021-04-16 11:57
checkstack.pl	5.39 KB	-rwxr-xr-x	2021-04-16 11:57
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.6 KB	-rwxr-xr-x	2021-04-16 11:57
conmakehash.c	5.98 KB	-rw-r--r--	2016-01-11 00:01
decode_stacktrace.sh	3.15 KB	-rwxr-xr-x	2021-04-16 11:57
decodecode	2.15 KB	-rwxr-xr-x	2021-04-16 11:57
depmod.sh	1.9 KB	-rwxr-xr-x	2021-04-16 11:57
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	2021-04-16 11:57
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	2021-04-16 11:57
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--	2021-04-16 11:57
kallsyms.c	16.8 KB	-rw-r--r--	2021-04-16 11:57
kernel-doc	76.08 KB	-rwxr-xr-x	2021-04-16 11:57
kernel-doc-xml-ref	4.22 KB	-rwxr-xr-x	2016-01-11 00:01
ld-version.sh	207 B	-rwxr-xr-x	2021-04-16 11:57
link-vmlinux.sh	5.84 KB	-rwxr-xr-x	2021-04-16 11:57
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	2021-04-16 11:57
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--	2021-04-16 11:57
namespace.pl	13.13 KB	-rwxr-xr-x	2021-04-16 11:57
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.31 KB	-rw-r--r--	2021-04-16 11:57
recordmcount.h	16.4 KB	-rw-r--r--	2021-04-16 11:57
recordmcount.pl	18.3 KB	-rwxr-xr-x	2021-04-16 11:57
setlocalversion	4.69 KB	-rwxr-xr-x	2021-04-16 11:57
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.58 KB	-rwxr-xr-x	2021-04-16 11:57
ubuntu-retpoline-extract-one	7.26 KB	-rw-r--r--	2021-04-16 11:57
unifdef.c	34.8 KB	-rw-r--r--	2021-04-16 11:57
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
#
# extract-mod-sig <part> <module-file>
#
# Reads the module file and writes out some or all of the signature
# section to stdout.  Part is the bit to be written and is one of:
#
#  -0: The unsigned module, no signature data at all
#  -a: All of the signature data, including magic number
#  -d: Just the descriptor values as a sequence of numbers
#  -n: Just the signer's name
#  -k: Just the key ID
#  -s: Just the crypto signature or PKCS#7 message
#
use strict;

die "Format: $0 -[0adnks] module-file >out\n"
    if ($#ARGV != 1);

my $part = $ARGV[0];
my $modfile = $ARGV[1];

my $magic_number = "~Module signature appended~\n";

#
# Read the module contents
#
open FD, "<$modfile" || die $modfile;
binmode(FD);
my @st = stat(FD);
die "$modfile" unless (@st);
my $buf = "";
my $len = sysread(FD, $buf, $st[7]);
die "$modfile" unless (defined($len));
die "Short read on $modfile\n" unless ($len == $st[7]);
close(FD) || die $modfile;

print STDERR "Read ", $len, " bytes from module file\n";

die "The file is too short to have a sig magic number and descriptor\n"
    if ($len < 12 + length($magic_number));

#
# Check for the magic number and extract the information block
#
my $p = $len - length($magic_number);
my $raw_magic = substr($buf, $p);

die "Magic number not found at $len\n"
    if ($raw_magic ne $magic_number);
print STDERR "Found magic number at $len\n";

$p -= 12;
my $raw_info = substr($buf, $p, 12);

my @info = unpack("CCCCCxxxN", $raw_info);
my ($algo, $hash, $id_type, $name_len, $kid_len, $sig_len) = @info;

if ($id_type == 0) {
    print STDERR "Found PGP key identifier\n";
} elsif ($id_type == 1) {
    print STDERR "Found X.509 cert identifier\n";
} elsif ($id_type == 2) {
    print STDERR "Found PKCS#7/CMS encapsulation\n";
} else {
    print STDERR "Found unsupported identifier type $id_type\n";
}

#
# Extract the three pieces of info data
#
die "Insufficient name+kid+sig data in file\n"
    unless ($p >= $name_len + $kid_len + $sig_len);

$p -= $sig_len;
my $raw_sig = substr($buf, $p, $sig_len);
$p -= $kid_len;
my $raw_kid = substr($buf, $p, $kid_len);
$p -= $name_len;
my $raw_name = substr($buf, $p, $name_len);

my $module_len = $p;

if ($sig_len > 0) {
    print STDERR "Found $sig_len bytes of signature [";
    my $n = $sig_len > 16 ? 16 : $sig_len;
    foreach my $i (unpack("C" x $n, substr($raw_sig, 0, $n))) {
	printf STDERR "%02x", $i;
    }
    print STDERR "]\n";
}

if ($kid_len > 0) {
    print STDERR "Found $kid_len bytes of key identifier [";
    my $n = $kid_len > 16 ? 16 : $kid_len;
    foreach my $i (unpack("C" x $n, substr($raw_kid, 0, $n))) {
	printf STDERR "%02x", $i;
    }
    print STDERR "]\n";
}

if ($name_len > 0) {
    print STDERR "Found $name_len bytes of signer's name [$raw_name]\n";
}

#
# Produce the requested output
#
if ($part eq "-0") {
    # The unsigned module, no signature data at all
    binmode(STDOUT);
    print substr($buf, 0, $module_len);
} elsif ($part eq "-a") {
    # All of the signature data, including magic number
    binmode(STDOUT);
    print substr($buf, $module_len);
} elsif ($part eq "-d") {
    # Just the descriptor values as a sequence of numbers
    print join(" ", @info), "\n";
} elsif ($part eq "-n") {
    # Just the signer's name
    print STDERR "No signer's name for PKCS#7 message type sig\n"
	if ($id_type == 2);
    binmode(STDOUT);
    print $raw_name;
} elsif ($part eq "-k") {
    # Just the key identifier
    print STDERR "No key ID for PKCS#7 message type sig\n"
	if ($id_type == 2);
    binmode(STDOUT);
    print $raw_kid;
} elsif ($part eq "-s") {
    # Just the crypto signature or PKCS#7 message
    binmode(STDOUT);
    print $raw_sig;
}