add-sshfp.pl

   1 #!/usr/bin/perl
   2 # Snippet from
   3 # http://dank.qemfd.net/dankwiki/index.php/SSHFP
   4 # By Henning Brauer
   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);