Hex Artifact Content
Not logged in

Artifact 5275beae47dbd02186b2cb1bf1fff18eace5e708:


0000: 5c 20 6e 65 74 32 6f 20 6b 65 79 20 73 74 6f 72  \ net2o key stor
0010: 61 67 65 0a 0a 5c 20 43 6f 70 79 72 69 67 68 74  age..\ Copyright
0020: 20 28 43 29 20 32 30 31 30 2d 32 30 31 35 20 20   (C) 2010-2015  
0030: 20 42 65 72 6e 64 20 50 61 79 73 61 6e 0a 0a 5c   Bernd Paysan..\
0040: 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73   This program is
0050: 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3a 20   free software: 
0060: 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69  you can redistri
0070: 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d  bute it and/or m
0080: 6f 64 69 66 79 0a 5c 20 69 74 20 75 6e 64 65 72  odify.\ it under
0090: 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68   the terms of th
00a0: 65 20 47 4e 55 20 41 66 66 65 72 6f 20 47 65 6e  e GNU Affero Gen
00b0: 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65  eral Public Lice
00c0: 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64  nse as published
00d0: 20 62 79 0a 5c 20 74 68 65 20 46 72 65 65 20 53   by.\ the Free S
00e0: 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69  oftware Foundati
00f0: 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69  on, either versi
0100: 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65  on 3 of the Lice
0110: 6e 73 65 2c 20 6f 72 0a 5c 20 28 61 74 20 79 6f  nse, or.\ (at yo
0120: 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c  ur option) any l
0130: 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 5c  ater version...\
0140: 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73   This program is
0150: 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20   distributed in 
0160: 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74  the hope that it
0170: 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c   will be useful,
0180: 0a 5c 20 62 75 74 20 57 49 54 48 4f 55 54 20 41  .\ but WITHOUT A
0190: 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74  NY WARRANTY; wit
01a0: 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d  hout even the im
01b0: 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f  plied warranty o
01c0: 66 0a 5c 20 4d 45 52 43 48 41 4e 54 41 42 49 4c  f.\ MERCHANTABIL
01d0: 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46  ITY or FITNESS F
01e0: 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20  OR A PARTICULAR 
01f0: 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68  PURPOSE.  See th
0200: 65 0a 5c 20 47 4e 55 20 41 66 66 65 72 6f 20 47  e.\ GNU Affero G
0210: 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69  eneral Public Li
0220: 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64  cense for more d
0230: 65 74 61 69 6c 73 2e 0a 0a 5c 20 59 6f 75 20 73  etails...\ You s
0240: 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69  hould have recei
0250: 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68  ved a copy of th
0260: 65 20 47 4e 55 20 41 66 66 65 72 6f 20 47 65 6e  e GNU Affero Gen
0270: 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65  eral Public Lice
0280: 6e 73 65 0a 5c 20 61 6c 6f 6e 67 20 77 69 74 68  nse.\ along with
0290: 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20   this program.  
02a0: 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74  If not, see <htt
02b0: 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f  p://www.gnu.org/
02c0: 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 72 65 71  licenses/>...req
02d0: 75 69 72 65 20 6d 6b 64 69 72 2e 66 73 0a 0a 5c  uire mkdir.fs..\
02e0: 20 61 63 63 65 70 74 20 66 6f 72 20 70 61 73 73   accept for pass
02f0: 77 6f 72 64 20 65 6e 74 72 79 0a 0a 32 20 56 61  word entry..2 Va
0300: 6c 75 65 20 70 77 2d 6c 65 76 65 6c 23 20 5c 20  lue pw-level# \ 
0310: 70 77 2d 6c 65 76 65 6c 23 20 30 20 69 73 20 6c  pw-level# 0 is l
0320: 6f 77 65 73 74 0a 0a 5b 49 46 44 45 46 5d 20 61  owest..[IFDEF] a
0330: 6e 64 72 6f 69 64 78 78 78 20 27 2a 27 20 5b 45  ndroidxxx '*' [E
0340: 4c 53 45 5d 20 27 e2 ac a4 27 20 5b 54 48 45 4e  LSE] '...' [THEN
0350: 5d 20 43 6f 6e 73 74 61 6e 74 20 70 77 2a 0a 0a  ] Constant pw*..
0360: 78 63 2d 76 65 63 74 6f 72 20 75 70 40 20 2d 20  xc-vector up@ - 
0370: 63 6c 61 73 73 2d 6f 20 21 0a 0a 30 20 63 65 6c  class-o !..0 cel
0380: 6c 20 75 76 61 72 20 65 73 63 2d 73 74 61 74 65  l uvar esc-state
0390: 20 64 72 6f 70 0a 0a 44 65 66 65 72 20 6f 6c 64   drop..Defer old
03a0: 2d 65 6d 69 74 20 20 77 68 61 74 27 73 20 65 6d  -emit  what's em
03b0: 69 74 20 69 73 20 6f 6c 64 2d 65 6d 69 74 0a 0a  it is old-emit..
03c0: 68 65 72 65 0a 78 63 2d 76 65 63 74 6f 72 20 40  here.xc-vector @
03d0: 20 63 65 6c 6c 2d 20 64 75 70 20 40 20 74 75 63   cell- dup @ tuc
03e0: 6b 20 2d 20 68 65 72 65 20 73 77 61 70 20 64 75  k - here swap du
03f0: 70 20 61 6c 6c 6f 74 20 6d 6f 76 65 0a 2c 20 68  p allot move., h
0400: 65 72 65 20 30 20 2c 20 43 6f 6e 73 74 61 6e 74  ere 0 , Constant
0410: 20 75 74 66 2d 38 2a 0a 0a 3a 20 2a 2d 77 69 64   utf-8*..: *-wid
0420: 74 68 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6e  th ( addr u -- n
0430: 20 29 0a 20 20 20 20 30 20 2d 72 6f 74 20 62 6f   ).    0 -rot bo
0440: 75 6e 64 73 20 3f 44 4f 20 20 49 20 63 40 20 24  unds ?DO  I c@ $
0450: 43 30 20 24 38 30 20 77 69 74 68 69 6e 20 2d 20  C0 $80 within - 
0460: 20 4c 4f 4f 50 20 3b 0a 0a 78 63 2d 76 65 63 74   LOOP ;..xc-vect
0470: 6f 72 20 40 20 20 75 74 66 2d 38 2a 20 78 63 2d  or @  utf-8* xc-
0480: 76 65 63 74 6f 72 20 21 20 27 20 2a 2d 77 69 64  vector ! ' *-wid
0490: 74 68 20 69 73 20 78 2d 77 69 64 74 68 20 20 78  th is x-width  x
04a0: 63 2d 76 65 63 74 6f 72 20 21 0a 0a 3a 20 65 6d  c-vector !..: em
04b0: 69 74 2d 70 77 2a 20 28 20 6e 20 2d 2d 20 29 0a  it-pw* ( n -- ).
04c0: 20 20 20 20 64 75 70 20 23 65 73 63 20 3d 20 49      dup #esc = I
04d0: 46 20 20 65 73 63 2d 73 74 61 74 65 20 6f 6e 20  F  esc-state on 
04e0: 20 54 48 45 4e 0a 20 20 20 20 64 75 70 20 62 6c   THEN.    dup bl
04f0: 20 3c 20 49 46 20 20 6f 6c 64 2d 65 6d 69 74 20   < IF  old-emit 
0500: 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20   EXIT  THEN.    
0510: 65 73 63 2d 73 74 61 74 65 20 40 20 49 46 20 20  esc-state @ IF  
0520: 64 75 70 20 6f 6c 64 2d 65 6d 69 74 0a 20 20 20  dup old-emit.   
0530: 20 45 4c 53 45 20 20 64 75 70 20 24 43 30 20 24   ELSE  dup $C0 $
0540: 38 30 20 77 69 74 68 69 6e 20 49 46 0a 09 20 20  80 within IF..  
0550: 20 20 5b 20 70 77 2a 20 27 20 78 65 6d 69 74 20    [ pw* ' xemit 
0560: 24 74 6d 70 0a 09 20 20 20 20 62 6f 75 6e 64 73  $tmp..    bounds
0570: 20 5b 3f 44 4f 5d 20 5b 49 5d 20 63 40 20 5d 4c   [?DO] [I] c@ ]L
0580: 20 6f 6c 64 2d 65 6d 69 74 20 5b 20 5b 4c 4f 4f   old-emit [ [LOO
0590: 50 5d 20 5d 0a 09 54 48 45 4e 0a 20 20 20 20 54  P] ]..THEN.    T
05a0: 48 45 4e 0a 20 20 20 20 74 6f 75 70 70 65 72 20  HEN.    toupper 
05b0: 27 41 27 20 27 5b 27 20 77 69 74 68 69 6e 20 49  'A' '[' within I
05c0: 46 20 20 65 73 63 2d 73 74 61 74 65 20 6f 66 66  F  esc-state off
05d0: 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 74 79 70 65    THEN ;..: type
05e0: 2d 70 77 2a 20 28 20 61 64 64 72 20 75 20 2d 2d  -pw* ( addr u --
05f0: 20 29 20 20 32 64 75 70 20 62 6c 20 73 6b 69 70   )  2dup bl skip
0600: 20 6e 69 70 20 30 3d 0a 20 20 20 20 49 46 20 20   nip 0=.    IF  
0610: 20 20 62 6f 75 6e 64 73 20 55 2b 44 4f 20 20 62    bounds U+DO  b
0620: 6c 20 6f 6c 64 2d 65 6d 69 74 20 20 20 20 4c 4f  l old-emit    LO
0630: 4f 50 0a 20 20 20 20 45 4c 53 45 20 20 62 6f 75  OP.    ELSE  bou
0640: 6e 64 73 20 55 2b 44 4f 20 20 49 20 63 40 20 65  nds U+DO  I c@ e
0650: 6d 69 74 2d 70 77 2a 20 20 4c 4f 4f 50 20 20 54  mit-pw*  LOOP  T
0660: 48 45 4e 20 3b 0a 0a 3a 20 61 63 63 65 70 74 2a  HEN ;..: accept*
0670: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 75 27 20   ( addr u -- u' 
0680: 29 0a 20 20 20 20 5c 47 20 61 63 63 65 70 74 2d  ).    \G accept-
0690: 6c 69 6b 65 20 69 6e 70 75 74 2c 20 62 75 74 20  like input, but 
06a0: 74 79 70 65 73 20 2a 20 69 6e 73 74 65 61 64 20  types * instead 
06b0: 6f 66 20 74 68 65 20 63 68 61 72 61 63 74 65 72  of the character
06c0: 0a 20 20 20 20 5c 47 20 64 6f 6e 27 74 20 73 61  .    \G don't sa
06d0: 76 65 20 69 6e 74 6f 20 68 69 73 74 6f 72 79 0a  ve into history.
06e0: 20 20 20 20 68 69 73 74 6f 72 79 20 3e 72 20 20      history >r  
06f0: 77 68 61 74 27 73 20 74 79 70 65 20 3e 72 20 20  what's type >r  
0700: 77 68 61 74 27 73 20 65 6d 69 74 20 69 73 20 6f  what's emit is o
0710: 6c 64 2d 65 6d 69 74 0a 20 20 20 20 75 74 66 2d  ld-emit.    utf-
0720: 38 2a 20 78 63 2d 76 65 63 74 6f 72 20 21 40 20  8* xc-vector !@ 
0730: 3e 72 20 20 5b 27 5d 20 74 79 70 65 2d 70 77 2a  >r  ['] type-pw*
0740: 20 69 73 20 74 79 70 65 20 20 5b 27 5d 20 65 6d   is type  ['] em
0750: 69 74 2d 70 77 2a 20 69 73 20 65 6d 69 74 0a 20  it-pw* is emit. 
0760: 20 20 20 30 20 74 6f 20 68 69 73 74 6f 72 79 0a     0 to history.
0770: 20 20 20 20 5b 27 5d 20 61 63 63 65 70 74 20 63      ['] accept c
0780: 61 74 63 68 0a 20 20 20 20 72 3e 20 78 63 2d 76  atch.    r> xc-v
0790: 65 63 74 6f 72 20 21 20 20 77 68 61 74 27 73 20  ector !  what's 
07a0: 6f 6c 64 2d 65 6d 69 74 20 69 73 20 65 6d 69 74  old-emit is emit
07b0: 20 20 72 3e 20 69 73 20 74 79 70 65 20 20 72 3e    r> is type  r>
07c0: 20 74 6f 20 68 69 73 74 6f 72 79 0a 20 20 20 20   to history.    
07d0: 74 68 72 6f 77 20 2d 31 20 30 20 61 74 2d 64 65  throw -1 0 at-de
07e0: 6c 74 61 78 79 20 73 70 61 63 65 20 3b 0a 0a 5c  ltaxy space ;..\
07f0: 20 4b 65 79 73 20 61 72 65 20 70 61 73 73 77 6f   Keys are passwo
0800: 72 64 73 20 61 6e 64 20 70 72 69 76 61 74 65 20  rds and private 
0810: 6b 65 79 73 20 28 73 65 6c 66 2d 6b 65 79 65 64  keys (self-keyed
0820: 2c 20 69 2e 65 2e 20 70 72 69 76 61 74 65 2a 70  , i.e. private*p
0830: 75 62 6c 69 63 20 6b 65 79 29 0a 0a 63 6d 64 2d  ublic key)..cmd-
0840: 62 75 66 30 20 75 63 6c 61 73 73 20 63 6d 64 62  buf0 uclass cmdb
0850: 75 66 2d 6f 0a 20 20 20 20 6d 61 78 64 61 74 61  uf-o.    maxdata
0860: 20 2d 0a 20 20 20 20 6b 65 79 2d 73 61 6c 74 23   -.    key-salt#
0870: 20 75 76 61 72 20 6b 65 79 70 61 63 6b 0a 20 20   uvar keypack.  
0880: 20 20 6b 65 79 70 61 63 6b 23 20 20 75 76 61 72    keypack#  uvar
0890: 20 6b 65 79 70 61 63 6b 2d 62 75 66 0a 20 20 20   keypack-buf.   
08a0: 20 6b 65 79 2d 63 6b 73 75 6d 23 20 75 76 61 72   key-cksum# uvar
08b0: 20 6b 65 79 70 61 63 6b 2d 63 68 6b 73 75 6d 0a   keypack-chksum.
08c0: 65 6e 64 2d 63 6c 61 73 73 20 63 6d 64 2d 6b 65  end-class cmd-ke
08d0: 79 62 75 66 2d 63 0a 0a 63 6d 64 2d 6b 65 79 62  ybuf-c..cmd-keyb
08e0: 75 66 2d 63 20 6e 65 77 20 63 6f 64 65 2d 6b 65  uf-c new code-ke
08f0: 79 5e 20 21 0a 27 20 63 6f 64 65 2d 6b 65 79 5e  y^ !.' code-key^
0900: 20 63 6d 64 62 75 66 3a 20 63 6f 64 65 2d 6b 65   cmdbuf: code-ke
0910: 79 0a 0a 63 6f 64 65 2d 6b 65 79 0a 63 6d 64 30  y..code-key.cmd0
0920: 6c 6f 63 6b 20 30 20 70 74 68 72 65 61 64 5f 6d  lock 0 pthread_m
0930: 75 74 65 78 5f 69 6e 69 74 20 64 72 6f 70 0a 0a  utex_init drop..
0940: 3a 6e 6f 6e 61 6d 65 20 28 20 2d 2d 20 61 64 64  :noname ( -- add
0950: 72 20 75 20 29 20 6b 65 79 70 61 63 6b 2d 62 75  r u ) keypack-bu
0960: 66 20 63 6d 64 62 75 66 23 20 40 20 3b 20 74 6f  f cmdbuf# @ ; to
0970: 20 63 6d 64 62 75 66 24 0a 3a 6e 6f 6e 61 6d 65   cmdbuf$.:noname
0980: 20 28 20 2d 2d 20 6e 20 29 20 20 6b 65 79 70 61   ( -- n )  keypa
0990: 63 6b 23 20 63 6d 64 62 75 66 23 20 40 20 2d 20  ck# cmdbuf# @ - 
09a0: 3b 20 74 6f 20 6d 61 78 73 74 72 69 6e 67 0a 0a  ; to maxstring..
09b0: 63 6f 64 65 30 2d 62 75 66 0a 0a 3a 6e 6f 6e 61  code0-buf..:nona
09c0: 6d 65 20 64 65 66 65 72 73 20 61 6c 6c 6f 63 2d  me defers alloc-
09d0: 63 6f 64 65 2d 62 75 66 73 0a 20 20 20 20 63 6d  code-bufs.    cm
09e0: 64 2d 6b 65 79 62 75 66 2d 63 20 6e 65 77 20 63  d-keybuf-c new c
09f0: 6f 64 65 2d 6b 65 79 5e 20 21 20 3b 20 69 73 20  ode-key^ ! ; is 
0a00: 61 6c 6c 6f 63 2d 63 6f 64 65 2d 62 75 66 73 0a  alloc-code-bufs.
0a10: 3a 6e 6f 6e 61 6d 65 20 64 65 66 65 72 73 20 66  :noname defers f
0a20: 72 65 65 2d 63 6f 64 65 2d 62 75 66 73 0a 20 20  ree-code-bufs.  
0a30: 20 20 63 6f 64 65 2d 6b 65 79 5e 20 40 20 2e 64    code-key^ @ .d
0a40: 69 73 70 6f 73 65 20 3b 20 69 73 20 66 72 65 65  ispose ; is free
0a50: 2d 63 6f 64 65 2d 62 75 66 73 0a 0a 5c 20 68 61  -code-bufs..\ ha
0a60: 73 68 65 64 20 6b 65 79 20 64 61 74 61 20 62 61  shed key data ba
0a70: 73 65 0a 0a 55 73 65 72 20 3e 73 74 6f 72 65 6b  se..User >storek
0a80: 65 79 0a 0a 63 6d 64 2d 63 6c 61 73 73 20 63 6c  ey..cmd-class cl
0a90: 61 73 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b  ass.    field: k
0aa0: 65 2d 73 6b 20 20 20 20 20 20 20 5c 20 73 65 63  e-sk       \ sec
0ab0: 72 65 74 20 6b 65 79 0a 20 20 20 20 66 69 65 6c  ret key.    fiel
0ac0: 64 3a 20 6b 65 2d 70 6b 20 20 20 20 20 20 20 5c  d: ke-pk       \
0ad0: 20 70 75 62 6c 69 63 20 6b 65 79 0a 20 20 20 20   public key.    
0ae0: 66 69 65 6c 64 3a 20 6b 65 2d 74 79 70 65 20 20  field: ke-type  
0af0: 20 20 20 5c 20 6b 65 79 20 74 79 70 65 0a 20 20     \ key type.  
0b00: 20 20 66 69 65 6c 64 3a 20 6b 65 2d 6e 69 63 6b    field: ke-nick
0b10: 20 20 20 20 20 5c 20 6b 65 79 20 6e 69 63 6b 0a       \ key nick.
0b20: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 6e 69      field: ke-ni
0b30: 63 6b 23 20 20 20 20 5c 20 74 6f 20 61 76 6f 69  ck#    \ to avoi
0b40: 64 20 63 6f 6c 69 73 73 69 6f 6e 73 2c 20 61 64  d colissions, ad
0b50: 64 20 61 20 6e 75 6d 62 65 72 20 68 65 72 65 0a  d a number here.
0b60: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 70 73      field: ke-ps
0b70: 6b 20 20 20 20 20 20 5c 20 70 72 65 73 68 61 72  k      \ preshar
0b80: 65 64 20 6b 65 79 20 66 6f 72 20 73 74 61 74 65  ed key for state
0b90: 6c 65 73 73 20 63 6f 6d 6d 75 6e 69 63 61 74 69  less communicati
0ba0: 6f 6e 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65  on.    field: ke
0bb0: 2d 70 72 6f 66 20 20 20 20 20 5c 20 70 72 6f 66  -prof     \ prof
0bc0: 69 6c 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 66  ile object.    f
0bd0: 69 65 6c 64 3a 20 6b 65 2d 73 65 6c 66 73 69 67  ield: ke-selfsig
0be0: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73  .    field: ke-s
0bf0: 69 67 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b  igs.    field: k
0c00: 65 2d 69 6d 70 6f 72 74 20 20 20 5c 20 74 79 70  e-import   \ typ
0c10: 65 20 6f 66 20 6b 65 79 20 69 6d 70 6f 72 74 0a  e of key import.
0c20: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73 74      field: ke-st
0c30: 6f 72 65 6b 65 79 20 5c 20 75 73 65 64 20 74 6f  orekey \ used to
0c40: 20 65 6e 63 72 79 70 74 20 6f 6e 20 73 74 6f 72   encrypt on stor
0c50: 61 67 65 0a 20 20 20 20 36 34 66 69 65 6c 64 3a  age.    64field:
0c60: 20 6b 65 2d 6f 66 66 73 65 74 20 5c 20 6f 66 66   ke-offset \ off
0c70: 73 65 74 20 69 6e 20 6b 65 79 20 66 69 6c 65 0a  set in key file.
0c80: 20 20 20 20 30 20 2b 66 69 65 6c 64 20 6b 65 2d      0 +field ke-
0c90: 65 6e 64 0a 65 6e 64 2d 63 6c 61 73 73 20 6b 65  end.end-class ke
0ca0: 79 2d 65 6e 74 72 79 0a 0a 3a 20 66 72 65 65 2d  y-entry..: free-
0cb0: 6b 65 79 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 6f  key ( o:key -- o
0cc0: 3a 6b 65 79 20 29 0a 20 20 20 20 5c 67 20 66 72  :key ).    \g fr
0cd0: 65 65 20 61 6c 6c 20 70 61 72 74 73 20 6f 66 20  ee all parts of 
0ce0: 74 68 65 20 73 75 62 6b 65 79 0a 20 20 20 20 6b  the subkey.    k
0cf0: 65 2d 73 6b 20 73 65 63 2d 6f 66 66 0a 20 20 20  e-sk sec-off.   
0d00: 20 6b 65 2d 70 6b 20 24 6f 66 66 0a 20 20 20 20   ke-pk $off.    
0d10: 6b 65 2d 6e 69 63 6b 20 24 6f 66 66 0a 20 20 20  ke-nick $off.   
0d20: 20 6b 65 2d 70 73 6b 20 73 65 63 2d 6f 66 66 0a   ke-psk sec-off.
0d30: 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24      ke-selfsig $
0d40: 6f 66 66 0a 20 20 20 20 6b 65 2d 73 69 67 73 20  off.    ke-sigs 
0d50: 24 5b 5d 6f 66 66 20 3b 0a 0a 56 61 72 69 61 62  $[]off ;..Variab
0d60: 6c 65 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62  le key-entry-tab
0d70: 6c 65 0a 0a 30 0a 65 6e 75 6d 20 6b 65 79 23 61  le..0.enum key#a
0d80: 6e 6f 6e 0a 65 6e 75 6d 20 6b 65 79 23 75 73 65  non.enum key#use
0d90: 72 0a 65 6e 75 6d 20 6b 65 79 23 67 72 6f 75 70  r.enum key#group
0da0: 0a 64 72 6f 70 0a 0a 30 0a 65 6e 75 6d 20 69 6d  .drop..0.enum im
0db0: 70 6f 72 74 23 73 65 6c 66 20 20 20 20 20 20 5c  port#self      \
0dc0: 20 70 72 69 76 61 74 65 20 6b 65 79 0a 65 6e 75   private key.enu
0dd0: 6d 20 69 6d 70 6f 72 74 23 6d 61 6e 75 61 6c 20  m import#manual 
0de0: 20 20 20 5c 20 6d 61 6e 75 61 6c 20 69 6d 70 6f     \ manual impo
0df0: 72 74 0a 65 6e 75 6d 20 69 6d 70 6f 72 74 23 73  rt.enum import#s
0e00: 63 61 6e 20 20 20 20 20 20 5c 20 73 63 61 6e 20  can      \ scan 
0e10: 69 6d 70 6f 72 74 0a 65 6e 75 6d 20 69 6d 70 6f  import.enum impo
0e20: 72 74 23 63 68 61 74 20 20 20 20 20 20 5c 20 63  rt#chat      \ c
0e30: 68 61 74 20 69 6d 70 6f 72 74 0a 65 6e 75 6d 20  hat import.enum 
0e40: 69 6d 70 6f 72 74 23 64 68 74 20 20 20 20 20 20  import#dht      
0e50: 20 5c 20 64 68 74 20 69 6d 70 6f 72 74 0a 65 6e   \ dht import.en
0e60: 75 6d 20 69 6d 70 6f 72 74 23 69 6e 76 69 74 65  um import#invite
0e70: 64 20 20 20 5c 20 69 6e 76 69 74 61 74 69 6f 6e  d   \ invitation
0e80: 20 69 6d 70 6f 72 74 0a 65 6e 75 6d 20 69 6d 70   import.enum imp
0e90: 6f 72 74 23 75 6e 74 72 75 73 74 65 64 20 5c 20  ort#untrusted \ 
0ea0: 6d 75 73 74 20 62 65 20 6c 61 73 74 0a 64 72 6f  must be last.dro
0eb0: 70 0a 0a 56 61 72 69 61 62 6c 65 20 69 6d 70 6f  p..Variable impo
0ec0: 72 74 2d 74 79 70 65 20 20 69 6d 70 6f 72 74 23  rt-type  import#
0ed0: 75 6e 74 72 75 73 74 65 64 20 69 6d 70 6f 72 74  untrusted import
0ee0: 2d 74 79 70 65 20 21 0a 0a 43 72 65 61 74 65 20  -type !..Create 
0ef0: 3e 69 6d 2d 63 6f 6c 6f 72 20 20 24 42 36 30 20  >im-color  $B60 
0f00: 2c 20 24 44 36 30 20 2c 20 24 39 36 30 20 2c 20  , $D60 , $960 , 
0f10: 24 43 36 30 20 2c 20 24 41 36 30 20 2c 20 24 38  $C60 , $A60 , $8
0f20: 42 31 20 2c 20 24 45 36 30 20 2c 0a 44 4f 45 53  B1 , $E60 ,.DOES
0f30: 3e 20 73 77 61 70 20 63 65 6c 6c 73 20 2b 20 40  > swap cells + @
0f40: 20 61 74 74 72 21 20 3b 0a 0a 30 20 56 61 6c 75   attr! ;..0 Valu
0f50: 65 20 73 61 6d 70 6c 65 2d 6b 65 79 0a 0a 56 61  e sample-key..Va
0f60: 72 69 61 62 6c 65 20 6b 65 79 2d 74 61 62 6c 65  riable key-table
0f70: 20 5c 20 6b 65 79 20 68 61 73 68 20 74 61 62 6c   \ key hash tabl
0f80: 65 0a 56 61 72 69 61 62 6c 65 20 6e 69 63 6b 2d  e.Variable nick-
0f90: 74 61 62 6c 65 20 5c 20 6e 69 63 6b 20 68 61 73  table \ nick has
0fa0: 68 20 74 61 62 6c 65 0a 0a 36 34 56 61 72 69 61  h table..64Varia
0fb0: 62 6c 65 20 6b 65 79 2d 72 65 61 64 2d 6f 66 66  ble key-read-off
0fc0: 73 65 74 0a 0a 3a 20 63 75 72 72 65 6e 74 2d 6b  set..: current-k
0fd0: 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6f  ey ( addr u -- o
0fe0: 20 29 0a 20 20 20 20 32 64 75 70 20 6b 65 79 7c   ).    2dup key|
0ff0: 20 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 64 72   key-table #@ dr
1000: 6f 70 0a 20 20 20 20 64 75 70 20 30 3d 20 49 46  op.    dup 0= IF
1010: 20 20 64 72 6f 70 20 2e 22 20 75 6e 6b 6e 6f 77    drop ." unknow
1020: 6e 20 6b 65 79 3a 20 22 20 38 35 74 79 70 65 20  n key: " 85type 
1030: 63 72 20 20 30 20 45 58 49 54 20 20 54 48 45 4e  cr  0 EXIT  THEN
1040: 0a 20 20 20 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65  .    cell+ >o ke
1050: 2d 70 6b 20 24 21 20 6f 20 6f 3e 20 3b 0a 0a 56  -pk $! o o> ;..V
1060: 61 72 69 61 62 6c 65 20 73 69 6d 2d 6e 69 63 6b  ariable sim-nick
1070: 21 0a 0a 3a 20 6e 69 63 6b 21 20 28 20 2d 2d 20  !..: nick! ( -- 
1080: 29 20 73 69 6d 2d 6e 69 63 6b 21 20 40 20 3f 45  ) sim-nick! @ ?E
1090: 58 49 54 20 20 6f 20 7b 20 77 5e 20 6f 70 74 72  XIT  o { w^ optr
10a0: 20 7d 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20 24   }.    ke-nick $
10b0: 40 20 6e 69 63 6b 2d 74 61 62 6c 65 20 23 40 20  @ nick-table #@ 
10c0: 32 64 75 70 20 64 30 3d 20 49 46 0a 09 32 64 72  2dup d0= IF..2dr
10d0: 6f 70 20 20 6f 70 74 72 20 63 65 6c 6c 20 6b 65  op  optr cell ke
10e0: 2d 6e 69 63 6b 20 24 40 20 6e 69 63 6b 2d 74 61  -nick $@ nick-ta
10f0: 62 6c 65 20 23 21 20 30 0a 20 20 20 20 45 4c 53  ble #! 0.    ELS
1100: 45 0a 09 6c 61 73 74 23 20 63 65 6c 6c 2b 20 24  E..last# cell+ $
1110: 40 6c 65 6e 20 63 65 6c 6c 2f 0a 09 6f 70 74 72  @len cell/..optr
1120: 20 63 65 6c 6c 20 6c 61 73 74 23 20 63 65 6c 6c   cell last# cell
1130: 2b 20 24 2b 21 0a 20 20 20 20 54 48 45 4e 20 20  + $+!.    THEN  
1140: 6b 65 2d 6e 69 63 6b 23 20 21 20 3b 0a 0a 3a 20  ke-nick# ! ;..: 
1150: 23 2e 6e 69 63 6b 20 28 20 68 61 73 68 20 2d 2d  #.nick ( hash --
1160: 20 29 0a 20 20 20 20 64 75 70 20 24 40 20 74 79   ).    dup $@ ty
1170: 70 65 20 27 23 27 20 65 6d 69 74 20 63 65 6c 6c  pe '#' emit cell
1180: 2b 20 24 40 6c 65 6e 20 63 65 6c 6c 2f 20 2e 20  + $@len cell/ . 
1190: 3b 0a 0a 3a 20 6b 65 79 3a 6e 65 77 20 28 20 61  ;..: key:new ( a
11a0: 64 64 72 20 75 20 2d 2d 20 6f 20 29 0a 20 20 20  ddr u -- o ).   
11b0: 20 5c 47 20 63 72 65 61 74 65 20 6e 65 77 20 6b   \G create new k
11c0: 65 79 2c 20 61 64 64 72 20 75 20 69 73 20 74 68  ey, addr u is th
11d0: 65 20 70 75 62 6c 69 63 20 6b 65 79 0a 20 20 20  e public key.   
11e0: 20 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 0a 20   sample-key >o. 
11f0: 20 20 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62     key-entry-tab
1200: 6c 65 20 40 20 74 6f 6b 65 6e 2d 74 61 62 6c 65  le @ token-table
1210: 20 21 0a 20 20 20 20 6b 65 2d 73 6b 20 6b 65 2d   !.    ke-sk ke-
1220: 65 6e 64 20 6f 76 65 72 20 2d 20 65 72 61 73 65  end over - erase
1230: 20 20 3e 73 74 6f 72 65 6b 65 79 20 40 20 6b 65    >storekey @ ke
1240: 2d 73 74 6f 72 65 6b 65 79 20 21 0a 20 20 20 20  -storekey !.    
1250: 6b 65 79 2d 72 65 61 64 2d 6f 66 66 73 65 74 20  key-read-offset 
1260: 36 34 40 20 6b 65 2d 6f 66 66 73 65 74 20 36 34  64@ ke-offset 64
1270: 21 0a 20 20 20 20 69 6d 70 6f 72 74 2d 74 79 70  !.    import-typ
1280: 65 20 40 20 6b 65 2d 69 6d 70 6f 72 74 20 21 0a  e @ ke-import !.
1290: 20 20 20 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23      keypack-all#
12a0: 20 6e 3e 36 34 20 6b 65 79 2d 72 65 61 64 2d 6f   n>64 key-read-o
12b0: 66 66 73 65 74 20 36 34 2b 21 20 6f 20 63 65 6c  ffset 64+! o cel
12c0: 6c 2d 20 6b 65 2d 65 6e 64 20 6f 76 65 72 20 2d  l- ke-end over -
12d0: 0a 20 20 20 20 32 6f 76 65 72 20 6b 65 79 7c 20  .    2over key| 
12e0: 6b 65 79 2d 74 61 62 6c 65 20 23 21 20 6f 3e 0a  key-table #! o>.
12f0: 20 20 20 20 63 75 72 72 65 6e 74 2d 6b 65 79 20      current-key 
1300: 3b 0a 0a 3a 20 6b 65 79 3f 6e 65 77 20 28 20 61  ;..: key?new ( a
1310: 64 64 72 20 75 20 2d 2d 20 6f 20 29 0a 20 20 20  ddr u -- o ).   
1320: 20 5c 47 20 43 72 65 61 74 65 20 6f 72 20 6c 6f   \G Create or lo
1330: 6f 6b 75 70 20 6e 65 77 20 6b 65 79 0a 20 20 20  okup new key.   
1340: 20 32 64 75 70 20 6b 65 79 7c 20 6b 65 79 2d 74   2dup key| key-t
1350: 61 62 6c 65 20 23 40 20 64 72 6f 70 0a 20 20 20  able #@ drop.   
1360: 20 64 75 70 20 30 3d 20 49 46 20 20 64 72 6f 70   dup 0= IF  drop
1370: 20 6b 65 79 3a 6e 65 77 20 20 45 4c 53 45 20 20   key:new  ELSE  
1380: 6e 69 70 20 6e 69 70 20 63 65 6c 6c 2b 20 20 54  nip nip cell+  T
1390: 48 45 4e 20 3b 0a 0a 5c 20 73 65 61 72 63 68 20  HEN ;..\ search 
13a0: 66 6f 72 20 6b 65 79 73 20 2d 20 6e 6f 74 20 6f  for keys - not o
13b0: 70 74 69 6d 69 7a 65 64 0a 0a 3a 20 23 73 70 6c  ptimized..: #spl
13c0: 69 74 20 28 20 61 64 64 72 20 75 20 2d 2d 20 61  it ( addr u -- a
13d0: 64 64 72 20 75 20 6e 20 29 0a 20 20 20 20 5b 3a  ddr u n ).    [:
13e0: 20 32 64 75 70 20 27 23 27 20 2d 73 63 61 6e 20   2dup '#' -scan 
13f0: 6e 69 70 20 3e 72 0a 20 20 20 20 20 20 72 40 20  nip >r.      r@ 
1400: 30 3d 20 49 46 20 20 72 64 72 6f 70 20 30 20 20  0= IF  rdrop 0  
1410: 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 20  EXIT  THEN.     
1420: 20 30 2e 20 32 6f 76 65 72 20 72 40 20 2f 73 74   0. 2over r@ /st
1430: 72 69 6e 67 20 3e 6e 75 6d 62 65 72 0a 20 20 20  ring >number.   
1440: 20 20 20 30 3d 20 49 46 20 20 6e 69 70 20 64 72     0= IF  nip dr
1450: 6f 70 20 6e 69 70 20 72 3e 20 31 2d 20 73 77 61  op nip r> 1- swa
1460: 70 20 20 45 4c 53 45 0a 09 20 20 72 64 72 6f 70  p  ELSE..  rdrop
1470: 20 64 72 6f 70 20 32 64 72 6f 70 20 30 20 20 20   drop 2drop 0   
1480: 54 48 45 4e 20 3b 5d 20 23 31 30 20 62 61 73 65  THEN ;] #10 base
1490: 2d 65 78 65 63 75 74 65 20 3b 0a 0a 3a 20 6e 69  -execute ;..: ni
14a0: 63 6b 2d 6b 65 79 20 28 20 61 64 64 72 20 75 20  ck-key ( addr u 
14b0: 2d 2d 20 6f 20 2f 20 30 20 29 20 5c 20 73 65 61  -- o / 0 ) \ sea
14c0: 72 63 68 20 66 6f 72 20 6b 65 79 20 6e 69 63 6b  rch for key nick
14d0: 6e 61 6d 65 0a 20 20 20 20 23 73 70 6c 69 74 20  name.    #split 
14e0: 3e 72 20 6e 69 63 6b 2d 74 61 62 6c 65 20 23 40  >r nick-table #@
14f0: 20 32 64 75 70 20 64 30 3d 20 49 46 20 20 72 64   2dup d0= IF  rd
1500: 72 6f 70 20 64 72 6f 70 20 20 45 58 49 54 20 20  rop drop  EXIT  
1510: 54 48 45 4e 0a 20 20 20 20 72 3e 20 63 65 6c 6c  THEN.    r> cell
1520: 73 20 73 61 66 65 2f 73 74 72 69 6e 67 20 30 3d  s safe/string 0=
1530: 20 49 46 20 20 64 72 6f 70 20 30 20 20 45 58 49   IF  drop 0  EXI
1540: 54 20 20 54 48 45 4e 20 20 40 20 3b 0a 0a 3a 20  T  THEN  @ ;..: 
1550: 73 65 63 72 65 74 2d 6b 65 79 73 23 20 28 20 2d  secret-keys# ( -
1560: 2d 20 6e 20 29 0a 20 20 20 20 30 20 6b 65 79 2d  - n ).    0 key-
1570: 74 61 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24  table [: cell+ $
1580: 40 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 20  @ drop cell+ >o 
1590: 6b 65 2d 73 6b 20 40 20 30 3c 3e 20 2d 20 6f 3e  ke-sk @ 0<> - o>
15a0: 20 3b 5d 20 23 6d 61 70 20 3b 0a 3a 20 73 65 63   ;] #map ;.: sec
15b0: 72 65 74 2d 6b 65 79 20 28 20 6e 20 2d 2d 20 6f  ret-key ( n -- o
15c0: 2f 30 20 29 0a 20 20 20 20 30 20 74 75 63 6b 20  /0 ).    0 tuck 
15d0: 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c  key-table [: cel
15e0: 6c 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b  l+ $@ drop cell+
15f0: 20 3e 6f 20 6b 65 2d 73 6b 20 40 20 49 46 0a 09   >o ke-sk @ IF..
1600: 20 20 32 64 75 70 20 3d 20 49 46 20 20 72 6f 74    2dup = IF  rot
1610: 20 64 72 6f 70 20 6f 20 2d 72 6f 74 20 20 54 48   drop o -rot  TH
1620: 45 4e 20 20 31 2b 0a 20 20 20 20 20 20 54 48 45  EN  1+.      THE
1630: 4e 20 20 6f 3e 20 3b 5d 20 23 6d 61 70 20 32 64  N  o> ;] #map 2d
1640: 72 6f 70 20 3b 0a 3a 20 2e 6e 69 63 6b 2d 62 61  rop ;.: .nick-ba
1650: 73 65 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a  se ( o:key -- ).
1660: 20 20 20 20 6b 65 2d 6e 69 63 6b 20 24 2e 20 20      ke-nick $.  
1670: 6b 65 2d 6e 69 63 6b 23 20 40 20 3f 64 75 70 2d  ke-nick# @ ?dup-
1680: 49 46 20 20 27 23 27 20 65 6d 69 74 20 30 20 2e  IF  '#' emit 0 .
1690: 72 20 20 54 48 45 4e 20 3b 0a 3a 20 2e 6e 69 63  r  THEN ;.: .nic
16a0: 6b 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 20 20  k ( o:key -- )  
16b0: 20 6b 65 2d 69 6d 70 6f 72 74 20 40 20 3e 69 6d   ke-import @ >im
16c0: 2d 63 6f 6c 6f 72 20 2e 6e 69 63 6b 2d 62 61 73  -color .nick-bas
16d0: 65 20 3c 64 65 66 61 75 6c 74 3e 20 3b 0a 0a 3a  e <default> ;..:
16e0: 20 6e 69 63 6b 3e 70 6b 20 28 20 6e 69 63 6b 20   nick>pk ( nick 
16f0: 75 20 2d 2d 20 70 6b 20 75 20 29 0a 20 20 20 20  u -- pk u ).    
1700: 6e 69 63 6b 2d 6b 65 79 20 3f 64 75 70 2d 49 46  nick-key ?dup-IF
1710: 20 2e 6b 65 2d 70 6b 20 24 40 20 45 4c 53 45 20   .ke-pk $@ ELSE 
1720: 30 20 30 20 54 48 45 4e 20 3b 0a 3a 20 68 6f 73  0 0 THEN ;.: hos
1730: 74 2e 6e 69 63 6b 3e 70 6b 20 28 20 61 64 64 72  t.nick>pk ( addr
1740: 20 75 20 2d 2d 20 70 6b 20 75 27 20 29 0a 20 20   u -- pk u' ).  
1750: 20 20 27 2e 27 20 24 73 70 6c 69 74 20 64 75 70    '.' $split dup
1760: 20 30 3d 20 49 46 20 20 32 73 77 61 70 20 20 54   0= IF  2swap  T
1770: 48 45 4e 20 5b 3a 20 6e 69 63 6b 3e 70 6b 20 74  HEN [: nick>pk t
1780: 79 70 65 20 74 79 70 65 20 3b 5d 20 24 74 6d 70  ype type ;] $tmp
1790: 20 3b 0a 0a 3a 20 6b 65 79 2d 65 78 69 73 74 3f   ;..: key-exist?
17a0: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 66 6c 61   ( addr u -- fla
17b0: 67 20 29 0a 20 20 20 20 6b 65 79 2d 74 61 62 6c  g ).    key-tabl
17c0: 65 20 23 40 20 64 30 3c 3e 20 3b 20 0a 0a 56 61  e #@ d0<> ; ..Va
17d0: 72 69 61 62 6c 65 20 73 74 72 69 63 74 2d 6b 65  riable strict-ke
17e0: 79 73 20 20 73 74 72 69 63 74 2d 6b 65 79 73 20  ys  strict-keys 
17f0: 6f 6e 0a 0a 5b 49 46 55 4e 44 45 46 5d 20 6d 61  on..[IFUNDEF] ma
1800: 67 65 6e 74 61 20 20 62 72 6f 77 6e 20 63 6f 6e  genta  brown con
1810: 73 74 61 6e 74 20 6d 61 67 65 6e 74 61 20 5b 54  stant magenta [T
1820: 48 45 4e 5d 0a 5b 49 46 44 45 46 5d 20 67 6c 2d  HEN].[IFDEF] gl-
1830: 74 79 70 65 20 3a 20 62 67 7c 20 3e 62 67 20 6f  type : bg| >bg o
1840: 72 20 3b 20 5b 45 4c 53 45 5d 20 3a 20 62 67 7c  r ; [ELSE] : bg|
1850: 20 64 72 6f 70 20 3b 20 5b 54 48 45 4e 5d 0a 0a   drop ; [THEN]..
1860: 43 72 65 61 74 65 20 38 35 63 6f 6c 6f 72 73 2d  Create 85colors-
1870: 62 77 0a 30 20 2c 20 69 6e 76 65 72 73 20 2c 0a  bw.0 , invers ,.
1880: 69 6e 76 65 72 73 20 2c 20 30 20 2c 0a 30 20 2c  invers , 0 ,.0 ,
1890: 20 69 6e 76 65 72 73 20 2c 0a 69 6e 76 65 72 73   invers ,.invers
18a0: 20 2c 20 30 20 2c 0a 43 72 65 61 74 65 20 38 35   , 0 ,.Create 85
18b0: 63 6f 6c 6f 72 73 2d 63 6c 0a 79 65 6c 6c 6f 77  colors-cl.yellow
18c0: 20 3e 66 67 20 62 6c 75 65 20 3e 62 67 20 6f 72   >fg blue >bg or
18d0: 20 62 6f 6c 64 20 6f 72 20 2c 20 72 65 64 20 3e   bold or , red >
18e0: 66 67 20 77 68 69 74 65 20 62 67 7c 20 2c 0a 62  fg white bg| ,.b
18f0: 6c 61 63 6b 20 3e 66 67 20 63 79 61 6e 20 62 67  lack >fg cyan bg
1900: 7c 20 2c 20 67 72 65 65 6e 20 3e 66 67 20 62 6c  | , green >fg bl
1910: 61 63 6b 20 3e 62 67 20 6f 72 20 62 6f 6c 64 20  ack >bg or bold 
1920: 6f 72 20 2c 0a 77 68 69 74 65 20 3e 66 67 20 62  or ,.white >fg b
1930: 6c 61 63 6b 20 3e 62 67 20 6f 72 20 62 6f 6c 64  lack >bg or bold
1940: 20 6f 72 20 2c 20 6d 61 67 65 6e 74 61 20 3e 66   or , magenta >f
1950: 67 20 79 65 6c 6c 6f 77 20 62 67 7c 20 2c 0a 62  g yellow bg| ,.b
1960: 6c 75 65 20 3e 66 67 20 79 65 6c 6c 6f 77 20 62  lue >fg yellow b
1970: 67 7c 20 2c 20 63 79 61 6e 20 3e 66 67 20 72 65  g| , cyan >fg re
1980: 64 20 3e 62 67 20 6f 72 20 62 6f 6c 64 20 6f 72  d >bg or bold or
1990: 20 2c 0a 0a 5b 49 46 44 45 46 5d 20 67 6c 2d 74   ,..[IFDEF] gl-t
19a0: 79 70 65 20 38 35 63 6f 6c 6f 72 73 2d 63 6c 20  ype 85colors-cl 
19b0: 5b 45 4c 53 45 5d 20 38 35 63 6f 6c 6f 72 73 2d  [ELSE] 85colors-
19c0: 62 77 20 5b 54 48 45 4e 5d 20 56 61 6c 75 65 20  bw [THEN] Value 
19d0: 38 35 63 6f 6c 6f 72 73 0a 0a 3a 20 2e 62 6c 61  85colors..: .bla
19e0: 63 6b 38 35 20 28 20 61 64 64 72 20 75 20 2d 2d  ck85 ( addr u --
19f0: 20 29 0a 20 20 20 20 5b 20 62 6c 61 63 6b 20 3e   ).    [ black >
1a00: 62 67 20 62 6c 61 63 6b 20 3e 66 67 20 6f 72 20  bg black >fg or 
1a10: 5d 4c 20 61 74 74 72 21 20 20 20 38 35 74 79 70  ]L attr!   85typ
1a20: 65 20 3c 64 65 66 61 75 6c 74 3e 20 3b 0a 3a 20  e <default> ;.: 
1a30: 2e 73 74 72 69 70 65 38 35 20 28 20 61 64 64 72  .stripe85 ( addr
1a40: 20 75 20 2d 2d 20 29 20 20 30 20 2d 72 6f 74 20   u -- )  0 -rot 
1a50: 62 6f 75 6e 64 73 20 3f 44 4f 0a 09 63 72 20 64  bounds ?DO..cr d
1a60: 75 70 20 63 65 6c 6c 73 20 38 35 63 6f 6c 6f 72  up cells 85color
1a70: 73 20 2b 20 40 20 61 74 74 72 21 20 31 2b 0a 09  s + @ attr! 1+..
1a80: 49 20 34 20 38 35 74 79 70 65 20 20 64 75 70 20  I 4 85type  dup 
1a90: 63 65 6c 6c 73 20 38 35 63 6f 6c 6f 72 73 20 2b  cells 85colors +
1aa0: 20 40 20 61 74 74 72 21 20 31 2b 0a 09 49 20 34   @ attr! 1+..I 4
1ab0: 20 2b 20 34 20 38 35 74 79 70 65 20 3c 64 65 66   + 4 85type <def
1ac0: 61 75 6c 74 3e 20 38 20 2b 4c 4f 4f 50 20 20 64  ault> 8 +LOOP  d
1ad0: 72 6f 70 20 3b 0a 3a 20 2e 72 73 6b 20 28 20 6e  rop ;.: .rsk ( n
1ae0: 69 63 6b 20 75 20 2d 2d 20 29 0a 20 20 20 20 73  ick u -- ).    s
1af0: 6b 72 65 76 20 24 32 30 20 2e 73 74 72 69 70 65  krev $20 .stripe
1b00: 38 35 20 73 70 61 63 65 20 74 79 70 65 20 2e 22  85 space type ."
1b10: 20 20 28 6b 65 65 70 20 6f 66 66 6c 69 6e 65 20    (keep offline 
1b20: 63 6f 70 79 21 29 22 20 63 72 20 3b 0a 3a 20 2e  copy!)" cr ;.: .
1b30: 6b 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20  key ( addr u -- 
1b40: 29 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a  ) drop cell+ >o.
1b50: 20 20 20 20 2e 22 20 6e 69 63 6b 3a 20 22 20 2e      ." nick: " .
1b60: 6e 69 63 6b 20 63 72 0a 20 20 20 20 2e 22 20 70  nick cr.    ." p
1b70: 75 62 6b 65 79 3a 20 22 20 6b 65 2d 70 6b 20 24  ubkey: " ke-pk $
1b80: 40 20 38 35 74 79 70 65 20 63 72 0a 20 20 20 20  @ 85type cr.    
1b90: 6b 65 2d 73 6b 20 40 20 49 46 20 20 2e 22 20 73  ke-sk @ IF  ." s
1ba0: 65 63 6b 65 79 3a 20 22 20 6b 65 2d 73 6b 20 40  eckey: " ke-sk @
1bb0: 20 6b 65 79 73 69 7a 65 0a 09 2e 62 6c 61 63 6b   keysize...black
1bc0: 38 35 20 2e 22 20 20 28 6b 65 65 70 20 73 65 63  85 ."  (keep sec
1bd0: 72 65 74 21 29 22 20 63 72 20 20 54 48 45 4e 0a  ret!)" cr  THEN.
1be0: 20 20 20 20 2e 22 20 63 72 65 61 74 65 64 3a 20      ." created: 
1bf0: 22 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20  " ke-selfsig $@ 
1c00: 64 72 6f 70 20 36 34 40 20 2e 73 69 67 64 61 74  drop 64@ .sigdat
1c10: 65 20 63 72 0a 20 20 20 20 2e 22 20 65 78 70 69  e cr.    ." expi
1c20: 72 65 73 3a 20 22 20 6b 65 2d 73 65 6c 66 73 69  res: " ke-selfsi
1c30: 67 20 24 40 20 64 72 6f 70 20 36 34 27 2b 20 36  g $@ drop 64'+ 6
1c40: 34 40 20 2e 73 69 67 64 61 74 65 20 63 72 0a 20  4@ .sigdate cr. 
1c50: 20 20 20 6f 3e 20 3b 0a 3a 20 2e 6b 65 79 2d 72     o> ;.: .key-r
1c60: 65 73 74 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 6f  est ( o:key -- o
1c70: 3a 6b 65 79 20 29 0a 20 20 20 20 6b 65 2d 70 6b  :key ).    ke-pk
1c80: 20 24 40 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e   $@ keysize umin
1c90: 0a 20 20 20 20 6b 65 2d 69 6d 70 6f 72 74 20 40  .    ke-import @
1ca0: 20 3e 69 6d 2d 63 6f 6c 6f 72 20 38 35 74 79 70   >im-color 85typ
1cb0: 65 20 3c 64 65 66 61 75 6c 74 3e 0a 20 20 20 20  e <default>.    
1cc0: 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20 2e 73  ke-selfsig $@ .s
1cd0: 69 67 64 61 74 65 73 0a 20 20 20 20 73 70 61 63  igdates.    spac
1ce0: 65 20 2e 6e 69 63 6b 20 3b 0a 3a 20 2e 6b 65 79  e .nick ;.: .key
1cf0: 2d 6c 69 73 74 20 28 20 6f 3a 6b 65 79 20 2d 2d  -list ( o:key --
1d00: 20 6f 3a 6b 65 79 20 29 0a 20 20 20 20 6b 65 2d   o:key ).    ke-
1d10: 6f 66 66 73 65 74 20 36 34 40 20 36 34 3e 64 20  offset 64@ 64>d 
1d20: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 66 6d 2f  keypack-all# fm/
1d30: 6d 6f 64 20 6e 69 70 20 32 20 2e 72 20 73 70 61  mod nip 2 .r spa
1d40: 63 65 0a 20 20 20 20 2e 6b 65 79 2d 72 65 73 74  ce.    .key-rest
1d50: 20 63 72 20 3b 0a 3a 20 2e 73 65 63 72 65 74 2d   cr ;.: .secret-
1d60: 6e 69 63 6b 73 20 28 20 2d 2d 20 29 0a 20 20 20  nicks ( -- ).   
1d70: 20 30 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20   0 key-table [: 
1d80: 63 65 6c 6c 2b 20 24 40 20 64 72 6f 70 20 63 65  cell+ $@ drop ce
1d90: 6c 6c 2b 20 3e 6f 20 6b 65 2d 73 6b 20 40 20 49  ll+ >o ke-sk @ I
1da0: 46 0a 09 20 20 64 75 70 20 32 20 2e 72 20 73 70  F..  dup 2 .r sp
1db0: 61 63 65 20 2e 6b 65 79 2d 72 65 73 74 20 63 72  ace .key-rest cr
1dc0: 20 31 2b 0a 20 20 20 20 20 20 54 48 45 4e 20 6f   1+.      THEN o
1dd0: 3e 20 3b 5d 20 23 6d 61 70 20 64 72 6f 70 20 3b  > ;] #map drop ;
1de0: 0a 3a 20 2e 6b 65 79 2d 69 6e 76 69 74 65 20 28  .: .key-invite (
1df0: 20 6f 3a 6b 65 79 20 2d 2d 20 6f 3a 6b 65 79 20   o:key -- o:key 
1e00: 29 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20 6b  ).    ke-pk $@ k
1e10: 65 79 73 69 7a 65 20 75 6d 69 6e 0a 20 20 20 20  eysize umin.    
1e20: 6b 65 2d 69 6d 70 6f 72 74 20 40 20 3e 69 6d 2d  ke-import @ >im-
1e30: 63 6f 6c 6f 72 20 38 35 74 79 70 65 20 3c 64 65  color 85type <de
1e40: 66 61 75 6c 74 3e 0a 20 20 20 20 73 70 61 63 65  fault>.    space
1e50: 20 2e 6e 69 63 6b 20 20 63 72 20 3b 0a 3a 20 2e   .nick  cr ;.: .
1e60: 6b 65 79 2d 73 68 6f 72 74 20 28 20 6f 3a 6b 65  key-short ( o:ke
1e70: 79 20 2d 2d 20 6f 3a 6b 65 79 20 29 0a 20 20 20  y -- o:key ).   
1e80: 20 6b 65 2d 6e 69 63 6b 20 24 2e 20 6b 65 2d 70   ke-nick $. ke-p
1e90: 72 6f 66 20 24 40 6c 65 6e 20 49 46 20 2e 22 20  rof $@len IF ." 
1ea0: 20 70 72 6f 66 69 6c 65 3a 20 22 20 6b 65 2d 70   profile: " ke-p
1eb0: 72 6f 66 20 24 40 20 38 35 74 79 70 65 20 54 48  rof $@ 85type TH
1ec0: 45 4e 20 3b 0a 0a 3a 20 64 75 6d 70 6b 65 79 20  EN ;..: dumpkey 
1ed0: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 64 72  ( addr u -- ) dr
1ee0: 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a 20 20 20 20  op cell+ >o.    
1ef0: 2e 5c 22 20 78 5c 22 20 22 20 6b 65 2d 70 6b 20  .\" x\" " ke-pk 
1f00: 24 40 20 38 35 74 79 70 65 20 2e 5c 22 20 5c 22  $@ 85type .\" \"
1f10: 20 6b 65 79 3f 6e 65 77 22 20 63 72 0a 20 20 20   key?new" cr.   
1f20: 20 6b 65 2d 73 6b 20 40 20 49 46 20 20 2e 5c 22   ke-sk @ IF  .\"
1f30: 20 78 5c 22 20 22 20 6b 65 2d 73 6b 20 40 20 6b   x\" " ke-sk @ k
1f40: 65 79 73 69 7a 65 20 38 35 74 79 70 65 20 2e 5c  eysize 85type .\
1f50: 22 20 5c 22 20 6b 65 2d 73 6b 20 73 65 63 21 20  " \" ke-sk sec! 
1f60: 2b 73 65 63 6b 65 79 22 20 63 72 20 20 54 48 45  +seckey" cr  THE
1f70: 4e 0a 20 20 20 20 27 22 27 20 65 6d 69 74 20 2e  N.    '"' emit .
1f80: 6e 69 63 6b 20 2e 5c 22 20 5c 22 20 6b 65 2d 6e  nick .\" \" ke-n
1f90: 69 63 6b 20 24 21 20 22 0a 20 20 20 20 6b 65 2d  ick $! ".    ke-
1fa0: 73 65 6c 66 73 69 67 20 24 40 20 64 72 6f 70 20  selfsig $@ drop 
1fb0: 36 34 40 20 36 34 3e 64 20 5b 3a 20 27 24 27 20  64@ 64>d [: '$' 
1fc0: 65 6d 69 74 20 30 20 75 64 2e 72 20 3b 5d 20 24  emit 0 ud.r ;] $
1fd0: 31 30 20 62 61 73 65 2d 65 78 65 63 75 74 65 0a  10 base-execute.
1fe0: 20 20 20 20 2e 22 20 2e 20 64 3e 36 34 20 6b 65      ." . d>64 ke
1ff0: 2d 66 69 72 73 74 21 20 22 20 6b 65 2d 74 79 70  -first! " ke-typ
2000: 65 20 40 20 2e 20 2e 22 20 6b 65 2d 74 79 70 65  e @ . ." ke-type
2010: 20 21 22 20 20 63 72 20 6f 3e 20 3b 0a 0a 3a 20   !"  cr o> ;..: 
2020: 2e 6b 65 79 73 20 28 20 2d 2d 20 29 20 6b 65 79  .keys ( -- ) key
2030: 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20  -table [: cell+ 
2040: 24 40 20 2e 6b 65 79 20 3b 5d 20 23 6d 61 70 20  $@ .key ;] #map 
2050: 3b 0a 3a 20 64 75 6d 70 6b 65 79 73 20 28 20 2d  ;.: dumpkeys ( -
2060: 2d 20 29 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a  - ) key-table [:
2070: 20 63 65 6c 6c 2b 20 24 40 20 64 75 6d 70 6b 65   cell+ $@ dumpke
2080: 79 20 3b 5d 20 23 6d 61 70 20 3b 0a 0a 3a 20 6b  y ;] #map ;..: k
2090: 65 79 3e 6e 69 63 6b 20 28 20 61 64 64 72 6b 65  ey>nick ( addrke
20a0: 79 20 75 31 20 2d 2d 20 6e 69 63 6b 20 75 32 20  y u1 -- nick u2 
20b0: 29 0a 20 20 20 20 6b 65 79 2d 74 61 62 6c 65 20  ).    key-table 
20c0: 23 40 20 30 3d 20 49 46 20 20 64 72 6f 70 20 22  #@ 0= IF  drop "
20d0: 22 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20  "  EXIT  THEN.  
20e0: 20 20 63 65 6c 6c 2b 20 2e 6b 65 2d 6e 69 63 6b    cell+ .ke-nick
20f0: 20 24 40 20 3b 0a 0a 3a 20 2e 6b 65 79 23 20 28   $@ ;..: .key# (
2100: 20 61 64 64 72 20 75 20 2d 2d 20 29 20 6b 65 79   addr u -- ) key
2110: 7c 0a 20 20 20 20 2e 22 20 4b 65 79 20 27 22 20  |.    ." Key '" 
2120: 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 30 3d 20  key-table #@ 0= 
2130: 49 46 20 64 72 6f 70 20 45 58 49 54 20 54 48 45  IF drop EXIT THE
2140: 4e 0a 20 20 20 20 63 65 6c 6c 2b 20 2e 2e 6e 69  N.    cell+ ..ni
2150: 63 6b 20 2e 22 20 27 20 6f 6b 22 20 63 72 20 3b  ck ." ' ok" cr ;
2160: 0a 0a 44 65 66 65 72 20 64 68 74 2d 6e 69 63 6b  ..Defer dht-nick
2170: 3f 0a 65 76 65 6e 74 3a 20 2d 3e 73 65 61 72 63  ?.event: ->searc
2180: 68 2d 6b 65 79 20 20 6b 65 79 7c 20 6f 76 65 72  h-key  key| over
2190: 20 3e 72 20 64 68 74 2d 6e 69 63 6b 3f 20 72 3e   >r dht-nick? r>
21a0: 20 66 72 65 65 20 74 68 72 6f 77 20 3b 0a 0a 3a   free throw ;..:
21b0: 20 2e 75 6e 6b 65 79 2d 69 64 20 28 20 61 64 64   .unkey-id ( add
21c0: 72 20 75 20 2d 2d 20 29 20 3c 65 72 72 3e 20 38  r u -- ) <err> 8
21d0: 20 75 6d 69 6e 20 38 35 74 79 70 65 20 2e 22 20   umin 85type ." 
21e0: 28 75 6e 6b 6e 6f 77 6e 29 22 20 3c 64 65 66 61  (unknown)" <defa
21f0: 75 6c 74 3e 20 3b 0a 0a 3a 20 2e 6b 65 79 2d 69  ult> ;..: .key-i
2200: 64 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20  d ( addr u -- ) 
2210: 6b 65 79 7c 20 32 64 75 70 20 6b 65 79 2d 74 61  key| 2dup key-ta
2220: 62 6c 65 20 23 40 20 30 3d 0a 20 20 20 20 49 46  ble #@ 0=.    IF
2230: 20 20 64 72 6f 70 20 75 70 40 20 72 65 63 65 69    drop up@ recei
2240: 76 65 72 2d 74 61 73 6b 20 3d 20 49 46 0a 09 20  ver-task = IF.. 
2250: 20 20 20 3c 65 76 65 6e 74 20 32 64 75 70 20 73     <event 2dup s
2260: 61 76 65 2d 6d 65 6d 20 65 24 2c 20 2d 3e 73 65  ave-mem e$, ->se
2270: 61 72 63 68 2d 6b 65 79 20 5b 20 75 70 40 20 5d  arch-key [ up@ ]
2280: 6c 20 65 76 65 6e 74 3e 0a 09 20 20 20 20 2e 75  l event>..    .u
2290: 6e 6b 65 79 2d 69 64 20 45 58 49 54 20 20 54 48  nkey-id EXIT  TH
22a0: 45 4e 0a 09 32 64 75 70 20 5b 27 5d 20 64 68 74  EN..2dup ['] dht
22b0: 2d 6e 69 63 6b 3f 20 63 6d 64 2d 6e 65 73 74 0a  -nick? cmd-nest.
22c0: 09 32 64 75 70 20 6b 65 79 2d 74 61 62 6c 65 20  .2dup key-table 
22d0: 23 40 20 30 3d 20 49 46 20 20 64 72 6f 70 20 2e  #@ 0= IF  drop .
22e0: 75 6e 6b 65 79 2d 69 64 20 45 58 49 54 20 20 54  unkey-id EXIT  T
22f0: 48 45 4e 20 20 54 48 45 4e 0a 20 20 20 20 63 65  HEN  THEN.    ce
2300: 6c 6c 2b 20 2e 2e 6e 69 63 6b 20 32 64 72 6f 70  ll+ ..nick 2drop
2310: 20 3b 0a 0a 3a 20 2e 73 69 6d 70 6c 65 2d 69 64   ;..: .simple-id
2320: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 6b   ( addr u -- ) k
2330: 65 79 7c 20 6b 65 79 3e 6e 69 63 6b 20 74 79 70  ey| key>nick typ
2340: 65 20 3b 0a 0a 3a 6e 6f 6e 61 6d 65 20 28 20 61  e ;..:noname ( a
2350: 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 6f  ddr u -- ).    o
2360: 20 49 46 20 20 70 75 62 6b 65 79 20 40 20 49 46   IF  pubkey @ IF
2370: 0a 09 20 20 20 20 32 64 75 70 20 70 75 62 6b 65  ..    2dup pubke
2380: 79 20 24 40 20 6b 65 79 7c 20 73 74 72 3d 20 30  y $@ key| str= 0
2390: 3d 20 49 46 0a 09 09 5b 3a 20 2e 22 20 77 61 6e  = IF...[: ." wan
23a0: 74 3a 20 22 20 70 75 62 6b 65 79 20 24 40 20 6b  t: " pubkey $@ k
23b0: 65 79 7c 20 38 35 74 79 70 65 20 63 72 0a 09 09  ey| 85type cr...
23c0: 20 20 2e 22 20 67 6f 74 20 3a 20 22 20 32 64 75    ." got : " 2du
23d0: 70 20 38 35 74 79 70 65 20 63 72 20 3b 5d 20 24  p 85type cr ;] $
23e0: 65 72 72 0a 09 09 74 72 75 65 20 21 21 77 72 6f  err...true !!wro
23f0: 6e 67 2d 6b 65 79 21 21 0a 09 20 20 20 20 54 48  ng-key!!..    TH
2400: 45 4e 0a 09 20 20 20 20 63 6f 6e 6e 65 63 74 28  EN..    connect(
2410: 20 2e 6b 65 79 23 20 29 65 6c 73 65 28 20 32 64   .key# )else( 2d
2420: 72 6f 70 20 29 20 20 45 58 49 54 0a 09 54 48 45  rop )  EXIT..THE
2430: 4e 20 20 54 48 45 4e 0a 20 20 20 20 32 64 75 70  N  THEN.    2dup
2440: 20 6b 65 79 2d 65 78 69 73 74 3f 20 30 3d 20 49   key-exist? 0= I
2450: 46 0a 09 73 74 72 69 63 74 2d 6b 65 79 73 20 40  F..strict-keys @
2460: 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 21   !!unknown-key!!
2470: 0a 09 2e 22 20 55 6e 6b 6e 6f 77 6e 20 6b 65 79  ..." Unknown key
2480: 20 22 20 38 35 74 79 70 65 20 63 72 0a 20 20 20   " 85type cr.   
2490: 20 45 4c 53 45 0a 09 63 6f 6e 6e 65 63 74 28 20   ELSE..connect( 
24a0: 2e 6b 65 79 23 20 29 65 6c 73 65 28 20 32 64 72  .key# )else( 2dr
24b0: 6f 70 20 29 0a 20 20 20 20 54 48 45 4e 20 3b 20  op ).    THEN ; 
24c0: 49 53 20 63 68 65 63 6b 2d 6b 65 79 0a 0a 3a 6e  IS check-key..:n
24d0: 6f 6e 61 6d 65 20 28 20 70 6b 63 20 2d 2d 20 73  oname ( pkc -- s
24e0: 6b 63 20 29 0a 20 20 20 20 6b 65 79 73 69 7a 65  kc ).    keysize
24f0: 20 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 30 3d   key-table #@ 0=
2500: 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 21   !!unknown-key!!
2510: 0a 20 20 20 20 63 65 6c 6c 2b 20 2e 6b 65 2d 73  .    cell+ .ke-s
2520: 6b 20 73 65 63 40 20 30 3d 20 21 21 75 6e 6b 6e  k sec@ 0= !!unkn
2530: 6f 77 6e 2d 6b 65 79 21 21 20 3b 20 69 73 20 73  own-key!! ; is s
2540: 65 61 72 63 68 2d 6b 65 79 0a 0a 5c 20 67 65 74  earch-key..\ get
2550: 20 70 61 73 73 70 68 72 61 73 65 0a 0a 33 20 56   passphrase..3 V
2560: 61 6c 75 65 20 70 61 73 73 70 68 72 61 73 65 2d  alue passphrase-
2570: 72 65 74 72 79 23 0a 24 31 30 30 20 43 6f 6e 73  retry#.$100 Cons
2580: 74 61 6e 74 20 6d 61 78 2d 70 61 73 73 70 68 72  tant max-passphr
2590: 61 73 65 23 20 5c 20 32 35 36 20 63 68 61 72 61  ase# \ 256 chara
25a0: 63 74 65 72 73 20 73 68 6f 75 6c 64 20 62 65 20  cters should be 
25b0: 65 6e 6f 75 67 68 2e 2e 2e 0a 6d 61 78 2d 70 61  enough....max-pa
25c0: 73 73 70 68 72 61 73 65 23 20 62 75 66 66 65 72  ssphrase# buffer
25d0: 3a 20 70 61 73 73 70 68 72 61 73 65 0a 0a 3a 20  : passphrase..: 
25e0: 70 61 73 73 70 68 72 61 73 65 2d 69 6e 20 28 20  passphrase-in ( 
25f0: 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 20  -- addr u ).    
2600: 70 61 73 73 70 68 72 61 73 65 20 64 75 70 20 6d  passphrase dup m
2610: 61 78 2d 70 61 73 73 70 68 72 61 73 65 23 20 61  ax-passphrase# a
2620: 63 63 65 70 74 2a 20 3b 0a 0a 3a 20 3e 70 61 73  ccept* ;..: >pas
2630: 73 70 68 72 61 73 65 20 28 20 61 64 64 72 20 75  sphrase ( addr u
2640: 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20   -- addr u ).   
2650: 20 5c 47 20 63 72 65 61 74 65 20 61 20 35 31 32   \G create a 512
2660: 20 62 69 74 20 68 61 73 68 20 6f 66 20 74 68 65   bit hash of the
2670: 20 70 61 73 73 70 68 72 61 73 65 0a 20 20 20 20   passphrase.    
2680: 6e 6f 2d 6b 65 79 20 3e 63 3a 6b 65 79 20 63 3a  no-key >c:key c:
2690: 68 61 73 68 0a 20 20 20 20 6b 65 63 63 61 6b 2d  hash.    keccak-
26a0: 70 61 64 64 65 64 20 63 3a 6b 65 79 3e 20 6b 65  padded c:key> ke
26b0: 63 63 61 6b 2d 70 61 64 64 65 64 20 6b 65 63 63  ccak-padded kecc
26c0: 61 6b 23 6d 61 78 20 32 2f 20 3b 0a 0a 3a 20 67  ak#max 2/ ;..: g
26d0: 65 74 2d 70 61 73 73 70 68 72 61 73 65 20 28 20  et-passphrase ( 
26e0: 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 20  -- addr u ).    
26f0: 70 61 73 73 70 68 72 61 73 65 2d 69 6e 20 3e 70  passphrase-in >p
2700: 61 73 73 70 68 72 61 73 65 20 3b 0a 0a 56 61 72  assphrase ;..Var
2710: 69 61 62 6c 65 20 6b 65 79 73 0a 0a 3a 20 6c 61  iable keys..: la
2720: 73 74 6b 65 79 40 20 28 20 2d 2d 20 61 64 64 72  stkey@ ( -- addr
2730: 20 75 20 29 20 6b 65 79 73 20 24 5b 5d 23 20 31   u ) keys $[]# 1
2740: 2d 20 6b 65 79 73 20 73 65 63 5b 5d 40 20 3b 0a  - keys sec[]@ ;.
2750: 3a 20 6b 65 79 3e 64 65 66 61 75 6c 74 20 28 20  : key>default ( 
2760: 2d 2d 20 29 20 6c 61 73 74 6b 65 79 40 20 64 72  -- ) lastkey@ dr
2770: 6f 70 20 3e 73 74 6f 72 65 6b 65 79 20 21 20 3b  op >storekey ! ;
2780: 0a 3a 20 2b 6b 65 79 20 28 20 61 64 64 72 20 75  .: +key ( addr u
2790: 20 2d 2d 20 29 20 6b 65 79 73 20 73 65 63 2b 5b   -- ) keys sec+[
27a0: 5d 21 20 3b 0a 3a 20 2b 70 61 73 73 70 68 72 61  ]! ;.: +passphra
27b0: 73 65 20 28 20 2d 2d 20 29 20 20 67 65 74 2d 70  se ( -- )  get-p
27c0: 61 73 73 70 68 72 61 73 65 20 2b 6b 65 79 20 3b  assphrase +key ;
27d0: 0a 3a 20 2b 63 68 65 63 6b 70 68 72 61 73 65 20  .: +checkphrase 
27e0: 28 20 2d 2d 20 66 6c 61 67 20 29 20 67 65 74 2d  ( -- flag ) get-
27f0: 70 61 73 73 70 68 72 61 73 65 20 6b 65 79 73 20  passphrase keys 
2800: 24 5b 5d 23 20 31 2d 20 6b 65 79 73 20 73 65 63  $[]# 1- keys sec
2810: 5b 5d 40 20 73 74 72 3d 20 3b 0a 3a 20 2b 6e 65  []@ str= ;.: +ne
2820: 77 70 68 72 61 73 65 20 28 20 2d 2d 20 29 0a 20  wphrase ( -- ). 
2830: 20 20 20 42 45 47 49 4e 0a 09 2e 22 20 50 61 73     BEGIN..." Pas
2840: 73 70 68 72 61 73 65 3a 20 22 20 2b 70 61 73 73  sphrase: " +pass
2850: 70 68 72 61 73 65 20 63 72 0a 09 2e 22 20 52 65  phrase cr..." Re
2860: 74 79 70 65 20 70 6c 73 3a 20 22 20 2b 63 68 65  type pls: " +che
2870: 63 6b 70 68 72 61 73 65 20 30 3d 20 57 48 49 4c  ckphrase 0= WHIL
2880: 45 0a 09 20 20 20 20 2e 22 20 20 64 69 64 6e 27  E..    ."  didn'
2890: 74 20 6d 61 74 63 68 2c 20 74 72 79 20 61 67 61  t match, try aga
28a0: 69 6e 20 70 6c 65 61 73 65 22 20 63 72 0a 20 20  in please" cr.  
28b0: 20 20 52 45 50 45 41 54 20 63 72 20 3b 0a 0a 3a    REPEAT cr ;..:
28c0: 20 22 3e 70 61 73 73 70 68 72 61 73 65 20 28 20   ">passphrase ( 
28d0: 61 64 64 72 20 75 20 2d 2d 20 29 20 3e 70 61 73  addr u -- ) >pas
28e0: 73 70 68 72 61 73 65 20 2b 6b 65 79 20 3b 0a 3a  sphrase +key ;.:
28f0: 20 2b 73 65 63 6b 65 79 20 28 20 2d 2d 20 29 0a   +seckey ( -- ).
2900: 20 20 20 20 6b 65 2d 73 6b 20 40 20 6b 65 2d 70      ke-sk @ ke-p
2910: 6b 20 24 40 20 64 72 6f 70 20 6b 65 79 70 61 64  k $@ drop keypad
2920: 20 65 64 2d 64 68 20 2b 6b 65 79 20 3b 0a 0a 22   ed-dh +key ;.."
2930: 22 20 22 3e 70 61 73 73 70 68 72 61 73 65 20 5c  " ">passphrase \
2940: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 65   following the e
2950: 6e 63 72 79 70 74 2d 65 76 65 72 79 74 68 69 6e  ncrypt-everythin
2960: 67 20 70 61 72 61 64 69 67 6d 2c 0a 5c 20 6e 6f  g paradigm,.\ no
2970: 20 70 61 73 73 77 6f 72 64 20 69 73 20 74 68 65   password is the
2980: 20 65 6d 70 74 79 20 73 74 72 69 6e 67 21 20 20   empty string!  
2990: 49 74 27 73 20 73 74 69 6c 6c 20 65 6e 63 72 79  It's still encry
29a0: 70 74 65 64 20 3b 2d 29 21 0a 0a 5c 20 61 20 73  pted ;-)!..\ a s
29b0: 65 63 72 65 74 20 6b 65 79 20 6a 75 73 74 20 6e  ecret key just n
29c0: 65 65 64 73 20 61 20 6e 69 63 6b 20 61 6e 64 20  eeds a nick and 
29d0: 61 20 74 79 70 65 2e 0a 5c 20 53 65 63 72 65 74  a type..\ Secret
29e0: 20 6b 65 79 73 20 63 61 6e 20 62 65 20 70 65 72   keys can be per
29f0: 73 6f 6e 73 20 61 6e 64 20 67 72 6f 75 70 73 2e  sons and groups.
2a00: 0a 0a 5c 20 61 20 70 75 62 6c 69 63 20 6b 65 79  ..\ a public key
2a10: 20 6e 65 65 64 73 20 6d 6f 72 65 3a 20 6e 69 63   needs more: nic
2a20: 6b 2c 20 74 79 70 65 2c 20 70 72 6f 66 69 6c 65  k, type, profile
2a30: 2e 0a 5c 20 54 68 65 20 70 72 6f 66 69 6c 65 20  ..\ The profile 
2a40: 69 73 20 61 20 73 74 72 75 63 74 75 72 65 64 20  is a structured 
2a50: 64 6f 63 75 6d 65 6e 74 2c 20 69 2e 65 2e 20 70  document, i.e. p
2a60: 6f 69 6e 74 65 64 20 74 6f 20 62 79 20 61 20 68  ointed to by a h
2a70: 61 73 68 2e 0a 0a 5c 20 61 20 73 69 67 6e 61 74  ash...\ a signat
2a80: 75 72 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 70  ure contains a p
2a90: 75 62 6b 65 79 2c 20 61 20 63 68 65 63 6b 62 6f  ubkey, a checkbo
2aa0: 78 20 62 69 74 6d 61 73 6b 2c 0a 5c 20 61 20 64  x bitmask,.\ a d
2ab0: 61 74 65 2c 20 61 6e 20 65 78 70 69 72 61 74 69  ate, an expirati
2ac0: 6f 6e 20 64 61 74 65 2c 20 74 68 65 20 73 69 67  on date, the sig
2ad0: 6e 65 72 27 73 20 70 75 62 6b 65 79 20 61 6e 64  ner's pubkey and
2ae0: 20 74 68 65 20 73 69 67 6e 61 74 75 72 65 20 69   the signature i
2af0: 74 73 65 6c 66 0a 5c 20 28 72 2b 73 29 2e 20 20  tself.\ (r+s).  
2b00: 54 68 65 72 65 20 69 73 20 61 6e 20 6f 70 74 69  There is an opti
2b10: 6f 6e 61 6c 20 73 69 67 6e 69 6e 67 20 70 72 6f  onal signing pro
2b20: 74 6f 63 6f 6c 20 64 6f 63 75 6d 65 6e 74 20 28  tocol document (
2b30: 68 61 73 68 29 2e 0a 0a 5c 20 77 65 20 73 74 6f  hash)...\ we sto
2b40: 72 65 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20  re each item in 
2b50: 61 20 32 35 36 20 62 79 74 65 73 20 65 6e 63 72  a 256 bytes encr
2b60: 79 70 74 65 64 20 73 74 72 69 6e 67 2c 20 69 2e  ypted string, i.
2b70: 65 2e 20 77 69 74 68 20 61 20 31 36 0a 5c 20 62  e. with a 16.\ b
2b80: 79 74 65 20 73 61 6c 74 20 61 6e 64 20 61 20 31  yte salt and a 1
2b90: 36 20 62 79 74 65 20 63 68 65 63 6b 73 75 6d 2e  6 byte checksum.
2ba0: 0a 0a 3a 20 6b 65 2d 6c 61 73 74 21 20 28 20 36  ..: ke-last! ( 6
2bb0: 34 64 61 74 65 20 2d 2d 20 29 0a 20 20 20 20 6b  4date -- ).    k
2bc0: 65 2d 73 65 6c 66 73 69 67 20 24 40 6c 65 6e 20  e-selfsig $@len 
2bd0: 24 31 30 20 75 6d 61 78 20 6b 65 2d 73 65 6c 66  $10 umax ke-self
2be0: 73 69 67 20 24 21 6c 65 6e 0a 20 20 20 20 6b 65  sig $!len.    ke
2bf0: 2d 73 65 6c 66 73 69 67 20 24 40 20 64 72 6f 70  -selfsig $@ drop
2c00: 20 36 34 27 2b 20 36 34 21 20 3b 0a 3a 20 6b 65   64'+ 64! ;.: ke
2c10: 2d 66 69 72 73 74 21 20 28 20 36 34 64 61 74 65  -first! ( 64date
2c20: 20 2d 2d 20 29 20 36 34 23 2d 31 20 6b 65 2d 6c   -- ) 64#-1 ke-l
2c30: 61 73 74 21 0a 20 20 20 20 6b 65 2d 73 65 6c 66  ast!.    ke-self
2c40: 73 69 67 20 24 40 20 64 72 6f 70 20 36 34 21 20  sig $@ drop 64! 
2c50: 3b 0a 0a 67 65 74 2d 63 75 72 72 65 6e 74 20 61  ;..get-current a
2c60: 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 20 64  lso net2o-base d
2c70: 65 66 69 6e 69 74 69 6f 6e 73 0a 0a 63 6d 64 2d  efinitions..cmd-
2c80: 74 61 62 6c 65 20 24 40 20 69 6e 68 65 72 69 74  table $@ inherit
2c90: 2d 74 61 62 6c 65 20 6b 65 79 2d 65 6e 74 72 79  -table key-entry
2ca0: 2d 74 61 62 6c 65 0a 5c 67 20 0a 5c 67 20 23 23  -table.\g .\g ##
2cb0: 23 20 6b 65 79 20 73 74 6f 72 61 67 65 20 63 6f  # key storage co
2cc0: 6d 6d 61 6e 64 73 20 23 23 23 0a 5c 67 20 0a 24  mmands ###.\g .$
2cd0: 31 31 20 6e 65 74 32 6f 3a 20 70 72 69 76 6b 65  11 net2o: privke
2ce0: 79 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20  y ( $:string -- 
2cf0: 29 0a 20 20 20 20 5c 67 20 70 72 69 76 61 74 65  ).    \g private
2d00: 20 6b 65 79 0a 20 20 20 20 5c 20 64 6f 65 73 20   key.    \ does 
2d10: 6e 6f 74 20 6e 65 65 64 20 74 6f 20 62 65 20 73  not need to be s
2d20: 69 67 6e 65 64 2c 20 74 68 65 20 73 65 63 72 65  igned, the secre
2d30: 74 20 6b 65 79 20 76 65 72 69 66 69 65 73 20 69  t key verifies i
2d40: 74 73 65 6c 66 0a 20 20 20 20 24 3e 20 6f 76 65  tself.    $> ove
2d50: 72 20 6b 65 79 70 61 64 20 73 6b 3e 70 6b 20 5c  r keypad sk>pk \
2d60: 20 67 65 6e 65 72 61 74 65 20 70 75 62 6b 65 79   generate pubkey
2d70: 0a 20 20 20 20 6b 65 79 70 61 64 20 6b 65 2d 70  .    keypad ke-p
2d80: 6b 20 24 40 20 64 72 6f 70 20 6b 65 79 73 69 7a  k $@ drop keysiz
2d90: 65 20 74 75 63 6b 20 73 74 72 3d 20 30 3d 20 21  e tuck str= 0= !
2da0: 21 77 72 6f 6e 67 2d 6b 65 79 21 21 0a 20 20 20  !wrong-key!!.   
2db0: 20 6b 65 2d 73 6b 20 73 65 63 21 20 2b 73 65 63   ke-sk sec! +sec
2dc0: 6b 65 79 20 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65  key ;.+net2o: ke
2dd0: 79 74 79 70 65 20 28 20 6e 20 2d 2d 20 29 20 20  ytype ( n -- )  
2de0: 20 20 20 20 20 20 20 20 20 21 21 73 69 67 6e 65           !!signe
2df0: 64 3f 20 20 20 31 20 21 21 3e 6f 72 64 65 72 3f  d?   1 !!>order?
2e00: 20 36 34 3e 6e 20 6b 65 2d 74 79 70 65 20 21 20   64>n ke-type ! 
2e10: 3b 0a 5c 67 20 6b 65 79 20 74 79 70 65 20 28 30  ;.\g key type (0
2e20: 3a 20 61 6e 6f 6e 2c 20 31 3a 20 75 73 65 72 2c  : anon, 1: user,
2e30: 20 32 3a 20 67 72 6f 75 70 29 0a 2b 6e 65 74 32   2: group).+net2
2e40: 6f 3a 20 6b 65 79 6e 69 63 6b 20 28 20 24 3a 73  o: keynick ( $:s
2e50: 74 72 69 6e 67 20 2d 2d 20 29 20 20 20 20 21 21  tring -- )    !!
2e60: 73 69 67 6e 65 64 3f 20 20 20 32 20 21 21 3e 6f  signed?   2 !!>o
2e70: 72 64 65 72 3f 20 24 3e 20 6b 65 2d 6e 69 63 6b  rder? $> ke-nick
2e80: 20 24 21 0a 20 20 20 20 6e 69 63 6b 21 20 3b 0a   $!.    nick! ;.
2e90: 5c 67 20 6b 65 79 20 6e 69 63 6b 0a 2b 6e 65 74  \g key nick.+net
2ea0: 32 6f 3a 20 6b 65 79 70 72 6f 66 69 6c 65 20 28  2o: keyprofile (
2eb0: 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20 21   $:string -- ) !
2ec0: 21 73 69 67 6e 65 64 3f 20 20 20 34 20 21 21 3e  !signed?   4 !!>
2ed0: 6f 72 64 65 72 3f 20 24 3e 20 6b 65 2d 70 72 6f  order? $> ke-pro
2ee0: 66 20 24 21 20 3b 0a 5c 67 20 6b 65 79 20 70 72  f $! ;.\g key pr
2ef0: 6f 66 69 6c 65 20 28 68 61 73 68 20 6f 66 20 61  ofile (hash of a
2f00: 20 72 65 73 6f 75 72 63 65 29 0a 2b 6e 65 74 32   resource).+net2
2f10: 6f 3a 20 6b 65 79 6d 61 73 6b 20 28 20 78 20 2d  o: keymask ( x -
2f20: 2d 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20  - )             
2f30: 20 20 20 20 20 20 20 20 20 20 38 20 21 21 3e 6f            8 !!>o
2f40: 72 64 65 72 3f 20 36 34 64 72 6f 70 20 3b 0a 5c  rder? 64drop ;.\
2f50: 67 20 6b 65 79 20 6d 61 73 6b 0a 2b 6e 65 74 32  g key mask.+net2
2f60: 6f 3a 20 6b 65 79 70 73 6b 20 28 20 24 3a 73 74  o: keypsk ( $:st
2f70: 72 69 6e 67 20 2d 2d 20 29 20 20 20 20 20 21 21  ring -- )     !!
2f80: 73 69 67 6e 65 64 3f 20 24 31 30 20 21 21 3e 6f  signed? $10 !!>o
2f90: 72 64 65 72 3f 20 24 3e 20 6b 65 2d 70 73 6b 20  rder? $> ke-psk 
2fa0: 73 65 63 21 20 3b 0a 5c 67 20 70 72 65 73 68 61  sec! ;.\g presha
2fb0: 72 65 64 20 6b 65 79 2c 20 75 73 65 64 20 66 6f  red key, used fo
2fc0: 72 20 44 48 54 20 65 6e 63 72 79 70 74 69 6f 6e  r DHT encryption
2fd0: 0a 2b 6e 65 74 32 6f 3a 20 2b 6b 65 79 73 69 67  .+net2o: +keysig
2fe0: 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29   ( $:string -- )
2ff0: 20 20 24 32 30 20 21 21 3e 3d 6f 72 64 65 72 3f    $20 !!>=order?
3000: 20 24 3e 20 6b 65 2d 73 69 67 73 20 24 2b 5b 5d   $> ke-sigs $+[]
3010: 21 20 3b 0a 5c 67 20 61 64 64 20 61 20 6b 65 79  ! ;.\g add a key
3020: 20 73 69 67 6e 61 74 75 72 65 0a 2b 6e 65 74 32   signature.+net2
3030: 6f 3a 20 6b 65 79 69 6d 70 6f 72 74 20 28 20 6e  o: keyimport ( n
3040: 20 2d 2d 20 29 0a 20 20 20 20 70 77 2d 6c 65 76   -- ).    pw-lev
3050: 65 6c 23 20 30 3c 20 49 46 20 20 36 34 3e 6e 20  el# 0< IF  64>n 
3060: 69 6d 70 6f 72 74 23 75 6e 74 72 75 73 74 65 64  import#untrusted
3070: 20 75 6d 69 6e 20 6b 65 2d 69 6d 70 6f 72 74 20   umin ke-import 
3080: 21 0a 20 20 20 20 45 4c 53 45 20 20 36 34 64 72  !.    ELSE  64dr
3090: 6f 70 20 20 54 48 45 4e 20 3b 0a 64 75 70 20 73  op  THEN ;.dup s
30a0: 65 74 2d 63 75 72 72 65 6e 74 20 70 72 65 76 69  et-current previ
30b0: 6f 75 73 0a 0a 67 65 6e 2d 74 61 62 6c 65 20 24  ous..gen-table $
30c0: 66 72 65 65 7a 65 0a 27 20 63 6f 6e 74 65 78 74  freeze.' context
30d0: 2d 74 61 62 6c 65 20 69 73 20 67 65 6e 2d 74 61  -table is gen-ta
30e0: 62 6c 65 0a 0a 3a 20 6b 65 79 3a 6e 65 73 74 2d  ble..: key:nest-
30f0: 73 69 67 20 28 20 61 64 64 72 20 75 20 2d 2d 20  sig ( addr u -- 
3100: 61 64 64 72 20 75 27 20 66 6c 61 67 20 29 0a 20  addr u' flag ). 
3110: 20 20 20 70 6b 32 2d 73 69 67 3f 20 64 75 70 20     pk2-sig? dup 
3120: 3f 45 58 49 54 20 64 72 6f 70 0a 20 20 20 20 32  ?EXIT drop.    2
3130: 64 75 70 20 2b 20 73 69 67 73 69 7a 65 23 20 2d  dup + sigsize# -
3140: 20 73 69 67 73 69 7a 65 23 20 3e 24 0a 20 20 20   sigsize# >$.   
3150: 20 73 69 67 70 6b 32 73 69 7a 65 23 20 2d 20 32   sigpk2size# - 2
3160: 64 75 70 20 2b 20 6b 65 79 73 69 7a 65 32 20 6b  dup + keysize2 k
3170: 65 79 3f 6e 65 77 20 6e 3a 3e 6f 20 24 3e 20 6b  ey?new n:>o $> k
3180: 65 2d 73 65 6c 66 73 69 67 20 24 21 0a 20 20 20  e-selfsig $!.   
3190: 20 73 69 6d 2d 6e 69 63 6b 21 20 6f 66 66 20 63   sim-nick! off c
31a0: 2d 73 74 61 74 65 20 6f 66 66 20 73 69 67 2d 6f  -state off sig-o
31b0: 6b 20 3b 0a 27 20 6b 65 79 3a 6e 65 73 74 2d 73  k ;.' key:nest-s
31c0: 69 67 20 6b 65 79 2d 65 6e 74 72 79 20 74 6f 20  ig key-entry to 
31d0: 6e 65 73 74 2d 73 69 67 0a 0a 6b 65 79 2d 65 6e  nest-sig..key-en
31e0: 74 72 79 20 27 20 6e 65 77 20 73 74 61 74 69 63  try ' new static
31f0: 2d 61 20 77 69 74 68 2d 61 6c 6c 6f 63 61 74 65  -a with-allocate
3200: 72 20 74 6f 20 73 61 6d 70 6c 65 2d 6b 65 79 0a  r to sample-key.
3210: 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20 6b 65  sample-key >o ke
3220: 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65 20 40 20  y-entry-table @ 
3230: 74 6f 6b 65 6e 2d 74 61 62 6c 65 20 21 20 6f 3e  token-table ! o>
3240: 0a 0a 3a 20 6b 65 79 3a 63 6f 64 65 20 28 20 2d  ..: key:code ( -
3250: 2d 20 29 0a 20 20 20 20 63 6f 64 65 2d 6b 65 79  - ).    code-key
3260: 20 20 63 6d 64 6c 6f 63 6b 20 6c 6f 63 6b 0a 20    cmdlock lock. 
3270: 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 61     keypack keypa
3280: 63 6b 2d 61 6c 6c 23 20 65 72 61 73 65 0a 20 20  ck-all# erase.  
3290: 20 20 63 6d 64 72 65 73 65 74 20 61 6c 73 6f 20    cmdreset also 
32a0: 6e 65 74 32 6f 2d 62 61 73 65 20 3b 0a 63 6f 6d  net2o-base ;.com
32b0: 70 3a 20 3a 2c 20 61 6c 73 6f 20 6e 65 74 32 6f  p: :, also net2o
32c0: 2d 62 61 73 65 20 3b 0a 0a 61 6c 73 6f 20 6e 65  -base ;..also ne
32d0: 74 32 6f 2d 62 61 73 65 20 64 65 66 69 6e 69 74  t2o-base definit
32e0: 69 6f 6e 73 0a 0a 3a 20 65 6e 64 3a 6b 65 79 20  ions..: end:key 
32f0: 28 20 2d 2d 20 29 0a 20 20 20 20 65 6e 64 77 69  ( -- ).    endwi
3300: 74 68 20 70 72 65 76 69 6f 75 73 20 63 6d 64 6c  th previous cmdl
3310: 6f 63 6b 20 75 6e 6c 6f 63 6b 20 3b 0a 63 6f 6d  ock unlock ;.com
3320: 70 3a 20 3a 2c 20 70 72 65 76 69 6f 75 73 20 3b  p: :, previous ;
3330: 0a 0a 73 65 74 2d 63 75 72 72 65 6e 74 20 70 72  ..set-current pr
3340: 65 76 69 6f 75 73 0a 0a 3a 20 6b 65 79 2d 63 72  evious..: key-cr
3350: 79 70 74 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b  ypt ( -- ).    k
3360: 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61  eypack keypack-a
3370: 6c 6c 23 0a 20 20 20 20 3e 73 74 6f 72 65 6b 65  ll#.    >storeke
3380: 79 20 73 65 63 40 20 64 75 70 20 24 32 30 20 75  y sec@ dup $20 u
3390: 3c 3d 20 5c 20 69 73 20 61 20 73 65 63 72 65 74  <= \ is a secret
33a0: 2c 20 6e 6f 20 6e 65 65 64 20 74 6f 20 62 65 20  , no need to be 
33b0: 73 6c 6f 77 0a 20 20 20 20 49 46 20 20 65 6e 63  slow.    IF  enc
33c0: 72 79 70 74 24 20 20 45 4c 53 45 20 20 70 77 2d  rypt$  ELSE  pw-
33d0: 6c 65 76 65 6c 23 20 65 6e 63 72 79 70 74 2d 70  level# encrypt-p
33e0: 77 24 20 20 54 48 45 4e 20 3b 0a 0a 30 20 56 61  w$  THEN ;..0 Va
33f0: 6c 75 65 20 6b 65 79 2d 73 66 64 20 5c 20 73 65  lue key-sfd \ se
3400: 63 72 65 74 20 6b 65 79 73 0a 30 20 56 61 6c 75  cret keys.0 Valu
3410: 65 20 6b 65 79 2d 70 66 64 20 5c 20 70 75 62 6b  e key-pfd \ pubk
3420: 65 79 73 0a 0a 3a 20 3f 6b 65 79 2d 73 66 64 20  eys..: ?key-sfd 
3430: 28 20 2d 2d 20 66 64 20 29 20 6b 65 79 2d 73 66  ( -- fd ) key-sf
3440: 64 20 22 7e 2f 2e 6e 65 74 32 6f 2f 73 65 63 6b  d "~/.net2o/seck
3450: 65 79 73 2e 6b 32 6f 22 20 3f 66 64 20 64 75 70  eys.k2o" ?fd dup
3460: 20 74 6f 20 6b 65 79 2d 73 66 64 20 3b 0a 3a 20   to key-sfd ;.: 
3470: 3f 6b 65 79 2d 70 66 64 20 28 20 2d 2d 20 66 64  ?key-pfd ( -- fd
3480: 20 29 20 6b 65 79 2d 70 66 64 20 22 7e 2f 2e 6e   ) key-pfd "~/.n
3490: 65 74 32 6f 2f 70 75 62 6b 65 79 73 2e 6b 32 6f  et2o/pubkeys.k2o
34a0: 22 20 3f 66 64 20 64 75 70 20 74 6f 20 6b 65 79  " ?fd dup to key
34b0: 2d 70 66 64 20 3b 0a 0a 3a 20 6b 65 79 3e 73 66  -pfd ;..: key>sf
34c0: 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b  ile ( -- ).    k
34d0: 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61  eypack keypack-a
34e0: 6c 6c 23 20 3f 6b 65 79 2d 73 66 64 20 61 70 70  ll# ?key-sfd app
34f0: 65 6e 64 2d 66 69 6c 65 20 6b 65 2d 6f 66 66 73  end-file ke-offs
3500: 65 74 20 36 34 21 20 3b 0a 3a 20 6b 65 79 3e 70  et 64! ;.: key>p
3510: 66 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20 20 20  file ( -- ).    
3520: 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d  keypack keypack-
3530: 61 6c 6c 23 20 3f 6b 65 79 2d 70 66 64 20 61 70  all# ?key-pfd ap
3540: 70 65 6e 64 2d 66 69 6c 65 20 6b 65 2d 6f 66 66  pend-file ke-off
3550: 73 65 74 20 36 34 21 20 3b 0a 0a 3a 20 6b 65 79  set 64! ;..: key
3560: 3e 73 66 69 6c 65 40 70 6f 73 20 28 20 36 34 70  >sfile@pos ( 64p
3570: 6f 73 20 2d 2d 20 29 20 36 34 64 75 70 20 36 34  os -- ) 64dup 64
3580: 23 2d 31 20 36 34 3d 20 49 46 20 20 36 34 64 72  #-1 64= IF  64dr
3590: 6f 70 20 6b 65 79 3e 73 66 69 6c 65 0a 20 20 20  op key>sfile.   
35a0: 20 45 4c 53 45 20 20 36 34 3e 72 20 6b 65 79 70   ELSE  64>r keyp
35b0: 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23  ack keypack-all#
35c0: 20 36 34 72 3e 20 3f 6b 65 79 2d 73 66 64 20 77   64r> ?key-sfd w
35d0: 72 69 74 65 40 70 6f 73 2d 66 69 6c 65 20 20 54  rite@pos-file  T
35e0: 48 45 4e 20 3b 0a 3a 20 6b 65 79 3e 70 66 69 6c  HEN ;.: key>pfil
35f0: 65 40 70 6f 73 20 28 20 36 34 70 6f 73 20 2d 2d  e@pos ( 64pos --
3600: 20 29 20 36 34 64 75 70 20 36 34 23 2d 31 20 36   ) 64dup 64#-1 6
3610: 34 3d 20 49 46 20 20 36 34 64 72 6f 70 20 6b 65  4= IF  64drop ke
3620: 79 3e 70 66 69 6c 65 0a 20 20 20 20 45 4c 53 45  y>pfile.    ELSE
3630: 20 20 36 34 3e 72 20 6b 65 79 70 61 63 6b 20 6b    64>r keypack k
3640: 65 79 70 61 63 6b 2d 61 6c 6c 23 20 36 34 72 3e  eypack-all# 64r>
3650: 20 3f 6b 65 79 2d 70 66 64 20 77 72 69 74 65 40   ?key-pfd write@
3660: 70 6f 73 2d 66 69 6c 65 20 20 54 48 45 4e 20 3b  pos-file  THEN ;
3670: 0a 0a 3a 20 72 6e 64 3e 73 66 69 6c 65 20 28 20  ..: rnd>sfile ( 
3680: 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b  -- ).    keypack
3690: 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 3e 72   keypack-all# >r
36a0: 6e 67 24 20 6b 65 79 3e 73 66 69 6c 65 20 3b 0a  ng$ key>sfile ;.
36b0: 3a 20 72 6e 64 3e 70 66 69 6c 65 20 28 20 2d 2d  : rnd>pfile ( --
36c0: 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b   ).    keypack k
36d0: 65 79 70 61 63 6b 2d 61 6c 6c 23 20 3e 72 6e 67  eypack-all# >rng
36e0: 24 20 6b 65 79 3e 70 66 69 6c 65 20 3b 0a 0a 3a  $ key>pfile ;..:
36f0: 20 3e 6b 65 79 73 20 28 20 2d 2d 20 29 0a 20 20   >keys ( -- ).  
3700: 20 20 5c 47 20 61 64 64 20 73 68 61 72 65 64 20    \G add shared 
3710: 73 65 63 72 65 74 20 74 6f 20 6c 69 73 74 20 6f  secret to list o
3720: 66 20 70 6f 73 73 69 62 6c 65 20 6b 65 79 73 0a  f possible keys.
3730: 20 20 20 20 73 6b 63 20 70 6b 63 20 6b 65 79 70      skc pkc keyp
3740: 61 64 20 65 64 2d 64 68 20 2b 6b 65 79 20 3b 0a  ad ed-dh +key ;.
3750: 0a 5c 20 6b 65 79 20 67 65 6e 65 72 61 74 69 6f  .\ key generatio
3760: 6e 0a 5c 20 66 6f 72 20 72 65 70 72 6f 64 75 63  n.\ for reproduc
3770: 69 62 69 6c 69 74 79 20 6f 66 20 74 68 65 20 73  ibility of the s
3780: 65 6c 66 73 69 67 2c 20 61 6c 77 61 79 73 20 75  elfsig, always u
3790: 73 65 20 74 68 65 20 73 61 6d 65 20 6f 72 64 65  se the same orde
37a0: 72 3a 0a 5c 20 22 70 75 62 6b 65 79 22 20 6e 65  r:.\ "pubkey" ne
37b0: 77 6b 65 79 20 3c 6e 3e 20 6b 65 79 74 79 70 65  wkey <n> keytype
37c0: 20 22 6e 69 63 6b 22 20 6b 65 79 6e 69 63 6b 20   "nick" keynick 
37d0: 22 73 69 67 22 20 6b 65 79 73 65 6c 66 73 69 67  "sig" keyselfsig
37e0: 0a 0a 55 73 65 72 20 70 6b 2b 73 69 67 24 0a 0a  ..User pk+sig$..
37f0: 6b 65 79 73 69 7a 65 32 20 43 6f 6e 73 74 61 6e  keysize2 Constan
3800: 74 20 70 6b 72 6b 23 0a 0a 3a 20 5d 70 6b 2b 73  t pkrk#..: ]pk+s
3810: 69 67 6e 20 28 20 61 64 64 72 20 75 20 2d 2d 20  ign ( addr u -- 
3820: 29 20 2b 63 6d 64 62 75 66 20 5d 73 69 67 6e 20  ) +cmdbuf ]sign 
3830: 3b 0a 0a 3a 20 70 61 63 6b 2d 6b 65 79 20 28 20  ;..: pack-key ( 
3840: 74 79 70 65 20 6e 69 63 6b 20 75 20 2d 2d 20 29  type nick u -- )
3850: 0a 20 20 20 20 6e 6f 77 3e 6e 65 76 65 72 0a 20  .    now>never. 
3860: 20 20 20 6b 65 79 3a 63 6f 64 65 0a 20 20 20 20     key:code.    
3870: 20 20 73 69 67 6e 5b 0a 20 20 20 20 20 20 72 6f    sign[.      ro
3880: 74 20 75 6c 69 74 2c 20 6b 65 79 74 79 70 65 20  t ulit, keytype 
3890: 24 2c 20 6b 65 79 6e 69 63 6b 0a 20 20 20 20 20  $, keynick.     
38a0: 20 70 6b 63 20 70 6b 72 6b 23 20 5d 70 6b 2b 73   pkc pkrk# ]pk+s
38b0: 69 67 6e 0a 20 20 20 20 20 20 73 6b 63 20 6b 65  ign.      skc ke
38c0: 79 73 69 7a 65 20 24 2c 20 70 72 69 76 6b 65 79  ysize $, privkey
38d0: 0a 20 20 20 20 65 6e 64 3a 6b 65 79 20 3b 0a 0a  .    end:key ;..
38e0: 61 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a  also net2o-base.
38f0: 3a 20 70 61 63 6b 2d 63 6f 72 65 20 28 20 6f 3a  : pack-core ( o:
3900: 6b 65 79 20 2d 2d 20 29 20 5c 20 63 6f 72 65 20  key -- ) \ core 
3910: 77 69 74 68 6f 75 74 20 6b 65 79 0a 20 20 20 20  without key.    
3920: 6b 65 2d 74 79 70 65 20 40 20 75 6c 69 74 2c 20  ke-type @ ulit, 
3930: 6b 65 79 74 79 70 65 0a 20 20 20 20 6b 65 2d 6e  keytype.    ke-n
3940: 69 63 6b 20 24 40 20 24 2c 20 6b 65 79 6e 69 63  ick $@ $, keynic
3950: 6b 0a 20 20 20 20 6b 65 2d 70 73 6b 20 73 65 63  k.    ke-psk sec
3960: 40 20 64 75 70 20 49 46 20 20 24 2c 20 6b 65 79  @ dup IF  $, key
3970: 70 73 6b 20 20 45 4c 53 45 20 20 32 64 72 6f 70  psk  ELSE  2drop
3980: 20 20 54 48 45 4e 0a 20 20 20 20 6b 65 2d 70 72    THEN.    ke-pr
3990: 6f 66 20 24 40 20 64 75 70 20 49 46 20 20 24 2c  of $@ dup IF  $,
39a0: 20 6b 65 79 70 72 6f 66 69 6c 65 20 20 45 4c 53   keyprofile  ELS
39b0: 45 20 20 32 64 72 6f 70 20 20 54 48 45 4e 20 3b  E  2drop  THEN ;
39c0: 0a 0a 3a 20 70 61 63 6b 2d 63 6f 72 65 6b 65 79  ..: pack-corekey
39d0: 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20   ( o:key -- ).  
39e0: 20 20 73 69 67 6e 5b 0a 20 20 20 20 70 61 63 6b    sign[.    pack
39f0: 2d 63 6f 72 65 0a 20 20 20 20 6b 65 2d 70 6b 20  -core.    ke-pk 
3a00: 24 40 20 2b 63 6d 64 62 75 66 0a 20 20 20 20 6b  $@ +cmdbuf.    k
3a10: 65 2d 73 65 6c 66 73 69 67 20 24 40 20 2b 63 6d  e-selfsig $@ +cm
3a20: 64 62 75 66 20 63 6d 64 2d 72 65 73 6f 6c 76 65  dbuf cmd-resolve
3a30: 3e 20 32 64 72 6f 70 20 6e 65 73 74 73 69 67 0a  > 2drop nestsig.
3a40: 20 20 20 20 6b 65 2d 69 6d 70 6f 72 74 20 40 20      ke-import @ 
3a50: 75 6c 69 74 2c 20 6b 65 79 69 6d 70 6f 72 74 0a  ulit, keyimport.
3a60: 20 20 20 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20      ke-storekey 
3a70: 40 20 3e 73 74 6f 72 65 6b 65 79 20 21 20 3b 0a  @ >storekey ! ;.
3a80: 70 72 65 76 69 6f 75 73 0a 0a 3a 20 70 61 63 6b  previous..: pack
3a90: 2d 70 75 62 6b 65 79 20 28 20 6f 3a 6b 65 79 20  -pubkey ( o:key 
3aa0: 2d 2d 20 29 0a 20 20 20 20 6b 65 79 3a 63 6f 64  -- ).    key:cod
3ab0: 65 0a 20 20 20 20 20 20 70 61 63 6b 2d 63 6f 72  e.      pack-cor
3ac0: 65 6b 65 79 0a 20 20 20 20 65 6e 64 3a 6b 65 79  ekey.    end:key
3ad0: 20 3b 0a 3a 20 70 61 63 6b 2d 73 65 63 6b 65 79   ;.: pack-seckey
3ae0: 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20   ( o:key -- ).  
3af0: 20 20 6b 65 79 3a 63 6f 64 65 0a 20 20 20 20 20    key:code.     
3b00: 20 70 61 63 6b 2d 63 6f 72 65 6b 65 79 0a 20 20   pack-corekey.  
3b10: 20 20 20 20 6b 65 2d 73 6b 20 73 65 63 40 20 24      ke-sk sec@ $
3b20: 2c 20 70 72 69 76 6b 65 79 0a 20 20 20 20 65 6e  , privkey.    en
3b30: 64 3a 6b 65 79 20 3b 0a 3a 20 6b 65 79 6e 69 63  d:key ;.: keynic
3b40: 6b 24 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 61 64  k$ ( o:key -- ad
3b50: 64 72 20 75 20 29 0a 20 20 20 20 5c 67 20 67 65  dr u ).    \g ge
3b60: 74 20 74 68 65 20 61 6e 6e 6f 74 61 74 69 6f 6e  t the annotation
3b70: 73 20 77 69 74 68 20 73 69 67 6e 61 74 75 72 65  s with signature
3b80: 0a 20 20 20 20 5b 27 5d 20 70 61 63 6b 2d 63 6f  .    ['] pack-co
3b90: 72 65 20 67 65 6e 2d 63 6d 64 24 20 32 64 72 6f  re gen-cmd$ 2dro
3ba0: 70 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67  p.    ke-selfsig
3bb0: 20 24 40 20 74 6d 70 24 20 24 2b 21 20 74 6d 70   $@ tmp$ $+! tmp
3bc0: 24 20 24 40 20 3b 0a 3a 20 6b 65 79 70 6b 32 6e  $ $@ ;.: keypk2n
3bd0: 69 63 6b 24 20 28 20 6f 3a 6b 65 79 20 2d 2d 20  ick$ ( o:key -- 
3be0: 61 64 64 72 20 75 20 29 0a 20 20 20 20 5c 67 20  addr u ).    \g 
3bf0: 67 65 74 20 74 68 65 20 61 6e 6e 6f 74 61 74 69  get the annotati
3c00: 6f 6e 73 20 77 69 74 68 20 73 69 67 6e 61 74 75  ons with signatu
3c10: 72 65 0a 20 20 20 20 5b 27 5d 20 70 61 63 6b 2d  re.    ['] pack-
3c20: 63 6f 72 65 20 67 65 6e 2d 63 6d 64 24 20 32 64  core gen-cmd$ 2d
3c30: 72 6f 70 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40  rop.    ke-pk $@
3c40: 20 74 6d 70 24 20 24 2b 21 20 6b 65 2d 73 65 6c   tmp$ $+! ke-sel
3c50: 66 73 69 67 20 24 40 20 74 6d 70 24 20 24 2b 21  fsig $@ tmp$ $+!
3c60: 20 74 6d 70 24 20 24 40 20 3b 0a 3a 20 6d 79 6e   tmp$ $@ ;.: myn
3c70: 69 63 6b 2d 6b 65 79 20 28 20 2d 2d 20 6f 20 29  ick-key ( -- o )
3c80: 0a 20 20 20 20 70 6b 63 20 6b 65 79 73 69 7a 65  .    pkc keysize
3c90: 20 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 64 72   key-table #@ dr
3ca0: 6f 70 20 63 65 6c 6c 2b 20 3b 0a 3a 20 6d 79 6e  op cell+ ;.: myn
3cb0: 69 63 6b 24 20 28 20 2d 2d 20 61 64 64 72 20 75  ick$ ( -- addr u
3cc0: 20 29 0a 20 20 20 20 5c 67 20 67 65 74 20 6d 79   ).    \g get my
3cd0: 20 6e 69 63 6b 20 77 69 74 68 20 73 69 67 6e 61   nick with signa
3ce0: 74 75 72 65 0a 20 20 20 20 6d 79 6e 69 63 6b 2d  ture.    mynick-
3cf0: 6b 65 79 20 2e 6b 65 79 6e 69 63 6b 24 20 3b 0a  key .keynick$ ;.
3d00: 3a 20 6d 79 70 6b 32 6e 69 63 6b 24 20 28 20 6f  : mypk2nick$ ( o
3d10: 3a 6b 65 79 20 2d 2d 20 61 64 64 72 20 75 20 29  :key -- addr u )
3d20: 0a 20 20 20 20 5c 67 20 67 65 74 20 6d 79 20 6e  .    \g get my n
3d30: 69 63 6b 20 77 69 74 68 20 73 69 67 6e 61 74 75  ick with signatu
3d40: 72 65 0a 20 20 20 20 6d 79 6e 69 63 6b 2d 6b 65  re.    mynick-ke
3d50: 79 20 2e 6b 65 79 70 6b 32 6e 69 63 6b 24 20 3b  y .keypk2nick$ ;
3d60: 0a 0a 56 61 72 69 61 62 6c 65 20 63 70 2d 74 6d  ..Variable cp-tm
3d70: 70 0a 0a 3a 20 73 61 76 65 2d 70 75 62 6b 65 79  p..: save-pubkey
3d80: 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79  s ( -- ).    key
3d90: 2d 70 66 64 20 3f 64 75 70 2d 49 46 20 20 63 6c  -pfd ?dup-IF  cl
3da0: 6f 73 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 20  ose-file throw  
3db0: 54 48 45 4e 0a 20 20 20 20 3f 2e 6e 65 74 32 6f  THEN.    ?.net2o
3dc0: 0a 20 20 20 20 22 7e 2f 2e 6e 65 74 32 6f 2f 70  .    "~/.net2o/p
3dd0: 75 62 6b 65 79 73 2e 6b 32 6f 22 20 5b 3a 20 74  ubkeys.k2o" [: t
3de0: 6f 20 6b 65 79 2d 70 66 64 0a 20 20 20 20 20 20  o key-pfd.      
3df0: 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c  key-table [: cel
3e00: 6c 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b  l+ $@ drop cell+
3e10: 20 3e 6f 0a 09 6b 65 2d 73 6b 20 73 65 63 40 20   >o..ke-sk sec@ 
3e20: 64 30 3d 20 49 46 20 20 70 61 63 6b 2d 70 75 62  d0= IF  pack-pub
3e30: 6b 65 79 0a 09 20 20 20 20 66 6c 75 73 68 28 20  key..    flush( 
3e40: 2e 22 20 73 61 76 69 6e 67 20 22 20 2e 6e 69 63  ." saving " .nic
3e50: 6b 20 66 6f 72 74 68 3a 63 72 20 29 0a 09 20 20  k forth:cr )..  
3e60: 20 20 6b 65 79 2d 63 72 79 70 74 20 6b 65 2d 6f    key-crypt ke-o
3e70: 66 66 73 65 74 20 36 34 40 20 6b 65 79 3e 70 66  ffset 64@ key>pf
3e80: 69 6c 65 40 70 6f 73 0a 09 54 48 45 4e 20 6f 3e  ile@pos..THEN o>
3e90: 20 3b 5d 20 23 6d 61 70 0a 20 20 20 20 3b 5d 20   ;] #map.    ;] 
3ea0: 73 61 76 65 2d 66 69 6c 65 20 3b 0a 0a 3a 20 73  save-file ;..: s
3eb0: 61 76 65 2d 73 65 63 6b 65 79 73 20 28 20 2d 2d  ave-seckeys ( --
3ec0: 20 29 0a 20 20 20 20 6b 65 79 2d 73 66 64 20 3f   ).    key-sfd ?
3ed0: 64 75 70 2d 49 46 20 20 63 6c 6f 73 65 2d 66 69  dup-IF  close-fi
3ee0: 6c 65 20 74 68 72 6f 77 20 20 54 48 45 4e 0a 20  le throw  THEN. 
3ef0: 20 20 20 3f 2e 6e 65 74 32 6f 0a 20 20 20 20 22     ?.net2o.    "
3f00: 7e 2f 2e 6e 65 74 32 6f 2f 73 65 63 6b 65 79 73  ~/.net2o/seckeys
3f10: 2e 6b 32 6f 22 20 5b 3a 20 74 6f 20 6b 65 79 2d  .k2o" [: to key-
3f20: 73 66 64 0a 20 20 20 20 20 20 6b 65 79 2d 74 61  sfd.      key-ta
3f30: 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20  ble [: cell+ $@ 
3f40: 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a 09 6b  drop cell+ >o..k
3f50: 65 2d 73 6b 20 73 65 63 40 20 64 30 3c 3e 20 49  e-sk sec@ d0<> I
3f60: 46 20 20 70 61 63 6b 2d 73 65 63 6b 65 79 0a 09  F  pack-seckey..
3f70: 20 20 20 20 6b 65 79 2d 63 72 79 70 74 20 6b 65      key-crypt ke
3f80: 2d 6f 66 66 73 65 74 20 36 34 40 20 6b 65 79 3e  -offset 64@ key>
3f90: 73 66 69 6c 65 40 70 6f 73 0a 09 54 48 45 4e 20  sfile@pos..THEN 
3fa0: 6f 3e 20 3b 5d 20 23 6d 61 70 0a 20 20 20 20 3b  o> ;] #map.    ;
3fb0: 5d 20 73 61 76 65 2d 66 69 6c 65 20 3b 0a 0a 3a  ] save-file ;..:
3fc0: 20 73 61 76 65 2d 6b 65 79 73 20 28 20 2d 2d 20   save-keys ( -- 
3fd0: 29 0a 20 20 20 20 73 61 76 65 2d 70 75 62 6b 65  ).    save-pubke
3fe0: 79 73 20 73 61 76 65 2d 73 65 63 6b 65 79 73 20  ys save-seckeys 
3ff0: 3b 0a 0a 3a 20 2b 67 65 6e 2d 6b 65 79 73 20 28  ;..: +gen-keys (
4000: 20 6e 69 63 6b 20 75 20 74 79 70 65 20 2d 2d 20   nick u type -- 
4010: 29 0a 20 20 20 20 67 65 6e 2d 6b 65 79 73 20 20  ).    gen-keys  
4020: 36 34 23 2d 31 20 6b 65 79 2d 72 65 61 64 2d 6f  64#-1 key-read-o
4030: 66 66 73 65 74 20 36 34 21 20 20 70 6b 63 20 6b  ffset 64!  pkc k
4040: 65 79 73 69 7a 65 32 20 6b 65 79 3a 6e 65 77 20  eysize2 key:new 
4050: 3e 6f 0a 20 20 20 20 69 6d 70 6f 72 74 23 73 65  >o.    import#se
4060: 6c 66 20 6b 65 2d 69 6d 70 6f 72 74 20 21 20 20  lf ke-import !  
4070: 6b 65 2d 74 79 70 65 20 21 20 20 6b 65 2d 6e 69  ke-type !  ke-ni
4080: 63 6b 20 24 21 20 20 6e 69 63 6b 21 0a 20 20 20  ck $!  nick!.   
4090: 20 73 6b 63 20 6b 65 79 73 69 7a 65 20 6b 65 2d   skc keysize ke-
40a0: 73 6b 20 73 65 63 21 20 20 2b 73 65 63 6b 65 79  sk sec!  +seckey
40b0: 0a 20 20 20 20 5b 20 61 6c 73 6f 20 6e 65 74 32  .    [ also net2
40c0: 6f 2d 62 61 73 65 20 5d 0a 20 20 20 20 5b 3a 20  o-base ].    [: 
40d0: 6b 65 2d 74 79 70 65 20 40 20 75 6c 69 74 2c 20  ke-type @ ulit, 
40e0: 6b 65 79 74 79 70 65 20 6b 65 2d 6e 69 63 6b 20  keytype ke-nick 
40f0: 24 40 20 24 2c 20 6b 65 79 6e 69 63 6b 20 3b 5d  $@ $, keynick ;]
4100: 20 67 65 6e 2d 63 6d 64 24 0a 20 20 20 20 5b 20   gen-cmd$.    [ 
4110: 70 72 65 76 69 6f 75 73 20 5d 20 5b 3a 20 74 79  previous ] [: ty
4120: 70 65 20 70 6b 63 20 6b 65 79 73 69 7a 65 32 20  pe pkc keysize2 
4130: 74 79 70 65 20 3b 5d 20 24 74 6d 70 0a 20 20 20  type ;] $tmp.   
4140: 20 6e 6f 77 3e 6e 65 76 65 72 20 63 3a 30 6b 65   now>never c:0ke
4150: 79 20 63 3a 68 61 73 68 20 5b 27 5d 20 2e 73 69  y c:hash ['] .si
4160: 67 20 24 74 6d 70 20 6b 65 2d 73 65 6c 66 73 69  g $tmp ke-selfsi
4170: 67 20 24 21 0a 20 20 20 20 6f 3e 20 3b 0a 0a 3a  g $!.    o> ;..:
4180: 20 2b 6b 65 79 70 61 69 72 20 28 20 74 79 70 65   +keypair ( type
4190: 20 6e 69 63 6b 20 75 20 2d 2d 20 29 20 2b 70 61   nick u -- ) +pa
41a0: 73 73 70 68 72 61 73 65 20 2b 67 65 6e 2d 6b 65  ssphrase +gen-ke
41b0: 79 73 20 3b 0a 0a 3a 20 2e 72 76 6b 20 2e 22 20  ys ;..: .rvk ." 
41c0: 50 6c 65 61 73 65 20 77 72 69 74 65 20 64 6f 77  Please write dow
41d0: 6e 20 72 65 76 6f 6b 65 20 6b 65 79 3a 20 22 20  n revoke key: " 
41e0: 63 72 0a 20 20 20 20 73 6b 72 65 76 20 24 32 30  cr.    skrev $20
41f0: 20 62 6f 75 6e 64 73 20 44 4f 20 20 2e 22 20 5c   bounds DO  ." \
4200: 20 22 20 49 20 34 20 38 35 74 79 70 65 20 73 70   " I 4 85type sp
4210: 61 63 65 20 49 20 34 20 2b 20 34 20 38 35 74 79  ace I 4 + 4 85ty
4220: 70 65 20 63 72 20 38 20 2b 4c 4f 4f 50 20 3b 0a  pe cr 8 +LOOP ;.
4230: 0a 24 34 30 20 62 75 66 66 65 72 3a 20 6e 69 63  .$40 buffer: nic
4240: 6b 2d 62 75 66 0a 0a 3a 20 67 65 74 2d 6e 69 63  k-buf..: get-nic
4250: 6b 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a  k ( -- addr u ).
4260: 20 20 20 20 2e 22 20 6e 69 63 6b 3a 20 22 20 6e      ." nick: " n
4270: 69 63 6b 2d 62 75 66 20 24 34 30 20 61 63 63 65  ick-buf $40 acce
4280: 70 74 20 6e 69 63 6b 2d 62 75 66 20 73 77 61 70  pt nick-buf swap
4290: 20 63 72 20 3b 0a 3a 20 6d 61 6b 65 2d 6b 65 79   cr ;.: make-key
42a0: 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 23   ( -- ).    key#
42b0: 75 73 65 72 20 67 65 74 2d 6e 69 63 6b 0a 20 20  user get-nick.  
42c0: 20 20 2e 22 20 70 61 73 73 70 68 72 61 73 65 3a    ." passphrase:
42d0: 20 22 20 2b 70 61 73 73 70 68 72 61 73 65 20 6b   " +passphrase k
42e0: 65 79 3e 64 65 66 61 75 6c 74 0a 20 20 20 20 63  ey>default.    c
42f0: 72 20 2b 67 65 6e 2d 6b 65 79 73 20 2e 72 76 6b  r +gen-keys .rvk
4300: 20 3b 0a 0a 5c 20 72 65 61 64 20 6b 65 79 20 66   ;..\ read key f
4310: 69 6c 65 0a 0a 3a 20 74 72 79 2d 64 65 63 72 79  ile..: try-decry
4320: 70 74 2d 6b 65 79 20 28 20 6b 65 79 20 75 31 20  pt-key ( key u1 
4330: 2d 2d 20 61 64 64 72 20 75 32 20 66 6c 61 67 20  -- addr u2 flag 
4340: 29 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65  ).    keypack ke
4350: 79 70 61 63 6b 2d 64 20 6b 65 79 70 61 63 6b 2d  ypack-d keypack-
4360: 61 6c 6c 23 20 6d 6f 76 65 0a 20 20 20 20 6b 65  all# move.    ke
4370: 79 70 61 63 6b 2d 64 20 6b 65 79 70 61 63 6b 2d  ypack-d keypack-
4380: 61 6c 6c 23 20 32 73 77 61 70 0a 20 20 20 20 64  all# 2swap.    d
4390: 75 70 20 24 32 30 20 3d 20 49 46 20 20 64 65 63  up $20 = IF  dec
43a0: 72 79 70 74 24 20 20 45 4c 53 45 0a 09 6b 65 79  rypt$  ELSE..key
43b0: 70 61 63 6b 20 63 40 20 24 46 20 61 6e 64 20 70  pack c@ $F and p
43c0: 77 2d 6c 65 76 65 6c 23 20 3c 3d 20 49 46 20 20  w-level# <= IF  
43d0: 64 65 63 72 79 70 74 2d 70 77 24 0a 09 45 4c 53  decrypt-pw$..ELS
43e0: 45 20 20 32 64 72 6f 70 20 66 61 6c 73 65 20 20  E  2drop false  
43f0: 54 48 45 4e 0a 20 20 20 20 54 48 45 4e 20 3b 0a  THEN.    THEN ;.
4400: 0a 3a 20 74 72 79 2d 64 65 63 72 79 70 74 20 28  .: try-decrypt (
4410: 20 2d 2d 20 61 64 64 72 20 75 20 2f 20 30 20 30   -- addr u / 0 0
4420: 20 29 0a 20 20 20 20 6b 65 79 73 20 24 5b 5d 23   ).    keys $[]#
4430: 20 30 20 3f 44 4f 0a 09 49 20 6b 65 79 73 20 73   0 ?DO..I keys s
4440: 65 63 5b 5d 40 20 74 72 79 2d 64 65 63 72 79 70  ec[]@ try-decryp
4450: 74 2d 6b 65 79 20 49 46 0a 09 20 20 20 20 49 20  t-key IF..    I 
4460: 6b 65 79 73 20 24 5b 5d 20 40 20 3e 73 74 6f 72  keys $[] @ >stor
4470: 65 6b 65 79 20 21 20 75 6e 6c 6f 6f 70 20 20 45  ekey ! unloop  E
4480: 58 49 54 20 20 54 48 45 4e 0a 09 32 64 72 6f 70  XIT  THEN..2drop
4490: 0a 20 20 20 20 4c 4f 4f 50 20 20 30 20 30 20 3b  .    LOOP  0 0 ;
44a0: 0a 0a 3a 20 64 6f 2d 6b 65 79 20 28 20 61 64 64  ..: do-key ( add
44b0: 72 20 75 20 2f 20 30 20 30 20 20 2d 2d 20 29 0a  r u / 0 0  -- ).
44c0: 20 20 20 20 64 75 70 20 30 3d 20 49 46 20 20 32      dup 0= IF  2
44d0: 64 72 6f 70 20 20 45 58 49 54 20 20 54 48 45 4e  drop  EXIT  THEN
44e0: 0a 20 20 20 20 73 61 6d 70 6c 65 2d 6b 65 79 20  .    sample-key 
44f0: 2e 64 6f 2d 63 6d 64 2d 6c 6f 6f 70 20 3b 0a 0a  .do-cmd-loop ;..
4500: 3a 20 2e 6b 65 79 24 20 28 20 61 64 64 72 20 75  : .key$ ( addr u
4510: 20 2d 2d 20 29 0a 20 20 20 20 73 61 6d 70 6c 65   -- ).    sample
4520: 2d 6b 65 79 20 3e 6f 20 20 6b 65 2d 73 6b 20 6b  -key >o  ke-sk k
4530: 65 2d 65 6e 64 20 6f 76 65 72 20 2d 20 65 72 61  e-end over - era
4540: 73 65 0a 20 20 20 20 73 69 67 6e 65 64 2d 76 61  se.    signed-va
4550: 6c 20 76 61 6c 69 64 61 74 65 64 20 6f 72 21 20  l validated or! 
4560: 20 63 2d 73 74 61 74 65 20 6f 66 66 20 20 6e 65   c-state off  ne
4570: 73 74 2d 63 6d 64 2d 6c 6f 6f 70 0a 20 20 20 20  st-cmd-loop.    
4580: 73 69 67 6e 65 64 2d 76 61 6c 20 69 6e 76 65 72  signed-val inver
4590: 74 20 76 61 6c 69 64 61 74 65 64 20 61 6e 64 21  t validated and!
45a0: 0a 20 20 20 20 2e 6b 65 79 2d 73 68 6f 72 74 20  .    .key-short 
45b0: 66 72 65 65 2d 6b 65 79 20 6f 3e 20 3b 0a 0a 3a  free-key o> ;..:
45c0: 20 72 65 61 64 2d 6b 65 79 73 2d 6c 6f 6f 70 20   read-keys-loop 
45d0: 28 20 66 64 20 2d 2d 20 29 20 20 63 6f 64 65 2d  ( fd -- )  code-
45e0: 6b 65 79 0a 20 20 20 20 3e 72 20 30 2e 20 72 40  key.    >r 0. r@
45f0: 20 72 65 70 6f 73 69 74 69 6f 6e 2d 66 69 6c 65   reposition-file
4600: 20 74 68 72 6f 77 0a 20 20 20 20 42 45 47 49 4e   throw.    BEGIN
4610: 0a 09 72 40 20 66 69 6c 65 2d 70 6f 73 69 74 69  ..r@ file-positi
4620: 6f 6e 20 74 68 72 6f 77 20 64 3e 36 34 20 6b 65  on throw d>64 ke
4630: 79 2d 72 65 61 64 2d 6f 66 66 73 65 74 20 36 34  y-read-offset 64
4640: 21 0a 09 6b 65 79 70 61 63 6b 20 6b 65 79 70 61  !..keypack keypa
4650: 63 6b 2d 61 6c 6c 23 20 72 40 20 72 65 61 64 2d  ck-all# r@ read-
4660: 66 69 6c 65 20 74 68 72 6f 77 0a 09 6b 65 79 70  file throw..keyp
4670: 61 63 6b 2d 61 6c 6c 23 20 3d 20 57 48 49 4c 45  ack-all# = WHILE
4680: 20 20 74 72 79 2d 64 65 63 72 79 70 74 20 64 6f    try-decrypt do
4690: 2d 6b 65 79 0a 20 20 20 20 52 45 50 45 41 54 20  -key.    REPEAT 
46a0: 20 72 64 72 6f 70 20 20 63 6f 64 65 30 2d 62 75   rdrop  code0-bu
46b0: 66 20 3b 0a 3a 20 72 65 61 64 2d 6b 65 79 2d 6c  f ;.: read-key-l
46c0: 6f 6f 70 20 28 20 2d 2d 20 29 0a 20 20 20 20 69  oop ( -- ).    i
46d0: 6d 70 6f 72 74 23 73 65 6c 66 20 69 6d 70 6f 72  mport#self impor
46e0: 74 2d 74 79 70 65 20 21 0a 20 20 20 20 3f 6b 65  t-type !.    ?ke
46f0: 79 2d 73 66 64 20 72 65 61 64 2d 6b 65 79 73 2d  y-sfd read-keys-
4700: 6c 6f 6f 70 20 3b 0a 3a 20 72 65 61 64 2d 70 6b  loop ;.: read-pk
4710: 65 79 2d 6c 6f 6f 70 20 28 20 2d 2d 20 29 0a 20  ey-loop ( -- ). 
4720: 20 20 20 70 77 2d 6c 65 76 65 6c 23 20 3e 72 20     pw-level# >r 
4730: 2d 31 20 74 6f 20 70 77 2d 6c 65 76 65 6c 23 20  -1 to pw-level# 
4740: 20 69 6d 70 6f 72 74 23 6d 61 6e 75 61 6c 20 69   import#manual i
4750: 6d 70 6f 72 74 2d 74 79 70 65 20 21 0a 20 20 20  mport-type !.   
4760: 20 3f 6b 65 79 2d 70 66 64 20 72 65 61 64 2d 6b   ?key-pfd read-k
4770: 65 79 73 2d 6c 6f 6f 70 0a 20 20 20 20 72 3e 20  eys-loop.    r> 
4780: 74 6f 20 70 77 2d 6c 65 76 65 6c 23 20 20 3b 0a  to pw-level#  ;.
4790: 0a 3a 20 72 65 61 64 2d 6b 65 79 73 20 28 20 2d  .: read-keys ( -
47a0: 2d 20 29 0a 20 20 20 20 72 65 61 64 2d 6b 65 79  - ).    read-key
47b0: 2d 6c 6f 6f 70 20 72 65 61 64 2d 70 6b 65 79 2d  -loop read-pkey-
47c0: 6c 6f 6f 70 20 69 6d 70 6f 72 74 23 75 6e 74 72  loop import#untr
47d0: 75 73 74 65 64 20 69 6d 70 6f 72 74 2d 74 79 70  usted import-typ
47e0: 65 20 21 20 3b 0a 0a 3a 20 72 65 61 64 2d 70 6b  e ! ;..: read-pk
47f0: 32 6b 65 79 24 20 28 20 61 64 64 72 20 75 20 2d  2key$ ( addr u -
4800: 2d 20 29 0a 20 20 20 20 5c 67 20 72 65 61 64 20  - ).    \g read 
4810: 61 20 6e 65 73 74 65 64 20 6b 65 79 20 69 6e 74  a nested key int
4820: 6f 20 73 61 6d 70 6c 65 2d 6b 65 79 0a 20 20 20  o sample-key.   
4830: 20 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20 63   sample-key >o c
4840: 2d 73 74 61 74 65 20 6f 66 66 20 20 73 69 6d 2d  -state off  sim-
4850: 6e 69 63 6b 21 20 6f 6e 0a 20 20 20 20 70 6b 32  nick! on.    pk2
4860: 2d 73 69 67 3f 20 21 21 73 69 67 21 21 20 73 69  -sig? !!sig!! si
4870: 67 70 6b 32 73 69 7a 65 23 20 2d 20 32 64 75 70  gpk2size# - 2dup
4880: 20 2b 20 3e 72 20 64 6f 2d 6e 65 73 74 73 69 67   + >r do-nestsig
4890: 0a 20 20 20 20 72 40 20 6b 65 79 73 69 7a 65 32  .    r@ keysize2
48a0: 20 6b 65 2d 70 6b 20 24 21 0a 20 20 20 20 72 3e   ke-pk $!.    r>
48b0: 20 6b 65 79 73 69 7a 65 32 20 2b 20 73 69 67 73   keysize2 + sigs
48c0: 69 7a 65 23 20 6b 65 2d 73 65 6c 66 73 69 67 20  ize# ke-selfsig 
48d0: 24 21 0a 20 20 20 20 6f 3e 20 20 73 69 6d 2d 6e  $!.    o>  sim-n
48e0: 69 63 6b 21 20 6f 66 66 20 3b 0a 0a 3a 20 2e 70  ick! off ;..: .p
48f0: 6b 32 6b 65 79 24 20 28 20 61 64 64 72 20 75 20  k2key$ ( addr u 
4900: 2d 2d 20 29 0a 20 20 20 20 72 65 61 64 2d 70 6b  -- ).    read-pk
4910: 32 6b 65 79 24 20 73 61 6d 70 6c 65 2d 6b 65 79  2key$ sample-key
4920: 20 3e 6f 20 2e 6b 65 79 2d 69 6e 76 69 74 65 20   >o .key-invite 
4930: 66 72 65 65 2d 6b 65 79 20 6f 3e 20 3b 0a 0a 5c  free-key o> ;..\
4940: 20 73 65 6c 65 63 74 20 6b 65 79 20 62 79 20 6e   select key by n
4950: 69 63 6b 0a 0a 3a 20 3e 72 61 77 2d 6b 65 79 20  ick..: >raw-key 
4960: 28 20 6f 20 2d 2d 20 29 0a 20 20 20 20 64 75 70  ( o -- ).    dup
4970: 20 30 3d 20 21 21 6e 6f 2d 6e 69 63 6b 21 21 20   0= !!no-nick!! 
4980: 3e 6f 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20  >o.    ke-pk $@ 
4990: 70 6b 63 20 73 77 61 70 20 70 6b 72 6b 23 20 75  pkc swap pkrk# u
49a0: 6d 69 6e 20 6d 6f 76 65 0a 20 20 20 20 6b 65 2d  min move.    ke-
49b0: 70 73 6b 20 73 65 63 40 20 6d 79 2d 30 6b 65 79  psk sec@ my-0key
49c0: 20 73 65 63 21 0a 20 20 20 20 6b 65 2d 73 6b 20   sec!.    ke-sk 
49d0: 73 65 63 40 20 73 6b 63 20 73 77 61 70 20 6b 65  sec@ skc swap ke
49e0: 79 7c 20 6d 6f 76 65 0a 20 20 20 20 3e 73 6b 73  y| move.    >sks
49f0: 69 67 20 6f 3e 20 3b 0a 0a 3a 20 3e 6b 65 79 20  ig o> ;..: >key 
4a00: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20  ( addr u -- ).  
4a10: 20 20 6b 65 79 2d 74 61 62 6c 65 20 40 20 30 3d    key-table @ 0=
4a20: 20 49 46 20 20 72 65 61 64 2d 6b 65 79 73 20 20   IF  read-keys  
4a30: 54 48 45 4e 0a 20 20 20 20 6e 69 63 6b 2d 6b 65  THEN.    nick-ke
4a40: 79 20 3e 72 61 77 2d 6b 65 79 20 3b 0a 0a 3a 20  y >raw-key ;..: 
4a50: 69 27 6d 20 28 20 22 6e 61 6d 65 22 20 2d 2d 20  i'm ( "name" -- 
4a60: 29 20 70 61 72 73 65 2d 6e 61 6d 65 20 3e 6b 65  ) parse-name >ke
4a70: 79 20 3b 0a 3a 20 70 6b 27 20 28 20 22 6e 61 6d  y ;.: pk' ( "nam
4a80: 65 22 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20  e" -- addr u ). 
4a90: 20 20 20 70 61 72 73 65 2d 6e 61 6d 65 20 6e 69     parse-name ni
4aa0: 63 6b 3e 70 6b 20 3b 0a 0a 3a 20 64 65 73 74 2d  ck>pk ;..: dest-
4ab0: 6b 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20  key ( addr u -- 
4ac0: 29 20 64 75 70 20 30 3d 20 49 46 20 20 32 64 72  ) dup 0= IF  2dr
4ad0: 6f 70 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20  op  EXIT  THEN. 
4ae0: 20 20 20 6e 69 63 6b 2d 6b 65 79 20 3e 6f 20 6f     nick-key >o o
4af0: 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65   0= !!unknown-ke
4b00: 79 21 21 0a 20 20 20 20 6b 65 2d 70 73 6b 20 73  y!!.    ke-psk s
4b10: 65 63 40 20 73 74 61 74 65 23 20 75 6d 69 6e 0a  ec@ state# umin.
4b20: 20 20 20 20 6b 65 2d 70 6b 20 24 40 20 6b 65 79      ke-pk $@ key
4b30: 7c 20 6f 3e 0a 20 20 20 20 70 75 62 6b 65 79 20  | o>.    pubkey 
4b40: 24 21 20 20 64 65 73 74 2d 30 6b 65 79 20 73 65  $!  dest-0key se
4b50: 63 21 20 3b 0a 0a 3a 20 64 65 73 74 2d 70 6b 20  c! ;..: dest-pk 
4b60: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 6b 65  ( addr u -- ) ke
4b70: 79 32 7c 20 32 64 75 70 20 6b 65 79 2d 74 61 62  y2| 2dup key-tab
4b80: 6c 65 20 23 40 20 30 3d 20 49 46 0a 09 64 72 6f  le #@ 0= IF..dro
4b90: 70 20 6b 65 79 7c 20 70 75 62 6b 65 79 20 24 21  p key| pubkey $!
4ba0: 0a 20 20 20 20 45 4c 53 45 20 20 63 65 6c 6c 2b  .    ELSE  cell+
4bb0: 20 3e 6f 0a 09 6b 65 2d 70 73 6b 20 73 65 63 40   >o..ke-psk sec@
4bc0: 20 73 74 61 74 65 23 20 75 6d 69 6e 0a 09 6b 65   state# umin..ke
4bd0: 2d 70 6b 20 24 40 20 6b 65 79 7c 20 6f 3e 0a 09  -pk $@ key| o>..
4be0: 70 75 62 6b 65 79 20 24 21 20 20 64 65 73 74 2d  pubkey $!  dest-
4bf0: 30 6b 65 79 20 73 65 63 21 20 20 54 48 45 4e 20  0key sec!  THEN 
4c00: 3b 0a 0a 3a 20 72 65 70 6c 61 63 65 2d 6b 65 79  ;..: replace-key
4c10: 20 31 20 2f 73 74 72 69 6e 67 20 7b 20 72 65 76   1 /string { rev
4c20: 2d 61 64 64 72 20 75 20 2d 2d 20 6f 20 7d 20 5c  -addr u -- o } \
4c30: 20 72 65 76 6f 63 61 74 69 6f 6e 20 74 69 63 6b   revocation tick
4c40: 65 74 0a 20 20 20 20 6b 65 79 28 20 2e 22 20 52  et.    key( ." R
4c50: 65 70 6c 61 63 65 3a 22 20 63 72 20 6f 20 63 65  eplace:" cr o ce
4c60: 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 0a 20 20 20  ll- 0 .key ).   
4c70: 20 69 6d 70 6f 72 74 23 73 65 6c 66 20 69 6d 70   import#self imp
4c80: 6f 72 74 2d 74 79 70 65 20 21 0a 20 20 20 20 73  ort-type !.    s
4c90: 22 20 23 72 65 76 6f 6b 65 64 22 20 64 75 70 20  " #revoked" dup 
4ca0: 3e 72 20 6b 65 2d 6e 69 63 6b 20 24 2b 21 0a 20  >r ke-nick $+!. 
4cb0: 20 20 20 6b 65 2d 6e 69 63 6b 20 24 40 20 72 3e     ke-nick $@ r>
4cc0: 20 2d 20 6b 65 2d 70 72 6f 66 20 24 40 20 6b 65   - ke-prof $@ ke
4cd0: 2d 70 73 6b 20 73 65 63 40 20 6b 65 2d 73 69 67  -psk sec@ ke-sig
4ce0: 73 20 6b 65 2d 74 79 70 65 20 40 0a 20 20 20 20  s ke-type @.    
4cf0: 72 65 76 2d 61 64 64 72 20 70 6b 72 6b 23 20 6b  rev-addr pkrk# k
4d00: 65 79 3f 6e 65 77 20 3e 6f 0a 20 20 20 20 6b 65  ey?new >o.    ke
4d10: 2d 74 79 70 65 20 21 20 5b 3a 20 6b 65 2d 73 69  -type ! [: ke-si
4d20: 67 73 20 24 2b 5b 5d 21 20 3b 5d 20 24 5b 5d 6d  gs $+[]! ;] $[]m
4d30: 61 70 20 6b 65 2d 70 73 6b 20 73 65 63 21 20 6b  ap ke-psk sec! k
4d40: 65 2d 70 72 6f 66 20 24 21 20 6b 65 2d 6e 69 63  e-prof $! ke-nic
4d50: 6b 20 24 21 0a 20 20 20 20 72 65 76 2d 61 64 64  k $!.    rev-add
4d60: 72 20 70 6b 72 6b 23 20 6b 65 2d 70 6b 20 24 21  r pkrk# ke-pk $!
4d70: 0a 20 20 20 20 72 65 76 2d 61 64 64 72 20 75 20  .    rev-addr u 
4d80: 2b 20 31 2d 20 64 75 70 20 63 40 20 32 2a 20 2d  + 1- dup c@ 2* -
4d90: 20 24 31 30 20 2d 20 24 31 30 20 6b 65 2d 73 65   $10 - $10 ke-se
4da0: 6c 66 73 69 67 20 24 21 0a 20 20 20 20 6b 65 79  lfsig $!.    key
4db0: 28 20 2e 22 20 77 69 74 68 3a 22 20 63 72 20 6f  ( ." with:" cr o
4dc0: 20 63 65 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 20   cell- 0 .key ) 
4dd0: 6f 20 6f 3e 0a 20 20 20 20 69 6d 70 6f 72 74 23  o o>.    import#
4de0: 75 6e 74 72 75 73 74 65 64 20 69 6d 70 6f 72 74  untrusted import
4df0: 2d 74 79 70 65 20 21 20 3b 0a 0a 3a 20 72 65 6e  -type ! ;..: ren
4e00: 65 77 2d 6b 65 79 20 28 20 72 65 76 61 64 64 72  ew-key ( revaddr
4e10: 20 75 31 20 6b 65 79 61 64 64 72 20 75 32 20 2d   u1 keyaddr u2 -
4e20: 2d 20 6f 20 29 0a 20 20 20 20 63 75 72 72 65 6e  - o ).    curren
4e30: 74 2d 6b 65 79 20 3e 6f 20 72 65 70 6c 61 63 65  t-key >o replace
4e40: 2d 6b 65 79 20 6f 3e 0a 20 20 20 20 3e 6f 20 73  -key o>.    >o s
4e50: 6b 63 20 6b 65 79 73 69 7a 65 20 6b 65 2d 73 6b  kc keysize ke-sk
4e60: 20 73 65 63 21 20 6f 20 6f 3e 20 3b 0a 0a 5c 20   sec! o o> ;..\ 
4e70: 72 65 76 6f 6b 61 74 69 6f 6e 0a 0a 34 20 64 61  revokation..4 da
4e80: 74 65 73 69 7a 65 23 20 2b 20 6b 65 79 73 69 7a  tesize# + keysiz
4e90: 65 20 39 20 2a 20 2b 20 43 6f 6e 73 74 61 6e 74  e 9 * + Constant
4ea0: 20 72 65 76 73 69 7a 65 23 0a 0a 56 61 72 69 61   revsize#..Varia
4eb0: 62 6c 65 20 72 65 76 74 6f 6b 65 6e 0a 0a 3a 20  ble revtoken..: 
4ec0: 30 6f 6c 64 6b 65 79 20 28 20 2d 2d 20 29 20 5c  0oldkey ( -- ) \
4ed0: 20 70 75 62 6b 65 79 73 20 63 61 6e 20 73 74 61   pubkeys can sta
4ee0: 79 0a 20 20 20 20 6f 6c 64 73 6b 63 20 6b 65 79  y.    oldskc key
4ef0: 73 69 7a 65 20 65 72 61 73 65 20 20 6f 6c 64 73  size erase  olds
4f00: 6b 72 65 76 20 6b 65 79 73 69 7a 65 20 65 72 61  krev keysize era
4f10: 73 65 20 3b 0a 0a 3a 20 6b 65 79 6d 6f 76 65 20  se ;..: keymove 
4f20: 28 20 61 64 64 72 31 20 61 64 64 72 32 20 2d 2d  ( addr1 addr2 --
4f30: 20 29 20 20 6b 65 79 73 69 7a 65 20 6d 6f 76 65   )  keysize move
4f40: 20 3b 0a 0a 3a 20 72 65 76 6f 6b 65 2d 76 65 72   ;..: revoke-ver
4f50: 69 66 79 20 28 20 61 64 64 72 20 75 31 20 70 6b  ify ( addr u1 pk
4f60: 20 73 74 72 69 6e 67 20 75 32 20 2d 2d 20 61 64   string u2 -- ad
4f70: 64 72 20 75 20 66 6c 61 67 20 29 20 72 6f 74 20  dr u flag ) rot 
4f80: 3e 72 20 32 3e 72 20 63 3a 30 6b 65 79 0a 20 20  >r 2>r c:0key.  
4f90: 20 20 73 69 67 6f 6e 6c 79 73 69 7a 65 23 20 2d    sigonlysize# -
4fa0: 20 32 64 75 70 20 32 72 3e 20 3e 6b 65 79 65 64   2dup 2r> >keyed
4fb0: 2d 68 61 73 68 0a 20 20 20 20 73 69 67 64 61 74  -hash.    sigdat
4fc0: 65 20 2b 64 61 74 65 0a 20 20 20 20 32 64 75 70  e +date.    2dup
4fd0: 20 2b 20 72 3e 20 65 64 2d 76 65 72 69 66 79 20   + r> ed-verify 
4fe0: 3b 0a 0a 3a 20 3e 72 65 76 6f 6b 65 20 28 20 73  ;..: >revoke ( s
4ff0: 6b 72 65 76 20 2d 2d 20 29 20 20 73 6b 72 65 76  krev -- )  skrev
5000: 20 6b 65 79 6d 6f 76 65 20 20 63 68 65 63 6b 2d   keymove  check-
5010: 72 65 76 3f 20 30 3d 20 21 21 6e 6f 74 2d 6d 79  rev? 0= !!not-my
5020: 2d 72 65 76 73 6b 21 21 20 3b 0a 0a 3a 20 2b 72  -revsk!! ;..: +r
5030: 65 76 73 69 67 6e 20 28 20 73 6b 20 70 6b 20 2d  evsign ( sk pk -
5040: 2d 20 29 20 20 73 6b 73 69 67 20 2d 72 6f 74 20  - )  sksig -rot 
5050: 65 64 2d 73 69 67 6e 20 72 65 76 74 6f 6b 65 6e  ed-sign revtoken
5060: 20 24 2b 21 20 62 6c 20 72 65 76 74 6f 6b 65 6e   $+! bl revtoken
5070: 20 63 24 2b 21 20 3b 0a 0a 3a 20 73 69 67 6e 2d   c$+! ;..: sign-
5080: 74 6f 6b 65 6e 2c 20 28 20 73 6b 20 70 6b 20 73  token, ( sk pk s
5090: 74 72 69 6e 67 20 75 32 20 2d 2d 20 29 0a 20 20  tring u2 -- ).  
50a0: 20 20 63 3a 30 6b 65 79 20 72 65 76 74 6f 6b 65    c:0key revtoke
50b0: 6e 20 24 40 20 32 73 77 61 70 20 3e 6b 65 79 65  n $@ 2swap >keye
50c0: 64 2d 68 61 73 68 0a 20 20 20 20 73 69 67 64 61  d-hash.    sigda
50d0: 74 65 20 2b 64 61 74 65 20 2b 72 65 76 73 69 67  te +date +revsig
50e0: 6e 20 3b 0a 0a 3a 20 72 65 76 6f 6b 65 2d 6b 65  n ;..: revoke-ke
50f0: 79 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a  y ( -- addr u ).
5100: 20 20 20 20 73 6b 63 20 6f 6c 64 73 6b 63 20 6b      skc oldskc k
5110: 65 79 6d 6f 76 65 20 20 70 6b 63 20 6f 6c 64 70  eymove  pkc oldp
5120: 6b 63 20 6b 65 79 6d 6f 76 65 20 20 73 6b 72 65  kc keymove  skre
5130: 76 20 6f 6c 64 73 6b 72 65 76 20 6b 65 79 6d 6f  v oldskrev keymo
5140: 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ve.             
5150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 20                \ 
5170: 62 61 63 6b 75 70 20 6b 65 79 73 0a 20 20 20 20  backup keys.    
5180: 6f 6c 64 73 6b 72 65 76 20 6f 6c 64 70 6b 72 65  oldskrev oldpkre
5190: 76 20 73 6b 3e 70 6b 20 20 20 20 20 20 20 20 20  v sk>pk         
51a0: 20 20 20 20 20 20 20 5c 20 67 65 6e 65 72 61 74         \ generat
51b0: 65 20 72 65 76 6f 6b 61 74 69 6f 6e 20 70 75 62  e revokation pub
51c0: 6b 65 79 0a 20 20 20 20 67 65 6e 2d 6b 65 79 73  key.    gen-keys
51d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
51e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c                 \
51f0: 20 67 65 6e 65 72 61 74 65 20 6e 65 77 20 6b 65   generate new ke
5200: 79 73 0a 20 20 20 20 70 6b 63 20 6b 65 79 73 69  ys.    pkc keysi
5210: 7a 65 32 20 72 65 76 74 6f 6b 65 6e 20 24 21 20  ze2 revtoken $! 
5220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 20                \ 
5230: 6d 79 20 6e 65 77 20 6b 65 79 0a 20 20 20 20 6f  my new key.    o
5240: 6c 64 70 6b 72 65 76 20 6b 65 79 73 69 7a 65 20  ldpkrev keysize 
5250: 72 65 76 74 6f 6b 65 6e 20 24 2b 21 20 20 20 20  revtoken $+!    
5260: 20 20 20 20 20 20 5c 20 72 65 76 6f 6b 65 20 74        \ revoke t
5270: 6f 6b 65 6e 0a 20 20 20 20 6f 6c 64 73 6b 72 65  oken.    oldskre
5280: 76 20 6f 6c 64 70 6b 72 65 76 20 22 72 65 76 6f  v oldpkrev "revo
5290: 6b 65 22 20 73 69 67 6e 2d 74 6f 6b 65 6e 2c 20  ke" sign-token, 
52a0: 5c 20 72 65 76 6f 6b 65 20 73 69 67 6e 61 74 75  \ revoke signatu
52b0: 72 65 0a 20 20 20 20 73 6b 63 20 70 6b 63 20 22  re.    skc pkc "
52c0: 73 65 6c 66 73 69 67 6e 22 20 73 69 67 6e 2d 74  selfsign" sign-t
52d0: 6f 6b 65 6e 2c 20 20 20 20 20 20 20 20 20 5c 20  oken,         \ 
52e0: 73 65 6c 66 20 73 69 67 6e 65 64 20 77 69 74 68  self signed with
52f0: 20 6e 65 77 20 6b 65 79 0a 20 20 20 20 22 21 22   new key.    "!"
5300: 20 72 65 76 74 6f 6b 65 6e 20 30 20 24 69 6e 73   revtoken 0 $ins
5310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5320: 20 20 20 20 5c 20 22 21 22 20 2b 20 6f 6c 64 6b      \ "!" + oldk
5330: 65 79 6c 65 6e 2b 6e 65 77 6b 65 79 6c 65 6e 20  eylen+newkeylen 
5340: 74 6f 20 66 6c 61 67 20 72 65 76 6f 6b 61 74 69  to flag revokati
5350: 6f 6e 0a 20 20 20 20 72 65 76 74 6f 6b 65 6e 20  on.    revtoken 
5360: 24 40 20 67 65 6e 3e 68 6f 73 74 20 32 64 72 6f  $@ gen>host 2dro
5370: 70 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 20  p             \ 
5380: 73 69 67 6e 20 68 6f 73 74 20 69 6e 66 6f 72 6d  sign host inform
5390: 61 74 69 6f 6e 20 77 69 74 68 20 6f 6c 64 20 6b  ation with old k
53a0: 65 79 0a 20 20 20 20 73 69 67 64 61 74 65 20 2b  ey.    sigdate +
53b0: 64 61 74 65 20 73 69 67 64 61 74 65 20 64 61 74  date sigdate dat
53c0: 65 73 69 7a 65 23 20 72 65 76 74 6f 6b 65 6e 20  esize# revtoken 
53d0: 24 2b 21 0a 20 20 20 20 6f 6c 64 73 6b 63 20 6f  $+!.    oldskc o
53e0: 6c 64 70 6b 63 20 2b 72 65 76 73 69 67 6e 0a 20  ldpkc +revsign. 
53f0: 20 20 20 30 6f 6c 64 6b 65 79 20 72 65 76 74 6f     0oldkey revto
5400: 6b 65 6e 20 24 40 20 3b 0a 0a 5c 20 69 6e 76 69  ken $@ ;..\ invi
5410: 74 61 74 69 6f 6e 0a 0a 56 61 72 69 61 62 6c 65  tation..Variable
5420: 20 69 6e 76 69 74 61 74 69 6f 6e 73 0a 56 61 72   invitations.Var
5430: 69 61 62 6c 65 20 62 6c 6f 63 6b 2d 74 61 62 6c  iable block-tabl
5440: 65 0a 0a 65 76 65 6e 74 3a 20 2d 3e 69 6e 76 69  e..event: ->invi
5450: 74 65 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29  te ( addr u -- )
5460: 0a 20 20 20 20 2e 22 20 69 6e 76 69 74 65 20 6d  .    ." invite m
5470: 65 3a 20 22 20 6f 76 65 72 20 3e 72 20 2e 70 6b  e: " over >r .pk
5480: 32 6b 65 79 24 20 72 3e 20 66 72 65 65 20 74 68  2key$ r> free th
5490: 72 6f 77 20 63 74 72 6c 20 4c 20 69 6e 73 6b 65  row ctrl L inske
54a0: 79 20 3b 0a 65 76 65 6e 74 3a 20 2d 3e 77 61 6b  y ;.event: ->wak
54b0: 65 6d 65 20 28 20 6f 20 2d 2d 20 29 20 3c 65 76  eme ( o -- ) <ev
54c0: 65 6e 74 20 2d 3e 77 61 6b 65 20 65 76 65 6e 74  ent ->wake event
54d0: 3e 20 3b 0a 0a 3a 20 70 6b 32 6b 65 79 24 2d 61  > ;..: pk2key$-a
54e0: 64 64 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29  dd ( addr u -- )
54f0: 0a 20 20 20 20 73 61 6d 70 6c 65 2d 6b 65 79 20  .    sample-key 
5500: 3e 6f 20 69 6d 70 6f 72 74 23 69 6e 76 69 74 65  >o import#invite
5510: 64 20 69 6d 70 6f 72 74 2d 74 79 70 65 20 21 20  d import-type ! 
5520: 63 6d 64 3a 6e 65 73 74 73 69 67 20 6f 3e 0a 20  cmd:nestsig o>. 
5530: 20 20 20 69 6d 70 6f 72 74 23 75 6e 74 72 75 73     import#untrus
5540: 74 65 64 20 69 6d 70 6f 72 74 2d 74 79 70 65 20  ted import-type 
5550: 21 20 20 73 61 76 65 2d 70 75 62 6b 65 79 73 20  !  save-pubkeys 
5560: 3b 0a 0a 3a 20 62 6c 6f 63 6b 2d 61 64 64 20 28  ;..: block-add (
5570: 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20   addr u -- ).   
5580: 20 73 69 67 70 6b 32 73 69 7a 65 23 20 2d 20 2b   sigpk2size# - +
5590: 20 6b 65 79 73 69 7a 65 20 32 64 75 70 20 62 6c   keysize 2dup bl
55a0: 6f 63 6b 2d 74 61 62 6c 65 20 23 21 0a 20 20 20  ock-table #!.   
55b0: 20 28 20 74 62 64 3a 20 73 61 76 65 2d 62 6c 6f   ( tbd: save-blo
55c0: 63 6b 6c 69 73 74 20 29 20 3b 0a 0a 3a 20 70 72  cklist ) ;..: pr
55d0: 6f 63 65 73 73 2d 69 6e 76 69 74 61 74 69 6f 6e  ocess-invitation
55e0: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20   ( addr u -- ). 
55f0: 20 20 20 6b 65 79 20 63 61 73 65 0a 09 27 79 27     key case..'y'
5600: 20 6f 66 20 20 70 6b 32 6b 65 79 24 2d 61 64 64   of  pk2key$-add
5610: 20 2e 22 20 61 64 64 65 64 22 20 20 20 20 65 6e   ." added"    en
5620: 64 6f 66 0a 09 27 6e 27 20 6f 66 20 20 32 64 72  dof..'n' of  2dr
5630: 6f 70 20 20 20 20 20 20 20 2e 22 20 69 67 6e 6f  op       ." igno
5640: 72 65 64 22 20 20 65 6e 64 6f 66 0a 09 27 62 27  red"  endof..'b'
5650: 20 6f 66 20 20 62 6c 6f 63 6b 2d 61 64 64 20 20   of  block-add  
5660: 20 2e 22 20 62 6c 6f 63 6b 65 64 22 20 20 65 6e   ." blocked"  en
5670: 64 6f 66 0a 09 32 64 72 6f 70 0a 20 20 20 20 65  dof..2drop.    e
5680: 6e 64 63 61 73 65 20 3b 0a 0a 3a 20 66 69 6c 74  ndcase ;..: filt
5690: 65 72 2d 69 6e 76 69 74 61 74 69 6f 6e 3f 20 28  er-invitation? (
56a0: 20 61 64 64 72 20 75 20 2d 2d 20 66 6c 61 67 20   addr u -- flag 
56b0: 29 0a 20 20 20 20 73 69 67 70 6b 32 73 69 7a 65  ).    sigpk2size
56c0: 23 20 2d 20 2b 0a 20 20 20 20 64 75 70 20 6b 65  # - +.    dup ke
56d0: 79 73 69 7a 65 20 62 6c 6f 63 6b 2d 74 61 62 6c  ysize block-tabl
56e0: 65 20 23 40 20 6e 69 70 20 6b 65 79 73 69 7a 65  e #@ nip keysize
56f0: 20 3d 0a 20 20 20 20 49 46 20 64 72 6f 70 20 74   =.    IF drop t
5700: 72 75 65 20 20 45 58 49 54 20 20 54 48 45 4e 0a  rue  EXIT  THEN.
5710: 20 20 20 20 6b 65 79 73 69 7a 65 20 6b 65 79 2d      keysize key-
5720: 74 61 62 6c 65 20 23 40 20 64 30 3c 3e 20 3b 20  table #@ d0<> ; 
5730: 5c 20 61 6c 72 65 61 64 79 20 74 68 65 72 65 0a  \ already there.
5740: 0a 3a 20 2e 69 6e 76 69 74 61 74 69 6f 6e 73 20  .: .invitations 
5750: 28 20 2d 2d 20 29 0a 20 20 20 20 69 6e 76 69 74  ( -- ).    invit
5760: 61 74 69 6f 6e 73 20 5b 3a 20 2e 22 20 69 6e 76  ations [: ." inv
5770: 69 74 65 20 28 79 2f 6e 2f 62 29 3f 20 22 20 32  ite (y/n/b)? " 2
5780: 64 75 70 20 2e 70 6b 32 6b 65 79 24 20 70 72 6f  dup .pk2key$ pro
5790: 63 65 73 73 2d 69 6e 76 69 74 61 74 69 6f 6e 0a  cess-invitation.
57a0: 20 20 20 20 3b 5d 20 24 5b 5d 6d 61 70 20 20 69      ;] $[]map  i
57b0: 6e 76 69 74 61 74 69 6f 6e 73 20 24 5b 5d 6f 66  nvitations $[]of
57c0: 66 20 3b 0a 0a 3a 6e 6f 6e 61 6d 65 20 28 20 61  f ;..:noname ( a
57d0: 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 32  ddr u -- ).    2
57e0: 64 75 70 20 66 69 6c 74 65 72 2d 69 6e 76 69 74  dup filter-invit
57f0: 61 74 69 6f 6e 3f 20 49 46 20 20 32 64 72 6f 70  ation? IF  2drop
5800: 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20   EXIT  THEN.    
5810: 32 64 75 70 20 69 6e 76 69 74 61 74 69 6f 6e 73  2dup invitations
5820: 20 24 69 6e 73 5b 5d 73 69 67 20 73 61 76 65 2d   $ins[]sig save-
5830: 6d 65 6d 20 5b 20 75 70 40 20 5d 6c 20 3c 68 69  mem [ up@ ]l <hi
5840: 64 65 3e 0a 20 20 20 20 3c 65 76 65 6e 74 20 65  de>.    <event e
5850: 24 2c 20 2d 3e 69 6e 76 69 74 65 20 75 70 40 20  $, ->invite up@ 
5860: 65 6c 69 74 2c 20 2d 3e 77 61 6b 65 6d 65 20 5b  elit, ->wakeme [
5870: 20 75 70 40 20 5d 6c 20 65 76 65 6e 74 3e 20 73   up@ ]l event> s
5880: 74 6f 70 0a 3b 20 69 73 20 3e 69 6e 76 69 74 61  top.; is >invita
5890: 74 69 6f 6e 73 0a 3a 20 73 65 6e 64 2d 69 6e 76  tions.: send-inv
58a0: 69 74 61 74 69 6f 6e 20 28 20 70 6b 20 75 20 2d  itation ( pk u -
58b0: 2d 20 29 0a 20 20 20 20 73 65 74 75 70 21 20 6d  - ).    setup! m
58c0: 79 70 6b 32 6e 69 63 6b 24 20 32 3e 72 0a 20 20  ypk2nick$ 2>r.  
58d0: 20 20 67 65 6e 2d 74 6d 70 6b 65 79 73 20 64 72    gen-tmpkeys dr
58e0: 6f 70 20 74 73 6b 63 20 73 77 61 70 20 6b 65 79  op tskc swap key
58f0: 70 61 64 20 65 64 2d 64 68 20 64 6f 2d 6b 65 79  pad ed-dh do-key
5900: 70 61 64 20 73 65 63 21 0a 20 20 20 20 6e 65 74  pad sec!.    net
5910: 32 6f 2d 63 6f 64 65 30 0a 20 20 20 20 74 70 6b  2o-code0.    tpk
5920: 63 20 6b 65 79 73 69 7a 65 20 24 2c 20 6f 6e 65  c keysize $, one
5930: 73 68 6f 74 2d 74 6d 70 6b 65 79 0a 20 20 20 20  shot-tmpkey.    
5940: 6e 65 73 74 5b 20 32 72 3e 20 24 2c 20 69 6e 76  nest[ 2r> $, inv
5950: 69 74 65 20 5d 74 6d 70 6e 65 73 74 0a 20 20 20  ite ]tmpnest.   
5960: 20 63 6f 6f 6b 69 65 2b 72 65 71 75 65 73 74 0a   cookie+request.
5970: 20 20 20 20 65 6e 64 2d 63 6f 64 65 7c 20 3b 0a      end-code| ;.
5980: 0a 30 20 5b 49 46 5d 0a 4c 6f 63 61 6c 20 56 61  .0 [IF].Local Va
5990: 72 69 61 62 6c 65 73 3a 0a 66 6f 72 74 68 2d 6c  riables:.forth-l
59a0: 6f 63 61 6c 2d 77 6f 72 64 73 3a 0a 20 20 20 20  ocal-words:.    
59b0: 28 0a 20 20 20 20 20 28 28 22 6e 65 74 32 6f 3a  (.     (("net2o:
59c0: 22 20 22 2b 6e 65 74 32 6f 3a 22 29 20 64 65 66  " "+net2o:") def
59d0: 69 6e 69 74 69 6f 6e 2d 73 74 61 72 74 65 72 20  inition-starter 
59e0: 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f  (font-lock-keywo
59f0: 72 64 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 20  rd-face . 1).   
5a00: 20 20 20 22 5b 20 5c 74 5c 6e 5d 22 20 74 20 6e     "[ \t\n]" t n
5a10: 61 6d 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 66  ame (font-lock-f
5a20: 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 61 63  unction-name-fac
5a30: 65 20 2e 20 33 29 29 0a 20 20 20 20 20 28 28 22  e . 3)).     (("
5a40: 64 65 62 75 67 3a 22 20 22 66 69 65 6c 64 3a 22  debug:" "field:"
5a50: 20 22 32 66 69 65 6c 64 3a 22 20 22 73 66 66 69   "2field:" "sffi
5a60: 65 6c 64 3a 22 20 22 64 66 66 69 65 6c 64 3a 22  eld:" "dffield:"
5a70: 20 22 36 34 66 69 65 6c 64 3a 22 20 22 75 76 61   "64field:" "uva
5a80: 72 22 20 22 75 76 61 6c 75 65 22 29 20 6e 6f 6e  r" "uvalue") non
5a90: 2d 69 6d 6d 65 64 69 61 74 65 20 28 66 6f 6e 74  -immediate (font
5aa0: 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 20  -lock-type-face 
5ab0: 2e 20 32 29 0a 20 20 20 20 20 20 22 5b 20 5c 74  . 2).      "[ \t
5ac0: 5c 6e 5d 22 20 74 20 6e 61 6d 65 20 28 66 6f 6e  \n]" t name (fon
5ad0: 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d  t-lock-variable-
5ae0: 6e 61 6d 65 2d 66 61 63 65 20 2e 20 33 29 29 0a  name-face . 3)).
5af0: 20 20 20 20 20 28 22 5b 61 2d 7a 30 2d 39 5d 2b       ("[a-z0-9]+
5b00: 28 22 20 69 6d 6d 65 64 69 61 74 65 20 28 66 6f  (" immediate (fo
5b10: 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d  nt-lock-comment-
5b20: 66 61 63 65 20 2e 20 31 29 0a 20 20 20 20 20 20  face . 1).      
5b30: 22 29 22 20 6e 69 6c 20 63 6f 6d 6d 65 6e 74 20  ")" nil comment 
5b40: 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65  (font-lock-comme
5b50: 6e 74 2d 66 61 63 65 20 2e 20 31 29 29 0a 20 20  nt-face . 1)).  
5b60: 20 20 29 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c 2d    ).forth-local-
5b70: 69 6e 64 65 6e 74 2d 77 6f 72 64 73 3a 0a 20 20  indent-words:.  
5b80: 20 20 28 0a 20 20 20 20 20 28 28 22 6e 65 74 32    (.     (("net2
5b90: 6f 3a 22 20 22 2b 6e 65 74 32 6f 3a 22 29 20 28  o:" "+net2o:") (
5ba0: 30 20 2e 20 32 29 20 28 30 20 2e 20 32 29 20 6e  0 . 2) (0 . 2) n
5bb0: 6f 6e 2d 69 6d 6d 65 64 69 61 74 65 29 0a 20 20  on-immediate).  
5bc0: 20 20 20 28 28 22 5b 3a 22 20 22 6b 65 79 3a 63     (("[:" "key:c
5bd0: 6f 64 65 22 29 20 28 30 20 2e 20 31 29 20 28 30  ode") (0 . 1) (0
5be0: 20 2e 20 31 29 20 69 6d 6d 65 64 69 61 74 65 29   . 1) immediate)
5bf0: 0a 20 20 20 20 20 28 28 22 3b 5d 22 20 22 65 6e  .     ((";]" "en
5c00: 64 3a 6b 65 79 22 29 20 28 2d 31 20 2e 20 30 29  d:key") (-1 . 0)
5c10: 20 28 30 20 2e 20 2d 31 29 20 69 6d 6d 65 64 69   (0 . -1) immedi
5c20: 61 74 65 29 0a 20 20 20 20 29 0a 45 6e 64 3a 0a  ate).    ).End:.
5c30: 5b 54 48 45 4e 5d                                [THEN]