Hex Artifact Content
Not logged in

Artifact 8f5d74509dfd488e8e3a284c42bc8acb16af709e:


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: 64 75 70 20 65 73 63 2d 73 74 61 74 65 20 40 20  dup esc-state @ 
0520: 49 46 20 20 6f 6c 64 2d 65 6d 69 74 0a 20 20 20  IF  old-emit.   
0530: 20 45 4c 53 45 20 20 24 43 30 20 24 38 30 20 77   ELSE  $C0 $80 w
0540: 69 74 68 69 6e 20 49 46 0a 09 20 20 20 20 5b 20  ithin IF..    [ 
0550: 70 77 2a 20 27 20 78 65 6d 69 74 20 24 74 6d 70  pw* ' xemit $tmp
0560: 0a 09 20 20 20 20 62 6f 75 6e 64 73 20 5b 3f 44  ..    bounds [?D
0570: 4f 5d 20 5b 49 5d 20 63 40 20 5d 4c 20 6f 6c 64  O] [I] c@ ]L old
0580: 2d 65 6d 69 74 20 5b 20 5b 4c 4f 4f 50 5d 20 5d  -emit [ [LOOP] ]
0590: 0a 09 54 48 45 4e 0a 20 20 20 20 54 48 45 4e 0a  ..THEN.    THEN.
05a0: 20 20 20 20 74 6f 75 70 70 65 72 20 27 41 27 20      toupper 'A' 
05b0: 27 5b 27 20 77 69 74 68 69 6e 20 49 46 20 20 65  '[' within IF  e
05c0: 73 63 2d 73 74 61 74 65 20 6f 66 66 20 20 54 48  sc-state off  TH
05d0: 45 4e 20 3b 0a 0a 3a 20 74 79 70 65 2d 70 77 2a  EN ;..: type-pw*
05e0: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 20   ( addr u -- )  
05f0: 32 64 75 70 20 62 6c 20 73 6b 69 70 20 6e 69 70  2dup bl skip nip
0600: 20 30 3d 0a 20 20 20 20 49 46 20 20 20 20 62 6f   0=.    IF    bo
0610: 75 6e 64 73 20 55 2b 44 4f 20 20 62 6c 20 6f 6c  unds U+DO  bl ol
0620: 64 2d 65 6d 69 74 20 20 20 20 4c 4f 4f 50 0a 20  d-emit    LOOP. 
0630: 20 20 20 45 4c 53 45 20 20 62 6f 75 6e 64 73 20     ELSE  bounds 
0640: 55 2b 44 4f 20 20 49 20 63 40 20 65 6d 69 74 2d  U+DO  I c@ emit-
0650: 70 77 2a 20 20 4c 4f 4f 50 20 20 54 48 45 4e 20  pw*  LOOP  THEN 
0660: 3b 0a 0a 3a 20 61 63 63 65 70 74 2a 20 28 20 61  ;..: accept* ( a
0670: 64 64 72 20 75 20 2d 2d 20 75 27 20 29 0a 20 20  ddr u -- u' ).  
0680: 20 20 5c 47 20 61 63 63 65 70 74 2d 6c 69 6b 65    \G accept-like
0690: 20 69 6e 70 75 74 2c 20 62 75 74 20 74 79 70 65   input, but type
06a0: 73 20 2a 20 69 6e 73 74 65 61 64 20 6f 66 20 74  s * instead of t
06b0: 68 65 20 63 68 61 72 61 63 74 65 72 0a 20 20 20  he character.   
06c0: 20 5c 47 20 64 6f 6e 27 74 20 73 61 76 65 20 69   \G don't save i
06d0: 6e 74 6f 20 68 69 73 74 6f 72 79 0a 20 20 20 20  nto history.    
06e0: 68 69 73 74 6f 72 79 20 3e 72 20 20 77 68 61 74  history >r  what
06f0: 27 73 20 74 79 70 65 20 3e 72 20 20 77 68 61 74  's type >r  what
0700: 27 73 20 65 6d 69 74 20 69 73 20 6f 6c 64 2d 65  's emit is old-e
0710: 6d 69 74 0a 20 20 20 20 75 74 66 2d 38 2a 20 78  mit.    utf-8* x
0720: 63 2d 76 65 63 74 6f 72 20 21 40 20 3e 72 20 20  c-vector !@ >r  
0730: 5b 27 5d 20 74 79 70 65 2d 70 77 2a 20 69 73 20  ['] type-pw* is 
0740: 74 79 70 65 20 20 5b 27 5d 20 65 6d 69 74 2d 70  type  ['] emit-p
0750: 77 2a 20 69 73 20 65 6d 69 74 0a 20 20 20 20 30  w* is emit.    0
0760: 20 74 6f 20 68 69 73 74 6f 72 79 0a 20 20 20 20   to history.    
0770: 5b 27 5d 20 61 63 63 65 70 74 20 63 61 74 63 68  ['] accept catch
0780: 0a 20 20 20 20 72 3e 20 78 63 2d 76 65 63 74 6f  .    r> xc-vecto
0790: 72 20 21 20 20 77 68 61 74 27 73 20 6f 6c 64 2d  r !  what's old-
07a0: 65 6d 69 74 20 69 73 20 65 6d 69 74 20 20 72 3e  emit is emit  r>
07b0: 20 69 73 20 74 79 70 65 20 20 72 3e 20 74 6f 20   is type  r> to 
07c0: 68 69 73 74 6f 72 79 0a 20 20 20 20 74 68 72 6f  history.    thro
07d0: 77 20 22 5c 62 20 22 20 74 79 70 65 20 3b 0a 0a  w "\b " type ;..
07e0: 5c 20 4b 65 79 73 20 61 72 65 20 70 61 73 73 77  \ Keys are passw
07f0: 6f 72 64 73 20 61 6e 64 20 70 72 69 76 61 74 65  ords and private
0800: 20 6b 65 79 73 20 28 73 65 6c 66 2d 6b 65 79 65   keys (self-keye
0810: 64 2c 20 69 2e 65 2e 20 70 72 69 76 61 74 65 2a  d, i.e. private*
0820: 70 75 62 6c 69 63 20 6b 65 79 29 0a 0a 63 6d 64  public key)..cmd
0830: 2d 62 75 66 30 20 75 63 6c 61 73 73 20 63 6d 64  -buf0 uclass cmd
0840: 62 75 66 2d 6f 0a 20 20 20 20 6d 61 78 64 61 74  buf-o.    maxdat
0850: 61 20 2d 0a 20 20 20 20 6b 65 79 2d 73 61 6c 74  a -.    key-salt
0860: 23 20 75 76 61 72 20 6b 65 79 70 61 63 6b 0a 20  # uvar keypack. 
0870: 20 20 20 6b 65 79 70 61 63 6b 23 20 20 75 76 61     keypack#  uva
0880: 72 20 6b 65 79 70 61 63 6b 2d 62 75 66 0a 20 20  r keypack-buf.  
0890: 20 20 6b 65 79 2d 63 6b 73 75 6d 23 20 75 76 61    key-cksum# uva
08a0: 72 20 6b 65 79 70 61 63 6b 2d 63 68 6b 73 75 6d  r keypack-chksum
08b0: 0a 65 6e 64 2d 63 6c 61 73 73 20 63 6d 64 2d 6b  .end-class cmd-k
08c0: 65 79 62 75 66 2d 63 0a 0a 63 6d 64 2d 6b 65 79  eybuf-c..cmd-key
08d0: 62 75 66 2d 63 20 6e 65 77 20 63 6f 64 65 2d 6b  buf-c new code-k
08e0: 65 79 5e 20 21 0a 27 20 63 6f 64 65 2d 6b 65 79  ey^ !.' code-key
08f0: 5e 20 63 6d 64 62 75 66 3a 20 63 6f 64 65 2d 6b  ^ cmdbuf: code-k
0900: 65 79 0a 0a 63 6f 64 65 2d 6b 65 79 0a 63 6d 64  ey..code-key.cmd
0910: 30 6c 6f 63 6b 20 30 20 70 74 68 72 65 61 64 5f  0lock 0 pthread_
0920: 6d 75 74 65 78 5f 69 6e 69 74 20 64 72 6f 70 0a  mutex_init drop.
0930: 0a 3a 6e 6f 6e 61 6d 65 20 28 20 2d 2d 20 61 64  .:noname ( -- ad
0940: 64 72 20 75 20 29 20 6b 65 79 70 61 63 6b 2d 62  dr u ) keypack-b
0950: 75 66 20 63 6d 64 62 75 66 23 20 40 20 3b 20 74  uf cmdbuf# @ ; t
0960: 6f 20 63 6d 64 62 75 66 24 0a 3a 6e 6f 6e 61 6d  o cmdbuf$.:nonam
0970: 65 20 28 20 2d 2d 20 6e 20 29 20 20 6b 65 79 70  e ( -- n )  keyp
0980: 61 63 6b 23 20 63 6d 64 62 75 66 23 20 40 20 2d  ack# cmdbuf# @ -
0990: 20 3b 20 74 6f 20 6d 61 78 73 74 72 69 6e 67 0a   ; to maxstring.
09a0: 0a 63 6f 64 65 30 2d 62 75 66 0a 0a 3a 6e 6f 6e  .code0-buf..:non
09b0: 61 6d 65 20 64 65 66 65 72 73 20 61 6c 6c 6f 63  ame defers alloc
09c0: 2d 63 6f 64 65 2d 62 75 66 73 0a 20 20 20 20 63  -code-bufs.    c
09d0: 6d 64 2d 6b 65 79 62 75 66 2d 63 20 6e 65 77 20  md-keybuf-c new 
09e0: 63 6f 64 65 2d 6b 65 79 5e 20 21 20 3b 20 69 73  code-key^ ! ; is
09f0: 20 61 6c 6c 6f 63 2d 63 6f 64 65 2d 62 75 66 73   alloc-code-bufs
0a00: 0a 3a 6e 6f 6e 61 6d 65 20 64 65 66 65 72 73 20  .:noname defers 
0a10: 66 72 65 65 2d 63 6f 64 65 2d 62 75 66 73 0a 20  free-code-bufs. 
0a20: 20 20 20 63 6f 64 65 2d 6b 65 79 5e 20 40 20 2e     code-key^ @ .
0a30: 64 69 73 70 6f 73 65 20 3b 20 69 73 20 66 72 65  dispose ; is fre
0a40: 65 2d 63 6f 64 65 2d 62 75 66 73 0a 0a 5c 20 68  e-code-bufs..\ h
0a50: 61 73 68 65 64 20 6b 65 79 20 64 61 74 61 20 62  ashed key data b
0a60: 61 73 65 0a 0a 55 73 65 72 20 3e 73 74 6f 72 65  ase..User >store
0a70: 6b 65 79 0a 0a 63 6d 64 2d 63 6c 61 73 73 20 63  key..cmd-class c
0a80: 6c 61 73 73 0a 20 20 20 20 66 69 65 6c 64 3a 20  lass.    field: 
0a90: 6b 65 2d 73 6b 20 20 20 20 20 20 20 5c 20 73 65  ke-sk       \ se
0aa0: 63 72 65 74 20 6b 65 79 0a 20 20 20 20 66 69 65  cret key.    fie
0ab0: 6c 64 3a 20 6b 65 2d 70 6b 20 20 20 20 20 20 20  ld: ke-pk       
0ac0: 5c 20 70 75 62 6c 69 63 20 6b 65 79 0a 20 20 20  \ public key.   
0ad0: 20 66 69 65 6c 64 3a 20 6b 65 2d 74 79 70 65 20   field: ke-type 
0ae0: 20 20 20 20 5c 20 6b 65 79 20 74 79 70 65 0a 20      \ key type. 
0af0: 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 6e 69 63     field: ke-nic
0b00: 6b 20 20 20 20 20 5c 20 6b 65 79 20 6e 69 63 6b  k     \ key nick
0b10: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 6e  .    field: ke-n
0b20: 69 63 6b 23 20 20 20 20 5c 20 74 6f 20 61 76 6f  ick#    \ to avo
0b30: 69 64 20 63 6f 6c 69 73 73 69 6f 6e 73 2c 20 61  id colissions, a
0b40: 64 64 20 61 20 6e 75 6d 62 65 72 20 68 65 72 65  dd a number here
0b50: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 70  .    field: ke-p
0b60: 73 6b 20 20 20 20 20 20 5c 20 70 72 65 73 68 61  sk      \ presha
0b70: 72 65 64 20 6b 65 79 20 66 6f 72 20 73 74 61 74  red key for stat
0b80: 65 6c 65 73 73 20 63 6f 6d 6d 75 6e 69 63 61 74  eless communicat
0b90: 69 6f 6e 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b  ion.    field: k
0ba0: 65 2d 70 72 6f 66 20 20 20 20 20 5c 20 70 72 6f  e-prof     \ pro
0bb0: 66 69 6c 65 20 6f 62 6a 65 63 74 0a 20 20 20 20  file object.    
0bc0: 66 69 65 6c 64 3a 20 6b 65 2d 73 65 6c 66 73 69  field: ke-selfsi
0bd0: 67 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d  g.    field: ke-
0be0: 73 69 67 73 0a 20 20 20 20 66 69 65 6c 64 3a 20  sigs.    field: 
0bf0: 6b 65 2d 69 6d 70 6f 72 74 20 20 20 5c 20 74 79  ke-import   \ ty
0c00: 70 65 20 6f 66 20 6b 65 79 20 69 6d 70 6f 72 74  pe of key import
0c10: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73  .    field: ke-s
0c20: 74 6f 72 65 6b 65 79 20 5c 20 75 73 65 64 20 74  torekey \ used t
0c30: 6f 20 65 6e 63 72 79 70 74 20 6f 6e 20 73 74 6f  o encrypt on sto
0c40: 72 61 67 65 0a 20 20 20 20 36 34 66 69 65 6c 64  rage.    64field
0c50: 3a 20 6b 65 2d 6f 66 66 73 65 74 20 5c 20 6f 66  : ke-offset \ of
0c60: 66 73 65 74 20 69 6e 20 6b 65 79 20 66 69 6c 65  fset in key file
0c70: 0a 20 20 20 20 30 20 2b 66 69 65 6c 64 20 6b 65  .    0 +field ke
0c80: 2d 65 6e 64 0a 65 6e 64 2d 63 6c 61 73 73 20 6b  -end.end-class k
0c90: 65 79 2d 65 6e 74 72 79 0a 0a 3a 20 66 72 65 65  ey-entry..: free
0ca0: 2d 6b 65 79 20 28 20 6f 3a 6b 65 79 20 2d 2d 20  -key ( o:key -- 
0cb0: 6f 3a 6b 65 79 20 29 0a 20 20 20 20 5c 67 20 66  o:key ).    \g f
0cc0: 72 65 65 20 61 6c 6c 20 70 61 72 74 73 20 6f 66  ree all parts of
0cd0: 20 74 68 65 20 73 75 62 6b 65 79 0a 20 20 20 20   the subkey.    
0ce0: 6b 65 2d 73 6b 20 73 65 63 2d 6f 66 66 0a 20 20  ke-sk sec-off.  
0cf0: 20 20 6b 65 2d 70 6b 20 24 6f 66 66 0a 20 20 20    ke-pk $off.   
0d00: 20 6b 65 2d 6e 69 63 6b 20 24 6f 66 66 0a 20 20   ke-nick $off.  
0d10: 20 20 6b 65 2d 70 73 6b 20 73 65 63 2d 6f 66 66    ke-psk sec-off
0d20: 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20  .    ke-selfsig 
0d30: 24 6f 66 66 0a 20 20 20 20 6b 65 2d 73 69 67 73  $off.    ke-sigs
0d40: 20 24 5b 5d 6f 66 66 20 3b 0a 0a 56 61 72 69 61   $[]off ;..Varia
0d50: 62 6c 65 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61  ble key-entry-ta
0d60: 62 6c 65 0a 0a 30 0a 65 6e 75 6d 20 6b 65 79 23  ble..0.enum key#
0d70: 61 6e 6f 6e 0a 65 6e 75 6d 20 6b 65 79 23 75 73  anon.enum key#us
0d80: 65 72 0a 65 6e 75 6d 20 6b 65 79 23 67 72 6f 75  er.enum key#grou
0d90: 70 0a 64 72 6f 70 0a 0a 30 0a 65 6e 75 6d 20 69  p.drop..0.enum i
0da0: 6d 70 6f 72 74 23 73 65 6c 66 20 20 20 20 20 20  mport#self      
0db0: 5c 20 70 72 69 76 61 74 65 20 6b 65 79 0a 65 6e  \ private key.en
0dc0: 75 6d 20 69 6d 70 6f 72 74 23 6d 61 6e 75 61 6c  um import#manual
0dd0: 20 20 20 20 5c 20 6d 61 6e 75 61 6c 20 69 6d 70      \ manual imp
0de0: 6f 72 74 0a 65 6e 75 6d 20 69 6d 70 6f 72 74 23  ort.enum import#
0df0: 73 63 61 6e 20 20 20 20 20 20 5c 20 73 63 61 6e  scan      \ scan
0e00: 20 69 6d 70 6f 72 74 0a 65 6e 75 6d 20 69 6d 70   import.enum imp
0e10: 6f 72 74 23 63 68 61 74 20 20 20 20 20 20 5c 20  ort#chat      \ 
0e20: 6d 69 64 20 74 72 75 73 74 20 6c 65 76 65 6c 0a  mid trust level.
0e30: 65 6e 75 6d 20 69 6d 70 6f 72 74 23 64 68 74 20  enum import#dht 
0e40: 20 20 20 20 20 20 5c 20 6c 6f 77 65 73 74 20 74        \ lowest t
0e50: 72 75 73 74 20 6c 65 76 65 6c 0a 65 6e 75 6d 20  rust level.enum 
0e60: 69 6d 70 6f 72 74 23 75 6e 74 72 75 73 74 65 64  import#untrusted
0e70: 20 5c 20 6d 75 73 74 20 62 65 20 6c 61 73 74 0a   \ must be last.
0e80: 64 72 6f 70 0a 0a 56 61 72 69 61 62 6c 65 20 69  drop..Variable i
0e90: 6d 70 6f 72 74 2d 74 79 70 65 20 20 69 6d 70 6f  mport-type  impo
0ea0: 72 74 23 75 6e 74 72 75 73 74 65 64 20 69 6d 70  rt#untrusted imp
0eb0: 6f 72 74 2d 74 79 70 65 20 21 0a 0a 43 72 65 61  ort-type !..Crea
0ec0: 74 65 20 3e 69 6d 2d 63 6f 6c 6f 72 20 20 24 42  te >im-color  $B
0ed0: 36 30 20 2c 20 24 44 36 30 20 2c 20 24 39 36 30  60 , $D60 , $960
0ee0: 20 2c 20 24 43 36 30 20 2c 20 24 41 36 30 20 2c   , $C60 , $A60 ,
0ef0: 20 24 45 36 30 20 2c 0a 44 4f 45 53 3e 20 73 77   $E60 ,.DOES> sw
0f00: 61 70 20 63 65 6c 6c 73 20 2b 20 40 20 61 74 74  ap cells + @ att
0f10: 72 21 20 3b 0a 0a 30 20 56 61 6c 75 65 20 73 61  r! ;..0 Value sa
0f20: 6d 70 6c 65 2d 6b 65 79 0a 0a 56 61 72 69 61 62  mple-key..Variab
0f30: 6c 65 20 6b 65 79 2d 74 61 62 6c 65 20 5c 20 6b  le key-table \ k
0f40: 65 79 20 68 61 73 68 20 74 61 62 6c 65 0a 56 61  ey hash table.Va
0f50: 72 69 61 62 6c 65 20 6e 69 63 6b 2d 74 61 62 6c  riable nick-tabl
0f60: 65 20 5c 20 6e 69 63 6b 20 68 61 73 68 20 74 61  e \ nick hash ta
0f70: 62 6c 65 0a 0a 36 34 56 61 72 69 61 62 6c 65 20  ble..64Variable 
0f80: 6b 65 79 2d 72 65 61 64 2d 6f 66 66 73 65 74 0a  key-read-offset.
0f90: 0a 3a 20 63 75 72 72 65 6e 74 2d 6b 65 79 20 28  .: current-key (
0fa0: 20 61 64 64 72 20 75 20 2d 2d 20 6f 20 29 0a 20   addr u -- o ). 
0fb0: 20 20 20 32 64 75 70 20 6b 65 79 7c 20 6b 65 79     2dup key| key
0fc0: 2d 74 61 62 6c 65 20 23 40 20 64 72 6f 70 0a 20  -table #@ drop. 
0fd0: 20 20 20 64 75 70 20 30 3d 20 49 46 20 20 64 72     dup 0= IF  dr
0fe0: 6f 70 20 2e 22 20 75 6e 6b 6e 6f 77 6e 20 6b 65  op ." unknown ke
0ff0: 79 3a 20 22 20 38 35 74 79 70 65 20 63 72 20 20  y: " 85type cr  
1000: 30 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20  0 EXIT  THEN.   
1010: 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 70 6b 20   cell+ >o ke-pk 
1020: 24 21 20 6f 20 6f 3e 20 3b 0a 0a 3a 20 6e 69 63  $! o o> ;..: nic
1030: 6b 21 20 28 20 2d 2d 20 29 20 6f 20 7b 20 77 5e  k! ( -- ) o { w^
1040: 20 6f 70 74 72 20 7d 0a 20 20 20 20 6b 65 2d 6e   optr }.    ke-n
1050: 69 63 6b 20 24 40 20 6e 69 63 6b 2d 74 61 62 6c  ick $@ nick-tabl
1060: 65 20 23 40 20 32 64 75 70 20 64 30 3d 20 49 46  e #@ 2dup d0= IF
1070: 0a 09 32 64 72 6f 70 20 20 6f 70 74 72 20 63 65  ..2drop  optr ce
1080: 6c 6c 20 6b 65 2d 6e 69 63 6b 20 24 40 20 6e 69  ll ke-nick $@ ni
1090: 63 6b 2d 74 61 62 6c 65 20 23 21 20 30 0a 20 20  ck-table #! 0.  
10a0: 20 20 45 4c 53 45 0a 09 6c 61 73 74 23 20 63 65    ELSE..last# ce
10b0: 6c 6c 2b 20 24 40 6c 65 6e 20 63 65 6c 6c 2f 0a  ll+ $@len cell/.
10c0: 09 6f 70 74 72 20 63 65 6c 6c 20 6c 61 73 74 23  .optr cell last#
10d0: 20 63 65 6c 6c 2b 20 24 2b 21 0a 20 20 20 20 54   cell+ $+!.    T
10e0: 48 45 4e 20 20 6b 65 2d 6e 69 63 6b 23 20 21 20  HEN  ke-nick# ! 
10f0: 3b 0a 0a 3a 20 23 2e 6e 69 63 6b 20 28 20 68 61  ;..: #.nick ( ha
1100: 73 68 20 2d 2d 20 29 0a 20 20 20 20 64 75 70 20  sh -- ).    dup 
1110: 24 40 20 74 79 70 65 20 27 23 27 20 65 6d 69 74  $@ type '#' emit
1120: 20 63 65 6c 6c 2b 20 24 40 6c 65 6e 20 63 65 6c   cell+ $@len cel
1130: 6c 2f 20 2e 20 3b 0a 0a 3a 20 6b 65 79 3a 6e 65  l/ . ;..: key:ne
1140: 77 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6f 20  w ( addr u -- o 
1150: 29 0a 20 20 20 20 5c 47 20 63 72 65 61 74 65 20  ).    \G create 
1160: 6e 65 77 20 6b 65 79 2c 20 61 64 64 72 20 75 20  new key, addr u 
1170: 69 73 20 74 68 65 20 70 75 62 6c 69 63 20 6b 65  is the public ke
1180: 79 0a 20 20 20 20 73 61 6d 70 6c 65 2d 6b 65 79  y.    sample-key
1190: 20 3e 6f 0a 20 20 20 20 6b 65 79 2d 65 6e 74 72   >o.    key-entr
11a0: 79 2d 74 61 62 6c 65 20 40 20 74 6f 6b 65 6e 2d  y-table @ token-
11b0: 74 61 62 6c 65 20 21 0a 20 20 20 20 6b 65 2d 73  table !.    ke-s
11c0: 6b 20 6b 65 2d 65 6e 64 20 6f 76 65 72 20 2d 20  k ke-end over - 
11d0: 65 72 61 73 65 20 20 3e 73 74 6f 72 65 6b 65 79  erase  >storekey
11e0: 20 40 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20 21   @ ke-storekey !
11f0: 0a 20 20 20 20 6b 65 79 2d 72 65 61 64 2d 6f 66  .    key-read-of
1200: 66 73 65 74 20 36 34 40 20 6b 65 2d 6f 66 66 73  fset 64@ ke-offs
1210: 65 74 20 36 34 21 0a 20 20 20 20 69 6d 70 6f 72  et 64!.    impor
1220: 74 2d 74 79 70 65 20 40 20 6b 65 2d 69 6d 70 6f  t-type @ ke-impo
1230: 72 74 20 21 0a 20 20 20 20 6b 65 79 70 61 63 6b  rt !.    keypack
1240: 2d 61 6c 6c 23 20 6e 3e 36 34 20 6b 65 79 2d 72  -all# n>64 key-r
1250: 65 61 64 2d 6f 66 66 73 65 74 20 36 34 2b 21 20  ead-offset 64+! 
1260: 6f 20 63 65 6c 6c 2d 20 6b 65 2d 65 6e 64 20 6f  o cell- ke-end o
1270: 76 65 72 20 2d 0a 20 20 20 20 32 6f 76 65 72 20  ver -.    2over 
1280: 6b 65 79 7c 20 6b 65 79 2d 74 61 62 6c 65 20 23  key| key-table #
1290: 21 20 6f 3e 0a 20 20 20 20 63 75 72 72 65 6e 74  ! o>.    current
12a0: 2d 6b 65 79 20 3b 0a 0a 3a 20 6b 65 79 3f 6e 65  -key ;..: key?ne
12b0: 77 20 28 20 61 64 64 72 20 75 20 2d 2d 20 6f 20  w ( addr u -- o 
12c0: 29 0a 20 20 20 20 5c 47 20 43 72 65 61 74 65 20  ).    \G Create 
12d0: 6f 72 20 6c 6f 6f 6b 75 70 20 6e 65 77 20 6b 65  or lookup new ke
12e0: 79 0a 20 20 20 20 32 64 75 70 20 6b 65 79 7c 20  y.    2dup key| 
12f0: 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 64 72 6f  key-table #@ dro
1300: 70 0a 20 20 20 20 64 75 70 20 30 3d 20 49 46 20  p.    dup 0= IF 
1310: 20 64 72 6f 70 20 6b 65 79 3a 6e 65 77 20 20 45   drop key:new  E
1320: 4c 53 45 20 20 6e 69 70 20 6e 69 70 20 63 65 6c  LSE  nip nip cel
1330: 6c 2b 20 20 54 48 45 4e 20 3b 0a 0a 5c 20 73 65  l+  THEN ;..\ se
1340: 61 72 63 68 20 66 6f 72 20 6b 65 79 73 20 2d 20  arch for keys - 
1350: 6e 6f 74 20 6f 70 74 69 6d 69 7a 65 64 0a 0a 3a  not optimized..:
1360: 20 23 73 70 6c 69 74 20 28 20 61 64 64 72 20 75   #split ( addr u
1370: 20 2d 2d 20 61 64 64 72 20 75 20 6e 20 29 0a 20   -- addr u n ). 
1380: 20 20 20 5b 3a 20 32 64 75 70 20 27 23 27 20 2d     [: 2dup '#' -
1390: 73 63 61 6e 20 6e 69 70 20 3e 72 0a 20 20 20 20  scan nip >r.    
13a0: 20 20 72 40 20 30 3d 20 49 46 20 20 72 64 72 6f    r@ 0= IF  rdro
13b0: 70 20 30 20 20 45 58 49 54 20 20 54 48 45 4e 0a  p 0  EXIT  THEN.
13c0: 20 20 20 20 20 20 30 2e 20 32 6f 76 65 72 20 72        0. 2over r
13d0: 40 20 2f 73 74 72 69 6e 67 20 3e 6e 75 6d 62 65  @ /string >numbe
13e0: 72 0a 20 20 20 20 20 20 30 3d 20 49 46 20 20 6e  r.      0= IF  n
13f0: 69 70 20 64 72 6f 70 20 6e 69 70 20 72 3e 20 31  ip drop nip r> 1
1400: 2d 20 73 77 61 70 20 20 45 4c 53 45 0a 09 20 20  - swap  ELSE..  
1410: 72 64 72 6f 70 20 64 72 6f 70 20 32 64 72 6f 70  rdrop drop 2drop
1420: 20 30 20 20 20 54 48 45 4e 20 3b 5d 20 23 31 30   0   THEN ;] #10
1430: 20 62 61 73 65 2d 65 78 65 63 75 74 65 20 3b 0a   base-execute ;.
1440: 0a 3a 20 6e 69 63 6b 2d 6b 65 79 20 28 20 61 64  .: nick-key ( ad
1450: 64 72 20 75 20 2d 2d 20 6f 20 2f 20 30 20 29 20  dr u -- o / 0 ) 
1460: 5c 20 73 65 61 72 63 68 20 66 6f 72 20 6b 65 79  \ search for key
1470: 20 6e 69 63 6b 6e 61 6d 65 0a 20 20 20 20 23 73   nickname.    #s
1480: 70 6c 69 74 20 3e 72 20 6e 69 63 6b 2d 74 61 62  plit >r nick-tab
1490: 6c 65 20 23 40 20 32 64 75 70 20 64 30 3d 20 49  le #@ 2dup d0= I
14a0: 46 20 20 72 64 72 6f 70 20 64 72 6f 70 20 20 45  F  rdrop drop  E
14b0: 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 72 3e  XIT  THEN.    r>
14c0: 20 63 65 6c 6c 73 20 73 61 66 65 2f 73 74 72 69   cells safe/stri
14d0: 6e 67 20 30 3d 20 49 46 20 20 64 72 6f 70 20 30  ng 0= IF  drop 0
14e0: 20 20 45 58 49 54 20 20 54 48 45 4e 20 20 40 20    EXIT  THEN  @ 
14f0: 3b 0a 0a 3a 20 73 65 63 72 65 74 2d 6b 65 79 73  ;..: secret-keys
1500: 23 20 28 20 2d 2d 20 6e 20 29 0a 20 20 20 20 30  # ( -- n ).    0
1510: 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65   key-table [: ce
1520: 6c 6c 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c  ll+ $@ drop cell
1530: 2b 20 3e 6f 20 6b 65 2d 73 6b 20 40 20 30 3c 3e  + >o ke-sk @ 0<>
1540: 20 2d 20 6f 3e 20 3b 5d 20 23 6d 61 70 20 3b 0a   - o> ;] #map ;.
1550: 3a 20 73 65 63 72 65 74 2d 6b 65 79 20 28 20 6e  : secret-key ( n
1560: 20 2d 2d 20 6f 2f 30 20 29 0a 20 20 20 20 30 20   -- o/0 ).    0 
1570: 74 75 63 6b 20 6b 65 79 2d 74 61 62 6c 65 20 5b  tuck key-table [
1580: 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f 70 20  : cell+ $@ drop 
1590: 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 73 6b 20 40  cell+ >o ke-sk @
15a0: 20 49 46 0a 09 20 20 32 64 75 70 20 3d 20 49 46   IF..  2dup = IF
15b0: 20 20 72 6f 74 20 64 72 6f 70 20 6f 20 2d 72 6f    rot drop o -ro
15c0: 74 20 20 54 48 45 4e 20 20 31 2b 0a 20 20 20 20  t  THEN  1+.    
15d0: 20 20 54 48 45 4e 20 20 6f 3e 20 3b 5d 20 23 6d    THEN  o> ;] #m
15e0: 61 70 20 32 64 72 6f 70 20 3b 0a 3a 20 2e 6e 69  ap 2drop ;.: .ni
15f0: 63 6b 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 20  ck ( o:key -- ) 
1600: 20 6b 65 2d 6e 69 63 6b 20 24 2e 0a 20 20 20 20   ke-nick $..    
1610: 6b 65 2d 6e 69 63 6b 23 20 40 20 3f 64 75 70 2d  ke-nick# @ ?dup-
1620: 49 46 20 20 27 23 27 20 65 6d 69 74 20 30 20 2e  IF  '#' emit 0 .
1630: 72 20 20 54 48 45 4e 20 3b 0a 3a 20 2e 73 65 63  r  THEN ;.: .sec
1640: 72 65 74 2d 6e 69 63 6b 73 20 28 20 2d 2d 20 29  ret-nicks ( -- )
1650: 0a 20 20 20 20 30 20 6b 65 79 2d 74 61 62 6c 65  .    0 key-table
1660: 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f   [: cell+ $@ dro
1670: 70 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 73 6b  p cell+ >o ke-sk
1680: 20 40 20 49 46 0a 09 20 20 64 75 70 20 2e 20 2e   @ IF..  dup . .
1690: 6e 69 63 6b 20 63 72 20 31 2b 0a 20 20 20 20 20  nick cr 1+.     
16a0: 20 54 48 45 4e 20 6f 3e 20 3b 5d 20 23 6d 61 70   THEN o> ;] #map
16b0: 20 64 72 6f 70 20 3b 0a 0a 3a 20 6e 69 63 6b 3e   drop ;..: nick>
16c0: 70 6b 20 28 20 6e 69 63 6b 20 75 20 2d 2d 20 70  pk ( nick u -- p
16d0: 6b 20 75 20 29 0a 20 20 20 20 6e 69 63 6b 2d 6b  k u ).    nick-k
16e0: 65 79 20 3f 64 75 70 2d 49 46 20 2e 6b 65 2d 70  ey ?dup-IF .ke-p
16f0: 6b 20 24 40 20 45 4c 53 45 20 30 20 30 20 54 48  k $@ ELSE 0 0 TH
1700: 45 4e 20 3b 0a 0a 3a 20 6b 65 79 2d 65 78 69 73  EN ;..: key-exis
1710: 74 3f 20 28 20 61 64 64 72 20 75 20 2d 2d 20 66  t? ( addr u -- f
1720: 6c 61 67 20 29 0a 20 20 20 20 6b 65 79 2d 74 61  lag ).    key-ta
1730: 62 6c 65 20 23 40 20 64 30 3c 3e 20 3b 20 0a 0a  ble #@ d0<> ; ..
1740: 56 61 72 69 61 62 6c 65 20 73 74 72 69 63 74 2d  Variable strict-
1750: 6b 65 79 73 20 20 73 74 72 69 63 74 2d 6b 65 79  keys  strict-key
1760: 73 20 6f 6e 0a 0a 5b 49 46 55 4e 44 45 46 5d 20  s on..[IFUNDEF] 
1770: 6d 61 67 65 6e 74 61 20 20 62 72 6f 77 6e 20 63  magenta  brown c
1780: 6f 6e 73 74 61 6e 74 20 6d 61 67 65 6e 74 61 20  onstant magenta 
1790: 5b 54 48 45 4e 5d 0a 0a 43 72 65 61 74 65 20 38  [THEN]..Create 8
17a0: 35 63 6f 6c 6f 72 73 0a 72 65 64 20 20 20 20 20  5colors.red     
17b0: 3e 62 67 20 77 68 69 74 65 20 3e 66 67 20 6f 72  >bg white >fg or
17c0: 20 62 6f 6c 64 20 6f 72 20 2c 0a 79 65 6c 6c 6f   bold or ,.yello
17d0: 77 20 20 3e 62 67 20 77 68 69 74 65 20 3e 66 67  w  >bg white >fg
17e0: 20 6f 72 20 62 6f 6c 64 20 6f 72 20 2c 0a 62 6c   or bold or ,.bl
17f0: 75 65 20 20 20 20 3e 62 67 20 77 68 69 74 65 20  ue    >bg white 
1800: 3e 66 67 20 6f 72 20 62 6f 6c 64 20 6f 72 20 2c  >fg or bold or ,
1810: 0a 6d 61 67 65 6e 74 61 20 3e 62 67 20 77 68 69  .magenta >bg whi
1820: 74 65 20 3e 66 67 20 6f 72 20 62 6f 6c 64 20 6f  te >fg or bold o
1830: 72 20 2c 0a 0a 3a 20 2e 62 6c 61 63 6b 38 35 20  r ,..: .black85 
1840: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20  ( addr u -- ).  
1850: 20 20 5b 20 62 6c 61 63 6b 20 3e 62 67 20 62 6c    [ black >bg bl
1860: 61 63 6b 20 3e 66 67 20 6f 72 20 5d 4c 20 61 74  ack >fg or ]L at
1870: 74 72 21 20 20 20 38 35 74 79 70 65 20 3c 64 65  tr!   85type <de
1880: 66 61 75 6c 74 3e 20 3b 0a 3a 20 2e 72 65 64 38  fault> ;.: .red8
1890: 35 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20  5 ( addr u -- ) 
18a0: 20 30 20 2d 72 6f 74 20 62 6f 75 6e 64 73 20 3f   0 -rot bounds ?
18b0: 44 4f 0a 09 63 72 20 2e 22 20 5c 20 72 65 76 6f  DO..cr ." \ revo
18c0: 6b 65 3a 20 22 20 64 75 70 20 63 65 6c 6c 73 20  ke: " dup cells 
18d0: 38 35 63 6f 6c 6f 72 73 20 2b 20 40 20 61 74 74  85colors + @ att
18e0: 72 21 20 31 2b 20 33 20 61 6e 64 0a 09 49 20 34  r! 1+ 3 and..I 4
18f0: 20 38 35 74 79 70 65 20 20 64 75 70 20 63 65 6c   85type  dup cel
1900: 6c 73 20 38 35 63 6f 6c 6f 72 73 20 2b 20 40 20  ls 85colors + @ 
1910: 61 74 74 72 21 20 31 2b 20 33 20 61 6e 64 0a 09  attr! 1+ 3 and..
1920: 49 20 34 20 2b 20 34 20 38 35 74 79 70 65 20 3c  I 4 + 4 85type <
1930: 64 65 66 61 75 6c 74 3e 20 38 20 2b 4c 4f 4f 50  default> 8 +LOOP
1940: 20 20 64 72 6f 70 20 3b 0a 3a 20 2e 72 73 6b 20    drop ;.: .rsk 
1950: 28 20 6e 69 63 6b 20 75 20 2d 2d 20 29 0a 20 20  ( nick u -- ).  
1960: 20 20 73 6b 72 65 76 20 24 32 30 20 2e 72 65 64    skrev $20 .red
1970: 38 35 20 73 70 61 63 65 20 74 79 70 65 20 2e 22  85 space type ."
1980: 20 20 28 6b 65 65 70 20 6f 66 66 6c 69 6e 65 20    (keep offline 
1990: 63 6f 70 79 21 29 22 20 63 72 20 3b 0a 3a 20 2e  copy!)" cr ;.: .
19a0: 6b 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20  key ( addr u -- 
19b0: 29 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a  ) drop cell+ >o.
19c0: 20 20 20 20 2e 22 20 6e 69 63 6b 3a 20 22 20 2e      ." nick: " .
19d0: 6e 69 63 6b 20 63 72 0a 20 20 20 20 2e 22 20 70  nick cr.    ." p
19e0: 75 62 6b 65 79 3a 20 22 20 6b 65 2d 70 6b 20 24  ubkey: " ke-pk $
19f0: 40 20 38 35 74 79 70 65 20 63 72 0a 20 20 20 20  @ 85type cr.    
1a00: 6b 65 2d 73 6b 20 40 20 49 46 20 20 2e 22 20 73  ke-sk @ IF  ." s
1a10: 65 63 6b 65 79 3a 20 22 20 6b 65 2d 73 6b 20 40  eckey: " ke-sk @
1a20: 20 6b 65 79 73 69 7a 65 0a 09 2e 62 6c 61 63 6b   keysize...black
1a30: 38 35 20 2e 22 20 20 28 6b 65 65 70 20 73 65 63  85 ."  (keep sec
1a40: 72 65 74 21 29 22 20 63 72 20 20 54 48 45 4e 0a  ret!)" cr  THEN.
1a50: 20 20 20 20 2e 22 20 66 69 72 73 74 3a 20 22 20      ." first: " 
1a60: 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20 64 72  ke-selfsig $@ dr
1a70: 6f 70 20 36 34 40 20 2e 73 69 67 64 61 74 65 20  op 64@ .sigdate 
1a80: 63 72 0a 20 20 20 20 2e 22 20 6c 61 73 74 3a 20  cr.    ." last: 
1a90: 22 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20  " ke-selfsig $@ 
1aa0: 64 72 6f 70 20 36 34 27 2b 20 36 34 40 20 2e 73  drop 64'+ 64@ .s
1ab0: 69 67 64 61 74 65 20 63 72 0a 20 20 20 20 6f 3e  igdate cr.    o>
1ac0: 20 3b 0a 0a 3a 20 2e 6b 65 79 2d 73 68 6f 72 74   ;..: .key-short
1ad0: 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 6f 3a 6b 65   ( o:key -- o:ke
1ae0: 79 20 29 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20  y ).    ke-nick 
1af0: 24 2e 20 6b 65 2d 70 72 6f 66 20 24 40 6c 65 6e  $. ke-prof $@len
1b00: 20 49 46 20 2e 22 20 20 70 72 6f 66 69 6c 65 3a   IF ."  profile:
1b10: 20 22 20 6b 65 2d 70 72 6f 66 20 24 40 20 38 35   " ke-prof $@ 85
1b20: 74 79 70 65 20 54 48 45 4e 20 3b 0a 0a 3a 20 64  type THEN ;..: d
1b30: 75 6d 70 6b 65 79 20 28 20 61 64 64 72 20 75 20  umpkey ( addr u 
1b40: 2d 2d 20 29 20 64 72 6f 70 20 63 65 6c 6c 2b 20  -- ) drop cell+ 
1b50: 3e 6f 0a 20 20 20 20 2e 5c 22 20 78 5c 22 20 22  >o.    .\" x\" "
1b60: 20 6b 65 2d 70 6b 20 24 40 20 38 35 74 79 70 65   ke-pk $@ 85type
1b70: 20 2e 5c 22 20 5c 22 20 6b 65 79 3f 6e 65 77 22   .\" \" key?new"
1b80: 20 63 72 0a 20 20 20 20 6b 65 2d 73 6b 20 40 20   cr.    ke-sk @ 
1b90: 49 46 20 20 2e 5c 22 20 78 5c 22 20 22 20 6b 65  IF  .\" x\" " ke
1ba0: 2d 73 6b 20 40 20 6b 65 79 73 69 7a 65 20 38 35  -sk @ keysize 85
1bb0: 74 79 70 65 20 2e 5c 22 20 5c 22 20 6b 65 2d 73  type .\" \" ke-s
1bc0: 6b 20 73 65 63 21 20 2b 73 65 63 6b 65 79 22 20  k sec! +seckey" 
1bd0: 63 72 20 20 54 48 45 4e 0a 20 20 20 20 27 22 27  cr  THEN.    '"'
1be0: 20 65 6d 69 74 20 2e 6e 69 63 6b 20 2e 5c 22 20   emit .nick .\" 
1bf0: 5c 22 20 6b 65 2d 6e 69 63 6b 20 24 21 20 22 0a  \" ke-nick $! ".
1c00: 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24      ke-selfsig $
1c10: 40 20 64 72 6f 70 20 36 34 40 20 36 34 3e 64 20  @ drop 64@ 64>d 
1c20: 5b 3a 20 27 24 27 20 65 6d 69 74 20 30 20 75 64  [: '$' emit 0 ud
1c30: 2e 72 20 3b 5d 20 24 31 30 20 62 61 73 65 2d 65  .r ;] $10 base-e
1c40: 78 65 63 75 74 65 0a 20 20 20 20 2e 22 20 2e 20  xecute.    ." . 
1c50: 64 3e 36 34 20 6b 65 2d 66 69 72 73 74 21 20 22  d>64 ke-first! "
1c60: 20 6b 65 2d 74 79 70 65 20 40 20 2e 20 2e 22 20   ke-type @ . ." 
1c70: 6b 65 2d 74 79 70 65 20 21 22 20 20 63 72 20 6f  ke-type !"  cr o
1c80: 3e 20 3b 0a 0a 3a 20 2e 6b 65 79 73 20 28 20 2d  > ;..: .keys ( -
1c90: 2d 20 29 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a  - ) key-table [:
1ca0: 20 63 65 6c 6c 2b 20 24 40 20 2e 6b 65 79 20 3b   cell+ $@ .key ;
1cb0: 5d 20 23 6d 61 70 20 3b 0a 3a 20 64 75 6d 70 6b  ] #map ;.: dumpk
1cc0: 65 79 73 20 28 20 2d 2d 20 29 20 6b 65 79 2d 74  eys ( -- ) key-t
1cd0: 61 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40  able [: cell+ $@
1ce0: 20 64 75 6d 70 6b 65 79 20 3b 5d 20 23 6d 61 70   dumpkey ;] #map
1cf0: 20 3b 0a 0a 3a 20 6b 65 79 3e 6e 69 63 6b 20 28   ;..: key>nick (
1d00: 20 61 64 64 72 6b 65 79 20 75 31 20 2d 2d 20 6e   addrkey u1 -- n
1d10: 69 63 6b 20 75 32 20 29 0a 20 20 20 20 6b 65 79  ick u2 ).    key
1d20: 2d 74 61 62 6c 65 20 23 40 20 30 3d 20 49 46 20  -table #@ 0= IF 
1d30: 20 64 72 6f 70 20 22 22 20 20 45 58 49 54 20 20   drop ""  EXIT  
1d40: 54 48 45 4e 0a 20 20 20 20 63 65 6c 6c 2b 20 2e  THEN.    cell+ .
1d50: 6b 65 2d 6e 69 63 6b 20 24 40 20 3b 0a 0a 3a 20  ke-nick $@ ;..: 
1d60: 2e 6b 65 79 23 20 28 20 61 64 64 72 20 75 20 2d  .key# ( addr u -
1d70: 2d 20 29 20 6b 65 79 7c 0a 20 20 20 20 2e 22 20  - ) key|.    ." 
1d80: 4b 65 79 20 27 22 20 6b 65 79 2d 74 61 62 6c 65  Key '" key-table
1d90: 20 23 40 20 30 3d 20 49 46 20 64 72 6f 70 20 45   #@ 0= IF drop E
1da0: 58 49 54 20 54 48 45 4e 0a 20 20 20 20 63 65 6c  XIT THEN.    cel
1db0: 6c 2b 20 2e 2e 6e 69 63 6b 20 2e 22 20 27 20 6f  l+ ..nick ." ' o
1dc0: 6b 22 20 63 72 20 3b 0a 0a 44 65 66 65 72 20 64  k" cr ;..Defer d
1dd0: 68 74 2d 6e 69 63 6b 3f 0a 65 76 65 6e 74 3a 20  ht-nick?.event: 
1de0: 2d 3e 73 65 61 72 63 68 2d 6b 65 79 20 20 6b 65  ->search-key  ke
1df0: 79 7c 20 64 68 74 2d 6e 69 63 6b 3f 20 3b 0a 0a  y| dht-nick? ;..
1e00: 3a 20 2e 6b 65 79 2d 69 64 20 28 20 61 64 64 72  : .key-id ( addr
1e10: 20 75 20 2d 2d 20 29 20 32 64 75 70 20 6b 65 79   u -- ) 2dup key
1e20: 7c 20 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 30  | key-table #@ 0
1e30: 3d 0a 20 20 20 20 49 46 20 20 64 72 6f 70 20 3c  =.    IF  drop <
1e40: 65 76 65 6e 74 20 32 64 75 70 20 73 61 76 65 2d  event 2dup save-
1e50: 6d 65 6d 20 65 24 2c 20 2d 3e 73 65 61 72 63 68  mem e$, ->search
1e60: 2d 6b 65 79 20 5b 20 75 70 40 20 5d 6c 20 65 76  -key [ up@ ]l ev
1e70: 65 6e 74 3e 0a 09 3c 65 72 72 3e 20 38 20 75 6d  ent>..<err> 8 um
1e80: 69 6e 20 38 35 74 79 70 65 20 2e 22 20 28 75 6e  in 85type ." (un
1e90: 6b 6e 6f 77 6e 29 22 20 3c 64 65 66 61 75 6c 74  known)" <default
1ea0: 3e 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20  >  EXIT  THEN.  
1eb0: 20 20 63 65 6c 6c 2b 20 3c 69 6e 66 6f 3e 20 2e    cell+ <info> .
1ec0: 2e 6e 69 63 6b 20 3c 64 65 66 61 75 6c 74 3e 20  .nick <default> 
1ed0: 32 64 72 6f 70 20 3b 0a 0a 3a 6e 6f 6e 61 6d 65  2drop ;..:noname
1ee0: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20   ( addr u -- ). 
1ef0: 20 20 20 6f 20 49 46 20 20 70 75 62 6b 65 79 20     o IF  pubkey 
1f00: 40 20 49 46 0a 09 20 20 20 20 32 64 75 70 20 70  @ IF..    2dup p
1f10: 75 62 6b 65 79 20 24 40 20 6b 65 79 7c 20 73 74  ubkey $@ key| st
1f20: 72 3d 20 30 3d 20 49 46 0a 09 09 5b 3a 20 2e 22  r= 0= IF...[: ."
1f30: 20 77 61 6e 74 3a 20 22 20 70 75 62 6b 65 79 20   want: " pubkey 
1f40: 24 40 20 6b 65 79 7c 20 38 35 74 79 70 65 20 63  $@ key| 85type c
1f50: 72 0a 09 09 20 20 2e 22 20 67 6f 74 20 3a 20 22  r...  ." got : "
1f60: 20 32 64 75 70 20 38 35 74 79 70 65 20 63 72 20   2dup 85type cr 
1f70: 3b 5d 20 24 65 72 72 0a 09 09 74 72 75 65 20 21  ;] $err...true !
1f80: 21 77 72 6f 6e 67 2d 6b 65 79 21 21 0a 09 20 20  !wrong-key!!..  
1f90: 20 20 54 48 45 4e 0a 09 20 20 20 20 2e 6b 65 79    THEN..    .key
1fa0: 23 20 20 45 58 49 54 0a 09 54 48 45 4e 20 20 54  #  EXIT..THEN  T
1fb0: 48 45 4e 0a 20 20 20 20 32 64 75 70 20 6b 65 79  HEN.    2dup key
1fc0: 2d 65 78 69 73 74 3f 20 30 3d 20 49 46 0a 09 73  -exist? 0= IF..s
1fd0: 74 72 69 63 74 2d 6b 65 79 73 20 40 20 21 21 75  trict-keys @ !!u
1fe0: 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 21 0a 09 2e 22  nknown-key!!..."
1ff0: 20 55 6e 6b 6e 6f 77 6e 20 6b 65 79 20 22 20 38   Unknown key " 8
2000: 35 74 79 70 65 20 63 72 0a 20 20 20 20 45 4c 53  5type cr.    ELS
2010: 45 0a 09 2e 6b 65 79 23 0a 20 20 20 20 54 48 45  E...key#.    THE
2020: 4e 20 3b 20 49 53 20 63 68 65 63 6b 2d 6b 65 79  N ; IS check-key
2030: 0a 0a 3a 6e 6f 6e 61 6d 65 20 28 20 70 6b 63 20  ..:noname ( pkc 
2040: 2d 2d 20 73 6b 63 20 29 0a 20 20 20 20 6b 65 79  -- skc ).    key
2050: 73 69 7a 65 20 6b 65 79 2d 74 61 62 6c 65 20 23  size key-table #
2060: 40 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b  @ 0= !!unknown-k
2070: 65 79 21 21 0a 20 20 20 20 63 65 6c 6c 2b 20 2e  ey!!.    cell+ .
2080: 6b 65 2d 73 6b 20 73 65 63 40 20 30 3d 20 21 21  ke-sk sec@ 0= !!
2090: 75 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 21 20 3b 20  unknown-key!! ; 
20a0: 69 73 20 73 65 61 72 63 68 2d 6b 65 79 0a 0a 5c  is search-key..\
20b0: 20 67 65 74 20 70 61 73 73 70 68 72 61 73 65 0a   get passphrase.
20c0: 0a 33 20 56 61 6c 75 65 20 70 61 73 73 70 68 72  .3 Value passphr
20d0: 61 73 65 2d 72 65 74 72 79 23 0a 24 31 30 30 20  ase-retry#.$100 
20e0: 43 6f 6e 73 74 61 6e 74 20 6d 61 78 2d 70 61 73  Constant max-pas
20f0: 73 70 68 72 61 73 65 23 20 5c 20 32 35 36 20 63  sphrase# \ 256 c
2100: 68 61 72 61 63 74 65 72 73 20 73 68 6f 75 6c 64  haracters should
2110: 20 62 65 20 65 6e 6f 75 67 68 2e 2e 2e 0a 6d 61   be enough....ma
2120: 78 2d 70 61 73 73 70 68 72 61 73 65 23 20 62 75  x-passphrase# bu
2130: 66 66 65 72 3a 20 70 61 73 73 70 68 72 61 73 65  ffer: passphrase
2140: 0a 0a 3a 20 70 61 73 73 70 68 72 61 73 65 2d 69  ..: passphrase-i
2150: 6e 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a  n ( -- addr u ).
2160: 20 20 20 20 70 61 73 73 70 68 72 61 73 65 20 64      passphrase d
2170: 75 70 20 6d 61 78 2d 70 61 73 73 70 68 72 61 73  up max-passphras
2180: 65 23 20 61 63 63 65 70 74 2a 20 3b 0a 0a 3a 20  e# accept* ;..: 
2190: 3e 70 61 73 73 70 68 72 61 73 65 20 28 20 61 64  >passphrase ( ad
21a0: 64 72 20 75 20 2d 2d 20 61 64 64 72 20 75 20 29  dr u -- addr u )
21b0: 0a 20 20 20 20 5c 47 20 63 72 65 61 74 65 20 61  .    \G create a
21c0: 20 35 31 32 20 62 69 74 20 68 61 73 68 20 6f 66   512 bit hash of
21d0: 20 74 68 65 20 70 61 73 73 70 68 72 61 73 65 0a   the passphrase.
21e0: 20 20 20 20 6e 6f 2d 6b 65 79 20 3e 63 3a 6b 65      no-key >c:ke
21f0: 79 20 63 3a 68 61 73 68 0a 20 20 20 20 6b 65 63  y c:hash.    kec
2200: 63 61 6b 2d 70 61 64 64 65 64 20 63 3a 6b 65 79  cak-padded c:key
2210: 3e 20 6b 65 63 63 61 6b 2d 70 61 64 64 65 64 20  > keccak-padded 
2220: 6b 65 63 63 61 6b 23 6d 61 78 20 32 2f 20 3b 0a  keccak#max 2/ ;.
2230: 0a 3a 20 67 65 74 2d 70 61 73 73 70 68 72 61 73  .: get-passphras
2240: 65 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a  e ( -- addr u ).
2250: 20 20 20 20 70 61 73 73 70 68 72 61 73 65 2d 69      passphrase-i
2260: 6e 20 3e 70 61 73 73 70 68 72 61 73 65 20 3b 0a  n >passphrase ;.
2270: 0a 56 61 72 69 61 62 6c 65 20 6b 65 79 73 0a 0a  .Variable keys..
2280: 3a 20 6b 65 79 3e 64 65 66 61 75 6c 74 20 28 20  : key>default ( 
2290: 2d 2d 20 29 20 6b 65 79 73 20 24 5b 5d 23 20 31  -- ) keys $[]# 1
22a0: 2d 20 6b 65 79 73 20 73 65 63 5b 5d 40 20 64 72  - keys sec[]@ dr
22b0: 6f 70 20 3e 73 74 6f 72 65 6b 65 79 20 21 20 3b  op >storekey ! ;
22c0: 0a 3a 20 2b 6b 65 79 20 28 20 61 64 64 72 20 75  .: +key ( addr u
22d0: 20 2d 2d 20 29 20 6b 65 79 73 20 73 65 63 2b 5b   -- ) keys sec+[
22e0: 5d 21 20 3b 0a 3a 20 2b 70 61 73 73 70 68 72 61  ]! ;.: +passphra
22f0: 73 65 20 28 20 2d 2d 20 29 20 20 67 65 74 2d 70  se ( -- )  get-p
2300: 61 73 73 70 68 72 61 73 65 20 2b 6b 65 79 20 3b  assphrase +key ;
2310: 0a 3a 20 2b 63 68 65 63 6b 70 68 72 61 73 65 20  .: +checkphrase 
2320: 28 20 2d 2d 20 66 6c 61 67 20 29 20 67 65 74 2d  ( -- flag ) get-
2330: 70 61 73 73 70 68 72 61 73 65 20 6b 65 79 73 20  passphrase keys 
2340: 24 5b 5d 23 20 31 2d 20 6b 65 79 73 20 73 65 63  $[]# 1- keys sec
2350: 5b 5d 40 20 73 74 72 3d 20 3b 0a 3a 20 2b 6e 65  []@ str= ;.: +ne
2360: 77 70 68 72 61 73 65 20 28 20 2d 2d 20 29 0a 20  wphrase ( -- ). 
2370: 20 20 20 42 45 47 49 4e 0a 09 2e 22 20 50 61 73     BEGIN..." Pas
2380: 73 70 68 72 61 73 65 3a 20 22 20 2b 70 61 73 73  sphrase: " +pass
2390: 70 68 72 61 73 65 20 63 72 0a 09 2e 22 20 52 65  phrase cr..." Re
23a0: 74 79 70 65 20 70 6c 73 3a 20 22 20 2b 63 68 65  type pls: " +che
23b0: 63 6b 70 68 72 61 73 65 20 30 3d 20 57 48 49 4c  ckphrase 0= WHIL
23c0: 45 0a 09 20 20 20 20 2e 22 20 20 64 69 64 6e 27  E..    ."  didn'
23d0: 74 20 6d 61 74 63 68 2c 20 74 72 79 20 61 67 61  t match, try aga
23e0: 69 6e 20 70 6c 65 61 73 65 22 20 63 72 0a 20 20  in please" cr.  
23f0: 20 20 52 45 50 45 41 54 20 63 72 20 3b 0a 0a 3a    REPEAT cr ;..:
2400: 20 22 3e 70 61 73 73 70 68 72 61 73 65 20 28 20   ">passphrase ( 
2410: 61 64 64 72 20 75 20 2d 2d 20 29 20 3e 70 61 73  addr u -- ) >pas
2420: 73 70 68 72 61 73 65 20 2b 6b 65 79 20 3b 0a 3a  sphrase +key ;.:
2430: 20 2b 73 65 63 6b 65 79 20 28 20 2d 2d 20 29 0a   +seckey ( -- ).
2440: 20 20 20 20 6b 65 2d 73 6b 20 40 20 6b 65 2d 70      ke-sk @ ke-p
2450: 6b 20 24 40 20 64 72 6f 70 20 6b 65 79 70 61 64  k $@ drop keypad
2460: 20 65 64 2d 64 68 20 2b 6b 65 79 20 3b 0a 0a 22   ed-dh +key ;.."
2470: 22 20 22 3e 70 61 73 73 70 68 72 61 73 65 20 5c  " ">passphrase \
2480: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 65   following the e
2490: 6e 63 72 79 70 74 2d 65 76 65 72 79 74 68 69 6e  ncrypt-everythin
24a0: 67 20 70 61 72 61 64 69 67 6d 2c 0a 5c 20 6e 6f  g paradigm,.\ no
24b0: 20 70 61 73 73 77 6f 72 64 20 69 73 20 74 68 65   password is the
24c0: 20 65 6d 70 74 79 20 73 74 72 69 6e 67 21 20 20   empty string!  
24d0: 49 74 27 73 20 73 74 69 6c 6c 20 65 6e 63 72 79  It's still encry
24e0: 70 74 65 64 20 3b 2d 29 21 0a 0a 5c 20 61 20 73  pted ;-)!..\ a s
24f0: 65 63 72 65 74 20 6b 65 79 20 6a 75 73 74 20 6e  ecret key just n
2500: 65 65 64 73 20 61 20 6e 69 63 6b 20 61 6e 64 20  eeds a nick and 
2510: 61 20 74 79 70 65 2e 0a 5c 20 53 65 63 72 65 74  a type..\ Secret
2520: 20 6b 65 79 73 20 63 61 6e 20 62 65 20 70 65 72   keys can be per
2530: 73 6f 6e 73 20 61 6e 64 20 67 72 6f 75 70 73 2e  sons and groups.
2540: 0a 0a 5c 20 61 20 70 75 62 6c 69 63 20 6b 65 79  ..\ a public key
2550: 20 6e 65 65 64 73 20 6d 6f 72 65 3a 20 6e 69 63   needs more: nic
2560: 6b 2c 20 74 79 70 65 2c 20 70 72 6f 66 69 6c 65  k, type, profile
2570: 2e 0a 5c 20 54 68 65 20 70 72 6f 66 69 6c 65 20  ..\ The profile 
2580: 69 73 20 61 20 73 74 72 75 63 74 75 72 65 64 20  is a structured 
2590: 64 6f 63 75 6d 65 6e 74 2c 20 69 2e 65 2e 20 70  document, i.e. p
25a0: 6f 69 6e 74 65 64 20 74 6f 20 62 79 20 61 20 68  ointed to by a h
25b0: 61 73 68 2e 0a 0a 5c 20 61 20 73 69 67 6e 61 74  ash...\ a signat
25c0: 75 72 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 70  ure contains a p
25d0: 75 62 6b 65 79 2c 20 61 20 63 68 65 63 6b 62 6f  ubkey, a checkbo
25e0: 78 20 62 69 74 6d 61 73 6b 2c 0a 5c 20 61 20 64  x bitmask,.\ a d
25f0: 61 74 65 2c 20 61 6e 20 65 78 70 69 72 61 74 69  ate, an expirati
2600: 6f 6e 20 64 61 74 65 2c 20 74 68 65 20 73 69 67  on date, the sig
2610: 6e 65 72 27 73 20 70 75 62 6b 65 79 20 61 6e 64  ner's pubkey and
2620: 20 74 68 65 20 73 69 67 6e 61 74 75 72 65 20 69   the signature i
2630: 74 73 65 6c 66 0a 5c 20 28 72 2b 73 29 2e 20 20  tself.\ (r+s).  
2640: 54 68 65 72 65 20 69 73 20 61 6e 20 6f 70 74 69  There is an opti
2650: 6f 6e 61 6c 20 73 69 67 6e 69 6e 67 20 70 72 6f  onal signing pro
2660: 74 6f 63 6f 6c 20 64 6f 63 75 6d 65 6e 74 20 28  tocol document (
2670: 68 61 73 68 29 2e 0a 0a 5c 20 77 65 20 73 74 6f  hash)...\ we sto
2680: 72 65 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20  re each item in 
2690: 61 20 32 35 36 20 62 79 74 65 73 20 65 6e 63 72  a 256 bytes encr
26a0: 79 70 74 65 64 20 73 74 72 69 6e 67 2c 20 69 2e  ypted string, i.
26b0: 65 2e 20 77 69 74 68 20 61 20 31 36 0a 5c 20 62  e. with a 16.\ b
26c0: 79 74 65 20 73 61 6c 74 20 61 6e 64 20 61 20 31  yte salt and a 1
26d0: 36 20 62 79 74 65 20 63 68 65 63 6b 73 75 6d 2e  6 byte checksum.
26e0: 0a 0a 3a 20 6b 65 2d 6c 61 73 74 21 20 28 20 36  ..: ke-last! ( 6
26f0: 34 64 61 74 65 20 2d 2d 20 29 0a 20 20 20 20 6b  4date -- ).    k
2700: 65 2d 73 65 6c 66 73 69 67 20 24 40 6c 65 6e 20  e-selfsig $@len 
2710: 24 31 30 20 75 6d 61 78 20 6b 65 2d 73 65 6c 66  $10 umax ke-self
2720: 73 69 67 20 24 21 6c 65 6e 0a 20 20 20 20 6b 65  sig $!len.    ke
2730: 2d 73 65 6c 66 73 69 67 20 24 40 20 64 72 6f 70  -selfsig $@ drop
2740: 20 36 34 27 2b 20 36 34 21 20 3b 0a 3a 20 6b 65   64'+ 64! ;.: ke
2750: 2d 66 69 72 73 74 21 20 28 20 36 34 64 61 74 65  -first! ( 64date
2760: 20 2d 2d 20 29 20 36 34 23 2d 31 20 6b 65 2d 6c   -- ) 64#-1 ke-l
2770: 61 73 74 21 0a 20 20 20 20 6b 65 2d 73 65 6c 66  ast!.    ke-self
2780: 73 69 67 20 24 40 20 64 72 6f 70 20 36 34 21 20  sig $@ drop 64! 
2790: 3b 0a 0a 67 65 74 2d 63 75 72 72 65 6e 74 20 61  ;..get-current a
27a0: 6c 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 20 64  lso net2o-base d
27b0: 65 66 69 6e 69 74 69 6f 6e 73 0a 0a 63 6d 64 2d  efinitions..cmd-
27c0: 74 61 62 6c 65 20 24 40 20 69 6e 68 65 72 69 74  table $@ inherit
27d0: 2d 74 61 62 6c 65 20 6b 65 79 2d 65 6e 74 72 79  -table key-entry
27e0: 2d 74 61 62 6c 65 0a 5c 67 20 0a 5c 67 20 23 23  -table.\g .\g ##
27f0: 23 20 6b 65 79 20 73 74 6f 72 61 67 65 20 63 6f  # key storage co
2800: 6d 6d 61 6e 64 73 20 23 23 23 0a 5c 67 20 0a 24  mmands ###.\g .$
2810: 31 31 20 6e 65 74 32 6f 3a 20 70 72 69 76 6b 65  11 net2o: privke
2820: 79 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20  y ( $:string -- 
2830: 29 0a 20 20 20 20 5c 67 20 70 72 69 76 61 74 65  ).    \g private
2840: 20 6b 65 79 0a 20 20 20 20 5c 20 64 6f 65 73 20   key.    \ does 
2850: 6e 6f 74 20 6e 65 65 64 20 74 6f 20 62 65 20 73  not need to be s
2860: 69 67 6e 65 64 2c 20 74 68 65 20 73 65 63 72 65  igned, the secre
2870: 74 20 6b 65 79 20 76 65 72 69 66 69 65 73 20 69  t key verifies i
2880: 74 73 65 6c 66 0a 20 20 20 20 24 3e 20 6f 76 65  tself.    $> ove
2890: 72 20 6b 65 79 70 61 64 20 73 6b 3e 70 6b 20 5c  r keypad sk>pk \
28a0: 20 67 65 6e 65 72 61 74 65 20 70 75 62 6b 65 79   generate pubkey
28b0: 0a 20 20 20 20 6b 65 79 70 61 64 20 6b 65 2d 70  .    keypad ke-p
28c0: 6b 20 24 40 20 64 72 6f 70 20 6b 65 79 73 69 7a  k $@ drop keysiz
28d0: 65 20 74 75 63 6b 20 73 74 72 3d 20 30 3d 20 21  e tuck str= 0= !
28e0: 21 77 72 6f 6e 67 2d 6b 65 79 21 21 0a 20 20 20  !wrong-key!!.   
28f0: 20 6b 65 2d 73 6b 20 73 65 63 21 20 2b 73 65 63   ke-sk sec! +sec
2900: 6b 65 79 20 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65  key ;.+net2o: ke
2910: 79 74 79 70 65 20 28 20 6e 20 2d 2d 20 29 20 20  ytype ( n -- )  
2920: 20 20 20 20 20 20 20 20 20 21 21 73 69 67 6e 65           !!signe
2930: 64 3f 20 20 20 31 20 21 21 3e 6f 72 64 65 72 3f  d?   1 !!>order?
2940: 20 36 34 3e 6e 20 6b 65 2d 74 79 70 65 20 21 20   64>n ke-type ! 
2950: 3b 0a 5c 67 20 6b 65 79 20 74 79 70 65 20 28 30  ;.\g key type (0
2960: 3a 20 61 6e 6f 6e 2c 20 31 3a 20 75 73 65 72 2c  : anon, 1: user,
2970: 20 32 3a 20 67 72 6f 75 70 29 0a 2b 6e 65 74 32   2: group).+net2
2980: 6f 3a 20 6b 65 79 6e 69 63 6b 20 28 20 24 3a 73  o: keynick ( $:s
2990: 74 72 69 6e 67 20 2d 2d 20 29 20 20 20 20 21 21  tring -- )    !!
29a0: 73 69 67 6e 65 64 3f 20 20 20 32 20 21 21 3e 6f  signed?   2 !!>o
29b0: 72 64 65 72 3f 20 24 3e 20 6b 65 2d 6e 69 63 6b  rder? $> ke-nick
29c0: 20 24 21 0a 20 20 20 20 6e 69 63 6b 21 20 3b 0a   $!.    nick! ;.
29d0: 5c 67 20 6b 65 79 20 6e 69 63 6b 0a 2b 6e 65 74  \g key nick.+net
29e0: 32 6f 3a 20 6b 65 79 70 72 6f 66 69 6c 65 20 28  2o: keyprofile (
29f0: 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20 21   $:string -- ) !
2a00: 21 73 69 67 6e 65 64 3f 20 20 20 34 20 21 21 3e  !signed?   4 !!>
2a10: 6f 72 64 65 72 3f 20 24 3e 20 6b 65 2d 70 72 6f  order? $> ke-pro
2a20: 66 20 24 21 20 3b 0a 5c 67 20 6b 65 79 20 70 72  f $! ;.\g key pr
2a30: 6f 66 69 6c 65 20 28 68 61 73 68 20 6f 66 20 61  ofile (hash of a
2a40: 20 72 65 73 6f 75 72 63 65 29 0a 2b 6e 65 74 32   resource).+net2
2a50: 6f 3a 20 6b 65 79 6d 61 73 6b 20 28 20 78 20 2d  o: keymask ( x -
2a60: 2d 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20  - )             
2a70: 20 20 20 20 20 20 20 20 20 20 38 20 21 21 3e 6f            8 !!>o
2a80: 72 64 65 72 3f 20 36 34 64 72 6f 70 20 3b 0a 5c  rder? 64drop ;.\
2a90: 67 20 6b 65 79 20 6d 61 73 6b 0a 2b 6e 65 74 32  g key mask.+net2
2aa0: 6f 3a 20 6b 65 79 70 73 6b 20 28 20 24 3a 73 74  o: keypsk ( $:st
2ab0: 72 69 6e 67 20 2d 2d 20 29 20 20 20 20 20 21 21  ring -- )     !!
2ac0: 73 69 67 6e 65 64 3f 20 24 31 30 20 21 21 3e 6f  signed? $10 !!>o
2ad0: 72 64 65 72 3f 20 24 3e 20 6b 65 2d 70 73 6b 20  rder? $> ke-psk 
2ae0: 73 65 63 21 20 3b 0a 5c 67 20 70 72 65 73 68 61  sec! ;.\g presha
2af0: 72 65 64 20 6b 65 79 2c 20 75 73 65 64 20 66 6f  red key, used fo
2b00: 72 20 44 48 54 20 65 6e 63 72 79 70 74 69 6f 6e  r DHT encryption
2b10: 0a 2b 6e 65 74 32 6f 3a 20 2b 6b 65 79 73 69 67  .+net2o: +keysig
2b20: 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29   ( $:string -- )
2b30: 20 20 24 32 30 20 21 21 3e 3d 6f 72 64 65 72 3f    $20 !!>=order?
2b40: 20 24 3e 20 6b 65 2d 73 69 67 73 20 24 2b 5b 5d   $> ke-sigs $+[]
2b50: 21 20 3b 0a 5c 67 20 61 64 64 20 61 20 6b 65 79  ! ;.\g add a key
2b60: 20 73 69 67 6e 61 74 75 72 65 0a 2b 6e 65 74 32   signature.+net2
2b70: 6f 3a 20 6b 65 79 69 6d 70 6f 72 74 20 28 20 6e  o: keyimport ( n
2b80: 20 2d 2d 20 29 0a 20 20 20 20 70 77 2d 6c 65 76   -- ).    pw-lev
2b90: 65 6c 23 20 30 3c 20 49 46 20 20 36 34 3e 6e 20  el# 0< IF  64>n 
2ba0: 69 6d 70 6f 72 74 23 75 6e 74 72 75 73 74 65 64  import#untrusted
2bb0: 20 75 6d 69 6e 20 6b 65 2d 69 6d 70 6f 72 74 20   umin ke-import 
2bc0: 21 0a 20 20 20 20 45 4c 53 45 20 20 36 34 64 72  !.    ELSE  64dr
2bd0: 6f 70 20 20 54 48 45 4e 20 3b 0a 64 75 70 20 73  op  THEN ;.dup s
2be0: 65 74 2d 63 75 72 72 65 6e 74 20 70 72 65 76 69  et-current previ
2bf0: 6f 75 73 0a 0a 67 65 6e 2d 74 61 62 6c 65 20 24  ous..gen-table $
2c00: 66 72 65 65 7a 65 0a 27 20 63 6f 6e 74 65 78 74  freeze.' context
2c10: 2d 74 61 62 6c 65 20 69 73 20 67 65 6e 2d 74 61  -table is gen-ta
2c20: 62 6c 65 0a 0a 3a 20 6b 65 79 3a 6e 65 73 74 2d  ble..: key:nest-
2c30: 73 69 67 20 28 20 61 64 64 72 20 75 20 2d 2d 20  sig ( addr u -- 
2c40: 61 64 64 72 20 75 27 20 66 6c 61 67 20 29 0a 20  addr u' flag ). 
2c50: 20 20 20 70 6b 32 2d 73 69 67 3f 20 64 75 70 20     pk2-sig? dup 
2c60: 30 3d 20 3f 45 58 49 54 20 64 72 6f 70 0a 20 20  0= ?EXIT drop.  
2c70: 20 20 32 64 75 70 20 2b 20 73 69 67 73 69 7a 65    2dup + sigsize
2c80: 23 20 2d 20 73 69 67 73 69 7a 65 23 20 3e 24 0a  # - sigsize# >$.
2c90: 20 20 20 20 73 69 67 70 6b 32 73 69 7a 65 23 20      sigpk2size# 
2ca0: 2d 20 32 64 75 70 20 2b 20 6b 65 79 73 69 7a 65  - 2dup + keysize
2cb0: 32 20 6b 65 79 3f 6e 65 77 20 6e 3a 3e 6f 20 24  2 key?new n:>o $
2cc0: 3e 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 21 0a  > ke-selfsig $!.
2cd0: 20 20 20 20 63 2d 73 74 61 74 65 20 6f 66 66 20      c-state off 
2ce0: 74 72 75 65 20 3b 0a 27 20 6b 65 79 3a 6e 65 73  true ;.' key:nes
2cf0: 74 2d 73 69 67 20 6b 65 79 2d 65 6e 74 72 79 20  t-sig key-entry 
2d00: 74 6f 20 6e 65 73 74 2d 73 69 67 0a 0a 6b 65 79  to nest-sig..key
2d10: 2d 65 6e 74 72 79 20 27 20 6e 65 77 20 73 74 61  -entry ' new sta
2d20: 74 69 63 2d 61 20 77 69 74 68 2d 61 6c 6c 6f 63  tic-a with-alloc
2d30: 61 74 65 72 20 74 6f 20 73 61 6d 70 6c 65 2d 6b  ater to sample-k
2d40: 65 79 0a 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f  ey.sample-key >o
2d50: 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65   key-entry-table
2d60: 20 40 20 74 6f 6b 65 6e 2d 74 61 62 6c 65 20 21   @ token-table !
2d70: 20 6f 3e 0a 0a 3a 20 6b 65 79 3a 63 6f 64 65 20   o>..: key:code 
2d80: 28 20 2d 2d 20 29 0a 20 20 20 20 63 6f 64 65 2d  ( -- ).    code-
2d90: 6b 65 79 20 20 63 6d 64 6c 6f 63 6b 20 6c 6f 63  key  cmdlock loc
2da0: 6b 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65  k.    keypack ke
2db0: 79 70 61 63 6b 2d 61 6c 6c 23 20 65 72 61 73 65  ypack-all# erase
2dc0: 0a 20 20 20 20 63 6d 64 72 65 73 65 74 20 61 6c  .    cmdreset al
2dd0: 73 6f 20 6e 65 74 32 6f 2d 62 61 73 65 20 3b 0a  so net2o-base ;.
2de0: 63 6f 6d 70 3a 20 3a 2c 20 61 6c 73 6f 20 6e 65  comp: :, also ne
2df0: 74 32 6f 2d 62 61 73 65 20 3b 0a 0a 61 6c 73 6f  t2o-base ;..also
2e00: 20 6e 65 74 32 6f 2d 62 61 73 65 20 64 65 66 69   net2o-base defi
2e10: 6e 69 74 69 6f 6e 73 0a 0a 3a 20 65 6e 64 3a 6b  nitions..: end:k
2e20: 65 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 65 6e  ey ( -- ).    en
2e30: 64 77 69 74 68 20 70 72 65 76 69 6f 75 73 20 63  dwith previous c
2e40: 6d 64 6c 6f 63 6b 20 75 6e 6c 6f 63 6b 20 3b 0a  mdlock unlock ;.
2e50: 63 6f 6d 70 3a 20 3a 2c 20 70 72 65 76 69 6f 75  comp: :, previou
2e60: 73 20 3b 0a 0a 73 65 74 2d 63 75 72 72 65 6e 74  s ;..set-current
2e70: 20 70 72 65 76 69 6f 75 73 20 70 72 65 76 69 6f   previous previo
2e80: 75 73 0a 0a 3a 20 6b 65 79 2d 63 72 79 70 74 20  us..: key-crypt 
2e90: 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61  ( -- ).    keypa
2ea0: 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 0a  ck keypack-all#.
2eb0: 20 20 20 20 3e 73 74 6f 72 65 6b 65 79 20 73 65      >storekey se
2ec0: 63 40 20 64 75 70 20 24 32 30 20 75 3c 3d 20 5c  c@ dup $20 u<= \
2ed0: 20 69 73 20 61 20 73 65 63 72 65 74 2c 20 6e 6f   is a secret, no
2ee0: 20 6e 65 65 64 20 74 6f 20 62 65 20 73 6c 6f 77   need to be slow
2ef0: 0a 20 20 20 20 49 46 20 20 65 6e 63 72 79 70 74  .    IF  encrypt
2f00: 24 20 20 45 4c 53 45 20 20 70 77 2d 6c 65 76 65  $  ELSE  pw-leve
2f10: 6c 23 20 65 6e 63 72 79 70 74 2d 70 77 24 20 20  l# encrypt-pw$  
2f20: 54 48 45 4e 20 3b 0a 0a 30 20 56 61 6c 75 65 20  THEN ;..0 Value 
2f30: 6b 65 79 2d 73 66 64 20 5c 20 73 65 63 72 65 74  key-sfd \ secret
2f40: 20 6b 65 79 73 0a 30 20 56 61 6c 75 65 20 6b 65   keys.0 Value ke
2f50: 79 2d 70 66 64 20 5c 20 70 75 62 6b 65 79 73 0a  y-pfd \ pubkeys.
2f60: 0a 3a 20 3f 6b 65 79 2d 73 66 64 20 28 20 2d 2d  .: ?key-sfd ( --
2f70: 20 66 64 20 29 20 6b 65 79 2d 73 66 64 20 22 7e   fd ) key-sfd "~
2f80: 2f 2e 6e 65 74 32 6f 2f 73 65 63 6b 65 79 73 2e  /.net2o/seckeys.
2f90: 6b 32 6f 22 20 3f 66 64 20 64 75 70 20 74 6f 20  k2o" ?fd dup to 
2fa0: 6b 65 79 2d 73 66 64 20 3b 0a 3a 20 3f 6b 65 79  key-sfd ;.: ?key
2fb0: 2d 70 66 64 20 28 20 2d 2d 20 66 64 20 29 20 6b  -pfd ( -- fd ) k
2fc0: 65 79 2d 70 66 64 20 22 7e 2f 2e 6e 65 74 32 6f  ey-pfd "~/.net2o
2fd0: 2f 70 75 62 6b 65 79 73 2e 6b 32 6f 22 20 3f 66  /pubkeys.k2o" ?f
2fe0: 64 20 64 75 70 20 74 6f 20 6b 65 79 2d 70 66 64  d dup to key-pfd
2ff0: 20 3b 0a 0a 3a 20 6b 65 79 3e 73 66 69 6c 65 20   ;..: key>sfile 
3000: 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61  ( -- ).    keypa
3010: 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20  ck keypack-all# 
3020: 3f 6b 65 79 2d 73 66 64 20 61 70 70 65 6e 64 2d  ?key-sfd append-
3030: 66 69 6c 65 20 6b 65 2d 6f 66 66 73 65 74 20 36  file ke-offset 6
3040: 34 21 20 3b 0a 3a 20 6b 65 79 3e 70 66 69 6c 65  4! ;.: key>pfile
3050: 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70   ( -- ).    keyp
3060: 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23  ack keypack-all#
3070: 20 3f 6b 65 79 2d 70 66 64 20 61 70 70 65 6e 64   ?key-pfd append
3080: 2d 66 69 6c 65 20 6b 65 2d 6f 66 66 73 65 74 20  -file ke-offset 
3090: 36 34 21 20 3b 0a 0a 3a 20 6b 65 79 3e 73 66 69  64! ;..: key>sfi
30a0: 6c 65 40 70 6f 73 20 28 20 36 34 70 6f 73 20 2d  le@pos ( 64pos -
30b0: 2d 20 29 20 36 34 64 75 70 20 36 34 23 2d 31 20  - ) 64dup 64#-1 
30c0: 36 34 3d 20 49 46 20 20 36 34 64 72 6f 70 20 6b  64= IF  64drop k
30d0: 65 79 3e 73 66 69 6c 65 0a 20 20 20 20 45 4c 53  ey>sfile.    ELS
30e0: 45 20 20 36 34 3e 72 20 6b 65 79 70 61 63 6b 20  E  64>r keypack 
30f0: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 36 34 72  keypack-all# 64r
3100: 3e 20 3f 6b 65 79 2d 73 66 64 20 77 72 69 74 65  > ?key-sfd write
3110: 40 70 6f 73 2d 66 69 6c 65 20 20 54 48 45 4e 20  @pos-file  THEN 
3120: 3b 0a 3a 20 6b 65 79 3e 70 66 69 6c 65 40 70 6f  ;.: key>pfile@po
3130: 73 20 28 20 36 34 70 6f 73 20 2d 2d 20 29 20 36  s ( 64pos -- ) 6
3140: 34 64 75 70 20 36 34 23 2d 31 20 36 34 3d 20 49  4dup 64#-1 64= I
3150: 46 20 20 36 34 64 72 6f 70 20 6b 65 79 3e 70 66  F  64drop key>pf
3160: 69 6c 65 0a 20 20 20 20 45 4c 53 45 20 20 36 34  ile.    ELSE  64
3170: 3e 72 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 61  >r keypack keypa
3180: 63 6b 2d 61 6c 6c 23 20 36 34 72 3e 20 3f 6b 65  ck-all# 64r> ?ke
3190: 79 2d 70 66 64 20 77 72 69 74 65 40 70 6f 73 2d  y-pfd write@pos-
31a0: 66 69 6c 65 20 20 54 48 45 4e 20 3b 0a 0a 3a 20  file  THEN ;..: 
31b0: 72 6e 64 3e 73 66 69 6c 65 20 28 20 2d 2d 20 29  rnd>sfile ( -- )
31c0: 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 79  .    keypack key
31d0: 70 61 63 6b 2d 61 6c 6c 23 20 3e 72 6e 67 24 20  pack-all# >rng$ 
31e0: 6b 65 79 3e 73 66 69 6c 65 20 3b 0a 3a 20 72 6e  key>sfile ;.: rn
31f0: 64 3e 70 66 69 6c 65 20 28 20 2d 2d 20 29 0a 20  d>pfile ( -- ). 
3200: 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 61     keypack keypa
3210: 63 6b 2d 61 6c 6c 23 20 3e 72 6e 67 24 20 6b 65  ck-all# >rng$ ke
3220: 79 3e 70 66 69 6c 65 20 3b 0a 0a 3a 20 3e 6b 65  y>pfile ;..: >ke
3230: 79 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 5c 47  ys ( -- ).    \G
3240: 20 61 64 64 20 73 68 61 72 65 64 20 73 65 63 72   add shared secr
3250: 65 74 20 74 6f 20 6c 69 73 74 20 6f 66 20 70 6f  et to list of po
3260: 73 73 69 62 6c 65 20 6b 65 79 73 0a 20 20 20 20  ssible keys.    
3270: 73 6b 63 20 70 6b 63 20 6b 65 79 70 61 64 20 65  skc pkc keypad e
3280: 64 2d 64 68 20 2b 6b 65 79 20 3b 0a 0a 5c 20 6b  d-dh +key ;..\ k
3290: 65 79 20 67 65 6e 65 72 61 74 69 6f 6e 0a 5c 20  ey generation.\ 
32a0: 66 6f 72 20 72 65 70 72 6f 64 75 63 69 62 69 6c  for reproducibil
32b0: 69 74 79 20 6f 66 20 74 68 65 20 73 65 6c 66 73  ity of the selfs
32c0: 69 67 2c 20 61 6c 77 61 79 73 20 75 73 65 20 74  ig, always use t
32d0: 68 65 20 73 61 6d 65 20 6f 72 64 65 72 3a 0a 5c  he same order:.\
32e0: 20 22 70 75 62 6b 65 79 22 20 6e 65 77 6b 65 79   "pubkey" newkey
32f0: 20 3c 6e 3e 20 6b 65 79 74 79 70 65 20 22 6e 69   <n> keytype "ni
3300: 63 6b 22 20 6b 65 79 6e 69 63 6b 20 22 73 69 67  ck" keynick "sig
3310: 22 20 6b 65 79 73 65 6c 66 73 69 67 0a 0a 55 73  " keyselfsig..Us
3320: 65 72 20 70 6b 2b 73 69 67 24 0a 0a 6b 65 79 73  er pk+sig$..keys
3330: 69 7a 65 32 20 43 6f 6e 73 74 61 6e 74 20 70 6b  ize2 Constant pk
3340: 72 6b 23 0a 0a 3a 20 5d 70 6b 2b 73 69 67 6e 20  rk#..: ]pk+sign 
3350: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 2b 63  ( addr u -- ) +c
3360: 6d 64 62 75 66 20 5d 73 69 67 6e 20 3b 0a 0a 3a  mdbuf ]sign ;..:
3370: 20 70 61 63 6b 2d 6b 65 79 20 28 20 74 79 70 65   pack-key ( type
3380: 20 6e 69 63 6b 20 75 20 2d 2d 20 29 0a 20 20 20   nick u -- ).   
3390: 20 6e 6f 77 3e 6e 65 76 65 72 0a 20 20 20 20 6b   now>never.    k
33a0: 65 79 3a 63 6f 64 65 0a 20 20 20 20 20 20 73 69  ey:code.      si
33b0: 67 6e 5b 0a 20 20 20 20 20 20 72 6f 74 20 75 6c  gn[.      rot ul
33c0: 69 74 2c 20 6b 65 79 74 79 70 65 20 24 2c 20 6b  it, keytype $, k
33d0: 65 79 6e 69 63 6b 0a 20 20 20 20 20 20 70 6b 63  eynick.      pkc
33e0: 20 70 6b 72 6b 23 20 5d 70 6b 2b 73 69 67 6e 0a   pkrk# ]pk+sign.
33f0: 20 20 20 20 20 20 73 6b 63 20 6b 65 79 73 69 7a        skc keysiz
3400: 65 20 24 2c 20 70 72 69 76 6b 65 79 0a 20 20 20  e $, privkey.   
3410: 20 65 6e 64 3a 6b 65 79 20 3b 0a 0a 61 6c 73 6f   end:key ;..also
3420: 20 6e 65 74 32 6f 2d 62 61 73 65 0a 3a 20 70 61   net2o-base.: pa
3430: 63 6b 2d 63 6f 72 65 20 28 20 6f 3a 6b 65 79 20  ck-core ( o:key 
3440: 2d 2d 20 29 20 5c 20 63 6f 72 65 20 77 69 74 68  -- ) \ core with
3450: 6f 75 74 20 6b 65 79 0a 20 20 20 20 6b 65 2d 74  out key.    ke-t
3460: 79 70 65 20 40 20 75 6c 69 74 2c 20 6b 65 79 74  ype @ ulit, keyt
3470: 79 70 65 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20  ype.    ke-nick 
3480: 24 40 20 24 2c 20 6b 65 79 6e 69 63 6b 0a 5c 20  $@ $, keynick.\ 
3490: 20 20 20 6b 65 2d 70 73 6b 20 73 65 63 40 20 64     ke-psk sec@ d
34a0: 75 70 20 49 46 20 20 24 2c 20 6b 65 79 70 73 6b  up IF  $, keypsk
34b0: 20 20 45 4c 53 45 20 20 32 64 72 6f 70 20 20 54    ELSE  2drop  T
34c0: 48 45 4e 0a 20 20 20 20 6b 65 2d 70 72 6f 66 20  HEN.    ke-prof 
34d0: 24 40 20 64 75 70 20 49 46 20 20 24 2c 20 6b 65  $@ dup IF  $, ke
34e0: 79 70 72 6f 66 69 6c 65 20 20 45 4c 53 45 20 20  yprofile  ELSE  
34f0: 32 64 72 6f 70 20 20 54 48 45 4e 20 3b 0a 0a 3a  2drop  THEN ;..:
3500: 20 70 61 63 6b 2d 63 6f 72 65 6b 65 79 20 28 20   pack-corekey ( 
3510: 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 73  o:key -- ).    s
3520: 69 67 6e 5b 0a 20 20 20 20 70 61 63 6b 2d 63 6f  ign[.    pack-co
3530: 72 65 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20  re.    ke-pk $@ 
3540: 2b 63 6d 64 62 75 66 0a 20 20 20 20 6b 65 2d 73  +cmdbuf.    ke-s
3550: 65 6c 66 73 69 67 20 24 40 20 2b 63 6d 64 62 75  elfsig $@ +cmdbu
3560: 66 20 63 6d 64 2d 72 65 73 6f 6c 76 65 3e 20 32  f cmd-resolve> 2
3570: 64 72 6f 70 20 6e 65 73 74 73 69 67 0a 20 20 20  drop nestsig.   
3580: 20 6b 65 2d 69 6d 70 6f 72 74 20 40 20 75 6c 69   ke-import @ uli
3590: 74 2c 20 6b 65 79 69 6d 70 6f 72 74 0a 20 20 20  t, keyimport.   
35a0: 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20 40 20 3e   ke-storekey @ >
35b0: 73 74 6f 72 65 6b 65 79 20 21 20 3b 0a 70 72 65  storekey ! ;.pre
35c0: 76 69 6f 75 73 0a 0a 3a 20 70 61 63 6b 2d 70 75  vious..: pack-pu
35d0: 62 6b 65 79 20 28 20 6f 3a 6b 65 79 20 2d 2d 20  bkey ( o:key -- 
35e0: 29 0a 20 20 20 20 6b 65 79 3a 63 6f 64 65 0a 20  ).    key:code. 
35f0: 20 20 20 20 20 70 61 63 6b 2d 63 6f 72 65 6b 65       pack-coreke
3600: 79 0a 20 20 20 20 65 6e 64 3a 6b 65 79 20 3b 0a  y.    end:key ;.
3610: 3a 20 70 61 63 6b 2d 73 65 63 6b 65 79 20 28 20  : pack-seckey ( 
3620: 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 6b  o:key -- ).    k
3630: 65 79 3a 63 6f 64 65 0a 20 20 20 20 20 20 70 61  ey:code.      pa
3640: 63 6b 2d 63 6f 72 65 6b 65 79 0a 20 20 20 20 20  ck-corekey.     
3650: 20 6b 65 2d 73 6b 20 73 65 63 40 20 24 2c 20 70   ke-sk sec@ $, p
3660: 72 69 76 6b 65 79 0a 20 20 20 20 65 6e 64 3a 6b  rivkey.    end:k
3670: 65 79 20 3b 0a 3a 20 6b 65 79 6e 69 63 6b 24 20  ey ;.: keynick$ 
3680: 28 20 6f 3a 6b 65 79 20 2d 2d 20 61 64 64 72 20  ( o:key -- addr 
3690: 75 20 29 0a 20 20 20 20 5c 67 20 67 65 74 20 74  u ).    \g get t
36a0: 68 65 20 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 77  he annotations w
36b0: 69 74 68 20 73 69 67 6e 61 74 75 72 65 0a 20 20  ith signature.  
36c0: 20 20 5b 27 5d 20 70 61 63 6b 2d 63 6f 72 65 20    ['] pack-core 
36d0: 67 65 6e 2d 63 6d 64 24 20 32 64 72 6f 70 0a 20  gen-cmd$ 2drop. 
36e0: 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40     ke-selfsig $@
36f0: 20 74 6d 70 24 20 24 2b 21 20 74 6d 70 24 20 24   tmp$ $+! tmp$ $
3700: 40 20 3b 0a 3a 20 6d 79 6e 69 63 6b 24 20 28 20  @ ;.: mynick$ ( 
3710: 6f 3a 6b 65 79 20 2d 2d 20 61 64 64 72 20 75 20  o:key -- addr u 
3720: 29 0a 20 20 20 20 5c 67 20 67 65 74 20 6d 79 20  ).    \g get my 
3730: 6e 69 63 6b 20 77 69 74 68 20 73 69 67 6e 61 74  nick with signat
3740: 75 72 65 0a 20 20 20 20 70 6b 63 20 6b 65 79 73  ure.    pkc keys
3750: 69 7a 65 20 6b 65 79 2d 74 61 62 6c 65 20 23 40  ize key-table #@
3760: 20 64 72 6f 70 20 63 65 6c 6c 2b 20 2e 6b 65 79   drop cell+ .key
3770: 6e 69 63 6b 24 20 3b 0a 0a 56 61 72 69 61 62 6c  nick$ ;..Variabl
3780: 65 20 63 70 2d 74 6d 70 0a 0a 3a 20 73 61 76 65  e cp-tmp..: save
3790: 2d 70 75 62 6b 65 79 73 20 28 20 2d 2d 20 29 0a  -pubkeys ( -- ).
37a0: 20 20 20 20 6b 65 79 2d 70 66 64 20 3f 64 75 70      key-pfd ?dup
37b0: 2d 49 46 20 20 63 6c 6f 73 65 2d 66 69 6c 65 20  -IF  close-file 
37c0: 74 68 72 6f 77 20 20 54 48 45 4e 0a 20 20 20 20  throw  THEN.    
37d0: 22 7e 2f 2e 6e 65 74 32 6f 2f 70 75 62 6b 65 79  "~/.net2o/pubkey
37e0: 73 2e 6b 32 6f 22 20 5b 3a 20 74 6f 20 6b 65 79  s.k2o" [: to key
37f0: 2d 70 66 64 0a 20 20 20 20 20 20 6b 65 79 2d 74  -pfd.      key-t
3800: 61 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40  able [: cell+ $@
3810: 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a 09   drop cell+ >o..
3820: 6b 65 2d 73 6b 20 73 65 63 40 20 64 30 3d 20 49  ke-sk sec@ d0= I
3830: 46 20 20 70 61 63 6b 2d 70 75 62 6b 65 79 0a 09  F  pack-pubkey..
3840: 20 20 20 20 66 6c 75 73 68 28 20 2e 22 20 73 61      flush( ." sa
3850: 76 69 6e 67 20 22 20 2e 6e 69 63 6b 20 66 6f 72  ving " .nick for
3860: 74 68 3a 63 72 20 29 0a 09 20 20 20 20 6b 65 79  th:cr )..    key
3870: 2d 63 72 79 70 74 20 6b 65 2d 6f 66 66 73 65 74  -crypt ke-offset
3880: 20 36 34 40 20 6b 65 79 3e 70 66 69 6c 65 40 70   64@ key>pfile@p
3890: 6f 73 0a 09 54 48 45 4e 20 6f 3e 20 3b 5d 20 23  os..THEN o> ;] #
38a0: 6d 61 70 0a 20 20 20 20 3b 5d 20 73 61 76 65 2d  map.    ;] save-
38b0: 66 69 6c 65 20 3b 0a 0a 3a 20 73 61 76 65 2d 73  file ;..: save-s
38c0: 65 63 6b 65 79 73 20 28 20 2d 2d 20 29 0a 20 20  eckeys ( -- ).  
38d0: 20 20 6b 65 79 2d 73 66 64 20 3f 64 75 70 2d 49    key-sfd ?dup-I
38e0: 46 20 20 63 6c 6f 73 65 2d 66 69 6c 65 20 74 68  F  close-file th
38f0: 72 6f 77 20 20 54 48 45 4e 0a 20 20 20 20 22 7e  row  THEN.    "~
3900: 2f 2e 6e 65 74 32 6f 2f 73 65 63 6b 65 79 73 2e  /.net2o/seckeys.
3910: 6b 32 6f 22 20 5b 3a 20 74 6f 20 6b 65 79 2d 73  k2o" [: to key-s
3920: 66 64 0a 20 20 20 20 20 20 6b 65 79 2d 74 61 62  fd.      key-tab
3930: 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64  le [: cell+ $@ d
3940: 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a 09 6b 65  rop cell+ >o..ke
3950: 2d 73 6b 20 73 65 63 40 20 64 30 3c 3e 20 49 46  -sk sec@ d0<> IF
3960: 20 20 70 61 63 6b 2d 73 65 63 6b 65 79 0a 09 20    pack-seckey.. 
3970: 20 20 20 6b 65 79 2d 63 72 79 70 74 20 6b 65 2d     key-crypt ke-
3980: 6f 66 66 73 65 74 20 36 34 40 20 6b 65 79 3e 73  offset 64@ key>s
3990: 66 69 6c 65 40 70 6f 73 0a 09 54 48 45 4e 20 6f  file@pos..THEN o
39a0: 3e 20 3b 5d 20 23 6d 61 70 0a 20 20 20 20 3b 5d  > ;] #map.    ;]
39b0: 20 73 61 76 65 2d 66 69 6c 65 20 3b 0a 0a 3a 20   save-file ;..: 
39c0: 73 61 76 65 2d 6b 65 79 73 20 28 20 2d 2d 20 29  save-keys ( -- )
39d0: 0a 20 20 20 20 73 61 76 65 2d 70 75 62 6b 65 79  .    save-pubkey
39e0: 73 20 73 61 76 65 2d 73 65 63 6b 65 79 73 20 3b  s save-seckeys ;
39f0: 0a 0a 3a 20 2b 67 65 6e 2d 6b 65 79 73 20 28 20  ..: +gen-keys ( 
3a00: 6e 69 63 6b 20 75 20 74 79 70 65 20 2d 2d 20 29  nick u type -- )
3a10: 20 2d 72 6f 74 20 20 69 6d 70 6f 72 74 23 73 65   -rot  import#se
3a20: 6c 66 20 69 6d 70 6f 72 74 2d 74 79 70 65 20 21  lf import-type !
3a30: 0a 20 20 20 20 67 65 6e 2d 6b 65 79 73 20 3e 6b  .    gen-keys >k
3a40: 65 79 73 20 70 61 63 6b 2d 6b 65 79 20 6b 65 79  eys pack-key key
3a50: 2d 63 72 79 70 74 20 6b 65 79 3e 73 66 69 6c 65  -crypt key>sfile
3a60: 0a 20 20 20 20 69 6d 70 6f 72 74 23 75 6e 74 72  .    import#untr
3a70: 75 73 74 65 64 20 69 6d 70 6f 72 74 2d 74 79 70  usted import-typ
3a80: 65 20 21 20 3b 0a 0a 3a 20 2b 6b 65 79 70 61 69  e ! ;..: +keypai
3a90: 72 20 28 20 74 79 70 65 20 6e 69 63 6b 20 75 20  r ( type nick u 
3aa0: 2d 2d 20 29 20 2b 70 61 73 73 70 68 72 61 73 65  -- ) +passphrase
3ab0: 20 2b 67 65 6e 2d 6b 65 79 73 20 3b 0a 0a 3a 20   +gen-keys ;..: 
3ac0: 2e 72 76 6b 20 2e 22 20 50 6c 65 61 73 65 20 77  .rvk ." Please w
3ad0: 72 69 74 65 20 64 6f 77 6e 20 72 65 76 6f 6b 65  rite down revoke
3ae0: 20 6b 65 79 3a 20 22 20 63 72 0a 20 20 20 20 73   key: " cr.    s
3af0: 6b 72 65 76 20 24 32 30 20 62 6f 75 6e 64 73 20  krev $20 bounds 
3b00: 44 4f 20 20 2e 22 20 5c 20 22 20 49 20 34 20 38  DO  ." \ " I 4 8
3b10: 35 74 79 70 65 20 73 70 61 63 65 20 49 20 34 20  5type space I 4 
3b20: 2b 20 34 20 38 35 74 79 70 65 20 63 72 20 38 20  + 4 85type cr 8 
3b30: 2b 4c 4f 4f 50 20 3b 0a 0a 24 34 30 20 62 75 66  +LOOP ;..$40 buf
3b40: 66 65 72 3a 20 6e 69 63 6b 2d 62 75 66 0a 0a 3a  fer: nick-buf..:
3b50: 20 67 65 74 2d 6e 69 63 6b 20 28 20 2d 2d 20 61   get-nick ( -- a
3b60: 64 64 72 20 75 20 29 0a 20 20 20 20 2e 22 20 6e  ddr u ).    ." n
3b70: 69 63 6b 3a 20 22 20 6e 69 63 6b 2d 62 75 66 20  ick: " nick-buf 
3b80: 24 34 30 20 61 63 63 65 70 74 20 6e 69 63 6b 2d  $40 accept nick-
3b90: 62 75 66 20 73 77 61 70 20 63 72 20 3b 0a 3a 20  buf swap cr ;.: 
3ba0: 6d 61 6b 65 2d 6b 65 79 20 28 20 2d 2d 20 29 0a  make-key ( -- ).
3bb0: 20 20 20 20 6b 65 79 23 75 73 65 72 20 67 65 74      key#user get
3bc0: 2d 6e 69 63 6b 0a 20 20 20 20 2e 22 20 70 61 73  -nick.    ." pas
3bd0: 73 70 68 72 61 73 65 3a 20 22 20 2b 70 61 73 73  sphrase: " +pass
3be0: 70 68 72 61 73 65 20 6b 65 79 3e 64 65 66 61 75  phrase key>defau
3bf0: 6c 74 0a 20 20 20 20 63 72 20 2b 67 65 6e 2d 6b  lt.    cr +gen-k
3c00: 65 79 73 20 2e 72 76 6b 20 3b 0a 0a 5c 20 72 65  eys .rvk ;..\ re
3c10: 61 64 20 6b 65 79 20 66 69 6c 65 0a 0a 3a 20 74  ad key file..: t
3c20: 72 79 2d 64 65 63 72 79 70 74 2d 6b 65 79 20 28  ry-decrypt-key (
3c30: 20 6b 65 79 20 75 31 20 2d 2d 20 61 64 64 72 20   key u1 -- addr 
3c40: 75 32 20 66 6c 61 67 20 29 0a 20 20 20 20 6b 65  u2 flag ).    ke
3c50: 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 64 20  ypack keypack-d 
3c60: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 6d 6f 76  keypack-all# mov
3c70: 65 0a 20 20 20 20 6b 65 79 70 61 63 6b 2d 64 20  e.    keypack-d 
3c80: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 32 73 77  keypack-all# 2sw
3c90: 61 70 0a 20 20 20 20 64 75 70 20 24 32 30 20 3d  ap.    dup $20 =
3ca0: 20 49 46 20 20 64 65 63 72 79 70 74 24 20 20 45   IF  decrypt$  E
3cb0: 4c 53 45 0a 09 6b 65 79 70 61 63 6b 20 63 40 20  LSE..keypack c@ 
3cc0: 24 46 20 61 6e 64 20 70 77 2d 6c 65 76 65 6c 23  $F and pw-level#
3cd0: 20 3c 3d 20 49 46 20 20 64 65 63 72 79 70 74 2d   <= IF  decrypt-
3ce0: 70 77 24 0a 09 45 4c 53 45 20 20 32 64 72 6f 70  pw$..ELSE  2drop
3cf0: 20 66 61 6c 73 65 20 20 54 48 45 4e 0a 20 20 20   false  THEN.   
3d00: 20 54 48 45 4e 20 3b 0a 0a 3a 20 74 72 79 2d 64   THEN ;..: try-d
3d10: 65 63 72 79 70 74 20 28 20 2d 2d 20 61 64 64 72  ecrypt ( -- addr
3d20: 20 75 20 2f 20 30 20 30 20 29 0a 20 20 20 20 6b   u / 0 0 ).    k
3d30: 65 79 73 20 24 5b 5d 23 20 30 20 3f 44 4f 0a 09  eys $[]# 0 ?DO..
3d40: 49 20 6b 65 79 73 20 73 65 63 5b 5d 40 20 74 72  I keys sec[]@ tr
3d50: 79 2d 64 65 63 72 79 70 74 2d 6b 65 79 20 49 46  y-decrypt-key IF
3d60: 0a 09 20 20 20 20 49 20 6b 65 79 73 20 24 5b 5d  ..    I keys $[]
3d70: 20 40 20 3e 73 74 6f 72 65 6b 65 79 20 21 20 75   @ >storekey ! u
3d80: 6e 6c 6f 6f 70 20 20 45 58 49 54 20 20 54 48 45  nloop  EXIT  THE
3d90: 4e 0a 09 32 64 72 6f 70 0a 20 20 20 20 4c 4f 4f  N..2drop.    LOO
3da0: 50 20 20 30 20 30 20 3b 0a 0a 3a 20 64 6f 2d 6b  P  0 0 ;..: do-k
3db0: 65 79 20 28 20 61 64 64 72 20 75 20 2f 20 30 20  ey ( addr u / 0 
3dc0: 30 20 20 2d 2d 20 29 0a 20 20 20 20 64 75 70 20  0  -- ).    dup 
3dd0: 30 3d 20 49 46 20 20 32 64 72 6f 70 20 20 45 58  0= IF  2drop  EX
3de0: 49 54 20 20 54 48 45 4e 0a 20 20 20 20 73 61 6d  IT  THEN.    sam
3df0: 70 6c 65 2d 6b 65 79 20 2e 64 6f 2d 63 6d 64 2d  ple-key .do-cmd-
3e00: 6c 6f 6f 70 20 3b 0a 0a 3a 20 2e 6b 65 79 24 20  loop ;..: .key$ 
3e10: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20  ( addr u -- ).  
3e20: 20 20 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20    sample-key >o 
3e30: 20 6b 65 2d 73 6b 20 6b 65 2d 65 6e 64 20 6f 76   ke-sk ke-end ov
3e40: 65 72 20 2d 20 65 72 61 73 65 0a 20 20 20 20 73  er - erase.    s
3e50: 69 67 6e 65 64 2d 76 61 6c 20 76 61 6c 69 64 61  igned-val valida
3e60: 74 65 64 20 6f 72 21 20 20 63 2d 73 74 61 74 65  ted or!  c-state
3e70: 20 6f 66 66 20 20 6e 65 73 74 2d 63 6d 64 2d 6c   off  nest-cmd-l
3e80: 6f 6f 70 0a 20 20 20 20 73 69 67 6e 65 64 2d 76  oop.    signed-v
3e90: 61 6c 20 69 6e 76 65 72 74 20 76 61 6c 69 64 61  al invert valida
3ea0: 74 65 64 20 61 6e 64 21 0a 20 20 20 20 2e 6b 65  ted and!.    .ke
3eb0: 79 2d 73 68 6f 72 74 20 66 72 65 65 2d 6b 65 79  y-short free-key
3ec0: 20 6f 3e 20 3b 0a 0a 3a 20 72 65 61 64 2d 6b 65   o> ;..: read-ke
3ed0: 79 73 2d 6c 6f 6f 70 20 28 20 66 64 20 2d 2d 20  ys-loop ( fd -- 
3ee0: 29 20 20 63 6f 64 65 2d 6b 65 79 0a 20 20 20 20  )  code-key.    
3ef0: 3e 72 20 30 2e 20 72 40 20 72 65 70 6f 73 69 74  >r 0. r@ reposit
3f00: 69 6f 6e 2d 66 69 6c 65 20 74 68 72 6f 77 0a 20  ion-file throw. 
3f10: 20 20 20 42 45 47 49 4e 0a 09 72 40 20 66 69 6c     BEGIN..r@ fil
3f20: 65 2d 70 6f 73 69 74 69 6f 6e 20 74 68 72 6f 77  e-position throw
3f30: 20 64 3e 36 34 20 6b 65 79 2d 72 65 61 64 2d 6f   d>64 key-read-o
3f40: 66 66 73 65 74 20 36 34 21 0a 09 6b 65 79 70 61  ffset 64!..keypa
3f50: 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20  ck keypack-all# 
3f60: 72 40 20 72 65 61 64 2d 66 69 6c 65 20 74 68 72  r@ read-file thr
3f70: 6f 77 0a 09 6b 65 79 70 61 63 6b 2d 61 6c 6c 23  ow..keypack-all#
3f80: 20 3d 20 57 48 49 4c 45 20 20 74 72 79 2d 64 65   = WHILE  try-de
3f90: 63 72 79 70 74 20 64 6f 2d 6b 65 79 0a 20 20 20  crypt do-key.   
3fa0: 20 52 45 50 45 41 54 20 20 72 64 72 6f 70 20 20   REPEAT  rdrop  
3fb0: 63 6f 64 65 30 2d 62 75 66 20 3b 0a 3a 20 72 65  code0-buf ;.: re
3fc0: 61 64 2d 6b 65 79 2d 6c 6f 6f 70 20 28 20 2d 2d  ad-key-loop ( --
3fd0: 20 29 0a 20 20 20 20 69 6d 70 6f 72 74 23 73 65   ).    import#se
3fe0: 6c 66 20 69 6d 70 6f 72 74 2d 74 79 70 65 20 21  lf import-type !
3ff0: 0a 20 20 20 20 3f 6b 65 79 2d 73 66 64 20 72 65  .    ?key-sfd re
4000: 61 64 2d 6b 65 79 73 2d 6c 6f 6f 70 20 3b 0a 3a  ad-keys-loop ;.:
4010: 20 72 65 61 64 2d 70 6b 65 79 2d 6c 6f 6f 70 20   read-pkey-loop 
4020: 28 20 2d 2d 20 29 0a 20 20 20 20 70 77 2d 6c 65  ( -- ).    pw-le
4030: 76 65 6c 23 20 3e 72 20 2d 31 20 74 6f 20 70 77  vel# >r -1 to pw
4040: 2d 6c 65 76 65 6c 23 20 20 69 6d 70 6f 72 74 23  -level#  import#
4050: 6d 61 6e 75 61 6c 20 69 6d 70 6f 72 74 2d 74 79  manual import-ty
4060: 70 65 20 21 0a 20 20 20 20 3f 6b 65 79 2d 70 66  pe !.    ?key-pf
4070: 64 20 72 65 61 64 2d 6b 65 79 73 2d 6c 6f 6f 70  d read-keys-loop
4080: 0a 20 20 20 20 72 3e 20 74 6f 20 70 77 2d 6c 65  .    r> to pw-le
4090: 76 65 6c 23 20 20 3b 0a 0a 3a 20 72 65 61 64 2d  vel#  ;..: read-
40a0: 6b 65 79 73 20 28 20 2d 2d 20 29 0a 20 20 20 20  keys ( -- ).    
40b0: 72 65 61 64 2d 6b 65 79 2d 6c 6f 6f 70 20 72 65  read-key-loop re
40c0: 61 64 2d 70 6b 65 79 2d 6c 6f 6f 70 20 69 6d 70  ad-pkey-loop imp
40d0: 6f 72 74 23 75 6e 74 72 75 73 74 65 64 20 69 6d  ort#untrusted im
40e0: 70 6f 72 74 2d 74 79 70 65 20 21 20 3b 0a 0a 5c  port-type ! ;..\
40f0: 20 73 65 6c 65 63 74 20 6b 65 79 20 62 79 20 6e   select key by n
4100: 69 63 6b 0a 0a 3a 20 3e 72 61 77 2d 6b 65 79 20  ick..: >raw-key 
4110: 28 20 6f 20 2d 2d 20 29 0a 20 20 20 20 64 75 70  ( o -- ).    dup
4120: 20 30 3d 20 21 21 6e 6f 2d 6e 69 63 6b 21 21 20   0= !!no-nick!! 
4130: 3e 6f 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20  >o.    ke-pk $@ 
4140: 70 6b 63 20 73 77 61 70 20 70 6b 72 6b 23 20 75  pkc swap pkrk# u
4150: 6d 69 6e 20 6d 6f 76 65 0a 20 20 20 20 6b 65 2d  min move.    ke-
4160: 70 73 6b 20 73 65 63 40 20 6d 79 2d 30 6b 65 79  psk sec@ my-0key
4170: 20 73 65 63 21 0a 20 20 20 20 6b 65 2d 73 6b 20   sec!.    ke-sk 
4180: 73 65 63 40 20 73 6b 63 20 73 77 61 70 20 6b 65  sec@ skc swap ke
4190: 79 7c 20 6d 6f 76 65 0a 20 20 20 20 3e 73 6b 73  y| move.    >sks
41a0: 69 67 20 6f 3e 20 3b 0a 0a 3a 20 3e 6b 65 79 20  ig o> ;..: >key 
41b0: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20  ( addr u -- ).  
41c0: 20 20 6b 65 79 2d 74 61 62 6c 65 20 40 20 30 3d    key-table @ 0=
41d0: 20 49 46 20 20 72 65 61 64 2d 6b 65 79 73 20 20   IF  read-keys  
41e0: 54 48 45 4e 0a 20 20 20 20 6e 69 63 6b 2d 6b 65  THEN.    nick-ke
41f0: 79 20 3e 72 61 77 2d 6b 65 79 20 3b 0a 0a 3a 20  y >raw-key ;..: 
4200: 69 27 6d 20 28 20 22 6e 61 6d 65 22 20 2d 2d 20  i'm ( "name" -- 
4210: 29 20 70 61 72 73 65 2d 6e 61 6d 65 20 3e 6b 65  ) parse-name >ke
4220: 79 20 3b 0a 3a 20 70 6b 27 20 28 20 22 6e 61 6d  y ;.: pk' ( "nam
4230: 65 22 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20  e" -- addr u ). 
4240: 20 20 20 70 61 72 73 65 2d 6e 61 6d 65 20 6e 69     parse-name ni
4250: 63 6b 3e 70 6b 20 3b 0a 0a 3a 20 64 65 73 74 2d  ck>pk ;..: dest-
4260: 6b 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20  key ( addr u -- 
4270: 29 20 64 75 70 20 30 3d 20 49 46 20 20 32 64 72  ) dup 0= IF  2dr
4280: 6f 70 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20  op  EXIT  THEN. 
4290: 20 20 20 6e 69 63 6b 2d 6b 65 79 20 3e 6f 20 6f     nick-key >o o
42a0: 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65   0= !!unknown-ke
42b0: 79 21 21 0a 20 20 20 20 6b 65 2d 70 73 6b 20 73  y!!.    ke-psk s
42c0: 65 63 40 20 73 74 61 74 65 23 20 75 6d 69 6e 0a  ec@ state# umin.
42d0: 20 20 20 20 6b 65 2d 70 6b 20 24 40 20 6b 65 79      ke-pk $@ key
42e0: 7c 20 6f 3e 0a 20 20 20 20 70 75 62 6b 65 79 20  | o>.    pubkey 
42f0: 24 21 20 20 64 65 73 74 2d 30 6b 65 79 20 73 65  $!  dest-0key se
4300: 63 21 20 3b 0a 0a 3a 20 64 65 73 74 2d 70 6b 20  c! ;..: dest-pk 
4310: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 6b 65  ( addr u -- ) ke
4320: 79 32 7c 20 32 64 75 70 20 6b 65 79 2d 74 61 62  y2| 2dup key-tab
4330: 6c 65 20 23 40 20 30 3d 20 49 46 0a 09 64 72 6f  le #@ 0= IF..dro
4340: 70 20 6b 65 79 7c 20 70 75 62 6b 65 79 20 24 21  p key| pubkey $!
4350: 0a 20 20 20 20 45 4c 53 45 20 20 63 65 6c 6c 2b  .    ELSE  cell+
4360: 20 3e 6f 0a 09 6b 65 2d 70 73 6b 20 73 65 63 40   >o..ke-psk sec@
4370: 20 73 74 61 74 65 23 20 75 6d 69 6e 0a 09 6b 65   state# umin..ke
4380: 2d 70 6b 20 24 40 20 6b 65 79 7c 20 6f 3e 0a 09  -pk $@ key| o>..
4390: 70 75 62 6b 65 79 20 24 21 20 20 64 65 73 74 2d  pubkey $!  dest-
43a0: 30 6b 65 79 20 73 65 63 21 20 20 54 48 45 4e 20  0key sec!  THEN 
43b0: 3b 0a 0a 3a 20 72 65 70 6c 61 63 65 2d 6b 65 79  ;..: replace-key
43c0: 20 31 20 2f 73 74 72 69 6e 67 20 7b 20 72 65 76   1 /string { rev
43d0: 2d 61 64 64 72 20 75 20 2d 2d 20 6f 20 7d 20 5c  -addr u -- o } \
43e0: 20 72 65 76 6f 63 61 74 69 6f 6e 20 74 69 63 6b   revocation tick
43f0: 65 74 0a 20 20 20 20 6b 65 79 28 20 2e 22 20 52  et.    key( ." R
4400: 65 70 6c 61 63 65 3a 22 20 63 72 20 6f 20 63 65  eplace:" cr o ce
4410: 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 0a 20 20 20  ll- 0 .key ).   
4420: 20 69 6d 70 6f 72 74 23 73 65 6c 66 20 69 6d 70   import#self imp
4430: 6f 72 74 2d 74 79 70 65 20 21 0a 20 20 20 20 73  ort-type !.    s
4440: 22 20 23 72 65 76 6f 6b 65 64 22 20 64 75 70 20  " #revoked" dup 
4450: 3e 72 20 6b 65 2d 6e 69 63 6b 20 24 2b 21 0a 20  >r ke-nick $+!. 
4460: 20 20 20 6b 65 2d 6e 69 63 6b 20 24 40 20 72 3e     ke-nick $@ r>
4470: 20 2d 20 6b 65 2d 70 72 6f 66 20 24 40 20 6b 65   - ke-prof $@ ke
4480: 2d 70 73 6b 20 73 65 63 40 20 6b 65 2d 73 69 67  -psk sec@ ke-sig
4490: 73 20 6b 65 2d 74 79 70 65 20 40 0a 20 20 20 20  s ke-type @.    
44a0: 72 65 76 2d 61 64 64 72 20 70 6b 72 6b 23 20 6b  rev-addr pkrk# k
44b0: 65 79 3f 6e 65 77 20 3e 6f 0a 20 20 20 20 6b 65  ey?new >o.    ke
44c0: 2d 74 79 70 65 20 21 20 5b 3a 20 6b 65 2d 73 69  -type ! [: ke-si
44d0: 67 73 20 24 2b 5b 5d 21 20 3b 5d 20 24 5b 5d 6d  gs $+[]! ;] $[]m
44e0: 61 70 20 6b 65 2d 70 73 6b 20 73 65 63 21 20 6b  ap ke-psk sec! k
44f0: 65 2d 70 72 6f 66 20 24 21 20 6b 65 2d 6e 69 63  e-prof $! ke-nic
4500: 6b 20 24 21 0a 20 20 20 20 72 65 76 2d 61 64 64  k $!.    rev-add
4510: 72 20 70 6b 72 6b 23 20 6b 65 2d 70 6b 20 24 21  r pkrk# ke-pk $!
4520: 0a 20 20 20 20 72 65 76 2d 61 64 64 72 20 75 20  .    rev-addr u 
4530: 2b 20 31 2d 20 64 75 70 20 63 40 20 32 2a 20 2d  + 1- dup c@ 2* -
4540: 20 24 31 30 20 2d 20 24 31 30 20 6b 65 2d 73 65   $10 - $10 ke-se
4550: 6c 66 73 69 67 20 24 21 0a 20 20 20 20 6b 65 79  lfsig $!.    key
4560: 28 20 2e 22 20 77 69 74 68 3a 22 20 63 72 20 6f  ( ." with:" cr o
4570: 20 63 65 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 20   cell- 0 .key ) 
4580: 6f 20 6f 3e 0a 20 20 20 20 69 6d 70 6f 72 74 23  o o>.    import#
4590: 75 6e 74 72 75 73 74 65 64 20 69 6d 70 6f 72 74  untrusted import
45a0: 2d 74 79 70 65 20 21 20 3b 0a 0a 3a 20 72 65 6e  -type ! ;..: ren
45b0: 65 77 2d 6b 65 79 20 28 20 72 65 76 61 64 64 72  ew-key ( revaddr
45c0: 20 75 31 20 6b 65 79 61 64 64 72 20 75 32 20 2d   u1 keyaddr u2 -
45d0: 2d 20 6f 20 29 0a 20 20 20 20 63 75 72 72 65 6e  - o ).    curren
45e0: 74 2d 6b 65 79 20 3e 6f 20 72 65 70 6c 61 63 65  t-key >o replace
45f0: 2d 6b 65 79 20 6f 3e 0a 20 20 20 20 3e 6f 20 73  -key o>.    >o s
4600: 6b 63 20 6b 65 79 73 69 7a 65 20 6b 65 2d 73 6b  kc keysize ke-sk
4610: 20 73 65 63 21 20 6f 20 6f 3e 20 3b 0a 0a 5c 20   sec! o o> ;..\ 
4620: 72 65 76 6f 6b 61 74 69 6f 6e 0a 0a 34 20 64 61  revokation..4 da
4630: 74 65 73 69 7a 65 23 20 2b 20 6b 65 79 73 69 7a  tesize# + keysiz
4640: 65 20 39 20 2a 20 2b 20 43 6f 6e 73 74 61 6e 74  e 9 * + Constant
4650: 20 72 65 76 73 69 7a 65 23 0a 0a 56 61 72 69 61   revsize#..Varia
4660: 62 6c 65 20 72 65 76 74 6f 6b 65 6e 0a 0a 3a 20  ble revtoken..: 
4670: 30 6f 6c 64 6b 65 79 20 28 20 2d 2d 20 29 20 5c  0oldkey ( -- ) \
4680: 20 70 75 62 6b 65 79 73 20 63 61 6e 20 73 74 61   pubkeys can sta
4690: 79 0a 20 20 20 20 6f 6c 64 73 6b 63 20 6b 65 79  y.    oldskc key
46a0: 73 69 7a 65 20 65 72 61 73 65 20 20 6f 6c 64 73  size erase  olds
46b0: 6b 72 65 76 20 6b 65 79 73 69 7a 65 20 65 72 61  krev keysize era
46c0: 73 65 20 3b 0a 0a 3a 20 6b 65 79 6d 6f 76 65 20  se ;..: keymove 
46d0: 28 20 61 64 64 72 31 20 61 64 64 72 32 20 2d 2d  ( addr1 addr2 --
46e0: 20 29 20 20 6b 65 79 73 69 7a 65 20 6d 6f 76 65   )  keysize move
46f0: 20 3b 0a 0a 3a 20 72 65 76 6f 6b 65 2d 76 65 72   ;..: revoke-ver
4700: 69 66 79 20 28 20 61 64 64 72 20 75 31 20 70 6b  ify ( addr u1 pk
4710: 20 73 74 72 69 6e 67 20 75 32 20 2d 2d 20 61 64   string u2 -- ad
4720: 64 72 20 75 20 66 6c 61 67 20 29 20 72 6f 74 20  dr u flag ) rot 
4730: 3e 72 20 32 3e 72 20 63 3a 30 6b 65 79 0a 20 20  >r 2>r c:0key.  
4740: 20 20 73 69 67 6f 6e 6c 79 73 69 7a 65 23 20 2d    sigonlysize# -
4750: 20 32 64 75 70 20 32 72 3e 20 3e 6b 65 79 65 64   2dup 2r> >keyed
4760: 2d 68 61 73 68 0a 20 20 20 20 73 69 67 64 61 74  -hash.    sigdat
4770: 65 20 2b 64 61 74 65 0a 20 20 20 20 32 64 75 70  e +date.    2dup
4780: 20 2b 20 72 3e 20 65 64 2d 76 65 72 69 66 79 20   + r> ed-verify 
4790: 3b 0a 0a 3a 20 3e 72 65 76 6f 6b 65 20 28 20 73  ;..: >revoke ( s
47a0: 6b 72 65 76 20 2d 2d 20 29 20 20 73 6b 72 65 76  krev -- )  skrev
47b0: 20 6b 65 79 6d 6f 76 65 20 20 63 68 65 63 6b 2d   keymove  check-
47c0: 72 65 76 3f 20 30 3d 20 21 21 6e 6f 74 2d 6d 79  rev? 0= !!not-my
47d0: 2d 72 65 76 73 6b 21 21 20 3b 0a 0a 3a 20 2b 72  -revsk!! ;..: +r
47e0: 65 76 73 69 67 6e 20 28 20 73 6b 20 70 6b 20 2d  evsign ( sk pk -
47f0: 2d 20 29 20 20 73 6b 73 69 67 20 2d 72 6f 74 20  - )  sksig -rot 
4800: 65 64 2d 73 69 67 6e 20 72 65 76 74 6f 6b 65 6e  ed-sign revtoken
4810: 20 24 2b 21 20 62 6c 20 72 65 76 74 6f 6b 65 6e   $+! bl revtoken
4820: 20 63 24 2b 21 20 3b 0a 0a 3a 20 73 69 67 6e 2d   c$+! ;..: sign-
4830: 74 6f 6b 65 6e 2c 20 28 20 73 6b 20 70 6b 20 73  token, ( sk pk s
4840: 74 72 69 6e 67 20 75 32 20 2d 2d 20 29 0a 20 20  tring u2 -- ).  
4850: 20 20 63 3a 30 6b 65 79 20 72 65 76 74 6f 6b 65    c:0key revtoke
4860: 6e 20 24 40 20 32 73 77 61 70 20 3e 6b 65 79 65  n $@ 2swap >keye
4870: 64 2d 68 61 73 68 0a 20 20 20 20 73 69 67 64 61  d-hash.    sigda
4880: 74 65 20 2b 64 61 74 65 20 2b 72 65 76 73 69 67  te +date +revsig
4890: 6e 20 3b 0a 0a 3a 20 72 65 76 6f 6b 65 2d 6b 65  n ;..: revoke-ke
48a0: 79 20 28 20 2d 2d 20 61 64 64 72 20 75 20 29 0a  y ( -- addr u ).
48b0: 20 20 20 20 73 6b 63 20 6f 6c 64 73 6b 63 20 6b      skc oldskc k
48c0: 65 79 6d 6f 76 65 20 20 70 6b 63 20 6f 6c 64 70  eymove  pkc oldp
48d0: 6b 63 20 6b 65 79 6d 6f 76 65 20 20 73 6b 72 65  kc keymove  skre
48e0: 76 20 6f 6c 64 73 6b 72 65 76 20 6b 65 79 6d 6f  v oldskrev keymo
48f0: 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ve.             
4900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 20                \ 
4920: 62 61 63 6b 75 70 20 6b 65 79 73 0a 20 20 20 20  backup keys.    
4930: 6f 6c 64 73 6b 72 65 76 20 6f 6c 64 70 6b 72 65  oldskrev oldpkre
4940: 76 20 73 6b 3e 70 6b 20 20 20 20 20 20 20 20 20  v sk>pk         
4950: 20 20 20 20 20 20 20 5c 20 67 65 6e 65 72 61 74         \ generat
4960: 65 20 72 65 76 6f 6b 61 74 69 6f 6e 20 70 75 62  e revokation pub
4970: 6b 65 79 0a 20 20 20 20 67 65 6e 2d 6b 65 79 73  key.    gen-keys
4980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c                 \
49a0: 20 67 65 6e 65 72 61 74 65 20 6e 65 77 20 6b 65   generate new ke
49b0: 79 73 0a 20 20 20 20 70 6b 63 20 6b 65 79 73 69  ys.    pkc keysi
49c0: 7a 65 32 20 72 65 76 74 6f 6b 65 6e 20 24 21 20  ze2 revtoken $! 
49d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 20                \ 
49e0: 6d 79 20 6e 65 77 20 6b 65 79 0a 20 20 20 20 6f  my new key.    o
49f0: 6c 64 70 6b 72 65 76 20 6b 65 79 73 69 7a 65 20  ldpkrev keysize 
4a00: 72 65 76 74 6f 6b 65 6e 20 24 2b 21 20 20 20 20  revtoken $+!    
4a10: 20 20 20 20 20 20 5c 20 72 65 76 6f 6b 65 20 74        \ revoke t
4a20: 6f 6b 65 6e 0a 20 20 20 20 6f 6c 64 73 6b 72 65  oken.    oldskre
4a30: 76 20 6f 6c 64 70 6b 72 65 76 20 22 72 65 76 6f  v oldpkrev "revo
4a40: 6b 65 22 20 73 69 67 6e 2d 74 6f 6b 65 6e 2c 20  ke" sign-token, 
4a50: 5c 20 72 65 76 6f 6b 65 20 73 69 67 6e 61 74 75  \ revoke signatu
4a60: 72 65 0a 20 20 20 20 73 6b 63 20 70 6b 63 20 22  re.    skc pkc "
4a70: 73 65 6c 66 73 69 67 6e 22 20 73 69 67 6e 2d 74  selfsign" sign-t
4a80: 6f 6b 65 6e 2c 20 20 20 20 20 20 20 20 20 5c 20  oken,         \ 
4a90: 73 65 6c 66 20 73 69 67 6e 65 64 20 77 69 74 68  self signed with
4aa0: 20 6e 65 77 20 6b 65 79 0a 20 20 20 20 22 21 22   new key.    "!"
4ab0: 20 72 65 76 74 6f 6b 65 6e 20 30 20 24 69 6e 73   revtoken 0 $ins
4ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ad0: 20 20 20 20 5c 20 22 21 22 20 2b 20 6f 6c 64 6b      \ "!" + oldk
4ae0: 65 79 6c 65 6e 2b 6e 65 77 6b 65 79 6c 65 6e 20  eylen+newkeylen 
4af0: 74 6f 20 66 6c 61 67 20 72 65 76 6f 6b 61 74 69  to flag revokati
4b00: 6f 6e 0a 20 20 20 20 72 65 76 74 6f 6b 65 6e 20  on.    revtoken 
4b10: 24 40 20 67 65 6e 3e 68 6f 73 74 20 32 64 72 6f  $@ gen>host 2dro
4b20: 70 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 20  p             \ 
4b30: 73 69 67 6e 20 68 6f 73 74 20 69 6e 66 6f 72 6d  sign host inform
4b40: 61 74 69 6f 6e 20 77 69 74 68 20 6f 6c 64 20 6b  ation with old k
4b50: 65 79 0a 20 20 20 20 73 69 67 64 61 74 65 20 2b  ey.    sigdate +
4b60: 64 61 74 65 20 73 69 67 64 61 74 65 20 64 61 74  date sigdate dat
4b70: 65 73 69 7a 65 23 20 72 65 76 74 6f 6b 65 6e 20  esize# revtoken 
4b80: 24 2b 21 0a 20 20 20 20 6f 6c 64 73 6b 63 20 6f  $+!.    oldskc o
4b90: 6c 64 70 6b 63 20 2b 72 65 76 73 69 67 6e 0a 20  ldpkc +revsign. 
4ba0: 20 20 20 30 6f 6c 64 6b 65 79 20 72 65 76 74 6f     0oldkey revto
4bb0: 6b 65 6e 20 24 40 20 3b 0a 0a 30 20 5b 49 46 5d  ken $@ ;..0 [IF]
4bc0: 0a 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73  .Local Variables
4bd0: 3a 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c 2d 77 6f  :.forth-local-wo
4be0: 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 20 20 20  rds:.    (.     
4bf0: 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b 6e 65 74  (("net2o:" "+net
4c00: 32 6f 3a 22 29 20 64 65 66 69 6e 69 74 69 6f 6e  2o:") definition
4c10: 2d 73 74 61 72 74 65 72 20 28 66 6f 6e 74 2d 6c  -starter (font-l
4c20: 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65  ock-keyword-face
4c30: 20 2e 20 31 29 0a 20 20 20 20 20 20 22 5b 20 5c   . 1).      "[ \
4c40: 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 20 28 66 6f  t\n]" t name (fo
4c50: 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f 6e  nt-lock-function
4c60: 2d 6e 61 6d 65 2d 66 61 63 65 20 2e 20 33 29 29  -name-face . 3))
4c70: 0a 20 20 20 20 20 28 28 22 64 65 62 75 67 3a 22  .     (("debug:"
4c80: 20 22 66 69 65 6c 64 3a 22 20 22 32 66 69 65 6c   "field:" "2fiel
4c90: 64 3a 22 20 22 73 66 66 69 65 6c 64 3a 22 20 22  d:" "sffield:" "
4ca0: 64 66 66 69 65 6c 64 3a 22 20 22 36 34 66 69 65  dffield:" "64fie
4cb0: 6c 64 3a 22 20 22 75 76 61 72 22 20 22 75 76 61  ld:" "uvar" "uva
4cc0: 6c 75 65 22 29 20 6e 6f 6e 2d 69 6d 6d 65 64 69  lue") non-immedi
4cd0: 61 74 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 74  ate (font-lock-t
4ce0: 79 70 65 2d 66 61 63 65 20 2e 20 32 29 0a 20 20  ype-face . 2).  
4cf0: 20 20 20 20 22 5b 20 5c 74 5c 6e 5d 22 20 74 20      "[ \t\n]" t 
4d00: 6e 61 6d 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d  name (font-lock-
4d10: 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61  variable-name-fa
4d20: 63 65 20 2e 20 33 29 29 0a 20 20 20 20 20 28 22  ce . 3)).     ("
4d30: 5b 61 2d 7a 30 2d 39 5d 2b 28 22 20 69 6d 6d 65  [a-z0-9]+(" imme
4d40: 64 69 61 74 65 20 28 66 6f 6e 74 2d 6c 6f 63 6b  diate (font-lock
4d50: 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 2e 20  -comment-face . 
4d60: 31 29 0a 20 20 20 20 20 20 22 29 22 20 6e 69 6c  1).      ")" nil
4d70: 20 63 6f 6d 6d 65 6e 74 20 28 66 6f 6e 74 2d 6c   comment (font-l
4d80: 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65  ock-comment-face
4d90: 20 2e 20 31 29 29 0a 20 20 20 20 29 0a 66 6f 72   . 1)).    ).for
4da0: 74 68 2d 6c 6f 63 61 6c 2d 69 6e 64 65 6e 74 2d  th-local-indent-
4db0: 77 6f 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 20  words:.    (.   
4dc0: 20 20 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b 6e    (("net2o:" "+n
4dd0: 65 74 32 6f 3a 22 29 20 28 30 20 2e 20 32 29 20  et2o:") (0 . 2) 
4de0: 28 30 20 2e 20 32 29 20 6e 6f 6e 2d 69 6d 6d 65  (0 . 2) non-imme
4df0: 64 69 61 74 65 29 0a 20 20 20 20 20 28 28 22 5b  diate).     (("[
4e00: 3a 22 20 22 6b 65 79 3a 63 6f 64 65 22 29 20 28  :" "key:code") (
4e10: 30 20 2e 20 31 29 20 28 30 20 2e 20 31 29 20 69  0 . 1) (0 . 1) i
4e20: 6d 6d 65 64 69 61 74 65 29 0a 20 20 20 20 20 28  mmediate).     (
4e30: 28 22 3b 5d 22 20 22 65 6e 64 3a 6b 65 79 22 29  (";]" "end:key")
4e40: 20 28 2d 31 20 2e 20 30 29 20 28 30 20 2e 20 2d   (-1 . 0) (0 . -
4e50: 31 29 20 69 6d 6d 65 64 69 61 74 65 29 0a 20 20  1) immediate).  
4e60: 20 20 29 0a 45 6e 64 3a 0a 5b 54 48 45 4e 5d       ).End:.[THEN]