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 --- |