#!/usr/bin/perl -w
use strict;
use Hub;
use Digest::SHA1;

my $pw = @ARGV ? $ARGV[0] : getpw();
print Digest::SHA1::sha1_hex($pw);

sub getpw {
  my $r;
  print "Password: ";
  $r = <STDIN>;
  chomp $r;
  return $r;
}

sub usage {
print <<__end_print;
Print an encrypted form of the password.
usage: $0
       $0 password
__end_print
}
