[packages/djbdns.git] / add-sshfp.pl

#!/usr/bin/perl
# Snippet from
# http://dank.qemfd.net/dankwiki/index.php/SSHFP
# By Henning Brauer

use strict;

open IN, "ssh-keygen -f /etc/ssh/ssh_host_rsa_key.pub -r $ARGV[0] |";
my $FP = <IN>;
close IN;
chop $FP;
my ($host, $in, $sshfp, $alg, $fptype, $fp) = split " ", $FP;
my $out = sprintf("\\%03o\\%03o", $alg, $fptype);
for (my $i = 0; $i < length($fp); $i += 2) {
	$out .= sprintf("\\%03o", hex substr($fp, $i, 2));
}
printf(":%s:44:%s:\n", $host, $out);
Commit	Line	Data
04b620fd	1	#!/usr/bin/perl
78e3f8b0 ER	2	# Snippet from
	3	# http://dank.qemfd.net/dankwiki/index.php/SSHFP
	4	# By Henning Brauer
04b620fd ER	5
	6	use strict;
	7
	8	open IN, "ssh-keygen -f /etc/ssh/ssh_host_rsa_key.pub -r $ARGV[0] \|";
	9	my $FP = <IN>;
	10	close IN;
	11	chop $FP;
	12	my ($host, $in, $sshfp, $alg, $fptype, $fp) = split " ", $FP;
	13	my $out = sprintf("\\%03o\\%03o", $alg, $fptype);
	14	for (my $i = 0; $i < length($fp); $i += 2) {
	15	$out .= sprintf("\\%03o", hex substr($fp, $i, 2));
	16	}
	17	printf(":%s:44:%s:\n", $host, $out);