florian/tlsa
1
0
Fork 0
Code Releases Activity

move it to function

Browse Source
This commit is contained in:
Florian Obser 2017-04-23 09:25:17 +02:00
parent 7d4715c9f5
commit 6ea7b77093
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
gen_tlsa.pl
View File

@ -18,24 +18,29 @@ sub usage {
usage() if (scalar(@ARGV) != 2);
my $state = WAIT_BEGIN;
my $pem = '';
gen_tlsa(@ARGV);
open(my $fh, '<', $ARGV[1]);
while(my $line = <$fh>) {
if ($state == WAIT_BEGIN) {
if ($line=~/^-----BEGIN CERTIFICATE-----/) {
$state = WAIT_END;
}
} elsif ($state == WAIT_END) {
if ($line=~/^-----END CERTIFICATE-----/) {
last;
} else {
$pem.=$line;
sub gen_tlsa {
my ($label, $cert_file) = @_;
my $state = WAIT_BEGIN;
my $pem = '';
my ($fh, $line);
open($fh, '<', $cert_file);
while($line = <$fh>) {
if ($state == WAIT_BEGIN) {
if ($line=~/^-----BEGIN CERTIFICATE-----/) {
$state = WAIT_END;
}
} elsif ($state == WAIT_END) {
if ($line=~/^-----END CERTIFICATE-----/) {
last;
} else {
$pem.=$line;
}
}
}
close($fh);
say($label, ' IN TLSA 1 0 1 ',
Digest::SHA::sha256_hex(decode_base64($pem)));
}
close($fh);
say $ARGV[0], ' IN TLSA 1 0 1 ', Digest::SHA::sha256_hex(decode_base64($pem));
#say $pem;