bin/mksshfp

   1 #!/usr/bin/perl
   2
   3
   4 open(SSHFP_JS, ">", "include/sshfp.js") || die $!;
   5
   6 print SSHFP_JS qq|var SSHFP_RECORDS = [\n|;
   7
   8 if (-f "/etc/ssh/ssh_known_hosts")
   9 {
  10     open(SSHFP, "-|","sshfp", "-k", "/etc/ssh/ssh_known_hosts") || die $!;
  11
  12     while (my $line = <SSHFP>)
  13     {
  14         if ($line =~ /^(\S+) IN SSHFP (\d+) (\d+) ([0-9A-F]+)$/)
  15         {
  16             my $host = $1;
  17             my $algorithm = $2;
  18             my $type = $3;
  19             my $value = $4;
  20
  21             if ($type == 2 && $algorithm == 1)
  22             {
  23                 print SSHFP_JS qq|  SSHFP("${host}", ${algorithm}, ${type}, "${value}"),\n|;
  24             }
  25         }
  26         else
  27         {
  28             warn $line;
  29         }
  30     }
  31
  32     close(SSHFP);
  33 }
  34
  35 print SSHFP_JS qq|];\n|;
  36
  37 close(SSHFP_JS);
  38
  39 exit 0;