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 33 2d 32 30 31 35 20 20 (C) 2013-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 73 63 6f 70 word entry..scop
0300: 65 7b 20 63 6f 6e 66 69 67 0a 56 61 72 69 61 62 e{ config.Variab
0310: 6c 65 20 70 77 2d 6c 65 76 65 6c 23 20 32 20 70 le pw-level# 2 p
0320: 77 2d 6c 65 76 65 6c 23 20 21 20 5c 20 70 77 2d w-level# ! \ pw-
0330: 6c 65 76 65 6c 23 20 30 20 69 73 20 6c 6f 77 65 level# 0 is lowe
0340: 73 74 0a 56 61 72 69 61 62 6c 65 20 70 77 2d 6d st.Variable pw-m
0350: 61 78 6c 65 76 65 6c 23 20 34 20 70 77 2d 6d 61 axlevel# 4 pw-ma
0360: 78 6c 65 76 65 6c 23 20 21 20 5c 20 70 77 2d 6d xlevel# ! \ pw-m
0370: 61 78 6c 65 76 65 6c 23 20 69 73 20 74 68 65 20 axlevel# is the
0380: 6d 61 78 69 6d 75 6d 20 63 68 65 63 6b 65 64 0a maximum checked.
0390: 7d 73 63 6f 70 65 0a 0a 5b 49 46 44 45 46 5d 20 }scope..[IFDEF]
03a0: 6d 73 6c 69 6e 75 78 20 27 2a 27 20 5b 45 4c 53 mslinux '*' [ELS
03b0: 45 5d 20 27 e2 80 a2 27 20 5b 54 48 45 4e 5d 20 E] '•' [THEN]
03c0: 43 6f 6e 73 74 61 6e 74 20 70 77 2a 0a 0a 78 63 Constant pw*..xc
03d0: 2d 76 65 63 74 6f 72 20 75 70 40 20 2d 20 63 6c -vector up@ - cl
03e0: 61 73 73 2d 6f 20 21 0a 0a 30 20 63 65 6c 6c 20 ass-o !..0 cell
03f0: 75 76 61 72 20 65 73 63 2d 73 74 61 74 65 20 64 uvar esc-state d
0400: 72 6f 70 0a 0a 44 65 66 65 72 20 6f 6c 64 2d 65 rop..Defer old-e
0410: 6d 69 74 20 20 77 68 61 74 27 73 20 65 6d 69 74 mit what's emit
0420: 20 69 73 20 6f 6c 64 2d 65 6d 69 74 0a 0a 68 65 is old-emit..he
0430: 72 65 0a 78 63 2d 76 65 63 74 6f 72 20 40 20 63 re.xc-vector @ c
0440: 65 6c 6c 2d 20 64 75 70 20 40 20 74 75 63 6b 20 ell- dup @ tuck
0450: 2d 20 68 65 72 65 20 73 77 61 70 20 64 75 70 20 - here swap dup
0460: 61 6c 6c 6f 74 20 6d 6f 76 65 0a 2c 20 68 65 72 allot move., her
0470: 65 20 30 20 2c 20 43 6f 6e 73 74 61 6e 74 20 75 e 0 , Constant u
0480: 74 66 2d 38 2a 0a 0a 78 63 2d 76 65 63 74 6f 72 tf-8*..xc-vector
0490: 20 40 20 20 75 74 66 2d 38 2a 20 78 63 2d 76 65 @ utf-8* xc-ve
04a0: 63 74 6f 72 20 21 20 27 20 2a 2d 77 69 64 74 68 ctor ! ' *-width
04b0: 20 69 73 20 78 2d 77 69 64 74 68 20 20 78 63 2d is x-width xc-
04c0: 76 65 63 74 6f 72 20 21 0a 0a 3a 20 65 6d 69 74 vector !..: emit
04d0: 2d 70 77 2a 20 28 20 6e 20 2d 2d 20 29 0a 20 20 -pw* ( n -- ).
04e0: 20 20 64 75 70 20 23 65 73 63 20 3d 20 49 46 20 dup #esc = IF
04f0: 20 65 73 63 2d 73 74 61 74 65 20 6f 6e 20 20 54 esc-state on T
0500: 48 45 4e 0a 20 20 20 20 64 75 70 20 62 6c 20 3c HEN. dup bl <
0510: 20 49 46 20 20 6f 6c 64 2d 65 6d 69 74 20 20 45 IF old-emit E
0520: 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 65 73 XIT THEN. es
0530: 63 2d 73 74 61 74 65 20 40 20 49 46 20 20 64 75 c-state @ IF du
0540: 70 20 6f 6c 64 2d 65 6d 69 74 0a 20 20 20 20 45 p old-emit. E
0550: 4c 53 45 20 20 64 75 70 20 24 43 30 20 24 38 30 LSE dup $C0 $80
0560: 20 77 69 74 68 69 6e 20 49 46 0a 09 20 20 20 20 within IF..
0570: 5b 20 70 77 2a 20 27 20 78 65 6d 69 74 20 24 74 [ pw* ' xemit $t
0580: 6d 70 0a 09 20 20 20 20 62 6f 75 6e 64 73 20 5b mp.. bounds [
0590: 3f 44 4f 5d 20 5b 49 5d 20 63 40 20 5d 4c 20 6f ?DO] [I] c@ ]L o
05a0: 6c 64 2d 65 6d 69 74 20 5b 20 5b 4c 4f 4f 50 5d ld-emit [ [LOOP]
05b0: 20 5d 0a 09 54 48 45 4e 0a 20 20 20 20 54 48 45 ]..THEN. THE
05c0: 4e 0a 20 20 20 20 74 6f 75 70 70 65 72 20 27 41 N. toupper 'A
05d0: 27 20 27 5b 27 20 77 69 74 68 69 6e 20 49 46 20 ' '[' within IF
05e0: 20 65 73 63 2d 73 74 61 74 65 20 6f 66 66 20 20 esc-state off
05f0: 54 48 45 4e 20 3b 0a 0a 3a 20 74 79 70 65 2d 70 THEN ;..: type-p
0600: 77 2a 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 w* ( addr u -- )
0610: 20 20 32 64 75 70 20 62 6c 20 73 6b 69 70 20 6e 2dup bl skip n
0620: 69 70 20 30 3d 0a 20 20 20 20 49 46 20 20 20 20 ip 0=. IF
0630: 62 6f 75 6e 64 73 20 55 2b 44 4f 20 20 62 6c 20 bounds U+DO bl
0640: 6f 6c 64 2d 65 6d 69 74 20 20 20 20 4c 4f 4f 50 old-emit LOOP
0650: 0a 20 20 20 20 45 4c 53 45 20 20 62 6f 75 6e 64 . ELSE bound
0660: 73 20 55 2b 44 4f 20 20 49 20 63 40 20 65 6d 69 s U+DO I c@ emi
0670: 74 2d 70 77 2a 20 20 4c 4f 4f 50 20 20 54 48 45 t-pw* LOOP THE
0680: 4e 20 3b 0a 0a 3a 20 61 63 63 65 70 74 2a 20 28 N ;..: accept* (
0690: 20 61 64 64 72 20 75 20 2d 2d 20 75 27 20 29 0a addr u -- u' ).
06a0: 20 20 20 20 5c 47 20 61 63 63 65 70 74 2d 6c 69 \G accept-li
06b0: 6b 65 20 69 6e 70 75 74 2c 20 62 75 74 20 74 79 ke input, but ty
06c0: 70 65 73 20 2a 20 69 6e 73 74 65 61 64 20 6f 66 pes * instead of
06d0: 20 74 68 65 20 63 68 61 72 61 63 74 65 72 0a 20 the character.
06e0: 20 20 20 5c 47 20 64 6f 6e 27 74 20 73 61 76 65 \G don't save
06f0: 20 69 6e 74 6f 20 68 69 73 74 6f 72 79 0a 20 20 into history.
0700: 20 20 68 69 73 74 6f 72 79 20 3e 72 20 20 77 68 history >r wh
0710: 61 74 27 73 20 74 79 70 65 20 3e 72 20 20 77 68 at's type >r wh
0720: 61 74 27 73 20 65 6d 69 74 20 69 73 20 6f 6c 64 at's emit is old
0730: 2d 65 6d 69 74 0a 20 20 20 20 75 74 66 2d 38 2a -emit. utf-8*
0740: 20 78 63 2d 76 65 63 74 6f 72 20 21 40 20 3e 72 xc-vector !@ >r
0750: 20 20 5b 27 5d 20 74 79 70 65 2d 70 77 2a 20 69 ['] type-pw* i
0760: 73 20 74 79 70 65 20 20 5b 27 5d 20 65 6d 69 74 s type ['] emit
0770: 2d 70 77 2a 20 69 73 20 65 6d 69 74 0a 20 20 20 -pw* is emit.
0780: 20 30 20 74 6f 20 68 69 73 74 6f 72 79 0a 20 20 0 to history.
0790: 20 20 5b 27 5d 20 61 63 63 65 70 74 20 63 61 74 ['] accept cat
07a0: 63 68 0a 20 20 20 20 72 3e 20 78 63 2d 76 65 63 ch. r> xc-vec
07b0: 74 6f 72 20 21 20 20 77 68 61 74 27 73 20 6f 6c tor ! what's ol
07c0: 64 2d 65 6d 69 74 20 69 73 20 65 6d 69 74 20 20 d-emit is emit
07d0: 72 3e 20 69 73 20 74 79 70 65 20 20 72 3e 20 74 r> is type r> t
07e0: 6f 20 68 69 73 74 6f 72 79 0a 20 20 20 20 74 68 o history. th
07f0: 72 6f 77 20 2d 31 20 30 20 61 74 2d 64 65 6c 74 row -1 0 at-delt
0800: 61 78 79 20 73 70 61 63 65 20 3b 0a 0a 5c 20 4b axy space ;..\ K
0810: 65 79 73 20 61 72 65 20 70 61 73 73 77 6f 72 64 eys are password
0820: 73 20 61 6e 64 20 70 72 69 76 61 74 65 20 6b 65 s and private ke
0830: 79 73 20 28 73 65 6c 66 2d 6b 65 79 65 64 2c 20 ys (self-keyed,
0840: 69 2e 65 2e 20 70 72 69 76 61 74 65 2a 70 75 62 i.e. private*pub
0850: 6c 69 63 20 6b 65 79 29 0a 0a 63 6d 64 2d 62 75 lic key)..cmd-bu
0860: 66 30 20 75 63 6c 61 73 73 20 63 6d 64 62 75 66 f0 uclass cmdbuf
0870: 2d 6f 0a 20 20 20 20 6d 61 78 64 61 74 61 20 2d -o. maxdata -
0880: 0a 20 20 20 20 6b 65 79 2d 73 61 6c 74 23 20 75 . key-salt# u
0890: 76 61 72 20 6b 65 79 70 61 63 6b 0a 20 20 20 20 var keypack.
08a0: 6b 65 79 70 61 63 6b 23 20 20 75 76 61 72 20 6b keypack# uvar k
08b0: 65 79 70 61 63 6b 2d 62 75 66 0a 20 20 20 20 6b eypack-buf. k
08c0: 65 79 2d 63 6b 73 75 6d 23 20 75 76 61 72 20 6b ey-cksum# uvar k
08d0: 65 79 70 61 63 6b 2d 63 68 6b 73 75 6d 0a 65 6e eypack-chksum.en
08e0: 64 2d 63 6c 61 73 73 20 63 6d 64 2d 6b 65 79 62 d-class cmd-keyb
08f0: 75 66 2d 63 0a 0a 63 6d 64 2d 6b 65 79 62 75 66 uf-c..cmd-keybuf
0900: 2d 63 20 27 20 6e 65 77 20 73 74 61 74 69 63 2d -c ' new static-
0910: 61 20 77 69 74 68 2d 61 6c 6c 6f 63 61 74 65 72 a with-allocater
0920: 20 63 6f 64 65 2d 6b 65 79 5e 20 21 0a 27 20 63 code-key^ !.' c
0930: 6f 64 65 2d 6b 65 79 5e 20 63 6d 64 62 75 66 3a ode-key^ cmdbuf:
0940: 20 63 6f 64 65 2d 6b 65 79 0a 0a 63 6f 64 65 2d code-key..code-
0950: 6b 65 79 0a 63 6d 64 30 6c 6f 63 6b 20 30 20 70 key.cmd0lock 0 p
0960: 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 69 6e 69 thread_mutex_ini
0970: 74 20 64 72 6f 70 0a 0a 3a 6e 6f 6e 61 6d 65 20 t drop..:noname
0980: 28 20 2d 2d 20 61 64 64 72 20 75 20 29 20 6b 65 ( -- addr u ) ke
0990: 79 70 61 63 6b 2d 62 75 66 20 63 6d 64 62 75 66 ypack-buf cmdbuf
09a0: 23 20 40 20 3b 20 74 6f 20 63 6d 64 62 75 66 24 # @ ; to cmdbuf$
09b0: 0a 3a 6e 6f 6e 61 6d 65 20 28 20 2d 2d 20 6e 20 .:noname ( -- n
09c0: 29 20 20 6b 65 79 70 61 63 6b 23 20 63 6d 64 62 ) keypack# cmdb
09d0: 75 66 23 20 40 20 2d 20 3b 20 74 6f 20 6d 61 78 uf# @ - ; to max
09e0: 73 74 72 69 6e 67 0a 0a 63 6f 64 65 30 2d 62 75 string..code0-bu
09f0: 66 0a 0a 3a 6e 6f 6e 61 6d 65 20 64 65 66 65 72 f..:noname defer
0a00: 73 20 61 6c 6c 6f 63 2d 63 6f 64 65 2d 62 75 66 s alloc-code-buf
0a10: 73 0a 20 20 20 20 63 6d 64 2d 6b 65 79 62 75 66 s. cmd-keybuf
0a20: 2d 63 20 6e 65 77 20 63 6f 64 65 2d 6b 65 79 5e -c new code-key^
0a30: 20 21 20 3b 20 69 73 20 61 6c 6c 6f 63 2d 63 6f ! ; is alloc-co
0a40: 64 65 2d 62 75 66 73 0a 3a 6e 6f 6e 61 6d 65 20 de-bufs.:noname
0a50: 64 65 66 65 72 73 20 66 72 65 65 2d 63 6f 64 65 defers free-code
0a60: 2d 62 75 66 73 0a 20 20 20 20 63 6f 64 65 2d 6b -bufs. code-k
0a70: 65 79 5e 20 40 20 2e 64 69 73 70 6f 73 65 20 3b ey^ @ .dispose ;
0a80: 20 69 73 20 66 72 65 65 2d 63 6f 64 65 2d 62 75 is free-code-bu
0a90: 66 73 0a 0a 5c 20 68 61 73 68 65 64 20 6b 65 79 fs..\ hashed key
0aa0: 20 64 61 74 61 20 62 61 73 65 0a 0a 56 61 72 69 data base..Vari
0ab0: 61 62 6c 65 20 67 72 6f 75 70 73 5b 5d 20 5c 20 able groups[] \
0ac0: 6e 61 6d 65 73 20 6f 66 20 67 72 6f 75 70 73 2c names of groups,
0ad0: 20 73 6f 72 74 65 64 20 62 79 20 6f 72 64 65 72 sorted by order
0ae0: 20 69 6e 20 67 72 6f 75 70 73 20 66 69 6c 65 0a in groups file.
0af0: 0a 55 73 65 72 20 3e 73 74 6f 72 65 6b 65 79 0a .User >storekey.
0b00: 56 61 72 69 61 62 6c 65 20 64 65 66 61 75 6c 74 Variable default
0b10: 6b 65 79 0a 0a 63 6d 64 2d 63 6c 61 73 73 20 63 key..cmd-class c
0b20: 6c 61 73 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 lass. field:
0b30: 6b 65 2d 73 6b 20 20 20 20 20 20 20 5c 20 73 65 ke-sk \ se
0b40: 63 72 65 74 20 6b 65 79 0a 20 20 20 20 66 69 65 cret key. fie
0b50: 6c 64 3a 20 6b 65 2d 70 6b 20 20 20 20 20 20 20 ld: ke-pk
0b60: 5c 20 70 75 62 6c 69 63 20 6b 65 79 0a 20 20 20 \ public key.
0b70: 20 66 69 65 6c 64 3a 20 6b 65 2d 72 73 6b 20 20 field: ke-rsk
0b80: 20 20 20 20 5c 20 72 65 76 6f 6b 65 20 73 65 63 \ revoke sec
0b90: 72 65 74 20 28 74 65 6d 70 6f 72 61 72 69 6c 79 ret (temporarily
0ba0: 20 73 74 6f 72 65 64 29 0a 20 20 20 20 66 69 65 stored). fie
0bb0: 6c 64 3a 20 6b 65 2d 74 79 70 65 20 20 20 20 20 ld: ke-type
0bc0: 5c 20 6b 65 79 20 74 79 70 65 0a 20 20 20 20 66 \ key type. f
0bd0: 69 65 6c 64 3a 20 6b 65 2d 6e 69 63 6b 20 20 20 ield: ke-nick
0be0: 20 20 5c 20 6b 65 79 20 6e 69 63 6b 0a 20 20 20 \ key nick.
0bf0: 20 66 69 65 6c 64 3a 20 6b 65 2d 6e 69 63 6b 23 field: ke-nick#
0c00: 20 20 20 20 5c 20 74 6f 20 61 76 6f 69 64 20 63 \ to avoid c
0c10: 6f 6c 69 73 73 69 6f 6e 73 2c 20 61 64 64 20 61 olissions, add a
0c20: 20 6e 75 6d 62 65 72 20 68 65 72 65 0a 20 20 20 number here.
0c30: 20 66 69 65 6c 64 3a 20 6b 65 2d 70 65 74 73 20 field: ke-pets
0c40: 20 20 20 20 5c 20 6b 65 79 20 70 65 74 6e 61 6d \ key petnam
0c50: 65 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 es. field: ke
0c60: 2d 70 65 74 73 23 20 20 20 20 5c 20 74 6f 20 61 -pets# \ to a
0c70: 76 6f 69 64 20 63 6f 6c 69 73 73 69 6f 6e 73 2c void colissions,
0c80: 20 61 64 64 20 61 20 6e 75 6d 62 65 72 20 68 65 add a number he
0c90: 72 65 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 re. field: ke
0ca0: 2d 70 72 6f 66 20 20 20 20 20 5c 20 70 72 6f 66 -prof \ prof
0cb0: 69 6c 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 66 ile object. f
0cc0: 69 65 6c 64 3a 20 6b 65 2d 73 65 6c 66 73 69 67 ield: ke-selfsig
0cd0: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73 . field: ke-s
0ce0: 69 67 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b igs. field: k
0cf0: 65 2d 69 6d 70 6f 72 74 73 20 20 5c 20 62 69 74 e-imports \ bit
0d00: 6d 61 73 6b 20 6f 66 20 6b 65 79 20 69 6d 70 6f mask of key impo
0d10: 72 74 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 rt. field: ke
0d20: 2d 73 74 6f 72 65 6b 65 79 20 5c 20 75 73 65 64 -storekey \ used
0d30: 20 74 6f 20 65 6e 63 72 79 70 74 20 6f 6e 20 73 to encrypt on s
0d40: 74 6f 72 61 67 65 0a 20 20 20 20 66 69 65 6c 64 torage. field
0d50: 3a 20 6b 65 2d 6d 61 73 6b 20 20 20 20 20 5c 20 : ke-mask \
0d60: 70 65 72 6d 69 73 73 69 6f 6e 20 6d 61 73 6b 0a permission mask.
0d70: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 67 72 field: ke-gr
0d80: 6f 75 70 73 20 20 20 5c 20 70 72 65 6d 69 73 73 oups \ premiss
0d90: 69 6f 6e 20 67 72 6f 75 70 73 0a 20 20 20 20 36 ion groups. 6
0da0: 34 66 69 65 6c 64 3a 20 6b 65 2d 6f 66 66 73 65 4field: ke-offse
0db0: 74 20 5c 20 6f 66 66 73 65 74 20 69 6e 20 6b 65 t \ offset in ke
0dc0: 79 20 66 69 6c 65 0a 20 20 20 20 66 69 65 6c 64 y file. field
0dd0: 3a 20 6b 65 2d 70 77 6c 65 76 65 6c 20 20 5c 20 : ke-pwlevel \
0de0: 70 61 73 73 77 6f 72 64 20 73 74 72 65 6e 67 74 password strengt
0df0: 68 20 6c 65 76 65 6c 0a 20 20 20 20 30 20 2b 66 h level. 0 +f
0e00: 69 65 6c 64 20 6b 65 2d 65 6e 64 0a 65 6e 64 2d ield ke-end.end-
0e10: 63 6c 61 73 73 20 6b 65 79 2d 65 6e 74 72 79 0a class key-entry.
0e20: 0a 3a 20 66 72 65 65 2d 6b 65 79 20 28 20 6f 3a .: free-key ( o:
0e30: 6b 65 79 20 2d 2d 20 6f 3a 6b 65 79 20 29 0a 20 key -- o:key ).
0e40: 20 20 20 5c 67 20 66 72 65 65 20 61 6c 6c 20 70 \g free all p
0e50: 61 72 74 73 20 6f 66 20 74 68 65 20 73 75 62 6b arts of the subk
0e60: 65 79 0a 20 20 20 20 6b 65 2d 73 6b 20 73 65 63 ey. ke-sk sec
0e70: 2d 6f 66 66 0a 20 20 20 20 6b 65 2d 70 6b 20 24 -off. ke-pk $
0e80: 6f 66 66 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20 off. ke-nick
0e90: 24 6f 66 66 0a 20 20 20 20 6b 65 2d 73 65 6c 66 $off. ke-self
0ea0: 73 69 67 20 24 6f 66 66 0a 20 20 20 20 6b 65 2d sig $off. ke-
0eb0: 73 69 67 73 20 24 5b 5d 6f 66 66 0a 20 20 20 20 sigs $[]off.
0ec0: 6b 65 2d 70 65 74 73 20 24 5b 5d 6f 66 66 0a 20 ke-pets $[]off.
0ed0: 20 20 20 6b 65 2d 70 65 74 73 23 20 24 6f 66 66 ke-pets# $off
0ee0: 20 3b 0a 0a 5c 20 6b 65 79 20 63 6c 61 73 73 0a ;..\ key class.
0ef0: 0a 30 0a 65 6e 75 6d 20 6b 65 79 23 61 6e 6f 6e .0.enum key#anon
0f00: 0a 65 6e 75 6d 20 6b 65 79 23 75 73 65 72 0a 65 .enum key#user.e
0f10: 6e 75 6d 20 6b 65 79 23 67 72 6f 75 70 0a 64 72 num key#group.dr
0f20: 6f 70 0a 0a 5c 20 6b 65 79 20 69 6d 70 6f 72 74 op..\ key import
0f30: 20 74 79 70 65 0a 0a 30 0a 65 6e 75 6d 20 69 6d type..0.enum im
0f40: 70 6f 72 74 23 73 65 6c 66 20 20 20 20 20 20 5c port#self \
0f50: 20 70 72 69 76 61 74 65 20 6b 65 79 0a 65 6e 75 private key.enu
0f60: 6d 20 69 6d 70 6f 72 74 23 6d 61 6e 75 61 6c 20 m import#manual
0f70: 20 20 20 5c 20 6d 61 6e 75 61 6c 20 69 6d 70 6f \ manual impo
0f80: 72 74 0a 65 6e 75 6d 20 69 6d 70 6f 72 74 23 73 rt.enum import#s
0f90: 63 61 6e 20 20 20 20 20 20 5c 20 73 63 61 6e 20 can \ scan
0fa0: 69 6d 70 6f 72 74 0a 65 6e 75 6d 20 69 6d 70 6f import.enum impo
0fb0: 72 74 23 63 68 61 74 20 20 20 20 20 20 5c 20 73 rt#chat \ s
0fc0: 65 65 6e 20 69 6e 20 63 68 61 74 0a 65 6e 75 6d een in chat.enum
0fd0: 20 69 6d 70 6f 72 74 23 64 68 74 20 20 20 20 20 import#dht
0fe0: 20 20 5c 20 64 68 74 20 69 6d 70 6f 72 74 0a 65 \ dht import.e
0ff0: 6e 75 6d 20 69 6d 70 6f 72 74 23 69 6e 76 69 74 num import#invit
1000: 65 64 20 20 20 5c 20 69 6e 76 69 74 61 74 69 6f ed \ invitatio
1010: 6e 20 69 6d 70 6f 72 74 0a 65 6e 75 6d 20 69 6d n import.enum im
1020: 70 6f 72 74 23 75 6e 74 72 75 73 74 65 64 20 5c port#untrusted \
1030: 20 6d 75 73 74 20 62 65 20 6c 61 73 74 0a 64 72 must be last.dr
1040: 6f 70 0a 24 31 46 20 65 6e 75 6d 20 69 6d 70 6f op.$1F enum impo
1050: 72 74 23 6e 65 77 20 20 20 5c 20 6e 65 77 20 66 rt#new \ new f
1060: 6f 72 6d 61 74 0a 64 72 6f 70 0a 0a 43 72 65 61 ormat.drop..Crea
1070: 74 65 20 69 6d 70 6f 72 74 73 24 20 24 32 30 20 te imports$ $20
1080: 61 6c 6c 6f 74 20 69 6d 70 6f 72 74 73 24 20 24 allot imports$ $
1090: 32 30 20 62 6c 20 66 69 6c 6c 0a 22 49 6d 73 63 20 bl fill."Imsc
10a0: 64 69 75 22 20 69 6d 70 6f 72 74 73 24 20 73 77 diu" imports$ sw
10b0: 61 70 20 6d 6f 76 65 0a 0a 56 61 72 69 61 62 6c ap move..Variabl
10c0: 65 20 69 6d 70 6f 72 74 2d 74 79 70 65 20 20 69 e import-type i
10d0: 6d 70 6f 72 74 23 6e 65 77 20 69 6d 70 6f 72 74 mport#new import
10e0: 2d 74 79 70 65 20 21 0a 0a 43 72 65 61 74 65 20 -type !..Create
10f0: 3e 69 6d 2d 63 6f 6c 6f 72 20 20 24 42 36 30 20 >im-color $B60
1100: 2c 20 24 44 36 30 20 2c 20 24 39 36 30 20 2c 20 , $D60 , $960 ,
1110: 24 43 36 30 20 2c 20 24 41 36 30 20 2c 20 24 38 $C60 , $A60 , $8
1120: 42 31 20 2c 20 24 45 36 30 20 2c 0a 44 4f 45 53 B1 , $E60 ,.DOES
1130: 3e 20 73 77 61 70 20 38 20 63 65 6c 6c 73 20 30 > swap 8 cells 0
1140: 20 44 4f 20 20 64 75 70 20 31 20 61 6e 64 20 49 DO dup 1 and I
1150: 46 20 20 64 72 6f 70 20 49 20 4c 45 41 56 45 20 F drop I LEAVE
1160: 20 54 48 45 4e 20 20 32 2f 20 20 4c 4f 4f 50 0a THEN 2/ LOOP.
1170: 20 20 63 65 6c 6c 73 20 2b 20 40 20 61 74 74 72 cells + @ attr
1180: 21 20 3b 0a 0a 3a 20 2e 69 6d 70 6f 72 74 73 20 ! ;..: .imports
1190: 28 20 6d 61 73 6b 20 2d 2d 20 29 0a 20 20 20 20 ( mask -- ).
11a0: 69 6d 70 6f 72 74 73 24 20 69 6d 70 6f 72 74 23 imports$ import#
11b0: 6e 65 77 20 62 6f 75 6e 64 73 20 44 4f 0a 09 31 new bounds DO..1
11c0: 20 49 20 69 6d 70 6f 72 74 73 24 20 2d 20 6c 73 I imports$ - ls
11d0: 68 69 66 74 20 3e 69 6d 2d 63 6f 6c 6f 72 0a 09 hift >im-color..
11e0: 64 75 70 20 31 20 61 6e 64 20 49 46 20 20 49 20 dup 1 and IF I
11f0: 63 40 20 65 6d 69 74 20 20 54 48 45 4e 20 20 32 c@ emit THEN 2
1200: 2f 20 4c 4f 4f 50 0a 20 20 20 20 64 72 6f 70 20 / LOOP. drop
1210: 3c 64 65 66 61 75 6c 74 3e 20 3b 0a 0a 43 72 65 <default> ;..Cre
1220: 61 74 65 20 69 6d 70 6f 72 74 2d 6e 61 6d 65 24 ate import-name$
1230: 0a 22 49 20 6d 79 73 65 6c 66 22 20 73 2c 20 22 ."I myself" s, "
1240: 6d 61 6e 75 61 6c 22 20 73 2c 20 22 73 63 61 6e manual" s, "scan
1250: 22 20 73 2c 20 22 63 68 61 74 22 20 73 2c 20 22 " s, "chat" s, "
1260: 64 68 74 22 20 73 2c 20 22 69 6e 76 69 74 65 64 dht" s, "invited
1270: 22 20 73 2c 20 22 75 6e 74 72 75 73 74 65 64 22 " s, "untrusted"
1280: 20 73 2c 0a 0a 3a 20 2e 69 6d 70 6f 72 74 2d 63 s,..: .import-c
1290: 6f 6c 6f 72 73 20 28 20 2d 2d 20 29 0a 20 20 20 olors ( -- ).
12a0: 20 69 6d 70 6f 72 74 2d 6e 61 6d 65 24 0a 20 20 import-name$.
12b0: 20 20 69 6d 70 6f 72 74 23 75 6e 74 72 75 73 74 import#untrust
12c0: 65 64 20 31 2b 20 30 20 3f 44 4f 0a 09 31 20 49 ed 1+ 0 ?DO..1 I
12d0: 20 6c 73 68 69 66 74 20 3e 69 6d 2d 63 6f 6c 6f lshift >im-colo
12e0: 72 20 63 6f 75 6e 74 20 32 64 75 70 20 74 79 70 r count 2dup typ
12f0: 65 20 3c 64 65 66 61 75 6c 74 3e 20 73 70 61 63 e <default> spac
1300: 65 20 2b 20 61 6c 69 67 6e 65 64 0a 20 20 20 20 e + aligned.
1310: 4c 4f 4f 50 20 64 72 6f 70 20 3b 0a 0a 5c 20 73 LOOP drop ;..\ s
1320: 61 6d 70 6c 65 20 6b 65 79 0a 0a 6b 65 79 2d 65 ample key..key-e
1330: 6e 74 72 79 20 27 20 6e 65 77 20 73 74 61 74 69 ntry ' new stati
1340: 63 2d 61 20 77 69 74 68 2d 61 6c 6c 6f 63 61 74 c-a with-allocat
1350: 65 72 20 43 6f 6e 73 74 61 6e 74 20 73 61 6d 70 er Constant samp
1360: 6c 65 2d 6b 65 79 0a 0a 56 61 72 69 61 62 6c 65 le-key..Variable
1370: 20 6b 65 79 23 20 5c 20 6b 65 79 20 68 61 73 68 key# \ key hash
1380: 20 74 61 62 6c 65 0a 56 61 72 69 61 62 6c 65 20 table.Variable
1390: 6e 69 63 6b 23 20 5c 20 6e 69 63 6b 20 68 61 73 nick# \ nick has
13a0: 68 20 74 61 62 6c 65 0a 0a 36 34 56 61 72 69 61 h table..64Varia
13b0: 62 6c 65 20 6b 65 79 2d 72 65 61 64 2d 6f 66 66 ble key-read-off
13c0: 73 65 74 0a 0a 3a 20 63 75 72 72 65 6e 74 2d 6b set..: current-k
13d0: 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6f ey ( addr u -- o
13e0: 20 29 0a 20 20 20 20 32 64 75 70 20 6b 65 79 7c ). 2dup key|
13f0: 20 6b 65 79 23 20 23 40 20 64 72 6f 70 0a 20 20 key# #@ drop.
1400: 20 20 64 75 70 20 30 3d 20 49 46 20 20 64 72 6f dup 0= IF dro
1410: 70 20 2e 22 20 75 6e 6b 6e 6f 77 6e 20 6b 65 79 p ." unknown key
1420: 3a 20 22 20 38 35 74 79 70 65 20 63 72 20 20 30 : " 85type cr 0
1430: 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 EXIT THEN.
1440: 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 70 6b 20 24 cell+ >o ke-pk $
1450: 21 20 6f 20 6f 3e 20 3b 0a 0a 56 61 72 69 61 62 ! o o> ;..Variab
1460: 6c 65 20 73 69 6d 2d 6e 69 63 6b 21 0a 0a 3a 20 le sim-nick!..:
1470: 6e 69 63 6b 21 20 28 20 2d 2d 20 29 20 73 69 6d nick! ( -- ) sim
1480: 2d 6e 69 63 6b 21 20 40 20 3f 45 58 49 54 20 20 -nick! @ ?EXIT
1490: 6f 20 7b 20 77 5e 20 6f 70 74 72 20 7d 0a 20 20 o { w^ optr }.
14a0: 20 20 6b 65 2d 6e 69 63 6b 20 24 40 20 6e 69 63 ke-nick $@ nic
14b0: 6b 23 20 23 40 20 64 30 3d 20 49 46 0a 09 6f 70 k# #@ d0= IF..op
14c0: 74 72 20 63 65 6c 6c 20 6b 65 2d 6e 69 63 6b 20 tr cell ke-nick
14d0: 24 40 20 6e 69 63 6b 23 20 23 21 20 30 0a 20 20 $@ nick# #! 0.
14e0: 20 20 45 4c 53 45 0a 09 6c 61 73 74 23 20 63 65 ELSE..last# ce
14f0: 6c 6c 2b 20 24 40 6c 65 6e 20 63 65 6c 6c 2f 0a ll+ $@len cell/.
1500: 09 6f 70 74 72 20 63 65 6c 6c 20 6c 61 73 74 23 .optr cell last#
1510: 20 63 65 6c 6c 2b 20 24 2b 21 0a 20 20 20 20 54 cell+ $+!. T
1520: 48 45 4e 20 20 6b 65 2d 6e 69 63 6b 23 20 21 20 HEN ke-nick# !
1530: 3b 0a 0a 3a 20 23 2e 6e 69 63 6b 20 28 20 68 61 ;..: #.nick ( ha
1540: 73 68 20 2d 2d 20 29 0a 20 20 20 20 64 75 70 20 sh -- ). dup
1550: 24 40 20 74 79 70 65 20 27 23 27 20 65 6d 69 74 $@ type '#' emit
1560: 20 63 65 6c 6c 2b 20 24 40 6c 65 6e 20 63 65 6c cell+ $@len cel
1570: 6c 2f 20 2e 20 3b 0a 0a 3a 20 6c 61 73 74 2d 70 l/ . ;..: last-p
1580: 65 74 40 20 28 20 2d 2d 20 61 64 64 72 20 75 20 et@ ( -- addr u
1590: 29 0a 20 20 20 20 6b 65 2d 70 65 74 73 20 24 5b ). ke-pets $[
15a0: 5d 23 20 3f 64 75 70 2d 49 46 20 20 31 2d 20 6b ]# ?dup-IF 1- k
15b0: 65 2d 70 65 74 73 20 24 5b 5d 40 20 20 45 4c 53 e-pets $[]@ ELS
15c0: 45 20 20 23 30 2e 20 20 54 48 45 4e 20 3b 0a 0a E #0. THEN ;..
15d0: 3a 20 70 65 74 21 20 28 20 2d 2d 20 29 20 73 69 : pet! ( -- ) si
15e0: 6d 2d 6e 69 63 6b 21 20 40 20 3f 45 58 49 54 20 m-nick! @ ?EXIT
15f0: 20 6f 20 7b 20 77 5e 20 6f 70 74 72 20 7d 0a 20 o { w^ optr }.
1600: 20 20 20 6c 61 73 74 2d 70 65 74 40 20 6e 69 63 last-pet@ nic
1610: 6b 23 20 23 40 20 64 30 3d 20 49 46 0a 09 6f 70 k# #@ d0= IF..op
1620: 74 72 20 63 65 6c 6c 20 6c 61 73 74 2d 70 65 74 tr cell last-pet
1630: 40 20 6e 69 63 6b 23 20 23 21 20 30 0a 20 20 20 @ nick# #! 0.
1640: 20 45 4c 53 45 0a 09 6c 61 73 74 23 20 63 65 6c ELSE..last# cel
1650: 6c 2b 20 24 40 6c 65 6e 20 63 65 6c 6c 2f 0a 09 l+ $@len cell/..
1660: 6f 70 74 72 20 63 65 6c 6c 20 6c 61 73 74 23 20 optr cell last#
1670: 63 65 6c 6c 2b 20 24 2b 21 0a 20 20 20 20 54 48 cell+ $+!. TH
1680: 45 4e 20 20 6b 65 2d 70 65 74 73 20 24 5b 5d 23 EN ke-pets $[]#
1690: 20 31 2d 20 6b 65 2d 70 65 74 73 23 20 24 5b 5d 1- ke-pets# $[]
16a0: 20 21 20 3b 0a 0a 3a 20 6b 65 79 3a 6e 65 77 20 ! ;..: key:new
16b0: 28 20 61 64 64 72 20 75 20 2d 2d 20 6f 20 29 0a ( addr u -- o ).
16c0: 20 20 20 20 5c 47 20 63 72 65 61 74 65 20 6e 65 \G create ne
16d0: 77 20 6b 65 79 2c 20 61 64 64 72 20 75 20 69 73 w key, addr u is
16e0: 20 74 68 65 20 70 75 62 6c 69 63 20 6b 65 79 0a the public key.
16f0: 20 20 20 20 73 61 6d 70 6c 65 2d 6b 65 79 20 3e sample-key >
1700: 6f 20 20 6b 65 2d 73 6b 20 6b 65 2d 65 6e 64 20 o ke-sk ke-end
1710: 6f 76 65 72 20 2d 20 65 72 61 73 65 0a 20 20 20 over - erase.
1720: 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65 key-entry-table
1730: 20 40 20 74 6f 6b 65 6e 2d 74 61 62 6c 65 20 21 @ token-table !
1740: 0a 20 20 20 20 3e 73 74 6f 72 65 6b 65 79 20 40 . >storekey @
1750: 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20 21 0a 20 ke-storekey !.
1760: 20 20 20 6b 65 79 2d 72 65 61 64 2d 6f 66 66 73 key-read-offs
1770: 65 74 20 36 34 40 20 6b 65 2d 6f 66 66 73 65 74 et 64@ ke-offset
1780: 20 36 34 21 0a 20 20 20 20 31 20 69 6d 70 6f 72 64!. 1 impor
1790: 74 2d 74 79 70 65 20 40 20 6c 73 68 69 66 74 20 t-type @ lshift
17a0: 5b 20 31 20 69 6d 70 6f 72 74 23 6e 65 77 20 6c [ 1 import#new l
17b0: 73 68 69 66 74 20 5d 4c 20 6f 72 20 6b 65 2d 69 shift ]L or ke-i
17c0: 6d 70 6f 72 74 73 20 21 0a 20 20 20 20 6b 65 79 mports !. key
17d0: 70 61 63 6b 2d 61 6c 6c 23 20 6e 3e 36 34 20 6b pack-all# n>64 k
17e0: 65 79 2d 72 65 61 64 2d 6f 66 66 73 65 74 20 36 ey-read-offset 6
17f0: 34 2b 21 20 6f 20 63 65 6c 6c 2d 20 6b 65 2d 65 4+! o cell- ke-e
1800: 6e 64 20 6f 76 65 72 20 2d 0a 20 20 20 20 32 6f nd over -. 2o
1810: 76 65 72 20 6b 65 79 7c 20 6b 65 79 23 20 23 21 ver key| key# #!
1820: 20 6f 3e 0a 20 20 20 20 63 75 72 72 65 6e 74 2d o>. current-
1830: 6b 65 79 20 3b 0a 0a 30 20 56 61 6c 75 65 20 6c key ;..0 Value l
1840: 61 73 74 2d 6b 65 79 0a 0a 3a 20 6b 65 79 3f 6e ast-key..: key?n
1850: 65 77 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6f ew ( addr u -- o
1860: 20 29 0a 20 20 20 20 5c 47 20 43 72 65 61 74 65 ). \G Create
1870: 20 6f 72 20 6c 6f 6f 6b 75 70 20 6e 65 77 20 6b or lookup new k
1880: 65 79 0a 20 20 20 20 32 64 75 70 20 6b 65 79 7c ey. 2dup key|
1890: 20 6b 65 79 23 20 23 40 20 64 72 6f 70 0a 20 20 key# #@ drop.
18a0: 20 20 64 75 70 20 30 3d 20 49 46 20 20 64 72 6f dup 0= IF dro
18b0: 70 20 6b 65 79 3a 6e 65 77 0a 20 20 20 20 45 4c p key:new. EL
18c0: 53 45 20 20 6e 69 70 20 6e 69 70 20 63 65 6c 6c SE nip nip cell
18d0: 2b 20 20 31 20 69 6d 70 6f 72 74 2d 74 79 70 65 + 1 import-type
18e0: 20 40 20 6c 73 68 69 66 74 20 6f 76 65 72 20 2e @ lshift over .
18f0: 6b 65 2d 69 6d 70 6f 72 74 73 20 6f 72 21 20 20 ke-imports or!
1900: 54 48 45 4e 0a 20 20 20 20 64 75 70 20 74 6f 20 THEN. dup to
1910: 6c 61 73 74 2d 6b 65 79 20 3b 0a 0a 5c 20 73 65 last-key ;..\ se
1920: 61 72 63 68 20 66 6f 72 20 6b 65 79 73 20 2d 20 arch for keys -
1930: 6e 6f 74 20 6f 70 74 69 6d 69 7a 65 64 0a 0a 3a not optimized..:
1940: 20 23 73 70 6c 69 74 20 28 20 61 64 64 72 20 75 #split ( addr u
1950: 20 2d 2d 20 61 64 64 72 20 75 20 6e 20 29 0a 20 -- addr u n ).
1960: 20 20 20 5b 3a 20 32 64 75 70 20 27 23 27 20 2d [: 2dup '#' -
1970: 73 63 61 6e 20 6e 69 70 20 3e 72 0a 20 20 20 20 scan nip >r.
1980: 20 20 72 40 20 30 3d 20 49 46 20 20 72 64 72 6f r@ 0= IF rdro
1990: 70 20 30 20 20 45 58 49 54 20 20 54 48 45 4e 0a p 0 EXIT THEN.
19a0: 20 20 20 20 20 20 23 30 2e 20 32 6f 76 65 72 20 #0. 2over
19b0: 72 40 20 2f 73 74 72 69 6e 67 20 3e 6e 75 6d 62 r@ /string >numb
19c0: 65 72 0a 20 20 20 20 20 20 30 3d 20 49 46 20 20 er. 0= IF
19d0: 6e 69 70 20 64 72 6f 70 20 6e 69 70 20 72 3e 20 nip drop nip r>
19e0: 31 2d 20 73 77 61 70 20 20 45 4c 53 45 0a 09 20 1- swap ELSE..
19f0: 20 72 64 72 6f 70 20 64 72 6f 70 20 32 64 72 6f rdrop drop 2dro
1a00: 70 20 30 20 20 20 54 48 45 4e 20 3b 5d 20 23 31 p 0 THEN ;] #1
1a10: 30 20 62 61 73 65 2d 65 78 65 63 75 74 65 20 3b 0 base-execute ;
1a20: 0a 0a 3a 20 6e 69 63 6b 2d 6b 65 79 20 28 20 61 ..: nick-key ( a
1a30: 64 64 72 20 75 20 2d 2d 20 6f 20 2f 20 30 20 29 ddr u -- o / 0 )
1a40: 20 5c 20 73 65 61 72 63 68 20 66 6f 72 20 6b 65 \ search for ke
1a50: 79 20 6e 69 63 6b 6e 61 6d 65 0a 20 20 20 20 23 y nickname. #
1a60: 73 70 6c 69 74 20 3e 72 20 6e 69 63 6b 23 20 23 split >r nick# #
1a70: 40 20 32 64 75 70 20 64 30 3d 20 49 46 20 20 72 @ 2dup d0= IF r
1a80: 64 72 6f 70 20 64 72 6f 70 20 20 45 58 49 54 20 drop drop EXIT
1a90: 20 54 48 45 4e 0a 20 20 20 20 72 3e 20 63 65 6c THEN. r> cel
1aa0: 6c 73 20 73 61 66 65 2f 73 74 72 69 6e 67 20 30 ls safe/string 0
1ab0: 3d 20 49 46 20 20 64 72 6f 70 20 30 20 20 45 58 = IF drop 0 EX
1ac0: 49 54 20 20 54 48 45 4e 20 20 40 20 3b 0a 0a 3a IT THEN @ ;..:
1ad0: 20 73 65 63 72 65 74 2d 6b 65 79 73 23 20 28 20 secret-keys# (
1ae0: 2d 2d 20 6e 20 29 0a 20 20 20 20 30 20 6b 65 79 -- n ). 0 key
1af0: 23 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 # [: cell+ $@ dr
1b00: 6f 70 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 73 op cell+ >o ke-s
1b10: 6b 20 40 20 30 3c 3e 20 2d 20 6f 3e 20 3b 5d 20 k @ 0<> - o> ;]
1b20: 23 6d 61 70 20 3b 0a 3a 20 73 65 63 72 65 74 2d #map ;.: secret-
1b30: 6b 65 79 20 28 20 6e 20 2d 2d 20 6f 2f 30 20 29 key ( n -- o/0 )
1b40: 0a 20 20 20 20 30 20 74 75 63 6b 20 6b 65 79 23 . 0 tuck key#
1b50: 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f [: cell+ $@ dro
1b60: 70 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 73 6b p cell+ >o ke-sk
1b70: 20 40 20 49 46 0a 09 20 20 32 64 75 70 20 3d 20 @ IF.. 2dup =
1b80: 49 46 20 20 72 6f 74 20 64 72 6f 70 20 6f 20 2d IF rot drop o -
1b90: 72 6f 74 20 20 54 48 45 4e 20 20 31 2b 0a 20 20 rot THEN 1+.
1ba0: 20 20 20 20 54 48 45 4e 20 20 6f 3e 20 3b 5d 20 THEN o> ;]
1bb0: 23 6d 61 70 20 32 64 72 6f 70 20 3b 0a 3a 20 2e #map 2drop ;.: .
1bc0: 23 20 28 20 6e 20 2d 2d 20 29 20 3f 64 75 70 2d # ( n -- ) ?dup-
1bd0: 49 46 20 20 27 23 27 20 65 6d 69 74 20 30 20 2e IF '#' emit 0 .
1be0: 72 20 20 54 48 45 4e 20 3b 0a 3a 20 2e 6e 69 63 r THEN ;.: .nic
1bf0: 6b 2d 62 61 73 65 20 28 20 6f 3a 6b 65 79 20 2d k-base ( o:key -
1c00: 2d 20 29 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20 - ). ke-nick
1c10: 24 2e 20 20 6b 65 2d 6e 69 63 6b 23 20 40 20 2e $. ke-nick# @ .
1c20: 23 20 3b 0a 3a 20 2e 70 65 74 2d 62 61 73 65 20 # ;.: .pet-base
1c30: 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 ( o:key -- ).
1c40: 20 30 20 6b 65 2d 70 65 74 73 20 5b 3a 20 73 70 0 ke-pets [: sp
1c50: 61 63 65 20 74 79 70 65 0a 20 20 20 20 20 20 64 ace type. d
1c60: 75 70 20 6b 65 2d 70 65 74 73 23 20 24 5b 5d 20 up ke-pets# $[]
1c70: 40 20 2e 23 20 20 31 2b 20 3b 5d 20 24 5b 5d 6d @ .# 1+ ;] $[]m
1c80: 61 70 20 64 72 6f 70 20 3b 0a 3a 20 2e 70 65 74 ap drop ;.: .pet
1c90: 30 2d 62 61 73 65 20 28 20 6f 3a 6b 65 79 20 2d 0-base ( o:key -
1ca0: 2d 20 29 0a 20 20 20 20 6b 65 2d 70 65 74 73 20 - ). ke-pets
1cb0: 24 5b 5d 23 20 49 46 20 20 30 20 6b 65 2d 70 65 $[]# IF 0 ke-pe
1cc0: 74 73 20 24 5b 5d 40 20 74 79 70 65 20 30 20 6b ts $[]@ type 0 k
1cd0: 65 2d 70 65 74 73 23 20 24 5b 5d 20 40 20 2e 23 e-pets# $[] @ .#
1ce0: 0a 20 20 20 20 45 4c 53 45 20 20 2e 6e 69 63 6b . ELSE .nick
1cf0: 2d 62 61 73 65 20 20 54 48 45 4e 20 3b 0a 3a 20 -base THEN ;.:
1d00: 2e 72 65 61 6c 2d 6e 69 63 6b 20 28 20 6f 3a 6b .real-nick ( o:k
1d10: 65 79 20 2d 2d 20 29 20 20 20 6b 65 2d 69 6d 70 ey -- ) ke-imp
1d20: 6f 72 74 73 20 40 20 3e 69 6d 2d 63 6f 6c 6f 72 orts @ >im-color
1d30: 20 2e 6e 69 63 6b 2d 62 61 73 65 20 3c 64 65 66 .nick-base <def
1d40: 61 75 6c 74 3e 20 3b 0a 3a 20 2e 6e 69 63 6b 20 ault> ;.: .nick
1d50: 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 20 20 20 6b ( o:key -- ) k
1d60: 65 2d 69 6d 70 6f 72 74 73 20 40 20 3e 69 6d 2d e-imports @ >im-
1d70: 63 6f 6c 6f 72 20 2e 70 65 74 30 2d 62 61 73 65 color .pet0-base
1d80: 20 3c 64 65 66 61 75 6c 74 3e 20 3b 0a 3a 20 2e <default> ;.: .
1d90: 6e 69 63 6b 2b 70 65 74 20 28 20 6f 3a 6b 65 79 nick+pet ( o:key
1da0: 20 2d 2d 20 29 0a 20 20 20 20 6b 65 2d 69 6d 70 -- ). ke-imp
1db0: 6f 72 74 73 20 40 20 3e 69 6d 2d 63 6f 6c 6f 72 orts @ >im-color
1dc0: 20 2e 6e 69 63 6b 2d 62 61 73 65 20 2e 70 65 74 .nick-base .pet
1dd0: 2d 62 61 73 65 20 3c 64 65 66 61 75 6c 74 3e 20 -base <default>
1de0: 3b 0a 0a 3a 20 6e 69 63 6b 3e 70 6b 20 28 20 6e ;..: nick>pk ( n
1df0: 69 63 6b 20 75 20 2d 2d 20 70 6b 20 75 20 29 0a ick u -- pk u ).
1e00: 20 20 20 20 6e 69 63 6b 2d 6b 65 79 20 3f 64 75 nick-key ?du
1e10: 70 2d 49 46 20 2e 6b 65 2d 70 6b 20 24 40 20 45 p-IF .ke-pk $@ E
1e20: 4c 53 45 20 30 20 30 20 54 48 45 4e 20 3b 0a 3a LSE 0 0 THEN ;.:
1e30: 20 68 6f 73 74 2e 6e 69 63 6b 3e 70 6b 20 28 20 host.nick>pk (
1e40: 61 64 64 72 20 75 20 2d 2d 20 70 6b 20 75 27 20 addr u -- pk u'
1e50: 29 0a 20 20 20 20 27 2e 27 20 24 73 70 6c 69 74 ). '.' $split
1e60: 20 64 75 70 20 30 3d 20 49 46 20 20 32 73 77 61 dup 0= IF 2swa
1e70: 70 20 20 54 48 45 4e 20 5b 3a 20 6e 69 63 6b 3e p THEN [: nick>
1e80: 70 6b 20 74 79 70 65 20 74 79 70 65 20 3b 5d 20 pk type type ;]
1e90: 24 74 6d 70 20 3b 0a 0a 3a 20 6b 65 79 2d 65 78 $tmp ;..: key-ex
1ea0: 69 73 74 3f 20 28 20 61 64 64 72 20 75 20 2d 2d ist? ( addr u --
1eb0: 20 6f 2f 30 20 29 0a 20 20 20 20 6b 65 79 23 20 o/0 ). key#
1ec0: 23 40 20 49 46 20 20 63 65 6c 6c 2b 20 20 54 48 #@ IF cell+ TH
1ed0: 45 4e 20 3b 20 0a 0a 5c 20 70 65 72 6d 69 73 73 EN ; ..\ permiss
1ee0: 69 6f 6e 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e ion modification
1ef0: 0a 0a 32 36 20 62 75 66 66 65 72 3a 20 70 65 72 ..26 buffer: per
1f00: 6d 2d 63 68 61 72 73 0a 30 20 70 65 72 6d 24 20 m-chars.0 perm$
1f10: 63 6f 75 6e 74 20 62 6f 75 6e 64 73 20 5b 44 4f count bounds [DO
1f20: 5d 20 64 75 70 20 5b 49 5d 20 63 40 20 27 61 27 ] dup [I] c@ 'a'
1f30: 20 2d 20 70 65 72 6d 2d 63 68 61 72 73 20 2b 20 - perm-chars +
1f40: 63 21 20 31 2b 20 5b 4c 4f 4f 50 5d 20 64 72 6f c! 1+ [LOOP] dro
1f50: 70 0a 0a 3a 20 2e 70 65 72 6d 20 28 20 70 65 72 p..: .perm ( per
1f60: 6d 69 73 73 69 6f 6e 20 2d 2d 20 29 20 20 31 20 mission -- ) 1
1f70: 70 65 72 6d 24 20 63 6f 75 6e 74 20 62 6f 75 6e perm$ count boun
1f80: 64 73 20 44 4f 0a 09 32 64 75 70 20 61 6e 64 20 ds DO..2dup and
1f90: 30 3c 3e 20 49 20 63 40 20 27 2d 27 20 72 6f 74 0<> I c@ '-' rot
1fa0: 20 73 65 6c 65 63 74 20 65 6d 69 74 20 32 2a 0a select emit 2*.
1fb0: 20 20 20 20 4c 4f 4f 50 20 20 32 64 72 6f 70 20 LOOP 2drop
1fc0: 3b 0a 3a 20 70 65 72 6d 61 6e 64 20 28 20 70 65 ;.: permand ( pe
1fd0: 72 6d 61 6e 64 20 70 65 72 6d 6f 72 20 6e 65 77 rmand permor new
1fe0: 20 2d 2d 20 70 65 72 6d 61 6e 64 27 20 70 65 72 -- permand' per
1ff0: 6d 6f 72 20 29 0a 20 20 20 20 69 6e 76 65 72 74 mor ). invert
2000: 20 74 75 63 6b 20 61 6e 64 20 3e 72 20 61 6e 64 tuck and >r and
2010: 20 72 3e 20 3b 0a 3a 20 3e 70 65 72 6d 2d 6d 6f r> ;.: >perm-mo
2020: 64 20 28 20 70 65 72 6d 61 6e 64 20 70 65 72 6d d ( permand perm
2030: 6f 72 20 2d 2d 20 70 65 72 6d 61 6e 64 27 20 70 or -- permand' p
2040: 65 72 6d 6f 72 20 29 0a 20 20 20 20 73 77 61 70 ermor ). swap
2050: 20 64 75 70 20 30 3d 20 49 46 20 20 64 72 6f 70 dup 0= IF drop
2060: 20 64 75 70 20 69 6e 76 65 72 74 20 20 54 48 45 dup invert THE
2070: 4e 20 73 77 61 70 20 3b 0a 3a 20 3e 70 65 72 6d N swap ;.: >perm
2080: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 70 65 72 ( addr u -- per
2090: 6d 61 6e 64 20 70 65 72 6d 6f 72 20 29 0a 20 20 mand permor ).
20a0: 20 20 5c 47 20 70 61 72 73 65 20 70 65 72 6d 69 \G parse permi
20b0: 73 73 69 6f 6e 73 3a 20 2b 20 61 64 64 73 2c 20 ssions: + adds,
20c0: 2d 20 72 65 6d 6f 76 65 73 20 70 65 72 6d 69 73 - removes permis
20d0: 73 69 6f 6e 73 2c 0a 20 20 20 20 5c 47 20 6e 6f sions,. \G no
20e0: 20 6d 6f 64 69 66 69 65 72 20 73 65 74 73 20 70 modifier sets p
20f0: 65 72 6d 69 73 73 6f 6e 73 2e 0a 20 20 20 20 30 ermissons.. 0
2100: 20 30 20 5b 27 5d 20 6f 72 20 7b 20 78 74 20 7d 0 ['] or { xt }
2110: 0a 20 20 20 20 32 73 77 61 70 20 62 6f 75 6e 64 . 2swap bound
2120: 73 20 3f 44 4f 0a 09 49 20 63 40 20 63 61 73 65 s ?DO..I c@ case
2130: 0a 09 20 20 20 20 27 2b 27 20 6f 66 20 20 3e 70 .. '+' of >p
2140: 65 72 6d 2d 6d 6f 64 20 5b 27 5d 20 6f 72 20 74 erm-mod ['] or t
2150: 6f 20 78 74 20 65 6e 64 6f 66 0a 09 20 20 20 20 o xt endof..
2160: 27 2d 27 20 6f 66 20 20 3e 70 65 72 6d 2d 6d 6f '-' of >perm-mo
2170: 64 20 5b 27 5d 20 70 65 72 6d 61 6e 64 20 74 6f d ['] permand to
2180: 20 78 74 20 20 65 6e 64 6f 66 0a 09 20 20 20 20 xt endof..
2190: 27 3d 27 20 6f 66 20 20 32 64 72 6f 70 20 70 65 '=' of 2drop pe
21a0: 72 6d 25 64 65 66 61 75 6c 74 20 64 75 70 20 5b rm%default dup [
21b0: 27 5d 20 6f 72 20 74 6f 20 78 74 20 20 65 6e 64 '] or to xt end
21c0: 6f 66 0a 09 20 20 20 20 27 61 27 20 2d 20 64 75 of.. 'a' - du
21d0: 70 20 27 7a 27 20 75 3c 3d 20 20 49 46 0a 09 09 p 'z' u<= IF...
21e0: 70 65 72 6d 2d 63 68 61 72 73 20 2b 20 63 40 20 perm-chars + c@
21f0: 31 20 73 77 61 70 20 6c 73 68 69 66 74 20 78 74 1 swap lshift xt
2200: 20 65 78 65 63 75 74 65 0a 09 09 30 20 28 20 64 execute...0 ( d
2210: 75 6d 6d 79 20 66 6f 72 20 65 6e 64 63 61 73 65 ummy for endcase
2220: 20 29 0a 09 20 20 20 20 54 48 45 4e 20 20 65 6e ).. THEN en
2230: 64 63 61 73 65 0a 20 20 20 20 4c 4f 4f 50 20 3b dcase. LOOP ;
2240: 0a 3a 20 2e 70 65 72 6d 61 6e 64 6f 72 20 28 20 .: .permandor (
2250: 70 65 72 6d 61 6e 64 20 70 65 72 6d 6f 72 20 2d permand permor -
2260: 2d 20 29 0a 20 20 20 20 30 20 7b 20 2b 2d 20 7d - ). 0 { +- }
2270: 0a 20 20 20 20 31 20 70 65 72 6d 24 20 63 6f 75 . 1 perm$ cou
2280: 6e 74 20 62 6f 75 6e 64 73 20 44 4f 20 20 3e 72 nt bounds DO >r
2290: 0a 09 6f 76 65 72 20 72 40 20 61 6e 64 20 30 3d ..over r@ and 0=
22a0: 20 49 46 20 20 27 2d 27 20 64 75 70 20 2b 2d 20 IF '-' dup +-
22b0: 3c 3e 20 49 46 20 20 64 75 70 20 74 6f 20 2b 2d <> IF dup to +-
22c0: 20 65 6d 69 74 0a 09 20 20 20 20 45 4c 53 45 20 emit.. ELSE
22d0: 20 64 72 6f 70 20 20 54 48 45 4e 20 72 3e 20 20 drop THEN r>
22e0: 49 20 63 40 20 65 6d 69 74 20 20 3e 72 20 54 48 I c@ emit >r TH
22f0: 45 4e 0a 09 64 75 70 20 20 72 40 20 61 6e 64 20 EN..dup r@ and
2300: 20 20 20 49 46 20 20 27 2b 27 20 64 75 70 20 2b IF '+' dup +
2310: 2d 20 3c 3e 20 49 46 20 20 64 75 70 20 74 6f 20 - <> IF dup to
2320: 2b 2d 20 65 6d 69 74 0a 09 20 20 20 20 45 4c 53 +- emit.. ELS
2330: 45 20 20 64 72 6f 70 20 20 54 48 45 4e 20 72 3e E drop THEN r>
2340: 20 20 49 20 63 40 20 65 6d 69 74 20 20 3e 72 20 I c@ emit >r
2350: 54 48 45 4e 0a 09 72 3e 20 32 2a 0a 20 20 20 20 THEN..r> 2*.
2360: 4c 4f 4f 50 20 20 64 72 6f 70 20 32 64 72 6f 70 LOOP drop 2drop
2370: 20 3b 0a 0a 5c 20 72 65 61 64 20 69 6e 20 70 65 ;..\ read in pe
2380: 72 6d 69 73 73 69 6f 6e 20 67 72 6f 75 70 73 2c rmission groups,
2390: 20 67 72 6f 75 70 73 20 69 73 20 69 6e 20 74 68 groups is in th
23a0: 65 20 2e 6e 65 74 32 6f 20 64 69 72 65 63 74 6f e .net2o directo
23b0: 72 79 0a 0a 3a 20 3e 67 72 6f 75 70 2d 69 64 20 ry..: >group-id
23c0: 28 20 61 64 64 72 20 75 20 2d 2d 20 69 64 2f 2d ( addr u -- id/-
23d0: 31 20 29 0a 20 20 20 20 2d 31 20 30 20 67 72 6f 1 ). -1 0 gro
23e0: 75 70 73 5b 5d 20 5b 3a 20 32 73 77 61 70 20 32 ups[] [: 2swap 2
23f0: 3e 72 20 32 20 63 65 6c 6c 73 20 2f 73 74 72 69 >r 2 cells /stri
2400: 6e 67 0a 20 20 20 20 20 20 32 6f 76 65 72 20 73 ng. 2over s
2410: 74 72 69 6e 67 2d 70 72 65 66 69 78 3f 20 49 46 tring-prefix? IF
2420: 20 20 32 72 3e 20 6e 69 70 20 64 75 70 0a 20 20 2r> nip dup.
2430: 20 20 20 20 45 4c 53 45 20 20 32 72 3e 20 20 54 ELSE 2r> T
2440: 48 45 4e 20 20 31 2b 20 3b 5d 20 24 5b 5d 6d 61 HEN 1+ ;] $[]ma
2450: 70 0a 20 20 20 20 32 6e 69 70 20 64 72 6f 70 20 p. 2nip drop
2460: 3b 0a 0a 3a 20 3e 67 72 6f 75 70 73 20 28 20 61 ;..: >groups ( a
2470: 64 64 72 20 75 20 70 61 6e 64 20 70 6f 72 20 2d ddr u pand por -
2480: 2d 20 29 0a 20 20 20 20 73 22 20 22 20 67 72 6f - ). s" " gro
2490: 75 70 73 5b 5d 20 24 2b 5b 5d 21 0a 20 20 20 20 ups[] $+[]!.
24a0: 5b 3a 20 7b 20 64 5e 20 70 61 6e 64 6f 72 20 7d [: { d^ pandor }
24b0: 20 70 61 6e 64 6f 72 20 32 20 63 65 6c 6c 73 20 pandor 2 cells
24c0: 74 79 70 65 20 20 74 79 70 65 20 3b 5d 0a 20 20 type type ;].
24d0: 20 20 67 72 6f 75 70 73 5b 5d 20 64 75 70 20 24 groups[] dup $
24e0: 5b 5d 23 20 31 2d 20 73 77 61 70 20 24 5b 5d 20 []# 1- swap $[]
24f0: 24 65 78 65 63 20 3b 0a 0a 3a 20 69 6e 69 74 2d $exec ;..: init-
2500: 67 72 6f 75 70 73 20 28 20 2d 2d 20 29 0a 20 20 groups ( -- ).
2510: 20 20 22 6d 79 73 65 6c 66 22 20 20 70 65 72 6d "myself" perm
2520: 25 6d 79 73 65 6c 66 20 20 64 75 70 20 3e 67 72 %myself dup >gr
2530: 6f 75 70 73 0a 20 20 20 20 22 70 65 65 72 22 20 oups. "peer"
2540: 20 20 20 70 65 72 6d 25 64 65 66 61 75 6c 74 20 perm%default
2550: 64 75 70 20 3e 67 72 6f 75 70 73 0a 20 20 20 20 dup >groups.
2560: 22 64 68 74 22 20 20 20 20 20 70 65 72 6d 25 64 "dht" perm%d
2570: 68 74 72 6f 6f 74 20 64 75 70 20 3e 67 72 6f 75 htroot dup >grou
2580: 70 73 0a 20 20 20 20 22 75 6e 6b 6e 6f 77 6e 22 ps. "unknown"
2590: 20 70 65 72 6d 25 75 6e 6b 6e 6f 77 6e 20 64 75 perm%unknown du
25a0: 70 20 3e 67 72 6f 75 70 73 0a 20 20 20 20 22 62 p >groups. "b
25b0: 6c 6f 63 6b 65 64 22 20 70 65 72 6d 25 62 6c 6f locked" perm%blo
25c0: 63 6b 65 64 20 70 65 72 6d 25 69 6e 64 69 72 65 cked perm%indire
25d0: 63 74 20 6f 72 20 64 75 70 20 3e 67 72 6f 75 70 ct or dup >group
25e0: 73 20 3b 0a 0a 3a 20 2e 67 72 6f 75 70 73 20 28 s ;..: .groups (
25f0: 20 2d 2d 20 29 0a 20 20 20 20 67 72 6f 75 70 73 -- ). groups
2600: 5b 5d 20 5b 3a 20 32 64 75 70 20 32 20 63 65 6c [] [: 2dup 2 cel
2610: 6c 73 20 2f 73 74 72 69 6e 67 20 74 79 70 65 20 ls /string type
2620: 73 70 61 63 65 0a 20 20 20 20 20 20 64 72 6f 70 space. drop
2630: 20 32 40 20 2e 70 65 72 6d 61 6e 64 6f 72 20 63 2@ .permandor c
2640: 72 20 3b 5d 20 24 5b 5d 6d 61 70 20 3b 0a 0a 3a r ;] $[]map ;..:
2650: 20 2e 69 6e 2d 67 72 6f 75 70 73 20 28 20 61 64 .in-groups ( ad
2660: 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 62 6f dr u -- ). bo
2670: 75 6e 64 73 20 3f 44 4f 0a 09 49 20 70 40 2b 20 unds ?DO..I p@+
2680: 49 20 2d 20 3e 72 20 36 34 3e 6e 20 67 72 6f 75 I - >r 64>n grou
2690: 70 73 5b 5d 20 24 5b 5d 40 20 32 20 63 65 6c 6c ps[] $[]@ 2 cell
26a0: 73 20 2f 73 74 72 69 6e 67 20 73 70 61 63 65 20 s /string space
26b0: 74 79 70 65 0a 20 20 20 20 72 3e 20 2b 4c 4f 4f type. r> +LOO
26c0: 50 20 3b 0a 0a 3a 20 77 72 69 74 65 2d 67 72 6f P ;..: write-gro
26d0: 75 70 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 5b ups ( -- ). [
26e0: 3a 20 2e 22 20 67 72 6f 75 70 73 2b 22 20 67 65 : ." groups+" ge
26f0: 74 70 69 64 20 30 20 2e 72 20 3b 5d 20 24 74 6d tpid 0 .r ;] $tm
2700: 70 20 2e 6e 65 74 32 6f 2f 20 32 64 75 70 20 77 p .net2o/ 2dup w
2710: 2f 6f 20 63 72 65 61 74 65 2d 66 69 6c 65 20 74 /o create-file t
2720: 68 72 6f 77 20 3e 72 0a 20 20 20 20 5b 27 5d 20 hrow >r. [']
2730: 2e 67 72 6f 75 70 73 20 72 40 20 6f 75 74 66 69 .groups r@ outfi
2740: 6c 65 2d 65 78 65 63 75 74 65 0a 20 20 20 20 72 le-execute. r
2750: 3e 20 63 6c 6f 73 65 2d 66 69 6c 65 20 74 68 72 > close-file thr
2760: 6f 77 20 27 2b 27 20 2d 73 63 61 6e 20 31 2d 20 ow '+' -scan 1-
2770: 3e 62 61 63 6b 75 70 20 3b 0a 0a 3a 20 67 72 6f >backup ;..: gro
2780: 75 70 2d 6c 69 6e 65 20 28 20 2d 2d 20 29 0a 20 up-line ( -- ).
2790: 20 20 20 70 61 72 73 65 2d 6e 61 6d 65 20 70 61 parse-name pa
27a0: 72 73 65 2d 6e 61 6d 65 20 3e 70 65 72 6d 20 3e rse-name >perm >
27b0: 67 72 6f 75 70 73 20 3b 0a 0a 3a 20 72 65 61 64 groups ;..: read
27c0: 2d 67 72 6f 75 70 73 2d 6c 6f 6f 70 20 28 20 2d -groups-loop ( -
27d0: 2d 20 29 0a 20 20 20 20 42 45 47 49 4e 20 20 72 - ). BEGIN r
27e0: 65 66 69 6c 6c 20 20 57 48 49 4c 45 20 20 67 72 efill WHILE gr
27f0: 6f 75 70 2d 6c 69 6e 65 20 20 52 45 50 45 41 54 oup-line REPEAT
2800: 20 3b 0a 0a 3a 20 72 65 61 64 2d 67 72 6f 75 70 ;..: read-group
2810: 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 22 67 72 s ( -- ). "gr
2820: 6f 75 70 73 22 20 2e 6e 65 74 32 6f 2f 20 32 64 oups" .net2o/ 2d
2830: 75 70 20 66 69 6c 65 2d 73 74 61 74 75 73 20 6e up file-status n
2840: 69 70 20 6e 6f 2d 66 69 6c 65 23 20 3d 20 49 46 ip no-file# = IF
2850: 0a 09 69 6e 69 74 2d 67 72 6f 75 70 73 20 77 72 ..init-groups wr
2860: 69 74 65 2d 67 72 6f 75 70 73 20 32 64 72 6f 70 ite-groups 2drop
2870: 20 20 45 58 49 54 0a 20 20 20 20 54 48 45 4e 20 EXIT. THEN
2880: 20 3e 69 6e 63 6c 75 64 65 64 20 74 68 72 6f 77 >included throw
2890: 0a 20 20 20 20 5b 27 5d 20 72 65 61 64 2d 67 72 . ['] read-gr
28a0: 6f 75 70 73 2d 6c 6f 6f 70 20 65 78 65 63 75 74 oups-loop execut
28b0: 65 2d 70 61 72 73 69 6e 67 2d 6e 61 6d 65 64 2d e-parsing-named-
28c0: 66 69 6c 65 20 3b 0a 0a 3a 20 67 72 6f 75 70 73 file ;..: groups
28d0: 3e 6d 61 73 6b 20 28 20 61 64 64 72 20 75 20 2d >mask ( addr u -
28e0: 2d 20 6d 61 73 6b 20 29 0a 20 20 20 20 30 20 2d - mask ). 0 -
28f0: 72 6f 74 20 62 6f 75 6e 64 73 20 3f 44 4f 0a 09 rot bounds ?DO..
2900: 49 20 70 40 2b 20 49 20 2d 20 3e 72 0a 09 36 34 I p@+ I - >r..64
2910: 3e 6e 20 64 75 70 20 67 72 6f 75 70 73 5b 5d 20 >n dup groups[]
2920: 24 5b 5d 23 20 75 3e 3d 20 21 21 6e 6f 2d 67 72 $[]# u>= !!no-gr
2930: 6f 75 70 21 21 0a 09 67 72 6f 75 70 73 5b 5d 20 oup!!..groups[]
2940: 24 5b 5d 40 20 64 72 6f 70 20 32 40 20 3e 72 20 $[]@ drop 2@ >r
2950: 61 6e 64 20 72 3e 20 6f 72 0a 20 20 20 20 72 3e and r> or. r>
2960: 20 2b 4c 4f 4f 50 20 3b 0a 0a 3a 20 3f 3e 67 72 +LOOP ;..: ?>gr
2970: 6f 75 70 73 20 28 20 6d 61 73 6b 20 2d 2d 20 6d oups ( mask -- m
2980: 61 73 6b 27 20 29 0a 20 20 20 20 6b 65 2d 67 72 ask' ). ke-gr
2990: 6f 75 70 73 20 24 40 6c 65 6e 20 30 3d 20 49 46 oups $@len 0= IF
29a0: 0a 09 67 72 6f 75 70 73 5b 5d 20 24 5b 5d 23 20 ..groups[] $[]#
29b0: 30 20 44 4f 0a 09 20 20 20 20 64 75 70 20 49 20 0 DO.. dup I
29c0: 67 72 6f 75 70 73 5b 5d 20 24 5b 5d 40 20 64 72 groups[] $[]@ dr
29d0: 6f 70 20 40 0a 09 20 20 20 20 6f 72 20 6f 76 65 op @.. or ove
29e0: 72 20 3d 20 49 46 0a 09 09 49 20 6b 65 2d 67 72 r = IF...I ke-gr
29f0: 6f 75 70 73 20 63 24 2b 21 0a 09 09 49 20 67 72 oups c$+!...I gr
2a00: 6f 75 70 73 5b 5d 20 24 5b 5d 40 20 64 72 6f 70 oups[] $[]@ drop
2a10: 20 63 65 6c 6c 2b 20 40 20 69 6e 76 65 72 74 20 cell+ @ invert
2a20: 61 6e 64 0a 09 20 20 20 20 54 48 45 4e 0a 09 4c and.. THEN..L
2a30: 4f 4f 50 0a 20 20 20 20 54 48 45 4e 20 20 64 72 OOP. THEN dr
2a40: 6f 70 20 3b 0a 0a 3a 6e 6f 6e 61 6d 65 20 64 65 op ;..:noname de
2a50: 66 65 72 73 20 27 63 6f 6c 64 20 20 67 72 6f 75 fers 'cold grou
2a60: 70 73 5b 5d 20 6f 66 66 20 72 65 61 64 2d 67 72 ps[] off read-gr
2a70: 6f 75 70 73 20 3b 20 69 73 20 27 63 6f 6c 64 0a oups ; is 'cold.
2a80: 0a 5c 20 6b 65 79 20 64 69 73 70 6c 61 79 0a 0a .\ key display..
2a90: 5b 49 46 55 4e 44 45 46 5d 20 6d 61 67 65 6e 74 [IFUNDEF] magent
2aa0: 61 20 20 62 72 6f 77 6e 20 63 6f 6e 73 74 61 6e a brown constan
2ab0: 74 20 6d 61 67 65 6e 74 61 20 5b 54 48 45 4e 5d t magenta [THEN]
2ac0: 0a 5b 49 46 44 45 46 5d 20 67 6c 2d 74 79 70 65 .[IFDEF] gl-type
2ad0: 20 3a 20 62 67 7c 20 3e 62 67 20 6f 72 20 3b 20 : bg| >bg or ;
2ae0: 5b 45 4c 53 45 5d 20 3a 20 62 67 7c 20 64 72 6f [ELSE] : bg| dro
2af0: 70 20 3b 20 5b 54 48 45 4e 5d 0a 0a 43 72 65 61 p ; [THEN]..Crea
2b00: 74 65 20 38 35 63 6f 6c 6f 72 73 2d 62 77 0a 30 te 85colors-bw.0
2b10: 20 2c 20 69 6e 76 65 72 73 20 2c 0a 69 6e 76 65 , invers ,.inve
2b20: 72 73 20 2c 20 30 20 2c 0a 30 20 2c 20 69 6e 76 rs , 0 ,.0 , inv
2b30: 65 72 73 20 2c 0a 69 6e 76 65 72 73 20 2c 20 30 ers ,.invers , 0
2b40: 20 2c 0a 43 72 65 61 74 65 20 38 35 63 6f 6c 6f ,.Create 85colo
2b50: 72 73 2d 63 6c 0a 79 65 6c 6c 6f 77 20 3e 66 67 rs-cl.yellow >fg
2b60: 20 62 6c 75 65 20 3e 62 67 20 6f 72 20 62 6f 6c blue >bg or bol
2b70: 64 20 6f 72 20 2c 20 72 65 64 20 3e 66 67 20 77 d or , red >fg w
2b80: 68 69 74 65 20 62 67 7c 20 2c 0a 62 6c 61 63 6b hite bg| ,.black
2b90: 20 3e 66 67 20 63 79 61 6e 20 62 67 7c 20 2c 20 >fg cyan bg| ,
2ba0: 67 72 65 65 6e 20 3e 66 67 20 62 6c 61 63 6b 20 green >fg black
2bb0: 3e 62 67 20 6f 72 20 62 6f 6c 64 20 6f 72 20 2c >bg or bold or ,
2bc0: 0a 77 68 69 74 65 20 3e 66 67 20 62 6c 61 63 6b .white >fg black
2bd0: 20 3e 62 67 20 6f 72 20 62 6f 6c 64 20 6f 72 20 >bg or bold or
2be0: 2c 20 6d 61 67 65 6e 74 61 20 3e 66 67 20 79 65 , magenta >fg ye
2bf0: 6c 6c 6f 77 20 62 67 7c 20 2c 0a 62 6c 75 65 20 llow bg| ,.blue
2c00: 3e 66 67 20 79 65 6c 6c 6f 77 20 62 67 7c 20 2c >fg yellow bg| ,
2c10: 20 63 79 61 6e 20 3e 66 67 20 72 65 64 20 3e 62 cyan >fg red >b
2c20: 67 20 6f 72 20 62 6f 6c 64 20 6f 72 20 2c 0a 0a g or bold or ,..
2c30: 5b 49 46 44 45 46 5d 20 67 6c 2d 74 79 70 65 20 [IFDEF] gl-type
2c40: 38 35 63 6f 6c 6f 72 73 2d 63 6c 20 5b 45 4c 53 85colors-cl [ELS
2c50: 45 5d 20 38 35 63 6f 6c 6f 72 73 2d 62 77 20 5b E] 85colors-bw [
2c60: 54 48 45 4e 5d 20 56 61 6c 75 65 20 38 35 63 6f THEN] Value 85co
2c70: 6c 6f 72 73 0a 0a 3a 20 2e 73 74 72 69 70 65 38 lors..: .stripe8
2c80: 35 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 5 ( addr u -- )
2c90: 20 30 20 2d 72 6f 74 20 62 6f 75 6e 64 73 20 3f 0 -rot bounds ?
2ca0: 44 4f 0a 09 64 75 70 20 63 65 6c 6c 73 20 38 35 DO..dup cells 85
2cb0: 63 6f 6c 6f 72 73 20 2b 20 40 20 61 74 74 72 21 colors + @ attr!
2cc0: 20 31 2b 0a 09 49 20 34 20 38 35 74 79 70 65 20 1+..I 4 85type
2cd0: 20 64 75 70 20 63 65 6c 6c 73 20 38 35 63 6f 6c dup cells 85col
2ce0: 6f 72 73 20 2b 20 40 20 61 74 74 72 21 20 31 2b ors + @ attr! 1+
2cf0: 0a 20 20 20 20 49 20 34 20 2b 20 34 20 38 35 74 . I 4 + 4 85t
2d00: 79 70 65 20 3c 64 65 66 61 75 6c 74 3e 20 63 72 ype <default> cr
2d10: 20 38 20 2b 4c 4f 4f 50 20 20 64 72 6f 70 20 3b 8 +LOOP drop ;
2d20: 0a 3a 20 2e 69 6d 70 6f 72 74 38 35 20 28 20 61 .: .import85 ( a
2d30: 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 6b ddr u -- ). k
2d40: 65 2d 69 6d 70 6f 72 74 73 20 40 20 3e 69 6d 2d e-imports @ >im-
2d50: 63 6f 6c 6f 72 20 38 35 74 79 70 65 20 3c 64 65 color 85type <de
2d60: 66 61 75 6c 74 3e 20 3b 0a 3a 20 2e 72 73 6b 20 fault> ;.: .rsk
2d70: 28 20 6e 69 63 6b 20 75 20 2d 2d 20 29 0a 20 20 ( nick u -- ).
2d80: 20 20 73 6b 72 65 76 20 24 32 30 20 2e 73 74 72 skrev $20 .str
2d90: 69 70 65 38 35 20 73 70 61 63 65 20 74 79 70 65 ipe85 space type
2da0: 20 2e 22 20 20 28 6b 65 65 70 20 6f 66 66 6c 69 ." (keep offli
2db0: 6e 65 20 63 6f 70 79 21 29 22 20 63 72 20 3b 0a ne copy!)" cr ;.
2dc0: 3a 20 2e 6b 65 79 20 28 20 61 64 64 72 20 75 20 : .key ( addr u
2dd0: 2d 2d 20 29 20 64 72 6f 70 20 63 65 6c 6c 2b 20 -- ) drop cell+
2de0: 3e 6f 0a 20 20 20 20 2e 22 20 6e 69 63 6b 3a 20 >o. ." nick:
2df0: 20 20 22 20 2e 6e 69 63 6b 20 63 72 0a 20 20 20 " .nick cr.
2e00: 20 2e 22 20 70 75 62 6b 65 79 3a 20 22 20 6b 65 ." pubkey: " ke
2e10: 2d 70 6b 20 24 40 20 38 35 74 79 70 65 20 63 72 -pk $@ 85type cr
2e20: 0a 20 20 20 20 6b 65 2d 73 6b 20 40 20 49 46 0a . ke-sk @ IF.
2e30: 09 2e 22 20 73 65 63 6b 65 79 3a 20 22 20 6b 65 .." seckey: " ke
2e40: 2d 73 6b 20 73 65 63 40 20 2e 62 6c 61 63 6b 38 -sk sec@ .black8
2e50: 35 20 2e 22 20 20 28 6b 65 65 70 20 73 65 63 72 5 ." (keep secr
2e60: 65 74 21 29 22 20 63 72 20 20 54 48 45 4e 0a 20 et!)" cr THEN.
2e70: 20 20 20 2e 22 20 76 61 6c 69 64 3a 20 20 22 20 ." valid: "
2e80: 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20 2e 73 ke-selfsig $@ .s
2e90: 69 67 64 61 74 65 73 20 63 72 0a 20 20 20 20 2e igdates cr. .
2ea0: 22 20 67 72 6f 75 70 73 3a 20 22 20 6b 65 2d 67 " groups: " ke-g
2eb0: 72 6f 75 70 73 20 24 40 20 2e 69 6e 2d 67 72 6f roups $@ .in-gro
2ec0: 75 70 73 20 63 72 0a 20 20 20 20 2e 22 20 70 65 ups cr. ." pe
2ed0: 72 6d 3a 20 20 20 22 20 6b 65 2d 6d 61 73 6b 20 rm: " ke-mask
2ee0: 40 20 2e 70 65 72 6d 20 63 72 0a 20 20 20 20 6f @ .perm cr. o
2ef0: 3e 20 3b 0a 3a 20 2e 6b 65 79 2d 72 65 73 74 20 > ;.: .key-rest
2f00: 28 20 6f 3a 6b 65 79 20 2d 2d 20 6f 3a 6b 65 79 ( o:key -- o:key
2f10: 20 29 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20 ). ke-pk $@
2f20: 6b 65 79 7c 20 2e 69 6d 70 6f 72 74 38 35 0a 20 key| .import85.
2f30: 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 ke-selfsig $@
2f40: 20 73 70 61 63 65 20 2e 73 69 67 64 61 74 65 73 space .sigdates
2f50: 0a 20 20 20 20 6b 65 2d 67 72 6f 75 70 73 20 24 . ke-groups $
2f60: 40 20 32 64 75 70 20 2e 69 6e 2d 67 72 6f 75 70 @ 2dup .in-group
2f70: 73 20 67 72 6f 75 70 73 3e 6d 61 73 6b 20 69 6e s groups>mask in
2f80: 76 65 72 74 0a 20 20 20 20 73 70 61 63 65 20 6b vert. space k
2f90: 65 2d 6d 61 73 6b 20 40 20 61 6e 64 20 2d 31 20 e-mask @ and -1
2fa0: 73 77 61 70 20 2e 70 65 72 6d 61 6e 64 6f 72 0a swap .permandor.
2fb0: 20 20 20 20 23 74 61 62 20 65 6d 69 74 20 6b 65 #tab emit ke
2fc0: 2d 69 6d 70 6f 72 74 73 20 40 20 2e 69 6d 70 6f -imports @ .impo
2fd0: 72 74 73 0a 20 20 20 20 73 70 61 63 65 20 2e 6e rts. space .n
2fe0: 69 63 6b 2b 70 65 74 20 3b 0a 3a 20 2e 6b 65 79 ick+pet ;.: .key
2ff0: 2d 6c 69 73 74 20 28 20 6f 3a 6b 65 79 20 2d 2d -list ( o:key --
3000: 20 6f 3a 6b 65 79 20 29 0a 20 20 20 20 6b 65 2d o:key ). ke-
3010: 6f 66 66 73 65 74 20 36 34 40 20 36 34 3e 64 20 offset 64@ 64>d
3020: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 66 6d 2f keypack-all# fm/
3030: 6d 6f 64 20 6e 69 70 20 33 20 2e 72 20 73 70 61 mod nip 3 .r spa
3040: 63 65 0a 20 20 20 20 2e 6b 65 79 2d 72 65 73 74 ce. .key-rest
3050: 20 63 72 20 3b 0a 3a 20 2e 73 65 63 72 65 74 2d cr ;.: .secret-
3060: 6e 69 63 6b 73 20 28 20 2d 2d 20 29 0a 20 20 20 nicks ( -- ).
3070: 20 30 20 6b 65 79 23 20 5b 3a 20 63 65 6c 6c 2b 0 key# [: cell+
3080: 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e $@ drop cell+ >
3090: 6f 20 6b 65 2d 73 6b 20 40 20 49 46 0a 09 20 20 o ke-sk @ IF..
30a0: 5b 3a 20 64 75 70 20 31 20 2e 72 20 3b 5d 20 23 [: dup 1 .r ;] #
30b0: 33 36 20 62 61 73 65 2d 65 78 65 63 75 74 65 20 36 base-execute
30c0: 73 70 61 63 65 20 2e 6b 65 79 2d 72 65 73 74 20 space .key-rest
30d0: 63 72 20 31 2b 0a 20 20 20 20 20 20 54 48 45 4e cr 1+. THEN
30e0: 20 6f 3e 20 3b 5d 20 23 6d 61 70 20 64 72 6f 70 o> ;] #map drop
30f0: 20 3b 0a 3a 20 2e 6b 65 79 2d 69 6e 76 69 74 65 ;.: .key-invite
3100: 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 6f 3a 6b 65 ( o:key -- o:ke
3110: 79 20 29 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 y ). ke-pk $@
3120: 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e 0a 20 20 keysize umin.
3130: 20 20 6b 65 2d 69 6d 70 6f 72 74 73 20 40 20 3e ke-imports @ >
3140: 69 6d 2d 63 6f 6c 6f 72 20 38 35 74 79 70 65 20 im-color 85type
3150: 3c 64 65 66 61 75 6c 74 3e 0a 20 20 20 20 73 70 <default>. sp
3160: 61 63 65 20 2e 6e 69 63 6b 20 73 70 61 63 65 20 ace .nick space
3170: 3b 0a 3a 20 2e 6b 65 79 2d 73 68 6f 72 74 20 28 ;.: .key-short (
3180: 20 6f 3a 6b 65 79 20 2d 2d 20 6f 3a 6b 65 79 20 o:key -- o:key
3190: 29 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20 24 2e ). ke-nick $.
31a0: 20 6b 65 2d 70 72 6f 66 20 24 40 6c 65 6e 20 49 ke-prof $@len I
31b0: 46 20 2e 22 20 20 70 72 6f 66 69 6c 65 3a 20 22 F ." profile: "
31c0: 20 6b 65 2d 70 72 6f 66 20 24 40 20 38 35 74 79 ke-prof $@ 85ty
31d0: 70 65 20 54 48 45 4e 20 3b 0a 3a 20 6c 69 73 74 pe THEN ;.: list
31e0: 2d 6b 65 79 73 20 28 20 2d 2d 20 29 0a 20 20 20 -keys ( -- ).
31f0: 20 2e 22 20 63 6f 6c 6f 72 73 3a 20 22 20 2e 69 ." colors: " .i
3200: 6d 70 6f 72 74 2d 63 6f 6c 6f 72 73 20 63 72 0a mport-colors cr.
3210: 20 20 20 20 2e 22 20 6e 75 6d 20 70 75 62 6b 65 ." num pubke
3220: 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y
3230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3240: 20 20 20 20 64 61 74 65 20 20 20 20 20 20 20 20 date
3250: 20 20 20 20 20 20 20 20 20 20 20 20 20 67 72 70 grp
3260: 2b 70 65 72 6d 09 68 20 6e 69 63 6b 22 20 63 72 +perm.h nick" cr
3270: 0a 20 20 20 20 6b 65 79 23 20 5b 3a 20 63 65 6c . key# [: cel
3280: 6c 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b l+ $@ drop cell+
3290: 20 2e 2e 6b 65 79 2d 6c 69 73 74 20 3b 5d 20 23 ..key-list ;] #
32a0: 6d 61 70 20 3b 0a 3a 20 6c 69 73 74 2d 6e 69 63 map ;.: list-nic
32b0: 6b 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 6e 69 ks ( -- ). ni
32c0: 63 6b 23 20 5b 3a 20 64 75 70 20 24 2e 20 2e 22 ck# [: dup $. ."
32d0: 20 3a 22 20 63 72 20 63 65 6c 6c 2b 20 24 40 20 :" cr cell+ $@
32e0: 62 6f 75 6e 64 73 20 3f 44 4f 0a 09 20 20 49 20 bounds ?DO.. I
32f0: 40 20 2e 2e 6b 65 79 2d 6c 69 73 74 20 20 63 65 @ ..key-list ce
3300: 6c 6c 20 2b 4c 4f 4f 50 20 3b 5d 20 23 6d 61 70 ll +LOOP ;] #map
3310: 20 3b 0a 0a 3a 20 64 75 6d 70 6b 65 79 20 28 20 ;..: dumpkey (
3320: 61 64 64 72 20 75 20 2d 2d 20 29 20 64 72 6f 70 addr u -- ) drop
3330: 20 63 65 6c 6c 2b 20 3e 6f 0a 20 20 20 20 2e 5c cell+ >o. .\
3340: 22 20 78 5c 22 20 22 20 6b 65 2d 70 6b 20 24 40 " x\" " ke-pk $@
3350: 20 38 35 74 79 70 65 20 2e 5c 22 20 5c 22 20 6b 85type .\" \" k
3360: 65 79 3f 6e 65 77 22 20 63 72 0a 20 20 20 20 6b ey?new" cr. k
3370: 65 2d 73 6b 20 40 20 49 46 20 20 2e 5c 22 20 78 e-sk @ IF .\" x
3380: 5c 22 20 22 20 6b 65 2d 73 6b 20 40 20 6b 65 79 \" " ke-sk @ key
3390: 73 69 7a 65 20 38 35 74 79 70 65 20 2e 5c 22 20 size 85type .\"
33a0: 5c 22 20 6b 65 2d 73 6b 20 73 65 63 21 20 2b 73 \" ke-sk sec! +s
33b0: 65 63 6b 65 79 22 20 63 72 20 20 54 48 45 4e 0a eckey" cr THEN.
33c0: 20 20 20 20 27 22 27 20 65 6d 69 74 20 2e 6e 69 '"' emit .ni
33d0: 63 6b 20 2e 5c 22 20 5c 22 20 6b 65 2d 6e 69 63 ck .\" \" ke-nic
33e0: 6b 20 24 21 20 22 0a 20 20 20 20 6b 65 2d 73 65 k $! ". ke-se
33f0: 6c 66 73 69 67 20 24 40 20 64 72 6f 70 20 36 34 lfsig $@ drop 64
3400: 40 20 36 34 3e 64 20 5b 3a 20 27 24 27 20 65 6d @ 64>d [: '$' em
3410: 69 74 20 30 20 75 64 2e 72 20 3b 5d 20 24 31 30 it 0 ud.r ;] $10
3420: 20 62 61 73 65 2d 65 78 65 63 75 74 65 0a 20 20 base-execute.
3430: 20 20 2e 22 20 2e 20 64 3e 36 34 20 6b 65 2d 66 ." . d>64 ke-f
3440: 69 72 73 74 21 20 22 20 6b 65 2d 74 79 70 65 20 irst! " ke-type
3450: 40 20 2e 20 2e 22 20 6b 65 2d 74 79 70 65 20 21 @ . ." ke-type !
3460: 22 20 20 63 72 20 6f 3e 20 3b 0a 0a 3a 20 2e 6b " cr o> ;..: .k
3470: 65 79 73 20 28 20 2d 2d 20 29 20 6b 65 79 23 20 eys ( -- ) key#
3480: 5b 3a 20 2e 22 20 69 6e 64 65 78 3a 20 22 20 64 [: ." index: " d
3490: 75 70 20 24 40 20 38 35 74 79 70 65 20 63 72 20 up $@ 85type cr
34a0: 63 65 6c 6c 2b 20 24 40 20 2e 6b 65 79 20 3b 5d cell+ $@ .key ;]
34b0: 20 23 6d 61 70 20 3b 0a 3a 20 64 75 6d 70 6b 65 #map ;.: dumpke
34c0: 79 73 20 28 20 2d 2d 20 29 20 6b 65 79 23 20 5b ys ( -- ) key# [
34d0: 3a 20 63 65 6c 6c 2b 20 24 40 20 64 75 6d 70 6b : cell+ $@ dumpk
34e0: 65 79 20 3b 5d 20 23 6d 61 70 20 3b 0a 0a 3a 20 ey ;] #map ;..:
34f0: 6b 65 79 3e 6e 69 63 6b 20 28 20 61 64 64 72 6b key>nick ( addrk
3500: 65 79 20 75 31 20 2d 2d 20 6e 69 63 6b 20 75 32 ey u1 -- nick u2
3510: 20 29 0a 20 20 20 20 5c 47 20 63 6f 6e 76 65 72 ). \G conver
3520: 74 20 6b 65 79 20 74 6f 20 6e 69 63 6b 0a 20 20 t key to nick.
3530: 20 20 6b 65 79 7c 20 6b 65 79 23 20 23 40 20 30 key| key# #@ 0
3540: 3d 20 49 46 20 20 64 72 6f 70 20 23 30 2e 20 20 = IF drop #0.
3550: 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 63 EXIT THEN. c
3560: 65 6c 6c 2b 20 2e 6b 65 2d 6e 69 63 6b 20 24 40 ell+ .ke-nick $@
3570: 20 3b 0a 3a 20 6b 65 79 3e 6b 65 79 20 28 20 61 ;.: key>key ( a
3580: 64 64 72 6b 65 79 20 75 31 20 2d 2d 20 6b 65 79 ddrkey u1 -- key
3590: 20 75 32 20 29 0a 20 20 20 20 5c 47 20 65 78 70 u2 ). \G exp
35a0: 61 6e 64 20 6b 65 79 20 74 6f 20 66 75 6c 6c 20 and key to full
35b0: 73 69 7a 65 20 61 6e 64 20 63 68 65 63 6b 20 69 size and check i
35c0: 66 20 77 65 20 6b 6e 6f 77 20 69 74 0a 20 20 20 f we know it.
35d0: 20 6b 65 79 7c 20 6b 65 79 23 20 23 40 20 30 3d key| key# #@ 0=
35e0: 20 49 46 20 20 64 72 6f 70 20 23 30 2e 20 20 45 IF drop #0. E
35f0: 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 63 65 XIT THEN. ce
3600: 6c 6c 2b 20 2e 6b 65 2d 70 6b 20 24 40 20 3b 0a ll+ .ke-pk $@ ;.
3610: 0a 3a 20 2e 6b 65 79 23 20 28 20 61 64 64 72 20 .: .key# ( addr
3620: 75 20 2d 2d 20 29 20 6b 65 79 7c 0a 20 20 20 20 u -- ) key|.
3630: 2e 22 20 4b 65 79 20 27 22 20 6b 65 79 23 20 23 ." Key '" key# #
3640: 40 20 30 3d 20 49 46 20 64 72 6f 70 20 45 58 49 @ 0= IF drop EXI
3650: 54 20 54 48 45 4e 0a 20 20 20 20 63 65 6c 6c 2b T THEN. cell+
3660: 20 2e 2e 6e 69 63 6b 20 2e 22 20 27 20 6f 6b 22 ..nick ." ' ok"
3670: 20 63 72 20 3b 0a 0a 44 65 66 65 72 20 64 68 74 cr ;..Defer dht
3680: 2d 6e 69 63 6b 3f 0a 65 76 65 6e 74 3a 20 2d 3e -nick?.event: ->
3690: 73 65 61 72 63 68 2d 6b 65 79 20 20 6b 65 79 7c search-key key|
36a0: 20 6f 76 65 72 20 3e 72 20 64 68 74 2d 6e 69 63 over >r dht-nic
36b0: 6b 3f 20 72 3e 20 66 72 65 65 20 74 68 72 6f 77 k? r> free throw
36c0: 20 3b 0a 0a 3a 20 2e 75 6e 6b 65 79 2d 69 64 20 ;..: .unkey-id
36d0: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 3c 65 ( addr u -- ) <e
36e0: 72 72 3e 20 38 20 75 6d 69 6e 20 38 35 74 79 70 rr> 8 umin 85typ
36f0: 65 20 2e 22 20 28 75 6e 6b 6e 6f 77 6e 29 22 20 e ." (unknown)"
3700: 3c 64 65 66 61 75 6c 74 3e 20 3b 0a 0a 56 61 72 <default> ;..Var
3710: 69 61 62 6c 65 20 75 6e 6b 65 79 2d 69 64 23 0a iable unkey-id#.
3720: 23 36 30 2e 30 30 30 2e 30 30 30 2e 30 30 30 20 #60.000.000.000
3730: 64 3e 36 34 20 36 34 43 6f 6e 73 74 61 6e 74 20 d>64 64Constant
3740: 75 6e 6b 65 79 2d 74 6f 23 0a 3a 20 3f 75 6e 6b unkey-to#.: ?unk
3750: 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20 66 ey ( addr u -- f
3760: 6c 61 67 20 29 0a 20 20 20 20 75 6e 6b 65 79 2d lag ). unkey-
3770: 69 64 23 20 23 40 0a 20 20 20 20 49 46 20 20 36 id# #@. IF 6
3780: 34 40 20 75 6e 6b 65 79 2d 74 6f 23 20 36 34 2b 4@ unkey-to# 64+
3790: 20 74 69 63 6b 73 20 36 34 2d 20 36 34 2d 30 3e ticks 64- 64-0>
37a0: 3d 20 20 54 48 45 4e 20 20 30 3d 20 3b 0a 20 20 = THEN 0= ;.
37b0: 20 20 0a 3a 20 2e 6b 65 79 2d 69 64 20 28 20 61 .: .key-id ( a
37c0: 64 64 72 20 75 20 2d 2d 20 29 20 6b 65 79 7c 20 ddr u -- ) key|
37d0: 32 64 75 70 20 6b 65 79 23 20 23 40 20 30 3d 0a 2dup key# #@ 0=.
37e0: 20 20 20 20 49 46 20 20 64 72 6f 70 20 75 70 40 IF drop up@
37f0: 20 72 65 63 65 69 76 65 72 2d 74 61 73 6b 20 3d receiver-task =
3800: 20 49 46 0a 09 20 20 20 20 3c 65 76 65 6e 74 20 IF.. <event
3810: 32 64 75 70 20 73 61 76 65 2d 6d 65 6d 20 65 24 2dup save-mem e$
3820: 2c 20 2d 3e 73 65 61 72 63 68 2d 6b 65 79 20 6d , ->search-key m
3830: 61 69 6e 2d 75 70 40 20 65 76 65 6e 74 3e 0a 09 ain-up@ event>..
3840: 20 20 20 20 2e 75 6e 6b 65 79 2d 69 64 20 45 58 .unkey-id EX
3850: 49 54 20 20 54 48 45 4e 0a 09 32 64 75 70 20 3f IT THEN..2dup ?
3860: 75 6e 6b 65 79 20 20 49 46 0a 09 20 20 20 20 74 unkey IF.. t
3870: 69 63 6b 73 20 7b 20 36 34 5e 20 74 78 20 7d 20 icks { 64^ tx }
3880: 74 78 20 31 20 36 34 73 20 32 6f 76 65 72 20 75 tx 1 64s 2over u
3890: 6e 6b 65 79 2d 69 64 23 20 23 21 0a 09 20 20 20 nkey-id# #!..
38a0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 3e 72 20 32 connection >r 2
38b0: 64 75 70 20 5b 27 5d 20 64 68 74 2d 6e 69 63 6b dup ['] dht-nick
38c0: 3f 20 63 6d 64 2d 6e 65 73 74 20 72 3e 20 74 6f ? cmd-nest r> to
38d0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 09 20 20 20 connection..
38e0: 20 32 64 75 70 20 6b 65 79 23 20 23 40 20 30 3d 2dup key# #@ 0=
38f0: 20 49 46 20 20 64 72 6f 70 20 2e 75 6e 6b 65 79 IF drop .unkey
3900: 2d 69 64 20 45 58 49 54 0a 09 20 20 20 20 45 4c -id EXIT.. EL
3910: 53 45 20 20 3e 72 20 32 64 75 70 20 75 6e 6b 65 SE >r 2dup unke
3920: 79 2d 69 64 23 20 23 6f 66 66 20 72 3e 20 20 54 y-id# #off r> T
3930: 48 45 4e 0a 09 45 4c 53 45 20 20 2e 75 6e 6b 65 HEN..ELSE .unke
3940: 79 2d 69 64 20 20 45 58 49 54 20 20 54 48 45 4e y-id EXIT THEN
3950: 0a 20 20 20 20 54 48 45 4e 0a 20 20 20 20 63 65 . THEN. ce
3960: 6c 6c 2b 20 2e 2e 6e 69 63 6b 20 32 64 72 6f 70 ll+ ..nick 2drop
3970: 20 3b 0a 0a 3a 20 2e 63 6f 6e 2d 69 64 20 28 20 ;..: .con-id (
3980: 6f 3a 63 6f 6e 6e 65 63 74 69 6f 6e 20 2d 2d 20 o:connection --
3990: 29 20 70 75 62 6b 65 79 20 24 40 20 2e 6b 65 79 ) pubkey $@ .key
39a0: 2d 69 64 20 3b 0a 0a 3a 20 2e 73 69 6d 70 6c 65 -id ;..: .simple
39b0: 2d 69 64 20 28 20 61 64 64 72 20 75 20 2d 2d 20 -id ( addr u --
39c0: 29 20 6b 65 79 3e 6e 69 63 6b 20 74 79 70 65 20 ) key>nick type
39d0: 3b 0a 0a 3a 20 63 68 65 63 6b 2d 6b 65 79 20 28 ;..: check-key (
39e0: 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 addr u -- ).
39f0: 20 6f 20 49 46 20 20 70 75 62 6b 65 79 20 40 20 o IF pubkey @
3a00: 49 46 0a 09 20 20 20 20 32 64 75 70 20 70 75 62 IF.. 2dup pub
3a10: 6b 65 79 20 24 40 20 6b 65 79 7c 20 73 74 72 3d key $@ key| str=
3a20: 20 30 3d 20 49 46 0a 09 09 5b 3a 20 2e 22 20 77 0= IF...[: ." w
3a30: 61 6e 74 3a 20 22 20 70 75 62 6b 65 79 20 24 40 ant: " pubkey $@
3a40: 20 6b 65 79 7c 20 38 35 74 79 70 65 20 63 72 0a key| 85type cr.
3a50: 09 09 20 20 2e 22 20 67 6f 74 20 3a 20 22 20 32 .. ." got : " 2
3a60: 64 75 70 20 38 35 74 79 70 65 20 63 72 20 3b 5d dup 85type cr ;]
3a70: 20 24 65 72 72 0a 09 09 74 72 75 65 20 21 21 77 $err...true !!w
3a80: 72 6f 6e 67 2d 6b 65 79 21 21 0a 09 20 20 20 20 rong-key!!..
3a90: 54 48 45 4e 0a 09 20 20 20 20 63 6f 6e 6e 65 63 THEN.. connec
3aa0: 74 28 20 2e 6b 65 79 23 20 29 65 6c 73 65 28 20 t( .key# )else(
3ab0: 32 64 72 6f 70 20 29 20 20 45 58 49 54 0a 09 54 2drop ) EXIT..T
3ac0: 48 45 4e 20 20 54 48 45 4e 0a 20 20 20 20 32 64 HEN THEN. 2d
3ad0: 75 70 20 6b 65 79 2d 65 78 69 73 74 3f 0a 20 20 up key-exist?.
3ae0: 20 20 3f 64 75 70 2d 30 3d 2d 49 46 20 20 70 65 ?dup-0=-IF pe
3af0: 72 6d 25 75 6e 6b 6e 6f 77 6e 20 20 45 4c 53 45 rm%unknown ELSE
3b00: 20 20 2e 6b 65 2d 6d 61 73 6b 20 40 20 20 54 48 .ke-mask @ TH
3b10: 45 4e 20 20 74 6d 70 2d 70 65 72 6d 20 21 0a 20 EN tmp-perm !.
3b20: 20 20 20 63 6f 6e 6e 65 63 74 28 20 32 64 75 70 connect( 2dup
3b30: 20 2e 6b 65 79 23 20 29 0a 20 20 20 20 74 6d 70 .key# ). tmp
3b40: 2d 70 65 72 6d 20 40 20 70 65 72 6d 25 62 6c 6f -perm @ perm%blo
3b50: 63 6b 65 64 20 61 6e 64 20 49 46 0a 09 5b 3a 20 cked and IF..[:
3b60: 2e 22 20 55 6e 6b 6e 6f 77 6e 20 6b 65 79 2c 20 ." Unknown key,
3b70: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 66 75 73 connection refus
3b80: 65 64 3a 20 22 20 38 35 74 79 70 65 20 63 72 20 ed: " 85type cr
3b90: 3b 5d 20 24 65 72 72 0a 09 74 72 75 65 20 21 21 ;] $err..true !!
3ba0: 63 6f 6e 6e 65 63 74 2d 70 65 72 6d 21 21 0a 20 connect-perm!!.
3bb0: 20 20 20 45 4c 53 45 20 20 32 64 72 6f 70 20 20 ELSE 2drop
3bc0: 54 48 45 4e 20 3b 0a 0a 3a 20 73 65 61 72 63 68 THEN ;..: search
3bd0: 2d 6b 65 79 20 28 20 70 6b 63 20 2d 2d 20 73 6b -key ( pkc -- sk
3be0: 63 20 29 0a 20 20 20 20 6b 65 79 73 69 7a 65 20 c ). keysize
3bf0: 6b 65 79 23 20 23 40 20 30 3d 20 21 21 75 6e 6b key# #@ 0= !!unk
3c00: 6e 6f 77 6e 2d 6b 65 79 21 21 0a 20 20 20 20 63 nown-key!!. c
3c10: 65 6c 6c 2b 20 2e 6b 65 2d 73 6b 20 73 65 63 40 ell+ .ke-sk sec@
3c20: 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 0= !!unknown-ke
3c30: 79 21 21 20 3b 0a 0a 5c 20 61 70 70 6c 79 20 70 y!! ;..\ apply p
3c40: 65 72 6d 69 73 73 69 6f 6e 73 26 67 72 6f 75 70 ermissions&group
3c50: 73 0a 0a 3a 20 61 70 70 6c 79 2d 70 65 72 6d 69 s..: apply-permi
3c60: 73 73 69 6f 6e 20 28 20 70 65 72 6d 61 6e 64 20 ssion ( permand
3c70: 70 65 72 6d 6f 72 20 6f 3a 6b 65 79 20 2d 2d 20 permor o:key --
3c80: 70 65 72 6d 61 6e 64 20 70 65 72 6d 6f 72 20 6f permand permor o
3c90: 3a 6b 65 79 20 29 0a 20 20 20 20 6f 76 65 72 20 :key ). over
3ca0: 6b 65 2d 6d 61 73 6b 20 40 20 61 6e 64 20 6f 76 ke-mask @ and ov
3cb0: 65 72 20 6f 72 20 6b 65 2d 6d 61 73 6b 20 21 20 er or ke-mask !
3cc0: 2e 6b 65 79 2d 6c 69 73 74 20 3b 0a 0a 3a 20 2d .key-list ;..: -
3cd0: 67 72 6f 75 70 2d 70 65 72 6d 20 28 20 6f 3a 6b group-perm ( o:k
3ce0: 65 79 20 2d 2d 20 29 0a 20 20 20 20 6b 65 2d 67 ey -- ). ke-g
3cf0: 72 6f 75 70 73 20 24 40 20 67 72 6f 75 70 73 3e roups $@ groups>
3d00: 6d 61 73 6b 20 69 6e 76 65 72 74 20 6b 65 2d 6d mask invert ke-m
3d10: 61 73 6b 20 61 6e 64 21 20 3b 0a 3a 20 2b 67 72 ask and! ;.: +gr
3d20: 6f 75 70 2d 70 65 72 6d 20 28 20 6f 3a 6b 65 79 oup-perm ( o:key
3d30: 20 2d 2d 20 29 0a 20 20 20 20 6b 65 2d 67 72 6f -- ). ke-gro
3d40: 75 70 73 20 24 40 20 67 72 6f 75 70 73 3e 6d 61 ups $@ groups>ma
3d50: 73 6b 20 20 20 20 20 20 20 20 6b 65 2d 6d 61 73 sk ke-mas
3d60: 6b 20 6f 72 21 20 3b 0a 0a 3a 20 61 64 64 2d 67 k or! ;..: add-g
3d70: 72 6f 75 70 20 28 20 69 64 20 6f 3a 6b 65 79 20 roup ( id o:key
3d80: 2d 2d 20 29 0a 20 20 20 20 64 75 70 20 2d 31 20 -- ). dup -1
3d90: 3d 20 21 21 6e 6f 2d 67 72 6f 75 70 21 21 20 2d = !!no-group!! -
3da0: 67 72 6f 75 70 2d 70 65 72 6d 20 75 3e 36 34 20 group-perm u>64
3db0: 63 6d 64 74 6d 70 24 20 6b 65 2d 67 72 6f 75 70 cmdtmp$ ke-group
3dc0: 73 20 24 2b 21 20 2b 67 72 6f 75 70 2d 70 65 72 s $+! +group-per
3dd0: 6d 20 3b 0a 3a 20 73 65 74 2d 67 72 6f 75 70 20 m ;.: set-group
3de0: 28 20 69 64 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a ( id o:key -- ).
3df0: 20 20 20 20 64 75 70 20 2d 31 20 3d 20 21 21 6e dup -1 = !!n
3e00: 6f 2d 67 72 6f 75 70 21 21 20 2d 67 72 6f 75 70 o-group!! -group
3e10: 2d 70 65 72 6d 20 75 3e 36 34 20 63 6d 64 74 6d -perm u>64 cmdtm
3e20: 70 24 20 6b 65 2d 67 72 6f 75 70 73 20 24 21 20 p$ ke-groups $!
3e30: 2b 67 72 6f 75 70 2d 70 65 72 6d 20 3b 0a 3a 20 +group-perm ;.:
3e40: 73 75 62 2d 67 72 6f 75 70 20 28 20 69 64 20 6f sub-group ( id o
3e50: 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 64 75 :key -- ). du
3e60: 70 20 2d 31 20 3d 20 21 21 6e 6f 2d 67 72 6f 75 p -1 = !!no-grou
3e70: 70 21 21 20 2d 67 72 6f 75 70 2d 70 65 72 6d 20 p!! -group-perm
3e80: 75 3e 36 34 20 63 6d 64 74 6d 70 24 20 6b 65 2d u>64 cmdtmp$ ke-
3e90: 67 72 6f 75 70 73 20 24 40 20 32 6f 76 65 72 20 groups $@ 2over
3ea0: 73 65 61 72 63 68 0a 20 20 20 20 49 46 20 20 20 search. IF
3eb0: 6e 69 70 20 3e 72 20 6e 69 70 20 6b 65 2d 67 72 nip >r nip ke-gr
3ec0: 6f 75 70 73 20 64 75 70 20 24 40 6c 65 6e 20 72 oups dup $@len r
3ed0: 3e 20 2d 20 72 6f 74 20 24 64 65 6c 0a 20 20 20 > - rot $del.
3ee0: 20 45 4c 53 45 20 20 32 64 72 6f 70 20 32 64 72 ELSE 2drop 2dr
3ef0: 6f 70 20 20 54 48 45 4e 20 2b 67 72 6f 75 70 2d op THEN +group-
3f00: 70 65 72 6d 20 3b 0a 0a 3a 20 61 70 70 6c 79 2d perm ;..: apply-
3f10: 67 72 6f 75 70 20 28 20 61 64 64 72 20 75 20 6f group ( addr u o
3f20: 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 6f 76 :key -- ). ov
3f30: 65 72 20 63 40 20 27 2b 27 20 3d 20 49 46 20 20 er c@ '+' = IF
3f40: 31 20 2f 73 74 72 69 6e 67 20 3e 67 72 6f 75 70 1 /string >group
3f50: 2d 69 64 20 61 64 64 2d 67 72 6f 75 70 20 2e 6b -id add-group .k
3f60: 65 79 2d 6c 69 73 74 20 20 45 58 49 54 20 20 54 ey-list EXIT T
3f70: 48 45 4e 0a 20 20 20 20 6f 76 65 72 20 63 40 20 HEN. over c@
3f80: 27 2d 27 20 3d 20 49 46 20 20 31 20 2f 73 74 72 '-' = IF 1 /str
3f90: 69 6e 67 20 3e 67 72 6f 75 70 2d 69 64 20 73 75 ing >group-id su
3fa0: 62 2d 67 72 6f 75 70 20 2e 6b 65 79 2d 6c 69 73 b-group .key-lis
3fb0: 74 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 t EXIT THEN.
3fc0: 20 20 3e 67 72 6f 75 70 2d 69 64 20 73 65 74 2d >group-id set-
3fd0: 67 72 6f 75 70 20 2e 6b 65 79 2d 6c 69 73 74 20 group .key-list
3fe0: 3b 0a 0a 5c 20 67 65 74 20 70 61 73 73 70 68 72 ;..\ get passphr
3ff0: 61 73 65 0a 0a 33 20 56 61 6c 75 65 20 70 61 73 ase..3 Value pas
4000: 73 70 68 72 61 73 65 2d 72 65 74 72 79 23 0a 24 sphrase-retry#.$
4010: 31 30 30 20 43 6f 6e 73 74 61 6e 74 20 6d 61 78 100 Constant max
4020: 2d 70 61 73 73 70 68 72 61 73 65 23 20 5c 20 32 -passphrase# \ 2
4030: 35 36 20 63 68 61 72 61 63 74 65 72 73 20 73 68 56 characters sh
4040: 6f 75 6c 64 20 62 65 20 65 6e 6f 75 67 68 2e 2e ould be enough..
4050: 2e 0a 6d 61 78 2d 70 61 73 73 70 68 72 61 73 65 ..max-passphrase
4060: 23 20 62 75 66 66 65 72 3a 20 70 61 73 73 70 68 # buffer: passph
4070: 72 61 73 65 0a 0a 3a 20 70 61 73 73 70 68 72 61 rase..: passphra
4080: 73 65 2d 69 6e 20 28 20 61 64 64 72 20 75 20 2d se-in ( addr u -
4090: 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 22 - addr u ). "
40a0: 50 41 53 53 50 48 52 41 53 45 22 20 67 65 74 65 PASSPHRASE" gete
40b0: 6e 76 20 32 64 75 70 20 64 30 3d 20 49 46 20 20 nv 2dup d0= IF
40c0: 32 64 72 6f 70 20 74 79 70 65 0a 09 70 61 73 73 2drop type..pass
40d0: 70 68 72 61 73 65 20 64 75 70 20 6d 61 78 2d 70 phrase dup max-p
40e0: 61 73 73 70 68 72 61 73 65 23 20 61 63 63 65 70 assphrase# accep
40f0: 74 2a 20 63 72 0a 20 20 20 20 45 4c 53 45 20 20 t* cr. ELSE
4100: 32 6e 69 70 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 2nip THEN ;..:
4110: 3e 70 61 73 73 70 68 72 61 73 65 20 28 20 61 64 >passphrase ( ad
4120: 64 72 20 75 20 2d 2d 20 61 64 64 72 20 75 20 29 dr u -- addr u )
4130: 0a 20 20 20 20 5c 47 20 63 72 65 61 74 65 20 61 . \G create a
4140: 20 35 31 32 20 62 69 74 20 68 61 73 68 20 6f 66 512 bit hash of
4150: 20 74 68 65 20 70 61 73 73 70 68 72 61 73 65 0a the passphrase.
4160: 20 20 20 20 6e 6f 2d 6b 65 79 20 3e 63 3a 6b 65 no-key >c:ke
4170: 79 20 63 3a 68 61 73 68 0a 20 20 20 20 6b 65 63 y c:hash. kec
4180: 63 61 6b 2d 70 61 64 64 65 64 20 63 3a 6b 65 79 cak-padded c:key
4190: 3e 20 6b 65 63 63 61 6b 2d 70 61 64 64 65 64 20 > keccak-padded
41a0: 6b 65 63 63 61 6b 23 6d 61 78 20 32 2f 20 3b 0a keccak#max 2/ ;.
41b0: 0a 3a 20 67 65 74 2d 70 61 73 73 70 68 72 61 73 .: get-passphras
41c0: 65 20 28 20 61 64 64 72 20 75 20 2d 2d 20 61 64 e ( addr u -- ad
41d0: 64 72 20 75 20 29 0a 20 20 20 20 70 61 73 73 70 dr u ). passp
41e0: 68 72 61 73 65 2d 69 6e 20 3e 70 61 73 73 70 68 hrase-in >passph
41f0: 72 61 73 65 20 3b 0a 0a 56 61 72 69 61 62 6c 65 rase ;..Variable
4200: 20 6b 65 79 73 0a 0a 3a 20 6c 61 73 74 6b 65 79 keys..: lastkey
4210: 40 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 20 @ ( -- addr u )
4220: 6b 65 79 73 20 24 5b 5d 23 20 31 2d 20 6b 65 79 keys $[]# 1- key
4230: 73 20 73 65 63 5b 5d 40 20 3b 0a 3a 20 6b 65 79 s sec[]@ ;.: key
4240: 3e 64 65 66 61 75 6c 74 20 28 20 2d 2d 20 29 20 >default ( -- )
4250: 6c 61 73 74 6b 65 79 40 20 64 72 6f 70 20 3e 73 lastkey@ drop >s
4260: 74 6f 72 65 6b 65 79 20 21 20 3b 0a 3a 20 2b 6b torekey ! ;.: +k
4270: 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 ey ( addr u -- )
4280: 20 6b 65 79 73 20 73 65 63 2b 5b 5d 21 20 3b 0a keys sec+[]! ;.
4290: 3a 20 2b 70 61 73 73 70 68 72 61 73 65 20 28 20 : +passphrase (
42a0: 61 64 64 72 20 75 20 2d 2d 20 29 20 20 67 65 74 addr u -- ) get
42b0: 2d 70 61 73 73 70 68 72 61 73 65 20 2b 6b 65 79 -passphrase +key
42c0: 20 3b 0a 3a 20 2b 63 68 65 63 6b 70 68 72 61 73 ;.: +checkphras
42d0: 65 20 28 20 61 64 64 72 20 75 20 2d 2d 20 66 6c e ( addr u -- fl
42e0: 61 67 20 29 20 67 65 74 2d 70 61 73 73 70 68 72 ag ) get-passphr
42f0: 61 73 65 20 6c 61 73 74 6b 65 79 40 20 73 74 72 ase lastkey@ str
4300: 3d 20 3b 0a 3a 20 2b 6e 65 77 70 68 72 61 73 65 = ;.: +newphrase
4310: 20 28 20 2d 2d 20 29 0a 20 20 20 20 42 45 47 49 ( -- ). BEGI
4320: 4e 0a 09 73 22 20 50 61 73 73 70 68 72 61 73 65 N..s" Passphrase
4330: 3a 20 22 20 2b 70 61 73 73 70 68 72 61 73 65 0a : " +passphrase.
4340: 09 73 22 20 52 65 74 79 70 65 20 70 6c 73 3a 20 .s" Retype pls:
4350: 22 20 2b 63 68 65 63 6b 70 68 72 61 73 65 20 30 " +checkphrase 0
4360: 3d 20 57 48 49 4c 45 0a 09 20 20 20 20 63 72 20 = WHILE.. cr
4370: 2e 22 20 20 64 69 64 6e 27 74 20 6d 61 74 63 68 ." didn't match
4380: 2c 20 74 72 79 20 61 67 61 69 6e 20 70 6c 65 61 , try again plea
4390: 73 65 22 20 63 72 0a 20 20 20 20 52 45 50 45 41 se" cr. REPEA
43a0: 54 20 63 72 20 3b 0a 0a 3a 20 22 3e 70 61 73 73 T cr ;..: ">pass
43b0: 70 68 72 61 73 65 20 28 20 61 64 64 72 20 75 20 phrase ( addr u
43c0: 2d 2d 20 29 20 3e 70 61 73 73 70 68 72 61 73 65 -- ) >passphrase
43d0: 20 2b 6b 65 79 20 3b 0a 3a 20 3e 73 65 63 6b 65 +key ;.: >secke
43e0: 79 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a y ( -- addr u ).
43f0: 20 20 20 20 6b 65 2d 73 6b 20 40 20 6b 65 2d 70 ke-sk @ ke-p
4400: 6b 20 24 40 20 64 72 6f 70 20 6b 65 79 70 61 64 k $@ drop keypad
4410: 20 65 64 2d 64 68 20 3b 0a 3a 20 2b 73 65 63 6b ed-dh ;.: +seck
4420: 65 79 20 28 20 2d 2d 20 29 20 3e 73 65 63 6b 65 ey ( -- ) >secke
4430: 79 20 2b 6b 65 79 20 3b 0a 0a 5c 20 22 22 20 22 y +key ;..\ "" "
4440: 3e 70 61 73 73 70 68 72 61 73 65 20 5c 20 66 6f >passphrase \ fo
4450: 6c 6c 6f 77 69 6e 67 20 74 68 65 20 65 6e 63 72 llowing the encr
4460: 79 70 74 2d 65 76 65 72 79 74 68 69 6e 67 20 70 ypt-everything p
4470: 61 72 61 64 69 67 6d 2c 0a 5c 20 6e 6f 20 70 61 aradigm,.\ no pa
4480: 73 73 77 6f 72 64 20 69 73 20 74 68 65 20 65 6d ssword is the em
4490: 70 74 79 20 73 74 72 69 6e 67 21 20 20 49 74 27 pty string! It'
44a0: 73 20 73 74 69 6c 6c 20 65 6e 63 72 79 70 74 65 s still encrypte
44b0: 64 20 3b 2d 29 21 0a 0a 5c 20 61 20 73 65 63 72 d ;-)!..\ a secr
44c0: 65 74 20 6b 65 79 20 6a 75 73 74 20 6e 65 65 64 et key just need
44d0: 73 20 61 20 6e 69 63 6b 20 61 6e 64 20 61 20 74 s a nick and a t
44e0: 79 70 65 2e 0a 5c 20 53 65 63 72 65 74 20 6b 65 ype..\ Secret ke
44f0: 79 73 20 63 61 6e 20 62 65 20 70 65 72 73 6f 6e ys can be person
4500: 73 20 61 6e 64 20 67 72 6f 75 70 73 2e 0a 0a 5c s and groups...\
4510: 20 61 20 70 75 62 6c 69 63 20 6b 65 79 20 6e 65 a public key ne
4520: 65 64 73 20 6d 6f 72 65 3a 20 6e 69 63 6b 2c 20 eds more: nick,
4530: 74 79 70 65 2c 20 70 72 6f 66 69 6c 65 2e 0a 5c type, profile..\
4540: 20 54 68 65 20 70 72 6f 66 69 6c 65 20 69 73 20 The profile is
4550: 61 20 73 74 72 75 63 74 75 72 65 64 20 64 6f 63 a structured doc
4560: 75 6d 65 6e 74 2c 20 69 2e 65 2e 20 70 6f 69 6e ument, i.e. poin
4570: 74 65 64 20 74 6f 20 62 79 20 61 20 68 61 73 68 ted to by a hash
4580: 2e 0a 0a 5c 20 61 20 73 69 67 6e 61 74 75 72 65 ...\ a signature
4590: 20 63 6f 6e 74 61 69 6e 73 20 61 20 70 75 62 6b contains a pubk
45a0: 65 79 2c 20 61 20 63 68 65 63 6b 62 6f 78 20 62 ey, a checkbox b
45b0: 69 74 6d 61 73 6b 2c 0a 5c 20 61 20 64 61 74 65 itmask,.\ a date
45c0: 2c 20 61 6e 20 65 78 70 69 72 61 74 69 6f 6e 20 , an expiration
45d0: 64 61 74 65 2c 20 74 68 65 20 73 69 67 6e 65 72 date, the signer
45e0: 27 73 20 70 75 62 6b 65 79 20 61 6e 64 20 74 68 's pubkey and th
45f0: 65 20 73 69 67 6e 61 74 75 72 65 20 69 74 73 65 e signature itse
4600: 6c 66 0a 5c 20 28 72 2b 73 29 2e 20 20 54 68 65 lf.\ (r+s). The
4610: 72 65 20 69 73 20 61 6e 20 6f 70 74 69 6f 6e 61 re is an optiona
4620: 6c 20 73 69 67 6e 69 6e 67 20 70 72 6f 74 6f 63 l signing protoc
4630: 6f 6c 20 64 6f 63 75 6d 65 6e 74 20 28 68 61 73 ol document (has
4640: 68 29 2e 0a 0a 5c 20 77 65 20 73 74 6f 72 65 20 h)...\ we store
4650: 65 61 63 68 20 69 74 65 6d 20 69 6e 20 61 20 32 each item in a 2
4660: 35 36 20 62 79 74 65 73 20 65 6e 63 72 79 70 74 56 bytes encrypt
4670: 65 64 20 73 74 72 69 6e 67 2c 20 69 2e 65 2e 20 ed string, i.e.
4680: 77 69 74 68 20 61 20 31 36 0a 5c 20 62 79 74 65 with a 16.\ byte
4690: 20 73 61 6c 74 20 61 6e 64 20 61 20 31 36 20 62 salt and a 16 b
46a0: 79 74 65 20 63 68 65 63 6b 73 75 6d 2e 0a 0a 3a yte checksum...:
46b0: 20 6b 65 2d 6c 61 73 74 21 20 28 20 36 34 64 61 ke-last! ( 64da
46c0: 74 65 20 2d 2d 20 29 0a 20 20 20 20 6b 65 2d 73 te -- ). ke-s
46d0: 65 6c 66 73 69 67 20 24 40 6c 65 6e 20 24 31 30 elfsig $@len $10
46e0: 20 75 6d 61 78 20 6b 65 2d 73 65 6c 66 73 69 67 umax ke-selfsig
46f0: 20 24 21 6c 65 6e 0a 20 20 20 20 6b 65 2d 73 65 $!len. ke-se
4700: 6c 66 73 69 67 20 24 40 20 64 72 6f 70 20 36 34 lfsig $@ drop 64
4710: 27 2b 20 36 34 21 20 3b 0a 3a 20 6b 65 2d 66 69 '+ 64! ;.: ke-fi
4720: 72 73 74 21 20 28 20 36 34 64 61 74 65 20 2d 2d rst! ( 64date --
4730: 20 29 20 36 34 23 2d 31 20 6b 65 2d 6c 61 73 74 ) 64#-1 ke-last
4740: 21 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 !. ke-selfsig
4750: 20 24 40 20 64 72 6f 70 20 36 34 21 20 3b 0a 0a $@ drop 64! ;..
4760: 73 63 6f 70 65 7b 20 6e 65 74 32 6f 2d 62 61 73 scope{ net2o-bas
4770: 65 0a 0a 63 6d 64 2d 74 61 62 6c 65 20 24 40 20 e..cmd-table $@
4780: 69 6e 68 65 72 69 74 2d 74 61 62 6c 65 20 6b 65 inherit-table ke
4790: 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65 0a 5c 67 y-entry-table.\g
47a0: 20 0a 5c 67 20 23 23 23 20 6b 65 79 20 73 74 6f .\g ### key sto
47b0: 72 61 67 65 20 63 6f 6d 6d 61 6e 64 73 20 23 23 rage commands ##
47c0: 23 0a 5c 67 20 0a 24 31 31 20 6e 65 74 32 6f 3a #.\g .$11 net2o:
47d0: 20 70 72 69 76 6b 65 79 20 28 20 24 3a 73 74 72 privkey ( $:str
47e0: 69 6e 67 20 2d 2d 20 29 0a 20 20 20 20 5c 67 20 ing -- ). \g
47f0: 70 72 69 76 61 74 65 20 6b 65 79 0a 20 20 20 20 private key.
4800: 5c 20 64 6f 65 73 20 6e 6f 74 20 6e 65 65 64 20 \ does not need
4810: 74 6f 20 62 65 20 73 69 67 6e 65 64 2c 20 74 68 to be signed, th
4820: 65 20 73 65 63 72 65 74 20 6b 65 79 20 76 65 72 e secret key ver
4830: 69 66 69 65 73 20 69 74 73 65 6c 66 0a 20 20 20 ifies itself.
4840: 20 21 21 75 6e 73 69 67 6e 65 64 3f 20 24 34 30 !!unsigned? $40
4850: 20 21 21 3e 3d 6f 72 64 65 72 3f 0a 20 20 20 20 !!>=order?.
4860: 6b 65 79 70 61 63 6b 20 63 40 20 24 46 20 61 6e keypack c@ $F an
4870: 64 20 6b 65 2d 70 77 6c 65 76 65 6c 20 21 0a 20 d ke-pwlevel !.
4880: 20 20 20 24 3e 20 6f 76 65 72 20 6b 65 79 70 61 $> over keypa
4890: 64 20 73 6b 3e 70 6b 20 5c 20 67 65 6e 65 72 61 d sk>pk \ genera
48a0: 74 65 20 70 75 62 6b 65 79 0a 20 20 20 20 6b 65 te pubkey. ke
48b0: 79 70 61 64 20 6b 65 2d 70 6b 20 24 40 20 64 72 ypad ke-pk $@ dr
48c0: 6f 70 20 6b 65 79 73 69 7a 65 20 74 75 63 6b 20 op keysize tuck
48d0: 73 74 72 3d 20 30 3d 20 21 21 77 72 6f 6e 67 2d str= 0= !!wrong-
48e0: 6b 65 79 21 21 0a 20 20 20 20 6b 65 2d 73 6b 20 key!!. ke-sk
48f0: 73 65 63 21 20 2b 73 65 63 6b 65 79 20 22 5c 30 sec! +seckey "\0
4900: 22 20 6b 65 2d 67 72 6f 75 70 73 20 24 21 20 30 " ke-groups $! 0
4910: 20 67 72 6f 75 70 73 5b 5d 20 24 5b 5d 40 20 64 groups[] $[]@ d
4920: 72 6f 70 20 40 20 6b 65 2d 6d 61 73 6b 20 21 20 rop @ ke-mask !
4930: 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 74 79 70 ;.+net2o: keytyp
4940: 65 20 28 20 6e 20 2d 2d 20 29 20 20 20 20 20 20 e ( n -- )
4950: 20 20 20 20 20 21 21 73 69 67 6e 65 64 3f 20 20 !!signed?
4960: 20 31 20 21 21 3e 6f 72 64 65 72 3f 20 36 34 3e 1 !!>order? 64>
4970: 6e 20 6b 65 2d 74 79 70 65 20 21 20 3b 0a 20 20 n ke-type ! ;.
4980: 20 20 5c 67 20 6b 65 79 20 74 79 70 65 20 28 30 \g key type (0
4990: 3a 20 61 6e 6f 6e 2c 20 31 3a 20 75 73 65 72 2c : anon, 1: user,
49a0: 20 32 3a 20 67 72 6f 75 70 29 0a 2b 6e 65 74 32 2: group).+net2
49b0: 6f 3a 20 6b 65 79 6e 69 63 6b 20 28 20 24 3a 73 o: keynick ( $:s
49c0: 74 72 69 6e 67 20 2d 2d 20 29 20 20 20 20 21 21 tring -- ) !!
49d0: 73 69 67 6e 65 64 3f 20 20 20 32 20 21 21 3e 6f signed? 2 !!>o
49e0: 72 64 65 72 3f 20 24 3e 20 6b 65 2d 6e 69 63 6b rder? $> ke-nick
49f0: 20 24 21 0a 20 20 20 20 5c 67 20 6b 65 79 20 6e $!. \g key n
4a00: 69 63 6b 0a 20 20 20 20 6e 69 63 6b 21 20 3b 0a ick. nick! ;.
4a10: 2b 6e 65 74 32 6f 3a 20 6b 65 79 70 72 6f 66 69 +net2o: keyprofi
4a20: 6c 65 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d le ( $:string --
4a30: 20 29 20 21 21 73 69 67 6e 65 64 3f 20 20 20 34 ) !!signed? 4
4a40: 20 21 21 3e 6f 72 64 65 72 3f 20 24 3e 20 6b 65 !!>order? $> ke
4a50: 2d 70 72 6f 66 20 24 21 20 3b 0a 20 20 20 20 5c -prof $! ;. \
4a60: 67 20 6b 65 79 20 70 72 6f 66 69 6c 65 20 28 68 g key profile (h
4a70: 61 73 68 20 6f 66 20 61 20 72 65 73 6f 75 72 63 ash of a resourc
4a80: 65 29 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 6d 61 e).+net2o: keyma
4a90: 73 6b 20 28 20 78 20 2d 2d 20 29 20 20 20 20 20 sk ( x -- )
4aa0: 20 20 20 20 21 21 75 6e 73 69 67 6e 65 64 3f 20 !!unsigned?
4ab0: 24 34 30 20 21 21 3e 3d 6f 72 64 65 72 3f 20 36 $40 !!>=order? 6
4ac0: 34 3e 6e 0a 20 20 20 20 5c 67 20 6b 65 79 20 61 4>n. \g key a
4ad0: 63 63 65 73 73 20 72 69 67 68 74 20 6d 61 73 6b ccess right mask
4ae0: 0a 20 20 20 20 31 20 69 6d 70 6f 72 74 2d 74 79 . 1 import-ty
4af0: 70 65 20 40 20 6c 73 68 69 66 74 0a 20 20 20 20 pe @ lshift.
4b00: 5b 20 31 20 69 6d 70 6f 72 74 23 73 65 6c 66 20 [ 1 import#self
4b10: 6c 73 68 69 66 74 20 31 20 69 6d 70 6f 72 74 23 lshift 1 import#
4b20: 6e 65 77 20 6c 73 68 69 66 74 20 6f 72 20 5d 4c new lshift or ]L
4b30: 0a 20 20 20 20 61 6e 64 20 30 3d 20 49 46 20 20 . and 0= IF
4b40: 64 72 6f 70 20 70 65 72 6d 25 64 65 66 61 75 6c drop perm%defaul
4b50: 74 20 20 54 48 45 4e 20 20 64 75 70 20 6b 65 2d t THEN dup ke-
4b60: 6d 61 73 6b 20 6f 72 21 20 3f 3e 67 72 6f 75 70 mask or! ?>group
4b70: 73 20 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 67 s ;.+net2o: keyg
4b80: 72 6f 75 70 73 20 28 20 24 3a 67 72 6f 75 70 73 roups ( $:groups
4b90: 20 2d 2d 20 29 20 21 21 75 6e 73 69 67 6e 65 64 -- ) !!unsigned
4ba0: 3f 20 24 32 30 20 21 21 3e 6f 72 64 65 72 3f 20 ? $20 !!>order?
4bb0: 24 3e 0a 20 20 20 20 5c 67 20 61 63 63 65 73 73 $>. \g access
4bc0: 20 67 72 6f 75 70 73 0a 20 20 20 20 31 20 69 6d groups. 1 im
4bd0: 70 6f 72 74 2d 74 79 70 65 20 40 20 6c 73 68 69 port-type @ lshi
4be0: 66 74 0a 20 20 20 20 5b 20 31 20 69 6d 70 6f 72 ft. [ 1 impor
4bf0: 74 23 73 65 6c 66 20 6c 73 68 69 66 74 20 31 20 t#self lshift 1
4c00: 69 6d 70 6f 72 74 23 6e 65 77 20 6c 73 68 69 66 import#new lshif
4c10: 74 20 6f 72 20 5d 4c 0a 20 20 20 20 61 6e 64 20 t or ]L. and
4c20: 30 3d 20 49 46 20 20 32 64 72 6f 70 20 22 5c 78 0= IF 2drop "\x
4c30: 30 31 22 20 20 54 48 45 4e 0a 20 20 20 20 32 64 01" THEN. 2d
4c40: 75 70 20 6b 65 2d 67 72 6f 75 70 73 20 24 21 20 up ke-groups $!
4c50: 67 72 6f 75 70 73 3e 6d 61 73 6b 20 6b 65 2d 6d groups>mask ke-m
4c60: 61 73 6b 20 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 ask ! ;.+net2o:
4c70: 2b 6b 65 79 73 69 67 20 28 20 24 3a 73 74 72 69 +keysig ( $:stri
4c80: 6e 67 20 2d 2d 20 29 20 20 21 21 75 6e 73 69 67 ng -- ) !!unsig
4c90: 6e 65 64 3f 20 24 31 30 20 21 21 3e 3d 6f 72 64 ned? $10 !!>=ord
4ca0: 65 72 3f 20 24 3e 20 6b 65 2d 73 69 67 73 20 24 er? $> ke-sigs $
4cb0: 2b 5b 5d 21 20 3b 0a 20 20 20 20 5c 67 20 61 64 +[]! ;. \g ad
4cc0: 64 20 61 20 6b 65 79 20 73 69 67 6e 61 74 75 72 d a key signatur
4cd0: 65 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 69 6d 70 e.+net2o: keyimp
4ce0: 6f 72 74 20 28 20 6e 20 2d 2d 20 29 20 20 20 20 ort ( n -- )
4cf0: 20 20 20 21 21 75 6e 73 69 67 6e 65 64 3f 20 24 !!unsigned? $
4d00: 31 30 20 21 21 3e 3d 6f 72 64 65 72 3f 0a 20 20 10 !!>=order?.
4d10: 20 20 63 6f 6e 66 69 67 3a 70 77 2d 6c 65 76 65 config:pw-leve
4d20: 6c 23 20 40 20 30 3c 20 49 46 20 20 36 34 3e 6e l# @ 0< IF 64>n
4d30: 0a 09 64 75 70 20 5b 20 31 20 69 6d 70 6f 72 74 ..dup [ 1 import
4d40: 23 6e 65 77 20 6c 73 68 69 66 74 20 5d 4c 20 61 #new lshift ]L a
4d50: 6e 64 20 30 3d 20 49 46 0a 09 20 20 20 20 69 6d nd 0= IF.. im
4d60: 70 6f 72 74 23 75 6e 74 72 75 73 74 65 64 20 75 port#untrusted u
4d70: 6d 69 6e 20 31 20 73 77 61 70 20 6c 73 68 69 66 min 1 swap lshif
4d80: 74 20 5b 20 31 20 69 6d 70 6f 72 74 23 6e 65 77 t [ 1 import#new
4d90: 20 6c 73 68 69 66 74 20 5d 4c 20 6f 72 0a 09 45 lshift ]L or..E
4da0: 4c 53 45 0a 09 20 20 20 20 5b 20 32 20 69 6d 70 LSE.. [ 2 imp
4db0: 6f 72 74 23 75 6e 74 72 75 73 74 65 64 20 6c 73 ort#untrusted ls
4dc0: 68 69 66 74 20 31 2d 20 31 20 69 6d 70 6f 72 74 hift 1- 1 import
4dd0: 23 6e 65 77 20 6c 73 68 69 66 74 20 6f 72 20 5d #new lshift or ]
4de0: 4c 20 61 6e 64 0a 09 54 48 45 4e 0a 09 6b 65 2d L and..THEN..ke-
4df0: 69 6d 70 6f 72 74 73 20 6f 72 21 0a 20 20 20 20 imports or!.
4e00: 45 4c 53 45 20 20 36 34 64 72 6f 70 20 20 54 48 ELSE 64drop TH
4e10: 45 4e 20 3b 0a 2b 6e 65 74 32 6f 3a 20 72 73 6b EN ;.+net2o: rsk
4e20: 6b 65 79 20 28 20 24 3a 73 74 72 69 6e 67 20 2d key ( $:string -
4e30: 2d 2d 20 29 0a 20 20 20 20 5c 67 20 72 65 76 6f -- ). \g revo
4e40: 6b 65 20 6b 65 79 2c 20 74 65 6d 70 6f 72 61 72 ke key, temporar
4e50: 69 6c 79 20 73 74 6f 72 65 64 0a 20 20 20 20 5c ily stored. \
4e60: 20 64 6f 65 73 20 6e 6f 74 20 6e 65 65 64 20 74 does not need t
4e70: 6f 20 62 65 20 73 69 67 6e 65 64 2c 20 74 68 65 o be signed, the
4e80: 20 72 65 76 6f 6b 65 20 6b 65 79 20 76 65 72 69 revoke key veri
4e90: 66 69 65 73 20 69 74 73 65 6c 66 0a 20 20 20 20 fies itself.
4ea0: 21 21 75 6e 73 69 67 6e 65 64 3f 20 24 38 30 20 !!unsigned? $80
4eb0: 21 21 3e 3d 6f 72 64 65 72 3f 0a 20 20 20 20 24 !!>=order?. $
4ec0: 3e 20 32 64 75 70 20 73 6b 72 65 76 20 73 77 61 > 2dup skrev swa
4ed0: 70 20 6b 65 79 7c 20 6d 6f 76 65 20 6b 65 2d 70 p key| move ke-p
4ee0: 6b 20 24 40 20 64 72 6f 70 20 63 68 65 63 6b 2d k $@ drop check-
4ef0: 72 65 76 3f 20 30 3d 20 21 21 6e 6f 74 2d 6d 79 rev? 0= !!not-my
4f00: 2d 72 65 76 73 6b 21 21 0a 20 20 20 20 70 6b 72 -revsk!!. pkr
4f10: 65 76 20 6b 65 79 73 69 7a 65 32 20 65 72 61 73 ev keysize2 eras
4f20: 65 20 20 6b 65 2d 72 73 6b 20 73 65 63 21 20 3b e ke-rsk sec! ;
4f30: 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 70 65 74 20 .+net2o: keypet
4f40: 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20 ( $:string -- )
4f50: 20 21 21 75 6e 73 69 67 6e 65 64 3f 20 20 24 3e !!unsigned? $>
4f60: 0a 20 20 20 20 63 6f 6e 66 69 67 3a 70 77 2d 6c . config:pw-l
4f70: 65 76 65 6c 23 20 40 20 30 3c 20 49 46 20 20 6b evel# @ 0< IF k
4f80: 65 2d 70 65 74 73 20 24 2b 5b 5d 21 20 70 65 74 e-pets $+[]! pet
4f90: 21 20 20 45 4c 53 45 20 20 32 64 72 6f 70 20 20 ! ELSE 2drop
4fa0: 54 48 45 4e 20 3b 0a 7d 73 63 6f 70 65 0a 0a 67 THEN ;.}scope..g
4fb0: 65 6e 2d 74 61 62 6c 65 20 24 66 72 65 65 7a 65 en-table $freeze
4fc0: 0a 27 20 63 6f 6e 74 65 78 74 2d 74 61 62 6c 65 .' context-table
4fd0: 20 69 73 20 67 65 6e 2d 74 61 62 6c 65 0a 0a 3a is gen-table..:
4fe0: 20 6b 65 79 3a 6e 65 73 74 2d 73 69 67 20 28 20 key:nest-sig (
4ff0: 61 64 64 72 20 75 20 2d 2d 20 61 64 64 72 20 75 addr u -- addr u
5000: 27 20 66 6c 61 67 20 29 0a 20 20 20 20 70 6b 32 ' flag ). pk2
5010: 2d 73 69 67 3f 20 64 75 70 20 3f 45 58 49 54 20 -sig? dup ?EXIT
5020: 64 72 6f 70 0a 20 20 20 20 32 64 75 70 20 2b 20 drop. 2dup +
5030: 73 69 67 73 69 7a 65 23 20 2d 20 73 69 67 73 69 sigsize# - sigsi
5040: 7a 65 23 20 3e 24 0a 20 20 20 20 73 69 67 70 6b ze# >$. sigpk
5050: 32 73 69 7a 65 23 20 2d 20 32 64 75 70 20 2b 20 2size# - 2dup +
5060: 6b 65 79 73 69 7a 65 32 20 6b 65 79 3f 6e 65 77 keysize2 key?new
5070: 20 6e 3a 3e 6f 20 24 3e 20 6b 65 2d 73 65 6c 66 n:>o $> ke-self
5080: 73 69 67 20 24 21 0a 20 20 20 20 73 69 6d 2d 6e sig $!. sim-n
5090: 69 63 6b 21 20 6f 66 66 20 63 2d 73 74 61 74 65 ick! off c-state
50a0: 20 6f 66 66 20 73 69 67 2d 6f 6b 20 3b 0a 27 20 off sig-ok ;.'
50b0: 6b 65 79 3a 6e 65 73 74 2d 73 69 67 20 6b 65 79 key:nest-sig key
50c0: 2d 65 6e 74 72 79 20 74 6f 20 6e 65 73 74 2d 73 -entry to nest-s
50d0: 69 67 0a 0a 73 61 6d 70 6c 65 2d 6b 65 79 20 3e ig..sample-key >
50e0: 6f 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c o key-entry-tabl
50f0: 65 20 40 20 74 6f 6b 65 6e 2d 74 61 62 6c 65 20 e @ token-table
5100: 21 20 6f 3e 0a 0a 3a 20 6b 65 79 3a 63 6f 64 65 ! o>..: key:code
5110: 20 28 20 2d 2d 20 29 0a 20 20 20 20 63 6f 64 65 ( -- ). code
5120: 2d 6b 65 79 20 20 63 6d 64 6c 6f 63 6b 20 6c 6f -key cmdlock lo
5130: 63 6b 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b ck. keypack k
5140: 65 79 70 61 63 6b 2d 61 6c 6c 23 20 65 72 61 73 eypack-all# eras
5150: 65 0a 20 20 20 20 63 6d 64 72 65 73 65 74 20 69 e. cmdreset i
5160: 6e 69 74 2d 72 65 70 6c 79 20 61 6c 73 6f 20 6e nit-reply also n
5170: 65 74 32 6f 2d 62 61 73 65 20 3b 0a 63 6f 6d 70 et2o-base ;.comp
5180: 3a 20 3a 2c 20 61 6c 73 6f 20 6e 65 74 32 6f 2d : :, also net2o-
5190: 62 61 73 65 20 3b 0a 0a 73 63 6f 70 65 7b 20 6e base ;..scope{ n
51a0: 65 74 32 6f 2d 62 61 73 65 0a 0a 3a 20 65 6e 64 et2o-base..: end
51b0: 3a 6b 65 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 :key ( -- ).
51c0: 65 6e 64 2d 77 69 74 68 20 70 72 65 76 69 6f 75 end-with previou
51d0: 73 20 63 6d 64 6c 6f 63 6b 20 75 6e 6c 6f 63 6b s cmdlock unlock
51e0: 20 3b 0a 63 6f 6d 70 3a 20 3a 2c 20 70 72 65 76 ;.comp: :, prev
51f0: 69 6f 75 73 20 3b 0a 0a 7d 73 63 6f 70 65 0a 0a ious ;..}scope..
5200: 3a 20 6b 65 79 2d 63 72 79 70 74 20 28 20 2d 2d : key-crypt ( --
5210: 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b ). keypack k
5220: 65 79 70 61 63 6b 2d 61 6c 6c 23 0a 20 20 20 20 eypack-all#.
5230: 3e 73 74 6f 72 65 6b 65 79 20 73 65 63 40 20 64 >storekey sec@ d
5240: 75 70 20 24 32 30 20 75 3c 3d 20 5c 20 69 73 20 up $20 u<= \ is
5250: 61 20 73 65 63 72 65 74 2c 20 6e 6f 20 6e 65 65 a secret, no nee
5260: 64 20 74 6f 20 62 65 20 73 6c 6f 77 0a 20 20 20 d to be slow.
5270: 20 49 46 20 20 65 6e 63 72 79 70 74 24 20 20 45 IF encrypt$ E
5280: 4c 53 45 20 20 63 6f 6e 66 69 67 3a 70 77 2d 6c LSE config:pw-l
5290: 65 76 65 6c 23 20 40 20 65 6e 63 72 79 70 74 2d evel# @ encrypt-
52a0: 70 77 24 20 20 54 48 45 4e 20 3b 0a 0a 30 20 56 pw$ THEN ;..0 V
52b0: 61 6c 75 65 20 6b 65 79 2d 73 66 64 20 5c 20 73 alue key-sfd \ s
52c0: 65 63 72 65 74 20 6b 65 79 73 0a 30 20 56 61 6c ecret keys.0 Val
52d0: 75 65 20 6b 65 79 2d 70 66 64 20 5c 20 70 75 62 ue key-pfd \ pub
52e0: 6b 65 79 73 0a 0a 5c 20 6c 65 67 61 63 79 20 66 keys..\ legacy f
52f0: 6f 72 20 65 61 72 6c 79 20 76 65 72 73 69 6f 6e or early version
5300: 73 20 6f 66 20 6e 65 74 32 6f 20 70 72 69 6f 72 s of net2o prior
5310: 20 32 30 31 36 30 36 30 36 0a 0a 3a 20 6e 65 74 20160606..: net
5320: 32 6f 3e 6b 65 79 73 20 7b 20 61 64 64 72 20 75 2o>keys { addr u
5330: 20 2d 2d 20 7d 0a 20 20 20 20 61 64 64 72 20 75 -- }. addr u
5340: 20 2e 6e 65 74 32 6f 2f 20 20 61 64 64 72 20 75 .net2o/ addr u
5350: 20 2e 6b 65 79 73 2f 20 72 65 6e 61 6d 65 2d 66 .keys/ rename-f
5360: 69 6c 65 20 64 72 6f 70 20 3b 0a 3a 20 3f 6c 65 ile drop ;.: ?le
5370: 67 61 63 79 2d 6b 65 79 73 20 28 20 66 6c 61 67 gacy-keys ( flag
5380: 20 2d 2d 20 29 0a 20 20 20 20 5c 20 21 21 46 49 -- ). \ !!FI
5390: 58 4d 45 21 21 20 6e 65 65 64 73 20 74 6f 20 62 XME!! needs to b
53a0: 65 20 72 65 6d 6f 76 65 64 20 77 68 65 6e 20 61 e removed when a
53b0: 6c 6c 20 63 75 72 72 65 6e 74 20 75 73 65 72 73 ll current users
53c0: 0a 20 20 20 20 5c 20 68 61 76 65 20 6d 69 67 72 . \ have migr
53d0: 61 74 65 64 0a 20 20 20 20 49 46 0a 09 22 70 75 ated. IF.."pu
53e0: 62 6b 65 79 73 2e 6b 32 6f 22 20 6e 65 74 32 6f bkeys.k2o" net2o
53f0: 3e 6b 65 79 73 0a 09 22 73 65 63 6b 65 79 73 2e >keys.."seckeys.
5400: 6b 32 6f 22 20 6e 65 74 32 6f 3e 6b 65 79 73 0a k2o" net2o>keys.
5410: 20 20 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 67 65 THEN ;..: ge
5420: 6e 2d 6b 65 79 73 2d 64 69 72 20 28 20 2d 2d 20 n-keys-dir ( --
5430: 29 0a 20 20 20 20 69 6e 69 74 2d 64 69 72 73 20 ). init-dirs
5440: 3f 2e 6e 65 74 32 6f 2f 6b 65 79 73 20 3f 6c 65 ?.net2o/keys ?le
5450: 67 61 63 79 2d 6b 65 79 73 0a 20 20 20 20 67 72 gacy-keys. gr
5460: 6f 75 70 73 5b 5d 20 24 5b 5d 23 20 30 3d 20 49 oups[] $[]# 0= I
5470: 46 20 20 72 65 61 64 2d 67 72 6f 75 70 73 20 20 F read-groups
5480: 54 48 45 4e 20 3b 0a 0a 3a 20 3f 66 64 2d 6b 65 THEN ;..: ?fd-ke
5490: 79 73 20 28 20 66 64 20 61 64 64 72 20 75 20 2d ys ( fd addr u -
54a0: 2d 20 66 64 27 20 29 20 7b 20 61 64 64 72 20 75 - fd' ) { addr u
54b0: 20 7d 20 64 75 70 20 3f 45 58 49 54 20 64 72 6f } dup ?EXIT dro
54c0: 70 0a 20 20 20 20 67 65 6e 2d 6b 65 79 73 2d 64 p. gen-keys-d
54d0: 69 72 0a 20 20 20 20 61 64 64 72 20 75 20 72 2f ir. addr u r/
54e0: 77 20 6f 70 65 6e 2d 66 69 6c 65 20 64 75 70 20 w open-file dup
54f0: 6e 6f 2d 66 69 6c 65 23 20 3d 20 49 46 0a 09 32 no-file# = IF..2
5500: 64 72 6f 70 20 61 64 64 72 20 75 20 72 2f 77 20 drop addr u r/w
5510: 63 72 65 61 74 65 2d 66 69 6c 65 0a 20 20 20 20 create-file.
5520: 54 48 45 4e 20 20 74 68 72 6f 77 20 3b 0a 0a 3a THEN throw ;..:
5530: 20 3f 6b 65 79 2d 73 66 64 20 28 20 2d 2d 20 66 ?key-sfd ( -- f
5540: 64 20 29 0a 20 20 20 20 6b 65 79 2d 73 66 64 20 d ). key-sfd
5550: 22 73 65 63 6b 65 79 73 2e 6b 32 6f 22 20 2e 6b "seckeys.k2o" .k
5560: 65 79 73 2f 20 3f 66 64 2d 6b 65 79 73 20 64 75 eys/ ?fd-keys du
5570: 70 20 74 6f 20 6b 65 79 2d 73 66 64 20 3b 0a 3a p to key-sfd ;.:
5580: 20 3f 6b 65 79 2d 70 66 64 20 28 20 2d 2d 20 66 ?key-pfd ( -- f
5590: 64 20 29 0a 20 20 20 20 6b 65 79 2d 70 66 64 20 d ). key-pfd
55a0: 22 70 75 62 6b 65 79 73 2e 6b 32 6f 22 20 2e 6b "pubkeys.k2o" .k
55b0: 65 79 73 2f 20 3f 66 64 2d 6b 65 79 73 20 64 75 eys/ ?fd-keys du
55c0: 70 20 74 6f 20 6b 65 79 2d 70 66 64 20 3b 0a 0a p to key-pfd ;..
55d0: 3a 20 6b 65 79 3e 73 66 69 6c 65 20 28 20 2d 2d : key>sfile ( --
55e0: 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b ). keypack k
55f0: 65 79 70 61 63 6b 2d 61 6c 6c 23 20 3f 6b 65 79 eypack-all# ?key
5600: 2d 73 66 64 20 61 70 70 65 6e 64 2d 66 69 6c 65 -sfd append-file
5610: 20 6b 65 2d 6f 66 66 73 65 74 20 36 34 21 20 3b ke-offset 64! ;
5620: 0a 3a 20 6b 65 79 3e 70 66 69 6c 65 20 28 20 2d .: key>pfile ( -
5630: 2d 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 - ). keypack
5640: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 3f 6b 65 keypack-all# ?ke
5650: 79 2d 70 66 64 20 61 70 70 65 6e 64 2d 66 69 6c y-pfd append-fil
5660: 65 20 6b 65 2d 6f 66 66 73 65 74 20 36 34 21 20 e ke-offset 64!
5670: 3b 0a 0a 3a 20 6b 65 79 3e 73 66 69 6c 65 40 70 ;..: key>sfile@p
5680: 6f 73 20 28 20 36 34 70 6f 73 20 2d 2d 20 29 20 os ( 64pos -- )
5690: 36 34 64 75 70 20 36 34 23 2d 31 20 36 34 3d 20 64dup 64#-1 64=
56a0: 49 46 20 20 36 34 64 72 6f 70 20 6b 65 79 3e 73 IF 64drop key>s
56b0: 66 69 6c 65 0a 20 20 20 20 45 4c 53 45 20 20 36 file. ELSE 6
56c0: 34 3e 72 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 4>r keypack keyp
56d0: 61 63 6b 2d 61 6c 6c 23 20 36 34 72 3e 20 3f 6b ack-all# 64r> ?k
56e0: 65 79 2d 73 66 64 20 77 72 69 74 65 40 70 6f 73 ey-sfd write@pos
56f0: 2d 66 69 6c 65 20 20 54 48 45 4e 20 3b 0a 3a 20 -file THEN ;.:
5700: 6b 65 79 3e 70 66 69 6c 65 40 70 6f 73 20 28 20 key>pfile@pos (
5710: 36 34 70 6f 73 20 2d 2d 20 29 20 36 34 64 75 70 64pos -- ) 64dup
5720: 20 36 34 23 2d 31 20 36 34 3d 20 49 46 20 20 36 64#-1 64= IF 6
5730: 34 64 72 6f 70 20 6b 65 79 3e 70 66 69 6c 65 0a 4drop key>pfile.
5740: 20 20 20 20 45 4c 53 45 20 20 36 34 3e 72 20 6b ELSE 64>r k
5750: 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 eypack keypack-a
5760: 6c 6c 23 20 36 34 72 3e 20 3f 6b 65 79 2d 70 66 ll# 64r> ?key-pf
5770: 64 20 77 72 69 74 65 40 70 6f 73 2d 66 69 6c 65 d write@pos-file
5780: 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 6e 64 3e THEN ;..: rnd>
5790: 73 66 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20 20 sfile ( -- ).
57a0: 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b keypack keypack
57b0: 2d 61 6c 6c 23 20 3e 72 6e 67 24 20 6b 65 79 3e -all# >rng$ key>
57c0: 73 66 69 6c 65 20 3b 0a 3a 20 72 6e 64 3e 70 66 sfile ;.: rnd>pf
57d0: 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b ile ( -- ). k
57e0: 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 eypack keypack-a
57f0: 6c 6c 23 20 3e 72 6e 67 24 20 6b 65 79 3e 70 66 ll# >rng$ key>pf
5800: 69 6c 65 20 3b 0a 0a 3a 20 3e 6b 65 79 73 20 28 ile ;..: >keys (
5810: 20 2d 2d 20 29 0a 20 20 20 20 5c 47 20 61 64 64 -- ). \G add
5820: 20 73 68 61 72 65 64 20 73 65 63 72 65 74 20 74 shared secret t
5830: 6f 20 6c 69 73 74 20 6f 66 20 70 6f 73 73 69 62 o list of possib
5840: 6c 65 20 6b 65 79 73 0a 20 20 20 20 73 6b 63 20 le keys. skc
5850: 70 6b 63 20 6b 65 79 70 61 64 20 65 64 2d 64 68 pkc keypad ed-dh
5860: 20 2b 6b 65 79 20 3b 0a 0a 5c 20 6b 65 79 20 67 +key ;..\ key g
5870: 65 6e 65 72 61 74 69 6f 6e 0a 5c 20 66 6f 72 20 eneration.\ for
5880: 72 65 70 72 6f 64 75 63 69 62 69 6c 69 74 79 20 reproducibility
5890: 6f 66 20 74 68 65 20 73 65 6c 66 73 69 67 2c 20 of the selfsig,
58a0: 61 6c 77 61 79 73 20 75 73 65 20 74 68 65 20 73 always use the s
58b0: 61 6d 65 20 6f 72 64 65 72 3a 0a 5c 20 22 70 75 ame order:.\ "pu
58c0: 62 6b 65 79 22 20 6e 65 77 6b 65 79 20 3c 6e 3e bkey" newkey <n>
58d0: 20 6b 65 79 74 79 70 65 20 22 6e 69 63 6b 22 20 keytype "nick"
58e0: 6b 65 79 6e 69 63 6b 20 22 73 69 67 22 20 6b 65 keynick "sig" ke
58f0: 79 73 65 6c 66 73 69 67 0a 0a 55 73 65 72 20 70 yselfsig..User p
5900: 6b 2b 73 69 67 24 0a 0a 6b 65 79 73 69 7a 65 32 k+sig$..keysize2
5910: 20 43 6f 6e 73 74 61 6e 74 20 70 6b 72 6b 23 0a Constant pkrk#.
5920: 0a 3a 20 5d 70 6b 2b 73 69 67 6e 20 28 20 61 64 .: ]pk+sign ( ad
5930: 64 72 20 75 20 2d 2d 20 29 20 2b 63 6d 64 62 75 dr u -- ) +cmdbu
5940: 66 20 5d 73 69 67 6e 20 3b 0a 0a 3a 20 70 61 63 f ]sign ;..: pac
5950: 6b 2d 6b 65 79 20 28 20 74 79 70 65 20 6e 69 63 k-key ( type nic
5960: 6b 20 75 20 2d 2d 20 29 0a 20 20 20 20 6e 6f 77 k u -- ). now
5970: 3e 6e 65 76 65 72 0a 20 20 20 20 6b 65 79 3a 63 >never. key:c
5980: 6f 64 65 0a 20 20 20 20 20 20 73 69 67 6e 5b 0a ode. sign[.
5990: 20 20 20 20 20 20 72 6f 74 20 75 6c 69 74 2c 20 rot ulit,
59a0: 6b 65 79 74 79 70 65 20 24 2c 20 6b 65 79 6e 69 keytype $, keyni
59b0: 63 6b 0a 20 20 20 20 20 20 70 6b 63 20 70 6b 72 ck. pkc pkr
59c0: 6b 23 20 5d 70 6b 2b 73 69 67 6e 0a 20 20 20 20 k# ]pk+sign.
59d0: 20 20 73 6b 63 20 6b 65 79 73 69 7a 65 20 73 65 skc keysize se
59e0: 63 24 2c 20 70 72 69 76 6b 65 79 0a 20 20 20 20 c$, privkey.
59f0: 65 6e 64 3a 6b 65 79 20 3b 0a 0a 61 6c 73 6f 20 end:key ;..also
5a00: 6e 65 74 32 6f 2d 62 61 73 65 0a 3a 20 70 61 63 net2o-base.: pac
5a10: 6b 2d 63 6f 72 65 20 28 20 6f 3a 6b 65 79 20 2d k-core ( o:key -
5a20: 2d 20 29 20 5c 20 63 6f 72 65 20 77 69 74 68 6f - ) \ core witho
5a30: 75 74 20 6b 65 79 0a 20 20 20 20 6b 65 2d 74 79 ut key. ke-ty
5a40: 70 65 20 40 20 75 6c 69 74 2c 20 6b 65 79 74 79 pe @ ulit, keyty
5a50: 70 65 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20 24 pe. ke-nick $
5a60: 40 20 24 2c 20 6b 65 79 6e 69 63 6b 0a 20 20 20 @ $, keynick.
5a70: 20 6b 65 2d 70 72 6f 66 20 24 40 20 64 75 70 20 ke-prof $@ dup
5a80: 49 46 20 20 24 2c 20 6b 65 79 70 72 6f 66 69 6c IF $, keyprofil
5a90: 65 20 20 45 4c 53 45 20 20 32 64 72 6f 70 20 20 e ELSE 2drop
5aa0: 54 48 45 4e 20 3b 0a 0a 3a 20 70 61 63 6b 2d 73 THEN ;..: pack-s
5ab0: 69 67 6e 6b 65 79 20 28 20 6f 3a 6b 65 79 20 2d ignkey ( o:key -
5ac0: 2d 20 29 0a 20 20 20 20 73 69 67 6e 5b 0a 20 20 - ). sign[.
5ad0: 20 20 70 61 63 6b 2d 63 6f 72 65 0a 20 20 20 20 pack-core.
5ae0: 6b 65 2d 70 6b 20 24 40 20 2b 63 6d 64 62 75 66 ke-pk $@ +cmdbuf
5af0: 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 . ke-selfsig
5b00: 24 40 20 2b 63 6d 64 62 75 66 20 63 6d 64 2d 72 $@ +cmdbuf cmd-r
5b10: 65 73 6f 6c 76 65 3e 20 32 64 72 6f 70 20 6e 65 esolve> 2drop ne
5b20: 73 74 73 69 67 20 3b 0a 0a 3a 20 70 61 63 6b 2d stsig ;..: pack-
5b30: 63 6f 72 65 6b 65 79 20 28 20 6f 3a 6b 65 79 20 corekey ( o:key
5b40: 2d 2d 20 29 0a 20 20 20 20 70 61 63 6b 2d 73 69 -- ). pack-si
5b50: 67 6e 6b 65 79 0a 20 20 20 20 6b 65 2d 69 6d 70 gnkey. ke-imp
5b60: 6f 72 74 73 20 40 20 75 6c 69 74 2c 20 6b 65 79 orts @ ulit, key
5b70: 69 6d 70 6f 72 74 0a 20 20 20 20 6b 65 2d 6d 61 import. ke-ma
5b80: 73 6b 20 40 20 20 6b 65 2d 67 72 6f 75 70 73 20 sk @ ke-groups
5b90: 24 40 6c 65 6e 20 49 46 0a 09 6b 65 2d 67 72 6f $@len IF..ke-gro
5ba0: 75 70 73 20 24 40 20 32 64 75 70 20 24 2c 20 6b ups $@ 2dup $, k
5bb0: 65 79 67 72 6f 75 70 73 0a 09 67 72 6f 75 70 73 eygroups..groups
5bc0: 3e 6d 61 73 6b 20 69 6e 76 65 72 74 20 61 6e 64 >mask invert and
5bd0: 20 20 54 48 45 4e 0a 20 20 20 20 3f 64 75 70 2d THEN. ?dup-
5be0: 49 46 20 20 6e 6c 69 74 2c 20 6b 65 79 6d 61 73 IF nlit, keymas
5bf0: 6b 20 20 54 48 45 4e 0a 20 20 20 20 6b 65 2d 70 k THEN. ke-p
5c00: 65 74 73 20 5b 3a 20 24 2c 20 6b 65 79 70 65 74 ets [: $, keypet
5c10: 20 3b 5d 20 24 5b 5d 6d 61 70 0a 20 20 20 20 6b ;] $[]map. k
5c20: 65 2d 73 74 6f 72 65 6b 65 79 20 40 20 3e 73 74 e-storekey @ >st
5c30: 6f 72 65 6b 65 79 20 21 20 3b 0a 70 72 65 76 69 orekey ! ;.previ
5c40: 6f 75 73 0a 0a 3a 20 70 61 63 6b 2d 70 75 62 6b ous..: pack-pubk
5c50: 65 79 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a ey ( o:key -- ).
5c60: 20 20 20 20 6b 65 79 3a 63 6f 64 65 0a 20 20 20 key:code.
5c70: 20 20 20 70 61 63 6b 2d 63 6f 72 65 6b 65 79 0a pack-corekey.
5c80: 20 20 20 20 65 6e 64 3a 6b 65 79 20 3b 0a 3a 20 end:key ;.:
5c90: 70 61 63 6b 2d 6f 75 74 6b 65 79 20 28 20 6f 3a pack-outkey ( o:
5ca0: 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 key -- ). key
5cb0: 3a 63 6f 64 65 0a 20 20 20 20 20 20 22 6e 32 6f :code. "n2o
5cc0: 22 20 6e 65 74 32 6f 2d 62 61 73 65 3a 34 63 63 " net2o-base:4cc
5cd0: 2c 0a 20 20 20 20 20 20 70 61 63 6b 2d 73 69 67 ,. pack-sig
5ce0: 6e 6b 65 79 0a 20 20 20 20 65 6e 64 3a 6b 65 79 nkey. end:key
5cf0: 20 3b 0a 3a 20 70 61 63 6b 2d 73 65 63 6b 65 79 ;.: pack-seckey
5d00: 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 ( o:key -- ).
5d10: 20 20 6b 65 79 3a 63 6f 64 65 0a 20 20 20 20 20 key:code.
5d20: 20 70 61 63 6b 2d 63 6f 72 65 6b 65 79 0a 20 20 pack-corekey.
5d30: 20 20 20 20 6b 65 2d 73 6b 20 73 65 63 40 20 73 ke-sk sec@ s
5d40: 65 63 24 2c 20 70 72 69 76 6b 65 79 0a 20 20 20 ec$, privkey.
5d50: 20 20 20 6b 65 2d 72 73 6b 20 73 65 63 40 20 64 ke-rsk sec@ d
5d60: 75 70 20 49 46 20 20 73 65 63 24 2c 20 72 73 6b up IF sec$, rsk
5d70: 6b 65 79 20 20 45 4c 53 45 20 20 32 64 72 6f 70 key ELSE 2drop
5d80: 20 20 54 48 45 4e 0a 20 20 20 20 65 6e 64 3a 6b THEN. end:k
5d90: 65 79 20 3b 0a 3a 20 6b 65 79 6e 69 63 6b 24 20 ey ;.: keynick$
5da0: 28 20 6f 3a 6b 65 79 20 2d 2d 20 61 64 64 72 20 ( o:key -- addr
5db0: 75 20 29 0a 20 20 20 20 5c 47 20 67 65 74 20 74 u ). \G get t
5dc0: 68 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 77 he annotations w
5dd0: 69 74 68 20 73 69 67 6e 61 74 75 72 65 0a 20 20 ith signature.
5de0: 20 20 5b 27 5d 20 70 61 63 6b 2d 63 6f 72 65 20 ['] pack-core
5df0: 67 65 6e 2d 63 6d 64 24 20 32 64 72 6f 70 0a 20 gen-cmd$ 2drop.
5e00: 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 ke-selfsig $@
5e10: 20 74 6d 70 24 20 24 2b 21 20 74 6d 70 24 20 24 tmp$ $+! tmp$ $
5e20: 40 20 3b 0a 3a 20 6b 65 79 70 6b 32 6e 69 63 6b @ ;.: keypk2nick
5e30: 24 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 61 64 64 $ ( o:key -- add
5e40: 72 20 75 20 29 0a 20 20 20 20 5c 47 20 67 65 74 r u ). \G get
5e50: 20 74 68 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 the annotations
5e60: 20 77 69 74 68 20 73 69 67 6e 61 74 75 72 65 0a with signature.
5e70: 20 20 20 20 5b 27 5d 20 70 61 63 6b 2d 63 6f 72 ['] pack-cor
5e80: 65 20 67 65 6e 2d 63 6d 64 24 20 32 64 72 6f 70 e gen-cmd$ 2drop
5e90: 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20 74 6d . ke-pk $@ tm
5ea0: 70 24 20 24 2b 21 20 6b 65 2d 73 65 6c 66 73 69 p$ $+! ke-selfsi
5eb0: 67 20 24 40 20 74 6d 70 24 20 24 2b 21 20 74 6d g $@ tmp$ $+! tm
5ec0: 70 24 20 24 40 20 3b 0a 3a 20 6d 79 6e 69 63 6b p$ $@ ;.: mynick
5ed0: 2d 6b 65 79 20 28 20 2d 2d 20 6f 20 29 0a 20 20 -key ( -- o ).
5ee0: 20 20 70 6b 63 20 6b 65 79 73 69 7a 65 20 6b 65 pkc keysize ke
5ef0: 79 23 20 23 40 20 64 72 6f 70 20 63 65 6c 6c 2b y# #@ drop cell+
5f00: 20 3b 0a 3a 20 6d 79 6e 69 63 6b 24 20 28 20 2d ;.: mynick$ ( -
5f10: 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 5c - addr u ). \
5f20: 47 20 67 65 74 20 6d 79 20 6e 69 63 6b 20 77 69 G get my nick wi
5f30: 74 68 20 73 69 67 6e 61 74 75 72 65 0a 20 20 20 th signature.
5f40: 20 6d 79 6e 69 63 6b 2d 6b 65 79 20 2e 6b 65 79 mynick-key .key
5f50: 6e 69 63 6b 24 20 3b 0a 3a 20 6d 79 70 6b 32 6e nick$ ;.: mypk2n
5f60: 69 63 6b 24 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 ick$ ( o:key --
5f70: 61 64 64 72 20 75 20 29 0a 20 20 20 20 5c 47 20 addr u ). \G
5f80: 67 65 74 20 6d 79 20 6e 69 63 6b 20 77 69 74 68 get my nick with
5f90: 20 73 69 67 6e 61 74 75 72 65 0a 20 20 20 20 6d signature. m
5fa0: 79 6e 69 63 6b 2d 6b 65 79 20 2e 6b 65 79 70 6b ynick-key .keypk
5fb0: 32 6e 69 63 6b 24 20 3b 0a 3a 20 6b 65 79 2d 73 2nick$ ;.: key-s
5fc0: 69 67 6e 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 6f ign ( o:key -- o
5fd0: 3a 6b 65 79 20 29 0a 20 20 20 20 5b 27 5d 20 70 :key ). ['] p
5fe0: 61 63 6b 2d 63 6f 72 65 20 67 65 6e 2d 63 6d 64 ack-core gen-cmd
5ff0: 24 0a 20 20 20 20 5b 3a 20 74 79 70 65 20 6b 65 $. [: type ke
6000: 2d 70 6b 20 24 40 20 74 79 70 65 20 3b 5d 20 24 -pk $@ type ;] $
6010: 74 6d 70 0a 20 20 20 20 6e 6f 77 3e 6e 65 76 65 tmp. now>neve
6020: 72 20 63 3a 30 6b 65 79 20 63 3a 68 61 73 68 20 r c:0key c:hash
6030: 5b 27 5d 20 2e 73 69 67 20 24 74 6d 70 20 6b 65 ['] .sig $tmp ke
6040: 2d 73 65 6c 66 73 69 67 20 24 21 20 3b 0a 0a 56 -selfsig $! ;..V
6050: 61 72 69 61 62 6c 65 20 63 70 2d 74 6d 70 0a 0a ariable cp-tmp..
6060: 3a 20 73 61 76 65 2d 70 75 62 6b 65 79 73 20 28 : save-pubkeys (
6070: 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 2d 70 66 -- ). key-pf
6080: 64 20 3f 64 75 70 2d 49 46 20 20 63 6c 6f 73 65 d ?dup-IF close
6090: 2d 66 69 6c 65 20 74 68 72 6f 77 20 20 54 48 45 -file throw THE
60a0: 4e 0a 20 20 20 20 22 70 75 62 6b 65 79 73 2e 6b N. "pubkeys.k
60b0: 32 6f 22 20 2e 6b 65 79 73 2f 20 5b 3a 20 74 6f 2o" .keys/ [: to
60c0: 20 6b 65 79 2d 70 66 64 0a 20 20 20 20 20 20 6b key-pfd. k
60d0: 65 79 23 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 ey# [: cell+ $@
60e0: 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a 09 6b drop cell+ >o..k
60f0: 65 2d 73 6b 20 73 65 63 40 20 64 30 3d 20 49 46 e-sk sec@ d0= IF
6100: 20 20 70 61 63 6b 2d 70 75 62 6b 65 79 0a 09 20 pack-pubkey..
6110: 20 20 20 66 6c 75 73 68 28 20 2e 22 20 73 61 76 flush( ." sav
6120: 69 6e 67 20 22 20 2e 6e 69 63 6b 20 66 6f 72 74 ing " .nick fort
6130: 68 3a 63 72 20 29 0a 09 20 20 20 20 6b 65 79 2d h:cr ).. key-
6140: 63 72 79 70 74 20 6b 65 2d 6f 66 66 73 65 74 20 crypt ke-offset
6150: 36 34 40 20 6b 65 79 3e 70 66 69 6c 65 40 70 6f 64@ key>pfile@po
6160: 73 0a 09 54 48 45 4e 20 6f 3e 20 3b 5d 20 23 6d s..THEN o> ;] #m
6170: 61 70 0a 20 20 20 20 30 20 74 6f 20 6b 65 79 2d ap. 0 to key-
6180: 70 66 64 20 3b 5d 20 73 61 76 65 2d 66 69 6c 65 pfd ;] save-file
6190: 20 20 3f 6b 65 79 2d 70 66 64 20 64 72 6f 70 20 ?key-pfd drop
61a0: 3b 0a 0a 3a 20 73 61 76 65 2d 73 65 63 6b 65 79 ;..: save-seckey
61b0: 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 s ( -- ). key
61c0: 2d 73 66 64 20 3f 64 75 70 2d 49 46 20 20 63 6c -sfd ?dup-IF cl
61d0: 6f 73 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 20 ose-file throw
61e0: 54 48 45 4e 0a 20 20 20 20 22 73 65 63 6b 65 79 THEN. "seckey
61f0: 73 2e 6b 32 6f 22 20 2e 6b 65 79 73 2f 20 5b 3a s.k2o" .keys/ [:
6200: 20 74 6f 20 6b 65 79 2d 73 66 64 0a 20 20 20 20 to key-sfd.
6210: 20 20 6b 65 79 23 20 5b 3a 20 63 65 6c 6c 2b 20 key# [: cell+
6220: 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f $@ drop cell+ >o
6230: 0a 09 6b 65 2d 73 6b 20 73 65 63 40 20 64 30 3c ..ke-sk sec@ d0<
6240: 3e 20 49 46 20 20 70 61 63 6b 2d 73 65 63 6b 65 > IF pack-secke
6250: 79 0a 09 20 20 20 20 63 6f 6e 66 69 67 3a 70 77 y.. config:pw
6260: 2d 6c 65 76 65 6c 23 20 40 20 3e 72 20 20 6b 65 -level# @ >r ke
6270: 2d 70 77 6c 65 76 65 6c 20 40 20 63 6f 6e 66 69 -pwlevel @ confi
6280: 67 3a 70 77 2d 6c 65 76 65 6c 23 20 21 0a 09 20 g:pw-level# !..
6290: 20 20 20 6b 65 79 2d 63 72 79 70 74 20 6b 65 2d key-crypt ke-
62a0: 6f 66 66 73 65 74 20 36 34 40 20 6b 65 79 3e 73 offset 64@ key>s
62b0: 66 69 6c 65 40 70 6f 73 0a 09 20 20 20 20 72 3e file@pos.. r>
62c0: 20 63 6f 6e 66 69 67 3a 70 77 2d 6c 65 76 65 6c config:pw-level
62d0: 23 20 21 0a 09 54 48 45 4e 20 6f 3e 20 3b 5d 20 # !..THEN o> ;]
62e0: 23 6d 61 70 0a 20 20 20 20 30 20 74 6f 20 6b 65 #map. 0 to ke
62f0: 79 2d 73 66 64 20 3b 5d 20 73 61 76 65 2d 66 69 y-sfd ;] save-fi
6300: 6c 65 20 20 3f 6b 65 79 2d 73 66 64 20 64 72 6f le ?key-sfd dro
6310: 70 20 3b 0a 0a 3a 20 73 61 76 65 2d 6b 65 79 73 p ;..: save-keys
6320: 20 28 20 2d 2d 20 29 20 20 3f 2e 6e 65 74 32 6f ( -- ) ?.net2o
6330: 2f 6b 65 79 73 0a 20 20 20 20 73 61 76 65 2d 70 /keys. save-p
6340: 75 62 6b 65 79 73 20 73 61 76 65 2d 73 65 63 6b ubkeys save-seck
6350: 65 79 73 20 3b 0a 0a 3a 20 2b 67 65 6e 2d 6b 65 eys ;..: +gen-ke
6360: 79 73 20 28 20 6e 69 63 6b 20 75 20 74 79 70 65 ys ( nick u type
6370: 20 2d 2d 20 29 0a 20 20 20 20 67 65 6e 2d 6b 65 -- ). gen-ke
6380: 79 73 20 20 36 34 23 2d 31 20 6b 65 79 2d 72 65 ys 64#-1 key-re
6390: 61 64 2d 6f 66 66 73 65 74 20 36 34 21 20 20 70 ad-offset 64! p
63a0: 6b 63 20 6b 65 79 73 69 7a 65 32 20 6b 65 79 3a kc keysize2 key:
63b0: 6e 65 77 20 3e 6f 0a 20 20 20 20 5b 20 31 20 69 new >o. [ 1 i
63c0: 6d 70 6f 72 74 23 73 65 6c 66 20 6c 73 68 69 66 mport#self lshif
63d0: 74 20 31 20 69 6d 70 6f 72 74 23 6e 65 77 20 6c t 1 import#new l
63e0: 73 68 69 66 74 20 6f 72 20 5d 4c 20 6b 65 2d 69 shift or ]L ke-i
63f0: 6d 70 6f 72 74 73 20 21 0a 20 20 20 20 6b 65 2d mports !. ke-
6400: 74 79 70 65 20 21 20 20 6b 65 2d 6e 69 63 6b 20 type ! ke-nick
6410: 24 21 20 20 6e 69 63 6b 21 0a 20 20 20 20 63 6f $! nick!. co
6420: 6e 66 69 67 3a 70 77 2d 6c 65 76 65 6c 23 20 40 nfig:pw-level# @
6430: 20 6b 65 2d 70 77 6c 65 76 65 6c 20 21 20 20 70 ke-pwlevel ! p
6440: 65 72 6d 25 6d 79 73 65 6c 66 20 6b 65 2d 6d 61 erm%myself ke-ma
6450: 73 6b 20 21 0a 20 20 20 20 73 6b 63 20 6b 65 79 sk !. skc key
6460: 73 69 7a 65 20 6b 65 2d 73 6b 20 73 65 63 21 20 size ke-sk sec!
6470: 20 2b 73 65 63 6b 65 79 0a 20 20 20 20 73 6b 72 +seckey. skr
6480: 65 76 20 6b 65 79 73 69 7a 65 20 6b 65 2d 72 73 ev keysize ke-rs
6490: 6b 20 73 65 63 21 0a 20 20 20 20 6b 65 79 2d 73 k sec!. key-s
64a0: 69 67 6e 20 6f 3e 20 3b 0a 0a 24 34 30 20 62 75 ign o> ;..$40 bu
64b0: 66 66 65 72 3a 20 6e 69 63 6b 2d 62 75 66 0a 0a ffer: nick-buf..
64c0: 3a 20 67 65 74 2d 6e 69 63 6b 20 28 20 2d 2d 20 : get-nick ( --
64d0: 61 64 64 72 20 75 20 29 0a 20 20 20 20 2e 22 20 addr u ). ."
64e0: 6e 69 63 6b 3a 20 22 20 6e 69 63 6b 2d 62 75 66 nick: " nick-buf
64f0: 20 24 34 30 20 61 63 63 65 70 74 20 6e 69 63 6b $40 accept nick
6500: 2d 62 75 66 20 73 77 61 70 20 2d 74 72 61 69 6c -buf swap -trail
6510: 69 6e 67 20 63 72 20 3b 0a 0a 66 61 6c 73 65 20 ing cr ;..false
6520: 76 61 6c 75 65 20 3f 79 65 73 0a 3a 20 79 65 73 value ?yes.: yes
6530: 3f 20 28 20 61 64 64 72 20 75 20 2d 2d 20 66 6c ? ( addr u -- fl
6540: 61 67 20 29 0a 20 20 20 20 3f 79 65 73 20 49 46 ag ). ?yes IF
6550: 20 20 32 64 72 6f 70 20 74 72 75 65 20 20 45 4c 2drop true EL
6560: 53 45 20 20 74 79 70 65 20 2e 22 20 20 28 79 2f SE type ." (y/
6570: 4e 29 22 20 6b 65 79 20 63 72 20 27 79 27 20 3d N)" key cr 'y' =
6580: 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 3f 72 73 6b THEN ;..: ?rsk
6590: 20 28 20 2d 2d 20 29 0a 20 20 20 20 70 6b 63 20 ( -- ). pkc
65a0: 6b 65 79 73 69 7a 65 20 6b 65 79 2d 65 78 69 73 keysize key-exis
65b0: 74 3f 20 64 75 70 20 30 3d 20 49 46 20 20 64 72 t? dup 0= IF dr
65c0: 6f 70 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 op EXIT THEN.
65d0: 20 20 20 3e 6f 20 6b 65 2d 72 73 6b 20 73 65 63 >o ke-rsk sec
65e0: 40 20 64 75 70 20 30 3d 20 49 46 20 20 32 64 72 @ dup 0= IF 2dr
65f0: 6f 70 20 6f 3e 20 20 45 58 49 54 20 20 54 48 45 op o> EXIT THE
6600: 4e 0a 20 20 20 20 2e 22 20 59 6f 75 20 73 74 69 N. ." You sti
6610: 6c 6c 20 68 61 76 65 6e 27 74 20 73 74 6f 72 65 ll haven't store
6620: 64 20 79 6f 75 72 20 72 65 76 6f 6b 65 20 6b 65 d your revoke ke
6630: 79 20 73 65 63 75 72 65 6c 79 20 6f 66 66 2d 6c y securely off-l
6640: 69 6e 65 2e 22 20 63 72 0a 20 20 20 20 73 22 20 ine." cr. s"
6650: 50 61 70 65 72 20 61 6e 64 20 70 65 6e 63 69 6c Paper and pencil
6660: 20 72 65 61 64 79 3f 22 20 79 65 73 3f 20 49 46 ready?" yes? IF
6670: 0a 09 2e 73 74 72 69 70 65 38 35 0a 09 73 22 20 ...stripe85..s"
6680: 57 72 69 74 74 65 6e 20 64 6f 77 6e 3f 22 20 79 Written down?" y
6690: 65 73 3f 20 49 46 0a 09 20 20 20 20 73 22 20 59 es? IF.. s" Y
66a0: 6f 75 20 77 6f 6e 27 74 20 73 65 65 20 74 68 69 ou won't see thi
66b0: 73 20 61 67 61 69 6e 21 20 44 65 6c 65 74 65 3f s again! Delete?
66c0: 22 20 79 65 73 3f 0a 09 20 20 20 20 49 46 20 6b " yes?.. IF k
66d0: 65 2d 72 73 6b 20 73 65 63 2d 6f 66 66 20 20 73 e-rsk sec-off s
66e0: 61 76 65 2d 6b 65 79 73 0a 09 09 2e 22 20 72 65 ave-keys...." re
66f0: 76 6f 6b 65 20 6b 65 79 20 64 65 6c 65 74 65 64 voke key deleted
6700: 2e 22 20 63 72 20 6f 3e 20 20 45 58 49 54 20 20 ." cr o> EXIT
6710: 54 48 45 4e 20 20 54 48 45 4e 0a 20 20 20 20 45 THEN THEN. E
6720: 4c 53 45 20 20 32 64 72 6f 70 20 20 54 48 45 4e LSE 2drop THEN
6730: 0a 20 20 20 20 2e 22 20 49 27 6d 20 6b 65 65 70 . ." I'm keep
6740: 69 6e 67 20 79 6f 75 72 20 72 65 76 6f 6b 65 20 ing your revoke
6750: 6b 65 79 2e 20 20 54 68 69 73 20 77 69 6c 6c 20 key. This will
6760: 73 68 6f 77 20 75 70 20 61 67 61 69 6e 2e 22 20 show up again."
6770: 63 72 20 6f 3e 20 3b 0a 0a 5c 20 72 65 61 64 20 cr o> ;..\ read
6780: 6b 65 79 20 66 69 6c 65 0a 0a 3a 20 74 72 79 2d key file..: try-
6790: 64 65 63 72 79 70 74 2d 6b 65 79 20 28 20 6b 65 decrypt-key ( ke
67a0: 79 20 75 31 20 2d 2d 20 61 64 64 72 20 75 32 20 y u1 -- addr u2
67b0: 66 6c 61 67 20 29 0a 20 20 20 20 6b 65 79 70 61 flag ). keypa
67c0: 63 6b 20 6b 65 79 70 61 63 6b 2d 64 20 6b 65 79 ck keypack-d key
67d0: 70 61 63 6b 2d 61 6c 6c 23 20 6d 6f 76 65 0a 20 pack-all# move.
67e0: 20 20 20 6b 65 79 70 61 63 6b 2d 64 20 6b 65 79 keypack-d key
67f0: 70 61 63 6b 2d 61 6c 6c 23 20 32 73 77 61 70 0a pack-all# 2swap.
6800: 20 20 20 20 64 75 70 20 24 32 30 20 3d 20 49 46 dup $20 = IF
6810: 20 20 64 65 63 72 79 70 74 24 20 20 45 4c 53 45 decrypt$ ELSE
6820: 0a 09 6b 65 79 70 61 63 6b 20 63 40 20 24 46 20 ..keypack c@ $F
6830: 61 6e 64 20 63 6f 6e 66 69 67 3a 70 77 2d 6d 61 and config:pw-ma
6840: 78 6c 65 76 65 6c 23 20 40 20 3c 3d 0a 09 49 46 xlevel# @ <=..IF
6850: 20 20 64 65 63 72 79 70 74 2d 70 77 24 20 20 45 decrypt-pw$ E
6860: 4c 53 45 20 20 32 64 72 6f 70 20 66 61 6c 73 65 LSE 2drop false
6870: 20 20 54 48 45 4e 0a 20 20 20 20 54 48 45 4e 20 THEN. THEN
6880: 3b 0a 0a 3a 20 74 72 79 2d 64 65 63 72 79 70 74 ;..: try-decrypt
6890: 20 28 20 66 6c 61 67 20 2d 2d 20 61 64 64 72 20 ( flag -- addr
68a0: 75 20 2f 20 30 20 30 20 29 20 7b 20 66 6c 61 67 u / 0 0 ) { flag
68b0: 20 7d 0a 20 20 20 20 6b 65 79 73 20 24 5b 5d 23 }. keys $[]#
68c0: 20 30 20 3f 44 4f 0a 09 49 20 6b 65 79 73 20 73 0 ?DO..I keys s
68d0: 65 63 5b 5d 40 20 64 75 70 20 6b 65 79 73 69 7a ec[]@ dup keysiz
68e0: 65 20 3d 20 66 6c 61 67 20 78 6f 72 20 49 46 0a e = flag xor IF.
68f0: 09 20 20 20 20 74 72 79 2d 64 65 63 72 79 70 74 . try-decrypt
6900: 2d 6b 65 79 20 49 46 0a 09 09 49 20 6b 65 79 73 -key IF...I keys
6910: 20 24 5b 5d 20 40 20 64 75 70 20 3e 73 74 6f 72 $[] @ dup >stor
6920: 65 6b 65 79 20 21 20 64 65 66 61 75 6c 74 6b 65 ekey ! defaultke
6930: 79 20 21 0a 09 09 75 6e 6c 6f 6f 70 20 20 45 58 y !...unloop EX
6940: 49 54 20 20 54 48 45 4e 20 20 54 48 45 4e 0a 09 IT THEN THEN..
6950: 32 64 72 6f 70 0a 20 20 20 20 4c 4f 4f 50 20 20 2drop. LOOP
6960: 30 20 30 20 3b 0a 0a 3a 20 3f 70 65 72 6d 20 28 0 0 ;..: ?perm (
6970: 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 o:key -- ).
6980: 6b 65 2d 73 6b 20 73 65 63 40 20 6e 69 70 20 64 ke-sk sec@ nip d
6990: 75 70 20 49 46 20 20 70 65 72 6d 25 6d 79 73 65 up IF perm%myse
69a0: 6c 66 20 20 45 4c 53 45 20 20 70 65 72 6d 25 64 lf ELSE perm%d
69b0: 65 66 61 75 6c 74 20 20 54 48 45 4e 20 20 6b 65 efault THEN ke
69c0: 2d 6d 61 73 6b 20 21 0a 20 20 20 20 49 46 20 20 -mask !. IF
69d0: 22 5c 78 30 30 22 20 20 45 4c 53 45 20 20 22 5c "\x00" ELSE "\
69e0: 78 30 31 22 20 20 54 48 45 4e 20 20 6b 65 2d 67 x01" THEN ke-g
69f0: 72 6f 75 70 73 20 24 21 20 3b 0a 0a 3a 20 64 6f roups $! ;..: do
6a00: 2d 6b 65 79 20 28 20 61 64 64 72 20 75 20 2f 20 -key ( addr u /
6a10: 30 20 30 20 20 2d 2d 20 29 0a 20 20 20 20 64 75 0 0 -- ). du
6a20: 70 20 30 3d 20 49 46 20 20 32 64 72 6f 70 20 20 p 0= IF 2drop
6a30: 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 73 EXIT THEN. s
6a40: 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20 6b 65 2d ample-key >o ke-
6a50: 73 6b 20 6b 65 2d 65 6e 64 20 6f 76 65 72 20 2d sk ke-end over -
6a60: 20 65 72 61 73 65 20 20 64 6f 2d 63 6d 64 2d 6c erase do-cmd-l
6a70: 6f 6f 70 20 6f 3e 20 3b 0a 0a 3a 20 2e 6b 65 79 oop o> ;..: .key
6a80: 24 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a $ ( addr u -- ).
6a90: 20 20 20 20 73 61 6d 70 6c 65 2d 6b 65 79 20 3e sample-key >
6aa0: 6f 20 20 6b 65 2d 73 6b 20 6b 65 2d 65 6e 64 20 o ke-sk ke-end
6ab0: 6f 76 65 72 20 2d 20 65 72 61 73 65 0a 20 20 20 over - erase.
6ac0: 20 73 69 67 6e 65 64 2d 76 61 6c 20 76 61 6c 69 signed-val vali
6ad0: 64 61 74 65 64 20 6f 72 21 20 20 63 2d 73 74 61 dated or! c-sta
6ae0: 74 65 20 6f 66 66 20 20 6e 65 73 74 2d 63 6d 64 te off nest-cmd
6af0: 2d 6c 6f 6f 70 0a 20 20 20 20 73 69 67 6e 65 64 -loop. signed
6b00: 2d 76 61 6c 20 69 6e 76 65 72 74 20 76 61 6c 69 -val invert vali
6b10: 64 61 74 65 64 20 61 6e 64 21 0a 20 20 20 20 2e dated and!. .
6b20: 6b 65 79 2d 73 68 6f 72 74 20 66 72 65 65 2d 6b key-short free-k
6b30: 65 79 20 6f 3e 20 3b 0a 0a 3a 20 72 65 61 64 2d ey o> ;..: read-
6b40: 6b 65 79 73 2d 6c 6f 6f 70 20 28 20 66 64 20 2d keys-loop ( fd -
6b50: 2d 20 29 20 20 63 6f 64 65 2d 6b 65 79 0a 20 20 - ) code-key.
6b60: 20 20 3e 72 20 23 30 2e 20 72 40 20 72 65 70 6f >r #0. r@ repo
6b70: 73 69 74 69 6f 6e 2d 66 69 6c 65 20 74 68 72 6f sition-file thro
6b80: 77 0a 20 20 20 20 42 45 47 49 4e 0a 09 72 40 20 w. BEGIN..r@
6b90: 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 74 68 file-position th
6ba0: 72 6f 77 20 64 3e 36 34 20 6b 65 79 2d 72 65 61 row d>64 key-rea
6bb0: 64 2d 6f 66 66 73 65 74 20 36 34 21 0a 09 6b 65 d-offset 64!..ke
6bc0: 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c ypack keypack-al
6bd0: 6c 23 20 72 40 20 72 65 61 64 2d 66 69 6c 65 20 l# r@ read-file
6be0: 74 68 72 6f 77 0a 09 6b 65 79 70 61 63 6b 2d 61 throw..keypack-a
6bf0: 6c 6c 23 20 3d 20 57 48 49 4c 45 0a 09 20 20 20 ll# = WHILE..
6c00: 20 69 6d 70 6f 72 74 2d 74 79 70 65 20 40 20 69 import-type @ i
6c10: 6d 70 6f 72 74 23 73 65 6c 66 20 3d 20 74 72 79 mport#self = try
6c20: 2d 64 65 63 72 79 70 74 20 64 6f 2d 6b 65 79 0a -decrypt do-key.
6c30: 20 20 20 20 52 45 50 45 41 54 20 20 72 64 72 6f REPEAT rdro
6c40: 70 20 20 63 6f 64 65 30 2d 62 75 66 20 3b 0a 3a p code0-buf ;.:
6c50: 20 72 65 61 64 2d 6b 65 79 2d 6c 6f 6f 70 20 28 read-key-loop (
6c60: 20 2d 2d 20 29 0a 20 20 20 20 69 6d 70 6f 72 74 -- ). import
6c70: 23 73 65 6c 66 20 69 6d 70 6f 72 74 2d 74 79 70 #self import-typ
6c80: 65 20 21 0a 20 20 20 20 3f 6b 65 79 2d 73 66 64 e !. ?key-sfd
6c90: 20 72 65 61 64 2d 6b 65 79 73 2d 6c 6f 6f 70 20 read-keys-loop
6ca0: 3b 0a 3a 20 72 65 61 64 2d 70 6b 65 79 2d 6c 6f ;.: read-pkey-lo
6cb0: 6f 70 20 28 20 2d 2d 20 29 0a 20 20 20 20 6c 61 op ( -- ). la
6cc0: 73 74 6b 65 79 40 20 64 72 6f 70 20 64 65 66 61 stkey@ drop defa
6cd0: 75 6c 74 6b 65 79 20 21 20 5c 20 61 74 20 6c 65 ultkey ! \ at le
6ce0: 61 73 74 20 6f 6e 65 20 64 65 66 61 75 6c 74 20 ast one default
6cf0: 6b 65 79 20 61 76 61 69 6c 61 62 6c 65 0a 20 20 key available.
6d00: 20 20 2d 31 20 63 6f 6e 66 69 67 3a 70 77 2d 6c -1 config:pw-l
6d10: 65 76 65 6c 23 0a 20 20 20 20 5b 3a 20 69 6d 70 evel#. [: imp
6d20: 6f 72 74 23 6e 65 77 20 69 6d 70 6f 72 74 2d 74 ort#new import-t
6d30: 79 70 65 20 21 20 3f 6b 65 79 2d 70 66 64 20 72 ype ! ?key-pfd r
6d40: 65 61 64 2d 6b 65 79 73 2d 6c 6f 6f 70 20 3b 5d ead-keys-loop ;]
6d50: 20 21 77 72 61 70 70 65 72 20 3b 0a 0a 3a 20 72 !wrapper ;..: r
6d60: 65 61 64 2d 6b 65 79 73 20 28 20 2d 2d 20 29 0a ead-keys ( -- ).
6d70: 20 20 20 20 72 65 61 64 2d 6b 65 79 2d 6c 6f 6f read-key-loo
6d80: 70 20 72 65 61 64 2d 70 6b 65 79 2d 6c 6f 6f 70 p read-pkey-loop
6d90: 20 69 6d 70 6f 72 74 23 6e 65 77 20 69 6d 70 6f import#new impo
6da0: 72 74 2d 74 79 70 65 20 21 20 3b 0a 0a 3a 20 72 rt-type ! ;..: r
6db0: 65 61 64 2d 70 6b 32 6b 65 79 24 20 28 20 61 64 ead-pk2key$ ( ad
6dc0: 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 5c 67 dr u -- ). \g
6dd0: 20 72 65 61 64 20 61 20 6e 65 73 74 65 64 20 6b read a nested k
6de0: 65 79 20 69 6e 74 6f 20 73 61 6d 70 6c 65 2d 6b ey into sample-k
6df0: 65 79 0a 20 20 20 20 73 61 6d 70 6c 65 2d 6b 65 ey. sample-ke
6e00: 79 20 3e 6f 20 63 2d 73 74 61 74 65 20 6f 66 66 y >o c-state off
6e10: 20 20 73 69 6d 2d 6e 69 63 6b 21 20 6f 6e 0a 20 sim-nick! on.
6e20: 20 20 20 70 6b 32 2d 73 69 67 3f 20 21 21 73 69 pk2-sig? !!si
6e30: 67 21 21 20 73 69 67 70 6b 32 73 69 7a 65 23 20 g!! sigpk2size#
6e40: 2d 20 32 64 75 70 20 2b 20 3e 72 20 64 6f 2d 6e - 2dup + >r do-n
6e50: 65 73 74 73 69 67 0a 20 20 20 20 72 40 20 6b 65 estsig. r@ ke
6e60: 79 73 69 7a 65 32 20 6b 65 2d 70 6b 20 24 21 0a ysize2 ke-pk $!.
6e70: 20 20 20 20 72 3e 20 6b 65 79 73 69 7a 65 32 20 r> keysize2
6e80: 2b 20 73 69 67 73 69 7a 65 23 20 6b 65 2d 73 65 + sigsize# ke-se
6e90: 6c 66 73 69 67 20 24 21 0a 20 20 20 20 6f 3e 20 lfsig $!. o>
6ea0: 20 73 69 6d 2d 6e 69 63 6b 21 20 6f 66 66 20 3b sim-nick! off ;
6eb0: 0a 0a 3a 20 2e 70 6b 32 6b 65 79 24 20 28 20 61 ..: .pk2key$ ( a
6ec0: 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 72 ddr u -- ). r
6ed0: 65 61 64 2d 70 6b 32 6b 65 79 24 20 73 61 6d 70 ead-pk2key$ samp
6ee0: 6c 65 2d 6b 65 79 20 3e 6f 0a 20 20 20 20 5b 20 le-key >o. [
6ef0: 31 20 69 6d 70 6f 72 74 23 69 6e 76 69 74 65 64 1 import#invited
6f00: 20 6c 73 68 69 66 74 20 31 20 69 6d 70 6f 72 74 lshift 1 import
6f10: 23 6e 65 77 20 6c 73 68 69 66 74 20 6f 72 20 5d #new lshift or ]
6f20: 4c 20 6b 65 2d 69 6d 70 6f 72 74 73 20 21 0a 20 L ke-imports !.
6f30: 20 20 20 2e 6b 65 79 2d 69 6e 76 69 74 65 20 66 .key-invite f
6f40: 72 65 65 2d 6b 65 79 20 6f 3e 20 3b 0a 0a 5c 20 ree-key o> ;..\
6f50: 73 65 6c 65 63 74 20 6b 65 79 20 62 79 20 6e 69 select key by ni
6f60: 63 6b 0a 0a 3a 20 3e 72 61 77 2d 6b 65 79 20 28 ck..: >raw-key (
6f70: 20 6f 20 2d 2d 20 29 0a 20 20 20 20 64 75 70 20 o -- ). dup
6f80: 30 3d 20 21 21 6e 6f 2d 6e 69 63 6b 21 21 20 3e 0= !!no-nick!! >
6f90: 6f 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20 70 o. ke-pk $@ p
6fa0: 6b 63 20 70 6b 72 6b 23 20 73 6d 6f 76 65 0a 20 kc pkrk# smove.
6fb0: 20 20 20 6b 65 2d 73 6b 20 73 65 63 40 20 73 6b ke-sk sec@ sk
6fc0: 63 20 73 77 61 70 20 6b 65 79 7c 20 6d 6f 76 65 c swap key| move
6fd0: 0a 20 20 20 20 3e 73 6b 73 69 67 20 6f 3e 20 3b . >sksig o> ;
6fe0: 0a 0a 3a 20 3e 6b 65 79 20 28 20 61 64 64 72 20 ..: >key ( addr
6ff0: 75 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 23 20 u -- ). key#
7000: 40 20 30 3d 20 49 46 20 20 72 65 61 64 2d 6b 65 @ 0= IF read-ke
7010: 79 73 20 20 54 48 45 4e 0a 20 20 20 20 6e 69 63 ys THEN. nic
7020: 6b 2d 6b 65 79 20 3e 72 61 77 2d 6b 65 79 20 3b k-key >raw-key ;
7030: 0a 0a 3a 20 69 27 6d 20 28 20 22 6e 61 6d 65 22 ..: i'm ( "name"
7040: 20 2d 2d 20 29 20 70 61 72 73 65 2d 6e 61 6d 65 -- ) parse-name
7050: 20 3e 6b 65 79 20 3b 0a 3a 20 70 6b 27 20 28 20 >key ;.: pk' (
7060: 22 6e 61 6d 65 22 20 2d 2d 20 61 64 64 72 20 75 "name" -- addr u
7070: 20 29 0a 20 20 20 20 70 61 72 73 65 2d 6e 61 6d ). parse-nam
7080: 65 20 6e 69 63 6b 3e 70 6b 20 3b 0a 0a 3a 20 64 e nick>pk ;..: d
7090: 65 73 74 2d 6b 65 79 20 28 20 61 64 64 72 20 75 est-key ( addr u
70a0: 20 2d 2d 20 29 20 64 75 70 20 30 3d 20 49 46 20 -- ) dup 0= IF
70b0: 20 32 64 72 6f 70 20 20 45 58 49 54 20 20 54 48 2drop EXIT TH
70c0: 45 4e 0a 20 20 20 20 6e 69 63 6b 2d 6b 65 79 20 EN. nick-key
70d0: 3e 6f 20 6f 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 >o o 0= !!unknow
70e0: 6e 2d 6b 65 79 21 21 0a 20 20 20 20 6b 65 2d 70 n-key!!. ke-p
70f0: 6b 20 24 40 20 6f 3e 0a 20 20 20 20 70 75 62 6b k $@ o>. pubk
7100: 65 79 20 24 21 20 3b 0a 0a 3a 20 64 65 73 74 2d ey $! ;..: dest-
7110: 70 6b 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 pk ( addr u -- )
7120: 20 6b 65 79 32 7c 20 32 64 75 70 20 6b 65 79 7c key2| 2dup key|
7130: 20 6b 65 79 23 20 23 40 20 30 3d 20 49 46 0a 09 key# #@ 0= IF..
7140: 64 72 6f 70 20 70 75 62 6b 65 79 20 24 21 20 20 drop pubkey $!
7150: 70 65 72 6d 25 75 6e 6b 6e 6f 77 6e 20 70 65 72 perm%unknown per
7160: 6d 2d 6d 61 73 6b 20 21 0a 20 20 20 20 45 4c 53 m-mask !. ELS
7170: 45 20 20 63 65 6c 6c 2b 20 3e 6f 0a 09 6b 65 2d E cell+ >o..ke-
7180: 6d 61 73 6b 20 40 0a 09 6b 65 2d 70 6b 20 24 40 mask @..ke-pk $@
7190: 20 6f 3e 0a 09 70 75 62 6b 65 79 20 24 21 20 20 o>..pubkey $!
71a0: 70 65 72 6d 2d 6d 61 73 6b 20 21 20 20 32 64 72 perm-mask ! 2dr
71b0: 6f 70 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 72 65 op THEN ;..: re
71c0: 70 6c 61 63 65 2d 6b 65 79 20 31 20 2f 73 74 72 place-key 1 /str
71d0: 69 6e 67 20 7b 20 72 65 76 2d 61 64 64 72 20 75 ing { rev-addr u
71e0: 20 2d 2d 20 6f 20 7d 20 5c 20 72 65 76 6f 63 61 -- o } \ revoca
71f0: 74 69 6f 6e 20 74 69 63 6b 65 74 0a 20 20 20 20 tion ticket.
7200: 6b 65 79 28 20 2e 22 20 52 65 70 6c 61 63 65 3a key( ." Replace:
7210: 22 20 63 72 20 6f 20 63 65 6c 6c 2d 20 30 20 2e " cr o cell- 0 .
7220: 6b 65 79 20 29 0a 20 20 20 20 69 6d 70 6f 72 74 key ). import
7230: 23 73 65 6c 66 20 69 6d 70 6f 72 74 2d 74 79 70 #self import-typ
7240: 65 20 21 0a 20 20 20 20 73 22 20 23 72 65 76 6f e !. s" #revo
7250: 6b 65 64 22 20 64 75 70 20 3e 72 20 6b 65 2d 6e ked" dup >r ke-n
7260: 69 63 6b 20 24 2b 21 0a 20 20 20 20 6b 65 2d 6e ick $+!. ke-n
7270: 69 63 6b 20 24 40 20 72 3e 20 2d 20 6b 65 2d 70 ick $@ r> - ke-p
7280: 72 6f 66 20 24 40 20 6b 65 2d 73 69 67 73 20 6b rof $@ ke-sigs k
7290: 65 2d 74 79 70 65 20 40 0a 20 20 20 20 72 65 76 e-type @. rev
72a0: 2d 61 64 64 72 20 70 6b 72 6b 23 20 6b 65 79 3f -addr pkrk# key?
72b0: 6e 65 77 20 3e 6f 0a 20 20 20 20 6b 65 2d 74 79 new >o. ke-ty
72c0: 70 65 20 21 20 5b 3a 20 6b 65 2d 73 69 67 73 20 pe ! [: ke-sigs
72d0: 24 2b 5b 5d 21 20 3b 5d 20 24 5b 5d 6d 61 70 20 $+[]! ;] $[]map
72e0: 6b 65 2d 70 72 6f 66 20 24 21 20 6b 65 2d 6e 69 ke-prof $! ke-ni
72f0: 63 6b 20 24 21 0a 20 20 20 20 72 65 76 2d 61 64 ck $!. rev-ad
7300: 64 72 20 70 6b 72 6b 23 20 6b 65 2d 70 6b 20 24 dr pkrk# ke-pk $
7310: 21 0a 20 20 20 20 72 65 76 2d 61 64 64 72 20 75 !. rev-addr u
7320: 20 2b 20 31 2d 20 64 75 70 20 63 40 20 32 2a 20 + 1- dup c@ 2*
7330: 2d 20 24 31 30 20 2d 20 24 31 30 20 6b 65 2d 73 - $10 - $10 ke-s
7340: 65 6c 66 73 69 67 20 24 21 0a 20 20 20 20 6b 65 elfsig $!. ke
7350: 79 28 20 2e 22 20 77 69 74 68 3a 22 20 63 72 20 y( ." with:" cr
7360: 6f 20 63 65 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 o cell- 0 .key )
7370: 20 6f 20 6f 3e 0a 20 20 20 20 69 6d 70 6f 72 74 o o>. import
7380: 23 6e 65 77 20 69 6d 70 6f 72 74 2d 74 79 70 65 #new import-type
7390: 20 21 20 3b 0a 0a 3a 20 72 65 6e 65 77 2d 6b 65 ! ;..: renew-ke
73a0: 79 20 28 20 72 65 76 61 64 64 72 20 75 31 20 6b y ( revaddr u1 k
73b0: 65 79 61 64 64 72 20 75 32 20 2d 2d 20 6f 20 29 eyaddr u2 -- o )
73c0: 0a 20 20 20 20 63 75 72 72 65 6e 74 2d 6b 65 79 . current-key
73d0: 20 3e 6f 20 72 65 70 6c 61 63 65 2d 6b 65 79 20 >o replace-key
73e0: 6f 3e 0a 20 20 20 20 3e 6f 20 73 6b 63 20 6b 65 o>. >o skc ke
73f0: 79 73 69 7a 65 20 6b 65 2d 73 6b 20 73 65 63 21 ysize ke-sk sec!
7400: 20 6f 20 6f 3e 20 3b 0a 0a 5c 20 67 65 6e 65 72 o o> ;..\ gener
7410: 61 74 65 20 6e 65 77 20 6b 65 79 0a 0a 3a 20 6f ate new key..: o
7420: 75 74 2d 6b 65 79 20 28 20 6f 20 2d 2d 20 29 0a ut-key ( o -- ).
7430: 20 20 20 20 3e 6f 20 70 61 63 6b 2d 6f 75 74 6b >o pack-outk
7440: 65 79 20 5b 27 5d 20 2e 6e 69 63 6b 2d 62 61 73 ey ['] .nick-bas
7450: 65 20 24 74 6d 70 20 66 6e 2d 73 61 6e 69 74 69 e $tmp fn-saniti
7460: 7a 65 20 6f 3e 0a 20 20 20 20 5b 3a 20 2e 22 20 ze o>. [: ."
7470: 7e 2f 22 20 74 79 70 65 20 2e 22 20 2e 6e 32 6f ~/" type ." .n2o
7480: 22 20 3b 5d 20 24 74 6d 70 20 77 2f 6f 20 63 72 " ;] $tmp w/o cr
7490: 65 61 74 65 2d 66 69 6c 65 20 74 68 72 6f 77 0a eate-file throw.
74a0: 20 20 20 20 3e 72 20 63 6d 64 62 75 66 24 20 72 >r cmdbuf$ r
74b0: 40 20 77 72 69 74 65 2d 66 69 6c 65 20 74 68 72 @ write-file thr
74c0: 6f 77 20 72 3e 20 63 6c 6f 73 65 2d 66 69 6c 65 ow r> close-file
74d0: 20 74 68 72 6f 77 20 3b 0a 3a 20 6f 75 74 2d 6d throw ;.: out-m
74e0: 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 70 6b 63 e ( -- ). pkc
74f0: 20 6b 65 79 73 69 7a 65 20 6b 65 79 23 20 23 40 keysize key# #@
7500: 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 0= !!unknown-ke
7510: 79 21 21 0a 20 20 20 20 63 65 6c 6c 2b 20 6f 75 y!!. cell+ ou
7520: 74 2d 6b 65 79 20 3b 0a 0a 56 61 72 69 61 62 6c t-key ;..Variabl
7530: 65 20 64 68 74 72 6f 6f 74 2e 6e 32 6f 0a 0a 3a e dhtroot.n2o..:
7540: 20 2b 64 68 74 72 6f 6f 74 20 28 20 2d 2d 20 29 +dhtroot ( -- )
7550: 0a 20 20 20 20 64 65 66 61 75 6c 74 6b 65 79 20 . defaultkey
7560: 40 20 3e 73 74 6f 72 65 6b 65 79 20 21 0a 20 20 @ >storekey !.
7570: 20 20 69 6d 70 6f 72 74 23 6d 61 6e 75 61 6c 20 import#manual
7580: 69 6d 70 6f 72 74 2d 74 79 70 65 20 21 20 20 36 import-type ! 6
7590: 34 23 2d 31 20 6b 65 79 2d 72 65 61 64 2d 6f 66 4#-1 key-read-of
75a0: 66 73 65 74 20 36 34 21 0a 20 20 20 20 64 68 74 fset 64!. dht
75b0: 72 6f 6f 74 2e 6e 32 6f 20 24 40 20 64 6f 2d 6b root.n2o $@ do-k
75c0: 65 79 0a 20 20 20 20 6c 61 73 74 2d 6b 65 79 20 ey. last-key
75d0: 3e 6f 20 22 5c 78 30 32 22 20 6b 65 2d 67 72 6f >o "\x02" ke-gro
75e0: 75 70 73 20 24 21 20 70 65 72 6d 25 64 68 74 72 ups $! perm%dhtr
75f0: 6f 6f 74 20 6b 65 2d 6d 61 73 6b 20 21 20 6f 3e oot ke-mask ! o>
7600: 0a 20 20 20 20 69 6d 70 6f 72 74 23 6e 65 77 20 . import#new
7610: 69 6d 70 6f 72 74 2d 74 79 70 65 20 21 20 3b 0a import-type ! ;.
7620: 0a 3a 20 6e 65 77 2d 6b 65 79 20 28 20 6e 69 63 .: new-key ( nic
7630: 6b 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 kaddr u -- ).
7640: 20 3f 63 68 65 63 6b 2d 72 6e 67 20 5c 20 62 65 ?check-rng \ be
7650: 66 6f 72 65 20 67 65 6e 65 72 61 74 69 6e 67 20 fore generating
7660: 61 20 6b 65 79 2c 20 63 68 65 63 6b 20 74 68 65 a key, check the
7670: 20 72 6e 67 20 66 6f 72 20 68 65 61 6c 74 68 0a rng for health.
7680: 20 20 20 20 2b 6e 65 77 70 68 72 61 73 65 20 6b +newphrase k
7690: 65 79 3e 64 65 66 61 75 6c 74 0a 20 20 20 20 6b ey>default. k
76a0: 65 79 23 75 73 65 72 20 2b 67 65 6e 2d 6b 65 79 ey#user +gen-key
76b0: 73 0a 20 20 20 20 73 65 63 72 65 74 2d 6b 65 79 s. secret-key
76c0: 73 23 20 31 2d 20 73 65 63 72 65 74 2d 6b 65 79 s# 1- secret-key
76d0: 20 3e 72 61 77 2d 6b 65 79 20 20 6c 61 73 74 6b >raw-key lastk
76e0: 65 79 40 20 64 72 6f 70 20 64 65 66 61 75 6c 74 ey@ drop default
76f0: 6b 65 79 20 21 0a 20 20 20 20 6f 75 74 2d 6d 65 key !. out-me
7700: 20 2b 64 68 74 72 6f 6f 74 20 73 61 76 65 2d 6b +dhtroot save-k
7710: 65 79 73 20 3b 0a 0a 5c 20 72 65 76 6f 6b 61 74 eys ;..\ revokat
7720: 69 6f 6e 0a 0a 34 20 64 61 74 65 73 69 7a 65 23 ion..4 datesize#
7730: 20 2b 20 6b 65 79 73 69 7a 65 20 39 20 2a 20 2b + keysize 9 * +
7740: 20 43 6f 6e 73 74 61 6e 74 20 72 65 76 73 69 7a Constant revsiz
7750: 65 23 0a 0a 56 61 72 69 61 62 6c 65 20 72 65 76 e#..Variable rev
7760: 74 6f 6b 65 6e 0a 0a 3a 20 30 6f 6c 64 6b 65 79 token..: 0oldkey
7770: 20 28 20 2d 2d 20 29 20 5c 20 70 75 62 6b 65 79 ( -- ) \ pubkey
7780: 73 20 63 61 6e 20 73 74 61 79 0a 20 20 20 20 6f s can stay. o
7790: 6c 64 73 6b 63 20 6b 65 79 73 69 7a 65 20 65 72 ldskc keysize er
77a0: 61 73 65 20 20 6f 6c 64 73 6b 72 65 76 20 6b 65 ase oldskrev ke
77b0: 79 73 69 7a 65 20 65 72 61 73 65 20 3b 0a 0a 3a ysize erase ;..:
77c0: 20 6b 65 79 6d 6f 76 65 20 28 20 61 64 64 72 31 keymove ( addr1
77d0: 20 61 64 64 72 32 20 2d 2d 20 29 20 20 6b 65 79 addr2 -- ) key
77e0: 73 69 7a 65 20 6d 6f 76 65 20 3b 0a 0a 3a 20 72 size move ;..: r
77f0: 65 76 6f 6b 65 2d 76 65 72 69 66 79 20 28 20 61 evoke-verify ( a
7800: 64 64 72 20 75 31 20 70 6b 20 73 74 72 69 6e 67 ddr u1 pk string
7810: 20 75 32 20 2d 2d 20 61 64 64 72 20 75 20 66 6c u2 -- addr u fl
7820: 61 67 20 29 20 72 6f 74 20 3e 72 20 32 3e 72 20 ag ) rot >r 2>r
7830: 63 3a 30 6b 65 79 0a 20 20 20 20 73 69 67 6f 6e c:0key. sigon
7840: 6c 79 73 69 7a 65 23 20 2d 20 32 64 75 70 20 32 lysize# - 2dup 2
7850: 72 3e 20 3e 6b 65 79 65 64 2d 68 61 73 68 0a 20 r> >keyed-hash.
7860: 20 20 20 73 69 67 64 61 74 65 20 2b 64 61 74 65 sigdate +date
7870: 0a 20 20 20 20 32 64 75 70 20 2b 20 72 3e 20 65 . 2dup + r> e
7880: 64 2d 76 65 72 69 66 79 20 3b 0a 0a 3a 20 3e 72 d-verify ;..: >r
7890: 65 76 6f 6b 65 20 28 20 73 6b 72 65 76 20 2d 2d evoke ( skrev --
78a0: 20 29 20 20 73 6b 72 65 76 20 6b 65 79 6d 6f 76 ) skrev keymov
78b0: 65 20 20 70 6b 63 20 63 68 65 63 6b 2d 72 65 76 e pkc check-rev
78c0: 3f 20 30 3d 20 21 21 6e 6f 74 2d 6d 79 2d 72 65 ? 0= !!not-my-re
78d0: 76 73 6b 21 21 20 3b 0a 0a 3a 20 2b 72 65 76 73 vsk!! ;..: +revs
78e0: 69 67 6e 20 28 20 73 6b 20 70 6b 20 2d 2d 20 29 ign ( sk pk -- )
78f0: 20 20 73 6b 73 69 67 20 2d 72 6f 74 20 65 64 2d sksig -rot ed-
7900: 73 69 67 6e 20 72 65 76 74 6f 6b 65 6e 20 24 2b sign revtoken $+
7910: 21 20 62 6c 20 72 65 76 74 6f 6b 65 6e 20 63 24 ! bl revtoken c$
7920: 2b 21 20 3b 0a 0a 3a 20 73 69 67 6e 2d 74 6f 6b +! ;..: sign-tok
7930: 65 6e 2c 20 28 20 73 6b 20 70 6b 20 73 74 72 69 en, ( sk pk stri
7940: 6e 67 20 75 32 20 2d 2d 20 29 0a 20 20 20 20 63 ng u2 -- ). c
7950: 3a 30 6b 65 79 20 72 65 76 74 6f 6b 65 6e 20 24 :0key revtoken $
7960: 40 20 32 73 77 61 70 20 3e 6b 65 79 65 64 2d 68 @ 2swap >keyed-h
7970: 61 73 68 0a 20 20 20 20 73 69 67 64 61 74 65 20 ash. sigdate
7980: 2b 64 61 74 65 20 2b 72 65 76 73 69 67 6e 20 3b +date +revsign ;
7990: 0a 0a 3a 20 72 65 76 6f 6b 65 2d 6b 65 79 20 28 ..: revoke-key (
79a0: 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 -- addr u ).
79b0: 20 73 6b 63 20 6f 6c 64 73 6b 63 20 6b 65 79 6d skc oldskc keym
79c0: 6f 76 65 20 20 70 6b 63 20 6f 6c 64 70 6b 63 20 ove pkc oldpkc
79d0: 6b 65 79 6d 6f 76 65 20 20 73 6b 72 65 76 20 6f keymove skrev o
79e0: 6c 64 73 6b 72 65 76 20 6b 65 79 6d 6f 76 65 0a ldskrev keymove.
79f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7a10: 20 20 20 20 20 20 20 20 20 20 20 5c 20 62 61 63 \ bac
7a20: 6b 75 70 20 6b 65 79 73 0a 20 20 20 20 6f 6c 64 kup keys. old
7a30: 73 6b 72 65 76 20 6f 6c 64 70 6b 72 65 76 20 73 skrev oldpkrev s
7a40: 6b 3e 70 6b 20 20 20 20 20 20 20 20 20 20 20 20 k>pk
7a50: 20 20 20 20 5c 20 67 65 6e 65 72 61 74 65 20 72 \ generate r
7a60: 65 76 6f 6b 61 74 69 6f 6e 20 70 75 62 6b 65 79 evokation pubkey
7a70: 0a 20 20 20 20 67 65 6e 2d 6b 65 79 73 20 20 20 . gen-keys
7a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7a90: 20 20 20 20 20 20 20 20 20 20 20 20 5c 20 67 65 \ ge
7aa0: 6e 65 72 61 74 65 20 6e 65 77 20 6b 65 79 73 0a nerate new keys.
7ab0: 20 20 20 20 70 6b 63 20 6b 65 79 73 69 7a 65 32 pkc keysize2
7ac0: 20 72 65 76 74 6f 6b 65 6e 20 24 21 20 20 20 20 revtoken $!
7ad0: 20 20 20 20 20 20 20 20 20 20 20 5c 20 6d 79 20 \ my
7ae0: 6e 65 77 20 6b 65 79 0a 20 20 20 20 6f 6c 64 70 new key. oldp
7af0: 6b 72 65 76 20 6b 65 79 73 69 7a 65 20 72 65 76 krev keysize rev
7b00: 74 6f 6b 65 6e 20 24 2b 21 20 20 20 20 20 20 20 token $+!
7b10: 20 20 20 5c 20 72 65 76 6f 6b 65 20 74 6f 6b 65 \ revoke toke
7b20: 6e 0a 20 20 20 20 6f 6c 64 73 6b 72 65 76 20 6f n. oldskrev o
7b30: 6c 64 70 6b 72 65 76 20 22 72 65 76 6f 6b 65 22 ldpkrev "revoke"
7b40: 20 73 69 67 6e 2d 74 6f 6b 65 6e 2c 20 5c 20 72 sign-token, \ r
7b50: 65 76 6f 6b 65 20 73 69 67 6e 61 74 75 72 65 0a evoke signature.
7b60: 20 20 20 20 73 6b 63 20 70 6b 63 20 22 73 65 6c skc pkc "sel
7b70: 66 73 69 67 6e 22 20 73 69 67 6e 2d 74 6f 6b 65 fsign" sign-toke
7b80: 6e 2c 20 20 20 20 20 20 20 20 20 5c 20 73 65 6c n, \ sel
7b90: 66 20 73 69 67 6e 65 64 20 77 69 74 68 20 6e 65 f signed with ne
7ba0: 77 20 6b 65 79 0a 20 20 20 20 22 21 22 20 72 65 w key. "!" re
7bb0: 76 74 6f 6b 65 6e 20 30 20 24 69 6e 73 20 20 20 vtoken 0 $ins
7bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7bd0: 20 5c 20 22 21 22 20 2b 20 6f 6c 64 6b 65 79 6c \ "!" + oldkeyl
7be0: 65 6e 2b 6e 65 77 6b 65 79 6c 65 6e 20 74 6f 20 en+newkeylen to
7bf0: 66 6c 61 67 20 72 65 76 6f 6b 61 74 69 6f 6e 0a flag revokation.
7c00: 20 20 20 20 72 65 76 74 6f 6b 65 6e 20 24 40 20 revtoken $@
7c10: 67 65 6e 3e 68 6f 73 74 20 32 64 72 6f 70 20 20 gen>host 2drop
7c20: 20 20 20 20 20 20 20 20 20 20 20 5c 20 73 69 67 \ sig
7c30: 6e 20 68 6f 73 74 20 69 6e 66 6f 72 6d 61 74 69 n host informati
7c40: 6f 6e 20 77 69 74 68 20 6f 6c 64 20 6b 65 79 0a on with old key.
7c50: 20 20 20 20 73 69 67 64 61 74 65 20 2b 64 61 74 sigdate +dat
7c60: 65 20 73 69 67 64 61 74 65 20 64 61 74 65 73 69 e sigdate datesi
7c70: 7a 65 23 20 72 65 76 74 6f 6b 65 6e 20 24 2b 21 ze# revtoken $+!
7c80: 0a 20 20 20 20 6f 6c 64 73 6b 63 20 6f 6c 64 70 . oldskc oldp
7c90: 6b 63 20 2b 72 65 76 73 69 67 6e 0a 20 20 20 20 kc +revsign.
7ca0: 30 6f 6c 64 6b 65 79 20 72 65 76 74 6f 6b 65 6e 0oldkey revtoken
7cb0: 20 24 40 20 3b 0a 0a 5c 20 69 6e 76 69 74 61 74 $@ ;..\ invitat
7cc0: 69 6f 6e 0a 0a 56 61 72 69 61 62 6c 65 20 69 6e ion..Variable in
7cd0: 76 69 74 61 74 69 6f 6e 73 0a 0a 65 76 65 6e 74 vitations..event
7ce0: 3a 20 2d 3e 69 6e 76 69 74 65 20 28 20 61 64 64 : ->invite ( add
7cf0: 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 2e 22 20 r u -- ). ."
7d00: 69 6e 76 69 74 65 20 6d 65 3a 20 22 20 6f 76 65 invite me: " ove
7d10: 72 20 3e 72 20 2e 70 6b 32 6b 65 79 24 20 63 72 r >r .pk2key$ cr
7d20: 20 72 3e 20 66 72 65 65 20 74 68 72 6f 77 20 63 r> free throw c
7d30: 74 72 6c 20 4c 20 69 6e 73 6b 65 79 20 3b 0a 65 trl L inskey ;.e
7d40: 76 65 6e 74 3a 20 2d 3e 77 61 6b 65 6d 65 20 28 vent: ->wakeme (
7d50: 20 6f 20 2d 2d 20 29 20 3c 65 76 65 6e 74 20 2d o -- ) <event -
7d60: 3e 77 61 6b 65 20 65 76 65 6e 74 3e 20 3b 0a 0a >wake event> ;..
7d70: 3a 20 70 6b 32 6b 65 79 24 2d 61 64 64 20 28 20 : pk2key$-add (
7d80: 61 64 64 72 20 75 20 70 65 72 6d 20 2d 2d 20 29 addr u perm -- )
7d90: 20 7b 20 70 65 72 6d 20 7d 0a 20 20 20 20 73 61 { perm }. sa
7da0: 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20 69 6d 70 6f mple-key >o impo
7db0: 72 74 23 69 6e 76 69 74 65 64 20 69 6d 70 6f 72 rt#invited impor
7dc0: 74 2d 74 79 70 65 20 21 20 63 6d 64 3a 6e 65 73 t-type ! cmd:nes
7dd0: 74 73 69 67 0a 20 20 20 20 70 65 72 6d 20 6b 65 tsig. perm ke
7de0: 2d 6d 61 73 6b 20 21 0a 20 20 20 20 69 6d 70 6f -mask !. impo
7df0: 72 74 23 6e 65 77 20 69 6d 70 6f 72 74 2d 74 79 rt#new import-ty
7e00: 70 65 20 21 20 20 73 61 76 65 2d 70 75 62 6b 65 pe ! save-pubke
7e10: 79 73 20 6f 3e 20 3b 0a 0a 3a 20 78 2d 65 72 61 ys o> ;..: x-era
7e20: 73 65 20 28 20 6c 65 6e 20 2d 2d 20 29 0a 20 20 se ( len -- ).
7e30: 20 20 64 75 70 20 78 62 61 63 6b 2d 72 65 73 74 dup xback-rest
7e40: 6f 72 65 20 20 64 75 70 20 73 70 61 63 65 73 20 ore dup spaces
7e50: 20 78 62 61 63 6b 2d 72 65 73 74 6f 72 65 20 3b xback-restore ;
7e60: 0a 0a 3a 20 69 6e 76 69 74 65 2d 6b 65 79 20 28 ..: invite-key (
7e70: 20 61 64 64 72 20 75 20 2d 2d 20 6b 65 79 20 29 addr u -- key )
7e80: 0a 20 20 20 20 32 64 75 70 20 78 2d 77 69 64 74 . 2dup x-widt
7e90: 68 20 7b 20 61 64 64 72 20 75 20 6c 65 6e 20 7d h { addr u len }
7ea0: 0a 20 20 20 20 42 45 47 49 4e 20 20 61 64 64 72 . BEGIN addr
7eb0: 20 75 20 74 79 70 65 20 6b 65 79 20 20 6c 65 6e u type key len
7ec0: 20 78 2d 65 72 61 73 65 0a 09 64 75 70 20 63 74 x-erase..dup ct
7ed0: 72 6c 20 5a 20 3d 0a 20 20 20 20 57 48 49 4c 45 rl Z =. WHILE
7ee0: 20 20 64 72 6f 70 20 20 42 45 47 49 4e 20 20 6b drop BEGIN k
7ef0: 65 79 20 63 74 72 6c 20 4c 20 3d 20 20 55 4e 54 ey ctrl L = UNT
7f00: 49 4c 20 20 52 45 50 45 41 54 20 3b 0a 0a 3a 20 IL REPEAT ;..:
7f10: 70 72 6f 63 65 73 73 2d 69 6e 76 69 74 61 74 69 process-invitati
7f20: 6f 6e 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 on ( addr u -- )
7f30: 0a 20 20 20 20 73 22 20 69 6e 76 69 74 65 20 28 . s" invite (
7f40: 79 2f 6e 2f 62 29 3f 22 20 69 6e 76 69 74 65 2d y/n/b)?" invite-
7f50: 6b 65 79 0a 20 20 20 20 63 61 73 65 0a 09 27 79 key. case..'y
7f60: 27 20 6f 66 20 20 70 65 72 6d 25 64 65 66 61 75 ' of perm%defau
7f70: 6c 74 20 70 6b 32 6b 65 79 24 2d 61 64 64 20 20 lt pk2key$-add
7f80: 2e 22 20 61 64 64 65 64 22 20 63 72 20 20 20 65 ." added" cr e
7f90: 6e 64 6f 66 0a 09 27 62 27 20 6f 66 20 20 70 65 ndof..'b' of pe
7fa0: 72 6d 25 62 6c 6f 63 6b 65 64 20 70 6b 32 6b 65 rm%blocked pk2ke
7fb0: 79 24 2d 61 64 64 20 20 2e 22 20 62 6c 6f 63 6b y$-add ." block
7fc0: 65 64 22 20 63 72 20 65 6e 64 6f 66 0a 09 32 64 ed" cr endof..2d
7fd0: 72 6f 70 20 2e 22 20 69 67 6e 6f 72 65 64 22 20 rop ." ignored"
7fe0: 63 72 0a 20 20 20 20 65 6e 64 63 61 73 65 20 3b cr. endcase ;
7ff0: 0a 0a 3a 20 66 69 6c 74 65 72 2d 69 6e 76 69 74 ..: filter-invit
8000: 61 74 69 6f 6e 3f 20 28 20 61 64 64 72 20 75 20 ation? ( addr u
8010: 2d 2d 20 66 6c 61 67 20 29 0a 20 20 20 20 73 69 -- flag ). si
8020: 67 70 6b 32 73 69 7a 65 23 20 2d 20 2b 20 6b 65 gpk2size# - + ke
8030: 79 73 69 7a 65 20 6b 65 79 23 20 23 40 20 64 30 ysize key# #@ d0
8040: 3c 3e 20 3b 20 5c 20 61 6c 72 65 61 64 79 20 74 <> ; \ already t
8050: 68 65 72 65 0a 0a 3a 20 2e 69 6e 76 69 74 61 74 here..: .invitat
8060: 69 6f 6e 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 ions ( -- ).
8070: 69 6e 76 69 74 61 74 69 6f 6e 73 20 5b 3a 20 32 invitations [: 2
8080: 64 75 70 20 2e 70 6b 32 6b 65 79 24 20 63 72 20 dup .pk2key$ cr
8090: 70 72 6f 63 65 73 73 2d 69 6e 76 69 74 61 74 69 process-invitati
80a0: 6f 6e 20 3b 5d 20 24 5b 5d 6d 61 70 0a 20 20 20 on ;] $[]map.
80b0: 20 69 6e 76 69 74 61 74 69 6f 6e 73 20 24 5b 5d invitations $[]
80c0: 6f 66 66 20 3b 0a 0a 3a 20 3e 69 6e 76 69 74 61 off ;..: >invita
80d0: 74 69 6f 6e 73 20 28 20 61 64 64 72 20 75 20 2d tions ( addr u -
80e0: 2d 20 29 0a 20 20 20 20 32 64 75 70 20 66 69 6c - ). 2dup fil
80f0: 74 65 72 2d 69 6e 76 69 74 61 74 69 6f 6e 3f 20 ter-invitation?
8100: 49 46 20 20 32 64 72 6f 70 20 45 58 49 54 20 20 IF 2drop EXIT
8110: 54 48 45 4e 0a 20 20 20 20 69 6e 76 69 74 61 74 THEN. invitat
8120: 69 6f 6e 73 20 24 5b 5d 23 20 3e 72 0a 20 20 20 ions $[]# >r.
8130: 20 32 64 75 70 20 69 6e 76 69 74 61 74 69 6f 6e 2dup invitation
8140: 73 20 24 69 6e 73 5b 5d 73 69 67 20 64 72 6f 70 s $ins[]sig drop
8150: 0a 20 20 20 20 69 6e 76 69 74 61 74 69 6f 6e 73 . invitations
8160: 20 24 5b 5d 23 20 72 3e 20 3c 3e 20 49 46 0a 09 $[]# r> <> IF..
8170: 73 61 76 65 2d 6d 65 6d 20 6d 61 69 6e 2d 75 70 save-mem main-up
8180: 40 20 3c 68 69 64 65 3e 0a 09 3c 65 76 65 6e 74 @ <hide>..<event
8190: 20 65 24 2c 20 2d 3e 69 6e 76 69 74 65 20 75 70 e$, ->invite up
81a0: 40 20 65 6c 69 74 2c 20 2d 3e 77 61 6b 65 6d 65 @ elit, ->wakeme
81b0: 20 6d 61 69 6e 2d 75 70 40 20 65 76 65 6e 74 3e main-up@ event>
81c0: 20 73 74 6f 70 0a 20 20 20 20 45 4c 53 45 20 20 stop. ELSE
81d0: 32 64 72 6f 70 20 20 54 48 45 4e 20 3b 0a 0a 3a 2drop THEN ;..:
81e0: 20 73 65 6e 64 2d 69 6e 76 69 74 61 74 69 6f 6e send-invitation
81f0: 20 28 20 70 6b 20 75 20 2d 2d 20 29 0a 20 20 20 ( pk u -- ).
8200: 20 73 65 74 75 70 21 20 6d 79 70 6b 32 6e 69 63 setup! mypk2nic
8210: 6b 24 20 32 3e 72 0a 20 20 20 20 67 65 6e 2d 74 k$ 2>r. gen-t
8220: 6d 70 6b 65 79 73 20 64 72 6f 70 20 74 73 6b 63 mpkeys drop tskc
8230: 20 73 77 61 70 20 6b 65 79 70 61 64 20 65 64 2d swap keypad ed-
8240: 64 68 20 64 6f 2d 6b 65 79 70 61 64 20 73 65 63 dh do-keypad sec
8250: 21 0a 20 20 20 20 6e 65 74 32 6f 2d 63 6f 64 65 !. net2o-code
8260: 30 0a 20 20 20 20 74 70 6b 63 20 6b 65 79 73 69 0. tpkc keysi
8270: 7a 65 20 24 2c 20 6f 6e 65 73 68 6f 74 2d 74 6d ze $, oneshot-tm
8280: 70 6b 65 79 0a 20 20 20 20 6e 65 73 74 5b 20 32 pkey. nest[ 2
8290: 72 3e 20 24 2c 20 69 6e 76 69 74 65 20 5d 74 6d r> $, invite ]tm
82a0: 70 6e 65 73 74 0a 20 20 20 20 63 6f 6f 6b 69 65 pnest. cookie
82b0: 2b 72 65 71 75 65 73 74 0a 20 20 20 20 65 6e 64 +request. end
82c0: 2d 63 6f 64 65 7c 20 3b 0a 0a 5c 20 6b 65 79 20 -code| ;..\ key
82d0: 61 70 69 20 68 65 6c 70 65 72 73 0a 0a 3a 20 64 api helpers..: d
82e0: 65 6c 2d 6c 61 73 74 2d 6b 65 79 20 28 20 2d 2d el-last-key ( --
82f0: 20 29 0a 20 20 20 20 6b 65 79 73 20 24 5b 5d 23 ). keys $[]#
8300: 20 31 2d 20 6b 65 79 73 20 24 5b 5d 20 73 65 63 1- keys $[] sec
8310: 2d 6f 66 66 0a 20 20 20 20 6b 65 79 73 20 24 40 -off. keys $@
8320: 6c 65 6e 20 63 65 6c 6c 2d 20 6b 65 79 73 20 24 len cell- keys $
8330: 21 6c 65 6e 20 3b 0a 0a 3a 20 73 74 6f 72 65 6b !len ;..: storek
8340: 65 79 21 20 28 20 2d 2d 20 29 0a 20 20 20 20 3e ey! ( -- ). >
8350: 73 65 63 6b 65 79 20 6b 65 79 73 20 24 5b 5d 23 seckey keys $[]#
8360: 20 30 20 3f 44 4f 20 20 32 64 75 70 20 49 20 6b 0 ?DO 2dup I k
8370: 65 79 73 20 73 65 63 5b 5d 40 20 73 74 72 3d 20 eys sec[]@ str=
8380: 49 46 0a 09 20 20 20 20 49 20 6b 65 79 73 20 73 IF.. I keys s
8390: 65 63 5b 5d 40 20 64 72 6f 70 20 3e 73 74 6f 72 ec[]@ drop >stor
83a0: 65 6b 65 79 20 21 20 20 4c 45 41 56 45 20 20 54 ekey ! LEAVE T
83b0: 48 45 4e 20 20 4c 4f 4f 50 20 20 32 64 72 6f 70 HEN LOOP 2drop
83c0: 20 3b 0a 0a 3a 20 63 68 6f 6f 73 65 2d 6b 65 79 ;..: choose-key
83d0: 20 28 20 2d 2d 20 6f 20 29 0a 20 20 20 20 30 20 ( -- o ). 0
83e0: 42 45 47 49 4e 20 20 64 72 6f 70 0a 09 2e 22 20 BEGIN drop..."
83f0: 43 68 6f 6f 73 65 20 6b 65 79 20 62 79 20 6e 75 Choose key by nu
8400: 6d 62 65 72 3a 22 20 63 72 20 2e 73 65 63 72 65 mber:" cr .secre
8410: 74 2d 6e 69 63 6b 73 0a 09 42 45 47 49 4e 20 20 t-nicks..BEGIN
8420: 6b 65 79 20 64 75 70 20 62 6c 20 3c 20 57 48 49 key dup bl < WHI
8430: 4c 45 20 20 64 72 6f 70 20 20 52 45 50 45 41 54 LE drop REPEAT
8440: 20 5c 20 73 77 61 6c 6c 6f 77 20 63 6f 6e 74 72 \ swallow contr
8450: 6f 6c 20 6b 65 79 73 0a 09 5b 27 5d 20 64 69 67 ol keys..['] dig
8460: 69 74 3f 20 23 33 36 20 62 61 73 65 2d 65 78 65 it? #36 base-exe
8470: 63 75 74 65 20 30 3d 20 49 46 20 2d 31 20 54 48 cute 0= IF -1 TH
8480: 45 4e 0a 09 73 65 63 72 65 74 2d 6b 65 79 20 64 EN..secret-key d
8490: 75 70 20 30 3d 20 57 48 49 4c 45 0a 09 20 20 20 up 0= WHILE..
84a0: 20 2e 22 20 50 6c 65 61 73 65 20 65 6e 74 65 72 ." Please enter
84b0: 20 61 20 62 61 73 65 2d 33 36 20 6e 75 6d 62 65 a base-36 numbe
84c0: 72 20 62 65 74 77 65 65 6e 20 30 20 61 6e 64 20 r between 0 and
84d0: 22 0a 09 20 20 20 20 73 65 63 72 65 74 2d 6b 65 ".. secret-ke
84e0: 79 73 23 20 31 2d 20 5b 27 5d 20 2e 20 23 33 36 ys# 1- ['] . #36
84f0: 20 62 61 73 65 2d 65 78 65 63 75 74 65 20 63 72 base-execute cr
8500: 20 20 72 64 72 6f 70 0a 20 20 20 20 52 45 50 45 rdrop. REPE
8510: 41 54 0a 20 20 20 20 64 75 70 20 2e 73 74 6f 72 AT. dup .stor
8520: 65 6b 65 79 21 20 20 3e 73 74 6f 72 65 6b 65 79 ekey! >storekey
8530: 20 40 20 64 65 66 61 75 6c 74 6b 65 79 20 21 0a @ defaultkey !.
8540: 20 20 20 20 2e 22 20 3d 3d 3d 3d 20 6b 65 79 20 ." ==== key
8550: 22 20 64 75 70 20 2e 2e 6e 69 63 6b 20 2e 22 20 " dup ..nick ."
8560: 20 63 68 6f 73 65 6e 20 3d 3d 3d 3d 22 20 63 72 chosen ====" cr
8570: 20 3b 0a 0a 5c 20 77 69 6c 6c 20 61 73 6b 20 66 ;..\ will ask f
8580: 6f 72 20 79 6f 75 72 20 70 61 73 73 77 6f 72 64 or your password
8590: 20 61 6e 64 20 69 66 20 70 6f 73 73 69 62 6c 65 and if possible
85a0: 20 61 75 74 6f 2d 73 65 6c 65 63 74 20 79 6f 75 auto-select you
85b0: 72 20 69 64 0a 0a 56 61 72 69 61 62 6c 65 20 74 r id..Variable t
85c0: 72 69 65 73 23 0a 23 31 30 20 56 61 6c 75 65 20 ries#.#10 Value
85d0: 6d 61 78 74 72 69 65 73 23 0a 0a 3a 20 67 65 74 maxtries#..: get
85e0: 2d 73 6b 63 20 28 20 2d 2d 20 29 0a 20 20 20 20 -skc ( -- ).
85f0: 73 65 63 72 65 74 2d 6b 65 79 73 23 20 3f 45 58 secret-keys# ?EX
8600: 49 54 20 20 74 72 69 65 73 23 20 6f 66 66 0a 20 IT tries# off.
8610: 20 20 20 64 65 62 75 67 2d 76 65 63 74 6f 72 20 debug-vector
8620: 40 20 6f 70 2d 76 65 63 74 6f 72 20 21 40 20 3e @ op-vector !@ >
8630: 72 20 3c 64 65 66 61 75 6c 74 3e 0a 20 20 20 20 r <default>.
8640: 73 65 63 72 65 74 2d 6b 65 79 73 23 0a 20 20 20 secret-keys#.
8650: 20 42 45 47 49 4e 20 20 64 75 70 20 30 3d 20 74 BEGIN dup 0= t
8660: 72 69 65 73 23 20 40 20 6d 61 78 74 72 69 65 73 ries# @ maxtries
8670: 23 20 75 3c 20 61 6e 64 20 20 57 48 49 4c 45 20 # u< and WHILE
8680: 64 72 6f 70 0a 09 20 20 20 20 73 22 20 50 61 73 drop.. s" Pas
8690: 73 70 68 72 61 73 65 3a 20 22 20 2b 70 61 73 73 sphrase: " +pass
86a0: 70 68 72 61 73 65 20 20 20 21 74 69 6d 65 0a 09 phrase !time..
86b0: 20 20 20 20 72 65 61 64 2d 6b 65 79 73 20 73 65 read-keys se
86c0: 63 72 65 74 2d 6b 65 79 73 23 20 64 75 70 20 30 cret-keys# dup 0
86d0: 3d 20 49 46 0a 09 09 5c 20 66 61 69 6c 20 72 69 = IF...\ fail ri
86e0: 67 68 74 20 61 66 74 65 72 20 74 68 65 20 66 69 ght after the fi
86f0: 72 73 74 20 74 72 79 20 69 66 20 50 41 53 53 50 rst try if PASSP
8700: 48 52 41 53 45 20 69 73 20 75 73 65 64 0a 09 09 HRASE is used...
8710: 5c 20 61 6e 64 20 67 69 76 65 20 74 68 65 20 6d \ and give the m
8720: 61 78 69 6d 75 6d 20 77 61 69 74 69 6e 67 20 70 aximum waiting p
8730: 65 6e 61 6c 74 79 20 69 6e 20 74 68 61 74 20 63 enalty in that c
8740: 61 73 65 0a 09 09 31 20 6d 61 78 74 72 69 65 73 ase...1 maxtries
8750: 23 20 73 22 20 50 41 53 53 50 48 52 41 53 45 22 # s" PASSPHRASE"
8760: 20 67 65 74 65 6e 76 20 64 30 3d 20 73 65 6c 65 getenv d0= sele
8770: 63 74 20 74 72 69 65 73 23 20 2b 21 0a 09 09 3c ct tries# +!...<
8780: 65 72 72 3e 20 2e 22 20 54 72 79 23 20 22 20 74 err> ." Try# " t
8790: 72 69 65 73 23 20 40 20 30 20 2e 72 20 27 2f 27 ries# @ 0 .r '/'
87a0: 20 65 6d 69 74 20 6d 61 78 74 72 69 65 73 23 20 emit maxtries#
87b0: 2e 0a 09 09 2e 22 20 66 61 69 6c 65 64 2c 20 6e ....." failed, n
87c0: 6f 20 6b 65 79 20 66 6f 75 6e 64 2c 20 77 61 69 o key found, wai
87d0: 74 69 6e 67 20 22 0a 09 09 23 31 20 74 72 69 65 ting "...#1 trie
87e0: 73 23 20 40 20 32 2a 20 6c 73 68 69 66 74 20 64 s# @ 2* lshift d
87f0: 75 70 20 2e 20 2e 22 20 6d 73 2e 2e 2e 22 20 6d up . ." ms..." m
8800: 73 20 20 3c 64 65 66 61 75 6c 74 3e 20 63 72 0a s <default> cr.
8810: 09 09 64 65 6c 2d 6c 61 73 74 2d 6b 65 79 0a 09 ..del-last-key..
8820: 20 20 20 20 54 48 45 4e 0a 20 20 20 20 52 45 50 THEN. REP
8830: 45 41 54 0a 20 20 20 20 64 75 70 20 30 3d 20 49 EAT. dup 0= I
8840: 46 20 20 23 2d 35 36 20 74 68 72 6f 77 20 20 54 F #-56 throw T
8850: 48 45 4e 0a 20 20 20 20 31 20 3d 20 49 46 20 20 HEN. 1 = IF
8860: 30 20 73 65 63 72 65 74 2d 6b 65 79 0a 09 2e 22 0 secret-key..."
8870: 20 3d 3d 3d 3d 20 6f 70 65 6e 65 64 3a 20 22 20 ==== opened: "
8880: 64 75 70 20 2e 2e 6e 69 63 6b 20 2e 22 20 20 69 dup ..nick ." i
8890: 6e 20 22 20 2e 74 69 6d 65 20 2e 22 20 3d 3d 3d n " .time ." ===
88a0: 3d 22 20 63 72 0a 20 20 20 20 45 4c 53 45 20 20 =" cr. ELSE
88b0: 2e 22 20 3d 3d 3d 3d 20 6f 70 65 6e 65 64 20 69 ." ==== opened i
88c0: 6e 20 22 20 2e 74 69 6d 65 20 2e 22 20 3d 3d 3d n " .time ." ===
88d0: 3d 22 20 63 72 20 63 68 6f 6f 73 65 2d 6b 65 79 =" cr choose-key
88e0: 20 20 54 48 45 4e 0a 20 20 20 20 3e 72 61 77 2d THEN. >raw-
88f0: 6b 65 79 20 3f 72 73 6b 20 20 20 72 3e 20 6f 70 key ?rsk r> op
8900: 2d 76 65 63 74 6f 72 20 21 20 3b 0a 0a 73 63 6f -vector ! ;..sco
8910: 70 65 3a 20 6e 32 6f 0a 46 6f 72 77 61 72 64 20 pe: n2o.Forward
8920: 68 65 6c 70 0a 7d 73 63 6f 70 65 0a 0a 3a 20 67 help.}scope..: g
8930: 65 74 2d 6d 79 2d 6b 65 79 20 28 20 2d 2d 20 78 et-my-key ( -- x
8940: 74 20 29 0a 20 20 20 20 67 65 6e 2d 6b 65 79 73 t ). gen-keys
8950: 2d 64 69 72 20 20 22 73 65 63 6b 65 79 73 2e 6b -dir "seckeys.k
8960: 32 6f 22 20 2e 6b 65 79 73 2f 20 32 64 75 70 20 2o" .keys/ 2dup
8970: 66 69 6c 65 2d 73 74 61 74 75 73 20 6e 69 70 0a file-status nip.
8980: 20 20 20 20 30 3d 20 49 46 20 20 72 2f 6f 20 6f 0= IF r/o o
8990: 70 65 6e 2d 66 69 6c 65 20 74 68 72 6f 77 20 3e pen-file throw >
89a0: 72 20 72 40 20 66 69 6c 65 2d 73 69 7a 65 20 74 r r@ file-size t
89b0: 68 72 6f 77 20 64 30 3d 0a 09 72 3e 20 63 6c 6f hrow d0=..r> clo
89c0: 73 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 20 45 se-file throw E
89d0: 4c 53 45 20 20 74 72 75 65 20 20 54 48 45 4e 0a LSE true THEN.
89e0: 20 20 20 20 49 46 20 20 5b 3a 20 2e 22 20 47 65 IF [: ." Ge
89f0: 6e 65 72 61 74 65 20 61 20 6e 65 77 20 6b 65 79 nerate a new key
8a00: 70 61 69 72 3a 22 20 63 72 0a 09 20 20 67 65 74 pair:" cr.. get
8a10: 2d 6e 69 63 6b 20 64 75 70 20 30 3d 20 23 2d 35 -nick dup 0= #-5
8a20: 36 20 61 6e 64 20 74 68 72 6f 77 20 5c 20 65 6d 6 and throw \ em
8a30: 70 74 79 20 6e 69 63 6b 3a 20 70 72 65 74 65 6e pty nick: preten
8a40: 64 20 74 6f 20 71 75 69 74 0a 09 20 20 6e 65 77 d to quit.. new
8a50: 2d 6b 65 79 20 2e 6b 65 79 73 20 3f 72 73 6b 20 -key .keys ?rsk
8a60: 3b 5d 0a 20 20 20 20 45 4c 53 45 20 20 5b 27 5d ;]. ELSE [']
8a70: 20 67 65 74 2d 73 6b 63 20 20 54 48 45 4e 20 3b get-skc THEN ;
8a80: 0a 0a 3a 20 2e 6b 65 79 69 6e 66 6f 20 28 20 2d ..: .keyinfo ( -
8a90: 2d 20 29 0a 20 20 20 20 3c 77 61 72 6e 3e 20 2e - ). <warn> .
8aa0: 22 20 3d 3d 3d 3d 20 4e 6f 20 6b 65 79 20 6f 70 " ==== No key op
8ab0: 65 6e 65 64 20 3d 3d 3d 3d 22 20 63 72 0a 20 20 ened ====" cr.
8ac0: 20 20 3c 69 6e 66 6f 3e 20 2e 22 20 67 65 6e 65 <info> ." gene
8ad0: 72 61 74 65 20 61 20 6e 65 77 20 6f 6e 65 20 77 rate a new one w
8ae0: 69 74 68 20 27 6b 65 79 67 65 6e 27 22 20 63 72 ith 'keygen'" cr
8af0: 20 3c 64 65 66 61 75 6c 74 3e 20 3b 0a 0a 3a 20 <default> ;..:
8b00: 67 65 74 2d 6d 65 20 28 20 2d 2d 20 29 0a 20 20 get-me ( -- ).
8b10: 20 20 67 65 74 2d 6d 79 2d 6b 65 79 20 63 61 74 get-my-key cat
8b20: 63 68 20 64 75 70 20 23 2d 35 36 20 3d 20 49 46 ch dup #-56 = IF
8b30: 20 64 72 6f 70 20 2e 6b 65 79 69 6e 66 6f 20 45 drop .keyinfo E
8b40: 4c 53 45 20 74 68 72 6f 77 20 54 48 45 4e 20 3b LSE throw THEN ;
8b50: 0a 0a 3a 20 3f 67 65 74 2d 6d 65 20 28 20 2d 2d ..: ?get-me ( --
8b60: 20 29 0a 20 20 20 20 5c 47 20 74 68 69 73 20 76 ). \G this v
8b70: 65 72 73 69 6f 6e 20 6f 66 20 67 65 74 2d 6d 65 ersion of get-me
8b80: 20 66 61 69 6c 73 20 68 61 72 64 20 69 66 20 6e fails hard if n
8b90: 6f 20 6b 65 79 20 69 73 20 6f 70 65 6e 65 64 0a o key is opened.
8ba0: 20 20 20 20 67 65 74 2d 6d 79 2d 6b 65 79 20 63 get-my-key c
8bb0: 61 74 63 68 20 23 2d 35 36 20 3d 20 49 46 0a 09 atch #-56 = IF..
8bc0: 2e 6b 65 79 69 6e 66 6f 20 74 72 75 65 20 21 21 .keyinfo true !!
8bd0: 6e 6f 2d 6b 65 79 2d 6f 70 65 6e 21 21 0a 20 20 no-key-open!!.
8be0: 20 20 54 48 45 4e 20 3b 0a 0a 30 20 5b 49 46 5d THEN ;..0 [IF]
8bf0: 0a 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 .Local Variables
8c00: 3a 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c 2d 77 6f :.forth-local-wo
8c10: 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 20 20 20 rds:. (.
8c20: 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b 6e 65 74 (("net2o:" "+net
8c30: 32 6f 3a 22 29 20 64 65 66 69 6e 69 74 69 6f 6e 2o:") definition
8c40: 2d 73 74 61 72 74 65 72 20 28 66 6f 6e 74 2d 6c -starter (font-l
8c50: 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 ock-keyword-face
8c60: 20 2e 20 31 29 0a 20 20 20 20 20 20 22 5b 20 5c . 1). "[ \
8c70: 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 20 28 66 6f t\n]" t name (fo
8c80: 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f 6e nt-lock-function
8c90: 2d 6e 61 6d 65 2d 66 61 63 65 20 2e 20 33 29 29 -name-face . 3))
8ca0: 0a 20 20 20 20 20 28 28 22 64 65 62 75 67 3a 22 . (("debug:"
8cb0: 20 22 66 69 65 6c 64 3a 22 20 22 32 66 69 65 6c "field:" "2fiel
8cc0: 64 3a 22 20 22 73 66 66 69 65 6c 64 3a 22 20 22 d:" "sffield:" "
8cd0: 64 66 66 69 65 6c 64 3a 22 20 22 36 34 66 69 65 dffield:" "64fie
8ce0: 6c 64 3a 22 20 22 75 76 61 72 22 20 22 75 76 61 ld:" "uvar" "uva
8cf0: 6c 75 65 22 29 20 6e 6f 6e 2d 69 6d 6d 65 64 69 lue") non-immedi
8d00: 61 74 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 ate (font-lock-t
8d10: 79 70 65 2d 66 61 63 65 20 2e 20 32 29 0a 20 20 ype-face . 2).
8d20: 20 20 20 20 22 5b 20 5c 74 5c 6e 5d 22 20 74 20 "[ \t\n]" t
8d30: 6e 61 6d 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d name (font-lock-
8d40: 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 variable-name-fa
8d50: 63 65 20 2e 20 33 29 29 0a 20 20 20 20 20 28 22 ce . 3)). ("
8d60: 5b 61 2d 7a 30 2d 39 5d 2b 28 22 20 69 6d 6d 65 [a-z0-9]+(" imme
8d70: 64 69 61 74 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b diate (font-lock
8d80: 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 2e 20 -comment-face .
8d90: 31 29 0a 20 20 20 20 20 20 22 29 22 20 6e 69 6c 1). ")" nil
8da0: 20 63 6f 6d 6d 65 6e 74 20 28 66 6f 6e 74 2d 6c comment (font-l
8db0: 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 ock-comment-face
8dc0: 20 2e 20 31 29 29 0a 20 20 20 20 29 0a 66 6f 72 . 1)). ).for
8dd0: 74 68 2d 6c 6f 63 61 6c 2d 69 6e 64 65 6e 74 2d th-local-indent-
8de0: 77 6f 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 20 words:. (.
8df0: 20 20 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b 6e (("net2o:" "+n
8e00: 65 74 32 6f 3a 22 29 20 28 30 20 2e 20 32 29 20 et2o:") (0 . 2)
8e10: 28 30 20 2e 20 32 29 20 6e 6f 6e 2d 69 6d 6d 65 (0 . 2) non-imme
8e20: 64 69 61 74 65 29 0a 20 20 20 20 20 28 28 22 5b diate). (("[
8e30: 3a 22 20 22 6b 65 79 3a 63 6f 64 65 22 29 20 28 :" "key:code") (
8e40: 30 20 2e 20 31 29 20 28 30 20 2e 20 31 29 20 69 0 . 1) (0 . 1) i
8e50: 6d 6d 65 64 69 61 74 65 29 0a 20 20 20 20 20 28 mmediate). (
8e60: 28 22 3b 5d 22 20 22 65 6e 64 3a 6b 65 79 22 29 (";]" "end:key")
8e70: 20 28 2d 31 20 2e 20 30 29 20 28 30 20 2e 20 2d (-1 . 0) (0 . -
8e80: 31 29 20 69 6d 6d 65 64 69 61 74 65 29 0a 20 20 1) immediate).
8e90: 20 20 29 0a 45 6e 64 3a 0a 5b 54 48 45 4e 5d ).End:.[THEN]