Commit | Line | Data |
---|---|---|
c47f2aba MW |
1 | ### -*-sh-*- |
2 | ### | |
3 | ### Key type for GNU Privacy Guard | |
4 | ### | |
5 | ### (c) 2011 Mark Wooding | |
6 | ### | |
7 | ||
8 | ###----- Licensing notice --------------------------------------------------- | |
9 | ### | |
10 | ### This file is part of the distorted.org.uk key management suite. | |
11 | ### | |
12 | ### distorted-keys is free software; you can redistribute it and/or modify | |
13 | ### it under the terms of the GNU General Public License as published by | |
14 | ### the Free Software Foundation; either version 2 of the License, or | |
15 | ### (at your option) any later version. | |
16 | ### | |
17 | ### distorted-keys is distributed in the hope that it will be useful, | |
18 | ### but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 | ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 | ### GNU General Public License for more details. | |
21 | ### | |
22 | ### You should have received a copy of the GNU General Public License | |
23 | ### along with distorted-keys; if not, write to the Free Software Foundation, | |
24 | ### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
25 | ||
26 | run_gnupg () { | |
27 | base=$1; shift | |
28 | ## Run GnuPG with some standard options. | |
29 | ||
30 | gpg --homedir="$base" --no-permission-warning -q --batch \ | |
31 | --always-trust \ | |
32 | "$@" | |
33 | } | |
34 | ||
35 | defprops k_props <<EOF | |
36 | main_type t $R_WORD | |
37 | main_length t $R_NUMERIC | |
38 | sub_type t $R_WORD | |
39 | sub_length t $R_NUMERIC | |
40 | s2k_cipher t $R_WORD | |
41 | s2k_digest t $R_WORD | |
42 | cipher_prefs t $R_WORDSEQ | |
43 | digest_prefs t $R_WORDSEQ | |
44 | compress_prefs t $R_WORDSEQ | |
45 | realname t $R_LINE | |
46 | comment t $R_LINE | |
47 | email t $R_LINE | |
48 | EOF | |
49 | ||
50 | : ${kprop_main_type=RSA} ${kprop_main_length=3072} | |
51 | : ${kprop_sub_type=ELG-E} ${kprop_sub_length=3072} | |
52 | : ${kprop_cipher_prefs=AES256 AES TWOFISH 3DES BLOWFISH CAST5} | |
53 | : ${kprop_digest_prefs=SHA256 SHA1 RIPEMD160} | |
54 | : ${kprop_compress_prefs=ZLIB ZIP} | |
55 | ||
56 | : ${kprop_realname=%{realname\}} ${kprop_email=%{email\}} | |
57 | : ${kprop_comment=%{comment-nil\}} | |
58 | ||
fff6c653 MW |
59 | initdir () { |
60 | base=$1 | |
c47f2aba | 61 | |
c47f2aba MW |
62 | prefs="$kprop_cipher_prefs $kprop_digest_prefs $kprop_compress_prefs" |
63 | ||
64 | case ${kprop_s2k_cipher+t} in | |
65 | t) ;; | |
66 | *) set -- $kprop_cipher_prefs; kprop_s2k_cipher=$1 ;; | |
67 | esac | |
68 | case ${kprop_s2k_digest+t} in | |
69 | t) ;; | |
70 | *) set -- $kprop_digest_prefs; kprop_s2k_digest=$1 ;; | |
71 | esac | |
72 | ||
73 | cat >"$base/gpg.conf" <<EOF | |
74 | ### GnuPG configuration | |
75 | ||
76 | ## Annoying copyright notice and other tedious warnings. | |
77 | no-greeting | |
78 | expert | |
79 | always-trust | |
80 | ||
81 | ## Algorithm selection | |
82 | s2k-cipher-algo $kprop_s2k_cipher | |
83 | s2k-digest-algo $kprop_s2k_digest | |
84 | personal-cipher-preferences $kprop_cipher_prefs | |
85 | personal-digest-preferences $kprop_digest_prefs | |
86 | personal-compress-preferences $kprop_compress_prefs | |
87 | default-preference-list $prefs | |
88 | EOF | |
fff6c653 MW |
89 | } |
90 | ||
91 | k_generate () { | |
92 | base=$1 nub=$2 | |
93 | ||
fff6c653 | 94 | initdir "$base" |
c47f2aba MW |
95 | |
96 | { cat <<EOF | |
97 | Key-Type: $kprop_main_type | |
98 | Key-Length: $kprop_main_length | |
99 | Passphrase: $(cat "$nub") | |
100 | EOF | |
101 | case ${kprop_sub_type-nil} in | |
102 | nil) ;; | |
103 | *) cat <<EOF | |
104 | Subkey-Type: $kprop_sub_type | |
105 | Subkey-Length: $kprop_sub_length | |
106 | EOF | |
107 | esac | |
108 | real=$(subst "\`realname' value" "$kprop_realname" kopt_ "$R_LINE") | |
109 | email=$(subst "\`email' value" "$kprop_email" kopt_ "$R_LINE") | |
110 | cat <<EOF | |
111 | Name-Real: $real | |
112 | Name-Email: $email | |
113 | EOF | |
114 | comment=$(subst "\`comment' value" "$kprop_comment" kopt_ "$R_LINE") | |
115 | case "$comment" in | |
116 | ?*) cat <<EOF | |
117 | Name-Comment: $comment | |
118 | EOF | |
119 | ;; | |
120 | esac | |
121 | } | run_gnupg "$base" --gen-key | |
122 | ||
123 | ## Commit the new key. | |
124 | run_gnupg "$base" --fingerprint --with-colons | \ | |
125 | grep '^fpr:' | cut -d: -f10 >"$base/fpr" | |
126 | run_gnupg "$base" --export --armor --output="$base/pub" | |
127 | } | |
128 | ||
fff6c653 MW |
129 | k_import () { |
130 | base=$1 | |
131 | ||
132 | initdir "$base" | |
133 | run_gnupg "$base" --import "$base/pub" | |
134 | run_gnupg "$base" --fingerprint --with-colons | \ | |
135 | grep '^fpr:' | cut -d: -f10 >"$base/fpr" | |
136 | } | |
137 | ||
c47f2aba MW |
138 | k_encrypt () { |
139 | base=$1 | |
140 | run_gnupg "$base" --encrypt --armor --recipient=$(cat "$base/fpr") | |
141 | } | |
142 | ||
143 | k_decrypt () { | |
144 | base=$1 nub=$2 | |
145 | run_gnupg "$base" --passphrase-file "$nub" --decrypt | |
146 | } | |
147 | ||
148 | k_sign () { | |
149 | base=$1 nub=$2 | |
150 | run_gnupg "$base" --passphrase-file "$nub" --detach-sign --armor | |
151 | } | |
152 | ||
153 | k_verify () { | |
154 | base=$1 sig=$3 | |
155 | echo "$sig" >$tmp/sig | |
156 | if run_gnupg "$base" --verify $tmp/sig - >/dev/null 2>$tmp/err | |
157 | then :; else | |
158 | rc=$? | |
159 | cat >&2 $tmp/err | |
160 | return $rc | |
161 | fi | |
162 | } | |
163 | ||
164 | ###----- That's all, folks -------------------------------------------------- |