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

21
gen_tlsa.pl
View File

@ -18,11 +18,16 @@ sub usage {
usage() if (scalar(@ARGV) != 2); usage() if (scalar(@ARGV) != 2);
my $state = WAIT_BEGIN; gen_tlsa(@ARGV);
my $pem = '';
open(my $fh, '<', $ARGV[1]); sub gen_tlsa {
while(my $line = <$fh>) { 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 ($state == WAIT_BEGIN) {
if ($line=~/^-----BEGIN CERTIFICATE-----/) { if ($line=~/^-----BEGIN CERTIFICATE-----/) {
$state = WAIT_END; $state = WAIT_END;
@ -34,8 +39,8 @@ while(my $line = <$fh>) {
$pem.=$line; $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;