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             print SSHFP_JS qq|  SSHFP("${host}", ${algorithm}, ${type}, "${value}");\n|;
  22         }
  23         else
  24         {
  25             warn $line;
  26         }
  27     }
  28
  29     close(SSHFP);
  30 }
  31
  32 print SSHFP_JS qq|];\n|;
  33
  34 close(SSHFP_JS);
  35
  36 exit 0;