3 # Monkeysphere host gen-key subcommand
5 # The monkeysphere scripts are written by:
6 # Jameson Rollins <jrollins@fifthhorseman.net>
7 # Jamie McClelland <jm@mayfirst.org>
8 # Daniel Kahn Gillmor <dkg@fifthhorseman.net>
10 # They are Copyright 2008, and are all released under the GPL, version 3
14 local keyLength="2048"
18 local hostName=$(hostname -f)
23 # check for presense of secret key
24 # FIXME: is this the proper test to be doing here?
25 fingerprint_server_key >/dev/null \
26 && failure "An OpenPGP host key already exists."
48 if [ "$(echo "$1" | cut -c 1)" = '-' ] ; then
49 failure "Unknown option '$1'.
50 Type '$PGRM help' for usage."
57 userID="ssh://${hostName}"
59 # prompt about key expiration if not specified
60 keyExpire=$(get_gpg_expiration "$keyExpire")
65 Key-Length: $keyLength
68 Expire-Date: $keyExpire"
70 # add the revoker field if specified
71 # FIXME: the "1:" below assumes that $REVOKER's key is an RSA key.
72 # FIXME: key is marked "sensitive"? is this appropriate?
73 if [ "$revoker" ] ; then
76 Revoker: 1:${revoker} sensitive"
79 echo "The following key parameters will be used for the host private key:"
82 read -p "Generate key? (Y/n) " OK; OK=${OK:=Y}
83 if [ ${OK/y/Y} != 'Y' ] ; then
88 # must include blank line!
95 log verbose "generating host key..."
96 echo "$keyParameters" | gpg_host --batch --gen-key
98 # find the key fingerprint of the newly generated key
99 fingerprint=$(fingerprint_server_key)
101 # export host ownertrust to authentication keyring
102 log verbose "setting ultimate owner trust for host key..."
103 echo "${fingerprint}:6:" | gpg_authentication "--import-ownertrust"
105 # translate the private key to ssh format, and export to a file
107 # NOTE: assumes that the primary key is the proper key to use
109 gpg_host --export-secret-key "$fingerprint" | \
110 openpgp2ssh "$fingerprint" > "${SYSDATADIR}/ssh_host_rsa_key")
111 log info "SSH host private key output to file: ${SYSDATADIR}/ssh_host_rsa_key"
112 ssh-keygen -y -f "${SYSDATADIR}/ssh_host_rsa_key" > "${SYSDATADIR}/ssh_host_rsa_key.pub"
113 log info "SSH host public key output to file: ${SYSDATADIR}/ssh_host_rsa_key.pub"
114 gpg_authentication "--export-options export-minimal --armor --export 0x${fingerprint}\!" > "${SYSDATADIR}/ssh_host_rsa_key.pub.gpg"
115 log info "SSH host public key in OpenPGP form: ${SYSDATADIR}/ssh_host_rsa_key.pub.gpg"
117 # show info about new key