Hex Artifact Content
Not logged in

Artifact 83cf8cb6f0c1a9bbb3bbdf108c4ee2584129f339:


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 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 6b 65 79  axdata -.    key
0650: 2d 73 61 6c 74 23 20 75 76 61 72 20 6b 65 79 70  -salt# uvar keyp
0660: 61 63 6b 0a 20 20 20 20 6b 65 79 70 61 63 6b 23  ack.    keypack#
0670: 20 20 75 76 61 72 20 6b 65 79 70 61 63 6b 2d 62    uvar keypack-b
0680: 75 66 0a 20 20 20 20 6b 65 79 2d 63 6b 73 75 6d  uf.    key-cksum
0690: 23 20 75 76 61 72 20 6b 65 79 70 61 63 6b 2d 63  # uvar keypack-c
06a0: 68 6b 73 75 6d 0a 65 6e 64 2d 63 6c 61 73 73 20  hksum.end-class 
06b0: 63 6d 64 2d 6b 65 79 62 75 66 2d 63 0a 0a 63 6d  cmd-keybuf-c..cm
06c0: 64 2d 6b 65 79 62 75 66 2d 63 20 6e 65 77 20 63  d-keybuf-c new c
06d0: 6d 64 62 75 66 3a 20 63 6f 64 65 2d 6b 65 79 0a  mdbuf: code-key.
06e0: 0a 63 6f 64 65 2d 6b 65 79 0a 63 6d 64 30 6c 6f  .code-key.cmd0lo
06f0: 63 6b 20 30 20 70 74 68 72 65 61 64 5f 6d 75 74  ck 0 pthread_mut
0700: 65 78 5f 69 6e 69 74 20 64 72 6f 70 0a 0a 3a 6e  ex_init drop..:n
0710: 6f 6e 61 6d 65 20 28 20 2d 2d 20 61 64 64 72 20  oname ( -- addr 
0720: 75 20 29 20 6b 65 79 70 61 63 6b 2d 62 75 66 20  u ) keypack-buf 
0730: 63 6d 64 62 75 66 23 20 40 20 3b 20 74 6f 20 63  cmdbuf# @ ; to c
0740: 6d 64 62 75 66 24 0a 3a 6e 6f 6e 61 6d 65 20 28  mdbuf$.:noname (
0750: 20 2d 2d 20 6e 20 29 20 20 6b 65 79 70 61 63 6b   -- n )  keypack
0760: 23 20 63 6d 64 62 75 66 23 20 40 20 2d 20 3b 20  # cmdbuf# @ - ; 
0770: 74 6f 20 6d 61 78 73 74 72 69 6e 67 0a 0a 63 6f  to maxstring..co
0780: 64 65 30 2d 62 75 66 0a 0a 5c 20 68 61 73 68 65  de0-buf..\ hashe
0790: 64 20 6b 65 79 20 64 61 74 61 20 62 61 73 65 0a  d key data base.
07a0: 0a 55 73 65 72 20 3e 73 74 6f 72 65 6b 65 79 0a  .User >storekey.
07b0: 0a 63 6d 64 2d 63 6c 61 73 73 20 63 6c 61 73 73  .cmd-class class
07c0: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73  .    field: ke-s
07d0: 6b 20 20 20 5c 20 73 65 63 72 65 74 20 6b 65 79  k   \ secret key
07e0: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 70  .    field: ke-p
07f0: 6b 20 20 20 5c 20 70 75 62 6c 69 63 20 6b 65 79  k   \ public key
0800: 0a 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 74  .    field: ke-t
0810: 79 70 65 20 5c 20 6b 65 79 20 74 79 70 65 0a 20  ype \ key type. 
0820: 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 6e 69 63     field: ke-nic
0830: 6b 20 5c 20 6b 65 79 20 6e 69 63 6b 0a 20 20 20  k \ key nick.   
0840: 20 66 69 65 6c 64 3a 20 6b 65 2d 70 73 6b 20 20   field: ke-psk  
0850: 5c 20 70 72 65 73 68 61 72 65 64 20 6b 65 79 20  \ preshared key 
0860: 66 6f 72 20 73 74 61 74 65 6c 65 73 73 20 63 6f  for stateless co
0870: 6d 6d 75 6e 69 63 61 74 69 6f 6e 0a 20 20 20 20  mmunication.    
0880: 66 69 65 6c 64 3a 20 6b 65 2d 70 72 6f 66 20 5c  field: ke-prof \
0890: 20 70 72 6f 66 69 6c 65 20 6f 62 6a 65 63 74 0a   profile object.
08a0: 20 20 20 20 66 69 65 6c 64 3a 20 6b 65 2d 73 65      field: ke-se
08b0: 6c 66 73 69 67 0a 20 20 20 20 66 69 65 6c 64 3a  lfsig.    field:
08c0: 20 6b 65 2d 73 69 67 73 0a 20 20 20 20 66 69 65   ke-sigs.    fie
08d0: 6c 64 3a 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20  ld: ke-storekey 
08e0: 5c 20 75 73 65 64 20 74 6f 20 65 6e 63 72 79 70  \ used to encryp
08f0: 74 20 6f 6e 20 73 74 6f 72 61 67 65 0a 20 20 20  t on storage.   
0900: 20 36 34 66 69 65 6c 64 3a 20 6b 65 2d 6f 66 66   64field: ke-off
0910: 73 65 74 20 5c 20 6f 66 66 73 65 74 20 69 6e 20  set \ offset in 
0920: 6b 65 79 20 66 69 6c 65 0a 20 20 20 20 30 20 2b  key file.    0 +
0930: 66 69 65 6c 64 20 6b 65 2d 65 6e 64 0a 65 6e 64  field ke-end.end
0940: 2d 63 6c 61 73 73 20 6b 65 79 2d 65 6e 74 72 79  -class key-entry
0950: 0a 0a 56 61 72 69 61 62 6c 65 20 6b 65 79 2d 65  ..Variable key-e
0960: 6e 74 72 79 2d 74 61 62 6c 65 0a 0a 30 20 43 6f  ntry-table..0 Co
0970: 6e 73 74 61 6e 74 20 6b 65 79 23 61 6e 6f 6e 0a  nstant key#anon.
0980: 31 20 43 6f 6e 73 74 61 6e 74 20 6b 65 79 23 75  1 Constant key#u
0990: 73 65 72 0a 32 20 43 6f 6e 73 74 61 6e 74 20 6b  ser.2 Constant k
09a0: 65 79 23 67 72 6f 75 70 0a 0a 30 20 56 61 6c 75  ey#group..0 Valu
09b0: 65 20 73 61 6d 70 6c 65 2d 6b 65 79 0a 0a 56 61  e sample-key..Va
09c0: 72 69 61 62 6c 65 20 6b 65 79 2d 74 61 62 6c 65  riable key-table
09d0: 0a 0a 36 34 56 61 72 69 61 62 6c 65 20 6b 65 79  ..64Variable key
09e0: 2d 72 65 61 64 2d 6f 66 66 73 65 74 0a 0a 3a 20  -read-offset..: 
09f0: 63 75 72 72 65 6e 74 2d 6b 65 79 20 28 20 61 64  current-key ( ad
0a00: 64 72 20 75 20 2d 2d 20 6f 20 29 0a 20 20 20 20  dr u -- o ).    
0a10: 32 64 75 70 20 6b 65 79 73 69 7a 65 20 75 6d 69  2dup keysize umi
0a20: 6e 20 6b 65 79 2d 74 61 62 6c 65 20 23 40 20 64  n key-table #@ d
0a30: 72 6f 70 0a 20 20 20 20 64 75 70 20 30 3d 20 49  rop.    dup 0= I
0a40: 46 20 20 64 72 6f 70 20 2e 22 20 75 6e 6b 6e 6f  F  drop ." unkno
0a50: 77 6e 20 6b 65 79 3a 20 22 20 38 35 74 79 70 65  wn key: " 85type
0a60: 20 63 72 20 20 30 20 45 58 49 54 20 20 54 48 45   cr  0 EXIT  THE
0a70: 4e 0a 20 20 20 20 63 65 6c 6c 2b 20 3e 6f 20 6b  N.    cell+ >o k
0a80: 65 2d 70 6b 20 24 21 20 6f 20 6f 3e 20 3b 0a 0a  e-pk $! o o> ;..
0a90: 3a 20 6b 65 79 3a 6e 65 77 20 28 20 61 64 64 72  : key:new ( addr
0aa0: 20 75 20 2d 2d 20 29 0a 20 20 20 20 5c 20 61 64   u -- ).    \ ad
0ab0: 64 72 20 75 20 69 73 20 74 68 65 20 70 75 62 6c  dr u is the publ
0ac0: 69 63 20 6b 65 79 0a 20 20 20 20 73 61 6d 70 6c  ic key.    sampl
0ad0: 65 2d 6b 65 79 20 3e 6f 0a 20 20 20 20 6b 65 79  e-key >o.    key
0ae0: 2d 65 6e 74 72 79 2d 74 61 62 6c 65 20 40 20 74  -entry-table @ t
0af0: 6f 6b 65 6e 2d 74 61 62 6c 65 20 21 0a 20 20 20  oken-table !.   
0b00: 20 6b 65 2d 73 6b 20 6b 65 2d 65 6e 64 20 6f 76   ke-sk ke-end ov
0b10: 65 72 20 2d 20 65 72 61 73 65 20 20 3e 73 74 6f  er - erase  >sto
0b20: 72 65 6b 65 79 20 40 20 6b 65 2d 73 74 6f 72 65  rekey @ ke-store
0b30: 6b 65 79 20 21 0a 20 20 20 20 6b 65 79 2d 72 65  key !.    key-re
0b40: 61 64 2d 6f 66 66 73 65 74 20 36 34 40 20 6b 65  ad-offset 64@ ke
0b50: 2d 6f 66 66 73 65 74 20 36 34 21 0a 20 20 20 20  -offset 64!.    
0b60: 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 6e 3e 36  keypack-all# n>6
0b70: 34 20 6b 65 79 2d 72 65 61 64 2d 6f 66 66 73 65  4 key-read-offse
0b80: 74 20 36 34 2b 21 20 6f 20 63 65 6c 6c 2d 20 6b  t 64+! o cell- k
0b90: 65 2d 65 6e 64 20 6f 76 65 72 20 2d 0a 20 20 20  e-end over -.   
0ba0: 20 32 6f 76 65 72 20 6b 65 79 73 69 7a 65 20 75   2over keysize u
0bb0: 6d 69 6e 20 6b 65 79 2d 74 61 62 6c 65 20 23 21  min key-table #!
0bc0: 20 6f 3e 0a 20 20 20 20 63 75 72 72 65 6e 74 2d   o>.    current-
0bd0: 6b 65 79 20 3b 0a 0a 5c 20 73 65 61 72 63 68 20  key ;..\ search 
0be0: 66 6f 72 20 6b 65 79 73 20 2d 20 6e 6f 74 20 6f  for keys - not o
0bf0: 70 74 69 6d 69 7a 65 64 0a 0a 3a 20 6e 69 63 6b  ptimized..: nick
0c00: 2d 6b 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d  -key ( addr u --
0c10: 20 6f 20 29 20 5c 20 73 65 61 72 63 68 20 66 6f   o ) \ search fo
0c20: 72 20 6b 65 79 20 6e 69 63 6b 6e 61 6d 65 0a 20  r key nickname. 
0c30: 20 20 20 30 20 2d 72 6f 74 20 6b 65 79 2d 74 61     0 -rot key-ta
0c40: 62 6c 65 20 0a 20 20 20 20 5b 3a 20 63 65 6c 6c  ble .    [: cell
0c50: 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b 20  + $@ drop cell+ 
0c60: 3e 6f 20 6b 65 2d 6e 69 63 6b 20 24 40 20 32 6f  >o ke-nick $@ 2o
0c70: 76 65 72 20 73 74 72 3d 20 49 46 0a 09 72 6f 74  ver str= IF..rot
0c80: 20 64 72 6f 70 20 6f 20 2d 72 6f 74 0a 20 20 20   drop o -rot.   
0c90: 20 54 48 45 4e 20 20 6f 3e 20 3b 5d 20 23 6d 61   THEN  o> ;] #ma
0ca0: 70 20 32 64 72 6f 70 20 3b 0a 0a 3a 20 73 65 63  p 2drop ;..: sec
0cb0: 72 65 74 2d 6b 65 79 73 23 20 28 20 2d 2d 20 6e  ret-keys# ( -- n
0cc0: 20 29 0a 20 20 20 20 30 20 6b 65 79 2d 74 61 62   ).    0 key-tab
0cd0: 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64  le [: cell+ $@ d
0ce0: 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 20 6b 65 2d  rop cell+ >o ke-
0cf0: 73 6b 20 40 20 30 3c 3e 20 2d 20 6f 3e 20 3b 5d  sk @ 0<> - o> ;]
0d00: 20 23 6d 61 70 20 3b 0a 3a 20 73 65 63 72 65 74   #map ;.: secret
0d10: 2d 6b 65 79 20 28 20 6e 20 2d 2d 20 6f 2f 30 20  -key ( n -- o/0 
0d20: 29 0a 20 20 20 20 30 20 74 75 63 6b 20 6b 65 79  ).    0 tuck key
0d30: 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c 6c 2b 20  -table [: cell+ 
0d40: 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f  $@ drop cell+ >o
0d50: 20 6b 65 2d 73 6b 20 40 20 49 46 0a 09 20 20 32   ke-sk @ IF..  2
0d60: 64 75 70 20 3d 20 49 46 20 20 72 6f 74 20 64 72  dup = IF  rot dr
0d70: 6f 70 20 6f 20 2d 72 6f 74 20 20 54 48 45 4e 20  op o -rot  THEN 
0d80: 20 31 2b 0a 20 20 20 20 20 20 54 48 45 4e 20 20   1+.      THEN  
0d90: 6f 3e 20 3b 5d 20 23 6d 61 70 20 32 64 72 6f 70  o> ;] #map 2drop
0da0: 20 3b 0a 3a 20 2e 73 65 63 72 65 74 2d 6e 69 63   ;.: .secret-nic
0db0: 6b 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 30 20  ks ( -- ).    0 
0dc0: 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c  key-table [: cel
0dd0: 6c 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c 2b  l+ $@ drop cell+
0de0: 20 3e 6f 20 6b 65 2d 73 6b 20 40 20 49 46 0a 09   >o ke-sk @ IF..
0df0: 20 20 64 75 70 20 2e 20 6b 65 2d 6e 69 63 6b 20    dup . ke-nick 
0e00: 24 40 20 74 79 70 65 20 63 72 20 31 2b 0a 20 20  $@ type cr 1+.  
0e10: 20 20 20 20 54 48 45 4e 20 6f 3e 20 3b 5d 20 23      THEN o> ;] #
0e20: 6d 61 70 20 64 72 6f 70 20 3b 0a 0a 3a 20 6e 69  map drop ;..: ni
0e30: 63 6b 3e 70 6b 20 28 20 6e 69 63 6b 20 75 20 2d  ck>pk ( nick u -
0e40: 2d 20 70 6b 20 75 20 29 0a 20 20 20 20 6e 69 63  - pk u ).    nic
0e50: 6b 2d 6b 65 79 20 3f 64 75 70 2d 49 46 20 2e 6b  k-key ?dup-IF .k
0e60: 65 2d 70 6b 20 24 40 20 45 4c 53 45 20 30 20 30  e-pk $@ ELSE 0 0
0e70: 20 54 48 45 4e 20 3b 0a 0a 3a 20 6b 65 79 2d 65   THEN ;..: key-e
0e80: 78 69 73 74 3f 20 28 20 61 64 64 72 20 75 20 2d  xist? ( addr u -
0e90: 2d 20 66 6c 61 67 20 29 0a 20 20 20 20 6b 65 79  - flag ).    key
0ea0: 2d 74 61 62 6c 65 20 23 40 20 64 30 3c 3e 20 3b  -table #@ d0<> ;
0eb0: 20 0a 0a 56 61 72 69 61 62 6c 65 20 73 74 72 69   ..Variable stri
0ec0: 63 74 2d 6b 65 79 73 20 20 73 74 72 69 63 74 2d  ct-keys  strict-
0ed0: 6b 65 79 73 20 6f 6e 0a 0a 3a 20 72 65 73 65 74  keys on..: reset
0ee0: 2d 63 6f 6c 6f 72 20 28 20 2d 2d 20 29 0a 20 20  -color ( -- ).  
0ef0: 20 20 5b 20 64 65 66 61 75 6c 74 2d 63 6f 6c 6f    [ default-colo
0f00: 72 20 3e 62 67 20 64 65 66 61 75 6c 74 2d 63 6f  r >bg default-co
0f10: 6c 6f 72 20 3e 66 67 20 6f 72 20 5d 4c 20 61 74  lor >fg or ]L at
0f20: 74 72 21 20 3b 0a 3a 20 2e 62 6c 61 63 6b 38 35  tr! ;.: .black85
0f30: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20   ( addr u -- ). 
0f40: 20 20 20 5b 20 62 6c 61 63 6b 20 3e 62 67 20 62     [ black >bg b
0f50: 6c 61 63 6b 20 3e 66 67 20 6f 72 20 5d 4c 20 61  lack >fg or ]L a
0f60: 74 74 72 21 20 20 20 38 35 74 79 70 65 20 72 65  ttr!   85type re
0f70: 73 65 74 2d 63 6f 6c 6f 72 20 3b 0a 3a 20 2e 72  set-color ;.: .r
0f80: 65 64 38 35 20 28 20 61 64 64 72 20 75 20 2d 2d  ed85 ( addr u --
0f90: 20 29 0a 20 20 20 20 5b 20 72 65 64 20 3e 62 67   ).    [ red >bg
0fa0: 20 77 68 69 74 65 20 3e 66 67 20 6f 72 20 62 6f   white >fg or bo
0fb0: 6c 64 20 6f 72 20 5d 4c 20 61 74 74 72 21 20 20  ld or ]L attr!  
0fc0: 20 38 35 74 79 70 65 20 72 65 73 65 74 2d 63 6f   85type reset-co
0fd0: 6c 6f 72 20 3b 0a 3a 20 2e 72 73 6b 20 28 20 6e  lor ;.: .rsk ( n
0fe0: 69 63 6b 20 75 20 29 0a 20 20 20 20 2e 22 20 5c  ick u ).    ." \
0ff0: 20 72 65 76 6f 6b 65 3a 20 22 20 73 6b 72 65 76   revoke: " skrev
1000: 20 24 32 30 20 2e 72 65 64 38 35 20 73 70 61 63   $20 .red85 spac
1010: 65 20 74 79 70 65 20 2e 22 20 20 28 6b 65 65 70  e type ."  (keep
1020: 20 6f 66 66 6c 69 6e 65 20 63 6f 70 79 21 29 22   offline copy!)"
1030: 20 63 72 20 3b 0a 3a 20 2e 6b 65 79 20 28 20 61   cr ;.: .key ( a
1040: 64 64 72 20 75 20 2d 2d 20 29 20 64 72 6f 70 20  ddr u -- ) drop 
1050: 63 65 6c 6c 2b 20 3e 6f 0a 20 20 20 20 2e 22 20  cell+ >o.    ." 
1060: 6e 69 63 6b 3a 20 22 20 6b 65 2d 6e 69 63 6b 20  nick: " ke-nick 
1070: 24 40 20 74 79 70 65 20 63 72 0a 20 20 20 20 2e  $@ type cr.    .
1080: 22 20 70 75 62 6b 65 79 3a 20 22 20 6b 65 2d 70  " pubkey: " ke-p
1090: 6b 20 24 40 20 38 35 74 79 70 65 20 63 72 0a 20  k $@ 85type cr. 
10a0: 20 20 20 6b 65 2d 73 6b 20 40 20 49 46 20 20 2e     ke-sk @ IF  .
10b0: 22 20 73 65 63 6b 65 79 3a 20 22 20 6b 65 2d 73  " seckey: " ke-s
10c0: 6b 20 40 20 6b 65 79 73 69 7a 65 0a 09 2e 62 6c  k @ keysize...bl
10d0: 61 63 6b 38 35 20 2e 22 20 20 28 6b 65 65 70 20  ack85 ."  (keep 
10e0: 73 65 63 72 65 74 21 29 22 20 63 72 20 20 54 48  secret!)" cr  TH
10f0: 45 4e 0a 20 20 20 20 2e 22 20 66 69 72 73 74 3a  EN.    ." first:
1100: 20 22 20 6b 65 2d 73 65 6c 66 73 69 67 20 24 40   " ke-selfsig $@
1110: 20 64 72 6f 70 20 36 34 40 20 2e 73 69 67 64 61   drop 64@ .sigda
1120: 74 65 20 63 72 0a 20 20 20 20 2e 22 20 6c 61 73  te cr.    ." las
1130: 74 3a 20 22 20 6b 65 2d 73 65 6c 66 73 69 67 20  t: " ke-selfsig 
1140: 24 40 20 64 72 6f 70 20 36 34 27 2b 20 36 34 40  $@ drop 64'+ 64@
1150: 20 2e 73 69 67 64 61 74 65 20 63 72 0a 20 20 20   .sigdate cr.   
1160: 20 6f 3e 20 3b 0a 0a 3a 20 64 75 6d 70 6b 65 79   o> ;..: dumpkey
1170: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 64   ( addr u -- ) d
1180: 72 6f 70 20 63 65 6c 6c 2b 20 3e 6f 0a 20 20 20  rop cell+ >o.   
1190: 20 2e 5c 22 20 78 5c 22 20 22 20 6b 65 2d 70 6b   .\" x\" " ke-pk
11a0: 20 24 40 20 38 35 74 79 70 65 20 2e 5c 22 20 5c   $@ 85type .\" \
11b0: 22 20 6b 65 79 3a 6e 65 77 22 20 63 72 0a 20 20  " key:new" cr.  
11c0: 20 20 6b 65 2d 73 6b 20 40 20 49 46 20 20 2e 5c    ke-sk @ IF  .\
11d0: 22 20 78 5c 22 20 22 20 6b 65 2d 73 6b 20 40 20  " x\" " ke-sk @ 
11e0: 6b 65 79 73 69 7a 65 20 38 35 74 79 70 65 20 2e  keysize 85type .
11f0: 5c 22 20 5c 22 20 6b 65 2d 73 6b 20 73 65 63 21  \" \" ke-sk sec!
1200: 20 2b 73 65 63 6b 65 79 22 20 63 72 20 20 54 48   +seckey" cr  TH
1210: 45 4e 0a 20 20 20 20 27 22 27 20 65 6d 69 74 20  EN.    '"' emit 
1220: 6b 65 2d 6e 69 63 6b 20 24 40 20 74 79 70 65 20  ke-nick $@ type 
1230: 2e 5c 22 20 5c 22 20 6b 65 2d 6e 69 63 6b 20 24  .\" \" ke-nick $
1240: 21 20 22 0a 20 20 20 20 6b 65 2d 73 65 6c 66 73  ! ".    ke-selfs
1250: 69 67 20 24 40 20 64 72 6f 70 20 36 34 40 20 36  ig $@ drop 64@ 6
1260: 34 3e 64 20 5b 3a 20 27 24 27 20 65 6d 69 74 20  4>d [: '$' emit 
1270: 30 20 75 64 2e 72 20 3b 5d 20 24 31 30 20 62 61  0 ud.r ;] $10 ba
1280: 73 65 2d 65 78 65 63 75 74 65 0a 20 20 20 20 2e  se-execute.    .
1290: 22 20 2e 20 64 3e 36 34 20 6b 65 2d 66 69 72 73  " . d>64 ke-firs
12a0: 74 21 20 22 20 6b 65 2d 74 79 70 65 20 40 20 2e  t! " ke-type @ .
12b0: 20 2e 22 20 6b 65 2d 74 79 70 65 20 21 22 20 20   ." ke-type !"  
12c0: 63 72 20 6f 3e 20 3b 0a 0a 3a 20 2e 6b 65 79 73  cr o> ;..: .keys
12d0: 20 28 20 2d 2d 20 29 20 6b 65 79 2d 74 61 62 6c   ( -- ) key-tabl
12e0: 65 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 2e 6b  e [: cell+ $@ .k
12f0: 65 79 20 3b 5d 20 23 6d 61 70 20 3b 0a 3a 20 64  ey ;] #map ;.: d
1300: 75 6d 70 6b 65 79 73 20 28 20 2d 2d 20 29 20 6b  umpkeys ( -- ) k
1310: 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65 6c 6c  ey-table [: cell
1320: 2b 20 24 40 20 64 75 6d 70 6b 65 79 20 3b 5d 20  + $@ dumpkey ;] 
1330: 23 6d 61 70 20 3b 0a 0a 3a 20 2e 6b 65 79 23 20  #map ;..: .key# 
1340: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 6b 65  ( addr u -- ) ke
1350: 79 73 69 7a 65 20 75 6d 69 6e 0a 20 20 20 20 2e  ysize umin.    .
1360: 22 20 4b 65 79 20 27 22 20 6b 65 79 2d 74 61 62  " Key '" key-tab
1370: 6c 65 20 23 40 20 30 3d 20 49 46 20 64 72 6f 70  le #@ 0= IF drop
1380: 20 45 58 49 54 20 54 48 45 4e 0a 20 20 20 20 63   EXIT THEN.    c
1390: 65 6c 6c 2b 20 2e 6b 65 2d 6e 69 63 6b 20 24 40  ell+ .ke-nick $@
13a0: 20 74 79 70 65 20 2e 22 20 27 20 6f 6b 22 20 63   type ." ' ok" c
13b0: 72 20 3b 0a 3a 20 2e 6b 65 79 2d 69 64 20 28 20  r ;.: .key-id ( 
13c0: 61 64 64 72 20 75 20 2d 2d 20 29 20 6b 65 79 73  addr u -- ) keys
13d0: 69 7a 65 20 75 6d 69 6e 20 32 64 75 70 20 6b 65  ize umin 2dup ke
13e0: 79 2d 74 61 62 6c 65 20 23 40 20 30 3d 0a 20 20  y-table #@ 0=.  
13f0: 20 20 49 46 20 20 32 64 72 6f 70 20 38 20 38 35    IF  2drop 8 85
1400: 74 79 70 65 0a 20 20 20 20 45 4c 53 45 20 20 63  type.    ELSE  c
1410: 65 6c 6c 2b 20 2e 6b 65 2d 6e 69 63 6b 20 24 40  ell+ .ke-nick $@
1420: 20 74 79 70 65 20 32 64 72 6f 70 20 20 54 48 45   type 2drop  THE
1430: 4e 20 3b 0a 0a 3a 6e 6f 6e 61 6d 65 20 28 20 61  N ;..:noname ( a
1440: 64 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 6f  ddr u -- ).    o
1450: 20 49 46 20 20 64 65 73 74 2d 70 75 62 6b 65 79   IF  dest-pubkey
1460: 20 40 20 49 46 0a 09 20 20 20 20 32 64 75 70 20   @ IF..    2dup 
1470: 64 65 73 74 2d 70 75 62 6b 65 79 20 24 40 20 6b  dest-pubkey $@ k
1480: 65 79 73 69 7a 65 20 75 6d 69 6e 20 73 74 72 3d  eysize umin str=
1490: 20 30 3d 20 49 46 0a 09 09 5b 3a 20 2e 22 20 77   0= IF...[: ." w
14a0: 61 6e 74 3a 20 22 20 64 65 73 74 2d 70 75 62 6b  ant: " dest-pubk
14b0: 65 79 20 24 40 20 6b 65 79 73 69 7a 65 20 75 6d  ey $@ keysize um
14c0: 69 6e 20 38 35 74 79 70 65 20 63 72 0a 09 09 20  in 85type cr... 
14d0: 20 2e 22 20 67 6f 74 20 3a 20 22 20 32 64 75 70   ." got : " 2dup
14e0: 20 38 35 74 79 70 65 20 63 72 20 3b 5d 20 24 65   85type cr ;] $e
14f0: 72 72 0a 09 09 74 72 75 65 20 21 21 77 72 6f 6e  rr...true !!wron
1500: 67 2d 6b 65 79 21 21 0a 09 20 20 20 20 54 48 45  g-key!!..    THE
1510: 4e 0a 09 20 20 20 20 2e 6b 65 79 23 20 20 45 58  N..    .key#  EX
1520: 49 54 0a 09 54 48 45 4e 20 20 54 48 45 4e 0a 20  IT..THEN  THEN. 
1530: 20 20 20 32 64 75 70 20 6b 65 79 2d 65 78 69 73     2dup key-exis
1540: 74 3f 20 30 3d 20 49 46 0a 09 73 74 72 69 63 74  t? 0= IF..strict
1550: 2d 6b 65 79 73 20 40 20 21 21 75 6e 6b 6e 6f 77  -keys @ !!unknow
1560: 6e 2d 6b 65 79 21 21 0a 09 2e 22 20 55 6e 6b 6e  n-key!!..." Unkn
1570: 6f 77 6e 20 6b 65 79 20 22 20 20 2e 6e 6e 62 20  own key "  .nnb 
1580: 63 72 0a 20 20 20 20 45 4c 53 45 0a 09 2e 6b 65  cr.    ELSE...ke
1590: 79 23 0a 20 20 20 20 54 48 45 4e 20 3b 20 49 53  y#.    THEN ; IS
15a0: 20 63 68 65 63 6b 2d 6b 65 79 0a 0a 3a 6e 6f 6e   check-key..:non
15b0: 61 6d 65 20 28 20 70 6b 63 20 2d 2d 20 73 6b 63  ame ( pkc -- skc
15c0: 20 29 0a 20 20 20 20 6b 65 79 73 69 7a 65 20 6b   ).    keysize k
15d0: 65 79 2d 74 61 62 6c 65 20 23 40 20 30 3d 20 21  ey-table #@ 0= !
15e0: 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 21 0a 20  !unknown-key!!. 
15f0: 20 20 20 63 65 6c 6c 2b 20 2e 6b 65 2d 73 6b 20     cell+ .ke-sk 
1600: 73 65 63 40 20 30 3d 20 21 21 75 6e 6b 6e 6f 77  sec@ 0= !!unknow
1610: 6e 2d 6b 65 79 21 21 20 3b 20 69 73 20 73 65 61  n-key!! ; is sea
1620: 72 63 68 2d 6b 65 79 0a 0a 5c 20 67 65 74 20 70  rch-key..\ get p
1630: 61 73 73 70 68 72 61 73 65 0a 0a 33 20 56 61 6c  assphrase..3 Val
1640: 75 65 20 70 61 73 73 70 68 72 61 73 65 2d 72 65  ue passphrase-re
1650: 74 72 79 23 0a 24 31 30 30 20 43 6f 6e 73 74 61  try#.$100 Consta
1660: 6e 74 20 6d 61 78 2d 70 61 73 73 70 68 72 61 73  nt max-passphras
1670: 65 23 20 5c 20 32 35 36 20 63 68 61 72 61 63 74  e# \ 256 charact
1680: 65 72 73 20 73 68 6f 75 6c 64 20 62 65 20 65 6e  ers should be en
1690: 6f 75 67 68 2e 2e 2e 0a 6d 61 78 2d 70 61 73 73  ough....max-pass
16a0: 70 68 72 61 73 65 23 20 62 75 66 66 65 72 3a 20  phrase# buffer: 
16b0: 70 61 73 73 70 68 72 61 73 65 0a 0a 3a 20 70 61  passphrase..: pa
16c0: 73 73 70 68 72 61 73 65 2d 69 6e 20 28 20 2d 2d  ssphrase-in ( --
16d0: 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 70 61   addr u ).    pa
16e0: 73 73 70 68 72 61 73 65 20 64 75 70 20 6d 61 78  ssphrase dup max
16f0: 2d 70 61 73 73 70 68 72 61 73 65 23 20 61 63 63  -passphrase# acc
1700: 65 70 74 2a 20 3b 0a 0a 3a 20 3e 70 61 73 73 70  ept* ;..: >passp
1710: 68 72 61 73 65 20 28 20 61 64 64 72 20 75 20 2d  hrase ( addr u -
1720: 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 5c  - addr u ).    \
1730: 47 20 63 72 65 61 74 65 20 61 20 35 31 32 20 62  G create a 512 b
1740: 69 74 20 68 61 73 68 20 6f 66 20 74 68 65 20 70  it hash of the p
1750: 61 73 73 70 68 72 61 73 65 0a 20 20 20 20 6e 6f  assphrase.    no
1760: 2d 6b 65 79 20 3e 63 3a 6b 65 79 20 63 3a 68 61  -key >c:key c:ha
1770: 73 68 0a 20 20 20 20 6b 65 63 63 61 6b 2d 70 61  sh.    keccak-pa
1780: 64 64 65 64 20 63 3a 6b 65 79 3e 20 6b 65 63 63  dded c:key> kecc
1790: 61 6b 2d 70 61 64 64 65 64 20 6b 65 63 63 61 6b  ak-padded keccak
17a0: 23 6d 61 78 20 32 2f 20 3b 0a 0a 3a 20 67 65 74  #max 2/ ;..: get
17b0: 2d 70 61 73 73 70 68 72 61 73 65 20 28 20 2d 2d  -passphrase ( --
17c0: 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 70 61   addr u ).    pa
17d0: 73 73 70 68 72 61 73 65 2d 69 6e 20 3e 70 61 73  ssphrase-in >pas
17e0: 73 70 68 72 61 73 65 20 3b 0a 0a 56 61 72 69 61  sphrase ;..Varia
17f0: 62 6c 65 20 6b 65 79 73 0a 0a 3a 20 6b 65 79 3e  ble keys..: key>
1800: 64 65 66 61 75 6c 74 20 28 20 2d 2d 20 29 20 6b  default ( -- ) k
1810: 65 79 73 20 24 5b 5d 23 20 31 2d 20 6b 65 79 73  eys $[]# 1- keys
1820: 20 73 65 63 5b 5d 40 20 32 64 75 70 20 38 35 74   sec[]@ 2dup 85t
1830: 79 70 65 20 46 20 63 72 20 64 72 6f 70 20 3e 73  ype F cr drop >s
1840: 74 6f 72 65 6b 65 79 20 21 20 3b 0a 3a 20 2b 6b  torekey ! ;.: +k
1850: 65 79 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29  ey ( addr u -- )
1860: 20 6b 65 79 73 20 73 65 63 2b 5b 5d 21 20 3b 0a   keys sec+[]! ;.
1870: 3a 20 2b 70 61 73 73 70 68 72 61 73 65 20 28 20  : +passphrase ( 
1880: 2d 2d 20 29 20 20 67 65 74 2d 70 61 73 73 70 68  -- )  get-passph
1890: 72 61 73 65 20 2b 6b 65 79 20 3b 0a 3a 20 2b 63  rase +key ;.: +c
18a0: 68 65 63 6b 70 68 72 61 73 65 20 28 20 2d 2d 20  heckphrase ( -- 
18b0: 66 6c 61 67 20 29 20 67 65 74 2d 70 61 73 73 70  flag ) get-passp
18c0: 68 72 61 73 65 20 6b 65 79 73 20 24 5b 5d 23 20  hrase keys $[]# 
18d0: 31 2d 20 6b 65 79 73 20 73 65 63 5b 5d 40 20 73  1- keys sec[]@ s
18e0: 74 72 3d 20 3b 0a 3a 20 2b 6e 65 77 70 68 72 61  tr= ;.: +newphra
18f0: 73 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 42 45  se ( -- ).    BE
1900: 47 49 4e 0a 09 2e 22 20 50 61 73 73 70 68 72 61  GIN..." Passphra
1910: 73 65 3a 20 22 20 2b 70 61 73 73 70 68 72 61 73  se: " +passphras
1920: 65 20 63 72 0a 09 2e 22 20 52 65 74 79 70 65 20  e cr..." Retype 
1930: 70 6c 73 3a 20 22 20 2b 63 68 65 63 6b 70 68 72  pls: " +checkphr
1940: 61 73 65 20 30 3d 20 57 48 49 4c 45 0a 09 20 20  ase 0= WHILE..  
1950: 20 20 2e 22 20 20 64 69 64 6e 27 74 20 6d 61 74    ."  didn't mat
1960: 63 68 2c 20 74 72 79 20 61 67 61 69 6e 20 70 6c  ch, try again pl
1970: 65 61 73 65 22 20 63 72 0a 20 20 20 20 52 45 50  ease" cr.    REP
1980: 45 41 54 20 63 72 20 3b 0a 0a 3a 20 22 3e 70 61  EAT cr ;..: ">pa
1990: 73 73 70 68 72 61 73 65 20 28 20 61 64 64 72 20  ssphrase ( addr 
19a0: 75 20 2d 2d 20 29 20 3e 70 61 73 73 70 68 72 61  u -- ) >passphra
19b0: 73 65 20 2b 6b 65 79 20 3b 0a 3a 20 2b 73 65 63  se +key ;.: +sec
19c0: 6b 65 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b  key ( -- ).    k
19d0: 65 2d 73 6b 20 40 20 6b 65 2d 70 6b 20 24 40 20  e-sk @ ke-pk $@ 
19e0: 64 72 6f 70 20 6b 65 79 70 61 64 20 65 64 2d 64  drop keypad ed-d
19f0: 68 20 2b 6b 65 79 20 3b 0a 0a 22 22 20 22 3e 70  h +key ;.."" ">p
1a00: 61 73 73 70 68 72 61 73 65 20 5c 20 66 6f 6c 6c  assphrase \ foll
1a10: 6f 77 69 6e 67 20 74 68 65 20 65 6e 63 72 79 70  owing the encryp
1a20: 74 2d 65 76 65 72 79 74 68 69 6e 67 20 70 61 72  t-everything par
1a30: 61 64 69 67 6d 2c 0a 5c 20 6e 6f 20 70 61 73 73  adigm,.\ no pass
1a40: 77 6f 72 64 20 69 73 20 74 68 65 20 65 6d 70 74  word is the empt
1a50: 79 20 73 74 72 69 6e 67 21 20 20 49 74 27 73 20  y string!  It's 
1a60: 73 74 69 6c 6c 20 65 6e 63 72 79 70 74 65 64 20  still encrypted 
1a70: 3b 2d 29 21 0a 0a 5c 20 61 20 73 65 63 72 65 74  ;-)!..\ a secret
1a80: 20 6b 65 79 20 6a 75 73 74 20 6e 65 65 64 73 20   key just needs 
1a90: 61 20 6e 69 63 6b 20 61 6e 64 20 61 20 74 79 70  a nick and a typ
1aa0: 65 2e 0a 5c 20 53 65 63 72 65 74 20 6b 65 79 73  e..\ Secret keys
1ab0: 20 63 61 6e 20 62 65 20 70 65 72 73 6f 6e 73 20   can be persons 
1ac0: 61 6e 64 20 67 72 6f 75 70 73 2e 0a 0a 5c 20 61  and groups...\ a
1ad0: 20 70 75 62 6c 69 63 20 6b 65 79 20 6e 65 65 64   public key need
1ae0: 73 20 6d 6f 72 65 3a 20 6e 69 63 6b 2c 20 74 79  s more: nick, ty
1af0: 70 65 2c 20 70 72 6f 66 69 6c 65 2e 0a 5c 20 54  pe, profile..\ T
1b00: 68 65 20 70 72 6f 66 69 6c 65 20 69 73 20 61 20  he profile is a 
1b10: 73 74 72 75 63 74 75 72 65 64 20 64 6f 63 75 6d  structured docum
1b20: 65 6e 74 2c 20 69 2e 65 2e 20 70 6f 69 6e 74 65  ent, i.e. pointe
1b30: 64 20 74 6f 20 62 79 20 61 20 68 61 73 68 2e 0a  d to by a hash..
1b40: 0a 5c 20 61 20 73 69 67 6e 61 74 75 72 65 20 63  .\ a signature c
1b50: 6f 6e 74 61 69 6e 73 20 61 20 70 75 62 6b 65 79  ontains a pubkey
1b60: 2c 20 61 20 63 68 65 63 6b 62 6f 78 20 62 69 74  , a checkbox bit
1b70: 6d 61 73 6b 2c 0a 5c 20 61 20 64 61 74 65 2c 20  mask,.\ a date, 
1b80: 61 6e 20 65 78 70 69 72 61 74 69 6f 6e 20 64 61  an expiration da
1b90: 74 65 2c 20 74 68 65 20 73 69 67 6e 65 72 27 73  te, the signer's
1ba0: 20 70 75 62 6b 65 79 20 61 6e 64 20 74 68 65 20   pubkey and the 
1bb0: 73 69 67 6e 61 74 75 72 65 20 69 74 73 65 6c 66  signature itself
1bc0: 0a 5c 20 28 72 2b 73 29 2e 20 20 54 68 65 72 65  .\ (r+s).  There
1bd0: 20 69 73 20 61 6e 20 6f 70 74 69 6f 6e 61 6c 20   is an optional 
1be0: 73 69 67 6e 69 6e 67 20 70 72 6f 74 6f 63 6f 6c  signing protocol
1bf0: 20 64 6f 63 75 6d 65 6e 74 20 28 68 61 73 68 29   document (hash)
1c00: 2e 0a 0a 5c 20 77 65 20 73 74 6f 72 65 20 65 61  ...\ we store ea
1c10: 63 68 20 69 74 65 6d 20 69 6e 20 61 20 32 35 36  ch item in a 256
1c20: 20 62 79 74 65 73 20 65 6e 63 72 79 70 74 65 64   bytes encrypted
1c30: 20 73 74 72 69 6e 67 2c 20 69 2e 65 2e 20 77 69   string, i.e. wi
1c40: 74 68 20 61 20 31 36 0a 5c 20 62 79 74 65 20 73  th a 16.\ byte s
1c50: 61 6c 74 20 61 6e 64 20 61 20 31 36 20 62 79 74  alt and a 16 byt
1c60: 65 20 63 68 65 63 6b 73 75 6d 2e 0a 0a 3a 20 6b  e checksum...: k
1c70: 65 2d 6c 61 73 74 21 20 28 20 36 34 64 61 74 65  e-last! ( 64date
1c80: 20 2d 2d 20 29 0a 20 20 20 20 6b 65 2d 73 65 6c   -- ).    ke-sel
1c90: 66 73 69 67 20 24 40 6c 65 6e 20 24 31 30 20 75  fsig $@len $10 u
1ca0: 6d 61 78 20 6b 65 2d 73 65 6c 66 73 69 67 20 24  max ke-selfsig $
1cb0: 21 6c 65 6e 0a 20 20 20 20 6b 65 2d 73 65 6c 66  !len.    ke-self
1cc0: 73 69 67 20 24 40 20 64 72 6f 70 20 36 34 27 2b  sig $@ drop 64'+
1cd0: 20 36 34 21 20 3b 0a 3a 20 6b 65 2d 66 69 72 73   64! ;.: ke-firs
1ce0: 74 21 20 28 20 36 34 64 61 74 65 20 2d 2d 20 29  t! ( 64date -- )
1cf0: 20 36 34 23 2d 31 20 6b 65 2d 6c 61 73 74 21 0a   64#-1 ke-last!.
1d00: 20 20 20 20 6b 65 2d 73 65 6c 66 73 69 67 20 24      ke-selfsig $
1d10: 40 20 64 72 6f 70 20 36 34 21 20 3b 0a 0a 67 65  @ drop 64! ;..ge
1d20: 74 2d 63 75 72 72 65 6e 74 20 61 6c 73 6f 20 6e  t-current also n
1d30: 65 74 32 6f 2d 62 61 73 65 20 64 65 66 69 6e 69  et2o-base defini
1d40: 74 69 6f 6e 73 0a 0a 63 6d 64 2d 74 61 62 6c 65  tions..cmd-table
1d50: 20 24 40 20 69 6e 68 65 72 69 74 2d 74 61 62 6c   $@ inherit-tabl
1d60: 65 20 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c  e key-entry-tabl
1d70: 65 0a 0a 5c 20 24 31 30 20 6e 65 74 32 6f 3a 20  e..\ $10 net2o: 
1d80: 6e 65 77 6b 65 79 20 28 20 24 3a 73 74 72 69 6e  newkey ( $:strin
1d90: 67 20 2d 2d 20 6f 3a 6b 65 79 20 29 20 21 21 73  g -- o:key ) !!s
1da0: 69 67 6e 65 64 3f 0a 5c 20 20 20 20 20 24 3e 20  igned?.\     $> 
1db0: 6b 65 79 3a 6e 65 77 20 6e 3a 3e 6f 20 20 31 20  key:new n:>o  1 
1dc0: 21 21 3e 6f 72 64 65 72 3f 20 3b 0a 5c 20 6b 65  !!>order? ;.\ ke
1dd0: 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65 20 3e 74  y-entry-table >t
1de0: 61 62 6c 65 0a 24 31 31 20 6e 65 74 32 6f 3a 20  able.$11 net2o: 
1df0: 70 72 69 76 6b 65 79 20 28 20 24 3a 73 74 72 69  privkey ( $:stri
1e00: 6e 67 20 2d 2d 20 29 0a 20 20 20 20 5c 20 64 6f  ng -- ).    \ do
1e10: 65 73 20 6e 6f 74 20 6e 65 65 64 20 74 6f 20 62  es not need to b
1e20: 65 20 73 69 67 6e 65 64 2c 20 74 68 65 20 73 65  e signed, the se
1e30: 63 72 65 74 20 6b 65 79 20 76 65 72 69 66 69 65  cret key verifie
1e40: 73 20 69 74 73 65 6c 66 0a 20 20 20 20 24 3e 20  s itself.    $> 
1e50: 6f 76 65 72 20 6b 65 79 70 61 64 20 73 6b 3e 70  over keypad sk>p
1e60: 6b 20 5c 20 67 65 6e 65 72 61 74 65 20 70 75 62  k \ generate pub
1e70: 6b 65 79 0a 20 20 20 20 6b 65 79 70 61 64 20 6b  key.    keypad k
1e80: 65 2d 70 6b 20 24 40 20 64 72 6f 70 20 6b 65 79  e-pk $@ drop key
1e90: 73 69 7a 65 20 74 75 63 6b 20 73 74 72 3d 20 30  size tuck str= 0
1ea0: 3d 20 21 21 77 72 6f 6e 67 2d 6b 65 79 21 21 0a  = !!wrong-key!!.
1eb0: 20 20 20 20 6b 65 2d 73 6b 20 73 65 63 21 20 2b      ke-sk sec! +
1ec0: 73 65 63 6b 65 79 20 3b 0a 2b 6e 65 74 32 6f 3a  seckey ;.+net2o:
1ed0: 20 6b 65 79 74 79 70 65 20 28 20 6e 20 2d 2d 20   keytype ( n -- 
1ee0: 29 20 20 20 20 20 20 20 20 20 20 20 21 21 73 69  )           !!si
1ef0: 67 6e 65 64 3f 20 20 20 31 20 21 21 3e 6f 72 64  gned?   1 !!>ord
1f00: 65 72 3f 20 36 34 3e 6e 20 6b 65 2d 74 79 70 65  er? 64>n ke-type
1f10: 20 21 20 3b 0a 2b 6e 65 74 32 6f 3a 20 6b 65 79   ! ;.+net2o: key
1f20: 6e 69 63 6b 20 28 20 24 3a 73 74 72 69 6e 67 20  nick ( $:string 
1f30: 2d 2d 20 29 20 20 20 20 21 21 73 69 67 6e 65 64  -- )    !!signed
1f40: 3f 20 20 20 32 20 21 21 3e 6f 72 64 65 72 3f 20  ?   2 !!>order? 
1f50: 24 3e 20 6b 65 2d 6e 69 63 6b 20 24 21 20 3b 0a  $> ke-nick $! ;.
1f60: 2b 6e 65 74 32 6f 3a 20 6b 65 79 70 72 6f 66 69  +net2o: keyprofi
1f70: 6c 65 20 28 20 24 3a 73 74 72 69 6e 67 20 2d 2d  le ( $:string --
1f80: 20 29 20 21 21 73 69 67 6e 65 64 3f 20 20 20 34   ) !!signed?   4
1f90: 20 21 21 3e 6f 72 64 65 72 3f 20 24 3e 20 6b 65   !!>order? $> ke
1fa0: 2d 70 72 6f 66 20 24 21 20 3b 0a 2b 6e 65 74 32  -prof $! ;.+net2
1fb0: 6f 3a 20 6b 65 79 6d 61 73 6b 20 28 20 78 20 2d  o: keymask ( x -
1fc0: 2d 20 29 20 20 20 20 20 20 20 20 20 20 20 20 20  - )             
1fd0: 20 20 20 20 20 20 20 20 20 20 38 20 21 21 3e 6f            8 !!>o
1fe0: 72 64 65 72 3f 20 36 34 64 72 6f 70 20 3b 0a 2b  rder? 64drop ;.+
1ff0: 6e 65 74 32 6f 3a 20 6b 65 79 70 73 6b 20 28 20  net2o: keypsk ( 
2000: 24 3a 73 74 72 69 6e 67 20 2d 2d 20 29 20 20 20  $:string -- )   
2010: 20 20 21 21 73 69 67 6e 65 64 3f 20 24 31 30 20    !!signed? $10 
2020: 21 21 3e 6f 72 64 65 72 3f 20 24 3e 20 6b 65 2d  !!>order? $> ke-
2030: 70 73 6b 20 73 65 63 21 20 3b 0a 2b 6e 65 74 32  psk sec! ;.+net2
2040: 6f 3a 20 2b 6b 65 79 73 69 67 20 28 20 24 3a 73  o: +keysig ( $:s
2050: 74 72 69 6e 67 20 2d 2d 20 29 20 20 24 32 30 20  tring -- )  $20 
2060: 21 21 3e 3d 6f 72 64 65 72 3f 20 24 3e 20 6b 65  !!>=order? $> ke
2070: 2d 73 69 67 73 20 24 2b 5b 5d 21 20 3b 0a 64 75  -sigs $+[]! ;.du
2080: 70 20 73 65 74 2d 63 75 72 72 65 6e 74 20 70 72  p set-current pr
2090: 65 76 69 6f 75 73 0a 0a 67 65 6e 2d 74 61 62 6c  evious..gen-tabl
20a0: 65 20 24 66 72 65 65 7a 65 0a 27 20 63 6f 6e 74  e $freeze.' cont
20b0: 65 78 74 2d 74 61 62 6c 65 20 69 73 20 67 65 6e  ext-table is gen
20c0: 2d 74 61 62 6c 65 0a 0a 3a 6e 6f 6e 61 6d 65 20  -table..:noname 
20d0: 28 20 61 64 64 72 20 75 20 2d 2d 20 61 64 64 72  ( addr u -- addr
20e0: 20 75 27 20 66 6c 61 67 20 29 0a 20 20 20 20 70   u' flag ).    p
20f0: 6b 32 2d 73 69 67 3f 20 64 75 70 20 30 3d 20 3f  k2-sig? dup 0= ?
2100: 45 58 49 54 20 64 72 6f 70 0a 20 20 20 20 32 64  EXIT drop.    2d
2110: 75 70 20 2b 20 73 69 67 73 69 7a 65 23 20 2d 20  up + sigsize# - 
2120: 73 69 67 73 69 7a 65 23 20 3e 24 0a 20 20 20 20  sigsize# >$.    
2130: 73 69 67 70 6b 32 73 69 7a 65 23 20 2d 20 32 64  sigpk2size# - 2d
2140: 75 70 20 2b 20 6b 65 79 73 69 7a 65 20 32 2a 20  up + keysize 2* 
2150: 6b 65 79 3a 6e 65 77 20 6e 3a 3e 6f 20 24 3e 20  key:new n:>o $> 
2160: 6b 65 2d 73 65 6c 66 73 69 67 20 24 21 0a 20 20  ke-selfsig $!.  
2170: 20 20 63 2d 73 74 61 74 65 20 6f 66 66 20 74 72    c-state off tr
2180: 75 65 20 3b 20 6b 65 79 2d 65 6e 74 72 79 20 74  ue ; key-entry t
2190: 6f 20 6e 65 73 74 2d 73 69 67 0a 0a 6b 65 79 2d  o nest-sig..key-
21a0: 65 6e 74 72 79 20 27 20 6e 65 77 20 73 74 61 74  entry ' new stat
21b0: 69 63 2d 61 20 77 69 74 68 2d 61 6c 6c 6f 63 61  ic-a with-alloca
21c0: 74 65 72 20 74 6f 20 73 61 6d 70 6c 65 2d 6b 65  ter to sample-ke
21d0: 79 0a 73 61 6d 70 6c 65 2d 6b 65 79 20 3e 6f 20  y.sample-key >o 
21e0: 6b 65 79 2d 65 6e 74 72 79 2d 74 61 62 6c 65 20  key-entry-table 
21f0: 40 20 74 6f 6b 65 6e 2d 74 61 62 6c 65 20 21 20  @ token-table ! 
2200: 6f 3e 0a 0a 3a 20 6b 65 79 3a 63 6f 64 65 20 28  o>..: key:code (
2210: 20 2d 2d 20 29 0a 20 20 20 20 63 6f 64 65 2d 6b   -- ).    code-k
2220: 65 79 20 20 63 6d 64 6c 6f 63 6b 20 6c 6f 63 6b  ey  cmdlock lock
2230: 0a 20 20 20 20 6b 65 79 70 61 63 6b 20 6b 65 79  .    keypack key
2240: 70 61 63 6b 2d 61 6c 6c 23 20 65 72 61 73 65 0a  pack-all# erase.
2250: 20 20 20 20 63 6d 64 72 65 73 65 74 20 61 6c 73      cmdreset als
2260: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 20 3b 0a 63  o net2o-base ;.c
2270: 6f 6d 70 3a 20 3a 2c 20 61 6c 73 6f 20 6e 65 74  omp: :, also net
2280: 32 6f 2d 62 61 73 65 20 3b 0a 0a 61 6c 73 6f 20  2o-base ;..also 
2290: 6e 65 74 32 6f 2d 62 61 73 65 20 64 65 66 69 6e  net2o-base defin
22a0: 69 74 69 6f 6e 73 0a 0a 3a 20 65 6e 64 3a 6b 65  itions..: end:ke
22b0: 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 65 6e 64  y ( -- ).    end
22c0: 77 69 74 68 20 70 72 65 76 69 6f 75 73 20 63 6d  with previous cm
22d0: 64 6c 6f 63 6b 20 75 6e 6c 6f 63 6b 20 3b 0a 63  dlock unlock ;.c
22e0: 6f 6d 70 3a 20 3a 2c 20 70 72 65 76 69 6f 75 73  omp: :, previous
22f0: 20 3b 0a 0a 73 65 74 2d 63 75 72 72 65 6e 74 20   ;..set-current 
2300: 70 72 65 76 69 6f 75 73 20 70 72 65 76 69 6f 75  previous previou
2310: 73 0a 0a 3a 20 6b 65 79 2d 63 72 79 70 74 20 28  s..: key-crypt (
2320: 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61 63   -- ).    keypac
2330: 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 0a 20  k keypack-all#. 
2340: 20 20 20 3e 73 74 6f 72 65 6b 65 79 20 73 65 63     >storekey sec
2350: 40 20 64 75 70 20 24 32 30 20 75 3c 3d 20 5c 20  @ dup $20 u<= \ 
2360: 69 73 20 61 20 73 65 63 72 65 74 2c 20 6e 6f 20  is a secret, no 
2370: 6e 65 65 64 20 74 6f 20 62 65 20 73 6c 6f 77 0a  need to be slow.
2380: 20 20 20 20 49 46 20 20 65 6e 63 72 79 70 74 24      IF  encrypt$
2390: 20 20 45 4c 53 45 20 20 70 77 2d 6c 65 76 65 6c    ELSE  pw-level
23a0: 23 20 65 6e 63 72 79 70 74 2d 70 77 24 20 20 54  # encrypt-pw$  T
23b0: 48 45 4e 20 3b 0a 0a 30 20 56 61 6c 75 65 20 6b  HEN ;..0 Value k
23c0: 65 79 2d 73 66 64 20 5c 20 73 65 63 72 65 74 20  ey-sfd \ secret 
23d0: 6b 65 79 73 0a 30 20 56 61 6c 75 65 20 6b 65 79  keys.0 Value key
23e0: 2d 70 66 64 20 5c 20 70 75 62 6b 65 79 73 0a 0a  -pfd \ pubkeys..
23f0: 3a 20 3f 2e 6e 65 74 32 6f 20 28 20 2d 2d 20 29  : ?.net2o ( -- )
2400: 0a 20 20 20 20 73 22 20 7e 2f 2e 6e 65 74 32 6f  .    s" ~/.net2o
2410: 22 20 72 2f 6f 20 6f 70 65 6e 2d 66 69 6c 65 20  " r/o open-file 
2420: 49 46 0a 09 64 72 6f 70 20 73 22 20 7e 2f 2e 6e  IF..drop s" ~/.n
2430: 65 74 32 6f 22 20 24 31 43 30 20 6d 6b 64 69 72  et2o" $1C0 mkdir
2440: 2d 70 61 72 65 6e 74 73 20 74 68 72 6f 77 0a 20  -parents throw. 
2450: 20 20 20 45 4c 53 45 0a 09 63 6c 6f 73 65 2d 66     ELSE..close-f
2460: 69 6c 65 20 74 68 72 6f 77 0a 20 20 20 20 54 48  ile throw.    TH
2470: 45 4e 20 3b 0a 0a 3a 20 3f 66 64 20 28 20 66 64  EN ;..: ?fd ( fd
2480: 20 61 64 64 72 20 75 20 2d 2d 20 66 64 27 20 29   addr u -- fd' )
2490: 20 7b 20 61 64 64 72 20 75 20 7d 20 64 75 70 20   { addr u } dup 
24a0: 3f 45 58 49 54 20 64 72 6f 70 0a 20 20 20 20 3f  ?EXIT drop.    ?
24b0: 2e 6e 65 74 32 6f 0a 20 20 20 20 61 64 64 72 20  .net2o.    addr 
24c0: 75 20 72 2f 77 20 6f 70 65 6e 2d 66 69 6c 65 20  u r/w open-file 
24d0: 64 75 70 20 2d 35 31 34 20 3d 20 49 46 0a 09 32  dup -514 = IF..2
24e0: 64 72 6f 70 20 61 64 64 72 20 75 20 72 2f 77 20  drop addr u r/w 
24f0: 63 72 65 61 74 65 2d 66 69 6c 65 0a 20 20 20 20  create-file.    
2500: 54 48 45 4e 20 20 74 68 72 6f 77 20 3b 0a 3a 20  THEN  throw ;.: 
2510: 3f 6b 65 79 2d 73 66 64 20 28 20 2d 2d 20 66 64  ?key-sfd ( -- fd
2520: 20 29 20 6b 65 79 2d 73 66 64 20 22 7e 2f 2e 6e   ) key-sfd "~/.n
2530: 65 74 32 6f 2f 73 65 63 6b 65 79 73 2e 6b 32 6f  et2o/seckeys.k2o
2540: 22 20 3f 66 64 20 64 75 70 20 74 6f 20 6b 65 79  " ?fd dup to key
2550: 2d 73 66 64 20 3b 0a 3a 20 3f 6b 65 79 2d 70 66  -sfd ;.: ?key-pf
2560: 64 20 28 20 2d 2d 20 66 64 20 29 20 6b 65 79 2d  d ( -- fd ) key-
2570: 70 66 64 20 22 7e 2f 2e 6e 65 74 32 6f 2f 70 75  pfd "~/.net2o/pu
2580: 62 6b 65 79 73 2e 6b 32 6f 22 20 3f 66 64 20 64  bkeys.k2o" ?fd d
2590: 75 70 20 74 6f 20 6b 65 79 2d 70 66 64 20 3b 0a  up to key-pfd ;.
25a0: 0a 3a 20 61 70 70 65 6e 64 2d 66 69 6c 65 20 28  .: append-file (
25b0: 20 61 64 64 72 20 75 20 66 64 20 2d 2d 20 29 20   addr u fd -- ) 
25c0: 3e 72 0a 20 20 20 20 72 40 20 66 69 6c 65 2d 73  >r.    r@ file-s
25d0: 69 7a 65 20 74 68 72 6f 77 20 20 72 40 20 72 65  ize throw  r@ re
25e0: 70 6f 73 69 74 69 6f 6e 2d 66 69 6c 65 20 74 68  position-file th
25f0: 72 6f 77 0a 20 20 20 20 72 40 20 77 72 69 74 65  row.    r@ write
2600: 2d 66 69 6c 65 20 74 68 72 6f 77 20 20 72 3e 20  -file throw  r> 
2610: 66 6c 75 73 68 2d 66 69 6c 65 20 74 68 72 6f 77  flush-file throw
2620: 20 3b 0a 0a 3a 20 6b 65 79 3e 73 66 69 6c 65 20   ;..: key>sfile 
2630: 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65 79 70 61  ( -- ).    keypa
2640: 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20  ck keypack-all# 
2650: 3f 6b 65 79 2d 73 66 64 20 61 70 70 65 6e 64 2d  ?key-sfd append-
2660: 66 69 6c 65 20 3b 0a 3a 20 6b 65 79 3e 70 66 69  file ;.: key>pfi
2670: 6c 65 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65  le ( -- ).    ke
2680: 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d 61 6c  ypack keypack-al
2690: 6c 23 20 3f 6b 65 79 2d 70 66 64 20 61 70 70 65  l# ?key-pfd appe
26a0: 6e 64 2d 66 69 6c 65 20 3b 0a 0a 3a 20 72 6e 64  nd-file ;..: rnd
26b0: 3e 73 66 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20  >sfile ( -- ).  
26c0: 20 20 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63    keypack keypac
26d0: 6b 2d 61 6c 6c 23 20 3e 72 6e 67 24 20 6b 65 79  k-all# >rng$ key
26e0: 3e 73 66 69 6c 65 20 3b 0a 3a 20 72 6e 64 3e 70  >sfile ;.: rnd>p
26f0: 66 69 6c 65 20 28 20 2d 2d 20 29 0a 20 20 20 20  file ( -- ).    
2700: 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d  keypack keypack-
2710: 61 6c 6c 23 20 3e 72 6e 67 24 20 6b 65 79 3e 70  all# >rng$ key>p
2720: 66 69 6c 65 20 3b 0a 0a 3a 20 3e 6b 65 79 73 20  file ;..: >keys 
2730: 28 20 2d 2d 20 29 0a 20 20 20 20 5c 47 20 61 64  ( -- ).    \G ad
2740: 64 20 73 68 61 72 65 64 20 73 65 63 72 65 74 20  d shared secret 
2750: 74 6f 20 6c 69 73 74 20 6f 66 20 70 6f 73 73 69  to list of possi
2760: 62 6c 65 20 6b 65 79 73 0a 20 20 20 20 73 6b 63  ble keys.    skc
2770: 20 70 6b 63 20 6b 65 79 70 61 64 20 65 64 2d 64   pkc keypad ed-d
2780: 68 20 2b 6b 65 79 20 3b 0a 0a 5c 20 6b 65 79 20  h +key ;..\ key 
2790: 67 65 6e 65 72 61 74 69 6f 6e 0a 5c 20 66 6f 72  generation.\ for
27a0: 20 72 65 70 72 6f 64 75 63 69 62 69 6c 69 74 79   reproducibility
27b0: 20 6f 66 20 74 68 65 20 73 65 6c 66 73 69 67 2c   of the selfsig,
27c0: 20 61 6c 77 61 79 73 20 75 73 65 20 74 68 65 20   always use the 
27d0: 73 61 6d 65 20 6f 72 64 65 72 3a 0a 5c 20 22 70  same order:.\ "p
27e0: 75 62 6b 65 79 22 20 6e 65 77 6b 65 79 20 3c 6e  ubkey" newkey <n
27f0: 3e 20 6b 65 79 74 79 70 65 20 22 6e 69 63 6b 22  > keytype "nick"
2800: 20 6b 65 79 6e 69 63 6b 20 22 73 69 67 22 20 6b   keynick "sig" k
2810: 65 79 73 65 6c 66 73 69 67 0a 0a 55 73 65 72 20  eyselfsig..User 
2820: 70 6b 2b 73 69 67 24 0a 0a 6b 65 79 73 69 7a 65  pk+sig$..keysize
2830: 20 32 2a 20 43 6f 6e 73 74 61 6e 74 20 70 6b 72   2* Constant pkr
2840: 6b 23 0a 0a 3a 20 5d 70 6b 2b 73 69 67 6e 20 28  k#..: ]pk+sign (
2850: 20 61 64 64 72 20 75 20 2d 2d 20 29 20 2b 63 6d   addr u -- ) +cm
2860: 64 62 75 66 20 5d 73 69 67 6e 20 3b 0a 0a 3a 20  dbuf ]sign ;..: 
2870: 70 61 63 6b 2d 6b 65 79 20 28 20 74 79 70 65 20  pack-key ( type 
2880: 6e 69 63 6b 20 75 20 2d 2d 20 29 0a 20 20 20 20  nick u -- ).    
2890: 6e 6f 77 3e 6e 65 76 65 72 0a 20 20 20 20 6b 65  now>never.    ke
28a0: 79 3a 63 6f 64 65 0a 20 20 20 20 20 20 73 69 67  y:code.      sig
28b0: 6e 5b 0a 20 20 20 20 20 20 72 6f 74 20 6c 69 74  n[.      rot lit
28c0: 2c 20 6b 65 79 74 79 70 65 20 24 2c 20 6b 65 79  , keytype $, key
28d0: 6e 69 63 6b 0a 20 20 20 20 20 20 70 6b 63 20 70  nick.      pkc p
28e0: 6b 72 6b 23 20 5d 70 6b 2b 73 69 67 6e 0a 20 20  krk# ]pk+sign.  
28f0: 20 20 20 20 73 6b 63 20 6b 65 79 73 69 7a 65 20      skc keysize 
2900: 24 2c 20 70 72 69 76 6b 65 79 0a 20 20 20 20 65  $, privkey.    e
2910: 6e 64 3a 6b 65 79 20 3b 0a 0a 61 6c 73 6f 20 6e  nd:key ;..also n
2920: 65 74 32 6f 2d 62 61 73 65 0a 3a 20 70 61 63 6b  et2o-base.: pack
2930: 2d 63 6f 72 65 6b 65 79 20 28 20 6f 3a 6b 65 79  -corekey ( o:key
2940: 20 2d 2d 20 29 0a 20 20 20 20 73 69 67 6e 5b 0a   -- ).    sign[.
2950: 20 20 20 20 6b 65 2d 74 79 70 65 20 40 20 75 6c      ke-type @ ul
2960: 69 74 2c 20 6b 65 79 74 79 70 65 0a 20 20 20 20  it, keytype.    
2970: 6b 65 2d 6e 69 63 6b 20 24 40 20 24 2c 20 6b 65  ke-nick $@ $, ke
2980: 79 6e 69 63 6b 0a 20 20 20 20 6b 65 2d 70 73 6b  ynick.    ke-psk
2990: 20 73 65 63 40 20 64 75 70 20 49 46 20 20 24 2c   sec@ dup IF  $,
29a0: 20 6b 65 79 70 73 6b 20 20 45 4c 53 45 20 20 32   keypsk  ELSE  2
29b0: 64 72 6f 70 20 20 54 48 45 4e 0a 20 20 20 20 6b  drop  THEN.    k
29c0: 65 2d 70 72 6f 66 20 24 40 20 64 75 70 20 49 46  e-prof $@ dup IF
29d0: 20 20 24 2c 20 6b 65 79 70 72 6f 66 69 6c 65 20    $, keyprofile 
29e0: 20 45 4c 53 45 20 20 32 64 72 6f 70 20 20 54 48   ELSE  2drop  TH
29f0: 45 4e 0a 20 20 20 20 6b 65 2d 70 6b 20 24 40 20  EN.    ke-pk $@ 
2a00: 2b 63 6d 64 62 75 66 0a 20 20 20 20 6b 65 2d 73  +cmdbuf.    ke-s
2a10: 65 6c 66 73 69 67 20 24 40 20 2b 63 6d 64 62 75  elfsig $@ +cmdbu
2a20: 66 20 63 6d 64 2d 72 65 73 6f 6c 76 65 3e 20 32  f cmd-resolve> 2
2a30: 64 72 6f 70 20 6e 65 73 74 73 69 67 0a 20 20 20  drop nestsig.   
2a40: 20 6b 65 2d 73 74 6f 72 65 6b 65 79 20 40 20 3e   ke-storekey @ >
2a50: 73 74 6f 72 65 6b 65 79 20 21 20 3b 0a 70 72 65  storekey ! ;.pre
2a60: 76 69 6f 75 73 0a 0a 3a 20 70 61 63 6b 2d 70 75  vious..: pack-pu
2a70: 62 6b 65 79 20 28 20 6f 3a 6b 65 79 20 2d 2d 20  bkey ( o:key -- 
2a80: 29 0a 20 20 20 20 6b 65 79 3a 63 6f 64 65 0a 20  ).    key:code. 
2a90: 20 20 20 20 20 70 61 63 6b 2d 63 6f 72 65 6b 65       pack-coreke
2aa0: 79 0a 20 20 20 20 65 6e 64 3a 6b 65 79 20 3b 0a  y.    end:key ;.
2ab0: 3a 20 70 61 63 6b 2d 73 65 63 6b 65 79 20 28 20  : pack-seckey ( 
2ac0: 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 6b  o:key -- ).    k
2ad0: 65 79 3a 63 6f 64 65 0a 20 20 20 20 20 20 70 61  ey:code.      pa
2ae0: 63 6b 2d 63 6f 72 65 6b 65 79 0a 20 20 20 20 20  ck-corekey.     
2af0: 20 6b 65 2d 73 6b 20 73 65 63 40 20 24 2c 20 70   ke-sk sec@ $, p
2b00: 72 69 76 6b 65 79 0a 20 20 20 20 65 6e 64 3a 6b  rivkey.    end:k
2b10: 65 79 20 3b 0a 0a 3a 20 3e 62 61 63 6b 75 70 20  ey ;..: >backup 
2b20: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 20  ( addr u -- ).  
2b30: 20 20 32 64 75 70 20 32 64 75 70 20 5b 3a 20 74    2dup 2dup [: t
2b40: 79 70 65 20 27 7e 27 20 65 6d 69 74 20 3b 5d 20  ype '~' emit ;] 
2b50: 24 74 6d 70 20 72 65 6e 61 6d 65 2d 66 69 6c 65  $tmp rename-file
2b60: 20 74 68 72 6f 77 0a 20 20 20 20 32 64 75 70 20   throw.    2dup 
2b70: 5b 3a 20 74 79 70 65 20 27 2b 27 20 65 6d 69 74  [: type '+' emit
2b80: 20 3b 5d 20 24 74 6d 70 20 32 73 77 61 70 20 72   ;] $tmp 2swap r
2b90: 65 6e 61 6d 65 2d 66 69 6c 65 20 74 68 72 6f 77  ename-file throw
2ba0: 20 3b 0a 0a 3a 20 73 61 76 65 2d 70 75 62 6b 65   ;..: save-pubke
2bb0: 79 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b 65  ys ( -- ).    ke
2bc0: 79 2d 70 66 64 20 3f 64 75 70 2d 49 46 20 20 63  y-pfd ?dup-IF  c
2bd0: 6c 6f 73 65 2d 66 69 6c 65 20 74 68 72 6f 77 20  lose-file throw 
2be0: 20 54 48 45 4e 0a 20 20 20 20 30 20 22 7e 2f 2e   THEN.    0 "~/.
2bf0: 6e 65 74 32 6f 2f 70 75 62 6b 65 79 73 2e 6b 32  net2o/pubkeys.k2
2c00: 6f 2b 22 20 3f 66 64 20 74 6f 20 6b 65 79 2d 70  o+" ?fd to key-p
2c10: 66 64 0a 20 20 20 20 6b 65 79 2d 74 61 62 6c 65  fd.    key-table
2c20: 20 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f   [: cell+ $@ dro
2c30: 70 20 63 65 6c 6c 2b 20 3e 6f 0a 20 20 20 20 20  p cell+ >o.     
2c40: 20 6b 65 2d 73 6b 20 73 65 63 40 20 64 30 3d 20   ke-sk sec@ d0= 
2c50: 49 46 20 20 70 61 63 6b 2d 70 75 62 6b 65 79 0a  IF  pack-pubkey.
2c60: 09 20 20 66 6c 75 73 68 28 20 2e 22 20 73 61 76  .  flush( ." sav
2c70: 69 6e 67 20 22 20 6b 65 2d 6e 69 63 6b 20 24 40  ing " ke-nick $@
2c80: 20 74 79 70 65 20 46 20 63 72 20 29 0a 09 20 20   type F cr )..  
2c90: 6b 65 79 2d 63 72 79 70 74 20 6b 65 79 3e 70 66  key-crypt key>pf
2ca0: 69 6c 65 0a 20 20 20 20 20 20 54 48 45 4e 20 6f  ile.      THEN o
2cb0: 3e 20 3b 5d 20 23 6d 61 70 0a 20 20 20 20 6b 65  > ;] #map.    ke
2cc0: 79 2d 70 66 64 20 63 6c 6f 73 65 2d 66 69 6c 65  y-pfd close-file
2cd0: 20 74 68 72 6f 77 0a 20 20 20 20 22 7e 2f 2e 6e   throw.    "~/.n
2ce0: 65 74 32 6f 2f 70 75 62 6b 65 79 73 2e 6b 32 6f  et2o/pubkeys.k2o
2cf0: 22 20 3e 62 61 63 6b 75 70 0a 20 20 20 20 30 20  " >backup.    0 
2d00: 74 6f 20 6b 65 79 2d 70 66 64 20 3b 0a 0a 3a 20  to key-pfd ;..: 
2d10: 73 61 76 65 2d 73 65 63 6b 65 79 73 20 28 20 2d  save-seckeys ( -
2d20: 2d 20 29 0a 20 20 20 20 6b 65 79 2d 73 66 64 20  - ).    key-sfd 
2d30: 3f 64 75 70 2d 49 46 20 20 63 6c 6f 73 65 2d 66  ?dup-IF  close-f
2d40: 69 6c 65 20 74 68 72 6f 77 20 20 54 48 45 4e 0a  ile throw  THEN.
2d50: 20 20 20 20 30 20 22 7e 2f 2e 6e 65 74 32 6f 2f      0 "~/.net2o/
2d60: 73 65 63 6b 65 79 73 2e 6b 32 6f 2b 22 20 3f 66  seckeys.k2o+" ?f
2d70: 64 20 74 6f 20 6b 65 79 2d 73 66 64 0a 20 20 20  d to key-sfd.   
2d80: 20 6b 65 79 2d 74 61 62 6c 65 20 5b 3a 20 63 65   key-table [: ce
2d90: 6c 6c 2b 20 24 40 20 64 72 6f 70 20 63 65 6c 6c  ll+ $@ drop cell
2da0: 2b 20 3e 6f 0a 20 20 20 20 20 20 6b 65 2d 73 6b  + >o.      ke-sk
2db0: 20 73 65 63 40 20 64 30 3c 3e 20 49 46 20 20 70   sec@ d0<> IF  p
2dc0: 61 63 6b 2d 73 65 63 6b 65 79 20 20 54 48 45 4e  ack-seckey  THEN
2dd0: 0a 20 20 20 20 20 20 6b 65 79 2d 63 72 79 70 74  .      key-crypt
2de0: 20 6b 65 79 3e 73 66 69 6c 65 20 6f 3e 20 3b 5d   key>sfile o> ;]
2df0: 20 23 6d 61 70 0a 20 20 20 20 22 7e 2f 2e 6e 65   #map.    "~/.ne
2e00: 74 32 6f 2f 73 65 63 6b 65 79 73 2e 6b 32 6f 22  t2o/seckeys.k2o"
2e10: 20 3e 62 61 63 6b 75 70 0a 20 20 20 20 6b 65 79   >backup.    key
2e20: 2d 73 66 64 20 63 6c 6f 73 65 2d 66 69 6c 65 20  -sfd close-file 
2e30: 74 68 72 6f 77 20 30 20 74 6f 20 6b 65 79 2d 73  throw 0 to key-s
2e40: 66 64 20 3b 0a 0a 3a 20 73 61 76 65 2d 6b 65 79  fd ;..: save-key
2e50: 73 20 28 20 2d 2d 20 29 0a 20 20 20 20 73 61 76  s ( -- ).    sav
2e60: 65 2d 70 75 62 6b 65 79 73 20 73 61 76 65 2d 73  e-pubkeys save-s
2e70: 65 63 6b 65 79 73 20 3b 0a 0a 3a 20 2b 67 65 6e  eckeys ;..: +gen
2e80: 2d 6b 65 79 73 20 28 20 6e 69 63 6b 20 75 20 74  -keys ( nick u t
2e90: 79 70 65 20 2d 2d 20 29 20 2d 72 6f 74 0a 20 20  ype -- ) -rot.  
2ea0: 20 20 67 65 6e 2d 6b 65 79 73 20 3e 6b 65 79 73    gen-keys >keys
2eb0: 20 70 61 63 6b 2d 6b 65 79 20 6b 65 79 2d 63 72   pack-key key-cr
2ec0: 79 70 74 20 6b 65 79 3e 73 66 69 6c 65 20 3b 0a  ypt key>sfile ;.
2ed0: 0a 3a 20 2b 6b 65 79 70 61 69 72 20 28 20 74 79  .: +keypair ( ty
2ee0: 70 65 20 6e 69 63 6b 20 75 20 2d 2d 20 29 20 2b  pe nick u -- ) +
2ef0: 70 61 73 73 70 68 72 61 73 65 20 2b 67 65 6e 2d  passphrase +gen-
2f00: 6b 65 79 73 20 3b 0a 0a 3a 20 2e 72 76 6b 20 2e  keys ;..: .rvk .
2f10: 22 20 50 6c 65 61 73 65 20 77 72 69 74 65 20 64  " Please write d
2f20: 6f 77 6e 20 72 65 76 6f 6b 65 20 6b 65 79 3a 20  own revoke key: 
2f30: 22 20 63 72 0a 20 20 20 20 73 6b 72 65 76 20 24  " cr.    skrev $
2f40: 32 30 20 62 6f 75 6e 64 73 20 44 4f 20 20 2e 22  20 bounds DO  ."
2f50: 20 5c 20 22 20 49 20 34 20 38 35 74 79 70 65 20   \ " I 4 85type 
2f60: 73 70 61 63 65 20 49 20 34 20 2b 20 34 20 38 35  space I 4 + 4 85
2f70: 74 79 70 65 20 63 72 20 38 20 2b 4c 4f 4f 50 20  type cr 8 +LOOP 
2f80: 3b 0a 0a 24 34 30 20 62 75 66 66 65 72 3a 20 6e  ;..$40 buffer: n
2f90: 69 63 6b 2d 62 75 66 0a 0a 3a 20 6d 61 6b 65 2d  ick-buf..: make-
2fa0: 6b 65 79 20 28 20 2d 2d 20 29 0a 20 20 20 20 6b  key ( -- ).    k
2fb0: 65 79 23 75 73 65 72 20 2e 22 20 6e 69 63 6b 3a  ey#user ." nick:
2fc0: 20 22 20 6e 69 63 6b 2d 62 75 66 20 24 34 30 20   " nick-buf $40 
2fd0: 61 63 63 65 70 74 20 6e 69 63 6b 2d 62 75 66 20  accept nick-buf 
2fe0: 73 77 61 70 20 63 72 0a 20 20 20 20 2e 22 20 70  swap cr.    ." p
2ff0: 61 73 73 70 68 72 61 73 65 3a 20 22 20 2b 70 61  assphrase: " +pa
3000: 73 73 70 68 72 61 73 65 20 6b 65 79 3e 64 65 66  ssphrase key>def
3010: 61 75 6c 74 0a 20 20 20 20 63 72 20 2b 67 65 6e  ault.    cr +gen
3020: 2d 6b 65 79 73 20 2e 72 76 6b 20 3b 0a 0a 5c 20  -keys .rvk ;..\ 
3030: 72 65 61 64 20 6b 65 79 20 66 69 6c 65 0a 0a 3a  read key file..:
3040: 20 74 72 79 2d 64 65 63 72 79 70 74 2d 6b 65 79   try-decrypt-key
3050: 20 28 20 6b 65 79 20 75 31 20 2d 2d 20 61 64 64   ( key u1 -- add
3060: 72 20 75 32 20 66 6c 61 67 20 29 0a 20 20 20 20  r u2 flag ).    
3070: 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b 2d  keypack keypack-
3080: 64 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 6d  d keypack-all# m
3090: 6f 76 65 0a 20 20 20 20 6b 65 79 70 61 63 6b 2d  ove.    keypack-
30a0: 64 20 6b 65 79 70 61 63 6b 2d 61 6c 6c 23 20 32  d keypack-all# 2
30b0: 73 77 61 70 0a 20 20 20 20 64 75 70 20 24 32 30  swap.    dup $20
30c0: 20 3d 20 49 46 20 20 64 65 63 72 79 70 74 24 20   = IF  decrypt$ 
30d0: 20 45 4c 53 45 0a 09 6b 65 79 70 61 63 6b 20 63   ELSE..keypack c
30e0: 40 20 24 46 20 61 6e 64 20 70 77 2d 6c 65 76 65  @ $F and pw-leve
30f0: 6c 23 20 3c 3d 20 49 46 20 20 64 65 63 72 79 70  l# <= IF  decryp
3100: 74 2d 70 77 24 0a 09 45 4c 53 45 20 20 32 64 72  t-pw$..ELSE  2dr
3110: 6f 70 20 66 61 6c 73 65 20 20 54 48 45 4e 0a 20  op false  THEN. 
3120: 20 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 74 72 79     THEN ;..: try
3130: 2d 64 65 63 72 79 70 74 20 28 20 2d 2d 20 61 64  -decrypt ( -- ad
3140: 64 72 20 75 20 2f 20 30 20 30 20 29 0a 20 20 20  dr u / 0 0 ).   
3150: 20 6b 65 79 73 20 24 5b 5d 23 20 30 20 3f 44 4f   keys $[]# 0 ?DO
3160: 0a 09 49 20 6b 65 79 73 20 73 65 63 5b 5d 40 20  ..I keys sec[]@ 
3170: 74 72 79 2d 64 65 63 72 79 70 74 2d 6b 65 79 20  try-decrypt-key 
3180: 49 46 0a 09 20 20 20 20 49 20 6b 65 79 73 20 24  IF..    I keys $
3190: 5b 5d 20 40 20 3e 73 74 6f 72 65 6b 65 79 20 21  [] @ >storekey !
31a0: 20 75 6e 6c 6f 6f 70 20 20 45 58 49 54 20 20 54   unloop  EXIT  T
31b0: 48 45 4e 0a 09 32 64 72 6f 70 0a 20 20 20 20 4c  HEN..2drop.    L
31c0: 4f 4f 50 20 20 30 20 30 20 3b 0a 0a 3a 20 64 6f  OOP  0 0 ;..: do
31d0: 2d 6b 65 79 20 28 20 61 64 64 72 20 75 20 2f 20  -key ( addr u / 
31e0: 30 20 30 20 20 2d 2d 20 29 0a 20 20 20 20 64 75  0 0  -- ).    du
31f0: 70 20 30 3d 20 49 46 20 20 32 64 72 6f 70 20 20  p 0= IF  2drop  
3200: 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 73  EXIT  THEN.    s
3210: 61 6d 70 6c 65 2d 6b 65 79 20 2e 64 6f 2d 63 6d  ample-key .do-cm
3220: 64 2d 6c 6f 6f 70 20 3b 0a 0a 3a 20 72 65 61 64  d-loop ;..: read
3230: 2d 6b 65 79 73 2d 6c 6f 6f 70 20 28 20 66 64 20  -keys-loop ( fd 
3240: 2d 2d 20 29 20 20 3e 72 20 30 2e 20 72 40 20 72  -- )  >r 0. r@ r
3250: 65 70 6f 73 69 74 69 6f 6e 2d 66 69 6c 65 20 74  eposition-file t
3260: 68 72 6f 77 0a 20 20 20 20 42 45 47 49 4e 0a 09  hrow.    BEGIN..
3270: 72 40 20 66 69 6c 65 2d 70 6f 73 69 74 69 6f 6e  r@ file-position
3280: 20 74 68 72 6f 77 20 64 3e 36 34 20 6b 65 79 2d   throw d>64 key-
3290: 72 65 61 64 2d 6f 66 66 73 65 74 20 36 34 21 0a  read-offset 64!.
32a0: 09 6b 65 79 70 61 63 6b 20 6b 65 79 70 61 63 6b  .keypack keypack
32b0: 2d 61 6c 6c 23 20 72 40 20 72 65 61 64 2d 66 69  -all# r@ read-fi
32c0: 6c 65 20 74 68 72 6f 77 0a 09 6b 65 79 70 61 63  le throw..keypac
32d0: 6b 2d 61 6c 6c 23 20 3d 20 57 48 49 4c 45 20 20  k-all# = WHILE  
32e0: 74 72 79 2d 64 65 63 72 79 70 74 20 64 6f 2d 6b  try-decrypt do-k
32f0: 65 79 0a 20 20 20 20 52 45 50 45 41 54 20 20 72  ey.    REPEAT  r
3300: 64 72 6f 70 20 3b 0a 3a 20 72 65 61 64 2d 6b 65  drop ;.: read-ke
3310: 79 2d 6c 6f 6f 70 20 28 20 2d 2d 20 29 20 3f 6b  y-loop ( -- ) ?k
3320: 65 79 2d 73 66 64 20 72 65 61 64 2d 6b 65 79 73  ey-sfd read-keys
3330: 2d 6c 6f 6f 70 20 3b 0a 3a 20 72 65 61 64 2d 70  -loop ;.: read-p
3340: 6b 65 79 2d 6c 6f 6f 70 20 28 20 2d 2d 20 29 20  key-loop ( -- ) 
3350: 70 77 2d 6c 65 76 65 6c 23 20 3e 72 20 2d 31 20  pw-level# >r -1 
3360: 74 6f 20 70 77 2d 6c 65 76 65 6c 23 0a 20 20 20  to pw-level#.   
3370: 20 3f 6b 65 79 2d 70 66 64 20 72 65 61 64 2d 6b   ?key-pfd read-k
3380: 65 79 73 2d 6c 6f 6f 70 20 72 3e 20 74 6f 20 70  eys-loop r> to p
3390: 77 2d 6c 65 76 65 6c 23 20 3b 0a 0a 3a 20 72 65  w-level# ;..: re
33a0: 61 64 2d 6b 65 79 73 20 28 20 2d 2d 20 29 0a 20  ad-keys ( -- ). 
33b0: 20 20 20 72 65 61 64 2d 6b 65 79 2d 6c 6f 6f 70     read-key-loop
33c0: 20 72 65 61 64 2d 70 6b 65 79 2d 6c 6f 6f 70 20   read-pkey-loop 
33d0: 3b 0a 0a 5c 20 73 65 6c 65 63 74 20 6b 65 79 20  ;..\ select key 
33e0: 62 79 20 6e 69 63 6b 0a 0a 3a 20 3e 72 61 77 2d  by nick..: >raw-
33f0: 6b 65 79 20 28 20 6f 20 2d 2d 20 29 0a 20 20 20  key ( o -- ).   
3400: 20 64 75 70 20 30 3d 20 21 21 6e 6f 2d 6e 69 63   dup 0= !!no-nic
3410: 6b 21 21 20 3e 6f 0a 20 20 20 20 6b 65 2d 70 6b  k!! >o.    ke-pk
3420: 20 24 40 20 70 6b 63 20 73 77 61 70 20 70 6b 72   $@ pkc swap pkr
3430: 6b 23 20 75 6d 69 6e 20 6d 6f 76 65 0a 20 20 20  k# umin move.   
3440: 20 6b 65 2d 70 73 6b 20 73 65 63 40 20 6d 79 2d   ke-psk sec@ my-
3450: 30 6b 65 79 20 73 65 63 21 0a 20 20 20 20 6b 65  0key sec!.    ke
3460: 2d 73 6b 20 73 65 63 40 20 73 6b 63 20 73 77 61  -sk sec@ skc swa
3470: 70 20 6b 65 79 73 69 7a 65 20 75 6d 69 6e 20 6d  p keysize umin m
3480: 6f 76 65 0a 20 20 20 20 3e 73 6b 73 69 67 20 6f  ove.    >sksig o
3490: 3e 20 3b 0a 0a 3a 20 3e 6b 65 79 20 28 20 61 64  > ;..: >key ( ad
34a0: 64 72 20 75 20 2d 2d 20 29 0a 20 20 20 20 6b 65  dr u -- ).    ke
34b0: 79 2d 74 61 62 6c 65 20 40 20 30 3d 20 49 46 20  y-table @ 0= IF 
34c0: 20 72 65 61 64 2d 6b 65 79 73 20 20 54 48 45 4e   read-keys  THEN
34d0: 0a 20 20 20 20 6e 69 63 6b 2d 6b 65 79 20 3e 72  .    nick-key >r
34e0: 61 77 2d 6b 65 79 20 3b 0a 0a 3a 20 69 27 6d 20  aw-key ;..: i'm 
34f0: 28 20 22 6e 61 6d 65 22 20 2d 2d 20 29 20 70 61  ( "name" -- ) pa
3500: 72 73 65 2d 6e 61 6d 65 20 3e 6b 65 79 20 3b 0a  rse-name >key ;.
3510: 3a 20 70 6b 27 20 28 20 22 6e 61 6d 65 22 20 2d  : pk' ( "name" -
3520: 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 70  - addr u ).    p
3530: 61 72 73 65 2d 6e 61 6d 65 20 6e 69 63 6b 3e 70  arse-name nick>p
3540: 6b 20 3b 0a 0a 3a 20 64 65 73 74 2d 6b 65 79 20  k ;..: dest-key 
3550: 28 20 61 64 64 72 20 75 20 2d 2d 20 29 20 64 75  ( addr u -- ) du
3560: 70 20 30 3d 20 49 46 20 20 32 64 72 6f 70 20 20  p 0= IF  2drop  
3570: 45 58 49 54 20 20 54 48 45 4e 0a 20 20 20 20 6e  EXIT  THEN.    n
3580: 69 63 6b 2d 6b 65 79 20 3e 6f 20 6f 20 30 3d 20  ick-key >o o 0= 
3590: 21 21 75 6e 6b 6e 6f 77 6e 2d 6b 65 79 21 21 0a  !!unknown-key!!.
35a0: 20 20 20 20 6b 65 2d 70 73 6b 20 73 65 63 40 20      ke-psk sec@ 
35b0: 73 74 61 74 65 23 20 75 6d 69 6e 0a 20 20 20 20  state# umin.    
35c0: 6b 65 2d 70 6b 20 24 40 20 6b 65 79 73 69 7a 65  ke-pk $@ keysize
35d0: 20 75 6d 69 6e 20 6f 3e 0a 20 20 20 20 64 65 73   umin o>.    des
35e0: 74 2d 70 75 62 6b 65 79 20 24 21 20 20 64 65 73  t-pubkey $!  des
35f0: 74 2d 30 6b 65 79 20 73 65 63 21 20 3b 0a 0a 3a  t-0key sec! ;..:
3600: 20 72 65 70 6c 61 63 65 2d 6b 65 79 20 31 20 2f   replace-key 1 /
3610: 73 74 72 69 6e 67 20 7b 20 72 65 76 2d 61 64 64  string { rev-add
3620: 72 20 75 20 2d 2d 20 6f 20 7d 20 5c 20 72 65 76  r u -- o } \ rev
3630: 6f 63 61 74 69 6f 6e 20 74 69 63 6b 65 74 0a 20  ocation ticket. 
3640: 20 20 20 6b 65 79 28 20 2e 22 20 52 65 70 6c 61     key( ." Repla
3650: 63 65 3a 22 20 63 72 20 6f 20 63 65 6c 6c 2d 20  ce:" cr o cell- 
3660: 30 20 2e 6b 65 79 20 29 0a 20 20 20 20 73 22 20  0 .key ).    s" 
3670: 23 72 65 76 6f 6b 65 64 22 20 64 75 70 20 3e 72  #revoked" dup >r
3680: 20 6b 65 2d 6e 69 63 6b 20 24 2b 21 0a 20 20 20   ke-nick $+!.   
3690: 20 6b 65 2d 6e 69 63 6b 20 24 40 20 72 3e 20 2d   ke-nick $@ r> -
36a0: 20 6b 65 2d 70 72 6f 66 20 24 40 20 6b 65 2d 70   ke-prof $@ ke-p
36b0: 73 6b 20 73 65 63 40 20 6b 65 2d 73 69 67 73 20  sk sec@ ke-sigs 
36c0: 6b 65 2d 74 79 70 65 20 40 0a 20 20 20 20 72 65  ke-type @.    re
36d0: 76 2d 61 64 64 72 20 70 6b 72 6b 23 20 6b 65 79  v-addr pkrk# key
36e0: 3a 6e 65 77 20 3e 6f 0a 20 20 20 20 6b 65 2d 74  :new >o.    ke-t
36f0: 79 70 65 20 21 20 5b 3a 20 6b 65 2d 73 69 67 73  ype ! [: ke-sigs
3700: 20 24 2b 5b 5d 21 20 3b 5d 20 24 5b 5d 6d 61 70   $+[]! ;] $[]map
3710: 20 6b 65 2d 70 73 6b 20 73 65 63 21 20 6b 65 2d   ke-psk sec! ke-
3720: 70 72 6f 66 20 24 21 20 6b 65 2d 6e 69 63 6b 20  prof $! ke-nick 
3730: 24 21 0a 20 20 20 20 72 65 76 2d 61 64 64 72 20  $!.    rev-addr 
3740: 70 6b 72 6b 23 20 6b 65 2d 70 6b 20 24 21 0a 20  pkrk# ke-pk $!. 
3750: 20 20 20 72 65 76 2d 61 64 64 72 20 75 20 2b 20     rev-addr u + 
3760: 31 2d 20 64 75 70 20 63 40 20 32 2a 20 2d 20 24  1- dup c@ 2* - $
3770: 31 30 20 2d 20 24 31 30 20 6b 65 2d 73 65 6c 66  10 - $10 ke-self
3780: 73 69 67 20 24 21 0a 20 20 20 20 6b 65 79 28 20  sig $!.    key( 
3790: 2e 22 20 77 69 74 68 3a 22 20 63 72 20 6f 20 63  ." with:" cr o c
37a0: 65 6c 6c 2d 20 30 20 2e 6b 65 79 20 29 20 6f 20  ell- 0 .key ) o 
37b0: 6f 3e 20 3b 0a 0a 3a 20 72 65 6e 65 77 2d 6b 65  o> ;..: renew-ke
37c0: 79 20 28 20 72 65 76 61 64 64 72 20 75 31 20 6b  y ( revaddr u1 k
37d0: 65 79 61 64 64 72 20 75 32 20 2d 2d 20 6f 20 29  eyaddr u2 -- o )
37e0: 0a 20 20 20 20 63 75 72 72 65 6e 74 2d 6b 65 79  .    current-key
37f0: 20 3e 6f 20 72 65 70 6c 61 63 65 2d 6b 65 79 20   >o replace-key 
3800: 6f 3e 0a 20 20 20 20 3e 6f 20 73 6b 63 20 6b 65  o>.    >o skc ke
3810: 79 73 69 7a 65 20 6b 65 2d 73 6b 20 73 65 63 21  ysize ke-sk sec!
3820: 20 6f 20 6f 3e 20 3b 0a 0a 5c 20 72 65 76 6f 6b   o o> ;..\ revok
3830: 61 74 69 6f 6e 0a 0a 34 20 64 61 74 65 73 69 7a  ation..4 datesiz
3840: 65 23 20 2b 20 6b 65 79 73 69 7a 65 20 39 20 2a  e# + keysize 9 *
3850: 20 2b 20 43 6f 6e 73 74 61 6e 74 20 72 65 76 73   + Constant revs
3860: 69 7a 65 23 0a 0a 56 61 72 69 61 62 6c 65 20 72  ize#..Variable r
3870: 65 76 74 6f 6b 65 6e 0a 0a 3a 20 30 6f 6c 64 6b  evtoken..: 0oldk
3880: 65 79 20 28 20 2d 2d 20 29 20 5c 20 70 75 62 6b  ey ( -- ) \ pubk
3890: 65 79 73 20 63 61 6e 20 73 74 61 79 0a 20 20 20  eys can stay.   
38a0: 20 6f 6c 64 73 6b 63 20 6b 65 79 73 69 7a 65 20   oldskc keysize 
38b0: 65 72 61 73 65 20 20 6f 6c 64 73 6b 72 65 76 20  erase  oldskrev 
38c0: 6b 65 79 73 69 7a 65 20 65 72 61 73 65 20 3b 0a  keysize erase ;.
38d0: 0a 3a 20 6b 65 79 6d 6f 76 65 20 28 20 61 64 64  .: keymove ( add
38e0: 72 31 20 61 64 64 72 32 20 2d 2d 20 29 20 20 6b  r1 addr2 -- )  k
38f0: 65 79 73 69 7a 65 20 6d 6f 76 65 20 3b 0a 0a 3a  eysize move ;..:
3900: 20 72 65 76 6f 6b 65 2d 76 65 72 69 66 79 20 28   revoke-verify (
3910: 20 61 64 64 72 20 75 31 20 70 6b 20 73 74 72 69   addr u1 pk stri
3920: 6e 67 20 75 32 20 2d 2d 20 61 64 64 72 20 75 20  ng u2 -- addr u 
3930: 66 6c 61 67 20 29 20 72 6f 74 20 3e 72 20 32 3e  flag ) rot >r 2>
3940: 72 20 63 3a 30 6b 65 79 0a 20 20 20 20 73 69 67  r c:0key.    sig
3950: 6f 6e 6c 79 73 69 7a 65 23 20 2d 20 32 64 75 70  onlysize# - 2dup
3960: 20 32 72 3e 20 3e 6b 65 79 65 64 2d 68 61 73 68   2r> >keyed-hash
3970: 0a 20 20 20 20 73 69 67 64 61 74 65 20 2b 64 61  .    sigdate +da
3980: 74 65 0a 20 20 20 20 32 64 75 70 20 2b 20 72 3e  te.    2dup + r>
3990: 20 65 64 2d 76 65 72 69 66 79 20 3b 0a 0a 3a 20   ed-verify ;..: 
39a0: 3e 72 65 76 6f 6b 65 20 28 20 73 6b 72 65 76 20  >revoke ( skrev 
39b0: 2d 2d 20 29 20 20 73 6b 72 65 76 20 6b 65 79 6d  -- )  skrev keym
39c0: 6f 76 65 20 20 63 68 65 63 6b 2d 72 65 76 3f 20  ove  check-rev? 
39d0: 30 3d 20 21 21 6e 6f 74 2d 6d 79 2d 72 65 76 73  0= !!not-my-revs
39e0: 6b 21 21 20 3b 0a 0a 3a 20 2b 72 65 76 73 69 67  k!! ;..: +revsig
39f0: 6e 20 28 20 73 6b 20 70 6b 20 2d 2d 20 29 20 20  n ( sk pk -- )  
3a00: 73 6b 73 69 67 20 2d 72 6f 74 20 65 64 2d 73 69  sksig -rot ed-si
3a10: 67 6e 20 72 65 76 74 6f 6b 65 6e 20 24 2b 21 20  gn revtoken $+! 
3a20: 62 6c 20 72 65 76 74 6f 6b 65 6e 20 63 24 2b 21  bl revtoken c$+!
3a30: 20 3b 0a 0a 3a 20 73 69 67 6e 2d 74 6f 6b 65 6e   ;..: sign-token
3a40: 2c 20 28 20 73 6b 20 70 6b 20 73 74 72 69 6e 67  , ( sk pk string
3a50: 20 75 32 20 2d 2d 20 29 0a 20 20 20 20 63 3a 30   u2 -- ).    c:0
3a60: 6b 65 79 20 72 65 76 74 6f 6b 65 6e 20 24 40 20  key revtoken $@ 
3a70: 32 73 77 61 70 20 3e 6b 65 79 65 64 2d 68 61 73  2swap >keyed-has
3a80: 68 0a 20 20 20 20 73 69 67 64 61 74 65 20 2b 64  h.    sigdate +d
3a90: 61 74 65 20 2b 72 65 76 73 69 67 6e 20 3b 0a 0a  ate +revsign ;..
3aa0: 3a 20 72 65 76 6f 6b 65 2d 6b 65 79 20 28 20 2d  : revoke-key ( -
3ab0: 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 73  - addr u ).    s
3ac0: 6b 63 20 6f 6c 64 73 6b 63 20 6b 65 79 6d 6f 76  kc oldskc keymov
3ad0: 65 20 20 70 6b 63 20 6f 6c 64 70 6b 63 20 6b 65  e  pkc oldpkc ke
3ae0: 79 6d 6f 76 65 20 20 73 6b 72 65 76 20 6f 6c 64  ymove  skrev old
3af0: 73 6b 72 65 76 20 6b 65 79 6d 6f 76 65 0a 20 20  skrev keymove.  
3b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b20: 20 20 20 20 20 20 20 20 20 5c 20 62 61 63 6b 75           \ backu
3b30: 70 20 6b 65 79 73 0a 20 20 20 20 6f 6c 64 73 6b  p keys.    oldsk
3b40: 72 65 76 20 6f 6c 64 70 6b 72 65 76 20 73 6b 3e  rev oldpkrev sk>
3b50: 70 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  pk              
3b60: 20 20 5c 20 67 65 6e 65 72 61 74 65 20 72 65 76    \ generate rev
3b70: 6f 6b 61 74 69 6f 6e 20 70 75 62 6b 65 79 0a 20  okation pubkey. 
3b80: 20 20 20 67 65 6e 2d 6b 65 79 73 20 20 20 20 20     gen-keys     
3b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ba0: 20 20 20 20 20 20 20 20 20 20 5c 20 67 65 6e 65            \ gene
3bb0: 72 61 74 65 20 6e 65 77 20 6b 65 79 73 0a 20 20  rate new keys.  
3bc0: 20 20 70 6b 63 20 6b 65 79 73 69 7a 65 20 32 2a    pkc keysize 2*
3bd0: 20 72 65 76 74 6f 6b 65 6e 20 24 21 20 20 20 20   revtoken $!    
3be0: 20 20 20 20 20 20 20 20 20 5c 20 6d 79 20 6e 65           \ my ne
3bf0: 77 20 6b 65 79 0a 20 20 20 20 6f 6c 64 70 6b 72  w key.    oldpkr
3c00: 65 76 20 6b 65 79 73 69 7a 65 20 72 65 76 74 6f  ev keysize revto
3c10: 6b 65 6e 20 24 2b 21 20 20 20 20 20 20 20 20 20  ken $+!         
3c20: 20 5c 20 72 65 76 6f 6b 65 20 74 6f 6b 65 6e 0a   \ revoke token.
3c30: 20 20 20 20 6f 6c 64 73 6b 72 65 76 20 6f 6c 64      oldskrev old
3c40: 70 6b 72 65 76 20 22 72 65 76 6f 6b 65 22 20 73  pkrev "revoke" s
3c50: 69 67 6e 2d 74 6f 6b 65 6e 2c 20 5c 20 72 65 76  ign-token, \ rev
3c60: 6f 6b 65 20 73 69 67 6e 61 74 75 72 65 0a 20 20  oke signature.  
3c70: 20 20 73 6b 63 20 70 6b 63 20 22 73 65 6c 66 73    skc pkc "selfs
3c80: 69 67 6e 22 20 73 69 67 6e 2d 74 6f 6b 65 6e 2c  ign" sign-token,
3c90: 20 20 20 20 20 20 20 20 20 5c 20 73 65 6c 66 20           \ self 
3ca0: 73 69 67 6e 65 64 20 77 69 74 68 20 6e 65 77 20  signed with new 
3cb0: 6b 65 79 0a 20 20 20 20 22 21 22 20 72 65 76 74  key.    "!" revt
3cc0: 6f 6b 65 6e 20 30 20 24 69 6e 73 20 20 20 20 20  oken 0 $ins     
3cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c                 \
3ce0: 20 22 21 22 20 2b 20 6f 6c 64 6b 65 79 6c 65 6e   "!" + oldkeylen
3cf0: 2b 6e 65 77 6b 65 79 6c 65 6e 20 74 6f 20 66 6c  +newkeylen to fl
3d00: 61 67 20 72 65 76 6f 6b 61 74 69 6f 6e 0a 20 20  ag revokation.  
3d10: 20 20 72 65 76 74 6f 6b 65 6e 20 24 40 20 67 65    revtoken $@ ge
3d20: 6e 3e 68 6f 73 74 20 32 64 72 6f 70 20 20 20 20  n>host 2drop    
3d30: 20 20 20 20 20 20 20 20 20 5c 20 73 69 67 6e 20           \ sign 
3d40: 68 6f 73 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  host information
3d50: 20 77 69 74 68 20 6f 6c 64 20 6b 65 79 0a 20 20   with old key.  
3d60: 20 20 73 69 67 64 61 74 65 20 2b 64 61 74 65 20    sigdate +date 
3d70: 73 69 67 64 61 74 65 20 64 61 74 65 73 69 7a 65  sigdate datesize
3d80: 23 20 72 65 76 74 6f 6b 65 6e 20 24 2b 21 0a 20  # revtoken $+!. 
3d90: 20 20 20 6f 6c 64 73 6b 63 20 6f 6c 64 70 6b 63     oldskc oldpkc
3da0: 20 2b 72 65 76 73 69 67 6e 0a 20 20 20 20 30 6f   +revsign.    0o
3db0: 6c 64 6b 65 79 20 72 65 76 74 6f 6b 65 6e 20 24  ldkey revtoken $
3dc0: 40 20 3b 0a 0a 30 20 5b 49 46 5d 0a 4c 6f 63 61  @ ;..0 [IF].Loca
3dd0: 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 66 6f 72  l Variables:.for
3de0: 74 68 2d 6c 6f 63 61 6c 2d 77 6f 72 64 73 3a 0a  th-local-words:.
3df0: 20 20 20 20 28 0a 20 20 20 20 20 28 28 22 6e 65      (.     (("ne
3e00: 74 32 6f 3a 22 20 22 2b 6e 65 74 32 6f 3a 22 29  t2o:" "+net2o:")
3e10: 20 64 65 66 69 6e 69 74 69 6f 6e 2d 73 74 61 72   definition-star
3e20: 74 65 72 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b  ter (font-lock-k
3e30: 65 79 77 6f 72 64 2d 66 61 63 65 20 2e 20 31 29  eyword-face . 1)
3e40: 0a 20 20 20 20 20 20 22 5b 20 5c 74 5c 6e 5d 22  .      "[ \t\n]"
3e50: 20 74 20 6e 61 6d 65 20 28 66 6f 6e 74 2d 6c 6f   t name (font-lo
3e60: 63 6b 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65  ck-function-name
3e70: 2d 66 61 63 65 20 2e 20 33 29 29 0a 20 20 20 20  -face . 3)).    
3e80: 20 28 28 22 64 65 62 75 67 3a 22 20 22 66 69 65   (("debug:" "fie
3e90: 6c 64 3a 22 20 22 32 66 69 65 6c 64 3a 22 20 22  ld:" "2field:" "
3ea0: 73 66 66 69 65 6c 64 3a 22 20 22 64 66 66 69 65  sffield:" "dffie
3eb0: 6c 64 3a 22 20 22 36 34 66 69 65 6c 64 3a 22 20  ld:" "64field:" 
3ec0: 22 75 76 61 72 22 20 22 75 76 61 6c 75 65 22 29  "uvar" "uvalue")
3ed0: 20 6e 6f 6e 2d 69 6d 6d 65 64 69 61 74 65 20 28   non-immediate (
3ee0: 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66  font-lock-type-f
3ef0: 61 63 65 20 2e 20 32 29 0a 20 20 20 20 20 20 22  ace . 2).      "
3f00: 5b 20 5c 74 5c 6e 5d 22 20 74 20 6e 61 6d 65 20  [ \t\n]" t name 
3f10: 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61  (font-lock-varia
3f20: 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 20 2e 20  ble-name-face . 
3f30: 33 29 29 0a 20 20 20 20 20 28 22 5b 61 2d 7a 30  3)).     ("[a-z0
3f40: 2d 39 5d 2b 28 22 20 69 6d 6d 65 64 69 61 74 65  -9]+(" immediate
3f50: 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d   (font-lock-comm
3f60: 65 6e 74 2d 66 61 63 65 20 2e 20 31 29 0a 20 20  ent-face . 1).  
3f70: 20 20 20 20 22 29 22 20 6e 69 6c 20 63 6f 6d 6d      ")" nil comm
3f80: 65 6e 74 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 63  ent (font-lock-c
3f90: 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 2e 20 31 29  omment-face . 1)
3fa0: 29 0a 20 20 20 20 29 0a 66 6f 72 74 68 2d 6c 6f  ).    ).forth-lo
3fb0: 63 61 6c 2d 69 6e 64 65 6e 74 2d 77 6f 72 64 73  cal-indent-words
3fc0: 3a 0a 20 20 20 20 28 0a 20 20 20 20 20 28 28 22  :.    (.     (("
3fd0: 6e 65 74 32 6f 3a 22 20 22 2b 6e 65 74 32 6f 3a  net2o:" "+net2o:
3fe0: 22 29 20 28 30 20 2e 20 32 29 20 28 30 20 2e 20  ") (0 . 2) (0 . 
3ff0: 32 29 20 6e 6f 6e 2d 69 6d 6d 65 64 69 61 74 65  2) non-immediate
4000: 29 0a 20 20 20 20 20 28 28 22 5b 3a 22 20 22 6b  ).     (("[:" "k
4010: 65 79 3a 63 6f 64 65 22 29 20 28 30 20 2e 20 31  ey:code") (0 . 1
4020: 29 20 28 30 20 2e 20 31 29 20 69 6d 6d 65 64 69  ) (0 . 1) immedi
4030: 61 74 65 29 0a 20 20 20 20 20 28 28 22 3b 5d 22  ate).     ((";]"
4040: 20 22 65 6e 64 3a 6b 65 79 22 29 20 28 2d 31 20   "end:key") (-1 
4050: 2e 20 30 29 20 28 30 20 2e 20 2d 31 29 20 69 6d  . 0) (0 . -1) im
4060: 6d 65 64 69 61 74 65 29 0a 20 20 20 20 29 0a 45  mediate).    ).E
4070: 6e 64 3a 0a 5b 54 48 45 4e 5d                    nd:.[THEN]