blob: e91c4abe78ec8c3db7bd7420d1cbe6da996836b3 (
plain) (
blame)
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
45
46
|
:
# $Id$
eval 'exec perl -w -S $0 ${1+"$@"}'
if 0;
use MIME::Base64;
sub g {
my $x = shift;
$x =~ s{:}{}g;
$x = pack("H*", $x);
$x = encode_base64($x, "");
$x =~ y{+/}{-_};
$x =~ s{=+$}{};
return $x;
}
while (@ARGV) {
my ($file, $aki, $ski, $a, $s) = shift(@ARGV);
if ($file =~ /\.cer$/) {
open(F, "-|", qw(openssl x509 -noout -inform DER -text -in), $file)
or die("Couldn't run openssl x509 on $file: $!\n");
} elsif ($file =~ /\.crl$/) {
open(F, "-|", qw(openssl crl -noout -inform DER -text -in), $file)
or die("Couldn't run openssl x509 on $file: $!\n");
} else {
next;
}
while (<F>) {
chomp;
s/^\s*//;
s/^keyid://;
$a = $. + 1
if (/X509v3 Authority Key Identifier:/);
$s = $. + 1
if (/X509v3 Subject Key Identifier:/);
$aki = $_
if ($a && $. == $a);
$ski = $_
if ($s && $. == $s);
}
close(F);
my $gaki = $aki ? g($aki) : "=" x 27;
my $gski = $ski ? g($ski) : "=" x 27;
print("$gaki $gski $file\n");
}
|
