Artifact
291104e0159aaab97049767f1674b98664414993:
- File
net2o-keys.fs
— part of check-in
[27c9c6e26b]
at
2015-05-24 01:23:38
on branch trunk
— Fix memory overwrite bug
(user:
bernd
size: 18519)
0000: 5c 20 6e 65 74 32 6f 20 6b 65 79 20 73 74 6f 72 \ net2o key stor
0010: 61 67 65 0a 0a 5c 20 43 6f 70 79 72 69 67 68 74 age..\ Copyright
0020: 20 28 43 29 20 32 30 31 30 2d 32 30 31 35 20 20 (C) 2010-2015
0030: 20 42 65 72 6e 64 20 50 61 79 73 61 6e 0a 0a 5c Bernd Paysan..\
0040: 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 This program is
0050: 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3a 20 free software:
0060: 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 you can redistri
0070: 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d bute it and/or m
0080: 6f 64 69 66 79 0a 5c 20 69 74 20 75 6e 64 65 72 odify.\ it under
0090: 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 the terms of th
00a0: 65 20 47 4e 55 20 41 66 66 65 72 6f 20 47 65 6e e GNU Affero Gen
00b0: 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 eral Public Lice
00c0: 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 nse as published
00d0: 20 62 79 0a 5c 20 74 68 65 20 46 72 65 65 20 53 by.\ the Free S
00e0: 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 oftware Foundati
00f0: 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 on, either versi
0100: 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 on 3 of the Lice
0110: 6e 73 65 2c 20 6f 72 0a 5c 20 28 61 74 20 79 6f nse, or.\ (at yo
0120: 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c ur option) any l
0130: 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 5c ater version...\
0140: 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 This program is
0150: 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 distributed in
0160: 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 the hope that it
0170: 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c will be useful,
0180: 0a 5c 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 .\ but WITHOUT A
0190: 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 NY WARRANTY; wit
01a0: 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d hout even the im
01b0: 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f plied warranty o
01c0: 66 0a 5c 20 4d 45 52 43 48 41 4e 54 41 42 49 4c f.\ MERCHANTABIL
01d0: 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 ITY or FITNESS F
01e0: 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 OR A PARTICULAR
01f0: 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 PURPOSE. See th
0200: 65 0a 5c 20 47 4e 55 20 41 66 66 65 72 6f 20 47 e.\ GNU Affero G
0210: 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 eneral Public Li
0220: 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 cense for more d
0230: 65 74 61 69 6c 73 2e 0a 0a 5c 20 59 6f 75 20 73 etails...\ You s
0240: 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 hould have recei
0250: 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 ved a copy of th
0260: 65 20 47 4e 55 20 41 66 66 65 72 6f 20 47 65 6e e GNU Affero Gen
0270: 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 eral Public Lice
0280: 6e 73 65 0a 5c 20 61 6c 6f 6e 67 20 77 69 74 68 nse.\ along with
0290: 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 this program.
02a0: 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 If not, see <htt
02b0: 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f p://www.gnu.org/
02c0: 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 72 65 71 licenses/>...req
02d0: 75 69 72 65 20 6d 6b 64 69 72 2e 66 73 0a 0a 5c uire mkdir.fs..\
02e0: 20 61 63 63 65 70 74 20 66 6f 72 20 70 61 73 73 accept for pass
02f0: 77 6f 72 64 20 65 6e 74 72 79 0a 0a 5b 49 46 44 word entry..[IFD
0300: 45 46 5d 20 61 6e 64 72 6f 69 64 20 27 2a 27 20 EF] android '*'
0310: 5b 45 4c 53 45 5d 20 27 e2 ac a4 27 20 5b 54 48 [ELSE] '⬤' [TH
0320: 45 4e 5d 20 43 6f 6e 73 74 61 6e 74 20 70 77 2a EN] Constant pw*
0330: 0a 0a 78 63 2d 76 65 63 74 6f 72 20 75 70 40 20 ..xc-vector up@
0340: 2d 20 63 6c 61 73 73 2d 6f 20 21 0a 0a 30 20 63 - class-o !..0 c
0350: 65 6c 6c 20 75 76 61 72 20 65 73 63 2d 73 74 61 ell uvar esc-sta
0360: 74 65 20 64 72 6f 70 0a 0a 44 65 66 65 72 20 6f te drop..Defer o
0370: 6c 64 2d 65 6d 69 74 20 20 77 68 61 74 27 73 20 ld-emit what's
0380: 65 6d 69 74 20 69 73 20 6f 6c 64 2d 65 6d 69 74 emit is old-emit
0390: 0a 0a 68 65 72 65 0a 78 63 2d 76 65 63 74 6f 72 ..here.xc-vector
03a0: 20 40 20 63 65 6c 6c 2d 20 64 75 70 20 40 20 74 @ cell- dup @ t
03b0: 75 63 6b 20 2d 20 68 65 72 65 20 73 77 61 70 20 uck - here swap
03c0: 64 75 70 20 61 6c 6c 6f 74 20 6d 6f 76 65 0a 2c dup allot move.,
03d0: 20 68 65 72 65 20 30 20 2c 20 43 6f 6e 73 74 61 here 0 , Consta
03e0: 6e 74 20 75 74 66 2d 38 2a 0a 0a 3a 20 2a 2d 77 nt utf-8*..: *-w
03f0: 69 64 74 68 20 28 20 61 64 64 72 20 75 20 2d 2d idth ( addr u --
0400: 20 6e 20 29 0a 20 20 20 20 30 20 2d 72 6f 74 20 n ). 0 -rot
0410: 62 6f 75 6e 64 73 20 3f 44 4f 20 20 49 20 63 40 bounds ?DO I c@
0420: 20 24 43 30 20 24 38 30 20 77 69 74 68 69 6e 20 $C0 $80 within
0430: 2d 20 20 4c 4f 4f 50 20 3b 0a 0a 78 63 2d 76 65 - LOOP ;..xc-ve
0440: 63 74 6f 72 20 40 20 20 75 74 66 2d 38 2a 20 78 ctor @ utf-8* x
0450: 63 2d 76 65 63 74 6f 72 20 21 20 27 20 2a 2d 77 c-vector ! ' *-w
0460: 69 64 74 68 20 69 73 20 78 2d 77 69 64 74 68 20 idth is x-width
0470: 20 78 63 2d 76 65 63 74 6f 72 20 21 0a 0a 3a 20 xc-vector !..:
0480: 65 6d 69 74 2d 70 77 2a 20 28 20 6e 20 2d 2d 20 emit-pw* ( n --
0490: 29 0a 20 20 20 20 64 75 70 20 23 65 73 63 20 3d ). dup #esc =
04a0: 20 49 46 20 20 65 73 63 2d 73 74 61 74 65 20 6f IF esc-state o
04b0: 6e 20 20 54 48 45 4e 0a 20 20 20 20 64 75 70 20 n THEN. dup
04c0: 62 6c 20 3c 20 49 46 20 20 6f 6c 64 2d 65 6d 69 bl < IF old-emi
04d0: 74 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 t EXIT THEN.
04e0: 20 20 64 75 70 20 65 73 63 2d 73 74 61 74 65 20 dup esc-state
04f0: 40 20 49 46 20 20 6f 6c 64 2d 65 6d 69 74 0a 20 @ IF old-emit.
0500: 20 20 20 45 4c 53 45 20 20 24 43 30 20 24 38 30 ELSE $C0 $80
0510: 20 77 69 74 68 69 6e 20 49 46 0a 09 20 20 20 20 within IF..
0520: 5b 20 70 77 2a 20 27 20 78 65 6d 69 74 20 24 74 [ pw* ' xemit $t
0530: 6d 70 0a 09 20 20 20 20 62 6f 75 6e 64 73 20 5b mp.. bounds [
0540: 3f 44 4f 5d 20 5b 49 5d 20 63 40 20 5d 4c 20 6f ?DO] [I] c@ ]L o
0550: 6c 64 2d 65 6d 69 74 20 5b 20 5b 4c 4f 4f 50 5d ld-emit [ [LOOP]
0560: 20 5d 0a 09 54 48 45 4e 0a 20 20 20 20 54 48 45 ]..THEN. THE
0570: 4e 0a 20 20 20 20 74 6f 75 70 70 65 72 20 27 41 N. toupper 'A
0580: 27 20 27 5b 27 20 77 69 74 68 69 6e 20 49 46 20 ' '[' within IF
0590: 20 65 73 63 2d 73 74 61 74 65 20 6f 66 66 20 20 esc-state off
05a0: 54 48 45 4e 20 3b 0a 0a 3a 20 74 79 70 65 2d 70 THEN ;..: type-p
05b0: 77 2a 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 w* ( addr u -- )
05c0: 20 20 32 64 75 70 20 62 6c 20 73 6b 69 70 20 6e 2dup bl skip n
05d0: 69 70 20 30 3d 0a 20 20 20 20 49 46 20 20 20 20 ip 0=. IF
05e0: 62 6f 75 6e 64 73 20 55 2b 44 4f 20 20 62 6c 20 bounds U+DO bl
05f0: 6f 6c 64 2d 65 6d 69 74 20 20 20 20 4c 4f 4f 50 old-emit LOOP
0600: 0a 20 20 20 20 45 4c 53 45 20 20 62 6f 75 6e 64 . ELSE bound
0610: 73 20 55 2b 44 4f 20 20 49 20 63 40 20 65 6d 69 s U+DO I c@ emi
0620: 74 2d 70 77 2a 20 20 4c 4f 4f 50 20 20 54 48 45 t-pw* LOOP THE
0630: 4e 20 3b 0a 0a 3a 20 61 63 63 65 70 74 2a 20 28 N ;..: accept* (
0640: 20 61 64 64 72 20 75 20 2d 2d 20 75 27 20 29 0a addr u -- u' ).
0650: 20 20 20 20 5c 47 20 61 63 63 65 70 74 2d 6c 69 \G accept-li
0660: 6b 65 20 69 6e 70 75 74 2c 20 62 75 74 20 74 79 ke input, but ty
0670: 70 65 73 20 2a 20 69 6e 73 74 65 61 64 20 6f 66 pes * instead of
0680: 20 74 68 65 20 63 68 61 72 61 63 74 65 72 0a 20 the character.
0690: 20 20 20 5c 47 20 64 6f 6e 27 74 20 73 61 76 65 \G don't save
06a0: 20 69 6e 74 6f 20 68 69 73 74 6f 72 79 0a 20 20 into history.
06b0: 20 20 68 69 73 74 6f 72 79 20 3e 72 20 20 77 68 history >r wh
06c0: 61 74 27 73 20 74 79 70 65 20 3e 72 20 20 77 68 at's type >r wh
06d0: 61 74 27 73 20 65 6d 69 74 20 69 73 20 6f 6c 64 at's emit is old
06e0: 2d 65 6d 69 74 0a 20 20 20 20 75 74 66 2d 38 2a -emit. utf-8*
06f0: 20 78 63 2d 76 65 63 74 6f 72 20 21 40 20 3e 72 xc-vector !@ >r
0700: 20 20 5b 27 5d 20 74 79 70 65 2d 70 77 2a 20 69 ['] type-pw* i
0710: 73 20 74 79 70 65 20 20 5b 27 5d 20 65 6d 69 74 s type ['] emit
0720: 2d 70 77 2a 20 69 73 20 65 6d 69 74 0a 20 20 20 -pw* is emit.
0730: 20 30 20 74 6f 20 68 69 73 74 6f 72 79 0a 20 20 0 to history.
0740: 20 20 5b 27 5d 20 61 63 63 65 70 74 20 63 61 74 ['] accept cat
0750: 63 68 0a 20 20 20 20 72 3e 20 78 63 2d 76 65 63 ch. r> xc-vec
0760: 74 6f 72 20 21 20 20 77 68 61 74 27 73 20 6f 6c tor ! what's ol
0770: 64 2d 65 6d 69 74 20 69 73 20 65 6d 69 74 20 20 d-emit is emit
0780: 72 3e 20 69 73 20 74 79 70 65 20 20 72 3e 20 74 r> is type r> t
0790: 6f 20 68 69 73 74 6f 72 79 0a 20 20 20 20 74 68 o history. th
07a0: 72 6f 77 20 22 5c 62 20 22 20 74 79 70 65 20 3b row "\b " type ;
07b0: 0a 0a 5c 20 4b 65 79 73 20 61 72 65 20 70 61 73 ..\ Keys are pas
07c0: 73 77 6f 72 64 73 20 61 6e 64 20 70 72 69 76 61 swords and priva
07d0: 74 65 20 6b 65 79 73 20 28 73 65 6c 66 2d 6b 65 te keys (self-ke
07e0: 79 65 64 2c 20 69 2e 65 2e 20 70 72 69 76 61 74 yed, i.e. privat
07f0: 65 2a 70 75 62 6c 69 63 20 6b 65 79 29 0a 0a 0a e*public key)...
0800: 32 20 56 61 6c 75 65 20 70 77 2d 6c 65 76 65 6c 2 Value pw-level
0810: 23 20 5c 20 70 77 2d 6c 65 76 65 6c 23 20 30 20 # \ pw-level# 0
0820: 69 73 20 6c 6f 77 65 73 74 0a 5c 20 21 21 54 4f is lowest.\ !!TO
0830: 44 4f 21 21 20 77 65 20 6e 65 65 64 20 61 20 77 DO!! we need a w
0840: 61 79 20 74 6f 20 74 65 6c 6c 20 68 6f 77 20 6d ay to tell how m
0850: 75 63 68 20 77 65 20 63 61 6e 20 74 72 75 73 74 uch we can trust
0860: 20 6b 65 79 73 0a 5c 20 70 61 73 73 77 6f 72 64 keys.\ password
0870: 73 20 6e 65 65 64 20 61 20 70 77 2d 6c 65 76 65 s need a pw-leve
0880: 6c 20 28 62 65 63 61 75 73 65 20 74 68 65 79 20 l (because they
0890: 61 72 65 20 67 75 65 73 73 61 62 6c 65 29 0a 5c are guessable).\
08a0: 20 73 65 63 72 65 74 73 20 64 6f 6e 27 74 2c 20 secrets don't,
08b0: 74 68 65 79 20 61 72 65 6e 27 74 2e 20 57 65 20 they aren't. We
08c0: 63 61 6e 20 71 75 69 63 6b 6c 79 20 64 65 63 72 can quickly decr
08d0: 79 70 74 20 61 6c 6c 0a 5c 20 73 65 63 72 65 74 ypt all.\ secret
08e0: 2d 62 61 73 65 64 20 73 74 75 66 66 2c 20 77 69 -based stuff, wi
08f0: 74 68 6f 75 74 20 62 6f 74 68 65 72 69 6e 67 20 thout bothering
0900: 77 69 74 68 20 73 6c 6f 77 64 6f 77 6e 73 2e 0a with slowdowns..
0910: 5c 20 53 6f 20 73 65 63 72 65 74 73 20 73 68 6f \ So secrets sho
0920: 75 6c 64 20 75 73 65 20 6e 6f 72 6d 61 6c 20 73 uld use normal s
0930: 74 72 69 6e 67 20 64 65 63 72 79 70 74 0a 0a 63 tring decrypt..c
0940: 6d 64 62 75 66 2d 6f 20 75 70 40 20 2d 20 63 6c mdbuf-o up@ - cl
0950: 61 73 73 2d 6f 20 21 0a 0a 63 6d 64 2d 62 75 66 ass-o !..cmd-buf
0960: 30 20 63 6c 61 73 73 0a 20 20 20 20 6d 61 78 64 0 class. maxd
0970: 61 74 61 20 2d 0a 20 20 20 20 6b 65 79 2d 73 61 ata -. key-sa
0980: 6c 74 23 20 75 76 61 72 20 6b 65 79 70 61 63 6b lt# uvar keypack
0990: 0a 20 20 20 20 6b 65 79 70 61 63 6b 23 20 20 75 . keypack# u
09a0: 76 61 72 20 6b 65 79 70 61 63 6b 2d 62 75 66 0a var keypack-buf.
09b0: 20 20 20 20 6b 65 79 2d 63 6b 73 75 6d 23 20 75 key-cksum# u
09c0: 76 61 72 20 6b 65 79 70 61 63 6b 2d 63 68 6b 73 var keypack-chks
09d0: 75 6d 0a 65 6e 64 2d 63 6c 61 73 73 20 63 6d 64 um.end-class cmd
09e0: 2d 6b 65 79 62 75 66 2d 63 0a 0a 63 6d 64 2d 6b -keybuf-c..cmd-k
09f0: 65 79 62 75 66 2d 63 20 6e 65 77 20 63 6d 64 62 eybuf-c new cmdb
0a00: 75 66 3a 20 63 6f 64 65 2d 6b 65 79 0a 0a 63 6f uf: code-key..co
0a10: 64 65 2d 6b 65 79 0a 63 6d 64 30 6c 6f 63 6b 20 de-key.cmd0lock
0a20: 30 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 0 pthread_mutex_
0a30: 69 6e 69 74 20 64 72 6f 70 0a 0a 3a 6e 6f 6e 61 init drop..:nona
0a40: 6d 65 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 me ( -- addr u )
0a50: 20 6b 65 79 70 61 63 6b 2d 62 75 66 20 63 6d 64 keypack-buf cmd
0a60: 62 75 66 23 20 40 20 3b 20 74 6f 20 63 6d 64 62 buf# @ ; to cmdb
0a70: 75 66 24 0a 3a 6e 6f 6e 61 6d 65 20 28 20 2d 2d uf$.:noname ( --
0a80: 20 6e 20 29 20 20 6b 65 79 70 61 63 6b 23 20 63 n ) keypack# c
0a90: 6d 64 62 75 66 23 20 40 20 2d 20 3b 20 74 6f 20 mdbuf# @ - ; to
0aa0: 6d 61 78 73 74 72 69 6e 67 0a 0a 63 6f 64 65 30 maxstring..code0
0ab0: 2d 62 75 66 0a 0a 5c 20 68 61 73 68 65 64 20 6b -buf..\ hashed k
0ac0: 65 79 20 64 61 74 61 20 62 61 73 65 0a 0a 55 73 ey data base..Us
0ad0: 65 72 20 3e 73 74 6f 72 65 6b 65 79 0a 0a 63 6d er >storekey..cm
0ae0: 64 2d 63 6c 61 73 73 20 63 6c 61 73 73 0a 20 20 d-class class.
0af0: 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73 6b 20 20 field: ke-sk
0b00: 20 5c 20 73 65 63 72 65 74 20 6b 65 79 0a 20 20 \ secret key.
0b10: 20 20 66 69 65 6c 64 3a 20 6b 65 2d 70 6b 20 20 field: ke-pk
0b20: 20 5c 20 70 75 62 6c 69 63 20 6b 65 79 0a 20 20 \ public key.
0b30: 20 20 66 69 65 6c 64 3a 20 6b 65 2d 74 79 70 65 field: ke-type
0b40: 20 5c 20 6b 65 79 20 74 79 70 65 0a 20 20 20 20 \ key type.
0b50: 66 69 65 6c 64 3a 20 6b 65 2d 6e 69 63 6b 20 5c field: ke-nick \
0b60: 20 6b 65 79 20 6e 69 63 6b 0a 20 20 20 20 66 69 key nick. fi
0b70: 65 6c 64 3a 20 6b 65 2d 70 73 6b 20 20 5c 20 70 eld: ke-psk \ p
0b80: 72 65 73 68 61 72 65 64 20 6b 65 79 20 66 6f 72 reshared key for
0b90: 20 73 74 61 74 65 6c 65 73 73 20 63 6f 6d 6d 75 stateless commu
0ba0: 6e 69 63 61 74 69 6f 6e 0a 20 20 20 20 66 69 65 nication. fie
0bb0: 6c 64 3a 20 6b 65 2d 70 72 6f 66 20 5c 20 70 72 ld: ke-prof \ pr
0bc0: 6f 66 69 6c 65 20 6f 62 6a 65 63 74 0a 20 20 20 ofile object.
0bd0: 20 66 69 65 6c 64 3a 20 6b 65 2d 73 65 6c 66 73 field: ke-selfs
0be0: 69 67 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 ig. field: ke
0bf0: 2d 73 69 67 73 0a 20 20 20 20 66 69 65 6c 64 3a -sigs. field:
0c00: 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20 5c 20 75 ke-storekey \ u
0c10: 73 65 64 20 74 6f 20 65 6e 63 72 79 70 74 20 6f sed to encrypt o
0c20: 6e 20 73 74 6f 72 61 67 65 0a 20 20 20 20 36 34 n storage. 64
0c30: 66 69 65 6c 64 3a 20 6b 65 2d 6f 66 66 73 65 74 field: ke-offset
0c40: 20 5c 20 6f 66 66 73 65 74 20 69 6e 20 6b 65 79 \ offset in key
0c50: 20 66 69 6c 65 0a 20 20 20 20 30 20 2b 66 69 65 file. 0 +fie
0c60: 6c 64 20 6b 65 2d 65 6e 64 0a 65 6e 64 2d 63 6c ld ke-end.end-cl
0c70: 61 73 73 20 6b 65 79 2d 65 6e 74 72 79 0a 0a 56 ass key-entry..V
0c80: 61 72 69 61 62 6c 65 20 6b 65 79 2d 65 6e 74 72 ariable key-entr
0c90: 79 2d 74 61 62 6c 65 0a 0a 30 20 43 6f 6e 73 74 y-table..0 Const
0ca0: 61 6e 74 20 6b 65 79 23 61 6e 6f 6e 0a 31 20 43 ant key#anon.1 C
0cb0: 6f 6e 73 74 61 6e 74 20 6b 65 79 23 75 73 65 72 onstant key#user
0cc0: 0a 32 20 43 6f 6e 73 74 61 6e 74 20 6b 65 79 23 .2 Constant key#
0cd0: 67 72 6f 75 70 0a 0a 30 20 56 61 6c 75 65 20 73 group..0 Value s
0ce0: 61 6d 70 6c 65 2d 6b 65 79 0a 0a 56 61 72 69 61 ample-key..Varia
0cf0: 62 6c 65 20 6b 65 79 2d 74 61 62 6c 65 0a 0a 36 ble key-table..6
0d00: 34 56 61 72 69 61 62 6c 65 20 6b 65 79 2d 72 65 4Variable key-re
0d10: 61 64 2d 6f 66 66 73 65 74 0a 0a 3a 20 63 75 72 ad-offset..: cur
0d20: 72 65 6e 74 2d 6b 65 79 20 28 20 61 64 64 72 20 rent-key ( addr
0d30: 75 20 2d 2d 20 6f 20 29 0a 20 20 20 20 32 64 75 u -- o ). 2du
0d40: 70 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e 20 6b p keysize umin k
0d50: 65 79 2d 74 61 62 6c 65 20 23 40 20 64 72 6f 70 ey-table #@ drop
0d60: 0a 20 20 20 20 64 75 70 20 30 3d 20 49 46 20 20 . dup 0= IF
0d70: 64 72 6f 70 20 2e 22 20 75 6e 6b 6e 6f 77 6e 20 drop ." unknown
0d80: 6b 65 79 3a 20 22 20 38 35 74 79 70 65 20 63 72 key: " 85type cr
0d90: 20 20 30 20 45 58 49 54 20 20 54 48 45 4e 0a 20 0 EXIT THEN.
0da0: 20 20 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 70 cell+ >o ke-p
0db0: 6b 20 24 21 20 6f 20 6f 3e 20 3b 0a 0a 3a 20 6b k $! o o> ;..: k
0dc0: 65 79 3a 6e 65 77 20 28 20 61 64 64 72 20 75 20 ey:new ( addr u
0dd0: 2d 2d 20 6f 20 29 0a 20 20 20 20 5c 47 20 63 72 -- o ). \G cr
0de0: 65 61 74 65 20 6e 65 77 20 6b 65 79 2c 20 61 64 eate new key, ad
0df0: 64 72 20 75 20 69 73 20 74 68 65 20 70 75 62 6c dr u is the publ
0e00: 69 63 20 6b 65 79 0a 20 20 20 20 73 61 6d 70 6c ic key. sampl
0e10: 65 2d 6b 65 79 20 3e 6f 0a 20 20 20 20 6b 65 79 e-key >o. key
0e20: 2d 65 6e 74 72 79 2d 74 61 62 6c 65 20 40 20 74 -entry-table @ t
0e30: 6f 6b 65 6e 2d 74 61 62 6c 65 20 21 0a 20 20 20 oken-table !.
0e40: 20 6b 65 2d 73 6b 20 6b 65 2d 65 6e 64 20 6f 76 ke-sk ke-end ov
0e50: 65 72 20 2d 20 65 72 61 73 65 20 20 3e 73 74 6f er - erase >sto
0e60: 72 65 6b 65 79 20 40 20 6b 65 2d 73 74 6f 72 65 rekey @ ke-store
0e70: 6b 65 79 20 21 0a 20 20 20 20 6b 65 79 2d 72 65 key !. key-re
0e80: 61 64 2d 6f 66 66 73 65 74 20 36 34 40 20 6b 65 ad-offset 64@ ke
0e90: 2d 6f 66 66 73 65 74 20 36 34 21 0a 20 20 20 20 -offset 64!.
0ea0: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 6e 3e 36 keypack-all# n>6
0eb0: 34 20 6b 65 79 2d 72 65 61 64 2d 6f 66 66 73 65 4 key-read-offse
0ec0: 74 20 36 34 2b 21 20 6f 20 63 65 6c 6c 2d 20 6b t 64+! o cell- k
0ed0: 65 2d 65 6e 64 20 6f 76 65 72 20 2d 0a 20 20 20 e-end over -.
0ee0: 20 32 6f 76 65 72 20 6b 65 79 73 69 7a 65 20 75 2over keysize u
0ef0: 6d 69 6e 20 6b 65 79 2d 74 61 62 6c 65 20 23 21 min key-table #!
0f00: 20 6f 3e 0a 20 20 20 20 63 75 72 72 65 6e 74 2d o>. current-
0f10: 6b 65 79 20 3b 0a 0a 3a 20 6b 65 79 3f 6e 65 77 key ;..: key?new
0f20: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6f 20 29 ( addr u -- o )
0f30: 0a 20 20 20 20 5c 47 20 43 72 65 61 74 65 20 6f . \G Create o
0f40: 72 20 6c 6f 6f 6b 75 70 20 6e 65 77 20 6b 65 79 r lookup new key
0f50: 0a 20 20 20 20 32 64 75 70 20 6b 65 79 73 69 7a . 2dup keysiz
0f60: 65 20 75 6d 69 6e 20 6b 65 79 2d 74 61 62 6c 65 e umin key-table
0f70: 20 23 40 20 64 72 6f 70 0a 20 20 20 20 64 75 70 #@ drop. dup
0f80: 20 30 3d 20 49 46 20 20 64 72 6f 70 20 6b 65 79 0= IF drop key
0f90: 3a 6e 65 77 20 20 45 4c 53 45 20 20 6e 69 70 20 :new ELSE nip
0fa0: 6e 69 70 20 63 65 6c 6c 2b 20 20 54 48 45 4e 20 nip cell+ THEN
0fb0: 3b 0a 0a 5c 20 73 65 61 72 63 68 20 66 6f 72 20 ;..\ search for
0fc0: 6b 65 79 73 20 2d 20 6e 6f 74 20 6f 70 74 69 6d keys - not optim
0fd0: 69 7a 65 64 0a 0a 3a 20 6e 69 63 6b 2d 6b 65 79 ized..: nick-key
0fe0: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6f 20 29 ( addr u -- o )
0ff0: 20 5c 20 73 65 61 72 63 68 20 66 6f 72 20 6b 65 \ search for ke
1000: 79 20 6e 69 63 6b 6e 61 6d 65 0a 20 20 20 20 30 y nickname. 0
1010: 20 2d 72 6f 74 20 6b 65 79 2d 74 61 62 6c 65 20 -rot key-table
1020: 0a 20 20 20 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 . [: cell+ $@
1030: 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 20 6b drop cell+ >o k
1040: 65 2d 6e 69 63 6b 20 24 40 20 32 6f 76 65 72 20 e-nick $@ 2over
1050: 73 74 72 3d 20 49 46 0a 09 72 6f 74 20 64 72 6f str= IF..rot dro
1060: 70 20 6f 20 2d 72 6f 74 0a 20 20 20 20 54 48 45 p o -rot. THE
1070: 4e 20 20 6f 3e 20 3b 5d 20 23 6d 61 70 20 32 64 N o> ;] #map 2d
1080: 72 6f 70 20 3b 0a 0a 3a 20 73 65 63 72 65 74 2d rop ;..: secret-
1090: 6b 65 79 73 23 20 28 20 2d 2d 20 6e 20 29 0a 20 keys# ( -- n ).
10a0: 20 20 20 30 20 6b 65 79 2d 74 61 62 6c 65 20 5b 0 key-table [
10b0: 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f 70 20 : cell+ $@ drop
10c0: 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 73 6b 20 40 cell+ >o ke-sk @
10d0: 20 30 3c 3e 20 2d 20 6f 3e 20 3b 5d 20 23 6d 61 0<> - o> ;] #ma
10e0: 70 20 3b 0a 3a 20 73 65 63 72 65 74 2d 6b 65 79 p ;.: secret-key
10f0: 20 28 20 6e 20 2d 2d 20 6f 2f 30 20 29 0a 20 20 ( n -- o/0 ).
1100: 20 20 30 20 74 75 63 6b 20 6b 65 79 2d 74 61 62 0 tuck key-tab
1110: 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 le [: cell+ $@ d
1120: 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d rop cell+ >o ke-
1130: 73 6b 20 40 20 49 46 0a 09 20 20 32 64 75 70 20 sk @ IF.. 2dup
1140: 3d 20 49 46 20 20 72 6f 74 20 64 72 6f 70 20 6f = IF rot drop o
1150: 20 2d 72 6f 74 20 20 54 48 45 4e 20 20 31 2b 0a -rot THEN 1+.
1160: 20 20 20 20 20 20 54 48 45 4e 20 20 6f 3e 20 3b THEN o> ;
1170: 5d 20 23 6d 61 70 20 32 64 72 6f 70 20 3b 0a 3a ] #map 2drop ;.:
1180: 20 2e 73 65 63 72 65 74 2d 6e 69 63 6b 73 20 28 .secret-nicks (
1190: 20 2d 2d 20 29 0a 20 20 20 20 30 20 6b 65 79 2d -- ). 0 key-
11a0: 74 61 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 table [: cell+ $
11b0: 40 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 20 @ drop cell+ >o
11c0: 6b 65 2d 73 6b 20 40 20 49 46 0a 09 20 20 64 75 ke-sk @ IF.. du
11d0: 70 20 2e 20 6b 65 2d 6e 69 63 6b 20 24 40 20 74 p . ke-nick $@ t
11e0: 79 70 65 20 63 72 20 31 2b 0a 20 20 20 20 20 20 ype cr 1+.
11f0: 54 48 45 4e 20 6f 3e 20 3b 5d 20 23 6d 61 70 20 THEN o> ;] #map
1200: 64 72 6f 70 20 3b 0a 0a 3a 20 6e 69 63 6b 3e 70 drop ;..: nick>p
1210: 6b 20 28 20 6e 69 63 6b 20 75 20 2d 2d 20 70 6b k ( nick u -- pk
1220: 20 75 20 29 0a 20 20 20 20 6e 69 63 6b 2d 6b 65 u ). nick-ke
1230: 79 20 3f 64 75 70 2d 49 46 20 2e 6b 65 2d 70 6b y ?dup-IF .ke-pk
1240: 20 24 40 20 45 4c 53 45 20 30 20 30 20 54 48 45 $@ ELSE 0 0 THE
1250: 4e 20 3b 0a 0a 3a 20 6b 65 79 2d 65 78 69 73 74 N ;..: key-exist
1260: 3f 20 28 20 61 64 64 72 20 75 20 2d 2d 20 66 6c ? ( addr u -- fl
1270: 61 67 20 29 0a 20 20 20 20 6b 65 79 2d 74 61 62 ag ). key-tab
1280: 6c 65 20 23 40 20 64 30 3c 3e 20 3b 20 0a 0a 56 le #@ d0<> ; ..V
1290: 61 72 69 61 62 6c 65 20 73 74 72 69 63 74 2d 6b ariable strict-k
12a0: 65 79 73 20 20 73 74 72 69 63 74 2d 6b 65 79 73 eys strict-keys
12b0: 20 6f 6e 0a 0a 5b 49 46 55 4e 44 45 46 5d 20 6d on..[IFUNDEF] m
12c0: 61 67 65 6e 74 61 20 20 62 72 6f 77 6e 20 63 6f agenta brown co
12d0: 6e 73 74 61 6e 74 20 6d 61 67 65 6e 74 61 20 5b nstant magenta [
12e0: 54 48 45 4e 5d 0a 0a 43 72 65 61 74 65 20 38 35 THEN]..Create 85
12f0: 63 6f 6c 6f 72 73 0a 72 65 64 20 20 20 20 20 3e colors.red >
1300: 62 67 20 77 68 69 74 65 20 3e 66 67 20 6f 72 20 bg white >fg or
1310: 62 6f 6c 64 20 6f 72 20 2c 0a 79 65 6c 6c 6f 77 bold or ,.yellow
1320: 20 20 3e 62 67 20 77 68 69 74 65 20 3e 66 67 20 >bg white >fg
1330: 6f 72 20 62 6f 6c 64 20 6f 72 20 2c 0a 62 6c 75 or bold or ,.blu
1340: 65 20 20 20 20 3e 62 67 20 77 68 69 74 65 20 3e e >bg white >
1350: 66 67 20 6f 72 20 62 6f 6c 64 20 6f 72 20 2c 0a fg or bold or ,.
1360: 6d 61 67 65 6e 74 61 20 3e 62 67 20 77 68 69 74 magenta >bg whit
1370: 65 20 3e 66 67 20 6f 72 20 62 6f 6c 64 20 6f 72 e >fg or bold or
1380: 20 2c 0a 0a 3a 20 72 65 73 65 74 2d 63 6f 6c 6f ,..: reset-colo
1390: 72 20 28 20 2d 2d 20 29 0a 20 20 20 20 64 65 66 r ( -- ). def
13a0: 61 75 6c 74 2d 63 6f 6c 6f 72 20 61 74 74 72 21 ault-color attr!
13b0: 20 3b 0a 3a 20 2e 62 6c 61 63 6b 38 35 20 28 20 ;.: .black85 (
13c0: 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 addr u -- ).
13d0: 5b 20 62 6c 61 63 6b 20 3e 62 67 20 62 6c 61 63 [ black >bg blac
13e0: 6b 20 3e 66 67 20 6f 72 20 5d 4c 20 61 74 74 72 k >fg or ]L attr
13f0: 21 20 20 20 38 35 74 79 70 65 20 72 65 73 65 74 ! 85type reset
1400: 2d 63 6f 6c 6f 72 20 3b 0a 3a 20 2e 72 65 64 38 -color ;.: .red8
1410: 35 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 5 ( addr u -- )
1420: 20 30 20 2d 72 6f 74 20 62 6f 75 6e 64 73 20 3f 0 -rot bounds ?
1430: 44 4f 0a 09 63 72 20 2e 22 20 5c 20 72 65 76 6f DO..cr ." \ revo
1440: 6b 65 3a 20 22 20 64 75 70 20 63 65 6c 6c 73 20 ke: " dup cells
1450: 38 35 63 6f 6c 6f 72 73 20 2b 20 40 20 61 74 74 85colors + @ att
1460: 72 21 20 31 2b 20 33 20 61 6e 64 0a 09 49 20 34 r! 1+ 3 and..I 4
1470: 20 38 35 74 79 70 65 20 20 64 75 70 20 63 65 6c 85type dup cel
1480: 6c 73 20 38 35 63 6f 6c 6f 72 73 20 2b 20 40 20 ls 85colors + @
1490: 61 74 74 72 21 20 31 2b 20 33 20 61 6e 64 0a 09 attr! 1+ 3 and..
14a0: 49 20 34 20 2b 20 34 20 38 35 74 79 70 65 20 72 I 4 + 4 85type r
14b0: 65 73 65 74 2d 63 6f 6c 6f 72 20 38 20 2b 4c 4f eset-color 8 +LO
14c0: 4f 50 20 20 64 72 6f 70 20 3b 0a 3a 20 2e 72 73 OP drop ;.: .rs
14d0: 6b 20 28 20 6e 69 63 6b 20 75 20 2d 2d 20 29 0a k ( nick u -- ).
14e0: 20 20 20 20 73 6b 72 65 76 20 24 32 30 20 2e 72 skrev $20 .r
14f0: 65 64 38 35 20 73 70 61 63 65 20 74 79 70 65 20 ed85 space type
1500: 2e 22 20 20 28 6b 65 65 70 20 6f 66 66 6c 69 6e ." (keep offlin
1510: 65 20 63 6f 70 79 21 29 22 20 63 72 20 3b 0a 3a e copy!)" cr ;.:
1520: 20 2e 6b 65 79 20 28 20 61 64 64 72 20 75 20 2d .key ( addr u -
1530: 2d 20 29 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e - ) drop cell+ >
1540: 6f 0a 20 20 20 20 2e 22 20 6e 69 63 6b 3a 20 22 o. ." nick: "
1550: 20 6b 65 2d 6e 69 63 6b 20 24 40 20 74 79 70 65 ke-nick $@ type
1560: 20 63 72 0a 20 20 20 20 2e 22 20 70 75 62 6b 65 cr. ." pubke
1570: 79 3a 20 22 20 6b 65 2d 70 6b 20 24 40 20 38 35 y: " ke-pk $@ 85
1580: 74 79 70 65 20 63 72 0a 20 20 20 20 6b 65 2d 73 type cr. ke-s
1590: 6b 20 40 20 49 46 20 20 2e 22 20 73 65 63 6b 65 k @ IF ." secke
15a0: 79 3a 20 22 20 6b 65 2d 73 6b 20 40 20 6b 65 79 y: " ke-sk @ key
15b0: 73 69 7a 65 0a 09 2e 62 6c 61 63 6b 38 35 20 2e size...black85 .
15c0: 22 20 20 28 6b 65 65 70 20 73 65 63 72 65 74 21 " (keep secret!
15d0: 29 22 20 63 72 20 20 54 48 45 4e 0a 20 20 20 20 )" cr THEN.
15e0: 2e 22 20 66 69 72 73 74 3a 20 22 20 6b 65 2d 73 ." first: " ke-s
15f0: 65 6c 66 73 69 67 20 24 40 20 64 72 6f 70 20 36 elfsig $@ drop 6
1600: 34 40 20 2e 73 69 67 64 61 74 65 20 63 72 0a 20 4@ .sigdate cr.
1610: 20 20 20 2e 22 20 6c 61 73 74 3a 20 22 20 6b 65 ." last: " ke
1620: 2d 73 65 6c 66 73 69 67 20 24 40 20 64 72 6f 70 -selfsig $@ drop
1630: 20 36 34 27 2b 20 36 34 40 20 2e 73 69 67 64 61 64'+ 64@ .sigda
1640: 74 65 20 63 72 0a 20 20 20 20 6f 3e 20 3b 0a 0a te cr. o> ;..
1650: 3a 20 64 75 6d 70 6b 65 79 20 28 20 61 64 64 72 : dumpkey ( addr
1660: 20 75 20 2d 2d 20 29 20 64 72 6f 70 20 63 65 6c u -- ) drop cel
1670: 6c 2b 20 3e 6f 0a 20 20 20 20 2e 5c 22 20 78 5c l+ >o. .\" x\
1680: 22 20 22 20 6b 65 2d 70 6b 20 24 40 20 38 35 74 " " ke-pk $@ 85t
1690: 79 70 65 20 2e 5c 22 20 5c 22 20 6b 65 79 3f 6e ype .\" \" key?n
16a0: 65 77 22 20 63 72 0a 20 20 20 20 6b 65 2d 73 6b ew" cr. ke-sk
16b0: 20 40 20 49 46 20 20 2e 5c 22 20 78 5c 22 20 22 @ IF .\" x\" "
16c0: 20 6b 65 2d 73 6b 20 40 20 6b 65 79 73 69 7a 65 ke-sk @ keysize
16d0: 20 38 35 74 79 70 65 20 2e 5c 22 20 5c 22 20 6b 85type .\" \" k
16e0: 65 2d 73 6b 20 73 65 63 21 20 2b 73 65 63 6b 65 e-sk sec! +secke
16f0: 79 22 20 63 72 20 20 54 48 45 4e 0a 20 20 20 20 y" cr THEN.
1700: 27 22 27 20 65 6d 69 74 20 6b 65 2d 6e 69 63 6b '"' emit ke-nick
1710: 20 24 40 20 74 79 70 65 20 2e 5c 22 20 5c 22 20 $@ type .\" \"
1720: 6b 65 2d 6e 69 63 6b 20 24 21 20 22 0a 20 20 20 ke-nick $! ".
1730: 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20 64 ke-selfsig $@ d
1740: 72 6f 70 20 36 34 40 20 36 34 3e 64 20 5b 3a 20 rop 64@ 64>d [:
1750: 27 24 27 20 65 6d 69 74 20 30 20 75 64 2e 72 20 '$' emit 0 ud.r
1760: 3b 5d 20 24 31 30 20 62 61 73 65 2d 65 78 65 63 ;] $10 base-exec
1770: 75 74 65 0a 20 20 20 20 2e 22 20 2e 20 64 3e 36 ute. ." . d>6
1780: 34 20 6b 65 2d 66 69 72 73 74 21 20 22 20 6b 65 4 ke-first! " ke
1790: 2d 74 79 70 65 20 40 20 2e 20 2e 22 20 6b 65 2d -type @ . ." ke-
17a0: 74 79 70 65 20 21 22 20 20 63 72 20 6f 3e 20 3b type !" cr o> ;
17b0: 0a 0a 3a 20 2e 6b 65 79 73 20 28 20 2d 2d 20 29 ..: .keys ( -- )
17c0: 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65 key-table [: ce
17d0: 6c 6c 2b 20 24 40 20 2e 6b 65 79 20 3b 5d 20 23 ll+ $@ .key ;] #
17e0: 6d 61 70 20 3b 0a 3a 20 64 75 6d 70 6b 65 79 73 map ;.: dumpkeys
17f0: 20 28 20 2d 2d 20 29 20 6b 65 79 2d 74 61 62 6c ( -- ) key-tabl
1800: 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 75 e [: cell+ $@ du
1810: 6d 70 6b 65 79 20 3b 5d 20 23 6d 61 70 20 3b 0a mpkey ;] #map ;.
1820: 0a 3a 20 6b 65 79 3e 6e 69 63 6b 20 28 20 61 64 .: key>nick ( ad
1830: 64 72 6b 65 79 20 75 31 20 2d 2d 20 6e 69 63 6b drkey u1 -- nick
1840: 20 75 32 20 29 0a 20 20 20 20 6b 65 79 2d 74 61 u2 ). key-ta
1850: 62 6c 65 20 23 40 20 30 3d 20 49 46 20 20 64 72 ble #@ 0= IF dr
1860: 6f 70 20 22 22 20 20 45 58 49 54 20 20 54 48 45 op "" EXIT THE
1870: 4e 0a 20 20 20 20 63 65 6c 6c 2b 20 2e 6b 65 2d N. cell+ .ke-
1880: 6e 69 63 6b 20 24 40 20 3b 0a 0a 3a 20 2e 6b 65 nick $@ ;..: .ke
1890: 79 23 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 y# ( addr u -- )
18a0: 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e 0a 20 20 keysize umin.
18b0: 20 20 2e 22 20 4b 65 79 20 27 22 20 6b 65 79 2d ." Key '" key-
18c0: 74 61 62 6c 65 20 23 40 20 30 3d 20 49 46 20 64 table #@ 0= IF d
18d0: 72 6f 70 20 45 58 49 54 20 54 48 45 4e 0a 20 20 rop EXIT THEN.
18e0: 20 20 63 65 6c 6c 2b 20 2e 6b 65 2d 6e 69 63 6b cell+ .ke-nick
18f0: 20 24 40 20 74 79 70 65 20 2e 22 20 27 20 6f 6b $@ type ." ' ok
1900: 22 20 63 72 20 3b 0a 3a 20 2e 6b 65 79 2d 69 64 " cr ;.: .key-id
1910: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 6b ( addr u -- ) k
1920: 65 79 73 69 7a 65 20 75 6d 69 6e 20 32 64 75 70 eysize umin 2dup
1930: 20 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 30 3d key-table #@ 0=
1940: 0a 20 20 20 20 49 46 20 20 32 64 72 6f 70 20 38 . IF 2drop 8
1950: 20 38 35 74 79 70 65 0a 20 20 20 20 45 4c 53 45 85type. ELSE
1960: 20 20 63 65 6c 6c 2b 20 2e 6b 65 2d 6e 69 63 6b cell+ .ke-nick
1970: 20 24 40 20 74 79 70 65 20 32 64 72 6f 70 20 20 $@ type 2drop
1980: 54 48 45 4e 20 3b 0a 0a 3a 6e 6f 6e 61 6d 65 20 THEN ;..:noname
1990: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 ( addr u -- ).
19a0: 20 20 6f 20 49 46 20 20 70 75 62 6b 65 79 20 40 o IF pubkey @
19b0: 20 49 46 0a 09 20 20 20 20 32 64 75 70 20 70 75 IF.. 2dup pu
19c0: 62 6b 65 79 20 24 40 20 6b 65 79 73 69 7a 65 20 bkey $@ keysize
19d0: 75 6d 69 6e 20 73 74 72 3d 20 30 3d 20 49 46 0a umin str= 0= IF.
19e0: 09 09 5b 3a 20 2e 22 20 77 61 6e 74 3a 20 22 20 ..[: ." want: "
19f0: 70 75 62 6b 65 79 20 24 40 20 6b 65 79 73 69 7a pubkey $@ keysiz
1a00: 65 20 75 6d 69 6e 20 38 35 74 79 70 65 20 63 72 e umin 85type cr
1a10: 0a 09 09 20 20 2e 22 20 67 6f 74 20 3a 20 22 20 ... ." got : "
1a20: 32 64 75 70 20 38 35 74 79 70 65 20 63 72 20 3b 2dup 85type cr ;
1a30: 5d 20 24 65 72 72 0a 09 09 74 72 75 65 20 21 21 ] $err...true !!
1a40: 77 72 6f 6e 67 2d 6b 65 79 21 21 0a 09 20 20 20 wrong-key!!..
1a50: 20 54 48 45 4e 0a 09 20 20 20 20 2e 6b 65 79 23 THEN.. .key#
1a60: 20 20 45 58 49 54 0a 09 54 48 45 4e 20 20 54 48 EXIT..THEN TH
1a70: 45 4e 0a 20 20 20 20 32 64 75 70 20 6b 65 79 2d EN. 2dup key-
1a80: 65 78 69 73 74 3f 20 30 3d 20 49 46 0a 09 73 74 exist? 0= IF..st
1a90: 72 69 63 74 2d 6b 65 79 73 20 40 20 21 21 75 6e rict-keys @ !!un
1aa0: 6b 6e 6f 77 6e 2d 6b 65 79 21 21 0a 09 2e 22 20 known-key!!..."
1ab0: 55 6e 6b 6e 6f 77 6e 20 6b 65 79 20 22 20 38 35 Unknown key " 85
1ac0: 74 79 70 65 20 63 72 0a 20 20 20 20 45 4c 53 45 type cr. ELSE
1ad0: 0a 09 2e 6b 65 79 23 0a 20 20 20 20 54 48 45 4e ...key#. THEN
1ae0: 20 3b 20 49 53 20 63 68 65 63 6b 2d 6b 65 79 0a ; IS check-key.
1af0: 0a 3a 6e 6f 6e 61 6d 65 20 28 20 70 6b 63 20 2d .:noname ( pkc -
1b00: 2d 20 73 6b 63 20 29 0a 20 20 20 20 6b 65 79 73 - skc ). keys
1b10: 69 7a 65 20 6b 65 79 2d 74 61 62 6c 65 20 23 40 ize key-table #@
1b20: 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 0= !!unknown-ke
1b30: 79 21 21 0a 20 20 20 20 63 65 6c 6c 2b 20 2e 6b y!!. cell+ .k
1b40: 65 2d 73 6b 20 73 65 63 40 20 30 3d 20 21 21 75 e-sk sec@ 0= !!u
1b50: 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 21 20 3b 20 69 nknown-key!! ; i
1b60: 73 20 73 65 61 72 63 68 2d 6b 65 79 0a 0a 5c 20 s search-key..\
1b70: 67 65 74 20 70 61 73 73 70 68 72 61 73 65 0a 0a get passphrase..
1b80: 33 20 56 61 6c 75 65 20 70 61 73 73 70 68 72 61 3 Value passphra
1b90: 73 65 2d 72 65 74 72 79 23 0a 24 31 30 30 20 43 se-retry#.$100 C
1ba0: 6f 6e 73 74 61 6e 74 20 6d 61 78 2d 70 61 73 73 onstant max-pass
1bb0: 70 68 72 61 73 65 23 20 5c 20 32 35 36 20 63 68 phrase# \ 256 ch
1bc0: 61 72 61 63 74 65 72 73 20 73 68 6f 75 6c 64 20 aracters should
1bd0: 62 65 20 65 6e 6f 75 67 68 2e 2e 2e 0a 6d 61 78 be enough....max
1be0: 2d 70 61 73 73 70 68 72 61 73 65 23 20 62 75 66 -passphrase# buf
1bf0: 66 65 72 3a 20 70 61 73 73 70 68 72 61 73 65 0a fer: passphrase.
1c00: 0a 3a 20 70 61 73 73 70 68 72 61 73 65 2d 69 6e .: passphrase-in
1c10: 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 ( -- addr u ).
1c20: 20 20 20 70 61 73 73 70 68 72 61 73 65 20 64 75 passphrase du
1c30: 70 20 6d 61 78 2d 70 61 73 73 70 68 72 61 73 65 p max-passphrase
1c40: 23 20 61 63 63 65 70 74 2a 20 3b 0a 0a 3a 20 3e # accept* ;..: >
1c50: 70 61 73 73 70 68 72 61 73 65 20 28 20 61 64 64 passphrase ( add
1c60: 72 20 75 20 2d 2d 20 61 64 64 72 20 75 20 29 0a r u -- addr u ).
1c70: 20 20 20 20 5c 47 20 63 72 65 61 74 65 20 61 20 \G create a
1c80: 35 31 32 20 62 69 74 20 68 61 73 68 20 6f 66 20 512 bit hash of
1c90: 74 68 65 20 70 61 73 73 70 68 72 61 73 65 0a 20 the passphrase.
1ca0: 20 20 20 6e 6f 2d 6b 65 79 20 3e 63 3a 6b 65 79 no-key >c:key
1cb0: 20 63 3a 68 61 73 68 0a 20 20 20 20 6b 65 63 63 c:hash. kecc
1cc0: 61 6b 2d 70 61 64 64 65 64 20 63 3a 6b 65 79 3e ak-padded c:key>
1cd0: 20 6b 65 63 63 61 6b 2d 70 61 64 64 65 64 20 6b keccak-padded k
1ce0: 65 63 63 61 6b 23 6d 61 78 20 32 2f 20 3b 0a 0a eccak#max 2/ ;..
1cf0: 3a 20 67 65 74 2d 70 61 73 73 70 68 72 61 73 65 : get-passphrase
1d00: 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 ( -- addr u ).
1d10: 20 20 20 70 61 73 73 70 68 72 61 73 65 2d 69 6e passphrase-in
1d20: 20 3e 70 61 73 73 70 68 72 61 73 65 20 3b 0a 0a >passphrase ;..
1d30: 56 61 72 69 61 62 6c 65 20 6b 65 79 73 0a 0a 3a Variable keys..:
1d40: 20 6b 65 79 3e 64 65 66 61 75 6c 74 20 28 20 2d key>default ( -
1d50: 2d 20 29 20 6b 65 79 73 20 24 5b 5d 23 20 31 2d - ) keys $[]# 1-
1d60: 20 6b 65 79 73 20 73 65 63 5b 5d 40 20 32 64 75 keys sec[]@ 2du
1d70: 70 20 38 35 74 79 70 65 20 66 6f 72 74 68 3a 63 p 85type forth:c
1d80: 72 20 64 72 6f 70 20 3e 73 74 6f 72 65 6b 65 79 r drop >storekey
1d90: 20 21 20 3b 0a 3a 20 2b 6b 65 79 20 28 20 61 64 ! ;.: +key ( ad
1da0: 64 72 20 75 20 2d 2d 20 29 20 6b 65 79 73 20 73 dr u -- ) keys s
1db0: 65 63 2b 5b 5d 21 20 3b 0a 3a 20 2b 70 61 73 73 ec+[]! ;.: +pass
1dc0: 70 68 72 61 73 65 20 28 20 2d 2d 20 29 20 20 67 phrase ( -- ) g
1dd0: 65 74 2d 70 61 73 73 70 68 72 61 73 65 20 2b 6b et-passphrase +k
1de0: 65 79 20 3b 0a 3a 20 2b 63 68 65 63 6b 70 68 72 ey ;.: +checkphr
1df0: 61 73 65 20 28 20 2d 2d 20 66 6c 61 67 20 29 20 ase ( -- flag )
1e00: 67 65 74 2d 70 61 73 73 70 68 72 61 73 65 20 6b get-passphrase k
1e10: 65 79 73 20 24 5b 5d 23 20 31 2d 20 6b 65 79 73 eys $[]# 1- keys
1e20: 20 73 65 63 5b 5d 40 20 73 74 72 3d 20 3b 0a 3a sec[]@ str= ;.:
1e30: 20 2b 6e 65 77 70 68 72 61 73 65 20 28 20 2d 2d +newphrase ( --
1e40: 20 29 0a 20 20 20 20 42 45 47 49 4e 0a 09 2e 22 ). BEGIN..."
1e50: 20 50 61 73 73 70 68 72 61 73 65 3a 20 22 20 2b Passphrase: " +
1e60: 70 61 73 73 70 68 72 61 73 65 20 63 72 0a 09 2e passphrase cr...
1e70: 22 20 52 65 74 79 70 65 20 70 6c 73 3a 20 22 20 " Retype pls: "
1e80: 2b 63 68 65 63 6b 70 68 72 61 73 65 20 30 3d 20 +checkphrase 0=
1e90: 57 48 49 4c 45 0a 09 20 20 20 20 2e 22 20 20 64 WHILE.. ." d
1ea0: 69 64 6e 27 74 20 6d 61 74 63 68 2c 20 74 72 79 idn't match, try
1eb0: 20 61 67 61 69 6e 20 70 6c 65 61 73 65 22 20 63 again please" c
1ec0: 72 0a 20 20 20 20 52 45 50 45 41 54 20 63 72 20 r. REPEAT cr
1ed0: 3b 0a 0a 3a 20 22 3e 70 61 73 73 70 68 72 61 73 ;..: ">passphras
1ee0: 65 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 e ( addr u -- )
1ef0: 3e 70 61 73 73 70 68 72 61 73 65 20 2b 6b 65 79 >passphrase +key
1f00: 20 3b 0a 3a 20 2b 73 65 63 6b 65 79 20 28 20 2d ;.: +seckey ( -
1f10: 2d 20 29 0a 20 20 20 20 6b 65 2d 73 6b 20 40 20 - ). ke-sk @
1f20: 6b 65 2d 70 6b 20 24 40 20 64 72 6f 70 20 6b 65 ke-pk $@ drop ke
1f30: 79 70 61 64 20 65 64 2d 64 68 20 2b 6b 65 79 20 ypad ed-dh +key
1f40: 3b 0a 0a 22 22 20 22 3e 70 61 73 73 70 68 72 61 ;.."" ">passphra
1f50: 73 65 20 5c 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 se \ following t
1f60: 68 65 20 65 6e 63 72 79 70 74 2d 65 76 65 72 79 he encrypt-every
1f70: 74 68 69 6e 67 20 70 61 72 61 64 69 67 6d 2c 0a thing paradigm,.
1f80: 5c 20 6e 6f 20 70 61 73 73 77 6f 72 64 20 69 73 \ no password is
1f90: 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e the empty strin
1fa0: 67 21 20 20 49 74 27 73 20 73 74 69 6c 6c 20 65 g! It's still e
1fb0: 6e 63 72 79 70 74 65 64 20 3b 2d 29 21 0a 0a 5c ncrypted ;-)!..\
1fc0: 20 61 20 73 65 63 72 65 74 20 6b 65 79 20 6a 75 a secret key ju
1fd0: 73 74 20 6e 65 65 64 73 20 61 20 6e 69 63 6b 20 st needs a nick
1fe0: 61 6e 64 20 61 20 74 79 70 65 2e 0a 5c 20 53 65 and a type..\ Se
1ff0: 63 72 65 74 20 6b 65 79 73 20 63 61 6e 20 62 65 cret keys can be
2000: 20 70 65 72 73 6f 6e 73 20 61 6e 64 20 67 72 6f persons and gro
2010: 75 70 73 2e 0a 0a 5c 20 61 20 70 75 62 6c 69 63 ups...\ a public
2020: 20 6b 65 79 20 6e 65 65 64 73 20 6d 6f 72 65 3a key needs more:
2030: 20 6e 69 63 6b 2c 20 74 79 70 65 2c 20 70 72 6f nick, type, pro
2040: 66 69 6c 65 2e 0a 5c 20 54 68 65 20 70 72 6f 66 file..\ The prof
2050: 69 6c 65 20 69 73 20 61 20 73 74 72 75 63 74 75 ile is a structu
2060: 72 65 64 20 64 6f 63 75 6d 65 6e 74 2c 20 69 2e red document, i.
2070: 65 2e 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 e. pointed to by
2080: 20 61 20 68 61 73 68 2e 0a 0a 5c 20 61 20 73 69 a hash...\ a si
2090: 67 6e 61 74 75 72 65 20 63 6f 6e 74 61 69 6e 73 gnature contains
20a0: 20 61 20 70 75 62 6b 65 79 2c 20 61 20 63 68 65 a pubkey, a che
20b0: 63 6b 62 6f 78 20 62 69 74 6d 61 73 6b 2c 0a 5c ckbox bitmask,.\
20c0: 20 61 20 64 61 74 65 2c 20 61 6e 20 65 78 70 69 a date, an expi
20d0: 72 61 74 69 6f 6e 20 64 61 74 65 2c 20 74 68 65 ration date, the
20e0: 20 73 69 67 6e 65 72 27 73 20 70 75 62 6b 65 79 signer's pubkey
20f0: 20 61 6e 64 20 74 68 65 20 73 69 67 6e 61 74 75 and the signatu
2100: 72 65 20 69 74 73 65 6c 66 0a 5c 20 28 72 2b 73 re itself.\ (r+s
2110: 29 2e 20 20 54 68 65 72 65 20 69 73 20 61 6e 20 ). There is an
2120: 6f 70 74 69 6f 6e 61 6c 20 73 69 67 6e 69 6e 67 optional signing
2130: 20 70 72 6f 74 6f 63 6f 6c 20 64 6f 63 75 6d 65 protocol docume
2140: 6e 74 20 28 68 61 73 68 29 2e 0a 0a 5c 20 77 65 nt (hash)...\ we
2150: 20 73 74 6f 72 65 20 65 61 63 68 20 69 74 65 6d store each item
2160: 20 69 6e 20 61 20 32 35 36 20 62 79 74 65 73 20 in a 256 bytes
2170: 65 6e 63 72 79 70 74 65 64 20 73 74 72 69 6e 67 encrypted string
2180: 2c 20 69 2e 65 2e 20 77 69 74 68 20 61 20 31 36 , i.e. with a 16
2190: 0a 5c 20 62 79 74 65 20 73 61 6c 74 20 61 6e 64 .\ byte salt and
21a0: 20 61 20 31 36 20 62 79 74 65 20 63 68 65 63 6b a 16 byte check
21b0: 73 75 6d 2e 0a 0a 3a 20 6b 65 2d 6c 61 73 74 21 sum...: ke-last!
21c0: 20 28 20 36 34 64 61 74 65 20 2d 2d 20 29 0a 20 ( 64date -- ).
21d0: 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 ke-selfsig $@
21e0: 6c 65 6e 20 24 31 30 20 75 6d 61 78 20 6b 65 2d len $10 umax ke-
21f0: 73 65 6c 66 73 69 67 20 24 21 6c 65 6e 0a 20 20 selfsig $!len.
2200: 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20 ke-selfsig $@
2210: 64 72 6f 70 20 36 34 27 2b 20 36 34 21 20 3b 0a drop 64'+ 64! ;.
2220: 3a 20 6b 65 2d 66 69 72 73 74 21 20 28 20 36 34 : ke-first! ( 64
2230: 64 61 74 65 20 2d 2d 20 29 20 36 34 23 2d 31 20 date -- ) 64#-1
2240: 6b 65 2d 6c 61 73 74 21 0a 20 20 20 20 6b 65 2d ke-last!. ke-
2250: 73 65 6c 66 73 69 67 20 24 40 20 64 72 6f 70 20 selfsig $@ drop
2260: 36 34 21 20 3b 0a 0a 67 65 74 2d 63 75 72 72 65 64! ;..get-curre
2270: 6e 74 20 61 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 nt also net2o-ba
2280: 73 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 0a 0a se definitions..
2290: 63 6d 64 2d 74 61 62 6c 65 20 24 40 20 69 6e 68 cmd-table $@ inh
22a0: 65 72 69 74 2d 74 61 62 6c 65 20 6b 65 79 2d 65 erit-table key-e
22b0: 6e 74 72 79 2d 74 61 62 6c 65 0a 5c 67 20 0a 5c ntry-table.\g .\
22c0: 67 20 23 23 23 20 6b 65 79 20 73 74 6f 72 61 67 g ### key storag
22d0: 65 20 63 6f 6d 6d 61 6e 64 73 20 23 23 23 0a 5c e commands ###.\
22e0: 67 20 0a 24 31 31 20 6e 65 74 32 6f 3a 20 70 72 g .$11 net2o: pr
22f0: 69 76 6b 65 79 20 28 20 24 3a 73 74 72 69 6e 67 ivkey ( $:string
2300: 20 2d 2d 20 29 0a 20 20 20 20 5c 67 20 70 72 69 -- ). \g pri
2310: 76 61 74 65 20 6b 65 79 0a 20 20 20 20 5c 20 64 vate key. \ d
2320: 6f 65 73 20 6e 6f 74 20 6e 65 65 64 20 74 6f 20 oes not need to
2330: 62 65 20 73 69 67 6e 65 64 2c 20 74 68 65 20 73 be signed, the s
2340: 65 63 72 65 74 20 6b 65 79 20 76 65 72 69 66 69 ecret key verifi
2350: 65 73 20 69 74 73 65 6c 66 0a 20 20 20 20 24 3e es itself. $>
2360: 20 6f 76 65 72 20 6b 65 79 70 61 64 20 73 6b 3e over keypad sk>
2370: 70 6b 20 5c 20 67 65 6e 65 72 61 74 65 20 70 75 pk \ generate pu
2380: 62 6b 65 79 0a 20 20 20 20 6b 65 79 70 61 64 20 bkey. keypad
2390: 6b 65 2d 70 6b 20 24 40 20 64 72 6f 70 20 6b 65 ke-pk $@ drop ke
23a0: 79 73 69 7a 65 20 74 75 63 6b 20 73 74 72 3d 20 ysize tuck str=
23b0: 30 3d 20 21 21 77 72 6f 6e 67 2d 6b 65 79 21 21 0= !!wrong-key!!
23c0: 0a 20 20 20 20 6b 65 2d 73 6b 20 73 65 63 21 20 . ke-sk sec!
23d0: 2b 73 65 63 6b 65 79 20 3b 0a 2b 6e 65 74 32 6f +seckey ;.+net2o
23e0: 3a 20 6b 65 79 74 79 70 65 20 28 20 6e 20 2d 2d : keytype ( n --
23f0: 20 29 20 20 20 20 20 20 20 20 20 20 20 21 21 73 ) !!s
2400: 69 67 6e 65 64 3f 20 20 20 31 20 21 21 3e 6f 72 igned? 1 !!>or
2410: 64 65 72 3f 20 36 34 3e 6e 20 6b 65 2d 74 79 70 der? 64>n ke-typ
2420: 65 20 21 20 3b 0a 5c 67 20 6b 65 79 20 74 79 70 e ! ;.\g key typ
2430: 65 20 28 30 3a 20 61 6e 6f 6e 2c 20 31 3a 20 75 e (0: anon, 1: u
2440: 73 65 72 2c 20 32 3a 20 67 72 6f 75 70 29 0a 2b ser, 2: group).+
2450: 6e 65 74 32 6f 3a 20 6b 65 79 6e 69 63 6b 20 28 net2o: keynick (
2460: 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20 20 $:string -- )
2470: 20 20 21 21 73 69 67 6e 65 64 3f 20 20 20 32 20 !!signed? 2
2480: 21 21 3e 6f 72 64 65 72 3f 20 24 3e 20 6b 65 2d !!>order? $> ke-
2490: 6e 69 63 6b 20 24 21 20 3b 0a 5c 67 20 6b 65 79 nick $! ;.\g key
24a0: 20 6e 69 63 6b 0a 2b 6e 65 74 32 6f 3a 20 6b 65 nick.+net2o: ke
24b0: 79 70 72 6f 66 69 6c 65 20 28 20 24 3a 73 74 72 yprofile ( $:str
24c0: 69 6e 67 20 2d 2d 20 29 20 21 21 73 69 67 6e 65 ing -- ) !!signe
24d0: 64 3f 20 20 20 34 20 21 21 3e 6f 72 64 65 72 3f d? 4 !!>order?
24e0: 20 24 3e 20 6b 65 2d 70 72 6f 66 20 24 21 20 3b $> ke-prof $! ;
24f0: 0a 5c 67 20 6b 65 79 20 70 72 6f 66 69 6c 65 20 .\g key profile
2500: 28 68 61 73 68 20 6f 66 20 61 20 72 65 73 6f 75 (hash of a resou
2510: 72 63 65 29 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 rce).+net2o: key
2520: 6d 61 73 6b 20 28 20 78 20 2d 2d 20 29 20 20 20 mask ( x -- )
2530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2540: 20 20 20 20 38 20 21 21 3e 6f 72 64 65 72 3f 20 8 !!>order?
2550: 36 34 64 72 6f 70 20 3b 0a 5c 67 20 6b 65 79 20 64drop ;.\g key
2560: 6d 61 73 6b 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 mask.+net2o: key
2570: 70 73 6b 20 28 20 24 3a 73 74 72 69 6e 67 20 2d psk ( $:string -
2580: 2d 20 29 20 20 20 20 20 21 21 73 69 67 6e 65 64 - ) !!signed
2590: 3f 20 24 31 30 20 21 21 3e 6f 72 64 65 72 3f 20 ? $10 !!>order?
25a0: 24 3e 20 6b 65 2d 70 73 6b 20 73 65 63 21 20 3b $> ke-psk sec! ;
25b0: 0a 5c 67 20 70 72 65 73 68 61 72 65 64 20 6b 65 .\g preshared ke
25c0: 79 20 28 75 6e 63 6c 65 61 72 20 69 66 20 74 68 y (unclear if th
25d0: 61 74 27 73 20 67 6f 69 6e 67 20 74 6f 20 73 74 at's going to st
25e0: 61 79 0a 2b 6e 65 74 32 6f 3a 20 2b 6b 65 79 73 ay.+net2o: +keys
25f0: 69 67 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d ig ( $:string --
2600: 20 29 20 20 24 32 30 20 21 21 3e 3d 6f 72 64 65 ) $20 !!>=orde
2610: 72 3f 20 24 3e 20 6b 65 2d 73 69 67 73 20 24 2b r? $> ke-sigs $+
2620: 5b 5d 21 20 3b 0a 5c 67 20 61 64 64 20 61 20 6b []! ;.\g add a k
2630: 65 79 20 73 69 67 6e 61 74 75 72 65 0a 64 75 70 ey signature.dup
2640: 20 73 65 74 2d 63 75 72 72 65 6e 74 20 70 72 65 set-current pre
2650: 76 69 6f 75 73 0a 0a 67 65 6e 2d 74 61 62 6c 65 vious..gen-table
2660: 20 24 66 72 65 65 7a 65 0a 27 20 63 6f 6e 74 65 $freeze.' conte
2670: 78 74 2d 74 61 62 6c 65 20 69 73 20 67 65 6e 2d xt-table is gen-
2680: 74 61 62 6c 65 0a 0a 3a 6e 6f 6e 61 6d 65 20 28 table..:noname (
2690: 20 61 64 64 72 20 75 20 2d 2d 20 61 64 64 72 20 addr u -- addr
26a0: 75 27 20 66 6c 61 67 20 29 0a 20 20 20 20 70 6b u' flag ). pk
26b0: 32 2d 73 69 67 3f 20 64 75 70 20 30 3d 20 3f 45 2-sig? dup 0= ?E
26c0: 58 49 54 20 64 72 6f 70 0a 20 20 20 20 32 64 75 XIT drop. 2du
26d0: 70 20 2b 20 73 69 67 73 69 7a 65 23 20 2d 20 73 p + sigsize# - s
26e0: 69 67 73 69 7a 65 23 20 3e 24 0a 20 20 20 20 73 igsize# >$. s
26f0: 69 67 70 6b 32 73 69 7a 65 23 20 2d 20 32 64 75 igpk2size# - 2du
2700: 70 20 2b 20 6b 65 79 73 69 7a 65 20 32 2a 20 6b p + keysize 2* k
2710: 65 79 3f 6e 65 77 20 6e 3a 3e 6f 20 24 3e 20 6b ey?new n:>o $> k
2720: 65 2d 73 65 6c 66 73 69 67 20 24 21 0a 20 20 20 e-selfsig $!.
2730: 20 63 2d 73 74 61 74 65 20 6f 66 66 20 74 72 75 c-state off tru
2740: 65 20 3b 20 6b 65 79 2d 65 6e 74 72 79 20 74 6f e ; key-entry to
2750: 20 6e 65 73 74 2d 73 69 67 0a 0a 6b 65 79 2d 65 nest-sig..key-e
2760: 6e 74 72 79 20 27 20 6e 65 77 20 73 74 61 74 69 ntry ' new stati
2770: 63 2d 61 20 77 69 74 68 2d 61 6c 6c 6f 63 61 74 c-a with-allocat
2780: 65 72 20 74 6f 20 73 61 6d 70 6c 65 2d 6b 65 79 er to sample-key
2790: 0a 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20 6b .sample-key >o k
27a0: 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65 20 40 ey-entry-table @
27b0: 20 74 6f 6b 65 6e 2d 74 61 62 6c 65 20 21 20 6f token-table ! o
27c0: 3e 0a 0a 3a 20 6b 65 79 3a 63 6f 64 65 20 28 20 >..: key:code (
27d0: 2d 2d 20 29 0a 20 20 20 20 63 6f 64 65 2d 6b 65 -- ). code-ke
27e0: 79 20 20 63 6d 64 6c 6f 63 6b 20 6c 6f 63 6b 0a y cmdlock lock.
27f0: 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 keypack keyp
2800: 61 63 6b 2d 61 6c 6c 23 20 65 72 61 73 65 0a 20 ack-all# erase.
2810: 20 20 20 63 6d 64 72 65 73 65 74 20 61 6c 73 6f cmdreset also
2820: 20 6e 65 74 32 6f 2d 62 61 73 65 20 3b 0a 63 6f net2o-base ;.co
2830: 6d 70 3a 20 3a 2c 20 61 6c 73 6f 20 6e 65 74 32 mp: :, also net2
2840: 6f 2d 62 61 73 65 20 3b 0a 0a 61 6c 73 6f 20 6e o-base ;..also n
2850: 65 74 32 6f 2d 62 61 73 65 20 64 65 66 69 6e 69 et2o-base defini
2860: 74 69 6f 6e 73 0a 0a 3a 20 65 6e 64 3a 6b 65 79 tions..: end:key
2870: 20 28 20 2d 2d 20 29 0a 20 20 20 20 65 6e 64 77 ( -- ). endw
2880: 69 74 68 20 70 72 65 76 69 6f 75 73 20 63 6d 64 ith previous cmd
2890: 6c 6f 63 6b 20 75 6e 6c 6f 63 6b 20 3b 0a 63 6f lock unlock ;.co
28a0: 6d 70 3a 20 3a 2c 20 70 72 65 76 69 6f 75 73 20 mp: :, previous
28b0: 3b 0a 0a 73 65 74 2d 63 75 72 72 65 6e 74 20 70 ;..set-current p
28c0: 72 65 76 69 6f 75 73 20 70 72 65 76 69 6f 75 73 revious previous
28d0: 0a 0a 3a 20 6b 65 79 2d 63 72 79 70 74 20 28 20 ..: key-crypt (
28e0: 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b -- ). keypack
28f0: 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 0a 20 20 keypack-all#.
2900: 20 20 3e 73 74 6f 72 65 6b 65 79 20 73 65 63 40 >storekey sec@
2910: 20 64 75 70 20 24 32 30 20 75 3c 3d 20 5c 20 69 dup $20 u<= \ i
2920: 73 20 61 20 73 65 63 72 65 74 2c 20 6e 6f 20 6e s a secret, no n
2930: 65 65 64 20 74 6f 20 62 65 20 73 6c 6f 77 0a 20 eed to be slow.
2940: 20 20 20 49 46 20 20 65 6e 63 72 79 70 74 24 20 IF encrypt$
2950: 20 45 4c 53 45 20 20 70 77 2d 6c 65 76 65 6c 23 ELSE pw-level#
2960: 20 65 6e 63 72 79 70 74 2d 70 77 24 20 20 54 48 encrypt-pw$ TH
2970: 45 4e 20 3b 0a 0a 30 20 56 61 6c 75 65 20 6b 65 EN ;..0 Value ke
2980: 79 2d 73 66 64 20 5c 20 73 65 63 72 65 74 20 6b y-sfd \ secret k
2990: 65 79 73 0a 30 20 56 61 6c 75 65 20 6b 65 79 2d eys.0 Value key-
29a0: 70 66 64 20 5c 20 70 75 62 6b 65 79 73 0a 0a 3a pfd \ pubkeys..:
29b0: 20 3f 2e 6e 65 74 32 6f 20 28 20 2d 2d 20 29 0a ?.net2o ( -- ).
29c0: 20 20 20 20 73 22 20 7e 2f 2e 6e 65 74 32 6f 22 s" ~/.net2o"
29d0: 20 72 2f 6f 20 6f 70 65 6e 2d 66 69 6c 65 20 49 r/o open-file I
29e0: 46 0a 09 64 72 6f 70 20 73 22 20 7e 2f 2e 6e 65 F..drop s" ~/.ne
29f0: 74 32 6f 22 20 24 31 43 30 20 6d 6b 64 69 72 2d t2o" $1C0 mkdir-
2a00: 70 61 72 65 6e 74 73 20 74 68 72 6f 77 0a 20 20 parents throw.
2a10: 20 20 45 4c 53 45 0a 09 63 6c 6f 73 65 2d 66 69 ELSE..close-fi
2a20: 6c 65 20 74 68 72 6f 77 0a 20 20 20 20 54 48 45 le throw. THE
2a30: 4e 20 3b 0a 0a 3a 20 3f 66 64 20 28 20 66 64 20 N ;..: ?fd ( fd
2a40: 61 64 64 72 20 75 20 2d 2d 20 66 64 27 20 29 20 addr u -- fd' )
2a50: 7b 20 61 64 64 72 20 75 20 7d 20 64 75 70 20 3f { addr u } dup ?
2a60: 45 58 49 54 20 64 72 6f 70 0a 20 20 20 20 3f 2e EXIT drop. ?.
2a70: 6e 65 74 32 6f 0a 20 20 20 20 61 64 64 72 20 75 net2o. addr u
2a80: 20 72 2f 77 20 6f 70 65 6e 2d 66 69 6c 65 20 64 r/w open-file d
2a90: 75 70 20 2d 35 31 34 20 3d 20 49 46 0a 09 32 64 up -514 = IF..2d
2aa0: 72 6f 70 20 61 64 64 72 20 75 20 72 2f 77 20 63 rop addr u r/w c
2ab0: 72 65 61 74 65 2d 66 69 6c 65 0a 20 20 20 20 54 reate-file. T
2ac0: 48 45 4e 20 20 74 68 72 6f 77 20 3b 0a 3a 20 3f HEN throw ;.: ?
2ad0: 6b 65 79 2d 73 66 64 20 28 20 2d 2d 20 66 64 20 key-sfd ( -- fd
2ae0: 29 20 6b 65 79 2d 73 66 64 20 22 7e 2f 2e 6e 65 ) key-sfd "~/.ne
2af0: 74 32 6f 2f 73 65 63 6b 65 79 73 2e 6b 32 6f 22 t2o/seckeys.k2o"
2b00: 20 3f 66 64 20 64 75 70 20 74 6f 20 6b 65 79 2d ?fd dup to key-
2b10: 73 66 64 20 3b 0a 3a 20 3f 6b 65 79 2d 70 66 64 sfd ;.: ?key-pfd
2b20: 20 28 20 2d 2d 20 66 64 20 29 20 6b 65 79 2d 70 ( -- fd ) key-p
2b30: 66 64 20 22 7e 2f 2e 6e 65 74 32 6f 2f 70 75 62 fd "~/.net2o/pub
2b40: 6b 65 79 73 2e 6b 32 6f 22 20 3f 66 64 20 64 75 keys.k2o" ?fd du
2b50: 70 20 74 6f 20 6b 65 79 2d 70 66 64 20 3b 0a 0a p to key-pfd ;..
2b60: 3a 20 77 72 69 74 65 40 70 6f 73 2d 66 69 6c 65 : write@pos-file
2b70: 20 28 20 61 64 64 72 20 75 20 36 34 70 6f 73 20 ( addr u 64pos
2b80: 66 64 20 2d 2d 20 29 20 3e 72 0a 20 20 20 20 36 fd -- ) >r. 6
2b90: 34 3e 64 20 72 40 20 72 65 70 6f 73 69 74 69 6f 4>d r@ repositio
2ba0: 6e 2d 66 69 6c 65 20 74 68 72 6f 77 0a 20 20 20 n-file throw.
2bb0: 20 72 40 20 77 72 69 74 65 2d 66 69 6c 65 20 74 r@ write-file t
2bc0: 68 72 6f 77 20 72 3e 20 66 6c 75 73 68 2d 66 69 hrow r> flush-fi
2bd0: 6c 65 20 74 68 72 6f 77 20 3b 0a 0a 3a 20 61 70 le throw ;..: ap
2be0: 70 65 6e 64 2d 66 69 6c 65 20 28 20 61 64 64 72 pend-file ( addr
2bf0: 20 75 20 66 64 20 2d 2d 20 29 20 3e 72 0a 20 20 u fd -- ) >r.
2c00: 20 20 72 40 20 66 69 6c 65 2d 73 69 7a 65 20 74 r@ file-size t
2c10: 68 72 6f 77 20 64 3e 36 34 20 72 3e 20 77 72 69 hrow d>64 r> wri
2c20: 74 65 40 70 6f 73 2d 66 69 6c 65 20 3b 0a 0a 3a te@pos-file ;..:
2c30: 20 6b 65 79 3e 73 66 69 6c 65 20 28 20 2d 2d 20 key>sfile ( --
2c40: 29 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 ). keypack ke
2c50: 79 70 61 63 6b 2d 61 6c 6c 23 20 3f 6b 65 79 2d ypack-all# ?key-
2c60: 73 66 64 20 61 70 70 65 6e 64 2d 66 69 6c 65 20 sfd append-file
2c70: 3b 0a 3a 20 6b 65 79 3e 70 66 69 6c 65 20 28 20 ;.: key>pfile (
2c80: 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b -- ). keypack
2c90: 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 3f 6b keypack-all# ?k
2ca0: 65 79 2d 70 66 64 20 61 70 70 65 6e 64 2d 66 69 ey-pfd append-fi
2cb0: 6c 65 20 3b 0a 0a 3a 20 6b 65 79 3e 73 66 69 6c le ;..: key>sfil
2cc0: 65 40 70 6f 73 20 28 20 36 34 70 6f 73 20 2d 2d e@pos ( 64pos --
2cd0: 20 29 20 36 34 3e 72 0a 20 20 20 20 6b 65 79 70 ) 64>r. keyp
2ce0: 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 ack keypack-all#
2cf0: 20 36 34 72 3e 20 3f 6b 65 79 2d 73 66 64 20 77 64r> ?key-sfd w
2d00: 72 69 74 65 40 70 6f 73 2d 66 69 6c 65 20 3b 0a rite@pos-file ;.
2d10: 3a 20 6b 65 79 3e 70 66 69 6c 65 40 70 6f 73 20 : key>pfile@pos
2d20: 28 20 36 34 70 6f 73 20 2d 2d 20 29 20 36 34 3e ( 64pos -- ) 64>
2d30: 72 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 r. keypack ke
2d40: 79 70 61 63 6b 2d 61 6c 6c 23 20 36 34 72 3e 20 ypack-all# 64r>
2d50: 3f 6b 65 79 2d 70 66 64 20 77 72 69 74 65 40 70 ?key-pfd write@p
2d60: 6f 73 2d 66 69 6c 65 20 3b 0a 0a 3a 20 72 6e 64 os-file ;..: rnd
2d70: 3e 73 66 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20 >sfile ( -- ).
2d80: 20 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63 keypack keypac
2d90: 6b 2d 61 6c 6c 23 20 3e 72 6e 67 24 20 6b 65 79 k-all# >rng$ key
2da0: 3e 73 66 69 6c 65 20 3b 0a 3a 20 72 6e 64 3e 70 >sfile ;.: rnd>p
2db0: 66 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 file ( -- ).
2dc0: 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d keypack keypack-
2dd0: 61 6c 6c 23 20 3e 72 6e 67 24 20 6b 65 79 3e 70 all# >rng$ key>p
2de0: 66 69 6c 65 20 3b 0a 0a 3a 20 3e 6b 65 79 73 20 file ;..: >keys
2df0: 28 20 2d 2d 20 29 0a 20 20 20 20 5c 47 20 61 64 ( -- ). \G ad
2e00: 64 20 73 68 61 72 65 64 20 73 65 63 72 65 74 20 d shared secret
2e10: 74 6f 20 6c 69 73 74 20 6f 66 20 70 6f 73 73 69 to list of possi
2e20: 62 6c 65 20 6b 65 79 73 0a 20 20 20 20 73 6b 63 ble keys. skc
2e30: 20 70 6b 63 20 6b 65 79 70 61 64 20 65 64 2d 64 pkc keypad ed-d
2e40: 68 20 2b 6b 65 79 20 3b 0a 0a 5c 20 6b 65 79 20 h +key ;..\ key
2e50: 67 65 6e 65 72 61 74 69 6f 6e 0a 5c 20 66 6f 72 generation.\ for
2e60: 20 72 65 70 72 6f 64 75 63 69 62 69 6c 69 74 79 reproducibility
2e70: 20 6f 66 20 74 68 65 20 73 65 6c 66 73 69 67 2c of the selfsig,
2e80: 20 61 6c 77 61 79 73 20 75 73 65 20 74 68 65 20 always use the
2e90: 73 61 6d 65 20 6f 72 64 65 72 3a 0a 5c 20 22 70 same order:.\ "p
2ea0: 75 62 6b 65 79 22 20 6e 65 77 6b 65 79 20 3c 6e ubkey" newkey <n
2eb0: 3e 20 6b 65 79 74 79 70 65 20 22 6e 69 63 6b 22 > keytype "nick"
2ec0: 20 6b 65 79 6e 69 63 6b 20 22 73 69 67 22 20 6b keynick "sig" k
2ed0: 65 79 73 65 6c 66 73 69 67 0a 0a 55 73 65 72 20 eyselfsig..User
2ee0: 70 6b 2b 73 69 67 24 0a 0a 6b 65 79 73 69 7a 65 pk+sig$..keysize
2ef0: 20 32 2a 20 43 6f 6e 73 74 61 6e 74 20 70 6b 72 2* Constant pkr
2f00: 6b 23 0a 0a 3a 20 5d 70 6b 2b 73 69 67 6e 20 28 k#..: ]pk+sign (
2f10: 20 61 64 64 72 20 75 20 2d 2d 20 29 20 2b 63 6d addr u -- ) +cm
2f20: 64 62 75 66 20 5d 73 69 67 6e 20 3b 0a 0a 3a 20 dbuf ]sign ;..:
2f30: 70 61 63 6b 2d 6b 65 79 20 28 20 74 79 70 65 20 pack-key ( type
2f40: 6e 69 63 6b 20 75 20 2d 2d 20 29 0a 20 20 20 20 nick u -- ).
2f50: 6e 6f 77 3e 6e 65 76 65 72 0a 20 20 20 20 6b 65 now>never. ke
2f60: 79 3a 63 6f 64 65 0a 20 20 20 20 20 20 73 69 67 y:code. sig
2f70: 6e 5b 0a 20 20 20 20 20 20 72 6f 74 20 75 6c 69 n[. rot uli
2f80: 74 2c 20 6b 65 79 74 79 70 65 20 24 2c 20 6b 65 t, keytype $, ke
2f90: 79 6e 69 63 6b 0a 20 20 20 20 20 20 70 6b 63 20 ynick. pkc
2fa0: 70 6b 72 6b 23 20 5d 70 6b 2b 73 69 67 6e 0a 20 pkrk# ]pk+sign.
2fb0: 20 20 20 20 20 73 6b 63 20 6b 65 79 73 69 7a 65 skc keysize
2fc0: 20 24 2c 20 70 72 69 76 6b 65 79 0a 20 20 20 20 $, privkey.
2fd0: 65 6e 64 3a 6b 65 79 20 3b 0a 0a 61 6c 73 6f 20 end:key ;..also
2fe0: 6e 65 74 32 6f 2d 62 61 73 65 0a 3a 20 70 61 63 net2o-base.: pac
2ff0: 6b 2d 63 6f 72 65 6b 65 79 20 28 20 6f 3a 6b 65 k-corekey ( o:ke
3000: 79 20 2d 2d 20 29 0a 20 20 20 20 73 69 67 6e 5b y -- ). sign[
3010: 0a 20 20 20 20 6b 65 2d 74 79 70 65 20 40 20 75 . ke-type @ u
3020: 6c 69 74 2c 20 6b 65 79 74 79 70 65 0a 20 20 20 lit, keytype.
3030: 20 6b 65 2d 6e 69 63 6b 20 24 40 20 24 2c 20 6b ke-nick $@ $, k
3040: 65 79 6e 69 63 6b 0a 20 20 20 20 6b 65 2d 70 73 eynick. ke-ps
3050: 6b 20 73 65 63 40 20 64 75 70 20 49 46 20 20 24 k sec@ dup IF $
3060: 2c 20 6b 65 79 70 73 6b 20 20 45 4c 53 45 20 20 , keypsk ELSE
3070: 32 64 72 6f 70 20 20 54 48 45 4e 0a 20 20 20 20 2drop THEN.
3080: 6b 65 2d 70 72 6f 66 20 24 40 20 64 75 70 20 49 ke-prof $@ dup I
3090: 46 20 20 24 2c 20 6b 65 79 70 72 6f 66 69 6c 65 F $, keyprofile
30a0: 20 20 45 4c 53 45 20 20 32 64 72 6f 70 20 20 54 ELSE 2drop T
30b0: 48 45 4e 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 HEN. ke-pk $@
30c0: 20 2b 63 6d 64 62 75 66 0a 20 20 20 20 6b 65 2d +cmdbuf. ke-
30d0: 73 65 6c 66 73 69 67 20 24 40 20 2b 63 6d 64 62 selfsig $@ +cmdb
30e0: 75 66 20 63 6d 64 2d 72 65 73 6f 6c 76 65 3e 20 uf cmd-resolve>
30f0: 32 64 72 6f 70 20 6e 65 73 74 73 69 67 0a 20 20 2drop nestsig.
3100: 20 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20 40 20 ke-storekey @
3110: 3e 73 74 6f 72 65 6b 65 79 20 21 20 3b 0a 70 72 >storekey ! ;.pr
3120: 65 76 69 6f 75 73 0a 0a 3a 20 70 61 63 6b 2d 70 evious..: pack-p
3130: 75 62 6b 65 79 20 28 20 6f 3a 6b 65 79 20 2d 2d ubkey ( o:key --
3140: 20 29 0a 20 20 20 20 6b 65 79 3a 63 6f 64 65 0a ). key:code.
3150: 20 20 20 20 20 20 70 61 63 6b 2d 63 6f 72 65 6b pack-corek
3160: 65 79 0a 20 20 20 20 65 6e 64 3a 6b 65 79 20 3b ey. end:key ;
3170: 0a 3a 20 70 61 63 6b 2d 73 65 63 6b 65 79 20 28 .: pack-seckey (
3180: 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 o:key -- ).
3190: 6b 65 79 3a 63 6f 64 65 0a 20 20 20 20 20 20 70 key:code. p
31a0: 61 63 6b 2d 63 6f 72 65 6b 65 79 0a 20 20 20 20 ack-corekey.
31b0: 20 20 6b 65 2d 73 6b 20 73 65 63 40 20 24 2c 20 ke-sk sec@ $,
31c0: 70 72 69 76 6b 65 79 0a 20 20 20 20 65 6e 64 3a privkey. end:
31d0: 6b 65 79 20 3b 0a 0a 3a 20 3e 62 61 63 6b 75 70 key ;..: >backup
31e0: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 ( addr u -- ).
31f0: 20 20 20 32 64 75 70 20 32 64 75 70 20 5b 3a 20 2dup 2dup [:
3200: 74 79 70 65 20 27 7e 27 20 65 6d 69 74 20 3b 5d type '~' emit ;]
3210: 20 24 74 6d 70 20 72 65 6e 61 6d 65 2d 66 69 6c $tmp rename-fil
3220: 65 20 74 68 72 6f 77 0a 20 20 20 20 32 64 75 70 e throw. 2dup
3230: 20 5b 3a 20 74 79 70 65 20 27 2b 27 20 65 6d 69 [: type '+' emi
3240: 74 20 3b 5d 20 24 74 6d 70 20 32 73 77 61 70 20 t ;] $tmp 2swap
3250: 72 65 6e 61 6d 65 2d 66 69 6c 65 20 74 68 72 6f rename-file thro
3260: 77 20 3b 0a 0a 56 61 72 69 61 62 6c 65 20 63 70 w ;..Variable cp
3270: 2d 74 6d 70 0a 0a 3a 20 73 61 76 65 2d 70 75 62 -tmp..: save-pub
3280: 6b 65 79 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 keys ( -- ).
3290: 6b 65 79 2d 70 66 64 20 3f 64 75 70 2d 49 46 0a key-pfd ?dup-IF.
32a0: 09 64 75 70 20 30 2e 20 72 6f 74 20 72 65 70 6f .dup 0. rot repo
32b0: 73 69 74 69 6f 6e 2d 66 69 6c 65 20 74 68 72 6f sition-file thro
32c0: 77 0a 09 64 75 70 20 63 70 2d 74 6d 70 20 24 73 w..dup cp-tmp $s
32d0: 6c 75 72 70 20 63 6c 6f 73 65 2d 66 69 6c 65 20 lurp close-file
32e0: 74 68 72 6f 77 20 20 54 48 45 4e 0a 20 20 20 20 throw THEN.
32f0: 30 20 22 7e 2f 2e 6e 65 74 32 6f 2f 70 75 62 6b 0 "~/.net2o/pubk
3300: 65 79 73 2e 6b 32 6f 2b 22 20 3f 66 64 20 74 6f eys.k2o+" ?fd to
3310: 20 6b 65 79 2d 70 66 64 0a 20 20 20 20 63 70 2d key-pfd. cp-
3320: 74 6d 70 20 24 40 20 6b 65 79 2d 70 66 64 20 77 tmp $@ key-pfd w
3330: 72 69 74 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 rite-file throw
3340: 63 70 2d 74 6d 70 20 24 6f 66 66 0a 20 20 20 20 cp-tmp $off.
3350: 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c key-table [: cel
3360: 6c 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b l+ $@ drop cell+
3370: 20 3e 6f 0a 20 20 20 20 20 20 6b 65 2d 73 6b 20 >o. ke-sk
3380: 73 65 63 40 20 64 30 3d 20 49 46 20 20 70 61 63 sec@ d0= IF pac
3390: 6b 2d 70 75 62 6b 65 79 0a 09 20 20 66 6c 75 73 k-pubkey.. flus
33a0: 68 28 20 2e 22 20 73 61 76 69 6e 67 20 22 20 6b h( ." saving " k
33b0: 65 2d 6e 69 63 6b 20 24 40 20 74 79 70 65 20 66 e-nick $@ type f
33c0: 6f 72 74 68 3a 63 72 20 29 0a 09 20 20 6b 65 79 orth:cr ).. key
33d0: 2d 63 72 79 70 74 20 6b 65 2d 6f 66 66 73 65 74 -crypt ke-offset
33e0: 20 36 34 40 20 6b 65 79 3e 70 66 69 6c 65 40 70 64@ key>pfile@p
33f0: 6f 73 0a 20 20 20 20 20 20 54 48 45 4e 20 6f 3e os. THEN o>
3400: 20 3b 5d 20 23 6d 61 70 0a 20 20 20 20 6b 65 79 ;] #map. key
3410: 2d 70 66 64 20 63 6c 6f 73 65 2d 66 69 6c 65 20 -pfd close-file
3420: 74 68 72 6f 77 0a 20 20 20 20 22 7e 2f 2e 6e 65 throw. "~/.ne
3430: 74 32 6f 2f 70 75 62 6b 65 79 73 2e 6b 32 6f 22 t2o/pubkeys.k2o"
3440: 20 3e 62 61 63 6b 75 70 0a 20 20 20 20 30 20 74 >backup. 0 t
3450: 6f 20 6b 65 79 2d 70 66 64 20 3b 0a 0a 3a 20 73 o key-pfd ;..: s
3460: 61 76 65 2d 73 65 63 6b 65 79 73 20 28 20 2d 2d ave-seckeys ( --
3470: 20 29 0a 20 20 20 20 6b 65 79 2d 73 66 64 20 3f ). key-sfd ?
3480: 64 75 70 2d 49 46 0a 09 64 75 70 20 30 2e 20 72 dup-IF..dup 0. r
3490: 6f 74 20 72 65 70 6f 73 69 74 69 6f 6e 2d 66 69 ot reposition-fi
34a0: 6c 65 20 74 68 72 6f 77 0a 09 64 75 70 20 63 70 le throw..dup cp
34b0: 2d 74 6d 70 20 24 73 6c 75 72 70 20 63 6c 6f 73 -tmp $slurp clos
34c0: 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 20 54 48 e-file throw TH
34d0: 45 4e 0a 20 20 20 20 30 20 22 7e 2f 2e 6e 65 74 EN. 0 "~/.net
34e0: 32 6f 2f 73 65 63 6b 65 79 73 2e 6b 32 6f 2b 22 2o/seckeys.k2o+"
34f0: 20 3f 66 64 20 74 6f 20 6b 65 79 2d 73 66 64 0a ?fd to key-sfd.
3500: 20 20 20 20 63 70 2d 74 6d 70 20 24 40 20 6b 65 cp-tmp $@ ke
3510: 79 2d 73 66 64 20 77 72 69 74 65 2d 66 69 6c 65 y-sfd write-file
3520: 20 74 68 72 6f 77 20 63 70 2d 74 6d 70 20 24 6f throw cp-tmp $o
3530: 66 66 0a 20 20 20 20 6b 65 79 2d 74 61 62 6c 65 ff. key-table
3540: 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f [: cell+ $@ dro
3550: 70 20 63 65 6c 6c 2b 20 3e 6f 0a 20 20 20 20 20 p cell+ >o.
3560: 20 6b 65 2d 73 6b 20 73 65 63 40 20 64 30 3c 3e ke-sk sec@ d0<>
3570: 20 49 46 20 20 70 61 63 6b 2d 73 65 63 6b 65 79 IF pack-seckey
3580: 0a 09 20 20 6b 65 79 2d 63 72 79 70 74 20 6b 65 .. key-crypt ke
3590: 2d 6f 66 66 73 65 74 20 36 34 40 20 6b 65 79 3e -offset 64@ key>
35a0: 73 66 69 6c 65 40 70 6f 73 0a 20 20 20 20 20 20 sfile@pos.
35b0: 54 48 45 4e 20 6f 3e 20 3b 5d 20 23 6d 61 70 0a THEN o> ;] #map.
35c0: 20 20 20 20 22 7e 2f 2e 6e 65 74 32 6f 2f 73 65 "~/.net2o/se
35d0: 63 6b 65 79 73 2e 6b 32 6f 22 20 3e 62 61 63 6b ckeys.k2o" >back
35e0: 75 70 0a 20 20 20 20 6b 65 79 2d 73 66 64 20 63 up. key-sfd c
35f0: 6c 6f 73 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 lose-file throw
3600: 30 20 74 6f 20 6b 65 79 2d 73 66 64 20 3b 0a 0a 0 to key-sfd ;..
3610: 3a 20 73 61 76 65 2d 6b 65 79 73 20 28 20 2d 2d : save-keys ( --
3620: 20 29 0a 20 20 20 20 73 61 76 65 2d 70 75 62 6b ). save-pubk
3630: 65 79 73 20 73 61 76 65 2d 73 65 63 6b 65 79 73 eys save-seckeys
3640: 20 3b 0a 0a 3a 20 2b 67 65 6e 2d 6b 65 79 73 20 ;..: +gen-keys
3650: 28 20 6e 69 63 6b 20 75 20 74 79 70 65 20 2d 2d ( nick u type --
3660: 20 29 20 2d 72 6f 74 0a 20 20 20 20 67 65 6e 2d ) -rot. gen-
3670: 6b 65 79 73 20 3e 6b 65 79 73 20 70 61 63 6b 2d keys >keys pack-
3680: 6b 65 79 20 6b 65 79 2d 63 72 79 70 74 20 6b 65 key key-crypt ke
3690: 79 3e 73 66 69 6c 65 20 3b 0a 0a 3a 20 2b 6b 65 y>sfile ;..: +ke
36a0: 79 70 61 69 72 20 28 20 74 79 70 65 20 6e 69 63 ypair ( type nic
36b0: 6b 20 75 20 2d 2d 20 29 20 2b 70 61 73 73 70 68 k u -- ) +passph
36c0: 72 61 73 65 20 2b 67 65 6e 2d 6b 65 79 73 20 3b rase +gen-keys ;
36d0: 0a 0a 3a 20 2e 72 76 6b 20 2e 22 20 50 6c 65 61 ..: .rvk ." Plea
36e0: 73 65 20 77 72 69 74 65 20 64 6f 77 6e 20 72 65 se write down re
36f0: 76 6f 6b 65 20 6b 65 79 3a 20 22 20 63 72 0a 20 voke key: " cr.
3700: 20 20 20 73 6b 72 65 76 20 24 32 30 20 62 6f 75 skrev $20 bou
3710: 6e 64 73 20 44 4f 20 20 2e 22 20 5c 20 22 20 49 nds DO ." \ " I
3720: 20 34 20 38 35 74 79 70 65 20 73 70 61 63 65 20 4 85type space
3730: 49 20 34 20 2b 20 34 20 38 35 74 79 70 65 20 63 I 4 + 4 85type c
3740: 72 20 38 20 2b 4c 4f 4f 50 20 3b 0a 0a 24 34 30 r 8 +LOOP ;..$40
3750: 20 62 75 66 66 65 72 3a 20 6e 69 63 6b 2d 62 75 buffer: nick-bu
3760: 66 0a 0a 3a 20 6d 61 6b 65 2d 6b 65 79 20 28 20 f..: make-key (
3770: 2d 2d 20 29 0a 20 20 20 20 6b 65 79 23 75 73 65 -- ). key#use
3780: 72 20 2e 22 20 6e 69 63 6b 3a 20 22 20 6e 69 63 r ." nick: " nic
3790: 6b 2d 62 75 66 20 24 34 30 20 61 63 63 65 70 74 k-buf $40 accept
37a0: 20 6e 69 63 6b 2d 62 75 66 20 73 77 61 70 20 63 nick-buf swap c
37b0: 72 0a 20 20 20 20 2e 22 20 70 61 73 73 70 68 72 r. ." passphr
37c0: 61 73 65 3a 20 22 20 2b 70 61 73 73 70 68 72 61 ase: " +passphra
37d0: 73 65 20 6b 65 79 3e 64 65 66 61 75 6c 74 0a 20 se key>default.
37e0: 20 20 20 63 72 20 2b 67 65 6e 2d 6b 65 79 73 20 cr +gen-keys
37f0: 2e 72 76 6b 20 3b 0a 0a 5c 20 72 65 61 64 20 6b .rvk ;..\ read k
3800: 65 79 20 66 69 6c 65 0a 0a 3a 20 74 72 79 2d 64 ey file..: try-d
3810: 65 63 72 79 70 74 2d 6b 65 79 20 28 20 6b 65 79 ecrypt-key ( key
3820: 20 75 31 20 2d 2d 20 61 64 64 72 20 75 32 20 66 u1 -- addr u2 f
3830: 6c 61 67 20 29 0a 20 20 20 20 6b 65 79 70 61 63 lag ). keypac
3840: 6b 20 6b 65 79 70 61 63 6b 2d 64 20 6b 65 79 70 k keypack-d keyp
3850: 61 63 6b 2d 61 6c 6c 23 20 6d 6f 76 65 0a 20 20 ack-all# move.
3860: 20 20 6b 65 79 70 61 63 6b 2d 64 20 6b 65 79 70 keypack-d keyp
3870: 61 63 6b 2d 61 6c 6c 23 20 32 73 77 61 70 0a 20 ack-all# 2swap.
3880: 20 20 20 64 75 70 20 24 32 30 20 3d 20 49 46 20 dup $20 = IF
3890: 20 64 65 63 72 79 70 74 24 20 20 45 4c 53 45 0a decrypt$ ELSE.
38a0: 09 6b 65 79 70 61 63 6b 20 63 40 20 24 46 20 61 .keypack c@ $F a
38b0: 6e 64 20 70 77 2d 6c 65 76 65 6c 23 20 3c 3d 20 nd pw-level# <=
38c0: 49 46 20 20 64 65 63 72 79 70 74 2d 70 77 24 0a IF decrypt-pw$.
38d0: 09 45 4c 53 45 20 20 32 64 72 6f 70 20 66 61 6c .ELSE 2drop fal
38e0: 73 65 20 20 54 48 45 4e 0a 20 20 20 20 54 48 45 se THEN. THE
38f0: 4e 20 3b 0a 0a 3a 20 74 72 79 2d 64 65 63 72 79 N ;..: try-decry
3900: 70 74 20 28 20 2d 2d 20 61 64 64 72 20 75 20 2f pt ( -- addr u /
3910: 20 30 20 30 20 29 0a 20 20 20 20 6b 65 79 73 20 0 0 ). keys
3920: 24 5b 5d 23 20 30 20 3f 44 4f 0a 09 49 20 6b 65 $[]# 0 ?DO..I ke
3930: 79 73 20 73 65 63 5b 5d 40 20 74 72 79 2d 64 65 ys sec[]@ try-de
3940: 63 72 79 70 74 2d 6b 65 79 20 49 46 0a 09 20 20 crypt-key IF..
3950: 20 20 49 20 6b 65 79 73 20 24 5b 5d 20 40 20 3e I keys $[] @ >
3960: 73 74 6f 72 65 6b 65 79 20 21 20 75 6e 6c 6f 6f storekey ! unloo
3970: 70 20 20 45 58 49 54 20 20 54 48 45 4e 0a 09 32 p EXIT THEN..2
3980: 64 72 6f 70 0a 20 20 20 20 4c 4f 4f 50 20 20 30 drop. LOOP 0
3990: 20 30 20 3b 0a 0a 3a 20 64 6f 2d 6b 65 79 20 28 0 ;..: do-key (
39a0: 20 61 64 64 72 20 75 20 2f 20 30 20 30 20 20 2d addr u / 0 0 -
39b0: 2d 20 29 0a 20 20 20 20 64 75 70 20 30 3d 20 49 - ). dup 0= I
39c0: 46 20 20 32 64 72 6f 70 20 20 45 58 49 54 20 20 F 2drop EXIT
39d0: 54 48 45 4e 0a 20 20 20 20 73 61 6d 70 6c 65 2d THEN. sample-
39e0: 6b 65 79 20 2e 64 6f 2d 63 6d 64 2d 6c 6f 6f 70 key .do-cmd-loop
39f0: 20 3b 0a 0a 3a 20 72 65 61 64 2d 6b 65 79 73 2d ;..: read-keys-
3a00: 6c 6f 6f 70 20 28 20 66 64 20 2d 2d 20 29 20 20 loop ( fd -- )
3a10: 63 6f 64 65 2d 6b 65 79 0a 20 20 20 20 3e 72 20 code-key. >r
3a20: 30 2e 20 72 40 20 72 65 70 6f 73 69 74 69 6f 6e 0. r@ reposition
3a30: 2d 66 69 6c 65 20 74 68 72 6f 77 0a 20 20 20 20 -file throw.
3a40: 42 45 47 49 4e 0a 09 72 40 20 66 69 6c 65 2d 70 BEGIN..r@ file-p
3a50: 6f 73 69 74 69 6f 6e 20 74 68 72 6f 77 20 64 3e osition throw d>
3a60: 36 34 20 6b 65 79 2d 72 65 61 64 2d 6f 66 66 73 64 key-read-offs
3a70: 65 74 20 36 34 21 0a 09 6b 65 79 70 61 63 6b 20 et 64!..keypack
3a80: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 72 40 20 keypack-all# r@
3a90: 72 65 61 64 2d 66 69 6c 65 20 74 68 72 6f 77 0a read-file throw.
3aa0: 09 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 3d 20 .keypack-all# =
3ab0: 57 48 49 4c 45 20 20 74 72 79 2d 64 65 63 72 79 WHILE try-decry
3ac0: 70 74 20 64 6f 2d 6b 65 79 0a 20 20 20 20 52 45 pt do-key. RE
3ad0: 50 45 41 54 20 20 72 64 72 6f 70 20 20 63 6f 64 PEAT rdrop cod
3ae0: 65 30 2d 62 75 66 20 3b 0a 3a 20 72 65 61 64 2d e0-buf ;.: read-
3af0: 6b 65 79 2d 6c 6f 6f 70 20 28 20 2d 2d 20 29 20 key-loop ( -- )
3b00: 3f 6b 65 79 2d 73 66 64 20 72 65 61 64 2d 6b 65 ?key-sfd read-ke
3b10: 79 73 2d 6c 6f 6f 70 20 3b 0a 3a 20 72 65 61 64 ys-loop ;.: read
3b20: 2d 70 6b 65 79 2d 6c 6f 6f 70 20 28 20 2d 2d 20 -pkey-loop ( --
3b30: 29 20 70 77 2d 6c 65 76 65 6c 23 20 3e 72 20 2d ) pw-level# >r -
3b40: 31 20 74 6f 20 70 77 2d 6c 65 76 65 6c 23 0a 20 1 to pw-level#.
3b50: 20 20 20 3f 6b 65 79 2d 70 66 64 20 72 65 61 64 ?key-pfd read
3b60: 2d 6b 65 79 73 2d 6c 6f 6f 70 20 72 3e 20 74 6f -keys-loop r> to
3b70: 20 70 77 2d 6c 65 76 65 6c 23 20 3b 0a 0a 3a 20 pw-level# ;..:
3b80: 72 65 61 64 2d 6b 65 79 73 20 28 20 2d 2d 20 29 read-keys ( -- )
3b90: 0a 20 20 20 20 72 65 61 64 2d 6b 65 79 2d 6c 6f . read-key-lo
3ba0: 6f 70 20 72 65 61 64 2d 70 6b 65 79 2d 6c 6f 6f op read-pkey-loo
3bb0: 70 20 3b 0a 0a 5c 20 73 65 6c 65 63 74 20 6b 65 p ;..\ select ke
3bc0: 79 20 62 79 20 6e 69 63 6b 0a 0a 3a 20 3e 72 61 y by nick..: >ra
3bd0: 77 2d 6b 65 79 20 28 20 6f 20 2d 2d 20 29 0a 20 w-key ( o -- ).
3be0: 20 20 20 64 75 70 20 30 3d 20 21 21 6e 6f 2d 6e dup 0= !!no-n
3bf0: 69 63 6b 21 21 20 3e 6f 0a 20 20 20 20 6b 65 2d ick!! >o. ke-
3c00: 70 6b 20 24 40 20 70 6b 63 20 73 77 61 70 20 70 pk $@ pkc swap p
3c10: 6b 72 6b 23 20 75 6d 69 6e 20 6d 6f 76 65 0a 20 krk# umin move.
3c20: 20 20 20 6b 65 2d 70 73 6b 20 73 65 63 40 20 6d ke-psk sec@ m
3c30: 79 2d 30 6b 65 79 20 73 65 63 21 0a 20 20 20 20 y-0key sec!.
3c40: 6b 65 2d 73 6b 20 73 65 63 40 20 73 6b 63 20 73 ke-sk sec@ skc s
3c50: 77 61 70 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e wap keysize umin
3c60: 20 6d 6f 76 65 0a 20 20 20 20 3e 73 6b 73 69 67 move. >sksig
3c70: 20 6f 3e 20 3b 0a 0a 3a 20 3e 6b 65 79 20 28 20 o> ;..: >key (
3c80: 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 addr u -- ).
3c90: 6b 65 79 2d 74 61 62 6c 65 20 40 20 30 3d 20 49 key-table @ 0= I
3ca0: 46 20 20 72 65 61 64 2d 6b 65 79 73 20 20 54 48 F read-keys TH
3cb0: 45 4e 0a 20 20 20 20 6e 69 63 6b 2d 6b 65 79 20 EN. nick-key
3cc0: 3e 72 61 77 2d 6b 65 79 20 3b 0a 0a 3a 20 69 27 >raw-key ;..: i'
3cd0: 6d 20 28 20 22 6e 61 6d 65 22 20 2d 2d 20 29 20 m ( "name" -- )
3ce0: 70 61 72 73 65 2d 6e 61 6d 65 20 3e 6b 65 79 20 parse-name >key
3cf0: 3b 0a 3a 20 70 6b 27 20 28 20 22 6e 61 6d 65 22 ;.: pk' ( "name"
3d00: 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 -- addr u ).
3d10: 20 70 61 72 73 65 2d 6e 61 6d 65 20 6e 69 63 6b parse-name nick
3d20: 3e 70 6b 20 3b 0a 0a 3a 20 64 65 73 74 2d 6b 65 >pk ;..: dest-ke
3d30: 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 y ( addr u -- )
3d40: 64 75 70 20 30 3d 20 49 46 20 20 32 64 72 6f 70 dup 0= IF 2drop
3d50: 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 EXIT THEN.
3d60: 20 6e 69 63 6b 2d 6b 65 79 20 3e 6f 20 6f 20 30 nick-key >o o 0
3d70: 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 = !!unknown-key!
3d80: 21 0a 20 20 20 20 6b 65 2d 70 73 6b 20 73 65 63 !. ke-psk sec
3d90: 40 20 73 74 61 74 65 23 20 75 6d 69 6e 0a 20 20 @ state# umin.
3da0: 20 20 6b 65 2d 70 6b 20 24 40 20 6b 65 79 73 69 ke-pk $@ keysi
3db0: 7a 65 20 75 6d 69 6e 20 6f 3e 0a 20 20 20 20 70 ze umin o>. p
3dc0: 75 62 6b 65 79 20 24 21 20 20 64 65 73 74 2d 30 ubkey $! dest-0
3dd0: 6b 65 79 20 73 65 63 21 20 3b 0a 0a 3a 20 72 65 key sec! ;..: re
3de0: 70 6c 61 63 65 2d 6b 65 79 20 31 20 2f 73 74 72 place-key 1 /str
3df0: 69 6e 67 20 7b 20 72 65 76 2d 61 64 64 72 20 75 ing { rev-addr u
3e00: 20 2d 2d 20 6f 20 7d 20 5c 20 72 65 76 6f 63 61 -- o } \ revoca
3e10: 74 69 6f 6e 20 74 69 63 6b 65 74 0a 20 20 20 20 tion ticket.
3e20: 6b 65 79 28 20 2e 22 20 52 65 70 6c 61 63 65 3a key( ." Replace:
3e30: 22 20 63 72 20 6f 20 63 65 6c 6c 2d 20 30 20 2e " cr o cell- 0 .
3e40: 6b 65 79 20 29 0a 20 20 20 20 73 22 20 23 72 65 key ). s" #re
3e50: 76 6f 6b 65 64 22 20 64 75 70 20 3e 72 20 6b 65 voked" dup >r ke
3e60: 2d 6e 69 63 6b 20 24 2b 21 0a 20 20 20 20 6b 65 -nick $+!. ke
3e70: 2d 6e 69 63 6b 20 24 40 20 72 3e 20 2d 20 6b 65 -nick $@ r> - ke
3e80: 2d 70 72 6f 66 20 24 40 20 6b 65 2d 70 73 6b 20 -prof $@ ke-psk
3e90: 73 65 63 40 20 6b 65 2d 73 69 67 73 20 6b 65 2d sec@ ke-sigs ke-
3ea0: 74 79 70 65 20 40 0a 20 20 20 20 72 65 76 2d 61 type @. rev-a
3eb0: 64 64 72 20 70 6b 72 6b 23 20 6b 65 79 3f 6e 65 ddr pkrk# key?ne
3ec0: 77 20 3e 6f 0a 20 20 20 20 6b 65 2d 74 79 70 65 w >o. ke-type
3ed0: 20 21 20 5b 3a 20 6b 65 2d 73 69 67 73 20 24 2b ! [: ke-sigs $+
3ee0: 5b 5d 21 20 3b 5d 20 24 5b 5d 6d 61 70 20 6b 65 []! ;] $[]map ke
3ef0: 2d 70 73 6b 20 73 65 63 21 20 6b 65 2d 70 72 6f -psk sec! ke-pro
3f00: 66 20 24 21 20 6b 65 2d 6e 69 63 6b 20 24 21 0a f $! ke-nick $!.
3f10: 20 20 20 20 72 65 76 2d 61 64 64 72 20 70 6b 72 rev-addr pkr
3f20: 6b 23 20 6b 65 2d 70 6b 20 24 21 0a 20 20 20 20 k# ke-pk $!.
3f30: 72 65 76 2d 61 64 64 72 20 75 20 2b 20 31 2d 20 rev-addr u + 1-
3f40: 64 75 70 20 63 40 20 32 2a 20 2d 20 24 31 30 20 dup c@ 2* - $10
3f50: 2d 20 24 31 30 20 6b 65 2d 73 65 6c 66 73 69 67 - $10 ke-selfsig
3f60: 20 24 21 0a 20 20 20 20 6b 65 79 28 20 2e 22 20 $!. key( ."
3f70: 77 69 74 68 3a 22 20 63 72 20 6f 20 63 65 6c 6c with:" cr o cell
3f80: 2d 20 30 20 2e 6b 65 79 20 29 20 6f 20 6f 3e 20 - 0 .key ) o o>
3f90: 3b 0a 0a 3a 20 72 65 6e 65 77 2d 6b 65 79 20 28 ;..: renew-key (
3fa0: 20 72 65 76 61 64 64 72 20 75 31 20 6b 65 79 61 revaddr u1 keya
3fb0: 64 64 72 20 75 32 20 2d 2d 20 6f 20 29 0a 20 20 ddr u2 -- o ).
3fc0: 20 20 63 75 72 72 65 6e 74 2d 6b 65 79 20 3e 6f current-key >o
3fd0: 20 72 65 70 6c 61 63 65 2d 6b 65 79 20 6f 3e 0a replace-key o>.
3fe0: 20 20 20 20 3e 6f 20 73 6b 63 20 6b 65 79 73 69 >o skc keysi
3ff0: 7a 65 20 6b 65 2d 73 6b 20 73 65 63 21 20 6f 20 ze ke-sk sec! o
4000: 6f 3e 20 3b 0a 0a 5c 20 72 65 76 6f 6b 61 74 69 o> ;..\ revokati
4010: 6f 6e 0a 0a 34 20 64 61 74 65 73 69 7a 65 23 20 on..4 datesize#
4020: 2b 20 6b 65 79 73 69 7a 65 20 39 20 2a 20 2b 20 + keysize 9 * +
4030: 43 6f 6e 73 74 61 6e 74 20 72 65 76 73 69 7a 65 Constant revsize
4040: 23 0a 0a 56 61 72 69 61 62 6c 65 20 72 65 76 74 #..Variable revt
4050: 6f 6b 65 6e 0a 0a 3a 20 30 6f 6c 64 6b 65 79 20 oken..: 0oldkey
4060: 28 20 2d 2d 20 29 20 5c 20 70 75 62 6b 65 79 73 ( -- ) \ pubkeys
4070: 20 63 61 6e 20 73 74 61 79 0a 20 20 20 20 6f 6c can stay. ol
4080: 64 73 6b 63 20 6b 65 79 73 69 7a 65 20 65 72 61 dskc keysize era
4090: 73 65 20 20 6f 6c 64 73 6b 72 65 76 20 6b 65 79 se oldskrev key
40a0: 73 69 7a 65 20 65 72 61 73 65 20 3b 0a 0a 3a 20 size erase ;..:
40b0: 6b 65 79 6d 6f 76 65 20 28 20 61 64 64 72 31 20 keymove ( addr1
40c0: 61 64 64 72 32 20 2d 2d 20 29 20 20 6b 65 79 73 addr2 -- ) keys
40d0: 69 7a 65 20 6d 6f 76 65 20 3b 0a 0a 3a 20 72 65 ize move ;..: re
40e0: 76 6f 6b 65 2d 76 65 72 69 66 79 20 28 20 61 64 voke-verify ( ad
40f0: 64 72 20 75 31 20 70 6b 20 73 74 72 69 6e 67 20 dr u1 pk string
4100: 75 32 20 2d 2d 20 61 64 64 72 20 75 20 66 6c 61 u2 -- addr u fla
4110: 67 20 29 20 72 6f 74 20 3e 72 20 32 3e 72 20 63 g ) rot >r 2>r c
4120: 3a 30 6b 65 79 0a 20 20 20 20 73 69 67 6f 6e 6c :0key. sigonl
4130: 79 73 69 7a 65 23 20 2d 20 32 64 75 70 20 32 72 ysize# - 2dup 2r
4140: 3e 20 3e 6b 65 79 65 64 2d 68 61 73 68 0a 20 20 > >keyed-hash.
4150: 20 20 73 69 67 64 61 74 65 20 2b 64 61 74 65 0a sigdate +date.
4160: 20 20 20 20 32 64 75 70 20 2b 20 72 3e 20 65 64 2dup + r> ed
4170: 2d 76 65 72 69 66 79 20 3b 0a 0a 3a 20 3e 72 65 -verify ;..: >re
4180: 76 6f 6b 65 20 28 20 73 6b 72 65 76 20 2d 2d 20 voke ( skrev --
4190: 29 20 20 73 6b 72 65 76 20 6b 65 79 6d 6f 76 65 ) skrev keymove
41a0: 20 20 63 68 65 63 6b 2d 72 65 76 3f 20 30 3d 20 check-rev? 0=
41b0: 21 21 6e 6f 74 2d 6d 79 2d 72 65 76 73 6b 21 21 !!not-my-revsk!!
41c0: 20 3b 0a 0a 3a 20 2b 72 65 76 73 69 67 6e 20 28 ;..: +revsign (
41d0: 20 73 6b 20 70 6b 20 2d 2d 20 29 20 20 73 6b 73 sk pk -- ) sks
41e0: 69 67 20 2d 72 6f 74 20 65 64 2d 73 69 67 6e 20 ig -rot ed-sign
41f0: 72 65 76 74 6f 6b 65 6e 20 24 2b 21 20 62 6c 20 revtoken $+! bl
4200: 72 65 76 74 6f 6b 65 6e 20 63 24 2b 21 20 3b 0a revtoken c$+! ;.
4210: 0a 3a 20 73 69 67 6e 2d 74 6f 6b 65 6e 2c 20 28 .: sign-token, (
4220: 20 73 6b 20 70 6b 20 73 74 72 69 6e 67 20 75 32 sk pk string u2
4230: 20 2d 2d 20 29 0a 20 20 20 20 63 3a 30 6b 65 79 -- ). c:0key
4240: 20 72 65 76 74 6f 6b 65 6e 20 24 40 20 32 73 77 revtoken $@ 2sw
4250: 61 70 20 3e 6b 65 79 65 64 2d 68 61 73 68 0a 20 ap >keyed-hash.
4260: 20 20 20 73 69 67 64 61 74 65 20 2b 64 61 74 65 sigdate +date
4270: 20 2b 72 65 76 73 69 67 6e 20 3b 0a 0a 3a 20 72 +revsign ;..: r
4280: 65 76 6f 6b 65 2d 6b 65 79 20 28 20 2d 2d 20 61 evoke-key ( -- a
4290: 64 64 72 20 75 20 29 0a 20 20 20 20 73 6b 63 20 ddr u ). skc
42a0: 6f 6c 64 73 6b 63 20 6b 65 79 6d 6f 76 65 20 20 oldskc keymove
42b0: 70 6b 63 20 6f 6c 64 70 6b 63 20 6b 65 79 6d 6f pkc oldpkc keymo
42c0: 76 65 20 20 73 6b 72 65 76 20 6f 6c 64 73 6b 72 ve skrev oldskr
42d0: 65 76 20 6b 65 79 6d 6f 76 65 0a 20 20 20 20 20 ev keymove.
42e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
42f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4300: 20 20 20 20 20 20 5c 20 62 61 63 6b 75 70 20 6b \ backup k
4310: 65 79 73 0a 20 20 20 20 6f 6c 64 73 6b 72 65 76 eys. oldskrev
4320: 20 6f 6c 64 70 6b 72 65 76 20 73 6b 3e 70 6b 20 oldpkrev sk>pk
4330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c \
4340: 20 67 65 6e 65 72 61 74 65 20 72 65 76 6f 6b 61 generate revoka
4350: 74 69 6f 6e 20 70 75 62 6b 65 79 0a 20 20 20 20 tion pubkey.
4360: 67 65 6e 2d 6b 65 79 73 20 20 20 20 20 20 20 20 gen-keys
4370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4380: 20 20 20 20 20 20 20 5c 20 67 65 6e 65 72 61 74 \ generat
4390: 65 20 6e 65 77 20 6b 65 79 73 0a 20 20 20 20 70 e new keys. p
43a0: 6b 63 20 6b 65 79 73 69 7a 65 20 32 2a 20 72 65 kc keysize 2* re
43b0: 76 74 6f 6b 65 6e 20 24 21 20 20 20 20 20 20 20 vtoken $!
43c0: 20 20 20 20 20 20 5c 20 6d 79 20 6e 65 77 20 6b \ my new k
43d0: 65 79 0a 20 20 20 20 6f 6c 64 70 6b 72 65 76 20 ey. oldpkrev
43e0: 6b 65 79 73 69 7a 65 20 72 65 76 74 6f 6b 65 6e keysize revtoken
43f0: 20 24 2b 21 20 20 20 20 20 20 20 20 20 20 5c 20 $+! \
4400: 72 65 76 6f 6b 65 20 74 6f 6b 65 6e 0a 20 20 20 revoke token.
4410: 20 6f 6c 64 73 6b 72 65 76 20 6f 6c 64 70 6b 72 oldskrev oldpkr
4420: 65 76 20 22 72 65 76 6f 6b 65 22 20 73 69 67 6e ev "revoke" sign
4430: 2d 74 6f 6b 65 6e 2c 20 5c 20 72 65 76 6f 6b 65 -token, \ revoke
4440: 20 73 69 67 6e 61 74 75 72 65 0a 20 20 20 20 73 signature. s
4450: 6b 63 20 70 6b 63 20 22 73 65 6c 66 73 69 67 6e kc pkc "selfsign
4460: 22 20 73 69 67 6e 2d 74 6f 6b 65 6e 2c 20 20 20 " sign-token,
4470: 20 20 20 20 20 20 5c 20 73 65 6c 66 20 73 69 67 \ self sig
4480: 6e 65 64 20 77 69 74 68 20 6e 65 77 20 6b 65 79 ned with new key
4490: 0a 20 20 20 20 22 21 22 20 72 65 76 74 6f 6b 65 . "!" revtoke
44a0: 6e 20 30 20 24 69 6e 73 20 20 20 20 20 20 20 20 n 0 $ins
44b0: 20 20 20 20 20 20 20 20 20 20 20 20 5c 20 22 21 \ "!
44c0: 22 20 2b 20 6f 6c 64 6b 65 79 6c 65 6e 2b 6e 65 " + oldkeylen+ne
44d0: 77 6b 65 79 6c 65 6e 20 74 6f 20 66 6c 61 67 20 wkeylen to flag
44e0: 72 65 76 6f 6b 61 74 69 6f 6e 0a 20 20 20 20 72 revokation. r
44f0: 65 76 74 6f 6b 65 6e 20 24 40 20 67 65 6e 3e 68 evtoken $@ gen>h
4500: 6f 73 74 20 32 64 72 6f 70 20 20 20 20 20 20 20 ost 2drop
4510: 20 20 20 20 20 20 5c 20 73 69 67 6e 20 68 6f 73 \ sign hos
4520: 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 69 t information wi
4530: 74 68 20 6f 6c 64 20 6b 65 79 0a 20 20 20 20 73 th old key. s
4540: 69 67 64 61 74 65 20 2b 64 61 74 65 20 73 69 67 igdate +date sig
4550: 64 61 74 65 20 64 61 74 65 73 69 7a 65 23 20 72 date datesize# r
4560: 65 76 74 6f 6b 65 6e 20 24 2b 21 0a 20 20 20 20 evtoken $+!.
4570: 6f 6c 64 73 6b 63 20 6f 6c 64 70 6b 63 20 2b 72 oldskc oldpkc +r
4580: 65 76 73 69 67 6e 0a 20 20 20 20 30 6f 6c 64 6b evsign. 0oldk
4590: 65 79 20 72 65 76 74 6f 6b 65 6e 20 24 40 20 3b ey revtoken $@ ;
45a0: 0a 0a 30 20 5b 49 46 5d 0a 4c 6f 63 61 6c 20 56 ..0 [IF].Local V
45b0: 61 72 69 61 62 6c 65 73 3a 0a 66 6f 72 74 68 2d ariables:.forth-
45c0: 6c 6f 63 61 6c 2d 77 6f 72 64 73 3a 0a 20 20 20 local-words:.
45d0: 20 28 0a 20 20 20 20 20 28 28 22 6e 65 74 32 6f (. (("net2o
45e0: 3a 22 20 22 2b 6e 65 74 32 6f 3a 22 29 20 64 65 :" "+net2o:") de
45f0: 66 69 6e 69 74 69 6f 6e 2d 73 74 61 72 74 65 72 finition-starter
4600: 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 (font-lock-keyw
4610: 6f 72 64 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 ord-face . 1).
4620: 20 20 20 20 22 5b 20 5c 74 5c 6e 5d 22 20 74 20 "[ \t\n]" t
4630: 6e 61 6d 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d name (font-lock-
4640: 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 61 function-name-fa
4650: 63 65 20 2e 20 33 29 29 0a 20 20 20 20 20 28 28 ce . 3)). ((
4660: 22 64 65 62 75 67 3a 22 20 22 66 69 65 6c 64 3a "debug:" "field:
4670: 22 20 22 32 66 69 65 6c 64 3a 22 20 22 73 66 66 " "2field:" "sff
4680: 69 65 6c 64 3a 22 20 22 64 66 66 69 65 6c 64 3a ield:" "dffield:
4690: 22 20 22 36 34 66 69 65 6c 64 3a 22 20 22 75 76 " "64field:" "uv
46a0: 61 72 22 20 22 75 76 61 6c 75 65 22 29 20 6e 6f ar" "uvalue") no
46b0: 6e 2d 69 6d 6d 65 64 69 61 74 65 20 28 66 6f 6e n-immediate (fon
46c0: 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 t-lock-type-face
46d0: 20 2e 20 32 29 0a 20 20 20 20 20 20 22 5b 20 5c . 2). "[ \
46e0: 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 20 28 66 6f t\n]" t name (fo
46f0: 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 nt-lock-variable
4700: 2d 6e 61 6d 65 2d 66 61 63 65 20 2e 20 33 29 29 -name-face . 3))
4710: 0a 20 20 20 20 20 28 22 5b 61 2d 7a 30 2d 39 5d . ("[a-z0-9]
4720: 2b 28 22 20 69 6d 6d 65 64 69 61 74 65 20 28 66 +(" immediate (f
4730: 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 ont-lock-comment
4740: 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 20 20 20 -face . 1).
4750: 20 22 29 22 20 6e 69 6c 20 63 6f 6d 6d 65 6e 74 ")" nil comment
4760: 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d (font-lock-comm
4770: 65 6e 74 2d 66 61 63 65 20 2e 20 31 29 29 0a 20 ent-face . 1)).
4780: 20 20 20 29 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c ).forth-local
4790: 2d 69 6e 64 65 6e 74 2d 77 6f 72 64 73 3a 0a 20 -indent-words:.
47a0: 20 20 20 28 0a 20 20 20 20 20 28 28 22 6e 65 74 (. (("net
47b0: 32 6f 3a 22 20 22 2b 6e 65 74 32 6f 3a 22 29 20 2o:" "+net2o:")
47c0: 28 30 20 2e 20 32 29 20 28 30 20 2e 20 32 29 20 (0 . 2) (0 . 2)
47d0: 6e 6f 6e 2d 69 6d 6d 65 64 69 61 74 65 29 0a 20 non-immediate).
47e0: 20 20 20 20 28 28 22 5b 3a 22 20 22 6b 65 79 3a (("[:" "key:
47f0: 63 6f 64 65 22 29 20 28 30 20 2e 20 31 29 20 28 code") (0 . 1) (
4800: 30 20 2e 20 31 29 20 69 6d 6d 65 64 69 61 74 65 0 . 1) immediate
4810: 29 0a 20 20 20 20 20 28 28 22 3b 5d 22 20 22 65 ). ((";]" "e
4820: 6e 64 3a 6b 65 79 22 29 20 28 2d 31 20 2e 20 30 nd:key") (-1 . 0
4830: 29 20 28 30 20 2e 20 2d 31 29 20 69 6d 6d 65 64 ) (0 . -1) immed
4840: 69 61 74 65 29 0a 20 20 20 20 29 0a 45 6e 64 3a iate). ).End:
4850: 0a 5b 54 48 45 4e 5d .[THEN]