Hex Artifact Content
Not logged in

Artifact 2773fca4b10f1b6d04e81fd1e29124dd3ea8643a:


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 33 20 20   (C) 2010-2013  
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 3a 20 61 63  word entry..: ac
0300: 63 65 70 74 2a 20 28 20 61 64 64 72 20 75 20 2d  cept* ( addr u -
0310: 2d 20 75 27 20 29 0a 20 20 20 20 5c 67 20 61 63  - u' ).    \g ac
0320: 63 65 70 74 2d 6c 69 6b 65 20 69 6e 70 75 74 2c  cept-like input,
0330: 20 62 75 74 20 74 79 70 65 73 20 2a 20 69 6e 73   but types * ins
0340: 74 65 61 64 20 6f 66 20 74 68 65 20 63 68 61 72  tead of the char
0350: 61 63 74 65 72 0a 20 20 20 20 5c 67 20 64 6f 6e  acter.    \g don
0360: 27 74 20 73 61 76 65 20 69 6e 74 6f 20 68 69 73  't save into his
0370: 74 6f 72 79 0a 20 20 20 20 64 75 70 20 3e 72 0a  tory.    dup >r.
0380: 20 20 20 20 42 45 47 49 4e 20 20 78 6b 65 79 20      BEGIN  xkey 
0390: 64 75 70 20 23 63 72 20 3c 3e 20 57 48 49 4c 45  dup #cr <> WHILE
03a0: 0a 09 20 20 20 20 64 75 70 20 23 62 73 20 3d 20  ..    dup #bs = 
03b0: 6f 76 65 72 20 23 64 65 6c 20 3d 20 6f 72 20 49  over #del = or I
03c0: 46 0a 09 09 64 72 6f 70 20 64 75 70 20 72 40 20  F...drop dup r@ 
03d0: 75 3c 20 49 46 0a 09 09 20 20 20 20 6f 76 65 72  u< IF...    over
03e0: 20 2b 20 3e 72 20 78 63 68 61 72 2d 20 72 3e 20   + >r xchar- r> 
03f0: 6f 76 65 72 20 2d 0a 09 09 20 20 20 20 31 20 62  over -...    1 b
0400: 61 63 6b 73 70 61 63 65 73 20 73 70 61 63 65 20  ackspaces space 
0410: 31 20 62 61 63 6b 73 70 61 63 65 73 0a 09 09 45  1 backspaces...E
0420: 4c 53 45 0a 09 09 20 20 20 20 62 65 6c 6c 0a 09  LSE...    bell..
0430: 09 54 48 45 4e 0a 09 20 20 20 20 45 4c 53 45 0a  .THEN..    ELSE.
0440: 09 09 2d 72 6f 74 20 78 63 21 2b 3f 20 30 3d 20  ..-rot xc!+? 0= 
0450: 49 46 20 20 62 65 6c 6c 20 20 45 4c 53 45 20 20  IF  bell  ELSE  
0460: 27 e2 ac a4 27 20 78 65 6d 69 74 20 20 54 48 45  '...' xemit  THE
0470: 4e 0a 09 20 20 20 20 54 48 45 4e 0a 20 20 20 20  N..    THEN.    
0480: 52 45 50 45 41 54 20 20 64 72 6f 70 20 20 6e 69  REPEAT  drop  ni
0490: 70 20 72 3e 20 73 77 61 70 20 2d 20 3b 0a 0a 5c  p r> swap - ;..\
04a0: 20 4b 65 79 73 20 61 72 65 20 70 61 73 73 77 6f   Keys are passwo
04b0: 72 64 73 20 61 6e 64 20 70 72 69 76 61 74 65 20  rds and private 
04c0: 6b 65 79 73 20 28 73 65 6c 66 2d 6b 65 79 65 64  keys (self-keyed
04d0: 2c 20 69 2e 65 2e 20 70 72 69 76 61 74 65 2a 70  , i.e. private*p
04e0: 75 62 6c 69 63 20 6b 65 79 29 0a 0a 0a 32 20 56  ublic key)...2 V
04f0: 61 6c 75 65 20 70 77 2d 6c 65 76 65 6c 23 20 5c  alue pw-level# \
0500: 20 70 77 2d 6c 65 76 65 6c 23 20 30 20 69 73 20   pw-level# 0 is 
0510: 6c 6f 77 65 73 74 0a 5c 20 21 21 54 4f 44 4f 21  lowest.\ !!TODO!
0520: 21 20 77 65 20 6e 65 65 64 20 61 20 77 61 79 20  ! we need a way 
0530: 74 6f 20 74 65 6c 6c 20 68 6f 77 20 6d 75 63 68  to tell how much
0540: 20 77 65 20 63 61 6e 20 74 72 75 73 74 20 6b 65   we can trust ke
0550: 79 73 0a 5c 20 70 61 73 73 77 6f 72 64 73 20 6e  ys.\ passwords n
0560: 65 65 64 20 61 20 70 77 2d 6c 65 76 65 6c 20 28  eed a pw-level (
0570: 62 65 63 61 75 73 65 20 74 68 65 79 20 61 72 65  because they are
0580: 20 67 75 65 73 73 61 62 6c 65 29 0a 5c 20 73 65   guessable).\ se
0590: 63 72 65 74 73 20 64 6f 6e 27 74 2c 20 74 68 65  crets don't, the
05a0: 79 20 61 72 65 6e 27 74 2e 20 57 65 20 63 61 6e  y aren't. We can
05b0: 20 71 75 69 63 6b 6c 79 20 64 65 63 72 79 70 74   quickly decrypt
05c0: 20 61 6c 6c 0a 5c 20 73 65 63 72 65 74 2d 62 61   all.\ secret-ba
05d0: 73 65 64 20 73 74 75 66 66 2c 20 77 69 74 68 6f  sed stuff, witho
05e0: 75 74 20 62 6f 74 68 65 72 69 6e 67 20 77 69 74  ut bothering wit
05f0: 68 20 73 6c 6f 77 64 6f 77 6e 73 2e 0a 5c 20 53  h slowdowns..\ S
0600: 6f 20 73 65 63 72 65 74 73 20 73 68 6f 75 6c 64  o secrets should
0610: 20 75 73 65 20 6e 6f 72 6d 61 6c 20 73 74 72 69   use normal stri
0620: 6e 67 20 64 65 63 72 79 70 74 0a 0a 63 6d 64 2d  ng decrypt..cmd-
0630: 62 75 66 30 20 63 6c 61 73 73 0a 20 20 20 20 6d  buf0 class.    m
0640: 61 78 64 61 74 61 20 2d 0a 20 20 20 20 6d 79 6b  axdata -.    myk
0650: 65 79 2d 73 61 6c 74 23 20 75 76 61 72 20 6b 65  ey-salt# uvar ke
0660: 79 70 61 63 6b 0a 20 20 20 20 6b 65 79 70 61 63  ypack.    keypac
0670: 6b 23 20 75 76 61 72 20 6b 65 79 70 61 63 6b 2d  k# uvar keypack-
0680: 62 75 66 0a 20 20 20 20 24 31 30 20 75 76 61 72  buf.    $10 uvar
0690: 20 6b 65 79 70 61 63 6b 2d 63 68 6b 73 75 6d 0a   keypack-chksum.
06a0: 65 6e 64 2d 63 6c 61 73 73 20 63 6d 64 2d 6b 65  end-class cmd-ke
06b0: 79 62 75 66 2d 63 0a 0a 63 6d 64 2d 6b 65 79 62  ybuf-c..cmd-keyb
06c0: 75 66 2d 63 20 6e 65 77 20 63 6d 64 62 75 66 3a  uf-c new cmdbuf:
06d0: 20 63 6f 64 65 2d 6b 65 79 0a 0a 63 6f 64 65 2d   code-key..code-
06e0: 6b 65 79 0a 63 6d 64 30 6c 6f 63 6b 20 30 20 70  key.cmd0lock 0 p
06f0: 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 69 6e 69  thread_mutex_ini
0700: 74 20 64 72 6f 70 0a 0a 3a 6e 6f 6e 61 6d 65 20  t drop..:noname 
0710: 28 20 2d 2d 20 61 64 64 72 20 75 20 29 20 6b 65  ( -- addr u ) ke
0720: 79 70 61 63 6b 2d 62 75 66 20 63 6d 64 62 75 66  ypack-buf cmdbuf
0730: 23 20 40 20 3b 20 74 6f 20 63 6d 64 62 75 66 24  # @ ; to cmdbuf$
0740: 0a 3a 6e 6f 6e 61 6d 65 20 28 20 2d 2d 20 6e 20  .:noname ( -- n 
0750: 29 20 20 6b 65 79 70 61 63 6b 23 20 63 6d 64 62  )  keypack# cmdb
0760: 75 66 23 20 40 20 2d 20 3b 20 74 6f 20 6d 61 78  uf# @ - ; to max
0770: 73 74 72 69 6e 67 0a 0a 63 6f 64 65 30 2d 62 75  string..code0-bu
0780: 66 0a 0a 5c 20 68 61 73 68 65 64 20 6b 65 79 20  f..\ hashed key 
0790: 64 61 74 61 20 62 61 73 65 0a 0a 55 73 65 72 20  data base..User 
07a0: 3e 73 74 6f 72 65 6b 65 79 0a 0a 63 6d 64 2d 63  >storekey..cmd-c
07b0: 6c 61 73 73 20 63 6c 61 73 73 0a 20 20 20 20 66  lass class.    f
07c0: 69 65 6c 64 3a 20 6b 65 2d 73 6b 20 20 20 5c 20  ield: ke-sk   \ 
07d0: 73 65 63 72 65 74 20 6b 65 79 0a 20 20 20 20 66  secret key.    f
07e0: 69 65 6c 64 3a 20 6b 65 2d 70 6b 20 20 20 5c 20  ield: ke-pk   \ 
07f0: 70 75 62 6c 69 63 20 6b 65 79 0a 20 20 20 20 66  public key.    f
0800: 69 65 6c 64 3a 20 6b 65 2d 74 79 70 65 20 5c 20  ield: ke-type \ 
0810: 6b 65 79 20 74 79 70 65 0a 20 20 20 20 66 69 65  key type.    fie
0820: 6c 64 3a 20 6b 65 2d 6e 69 63 6b 20 5c 20 6b 65  ld: ke-nick \ ke
0830: 79 20 6e 69 63 6b 0a 20 20 20 20 66 69 65 6c 64  y nick.    field
0840: 3a 20 6b 65 2d 70 73 6b 20 20 5c 20 70 72 65 73  : ke-psk  \ pres
0850: 68 61 72 65 64 20 6b 65 79 20 66 6f 72 20 73 74  hared key for st
0860: 61 74 65 6c 65 73 73 20 63 6f 6d 6d 75 6e 69 63  ateless communic
0870: 61 74 69 6f 6e 0a 20 20 20 20 66 69 65 6c 64 3a  ation.    field:
0880: 20 6b 65 2d 70 72 6f 66 20 5c 20 70 72 6f 66 69   ke-prof \ profi
0890: 6c 65 20 6f 62 6a 65 63 74 0a 20 20 20 20 66 69  le object.    fi
08a0: 65 6c 64 3a 20 6b 65 2d 73 65 6c 66 73 69 67 0a  eld: ke-selfsig.
08b0: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73 69      field: ke-si
08c0: 67 73 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65  gs.    field: ke
08d0: 2d 73 74 6f 72 65 6b 65 79 20 5c 20 75 73 65 64  -storekey \ used
08e0: 20 74 6f 20 65 6e 63 72 79 70 74 20 6f 6e 20 73   to encrypt on s
08f0: 74 6f 72 61 67 65 0a 20 20 20 20 36 34 66 69 65  torage.    64fie
0900: 6c 64 3a 20 6b 65 2d 6f 66 66 73 65 74 20 5c 20  ld: ke-offset \ 
0910: 6f 66 66 73 65 74 20 69 6e 20 6b 65 79 20 66 69  offset in key fi
0920: 6c 65 0a 20 20 20 20 30 20 2b 66 69 65 6c 64 20  le.    0 +field 
0930: 6b 65 2d 65 6e 64 0a 65 6e 64 2d 63 6c 61 73 73  ke-end.end-class
0940: 20 6b 65 79 2d 65 6e 74 72 79 0a 0a 56 61 72 69   key-entry..Vari
0950: 61 62 6c 65 20 6b 65 79 2d 65 6e 74 72 79 2d 74  able key-entry-t
0960: 61 62 6c 65 0a 0a 30 20 43 6f 6e 73 74 61 6e 74  able..0 Constant
0970: 20 6b 65 79 23 61 6e 6f 6e 0a 31 20 43 6f 6e 73   key#anon.1 Cons
0980: 74 61 6e 74 20 6b 65 79 23 75 73 65 72 0a 32 20  tant key#user.2 
0990: 43 6f 6e 73 74 61 6e 74 20 6b 65 79 23 67 72 6f  Constant key#gro
09a0: 75 70 0a 0a 30 20 56 61 6c 75 65 20 73 61 6d 70  up..0 Value samp
09b0: 6c 65 2d 6b 65 79 0a 0a 56 61 72 69 61 62 6c 65  le-key..Variable
09c0: 20 6b 65 79 2d 74 61 62 6c 65 0a 0a 36 34 56 61   key-table..64Va
09d0: 72 69 61 62 6c 65 20 6b 65 79 2d 72 65 61 64 2d  riable key-read-
09e0: 6f 66 66 73 65 74 0a 0a 3a 20 63 75 72 72 65 6e  offset..: curren
09f0: 74 2d 6b 65 79 20 28 20 61 64 64 72 20 75 20 2d  t-key ( addr u -
0a00: 2d 20 6f 20 29 0a 20 20 20 20 32 64 75 70 20 6b  - o ).    2dup k
0a10: 65 79 73 69 7a 65 20 75 6d 69 6e 20 6b 65 79 2d  eysize umin key-
0a20: 74 61 62 6c 65 20 23 40 20 64 72 6f 70 0a 20 20  table #@ drop.  
0a30: 20 20 64 75 70 20 30 3d 20 49 46 20 20 64 72 6f    dup 0= IF  dro
0a40: 70 20 2e 22 20 75 6e 6b 6e 6f 77 6e 20 6b 65 79  p ." unknown key
0a50: 3a 20 22 20 38 35 74 79 70 65 20 63 72 20 20 30  : " 85type cr  0
0a60: 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20   EXIT  THEN.    
0a70: 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d 70 6b 20 24  cell+ >o ke-pk $
0a80: 21 20 6f 20 6f 3e 20 3b 0a 0a 3a 20 6b 65 79 3a  ! o o> ;..: key:
0a90: 6e 65 77 20 28 20 61 64 64 72 20 75 20 2d 2d 20  new ( addr u -- 
0aa0: 29 0a 20 20 20 20 5c 20 61 64 64 72 20 75 20 69  ).    \ addr u i
0ab0: 73 20 74 68 65 20 70 75 62 6c 69 63 20 6b 65 79  s the public key
0ac0: 0a 20 20 20 20 73 61 6d 70 6c 65 2d 6b 65 79 20  .    sample-key 
0ad0: 3e 6f 0a 20 20 20 20 6b 65 79 2d 65 6e 74 72 79  >o.    key-entry
0ae0: 2d 74 61 62 6c 65 20 40 20 74 6f 6b 65 6e 2d 74  -table @ token-t
0af0: 61 62 6c 65 20 21 0a 20 20 20 20 6b 65 2d 73 6b  able !.    ke-sk
0b00: 20 6b 65 2d 65 6e 64 20 6f 76 65 72 20 2d 20 65   ke-end over - e
0b10: 72 61 73 65 20 20 3e 73 74 6f 72 65 6b 65 79 20  rase  >storekey 
0b20: 40 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20 21 0a  @ ke-storekey !.
0b30: 20 20 20 20 6b 65 79 2d 72 65 61 64 2d 6f 66 66      key-read-off
0b40: 73 65 74 20 36 34 40 20 6b 65 2d 6f 66 66 73 65  set 64@ ke-offse
0b50: 74 20 36 34 21 0a 20 20 20 20 6b 65 79 70 61 63  t 64!.    keypac
0b60: 6b 2d 61 6c 6c 23 20 6e 3e 36 34 20 6b 65 79 2d  k-all# n>64 key-
0b70: 72 65 61 64 2d 6f 66 66 73 65 74 20 36 34 2b 21  read-offset 64+!
0b80: 20 6f 20 63 65 6c 6c 2d 20 6b 65 2d 65 6e 64 20   o cell- ke-end 
0b90: 6f 76 65 72 20 2d 0a 20 20 20 20 32 6f 76 65 72  over -.    2over
0ba0: 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e 20 6b 65   keysize umin ke
0bb0: 79 2d 74 61 62 6c 65 20 23 21 20 6f 3e 0a 20 20  y-table #! o>.  
0bc0: 20 20 63 75 72 72 65 6e 74 2d 6b 65 79 20 3b 0a    current-key ;.
0bd0: 0a 5c 20 73 65 61 72 63 68 20 66 6f 72 20 6b 65  .\ search for ke
0be0: 79 73 20 2d 20 6e 6f 74 20 6f 70 74 69 6d 69 7a  ys - not optimiz
0bf0: 65 64 0a 0a 3a 20 6e 69 63 6b 2d 6b 65 79 20 28  ed..: nick-key (
0c00: 20 61 64 64 72 20 75 20 2d 2d 20 6f 20 29 20 5c   addr u -- o ) \
0c10: 20 73 65 61 72 63 68 20 66 6f 72 20 6b 65 79 20   search for key 
0c20: 6e 69 63 6b 6e 61 6d 65 0a 20 20 20 20 30 20 2d  nickname.    0 -
0c30: 72 6f 74 20 6b 65 79 2d 74 61 62 6c 65 20 0a 20  rot key-table . 
0c40: 20 20 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64     [: cell+ $@ d
0c50: 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d  rop cell+ >o ke-
0c60: 6e 69 63 6b 20 24 40 20 32 6f 76 65 72 20 73 74  nick $@ 2over st
0c70: 72 3d 20 49 46 0a 09 72 6f 74 20 64 72 6f 70 20  r= IF..rot drop 
0c80: 6f 20 2d 72 6f 74 0a 20 20 20 20 54 48 45 4e 20  o -rot.    THEN 
0c90: 20 6f 3e 20 3b 5d 20 23 6d 61 70 20 32 64 72 6f   o> ;] #map 2dro
0ca0: 70 20 3b 0a 0a 3a 20 6b 65 79 2d 65 78 69 73 74  p ;..: key-exist
0cb0: 3f 20 28 20 61 64 64 72 20 75 20 2d 2d 20 66 6c  ? ( addr u -- fl
0cc0: 61 67 20 29 0a 20 20 20 20 6b 65 79 2d 74 61 62  ag ).    key-tab
0cd0: 6c 65 20 23 40 20 64 30 3c 3e 20 3b 20 0a 0a 56  le #@ d0<> ; ..V
0ce0: 61 72 69 61 62 6c 65 20 73 74 72 69 63 74 2d 6b  ariable strict-k
0cf0: 65 79 73 20 20 73 74 72 69 63 74 2d 6b 65 79 73  eys  strict-keys
0d00: 20 6f 6e 0a 0a 72 65 71 75 69 72 65 20 61 6e 73   on..require ans
0d10: 69 2e 66 73 0a 0a 3a 20 2e 62 6c 61 63 6b 20 28  i.fs..: .black (
0d20: 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20   addr u -- ).   
0d30: 20 5b 20 62 6c 61 63 6b 20 3e 62 67 20 62 6c 61   [ black >bg bla
0d40: 63 6b 20 3e 66 67 20 6f 72 20 5d 4c 20 61 74 74  ck >fg or ]L att
0d50: 72 21 20 20 20 38 35 74 79 70 65 0a 20 20 20 20  r!   85type.    
0d60: 5b 20 64 65 66 61 75 6c 74 2d 63 6f 6c 6f 72 20  [ default-color 
0d70: 3e 62 67 20 64 65 66 61 75 6c 74 2d 63 6f 6c 6f  >bg default-colo
0d80: 72 20 3e 66 67 20 6f 72 20 5d 4c 20 61 74 74 72  r >fg or ]L attr
0d90: 21 20 3b 0a 3a 20 2e 72 65 64 20 28 20 61 64 64  ! ;.: .red ( add
0da0: 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 5b 20 72  r u -- ).    [ r
0db0: 65 64 20 3e 62 67 20 77 68 69 74 65 20 3e 66 67  ed >bg white >fg
0dc0: 20 6f 72 20 62 6f 6c 64 20 6f 72 20 5d 4c 20 61   or bold or ]L a
0dd0: 74 74 72 21 20 20 20 38 35 74 79 70 65 0a 20 20  ttr!   85type.  
0de0: 20 20 5b 20 64 65 66 61 75 6c 74 2d 63 6f 6c 6f    [ default-colo
0df0: 72 20 3e 62 67 20 64 65 66 61 75 6c 74 2d 63 6f  r >bg default-co
0e00: 6c 6f 72 20 3e 66 67 20 6f 72 20 5d 4c 20 61 74  lor >fg or ]L at
0e10: 74 72 21 20 3b 0a 3a 20 2e 72 73 6b 20 28 20 6e  tr! ;.: .rsk ( n
0e20: 69 63 6b 20 75 20 29 0a 20 20 20 20 2e 22 20 5c  ick u ).    ." \
0e30: 20 72 65 76 6f 6b 65 3a 20 22 20 73 6b 72 65 76   revoke: " skrev
0e40: 20 24 32 30 20 2e 72 65 64 20 73 70 61 63 65 20   $20 .red space 
0e50: 74 79 70 65 20 2e 22 20 20 28 6b 65 65 70 20 6f  type ."  (keep o
0e60: 66 66 6c 69 6e 65 20 63 6f 70 79 21 29 22 20 63  ffline copy!)" c
0e70: 72 20 3b 0a 3a 20 2e 6b 65 79 20 28 20 61 64 64  r ;.: .key ( add
0e80: 72 20 75 20 2d 2d 20 29 20 64 72 6f 70 20 63 65  r u -- ) drop ce
0e90: 6c 6c 2b 20 3e 6f 0a 20 20 20 20 2e 22 20 6e 69  ll+ >o.    ." ni
0ea0: 63 6b 3a 20 22 20 6b 65 2d 6e 69 63 6b 20 24 40  ck: " ke-nick $@
0eb0: 20 74 79 70 65 20 63 72 0a 20 20 20 20 2e 22 20   type cr.    ." 
0ec0: 70 75 62 6b 65 79 3a 20 22 20 6b 65 2d 70 6b 20  pubkey: " ke-pk 
0ed0: 24 40 20 38 35 74 79 70 65 20 63 72 0a 20 20 20  $@ 85type cr.   
0ee0: 20 6b 65 2d 73 6b 20 40 20 49 46 20 20 2e 22 20   ke-sk @ IF  ." 
0ef0: 73 65 63 6b 65 79 3a 20 22 20 6b 65 2d 73 6b 20  seckey: " ke-sk 
0f00: 40 20 6b 65 79 73 69 7a 65 0a 09 2e 62 6c 61 63  @ keysize...blac
0f10: 6b 20 2e 22 20 20 28 6b 65 65 70 20 73 65 63 72  k ."  (keep secr
0f20: 65 74 21 29 22 20 63 72 20 20 54 48 45 4e 0a 20  et!)" cr  THEN. 
0f30: 20 20 20 2e 22 20 66 69 72 73 74 3a 20 22 20 6b     ." first: " k
0f40: 65 2d 73 65 6c 66 73 69 67 20 24 40 20 64 72 6f  e-selfsig $@ dro
0f50: 70 20 36 34 40 20 2e 73 69 67 64 61 74 65 20 63  p 64@ .sigdate c
0f60: 72 0a 20 20 20 20 2e 22 20 6c 61 73 74 3a 20 22  r.    ." last: "
0f70: 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20 64   ke-selfsig $@ d
0f80: 72 6f 70 20 36 34 27 2b 20 36 34 40 20 2e 73 69  rop 64'+ 64@ .si
0f90: 67 64 61 74 65 20 63 72 0a 20 20 20 20 6f 3e 20  gdate cr.    o> 
0fa0: 3b 0a 0a 3a 20 64 75 6d 70 6b 65 79 20 28 20 61  ;..: dumpkey ( a
0fb0: 64 64 72 20 75 20 2d 2d 20 29 20 64 72 6f 70 20  ddr u -- ) drop 
0fc0: 63 65 6c 6c 2b 20 3e 6f 0a 20 20 20 20 2e 5c 22  cell+ >o.    .\"
0fd0: 20 78 5c 22 20 22 20 6b 65 2d 70 6b 20 24 40 20   x\" " ke-pk $@ 
0fe0: 38 35 74 79 70 65 20 2e 5c 22 20 5c 22 20 6b 65  85type .\" \" ke
0ff0: 79 3a 6e 65 77 22 20 63 72 0a 20 20 20 20 6b 65  y:new" cr.    ke
1000: 2d 73 6b 20 40 20 49 46 20 20 2e 5c 22 20 78 5c  -sk @ IF  .\" x\
1010: 22 20 22 20 6b 65 2d 73 6b 20 40 20 6b 65 79 73  " " ke-sk @ keys
1020: 69 7a 65 20 38 35 74 79 70 65 20 2e 5c 22 20 5c  ize 85type .\" \
1030: 22 20 6b 65 2d 73 6b 20 73 65 63 21 20 2b 73 65  " ke-sk sec! +se
1040: 63 6b 65 79 22 20 63 72 20 20 54 48 45 4e 0a 20  ckey" cr  THEN. 
1050: 20 20 20 27 22 27 20 65 6d 69 74 20 6b 65 2d 6e     '"' emit ke-n
1060: 69 63 6b 20 24 40 20 74 79 70 65 20 2e 5c 22 20  ick $@ type .\" 
1070: 5c 22 20 6b 65 2d 6e 69 63 6b 20 24 21 20 22 0a  \" ke-nick $! ".
1080: 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24      ke-selfsig $
1090: 40 20 64 72 6f 70 20 36 34 40 20 36 34 3e 64 20  @ drop 64@ 64>d 
10a0: 5b 3a 20 27 24 27 20 65 6d 69 74 20 30 20 75 64  [: '$' emit 0 ud
10b0: 2e 72 20 3b 5d 20 24 31 30 20 62 61 73 65 2d 65  .r ;] $10 base-e
10c0: 78 65 63 75 74 65 0a 20 20 20 20 2e 22 20 2e 20  xecute.    ." . 
10d0: 64 3e 36 34 20 6b 65 2d 66 69 72 73 74 21 20 22  d>64 ke-first! "
10e0: 20 6b 65 2d 74 79 70 65 20 40 20 2e 20 2e 22 20   ke-type @ . ." 
10f0: 6b 65 2d 74 79 70 65 20 21 22 20 20 63 72 20 6f  ke-type !"  cr o
1100: 3e 20 3b 0a 0a 3a 20 2e 6b 65 79 73 20 28 20 2d  > ;..: .keys ( -
1110: 2d 20 29 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a  - ) key-table [:
1120: 20 63 65 6c 6c 2b 20 24 40 20 2e 6b 65 79 20 3b   cell+ $@ .key ;
1130: 5d 20 23 6d 61 70 20 3b 0a 3a 20 64 75 6d 70 6b  ] #map ;.: dumpk
1140: 65 79 73 20 28 20 2d 2d 20 29 20 6b 65 79 2d 74  eys ( -- ) key-t
1150: 61 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40  able [: cell+ $@
1160: 20 64 75 6d 70 6b 65 79 20 3b 5d 20 23 6d 61 70   dumpkey ;] #map
1170: 20 3b 0a 0a 3a 20 2e 6b 65 79 23 20 28 20 61 64   ;..: .key# ( ad
1180: 64 72 20 75 20 2d 2d 20 29 20 6b 65 79 73 69 7a  dr u -- ) keysiz
1190: 65 20 75 6d 69 6e 0a 20 20 20 20 2e 22 20 4b 65  e umin.    ." Ke
11a0: 79 20 27 22 20 6b 65 79 2d 74 61 62 6c 65 20 23  y '" key-table #
11b0: 40 20 30 3d 20 49 46 20 64 72 6f 70 20 45 58 49  @ 0= IF drop EXI
11c0: 54 20 54 48 45 4e 0a 20 20 20 20 63 65 6c 6c 2b  T THEN.    cell+
11d0: 20 2e 6b 65 2d 6e 69 63 6b 20 24 40 20 74 79 70   .ke-nick $@ typ
11e0: 65 20 2e 22 20 27 20 6f 6b 22 20 63 72 20 3b 0a  e ." ' ok" cr ;.
11f0: 0a 3a 6e 6f 6e 61 6d 65 20 28 20 61 64 64 72 20  .:noname ( addr 
1200: 75 20 2d 2d 20 29 0a 20 20 20 20 6f 20 49 46 20  u -- ).    o IF 
1210: 20 64 65 73 74 2d 70 75 62 6b 65 79 20 40 20 49   dest-pubkey @ I
1220: 46 0a 09 20 20 20 20 32 64 75 70 20 64 65 73 74  F..    2dup dest
1230: 2d 70 75 62 6b 65 79 20 24 40 20 6b 65 79 73 69  -pubkey $@ keysi
1240: 7a 65 20 75 6d 69 6e 20 73 74 72 3d 20 30 3d 20  ze umin str= 0= 
1250: 49 46 0a 09 09 5b 3a 20 2e 22 20 77 61 6e 74 3a  IF...[: ." want:
1260: 20 22 20 64 65 73 74 2d 70 75 62 6b 65 79 20 24   " dest-pubkey $
1270: 40 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e 20 38  @ keysize umin 8
1280: 35 74 79 70 65 20 63 72 0a 09 09 20 20 2e 22 20  5type cr...  ." 
1290: 67 6f 74 20 3a 20 22 20 32 64 75 70 20 38 35 74  got : " 2dup 85t
12a0: 79 70 65 20 63 72 20 3b 5d 20 24 65 72 72 0a 09  ype cr ;] $err..
12b0: 09 74 72 75 65 20 21 21 77 72 6f 6e 67 2d 6b 65  .true !!wrong-ke
12c0: 79 21 21 0a 09 20 20 20 20 54 48 45 4e 0a 09 20  y!!..    THEN.. 
12d0: 20 20 20 2e 6b 65 79 23 20 20 45 58 49 54 0a 09     .key#  EXIT..
12e0: 54 48 45 4e 20 20 54 48 45 4e 0a 20 20 20 20 32  THEN  THEN.    2
12f0: 64 75 70 20 6b 65 79 2d 65 78 69 73 74 3f 20 30  dup key-exist? 0
1300: 3d 20 49 46 0a 09 73 74 72 69 63 74 2d 6b 65 79  = IF..strict-key
1310: 73 20 40 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65  s @ !!unknown-ke
1320: 79 21 21 0a 09 2e 22 20 55 6e 6b 6e 6f 77 6e 20  y!!..." Unknown 
1330: 6b 65 79 20 22 20 20 2e 6e 6e 62 20 63 72 0a 20  key "  .nnb cr. 
1340: 20 20 20 45 4c 53 45 0a 09 2e 6b 65 79 23 0a 20     ELSE...key#. 
1350: 20 20 20 54 48 45 4e 20 3b 20 49 53 20 63 68 65     THEN ; IS che
1360: 63 6b 2d 6b 65 79 0a 0a 3a 6e 6f 6e 61 6d 65 20  ck-key..:noname 
1370: 28 20 70 6b 63 20 2d 2d 20 73 6b 63 20 29 0a 20  ( pkc -- skc ). 
1380: 20 20 20 6b 65 79 73 69 7a 65 20 6b 65 79 2d 74     keysize key-t
1390: 61 62 6c 65 20 23 40 20 30 3d 20 21 21 75 6e 6b  able #@ 0= !!unk
13a0: 6e 6f 77 6e 2d 6b 65 79 21 21 0a 20 20 20 20 63  nown-key!!.    c
13b0: 65 6c 6c 2b 20 2e 6b 65 2d 73 6b 20 73 65 63 40  ell+ .ke-sk sec@
13c0: 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65   0= !!unknown-ke
13d0: 79 21 21 20 3b 20 69 73 20 73 65 61 72 63 68 2d  y!! ; is search-
13e0: 6b 65 79 0a 0a 5c 20 67 65 74 20 70 61 73 73 70  key..\ get passp
13f0: 68 72 61 73 65 0a 0a 33 20 56 61 6c 75 65 20 70  hrase..3 Value p
1400: 61 73 73 70 68 72 61 73 65 2d 72 65 74 72 79 23  assphrase-retry#
1410: 0a 24 31 30 30 20 43 6f 6e 73 74 61 6e 74 20 6d  .$100 Constant m
1420: 61 78 2d 70 61 73 73 70 68 72 61 73 65 23 20 5c  ax-passphrase# \
1430: 20 32 35 36 20 63 68 61 72 61 63 74 65 72 73 20   256 characters 
1440: 73 68 6f 75 6c 64 20 62 65 20 65 6e 6f 75 67 68  should be enough
1450: 2e 2e 2e 0a 6d 61 78 2d 70 61 73 73 70 68 72 61  ....max-passphra
1460: 73 65 23 20 62 75 66 66 65 72 3a 20 70 61 73 73  se# buffer: pass
1470: 70 68 72 61 73 65 0a 0a 3a 20 70 61 73 73 70 68  phrase..: passph
1480: 72 61 73 65 2d 69 6e 20 28 20 2d 2d 20 61 64 64  rase-in ( -- add
1490: 72 20 75 20 29 0a 20 20 20 20 70 61 73 73 70 68  r u ).    passph
14a0: 72 61 73 65 20 64 75 70 20 6d 61 78 2d 70 61 73  rase dup max-pas
14b0: 73 70 68 72 61 73 65 23 20 61 63 63 65 70 74 2a  sphrase# accept*
14c0: 20 3b 0a 0a 3a 20 3e 70 61 73 73 70 68 72 61 73   ;..: >passphras
14d0: 65 20 28 20 61 64 64 72 20 75 20 2d 2d 20 61 64  e ( addr u -- ad
14e0: 64 72 20 75 20 29 0a 20 20 20 20 5c 47 20 63 72  dr u ).    \G cr
14f0: 65 61 74 65 20 61 20 35 31 32 20 62 69 74 20 68  eate a 512 bit h
1500: 61 73 68 20 6f 66 20 74 68 65 20 70 61 73 73 70  ash of the passp
1510: 68 72 61 73 65 0a 20 20 20 20 6e 6f 2d 6b 65 79  hrase.    no-key
1520: 20 3e 63 3a 6b 65 79 20 63 3a 68 61 73 68 0a 20   >c:key c:hash. 
1530: 20 20 20 6b 65 63 63 61 6b 2d 70 61 64 64 65 64     keccak-padded
1540: 20 63 3a 6b 65 79 3e 20 6b 65 63 63 61 6b 2d 70   c:key> keccak-p
1550: 61 64 64 65 64 20 6b 65 63 63 61 6b 23 6d 61 78  added keccak#max
1560: 20 32 2f 20 3b 0a 0a 3a 20 67 65 74 2d 70 61 73   2/ ;..: get-pas
1570: 73 70 68 72 61 73 65 20 28 20 2d 2d 20 61 64 64  sphrase ( -- add
1580: 72 20 75 20 29 0a 20 20 20 20 70 61 73 73 70 68  r u ).    passph
1590: 72 61 73 65 2d 69 6e 20 3e 70 61 73 73 70 68 72  rase-in >passphr
15a0: 61 73 65 20 3b 0a 0a 56 61 72 69 61 62 6c 65 20  ase ;..Variable 
15b0: 6b 65 79 73 0a 0a 3a 20 6b 65 79 3e 64 65 66 61  keys..: key>defa
15c0: 75 6c 74 20 28 20 2d 2d 20 29 20 6b 65 79 73 20  ult ( -- ) keys 
15d0: 24 5b 5d 23 20 31 2d 20 6b 65 79 73 20 24 5b 5d  $[]# 1- keys $[]
15e0: 20 40 20 3e 73 74 6f 72 65 6b 65 79 20 21 20 3b   @ >storekey ! ;
15f0: 0a 3a 20 2b 6b 65 79 20 28 20 61 64 64 72 20 75  .: +key ( addr u
1600: 20 2d 2d 20 29 20 6b 65 79 73 20 73 65 63 2b 5b   -- ) keys sec+[
1610: 5d 21 20 3b 0a 3a 20 2b 70 61 73 73 70 68 72 61  ]! ;.: +passphra
1620: 73 65 20 28 20 2d 2d 20 29 20 20 67 65 74 2d 70  se ( -- )  get-p
1630: 61 73 73 70 68 72 61 73 65 20 2b 6b 65 79 20 3b  assphrase +key ;
1640: 0a 3a 20 22 3e 70 61 73 73 70 68 72 61 73 65 20  .: ">passphrase 
1650: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 3e 70  ( addr u -- ) >p
1660: 61 73 73 70 68 72 61 73 65 20 2b 6b 65 79 20 3b  assphrase +key ;
1670: 0a 3a 20 2b 73 65 63 6b 65 79 20 28 20 2d 2d 20  .: +seckey ( -- 
1680: 29 0a 20 20 20 20 6b 65 2d 73 6b 20 40 20 6b 65  ).    ke-sk @ ke
1690: 2d 70 6b 20 24 40 20 64 72 6f 70 20 6b 65 79 70  -pk $@ drop keyp
16a0: 61 64 20 65 64 2d 64 68 20 2b 6b 65 79 20 3b 0a  ad ed-dh +key ;.
16b0: 0a 22 22 20 22 3e 70 61 73 73 70 68 72 61 73 65  ."" ">passphrase
16c0: 20 5c 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65   \ following the
16d0: 20 65 6e 63 72 79 70 74 2d 65 76 65 72 79 74 68   encrypt-everyth
16e0: 69 6e 67 20 70 61 72 61 64 69 67 6d 2c 0a 5c 20  ing paradigm,.\ 
16f0: 6e 6f 20 70 61 73 73 77 6f 72 64 20 69 73 20 74  no password is t
1700: 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 21  he empty string!
1710: 20 20 49 74 27 73 20 73 74 69 6c 6c 20 65 6e 63    It's still enc
1720: 72 79 70 74 65 64 21 0a 0a 5c 20 61 20 73 65 63  rypted!..\ a sec
1730: 72 65 74 20 6b 65 79 20 6a 75 73 74 20 6e 65 65  ret key just nee
1740: 64 73 20 61 20 6e 69 63 6b 20 61 6e 64 20 61 20  ds a nick and a 
1750: 74 79 70 65 2e 0a 5c 20 53 65 63 72 65 74 20 6b  type..\ Secret k
1760: 65 79 73 20 63 61 6e 20 62 65 20 70 65 72 73 6f  eys can be perso
1770: 6e 73 20 61 6e 64 20 67 72 6f 75 70 73 2e 0a 0a  ns and groups...
1780: 5c 20 61 20 70 75 62 6c 69 63 20 6b 65 79 20 6e  \ a public key n
1790: 65 65 64 73 20 6d 6f 72 65 3a 20 6e 69 63 6b 2c  eeds more: nick,
17a0: 20 74 79 70 65 2c 20 70 72 6f 66 69 6c 65 2e 0a   type, profile..
17b0: 5c 20 54 68 65 20 70 72 6f 66 69 6c 65 20 69 73  \ The profile is
17c0: 20 61 20 73 74 72 75 63 74 75 72 65 64 20 64 6f   a structured do
17d0: 63 75 6d 65 6e 74 2c 20 69 2e 65 2e 20 70 6f 69  cument, i.e. poi
17e0: 6e 74 65 64 20 74 6f 20 62 79 20 61 20 68 61 73  nted to by a has
17f0: 68 2e 0a 0a 5c 20 61 20 73 69 67 6e 61 74 75 72  h...\ a signatur
1800: 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 70 75 62  e contains a pub
1810: 6b 65 79 2c 20 61 20 63 68 65 63 6b 62 6f 78 20  key, a checkbox 
1820: 62 69 74 6d 61 73 6b 2c 0a 5c 20 61 20 64 61 74  bitmask,.\ a dat
1830: 65 2c 20 61 6e 20 65 78 70 69 72 61 74 69 6f 6e  e, an expiration
1840: 20 64 61 74 65 2c 20 74 68 65 20 73 69 67 6e 65   date, the signe
1850: 72 27 73 20 70 75 62 6b 65 79 20 61 6e 64 20 74  r's pubkey and t
1860: 68 65 20 73 69 67 6e 61 74 75 72 65 20 69 74 73  he signature its
1870: 65 6c 66 0a 5c 20 28 72 2b 73 29 2e 20 20 54 68  elf.\ (r+s).  Th
1880: 65 72 65 20 69 73 20 61 6e 20 6f 70 74 69 6f 6e  ere is an option
1890: 61 6c 20 73 69 67 6e 69 6e 67 20 70 72 6f 74 6f  al signing proto
18a0: 63 6f 6c 20 64 6f 63 75 6d 65 6e 74 20 28 68 61  col document (ha
18b0: 73 68 29 2e 0a 0a 5c 20 77 65 20 73 74 6f 72 65  sh)...\ we store
18c0: 20 65 61 63 68 20 69 74 65 6d 20 69 6e 20 61 20   each item in a 
18d0: 32 35 36 20 62 79 74 65 73 20 65 6e 63 72 79 70  256 bytes encryp
18e0: 74 65 64 20 73 74 72 69 6e 67 2c 20 69 2e 65 2e  ted string, i.e.
18f0: 20 77 69 74 68 20 61 20 31 36 0a 5c 20 62 79 74   with a 16.\ byt
1900: 65 20 73 61 6c 74 20 61 6e 64 20 61 20 31 36 20  e salt and a 16 
1910: 62 79 74 65 20 63 68 65 63 6b 73 75 6d 2e 0a 0a  byte checksum...
1920: 3a 20 6b 65 2d 66 69 72 73 74 21 20 28 20 36 34  : ke-first! ( 64
1930: 64 61 74 65 20 2d 2d 20 29 0a 20 20 20 20 6b 65  date -- ).    ke
1940: 2d 73 65 6c 66 73 69 67 20 24 40 6c 65 6e 20 24  -selfsig $@len $
1950: 31 30 20 75 6d 61 78 20 6b 65 2d 73 65 6c 66 73  10 umax ke-selfs
1960: 69 67 20 24 21 6c 65 6e 0a 20 20 20 20 6b 65 2d  ig $!len.    ke-
1970: 73 65 6c 66 73 69 67 20 24 40 20 64 72 6f 70 20  selfsig $@ drop 
1980: 36 34 21 20 3b 0a 3a 20 6b 65 2d 6c 61 73 74 21  64! ;.: ke-last!
1990: 20 28 20 36 34 64 61 74 65 20 2d 2d 20 29 0a 20   ( 64date -- ). 
19a0: 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40     ke-selfsig $@
19b0: 6c 65 6e 20 24 31 30 20 75 6d 61 78 20 6b 65 2d  len $10 umax ke-
19c0: 73 65 6c 66 73 69 67 20 24 21 6c 65 6e 0a 20 20  selfsig $!len.  
19d0: 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40 20    ke-selfsig $@ 
19e0: 64 72 6f 70 20 36 34 27 2b 20 36 34 21 20 3b 0a  drop 64'+ 64! ;.
19f0: 0a 67 65 74 2d 63 75 72 72 65 6e 74 20 61 6c 73  .get-current als
1a00: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 20 64 65 66  o net2o-base def
1a10: 69 6e 69 74 69 6f 6e 73 0a 0a 63 6d 64 2d 74 61  initions..cmd-ta
1a20: 62 6c 65 20 24 40 20 69 6e 68 65 72 69 74 2d 74  ble $@ inherit-t
1a30: 61 62 6c 65 20 6b 65 79 2d 65 6e 74 72 79 2d 74  able key-entry-t
1a40: 61 62 6c 65 0a 0a 24 31 30 20 6e 65 74 32 6f 3a  able..$10 net2o:
1a50: 20 6e 65 77 6b 65 79 20 28 20 24 3a 73 74 72 69   newkey ( $:stri
1a60: 6e 67 20 2d 2d 20 6f 3a 6b 65 79 20 29 0a 20 20  ng -- o:key ).  
1a70: 20 20 24 3e 20 32 64 75 70 20 70 2d 73 69 7a 65    $> 2dup p-size
1a80: 20 2d 20 31 2d 20 7b 20 61 64 64 72 20 7d 20 6b   - 1- { addr } k
1a90: 65 79 3a 6e 65 77 20 6e 3a 3e 6f 20 61 64 64 72  ey:new n:>o addr
1aa0: 20 63 2d 62 75 66 20 21 20 31 20 63 2d 73 74 61   c-buf ! 1 c-sta
1ab0: 74 65 20 21 20 3b 0a 6b 65 79 2d 65 6e 74 72 79  te ! ;.key-entry
1ac0: 2d 74 61 62 6c 65 20 3e 74 61 62 6c 65 0a 2b 6e  -table >table.+n
1ad0: 65 74 32 6f 3a 20 70 72 69 76 6b 65 79 20 28 20  et2o: privkey ( 
1ae0: 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20 5c 20  $:string -- ) \ 
1af0: 63 2d 73 74 61 74 65 20 40 20 38 20 3c 3e 20 21  c-state @ 8 <> !
1b00: 21 69 6e 76 2d 6f 72 64 65 72 21 21 0a 20 20 20  !inv-order!!.   
1b10: 20 24 3e 20 6b 65 2d 73 6b 20 73 65 63 21 20 6b   $> ke-sk sec! k
1b20: 65 2d 73 6b 20 73 65 63 40 20 64 72 6f 70 20 6b  e-sk sec@ drop k
1b30: 65 79 70 61 64 20 73 6b 3e 70 6b 0a 20 20 20 20  eypad sk>pk.    
1b40: 6b 65 79 70 61 64 20 6b 65 2d 70 6b 20 24 40 20  keypad ke-pk $@ 
1b50: 64 72 6f 70 20 6b 65 79 73 69 7a 65 20 74 75 63  drop keysize tuc
1b60: 6b 20 73 74 72 3d 20 30 3d 20 21 21 77 72 6f 6e  k str= 0= !!wron
1b70: 67 2d 6b 65 79 21 21 20 2b 73 65 63 6b 65 79 20  g-key!! +seckey 
1b80: 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 74 79 70  ;.+net2o: keytyp
1b90: 65 20 28 20 6e 20 2d 2d 20 29 20 63 2d 73 74 61  e ( n -- ) c-sta
1ba0: 74 65 20 40 20 38 20 3d 20 21 21 69 6e 76 2d 6f  te @ 8 = !!inv-o
1bb0: 72 64 65 72 21 21 0a 20 20 20 20 36 34 3e 6e 20  rder!!.    64>n 
1bc0: 6b 65 2d 74 79 70 65 20 21 20 32 20 63 2d 73 74  ke-type ! 2 c-st
1bd0: 61 74 65 20 6f 72 21 20 3b 20 5c 20 64 65 66 61  ate or! ; \ defa
1be0: 75 6c 74 3a 20 61 6e 6f 6e 79 6d 6f 75 73 0a 2b  ult: anonymous.+
1bf0: 6e 65 74 32 6f 3a 20 6b 65 79 6e 69 63 6b 20 28  net2o: keynick (
1c00: 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20 63   $:string -- ) c
1c10: 2d 73 74 61 74 65 20 40 20 38 20 3d 20 21 21 69  -state @ 8 = !!i
1c20: 6e 76 2d 6f 72 64 65 72 21 21 0a 20 20 20 20 24  nv-order!!.    $
1c30: 3e 20 6b 65 2d 6e 69 63 6b 20 24 21 20 34 20 63  > ke-nick $! 4 c
1c40: 2d 73 74 61 74 65 20 6f 72 21 20 3b 0a 2b 6e 65  -state or! ;.+ne
1c50: 74 32 6f 3a 20 6b 65 79 70 72 6f 66 69 6c 65 20  t2o: keyprofile 
1c60: 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20  ( $:string -- ) 
1c70: 63 2d 73 74 61 74 65 20 40 20 38 20 3d 20 21 21  c-state @ 8 = !!
1c80: 69 6e 76 2d 6f 72 64 65 72 21 21 0a 20 20 20 20  inv-order!!.    
1c90: 24 3e 20 6b 65 2d 70 72 6f 66 20 24 21 20 3b 0a  $> ke-prof $! ;.
1ca0: 2b 6e 65 74 32 6f 3a 20 6e 65 77 6b 65 79 73 69  +net2o: newkeysi
1cb0: 67 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20  g ( $:string -- 
1cc0: 29 20 20 24 3e 20 6b 65 2d 73 69 67 73 20 24 2b  )  $> ke-sigs $+
1cd0: 5b 5d 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65  []! ;.+net2o: ke
1ce0: 79 6d 61 73 6b 20 28 20 78 20 2d 2d 20 29 20 20  ymask ( x -- )  
1cf0: 36 34 64 72 6f 70 20 3b 0a 2b 6e 65 74 32 6f 3a  64drop ;.+net2o:
1d00: 20 6b 65 79 73 65 6c 66 73 69 67 20 28 20 24 3a   keyselfsig ( $:
1d10: 73 74 72 69 6e 67 20 2d 2d 20 29 20 63 2d 73 74  string -- ) c-st
1d20: 61 74 65 20 40 20 37 20 3c 3e 20 21 21 69 6e 76  ate @ 7 <> !!inv
1d30: 2d 6f 72 64 65 72 21 21 0a 20 20 20 20 24 3e 2d  -order!!.    $>-
1d40: 20 32 73 77 61 70 20 6b 65 2d 73 65 6c 66 73 69   2swap ke-selfsi
1d50: 67 20 24 21 0a 20 20 20 20 63 3a 30 6b 65 79 20  g $!.    c:0key 
1d60: 63 3a 68 61 73 68 0a 20 20 20 20 6b 65 2d 73 65  c:hash.    ke-se
1d70: 6c 66 73 69 67 20 24 40 20 6b 65 2d 70 6b 20 24  lfsig $@ ke-pk $
1d80: 40 20 64 72 6f 70 20 64 61 74 65 2d 73 69 67 3f  @ drop date-sig?
1d90: 0a 20 20 20 20 30 3d 20 21 21 69 6e 76 2d 73 69  .    0= !!inv-si
1da0: 67 21 21 20 38 20 63 2d 73 74 61 74 65 20 21 20  g!! 8 c-state ! 
1db0: 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79 70 73 6b  ;.+net2o: keypsk
1dc0: 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29   ( $:string -- )
1dd0: 20 63 2d 73 74 61 74 65 20 40 20 38 20 3d 20 21   c-state @ 8 = !
1de0: 21 69 6e 76 2d 6f 72 64 65 72 21 21 0a 20 20 20  !inv-order!!.   
1df0: 20 24 3e 20 6b 65 2d 70 73 6b 20 73 65 63 21 20   $> ke-psk sec! 
1e00: 3b 0a 64 75 70 20 73 65 74 2d 63 75 72 72 65 6e  ;.dup set-curren
1e10: 74 20 70 72 65 76 69 6f 75 73 0a 0a 67 65 6e 2d  t previous..gen-
1e20: 74 61 62 6c 65 20 24 66 72 65 65 7a 65 0a 27 20  table $freeze.' 
1e30: 63 6f 6e 74 65 78 74 2d 74 61 62 6c 65 20 69 73  context-table is
1e40: 20 67 65 6e 2d 74 61 62 6c 65 0a 0a 3a 6e 6f 6e   gen-table..:non
1e50: 61 6d 65 20 28 20 61 64 64 72 6d 20 75 6d 20 61  ame ( addrm um a
1e60: 64 64 72 73 69 67 20 75 73 69 67 20 2d 2d 20 29  ddrsig usig -- )
1e70: 0a 20 20 20 20 63 2d 73 74 61 74 65 20 40 20 37  .    c-state @ 7
1e80: 20 3c 3e 20 21 21 69 6e 76 2d 6f 72 64 65 72 21   <> !!inv-order!
1e90: 21 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67  !.    ke-selfsig
1ea0: 20 24 21 20 63 3a 30 6b 65 79 20 63 3a 68 61 73   $! c:0key c:has
1eb0: 68 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67  h.    ke-selfsig
1ec0: 20 24 40 20 6b 65 2d 70 6b 20 24 40 20 64 72 6f   $@ ke-pk $@ dro
1ed0: 70 20 64 61 74 65 2d 73 69 67 3f 0a 20 20 20 20  p date-sig?.    
1ee0: 30 3d 20 21 21 69 6e 76 2d 73 69 67 21 21 20 32  0= !!inv-sig!! 2
1ef0: 64 72 6f 70 20 38 20 63 2d 73 74 61 74 65 20 21  drop 8 c-state !
1f00: 20 3b 20 6b 65 79 2d 65 6e 74 72 79 20 74 6f 20   ; key-entry to 
1f10: 63 68 65 63 6b 2d 73 69 67 0a 0a 6b 65 79 2d 65  check-sig..key-e
1f20: 6e 74 72 79 20 27 20 6e 65 77 20 73 74 61 74 69  ntry ' new stati
1f30: 63 2d 61 20 77 69 74 68 2d 61 6c 6c 6f 63 61 74  c-a with-allocat
1f40: 65 72 20 74 6f 20 73 61 6d 70 6c 65 2d 6b 65 79  er to sample-key
1f50: 0a 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20 6b  .sample-key >o k
1f60: 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65 20 40  ey-entry-table @
1f70: 20 74 6f 6b 65 6e 2d 74 61 62 6c 65 20 21 20 6f   token-table ! o
1f80: 3e 0a 0a 3a 20 6b 65 79 3a 63 6f 64 65 20 28 20  >..: key:code ( 
1f90: 2d 2d 20 29 0a 20 20 20 20 63 6f 64 65 2d 6b 65  -- ).    code-ke
1fa0: 79 20 20 63 6d 64 6c 6f 63 6b 20 6c 6f 63 6b 0a  y  cmdlock lock.
1fb0: 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 79 70      keypack keyp
1fc0: 61 63 6b 2d 61 6c 6c 23 20 65 72 61 73 65 0a 20  ack-all# erase. 
1fd0: 20 20 20 63 6d 64 72 65 73 65 74 20 61 6c 73 6f     cmdreset also
1fe0: 20 6e 65 74 32 6f 2d 62 61 73 65 20 3b 0a 63 6f   net2o-base ;.co
1ff0: 6d 70 3a 20 3a 2c 20 61 6c 73 6f 20 6e 65 74 32  mp: :, also net2
2000: 6f 2d 62 61 73 65 20 3b 0a 0a 61 6c 73 6f 20 6e  o-base ;..also n
2010: 65 74 32 6f 2d 62 61 73 65 20 64 65 66 69 6e 69  et2o-base defini
2020: 74 69 6f 6e 73 0a 0a 3a 20 65 6e 64 3a 6b 65 79  tions..: end:key
2030: 20 28 20 2d 2d 20 29 0a 20 20 20 20 65 6e 64 77   ( -- ).    endw
2040: 69 74 68 20 65 6e 64 2d 63 6d 64 20 70 72 65 76  ith end-cmd prev
2050: 69 6f 75 73 0a 20 20 20 20 63 6d 64 6c 6f 63 6b  ious.    cmdlock
2060: 20 75 6e 6c 6f 63 6b 20 3b 0a 63 6f 6d 70 3a 20   unlock ;.comp: 
2070: 3a 2c 20 70 72 65 76 69 6f 75 73 20 3b 0a 0a 73  :, previous ;..s
2080: 65 74 2d 63 75 72 72 65 6e 74 20 70 72 65 76 69  et-current previ
2090: 6f 75 73 20 70 72 65 76 69 6f 75 73 0a 0a 3a 20  ous previous..: 
20a0: 6b 65 79 2d 63 72 79 70 74 20 28 20 2d 2d 20 29  key-crypt ( -- )
20b0: 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 79  .    keypack key
20c0: 70 61 63 6b 2d 61 6c 6c 23 0a 20 20 20 20 3e 73  pack-all#.    >s
20d0: 74 6f 72 65 6b 65 79 20 73 65 63 40 20 64 75 70  torekey sec@ dup
20e0: 20 24 32 30 20 75 3c 3d 20 5c 20 69 73 20 61 20   $20 u<= \ is a 
20f0: 73 65 63 72 65 74 2c 20 6e 6f 20 6e 65 65 64 20  secret, no need 
2100: 74 6f 20 62 65 20 73 6c 6f 77 0a 20 20 20 20 49  to be slow.    I
2110: 46 20 20 65 6e 63 72 79 70 74 24 20 20 45 4c 53  F  encrypt$  ELS
2120: 45 20 20 70 77 2d 6c 65 76 65 6c 23 20 65 6e 63  E  pw-level# enc
2130: 72 79 70 74 2d 70 77 24 20 20 54 48 45 4e 20 3b  rypt-pw$  THEN ;
2140: 0a 0a 30 20 56 61 6c 75 65 20 6b 65 79 2d 73 66  ..0 Value key-sf
2150: 64 20 5c 20 73 65 63 72 65 74 20 6b 65 79 73 0a  d \ secret keys.
2160: 30 20 56 61 6c 75 65 20 6b 65 79 2d 70 66 64 20  0 Value key-pfd 
2170: 5c 20 70 75 62 6b 65 79 73 0a 0a 3a 20 3f 2e 6e  \ pubkeys..: ?.n
2180: 65 74 32 6f 20 28 20 2d 2d 20 29 0a 20 20 20 20  et2o ( -- ).    
2190: 73 22 20 7e 2f 2e 6e 65 74 32 6f 22 20 72 2f 6f  s" ~/.net2o" r/o
21a0: 20 6f 70 65 6e 2d 66 69 6c 65 20 49 46 0a 09 64   open-file IF..d
21b0: 72 6f 70 20 73 22 20 7e 2f 2e 6e 65 74 32 6f 22  rop s" ~/.net2o"
21c0: 20 24 31 43 30 20 6d 6b 64 69 72 2d 70 61 72 65   $1C0 mkdir-pare
21d0: 6e 74 73 20 74 68 72 6f 77 0a 20 20 20 20 45 4c  nts throw.    EL
21e0: 53 45 0a 09 63 6c 6f 73 65 2d 66 69 6c 65 20 74  SE..close-file t
21f0: 68 72 6f 77 0a 20 20 20 20 54 48 45 4e 20 3b 0a  hrow.    THEN ;.
2200: 0a 3a 20 3f 66 64 20 28 20 66 64 20 61 64 64 72  .: ?fd ( fd addr
2210: 20 75 20 2d 2d 20 66 64 27 20 29 20 7b 20 61 64   u -- fd' ) { ad
2220: 64 72 20 75 20 7d 20 64 75 70 20 3f 45 58 49 54  dr u } dup ?EXIT
2230: 20 64 72 6f 70 0a 20 20 20 20 3f 2e 6e 65 74 32   drop.    ?.net2
2240: 6f 0a 20 20 20 20 61 64 64 72 20 75 20 72 2f 77  o.    addr u r/w
2250: 20 6f 70 65 6e 2d 66 69 6c 65 20 64 75 70 20 2d   open-file dup -
2260: 35 31 34 20 3d 20 49 46 0a 09 32 64 72 6f 70 20  514 = IF..2drop 
2270: 61 64 64 72 20 75 20 72 2f 77 20 63 72 65 61 74  addr u r/w creat
2280: 65 2d 66 69 6c 65 0a 20 20 20 20 54 48 45 4e 20  e-file.    THEN 
2290: 20 74 68 72 6f 77 20 3b 0a 3a 20 3f 6b 65 79 2d   throw ;.: ?key-
22a0: 73 66 64 20 28 20 2d 2d 20 66 64 20 29 20 6b 65  sfd ( -- fd ) ke
22b0: 79 2d 73 66 64 20 22 7e 2f 2e 6e 65 74 32 6f 2f  y-sfd "~/.net2o/
22c0: 73 65 63 6b 65 79 73 2e 6b 32 6f 22 20 3f 66 64  seckeys.k2o" ?fd
22d0: 20 64 75 70 20 74 6f 20 6b 65 79 2d 73 66 64 20   dup to key-sfd 
22e0: 3b 0a 3a 20 3f 6b 65 79 2d 70 66 64 20 28 20 2d  ;.: ?key-pfd ( -
22f0: 2d 20 66 64 20 29 20 6b 65 79 2d 70 66 64 20 22  - fd ) key-pfd "
2300: 7e 2f 2e 6e 65 74 32 6f 2f 70 75 62 6b 65 79 73  ~/.net2o/pubkeys
2310: 2e 6b 32 6f 22 20 3f 66 64 20 64 75 70 20 74 6f  .k2o" ?fd dup to
2320: 20 6b 65 79 2d 70 66 64 20 3b 0a 0a 3a 20 61 70   key-pfd ;..: ap
2330: 70 65 6e 64 2d 66 69 6c 65 20 28 20 61 64 64 72  pend-file ( addr
2340: 20 75 20 66 64 20 2d 2d 20 29 20 3e 72 0a 20 20   u fd -- ) >r.  
2350: 20 20 72 40 20 66 69 6c 65 2d 73 69 7a 65 20 74    r@ file-size t
2360: 68 72 6f 77 20 20 72 40 20 72 65 70 6f 73 69 74  hrow  r@ reposit
2370: 69 6f 6e 2d 66 69 6c 65 20 74 68 72 6f 77 0a 20  ion-file throw. 
2380: 20 20 20 72 40 20 77 72 69 74 65 2d 66 69 6c 65     r@ write-file
2390: 20 74 68 72 6f 77 20 20 72 3e 20 66 6c 75 73 68   throw  r> flush
23a0: 2d 66 69 6c 65 20 74 68 72 6f 77 20 3b 0a 0a 3a  -file throw ;..:
23b0: 20 6b 65 79 3e 73 66 69 6c 65 20 28 20 2d 2d 20   key>sfile ( -- 
23c0: 29 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65  ).    keypack ke
23d0: 79 70 61 63 6b 2d 61 6c 6c 23 20 3f 6b 65 79 2d  ypack-all# ?key-
23e0: 73 66 64 20 61 70 70 65 6e 64 2d 66 69 6c 65 20  sfd append-file 
23f0: 3b 0a 3a 20 6b 65 79 3e 70 66 69 6c 65 20 28 20  ;.: key>pfile ( 
2400: 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61 63 6b  -- ).    keypack
2410: 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 3f 6b   keypack-all# ?k
2420: 65 79 2d 70 66 64 20 61 70 70 65 6e 64 2d 66 69  ey-pfd append-fi
2430: 6c 65 20 3b 0a 0a 3a 20 72 6e 64 3e 73 66 69 6c  le ;..: rnd>sfil
2440: 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79  e ( -- ).    key
2450: 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c  pack keypack-all
2460: 23 20 3e 72 6e 67 24 20 6b 65 79 3e 73 66 69 6c  # >rng$ key>sfil
2470: 65 20 3b 0a 3a 20 72 6e 64 3e 70 66 69 6c 65 20  e ;.: rnd>pfile 
2480: 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61  ( -- ).    keypa
2490: 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20  ck keypack-all# 
24a0: 3e 72 6e 67 24 20 6b 65 79 3e 70 66 69 6c 65 20  >rng$ key>pfile 
24b0: 3b 0a 0a 3a 20 3e 6b 65 79 73 20 28 20 2d 2d 20  ;..: >keys ( -- 
24c0: 29 0a 20 20 20 20 5c 47 20 61 64 64 20 73 68 61  ).    \G add sha
24d0: 72 65 64 20 73 65 63 72 65 74 20 74 6f 20 6c 69  red secret to li
24e0: 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 6b  st of possible k
24f0: 65 79 73 0a 20 20 20 20 73 6b 63 20 70 6b 63 20  eys.    skc pkc 
2500: 6b 65 79 70 61 64 20 65 64 2d 64 68 20 2b 6b 65  keypad ed-dh +ke
2510: 79 20 3b 0a 0a 5c 20 6b 65 79 20 67 65 6e 65 72  y ;..\ key gener
2520: 61 74 69 6f 6e 0a 5c 20 66 6f 72 20 72 65 70 72  ation.\ for repr
2530: 6f 64 75 63 69 62 69 6c 69 74 79 20 6f 66 20 74  oducibility of t
2540: 68 65 20 73 65 6c 66 73 69 67 2c 20 61 6c 77 61  he selfsig, alwa
2550: 79 73 20 75 73 65 20 74 68 65 20 73 61 6d 65 20  ys use the same 
2560: 6f 72 64 65 72 3a 0a 5c 20 22 70 75 62 6b 65 79  order:.\ "pubkey
2570: 22 20 6e 65 77 6b 65 79 20 3c 6e 3e 20 6b 65 79  " newkey <n> key
2580: 74 79 70 65 20 22 6e 69 63 6b 22 20 6b 65 79 6e  type "nick" keyn
2590: 69 63 6b 20 22 73 69 67 22 20 6b 65 79 73 65 6c  ick "sig" keysel
25a0: 66 73 69 67 0a 0a 3a 20 70 61 63 6b 2d 6b 65 79  fsig..: pack-key
25b0: 20 28 20 74 79 70 65 20 6e 69 63 6b 20 75 20 2d   ( type nick u -
25c0: 2d 20 29 0a 20 20 20 20 6b 65 79 3a 63 6f 64 65  - ).    key:code
25d0: 0a 20 20 20 20 20 20 70 6b 63 20 6b 65 79 73 69  .      pkc keysi
25e0: 7a 65 20 32 2a 20 24 2c 20 6e 65 77 6b 65 79 0a  ze 2* $, newkey.
25f0: 20 20 20 20 20 20 72 6f 74 20 6c 69 74 2c 20 6b        rot lit, k
2600: 65 79 74 79 70 65 0a 20 20 20 20 20 20 24 2c 20  eytype.      $, 
2610: 6b 65 79 6e 69 63 6b 0a 20 20 20 20 20 20 6e 6f  keynick.      no
2620: 77 3e 6e 65 76 65 72 20 63 6d 64 62 75 66 24 20  w>never cmdbuf$ 
2630: 63 3a 30 6b 65 79 20 63 3a 68 61 73 68 20 5b 27  c:0key c:hash ['
2640: 5d 20 2e 73 69 67 20 24 74 6d 70 20 73 69 67 2c  ] .sig $tmp sig,
2650: 0a 20 20 20 20 20 20 73 6b 63 20 6b 65 79 73 69  .      skc keysi
2660: 7a 65 20 24 2c 20 70 72 69 76 6b 65 79 0a 20 20  ze $, privkey.  
2670: 20 20 65 6e 64 3a 6b 65 79 20 3b 0a 0a 61 6c 73    end:key ;..als
2680: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 0a 3a 20 70  o net2o-base.: p
2690: 61 63 6b 2d 63 6f 72 65 6b 65 79 20 28 20 6f 3a  ack-corekey ( o:
26a0: 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 6b 65 2d  key -- ).    ke-
26b0: 70 6b 20 24 40 20 24 2c 20 6e 65 77 6b 65 79 0a  pk $@ $, newkey.
26c0: 20 20 20 20 6b 65 2d 74 79 70 65 20 40 20 75 6c      ke-type @ ul
26d0: 69 74 2c 20 6b 65 79 74 79 70 65 0a 20 20 20 20  it, keytype.    
26e0: 6b 65 2d 6e 69 63 6b 20 24 40 20 24 2c 20 6b 65  ke-nick $@ $, ke
26f0: 79 6e 69 63 6b 0a 20 20 20 20 6b 65 2d 70 73 6b  ynick.    ke-psk
2700: 20 73 65 63 40 20 64 75 70 20 49 46 20 20 24 2c   sec@ dup IF  $,
2710: 20 6b 65 79 70 73 6b 20 20 45 4c 53 45 20 20 32   keypsk  ELSE  2
2720: 64 72 6f 70 20 20 54 48 45 4e 0a 20 20 20 20 6b  drop  THEN.    k
2730: 65 2d 70 72 6f 66 20 24 40 20 64 75 70 20 49 46  e-prof $@ dup IF
2740: 20 20 24 2c 20 6b 65 79 70 72 6f 66 69 6c 65 20    $, keyprofile 
2750: 20 45 4c 53 45 20 20 32 64 72 6f 70 20 20 54 48   ELSE  2drop  TH
2760: 45 4e 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73 69  EN.    ke-selfsi
2770: 67 20 24 40 20 73 69 67 2c 0a 20 20 20 20 6b 65  g $@ sig,.    ke
2780: 2d 73 74 6f 72 65 6b 65 79 20 40 20 3e 73 74 6f  -storekey @ >sto
2790: 72 65 6b 65 79 20 21 20 3b 0a 70 72 65 76 69 6f  rekey ! ;.previo
27a0: 75 73 0a 0a 3a 20 70 61 63 6b 2d 70 75 62 6b 65  us..: pack-pubke
27b0: 79 20 28 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20  y ( o:key -- ). 
27c0: 20 20 20 6b 65 79 3a 63 6f 64 65 0a 20 20 20 20     key:code.    
27d0: 20 20 70 61 63 6b 2d 63 6f 72 65 6b 65 79 0a 20    pack-corekey. 
27e0: 20 20 20 65 6e 64 3a 6b 65 79 20 3b 0a 3a 20 70     end:key ;.: p
27f0: 61 63 6b 2d 73 65 63 6b 65 79 20 28 20 6f 3a 6b  ack-seckey ( o:k
2800: 65 79 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 3a  ey -- ).    key:
2810: 63 6f 64 65 0a 20 20 20 20 20 20 70 61 63 6b 2d  code.      pack-
2820: 63 6f 72 65 6b 65 79 0a 20 20 20 20 20 20 6b 65  corekey.      ke
2830: 2d 73 6b 20 73 65 63 40 20 24 2c 20 70 72 69 76  -sk sec@ $, priv
2840: 6b 65 79 0a 20 20 20 20 65 6e 64 3a 6b 65 79 20  key.    end:key 
2850: 3b 0a 0a 3a 20 3e 62 61 63 6b 75 70 20 28 20 61  ;..: >backup ( a
2860: 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 32  ddr u -- ).    2
2870: 64 75 70 20 32 64 75 70 20 5b 3a 20 74 79 70 65  dup 2dup [: type
2880: 20 27 7e 27 20 65 6d 69 74 20 3b 5d 20 24 74 6d   '~' emit ;] $tm
2890: 70 20 72 65 6e 61 6d 65 2d 66 69 6c 65 20 74 68  p rename-file th
28a0: 72 6f 77 0a 20 20 20 20 32 64 75 70 20 5b 3a 20  row.    2dup [: 
28b0: 74 79 70 65 20 27 2b 27 20 65 6d 69 74 20 3b 5d  type '+' emit ;]
28c0: 20 24 74 6d 70 20 32 73 77 61 70 20 72 65 6e 61   $tmp 2swap rena
28d0: 6d 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 3b 0a  me-file throw ;.
28e0: 0a 3a 20 73 61 76 65 2d 70 75 62 6b 65 79 73 20  .: save-pubkeys 
28f0: 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 2d 70  ( -- ).    key-p
2900: 66 64 20 3f 64 75 70 2d 49 46 20 20 63 6c 6f 73  fd ?dup-IF  clos
2910: 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 20 54 48  e-file throw  TH
2920: 45 4e 0a 20 20 20 20 30 20 22 7e 2f 2e 6e 65 74  EN.    0 "~/.net
2930: 32 6f 2f 70 75 62 6b 65 79 73 2e 6b 32 6f 2b 22  2o/pubkeys.k2o+"
2940: 20 3f 66 64 20 74 6f 20 6b 65 79 2d 70 66 64 0a   ?fd to key-pfd.
2950: 20 20 20 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a      key-table [:
2960: 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f 70 20 63   cell+ $@ drop c
2970: 65 6c 6c 2b 20 3e 6f 0a 20 20 20 20 20 20 6b 65  ell+ >o.      ke
2980: 2d 73 6b 20 73 65 63 40 20 64 30 3d 20 49 46 20  -sk sec@ d0= IF 
2990: 20 70 61 63 6b 2d 70 75 62 6b 65 79 20 20 54 48   pack-pubkey  TH
29a0: 45 4e 0a 20 20 20 20 20 20 6b 65 79 2d 63 72 79  EN.      key-cry
29b0: 70 74 20 6b 65 79 3e 70 66 69 6c 65 20 6f 3e 20  pt key>pfile o> 
29c0: 3b 5d 20 23 6d 61 70 0a 20 20 20 20 6b 65 79 2d  ;] #map.    key-
29d0: 70 66 64 20 63 6c 6f 73 65 2d 66 69 6c 65 20 74  pfd close-file t
29e0: 68 72 6f 77 0a 20 20 20 20 22 7e 2f 2e 6e 65 74  hrow.    "~/.net
29f0: 32 6f 2f 70 75 62 6b 65 79 73 2e 6b 32 6f 22 20  2o/pubkeys.k2o" 
2a00: 3e 62 61 63 6b 75 70 0a 20 20 20 20 30 20 74 6f  >backup.    0 to
2a10: 20 6b 65 79 2d 70 66 64 20 3b 0a 0a 3a 20 73 61   key-pfd ;..: sa
2a20: 76 65 2d 73 65 63 6b 65 79 73 20 28 20 2d 2d 20  ve-seckeys ( -- 
2a30: 29 0a 20 20 20 20 6b 65 79 2d 73 66 64 20 3f 64  ).    key-sfd ?d
2a40: 75 70 2d 49 46 20 20 63 6c 6f 73 65 2d 66 69 6c  up-IF  close-fil
2a50: 65 20 74 68 72 6f 77 20 20 54 48 45 4e 0a 20 20  e throw  THEN.  
2a60: 20 20 30 20 22 7e 2f 2e 6e 65 74 32 6f 2f 73 65    0 "~/.net2o/se
2a70: 63 6b 65 79 73 2e 6b 32 6f 2b 22 20 3f 66 64 20  ckeys.k2o+" ?fd 
2a80: 74 6f 20 6b 65 79 2d 73 66 64 0a 20 20 20 20 6b  to key-sfd.    k
2a90: 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c 6c  ey-table [: cell
2aa0: 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b 20  + $@ drop cell+ 
2ab0: 3e 6f 0a 20 20 20 20 20 20 6b 65 2d 73 6b 20 73  >o.      ke-sk s
2ac0: 65 63 40 20 64 30 3c 3e 20 49 46 20 20 70 61 63  ec@ d0<> IF  pac
2ad0: 6b 2d 73 65 63 6b 65 79 20 20 54 48 45 4e 0a 20  k-seckey  THEN. 
2ae0: 20 20 20 20 20 6b 65 79 2d 63 72 79 70 74 20 6b       key-crypt k
2af0: 65 79 3e 73 66 69 6c 65 20 6f 3e 20 3b 5d 20 23  ey>sfile o> ;] #
2b00: 6d 61 70 0a 20 20 20 20 22 7e 2f 2e 6e 65 74 32  map.    "~/.net2
2b10: 6f 2f 73 65 63 6b 65 79 73 2e 6b 32 6f 22 20 3e  o/seckeys.k2o" >
2b20: 62 61 63 6b 75 70 0a 20 20 20 20 6b 65 79 2d 73  backup.    key-s
2b30: 66 64 20 63 6c 6f 73 65 2d 66 69 6c 65 20 74 68  fd close-file th
2b40: 72 6f 77 20 30 20 74 6f 20 6b 65 79 2d 73 66 64  row 0 to key-sfd
2b50: 20 3b 0a 0a 3a 20 73 61 76 65 2d 6b 65 79 73 20   ;..: save-keys 
2b60: 28 20 2d 2d 20 29 0a 20 20 20 20 73 61 76 65 2d  ( -- ).    save-
2b70: 70 75 62 6b 65 79 73 20 73 61 76 65 2d 73 65 63  pubkeys save-sec
2b80: 6b 65 79 73 20 3b 0a 0a 3a 20 2b 67 65 6e 2d 6b  keys ;..: +gen-k
2b90: 65 79 73 20 28 20 6e 69 63 6b 20 75 20 74 79 70  eys ( nick u typ
2ba0: 65 20 2d 2d 20 29 20 2d 72 6f 74 0a 20 20 20 20  e -- ) -rot.    
2bb0: 67 65 6e 2d 6b 65 79 73 20 3e 6b 65 79 73 20 70  gen-keys >keys p
2bc0: 61 63 6b 2d 6b 65 79 20 6b 65 79 2d 63 72 79 70  ack-key key-cryp
2bd0: 74 20 6b 65 79 3e 73 66 69 6c 65 20 3b 0a 0a 3a  t key>sfile ;..:
2be0: 20 2b 6b 65 79 70 61 69 72 20 28 20 74 79 70 65   +keypair ( type
2bf0: 20 6e 69 63 6b 20 75 20 2d 2d 20 29 20 2b 70 61   nick u -- ) +pa
2c00: 73 73 70 68 72 61 73 65 20 2b 67 65 6e 2d 6b 65  ssphrase +gen-ke
2c10: 79 73 20 3b 0a 0a 3a 20 2e 72 76 6b 20 2e 22 20  ys ;..: .rvk ." 
2c20: 50 6c 65 61 73 65 20 77 72 69 74 65 20 64 6f 77  Please write dow
2c30: 6e 20 72 65 76 6f 6b 65 20 6b 65 79 3a 20 22 20  n revoke key: " 
2c40: 63 72 0a 20 20 20 20 73 6b 72 65 76 20 24 32 30  cr.    skrev $20
2c50: 20 62 6f 75 6e 64 73 20 44 4f 20 20 2e 22 20 5c   bounds DO  ." \
2c60: 20 22 20 49 20 34 20 38 35 74 79 70 65 20 73 70   " I 4 85type sp
2c70: 61 63 65 20 49 20 34 20 2b 20 34 20 38 35 74 79  ace I 4 + 4 85ty
2c80: 70 65 20 63 72 20 38 20 2b 4c 4f 4f 50 20 3b 0a  pe cr 8 +LOOP ;.
2c90: 0a 24 34 30 20 62 75 66 66 65 72 3a 20 6e 69 63  .$40 buffer: nic
2ca0: 6b 2d 62 75 66 0a 0a 3a 20 6d 61 6b 65 2d 6b 65  k-buf..: make-ke
2cb0: 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79  y ( -- ).    key
2cc0: 23 75 73 65 72 20 2e 22 20 6e 69 63 6b 3a 20 22  #user ." nick: "
2cd0: 20 6e 69 63 6b 2d 62 75 66 20 24 34 30 20 61 63   nick-buf $40 ac
2ce0: 63 65 70 74 20 6e 69 63 6b 2d 62 75 66 20 73 77  cept nick-buf sw
2cf0: 61 70 20 63 72 0a 20 20 20 20 2e 22 20 70 61 73  ap cr.    ." pas
2d00: 73 70 68 72 61 73 65 3a 20 22 20 2b 70 61 73 73  sphrase: " +pass
2d10: 70 68 72 61 73 65 20 6b 65 79 3e 64 65 66 61 75  phrase key>defau
2d20: 6c 74 0a 20 20 20 20 63 72 20 2b 67 65 6e 2d 6b  lt.    cr +gen-k
2d30: 65 79 73 20 2e 72 76 6b 20 3b 0a 0a 5c 20 72 65  eys .rvk ;..\ re
2d40: 61 64 20 6b 65 79 20 66 69 6c 65 0a 0a 3a 20 74  ad key file..: t
2d50: 72 79 2d 64 65 63 72 79 70 74 2d 6b 65 79 20 28  ry-decrypt-key (
2d60: 20 6b 65 79 20 75 31 20 2d 2d 20 61 64 64 72 20   key u1 -- addr 
2d70: 75 32 20 66 6c 61 67 20 29 0a 20 20 20 20 6b 65  u2 flag ).    ke
2d80: 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 64 20  ypack keypack-d 
2d90: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 6d 6f 76  keypack-all# mov
2da0: 65 0a 20 20 20 20 6b 65 79 70 61 63 6b 2d 64 20  e.    keypack-d 
2db0: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 32 73 77  keypack-all# 2sw
2dc0: 61 70 0a 20 20 20 20 64 75 70 20 24 32 30 20 3d  ap.    dup $20 =
2dd0: 20 49 46 20 20 64 65 63 72 79 70 74 24 20 20 45   IF  decrypt$  E
2de0: 4c 53 45 0a 09 6b 65 79 70 61 63 6b 20 63 40 20  LSE..keypack c@ 
2df0: 24 46 20 61 6e 64 20 70 77 2d 6c 65 76 65 6c 23  $F and pw-level#
2e00: 20 3c 3d 20 49 46 20 20 64 65 63 72 79 70 74 2d   <= IF  decrypt-
2e10: 70 77 24 0a 09 45 4c 53 45 20 20 32 64 72 6f 70  pw$..ELSE  2drop
2e20: 20 66 61 6c 73 65 20 20 54 48 45 4e 0a 20 20 20   false  THEN.   
2e30: 20 54 48 45 4e 20 3b 0a 0a 3a 20 74 72 79 2d 64   THEN ;..: try-d
2e40: 65 63 72 79 70 74 20 28 20 2d 2d 20 61 64 64 72  ecrypt ( -- addr
2e50: 20 75 20 2f 20 30 20 30 20 29 0a 20 20 20 20 6b   u / 0 0 ).    k
2e60: 65 79 73 20 24 5b 5d 23 20 30 20 3f 44 4f 0a 09  eys $[]# 0 ?DO..
2e70: 49 20 6b 65 79 73 20 73 65 63 5b 5d 40 20 74 72  I keys sec[]@ tr
2e80: 79 2d 64 65 63 72 79 70 74 2d 6b 65 79 20 49 46  y-decrypt-key IF
2e90: 0a 09 20 20 20 20 49 20 6b 65 79 73 20 24 5b 5d  ..    I keys $[]
2ea0: 20 40 20 3e 73 74 6f 72 65 6b 65 79 20 21 20 75   @ >storekey ! u
2eb0: 6e 6c 6f 6f 70 20 20 45 58 49 54 20 20 54 48 45  nloop  EXIT  THE
2ec0: 4e 0a 09 32 64 72 6f 70 0a 20 20 20 20 4c 4f 4f  N..2drop.    LOO
2ed0: 50 20 20 30 20 30 20 3b 0a 0a 3a 20 64 6f 2d 6b  P  0 0 ;..: do-k
2ee0: 65 79 20 28 20 61 64 64 72 20 75 20 2f 20 30 20  ey ( addr u / 0 
2ef0: 30 20 20 2d 2d 20 29 0a 20 20 20 20 64 75 70 20  0  -- ).    dup 
2f00: 30 3d 20 49 46 20 20 32 64 72 6f 70 20 20 45 58  0= IF  2drop  EX
2f10: 49 54 20 20 54 48 45 4e 0a 20 20 20 20 73 61 6d  IT  THEN.    sam
2f20: 70 6c 65 2d 6b 65 79 20 2e 64 6f 2d 63 6d 64 2d  ple-key .do-cmd-
2f30: 6c 6f 6f 70 20 3b 0a 0a 3a 20 72 65 61 64 2d 6b  loop ;..: read-k
2f40: 65 79 73 2d 6c 6f 6f 70 20 28 20 66 64 20 2d 2d  eys-loop ( fd --
2f50: 20 29 20 20 3e 72 20 30 2e 20 72 40 20 72 65 70   )  >r 0. r@ rep
2f60: 6f 73 69 74 69 6f 6e 2d 66 69 6c 65 20 74 68 72  osition-file thr
2f70: 6f 77 0a 20 20 20 20 42 45 47 49 4e 0a 09 72 40  ow.    BEGIN..r@
2f80: 20 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e 20 74   file-position t
2f90: 68 72 6f 77 20 64 3e 36 34 20 6b 65 79 2d 72 65  hrow d>64 key-re
2fa0: 61 64 2d 6f 66 66 73 65 74 20 36 34 21 0a 09 6b  ad-offset 64!..k
2fb0: 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61  eypack keypack-a
2fc0: 6c 6c 23 20 72 40 20 72 65 61 64 2d 66 69 6c 65  ll# r@ read-file
2fd0: 20 74 68 72 6f 77 0a 09 6b 65 79 70 61 63 6b 2d   throw..keypack-
2fe0: 61 6c 6c 23 20 3d 20 57 48 49 4c 45 20 20 74 72  all# = WHILE  tr
2ff0: 79 2d 64 65 63 72 79 70 74 20 64 6f 2d 6b 65 79  y-decrypt do-key
3000: 0a 20 20 20 20 52 45 50 45 41 54 20 20 72 64 72  .    REPEAT  rdr
3010: 6f 70 20 3b 0a 3a 20 72 65 61 64 2d 6b 65 79 2d  op ;.: read-key-
3020: 6c 6f 6f 70 20 28 20 2d 2d 20 29 20 3f 6b 65 79  loop ( -- ) ?key
3030: 2d 73 66 64 20 72 65 61 64 2d 6b 65 79 73 2d 6c  -sfd read-keys-l
3040: 6f 6f 70 20 3b 0a 3a 20 72 65 61 64 2d 70 6b 65  oop ;.: read-pke
3050: 79 2d 6c 6f 6f 70 20 28 20 2d 2d 20 29 20 70 77  y-loop ( -- ) pw
3060: 2d 6c 65 76 65 6c 23 20 3e 72 20 2d 31 20 74 6f  -level# >r -1 to
3070: 20 70 77 2d 6c 65 76 65 6c 23 0a 20 20 20 20 3f   pw-level#.    ?
3080: 6b 65 79 2d 70 66 64 20 72 65 61 64 2d 6b 65 79  key-pfd read-key
3090: 73 2d 6c 6f 6f 70 20 72 3e 20 74 6f 20 70 77 2d  s-loop r> to pw-
30a0: 6c 65 76 65 6c 23 20 3b 0a 0a 3a 20 72 65 61 64  level# ;..: read
30b0: 2d 6b 65 79 73 20 28 20 2d 2d 20 29 0a 20 20 20  -keys ( -- ).   
30c0: 20 72 65 61 64 2d 6b 65 79 2d 6c 6f 6f 70 20 72   read-key-loop r
30d0: 65 61 64 2d 70 6b 65 79 2d 6c 6f 6f 70 20 3b 0a  ead-pkey-loop ;.
30e0: 0a 5c 20 73 65 6c 65 63 74 20 6b 65 79 20 62 79  .\ select key by
30f0: 20 6e 69 63 6b 0a 0a 3a 20 3e 6b 65 79 20 28 20   nick..: >key ( 
3100: 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20  addr u -- ).    
3110: 6b 65 79 2d 74 61 62 6c 65 20 40 20 30 3d 20 49  key-table @ 0= I
3120: 46 20 20 72 65 61 64 2d 6b 65 79 73 20 20 54 48  F  read-keys  TH
3130: 45 4e 0a 20 20 20 20 6e 69 63 6b 2d 6b 65 79 20  EN.    nick-key 
3140: 3e 6f 20 6f 20 30 3d 20 49 46 20 20 6f 3e 20 74  >o o 0= IF  o> t
3150: 72 75 65 20 21 21 6e 6f 2d 6e 69 63 6b 21 21 20  rue !!no-nick!! 
3160: 20 54 48 45 4e 0a 20 20 20 20 6b 65 2d 70 6b 20   THEN.    ke-pk 
3170: 24 40 20 70 6b 63 20 73 77 61 70 20 6b 65 79 73  $@ pkc swap keys
3180: 69 7a 65 20 32 2a 20 75 6d 69 6e 20 6d 6f 76 65  ize 2* umin move
3190: 0a 20 20 20 20 6b 65 2d 70 73 6b 20 73 65 63 40  .    ke-psk sec@
31a0: 20 6d 79 2d 30 6b 65 79 20 73 65 63 21 0a 20 20   my-0key sec!.  
31b0: 20 20 6b 65 2d 73 6b 20 40 20 73 6b 63 20 6b 65    ke-sk @ skc ke
31c0: 79 73 69 7a 65 20 6d 6f 76 65 20 6f 3e 20 3b 0a  ysize move o> ;.
31d0: 0a 3a 20 69 27 6d 20 28 20 22 6e 61 6d 65 22 20  .: i'm ( "name" 
31e0: 2d 2d 20 29 20 70 61 72 73 65 2d 6e 61 6d 65 20  -- ) parse-name 
31f0: 3e 6b 65 79 20 3b 0a 3a 20 70 6b 27 20 28 20 22  >key ;.: pk' ( "
3200: 6e 61 6d 65 22 20 2d 2d 20 61 64 64 72 20 75 20  name" -- addr u 
3210: 29 0a 20 20 20 20 70 61 72 73 65 2d 6e 61 6d 65  ).    parse-name
3220: 20 6e 69 63 6b 2d 6b 65 79 20 3e 6f 20 6b 65 2d   nick-key >o ke-
3230: 70 6b 20 24 40 20 6f 3e 20 3b 0a 0a 3a 20 64 65  pk $@ o> ;..: de
3240: 73 74 2d 6b 65 79 20 28 20 61 64 64 72 20 75 20  st-key ( addr u 
3250: 2d 2d 20 29 20 64 75 70 20 30 3d 20 49 46 20 20  -- ) dup 0= IF  
3260: 32 64 72 6f 70 20 20 45 58 49 54 20 20 54 48 45  2drop  EXIT  THE
3270: 4e 0a 20 20 20 20 6e 69 63 6b 2d 6b 65 79 20 3e  N.    nick-key >
3280: 6f 20 6f 20 30 3d 20 21 21 75 6e 6b 6e 6f 77 6e  o o 0= !!unknown
3290: 2d 6b 65 79 21 21 0a 20 20 20 20 6b 65 2d 70 73  -key!!.    ke-ps
32a0: 6b 20 73 65 63 40 20 73 74 61 74 65 23 20 75 6d  k sec@ state# um
32b0: 69 6e 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20  in.    ke-pk $@ 
32c0: 6b 65 79 73 69 7a 65 20 75 6d 69 6e 20 6f 3e 0a  keysize umin o>.
32d0: 20 20 20 20 64 65 73 74 2d 70 75 62 6b 65 79 20      dest-pubkey 
32e0: 24 21 20 20 64 65 73 74 2d 30 6b 65 79 20 73 65  $!  dest-0key se
32f0: 63 21 20 3b 0a 0a 3a 20 72 65 70 6c 61 63 65 2d  c! ;..: replace-
3300: 6b 65 79 20 31 20 2f 73 74 72 69 6e 67 20 7b 20  key 1 /string { 
3310: 72 65 76 2d 61 64 64 72 20 75 20 2d 2d 20 6f 20  rev-addr u -- o 
3320: 7d 20 5c 20 72 65 76 6f 63 61 74 69 6f 6e 20 74  } \ revocation t
3330: 69 63 6b 65 74 0a 20 20 20 20 6b 65 79 28 20 2e  icket.    key( .
3340: 22 20 52 65 70 6c 61 63 65 3a 22 20 63 72 20 6f  " Replace:" cr o
3350: 20 63 65 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 0a   cell- 0 .key ).
3360: 20 20 20 20 73 22 20 23 72 65 76 6f 6b 65 64 22      s" #revoked"
3370: 20 64 75 70 20 3e 72 20 6b 65 2d 6e 69 63 6b 20   dup >r ke-nick 
3380: 24 2b 21 0a 20 20 20 20 6b 65 2d 6e 69 63 6b 20  $+!.    ke-nick 
3390: 24 40 20 72 3e 20 2d 20 6b 65 2d 70 72 6f 66 20  $@ r> - ke-prof 
33a0: 24 40 20 6b 65 2d 70 73 6b 20 73 65 63 40 20 6b  $@ ke-psk sec@ k
33b0: 65 2d 73 69 67 73 20 6b 65 2d 74 79 70 65 20 40  e-sigs ke-type @
33c0: 0a 20 20 20 20 72 65 76 2d 61 64 64 72 20 6b 65  .    rev-addr ke
33d0: 79 73 69 7a 65 20 32 2a 20 6b 65 79 3a 6e 65 77  ysize 2* key:new
33e0: 20 3e 6f 0a 20 20 20 20 6b 65 2d 74 79 70 65 20   >o.    ke-type 
33f0: 21 20 5b 3a 20 6b 65 2d 73 69 67 73 20 24 2b 5b  ! [: ke-sigs $+[
3400: 5d 21 20 3b 5d 20 24 5b 5d 6d 61 70 20 6b 65 2d  ]! ;] $[]map ke-
3410: 70 73 6b 20 73 65 63 21 20 6b 65 2d 70 72 6f 66  psk sec! ke-prof
3420: 20 24 21 20 6b 65 2d 6e 69 63 6b 20 24 21 0a 20   $! ke-nick $!. 
3430: 20 20 20 72 65 76 2d 61 64 64 72 20 6b 65 79 73     rev-addr keys
3440: 69 7a 65 20 32 2a 20 6b 65 2d 70 6b 20 24 21 0a  ize 2* ke-pk $!.
3450: 20 20 20 20 72 65 76 2d 61 64 64 72 20 75 20 2b      rev-addr u +
3460: 20 31 2d 20 64 75 70 20 63 40 20 32 2a 20 2d 20   1- dup c@ 2* - 
3470: 24 31 30 20 2d 20 24 31 30 20 6b 65 2d 73 65 6c  $10 - $10 ke-sel
3480: 66 73 69 67 20 24 21 0a 20 20 20 20 6b 65 79 28  fsig $!.    key(
3490: 20 2e 22 20 77 69 74 68 3a 22 20 63 72 20 6f 20   ." with:" cr o 
34a0: 63 65 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 20 6f  cell- 0 .key ) o
34b0: 20 6f 3e 20 3b 0a 0a 3a 6e 6f 6e 61 6d 65 20 28   o> ;..:noname (
34c0: 20 72 65 76 61 64 64 72 20 75 31 20 6b 65 79 61   revaddr u1 keya
34d0: 64 64 72 20 75 32 20 2d 2d 20 6f 20 29 0a 20 20  ddr u2 -- o ).  
34e0: 20 20 63 75 72 72 65 6e 74 2d 6b 65 79 20 3e 6f    current-key >o
34f0: 20 72 65 70 6c 61 63 65 2d 6b 65 79 20 6f 3e 20   replace-key o> 
3500: 3e 6f 20 73 6b 63 20 6b 65 79 73 69 7a 65 20 6b  >o skc keysize k
3510: 65 2d 73 6b 20 73 65 63 21 0a 20 20 20 20 6f 20  e-sk sec!.    o 
3520: 6f 3e 20 3b 20 69 73 20 72 65 6e 65 77 2d 6b 65  o> ; is renew-ke
3530: 79 0a 0a 61 6c 73 6f 20 6e 65 74 32 6f 2d 62 61  y..also net2o-ba
3540: 73 65 0a 3a 20 66 65 74 63 68 2d 69 64 2c 20 28  se.: fetch-id, (
3550: 20 69 64 2d 61 64 64 72 20 75 20 2d 2d 20 29 0a   id-addr u -- ).
3560: 20 20 20 20 24 2c 20 64 68 74 2d 69 64 20 64 68      $, dht-id dh
3570: 74 2d 68 6f 73 74 3f 20 65 6e 64 77 69 74 68 20  t-host? endwith 
3580: 3b 0a 3a 20 66 65 74 63 68 2d 68 6f 73 74 2c 20  ;.: fetch-host, 
3590: 28 20 6e 69 63 6b 20 75 20 2d 2d 20 29 0a 20 20  ( nick u -- ).  
35a0: 20 20 6e 69 63 6b 2d 6b 65 79 20 2e 6b 65 2d 70    nick-key .ke-p
35b0: 6b 20 24 40 20 66 65 74 63 68 2d 69 64 2c 20 3b  k $@ fetch-id, ;
35c0: 0a 70 72 65 76 69 6f 75 73 0a 0a 30 20 5b 49 46  .previous..0 [IF
35d0: 5d 0a 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65  ].Local Variable
35e0: 73 3a 0a 66 6f 72 74 68 2d 6c 6f 63 61 6c 2d 77  s:.forth-local-w
35f0: 6f 72 64 73 3a 0a 20 20 20 20 28 0a 20 20 20 20  ords:.    (.    
3600: 20 28 28 22 6e 65 74 32 6f 3a 22 20 22 2b 6e 65   (("net2o:" "+ne
3610: 74 32 6f 3a 22 29 20 64 65 66 69 6e 69 74 69 6f  t2o:") definitio
3620: 6e 2d 73 74 61 72 74 65 72 20 28 66 6f 6e 74 2d  n-starter (font-
3630: 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63  lock-keyword-fac
3640: 65 20 2e 20 31 29 0a 20 20 20 20 20 20 22 5b 20  e . 1).      "[ 
3650: 5c 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 20 28 66  \t\n]" t name (f
3660: 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f  ont-lock-functio
3670: 6e 2d 6e 61 6d 65 2d 66 61 63 65 20 2e 20 33 29  n-name-face . 3)
3680: 29 0a 20 20 20 20 20 28 22 5b 61 2d 7a 30 2d 39  ).     ("[a-z0-9
3690: 5d 2b 28 22 20 69 6d 6d 65 64 69 61 74 65 20 28  ]+(" immediate (
36a0: 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e  font-lock-commen
36b0: 74 2d 66 61 63 65 20 2e 20 31 29 0a 20 20 20 20  t-face . 1).    
36c0: 20 20 22 29 22 20 6e 69 6c 20 63 6f 6d 6d 65 6e    ")" nil commen
36d0: 74 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d  t (font-lock-com
36e0: 6d 65 6e 74 2d 66 61 63 65 20 2e 20 31 29 29 0a  ment-face . 1)).
36f0: 20 20 20 20 29 0a 66 6f 72 74 68 2d 6c 6f 63 61      ).forth-loca
3700: 6c 2d 69 6e 64 65 6e 74 2d 77 6f 72 64 73 3a 0a  l-indent-words:.
3710: 20 20 20 20 28 0a 20 20 20 20 20 28 28 22 6e 65      (.     (("ne
3720: 74 32 6f 3a 22 20 22 2b 6e 65 74 32 6f 3a 22 29  t2o:" "+net2o:")
3730: 20 28 30 20 2e 20 32 29 20 28 30 20 2e 20 32 29   (0 . 2) (0 . 2)
3740: 20 6e 6f 6e 2d 69 6d 6d 65 64 69 61 74 65 29 0a   non-immediate).
3750: 20 20 20 20 20 28 28 22 5b 3a 22 20 22 6b 65 79       (("[:" "key
3760: 3a 63 6f 64 65 22 29 20 28 30 20 2e 20 31 29 20  :code") (0 . 1) 
3770: 28 30 20 2e 20 31 29 20 69 6d 6d 65 64 69 61 74  (0 . 1) immediat
3780: 65 29 0a 20 20 20 20 20 28 28 22 3b 5d 22 20 22  e).     ((";]" "
3790: 65 6e 64 3a 6b 65 79 22 29 20 28 2d 31 20 2e 20  end:key") (-1 . 
37a0: 30 29 20 28 30 20 2e 20 2d 31 29 20 69 6d 6d 65  0) (0 . -1) imme
37b0: 64 69 61 74 65 29 0a 20 20 20 20 29 0a 45 6e 64  diate).    ).End
37c0: 3a 0a 5b 54 48 45 4e 5d                          :.[THEN]