Artifact
7f74d03f4787020b7460660359df9b9ab5bd4683:
- File
net2o-keys.fs
— part of check-in
[41e4dca501]
at
2012-11-07 04:40:36
on branch trunk
— Added first simple key management
(user:
bernd
size: 1821)
0000: 5c 20 6b 65 79 20 68 61 6e 64 6c 69 6e 67 0a 0a \ key handling..
0010: 72 65 71 75 69 72 65 20 6d 6b 64 69 72 2e 66 73 require mkdir.fs
0020: 0a 0a 3a 20 3f 2e 6e 65 74 32 6f 20 28 20 2d 2d ..: ?.net2o ( --
0030: 20 29 0a 20 20 20 20 73 22 20 7e 2f 2e 6e 65 74 ). s" ~/.net
0040: 32 6f 22 20 72 2f 6f 20 6f 70 65 6e 2d 66 69 6c 2o" r/o open-fil
0050: 65 20 6e 69 70 20 49 46 0a 09 73 22 20 7e 2f 2e e nip IF..s" ~/.
0060: 6e 65 74 32 6f 22 20 24 31 43 30 20 6d 6b 64 69 net2o" $1C0 mkdi
0070: 72 2d 70 61 72 65 6e 74 73 20 74 68 72 6f 77 0a r-parents throw.
0080: 20 20 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 6b 65 THEN ;..: ke
0090: 79 2d 69 6e 20 28 20 64 65 73 74 20 61 64 64 72 y-in ( dest addr
00a0: 20 75 20 2d 2d 20 29 0a 20 20 20 20 72 2f 6f 20 u -- ). r/o
00b0: 6f 70 65 6e 2d 66 69 6c 65 20 74 68 72 6f 77 20 open-file throw
00c0: 7b 20 66 64 20 7d 0a 20 20 20 20 6b 65 79 73 69 { fd }. keysi
00d0: 7a 65 20 66 64 20 72 65 61 64 2d 66 69 6c 65 20 ze fd read-file
00e0: 74 68 72 6f 77 20 6b 65 79 73 69 7a 65 20 3c 3e throw keysize <>
00f0: 20 21 21 6e 6f 6b 65 79 21 21 0a 20 20 20 20 66 !!nokey!!. f
0100: 64 20 63 6c 6f 73 65 2d 66 69 6c 65 20 74 68 72 d close-file thr
0110: 6f 77 20 3b 0a 0a 3a 20 6b 65 79 2d 6f 75 74 20 ow ;..: key-out
0120: 28 20 73 6f 75 72 63 65 20 61 64 64 72 20 75 20 ( source addr u
0130: 2d 2d 20 29 0a 20 20 20 20 72 2f 77 20 63 72 65 -- ). r/w cre
0140: 61 74 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 7b ate-file throw {
0150: 20 66 64 20 7d 0a 20 20 20 20 6b 65 79 73 69 7a fd }. keysiz
0160: 65 20 66 64 20 77 72 69 74 65 2d 66 69 6c 65 20 e fd write-file
0170: 74 68 72 6f 77 0a 20 20 20 20 66 64 20 63 6c 6f throw. fd clo
0180: 73 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 3b 0a se-file throw ;.
0190: 0a 6b 65 79 73 69 7a 65 20 62 75 66 66 65 72 3a .keysize buffer:
01a0: 20 74 65 73 74 6b 65 79 0a 6b 65 79 73 69 7a 65 testkey.keysize
01b0: 20 62 75 66 66 65 72 3a 20 74 65 73 74 73 6b 63 buffer: testskc
01c0: 0a 6b 65 79 73 69 7a 65 20 62 75 66 66 65 72 3a .keysize buffer:
01d0: 20 70 61 73 73 73 6b 63 0a 0a 3a 20 63 68 65 63 passskc..: chec
01e0: 6b 2d 6b 65 79 3f 20 28 20 61 64 64 72 20 2d 2d k-key? ( addr --
01f0: 20 66 6c 61 67 20 29 20 20 3e 72 0a 20 20 20 20 flag ) >r.
0200: 74 65 73 74 6b 65 79 20 72 40 20 62 61 73 65 39 testkey r@ base9
0210: 20 63 72 79 70 74 6f 5f 73 63 61 6c 61 72 6d 75 crypto_scalarmu
0220: 6c 74 0a 20 20 20 20 74 65 73 74 6b 65 79 20 6b lt. testkey k
0230: 65 79 73 69 7a 65 20 70 6b 63 20 6f 76 65 72 20 eysize pkc over
0240: 73 74 72 3d 20 49 46 20 20 72 40 20 73 6b 63 20 str= IF r@ skc
0250: 6b 65 79 73 69 7a 65 20 6d 6f 76 65 20 20 74 72 keysize move tr
0260: 75 65 0a 20 20 20 20 45 4c 53 45 20 20 66 61 6c ue. ELSE fal
0270: 73 65 20 20 54 48 45 4e 20 20 72 64 72 6f 70 20 se THEN rdrop
0280: 3b 0a 0a 33 20 56 61 6c 75 65 20 70 61 73 73 70 ;..3 Value passp
0290: 68 72 61 73 65 2d 72 65 74 72 79 23 0a 24 31 30 hrase-retry#.$10
02a0: 30 20 56 61 6c 75 65 20 70 61 73 73 70 68 72 61 0 Value passphra
02b0: 73 65 2d 64 69 66 66 75 73 65 23 0a 0a 3a 20 67 se-diffuse#..: g
02c0: 65 74 2d 70 61 73 73 70 68 72 61 73 65 20 28 20 et-passphrase (
02d0: 61 64 64 72 69 6e 20 2d 2d 20 61 64 64 72 6f 75 addrin -- addrou
02e0: 74 20 29 0a 20 20 20 20 70 61 73 73 73 6b 63 20 t ). passskc
02f0: 6b 65 79 73 69 7a 65 20 6d 6f 76 65 20 20 20 77 keysize move w
0300: 75 72 73 74 2d 73 6f 75 72 63 65 20 21 6b 65 79 urst-source !key
0310: 0a 20 20 20 20 6d 65 73 73 61 67 65 20 73 74 61 . message sta
0320: 74 65 23 20 38 20 2a 20 32 64 75 70 20 61 63 63 te# 8 * 2dup acc
0330: 65 70 74 20 64 75 70 20 3e 72 20 73 61 66 65 2f ept dup >r safe/
0340: 73 74 72 69 6e 67 20 65 72 61 73 65 0a 20 20 20 string erase.
0350: 20 72 3e 20 49 46 0a 09 73 6f 75 72 63 65 2d 69 r> IF..source-i
0360: 6e 69 74 20 77 75 72 73 74 2d 6b 65 79 20 68 61 nit wurst-key ha
0370: 73 68 2d 69 6e 69 74 0a 09 6d 65 73 73 61 67 65 sh-init..message
0380: 20 72 6f 75 6e 64 73 68 23 20 72 6f 75 6e 64 73 roundsh# rounds
0390: 0a 09 70 61 73 73 70 68 72 61 73 65 2d 64 69 66 ..passphrase-dif
03a0: 66 75 73 65 23 20 30 20 3f 44 4f 20 20 73 74 61 fuse# 0 ?DO sta
03b0: 72 74 2d 64 69 66 66 75 73 65 20 20 4c 4f 4f 50 rt-diffuse LOOP
03c0: 20 5c 20 6a 75 73 74 20 74 6f 20 77 61 73 74 65 \ just to waste
03d0: 20 74 69 6d 65 20 3b 2d 29 0a 09 77 75 72 73 74 time ;-)..wurst
03e0: 2d 73 74 61 74 65 20 70 61 73 73 73 6b 63 20 6b -state passskc k
03f0: 65 79 73 69 7a 65 20 78 6f 72 73 0a 09 77 75 72 eysize xors..wur
0400: 73 74 2d 73 74 61 74 65 20 6b 65 79 73 69 7a 65 st-state keysize
0410: 20 2b 20 70 61 73 73 73 6b 63 20 6b 65 79 73 69 + passskc keysi
0420: 7a 65 20 78 6f 72 73 0a 20 20 20 20 54 48 45 4e ze xors. THEN
0430: 20 20 70 61 73 73 73 6b 63 20 3b 0a 0a 3a 20 72 passskc ;..: r
0440: 65 61 64 2d 6b 65 79 73 20 28 20 2d 2d 20 29 20 ead-keys ( -- )
0450: 20 3f 2e 6e 65 74 32 6f 0a 20 20 20 20 70 6b 63 ?.net2o. pkc
0460: 20 73 22 20 7e 2f 2e 6e 65 74 32 6f 2f 70 75 62 s" ~/.net2o/pub
0470: 6b 65 79 2e 65 63 63 22 20 6b 65 79 2d 69 6e 0a key.ecc" key-in.
0480: 20 20 20 20 74 65 73 74 73 6b 63 20 73 22 20 7e testskc s" ~
0490: 2f 2e 6e 65 74 32 6f 2f 73 65 63 6b 65 79 2e 65 /.net2o/seckey.e
04a0: 63 63 22 20 6b 65 79 2d 69 6e 0a 20 20 20 20 74 cc" key-in. t
04b0: 65 73 74 73 6b 63 20 63 68 65 63 6b 2d 6b 65 79 estskc check-key
04c0: 3f 20 3f 45 58 49 54 0a 20 20 20 20 70 61 73 73 ? ?EXIT. pass
04d0: 70 68 72 61 73 65 2d 72 65 74 72 79 23 20 30 20 phrase-retry# 0
04e0: 3f 44 4f 0a 09 63 72 20 2e 22 20 50 61 73 73 70 ?DO..cr ." Passp
04f0: 68 72 61 73 65 3a 20 22 0a 09 74 65 73 74 73 6b hrase: "..testsk
0500: 63 20 67 65 74 2d 70 61 73 73 70 68 72 61 73 65 c get-passphrase
0510: 20 63 68 65 63 6b 2d 6b 65 79 3f 20 49 46 20 20 check-key? IF
0520: 75 6e 6c 6f 6f 70 20 20 45 58 49 54 20 20 54 48 unloop EXIT TH
0530: 45 4e 0a 20 20 20 20 4c 4f 4f 50 20 20 21 21 6e EN. LOOP !!n
0540: 6f 6b 65 79 21 21 20 3b 0a 0a 3a 20 6e 65 77 2d okey!! ;..: new-
0550: 70 61 73 73 70 68 72 61 73 65 20 28 20 2d 2d 20 passphrase ( --
0560: 29 0a 20 20 20 20 70 61 73 73 70 68 72 61 73 65 ). passphrase
0570: 2d 72 65 74 72 79 23 20 30 20 3f 44 4f 0a 09 63 -retry# 0 ?DO..c
0580: 72 20 2e 22 20 45 6e 74 65 72 20 50 61 73 73 70 r ." Enter Passp
0590: 68 72 61 73 65 3a 20 22 20 20 20 20 20 20 20 73 hrase: " s
05a0: 6b 63 20 67 65 74 2d 70 61 73 73 70 68 72 61 73 kc get-passphras
05b0: 65 0a 09 74 65 73 74 73 6b 63 20 6b 65 79 73 69 e..testskc keysi
05c0: 7a 65 20 6d 6f 76 65 0a 09 63 72 20 2e 22 20 52 ze move..cr ." R
05d0: 65 65 6e 74 65 72 20 50 61 73 73 70 68 72 61 73 eenter Passphras
05e0: 65 3a 20 22 20 20 20 20 20 73 6b 63 20 67 65 74 e: " skc get
05f0: 2d 70 61 73 73 70 68 72 61 73 65 0a 09 74 65 73 -passphrase..tes
0600: 74 73 6b 63 20 6b 65 79 73 69 7a 65 20 74 75 63 tskc keysize tuc
0610: 6b 20 73 74 72 3d 20 49 46 20 20 75 6e 6c 6f 6f k str= IF unloo
0620: 70 20 20 45 58 49 54 20 20 54 48 45 4e 0a 20 20 p EXIT THEN.
0630: 20 20 4c 4f 4f 50 20 20 21 21 6e 6f 6b 65 79 21 LOOP !!nokey!
0640: 21 20 3b 0a 0a 3a 20 77 72 69 74 65 2d 6b 65 79 ! ;..: write-key
0650: 73 20 28 20 2d 2d 20 29 20 20 3f 2e 6e 65 74 32 s ( -- ) ?.net2
0660: 6f 0a 20 20 20 20 6e 65 77 2d 70 61 73 73 70 68 o. new-passph
0670: 72 61 73 65 0a 20 20 20 20 70 6b 63 20 73 22 20 rase. pkc s"
0680: 7e 2f 2e 6e 65 74 32 6f 2f 70 75 62 6b 65 79 2e ~/.net2o/pubkey.
0690: 65 63 63 22 20 6b 65 79 2d 6f 75 74 0a 20 20 20 ecc" key-out.
06a0: 20 74 65 73 74 73 6b 63 20 73 22 20 7e 2f 2e 6e testskc s" ~/.n
06b0: 65 74 32 6f 2f 73 65 63 6b 65 79 2e 65 63 63 22 et2o/seckey.ecc"
06c0: 20 6b 65 79 2d 6f 75 74 20 3b 0a 0a 3a 20 3f 6b key-out ;..: ?k
06d0: 65 79 70 61 69 72 20 28 20 2d 2d 20 29 0a 20 20 eypair ( -- ).
06e0: 20 20 5b 27 5d 20 72 65 61 64 2d 6b 65 79 73 20 ['] read-keys
06f0: 63 61 74 63 68 20 49 46 20 20 6e 6f 74 68 72 6f catch IF nothro
0700: 77 20 67 65 6e 2d 6b 65 79 73 20 77 72 69 74 65 w gen-keys write
0710: 2d 6b 65 79 73 20 20 54 48 45 4e 20 3b -keys THEN ;