extract-module-sig.pl (e5451c8f8330e03ad3cfa16048b4daf961af434f) extract-module-sig.pl (cb77f0d623ff33a7899cb945f4f5a4825fbb2ea1)
1#!/usr/bin/perl -w
1#!/usr/bin/env perl
2#
3# extract-mod-sig <part> <module-file>
4#
5# Reads the module file and writes out some or all of the signature
6# section to stdout. Part is the bit to be written and is one of:
7#
8# -0: The unsigned module, no signature data at all
9# -a: All of the signature data, including magic number
10# -d: Just the descriptor values as a sequence of numbers
11# -n: Just the signer's name
12# -k: Just the key ID
13# -s: Just the crypto signature or PKCS#7 message
14#
2#
3# extract-mod-sig <part> <module-file>
4#
5# Reads the module file and writes out some or all of the signature
6# section to stdout. Part is the bit to be written and is one of:
7#
8# -0: The unsigned module, no signature data at all
9# -a: All of the signature data, including magic number
10# -d: Just the descriptor values as a sequence of numbers
11# -n: Just the signer's name
12# -k: Just the key ID
13# -s: Just the crypto signature or PKCS#7 message
14#
15use warnings;
15use strict;
16
17die "Format: $0 -[0adnks] module-file >out\n"
18 if ($#ARGV != 1);
19
20my $part = $ARGV[0];
21my $modfile = $ARGV[1];
22

--- 114 unchanged lines hidden ---
16use strict;
17
18die "Format: $0 -[0adnks] module-file >out\n"
19 if ($#ARGV != 1);
20
21my $part = $ARGV[0];
22my $modfile = $ARGV[1];
23

--- 114 unchanged lines hidden ---