Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix your-0key problem |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e3324935560b8959699abb6080c79645 |
| User & Date: | bernd 2019-07-13 11:02:14.557 |
Context
|
2019-07-13
| ||
| 11:03 | Fix your-0key problem check-in: 429120512d user: bernd tags: trunk | |
| 11:02 | Fix your-0key problem check-in: e332493556 user: bernd tags: trunk | |
| 00:01 | Locked down chat works check-in: 94988e190b user: bernd tags: trunk | |
Changes
Changes to crypt.fs.
| ︙ | ︙ | |||
19 20 21 22 23 24 25 |
$1E0 Constant keypack#
keypack# key-salt# + key-cksum# + Constant keypack-all#
key-salt# key-cksum# + Constant wrapper#
Variable my-0key
: your-0key ( -- addr u )
o IF dest-0key sec@ ELSE #0. THEN
| | | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
$1E0 Constant keypack#
keypack# key-salt# + key-cksum# + Constant keypack-all#
key-salt# key-cksum# + Constant wrapper#
Variable my-0key
: your-0key ( -- addr u )
o IF dest-0key sec@ ELSE #0. THEN
dup 0= lastaddr# and IF 2drop lastaddr# cell+ $@ THEN ;
user-o keytmp \ storage for secure temporary keys
object uclass keytmp
state2# uvar key-assembly
state2# uvar ivs-assembly
state# uvar mykey \ instance's rotating private key
|
| ︙ | ︙ |
Changes to helper.fs.
| ︙ | ︙ | |||
295 296 297 298 299 300 301 |
ret0 net2o:new-context >o rdrop dest-pk ;
in net2o : pklookup? ( pkaddr u -- flag )
2dup keysize2 safe/string hostc$ $! key2| 2dup pkc over str= to ?myself
2dup >d#id { id }
id .dht-host $[]# 0= IF 2dup pk-lookup 2dup >d#id to id THEN
2dup make-context
| | | | 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 |
ret0 net2o:new-context >o rdrop dest-pk ;
in net2o : pklookup? ( pkaddr u -- flag )
2dup keysize2 safe/string hostc$ $! key2| 2dup pkc over str= to ?myself
2dup >d#id { id }
id .dht-host $[]# 0= IF 2dup pk-lookup 2dup >d#id to id THEN
2dup make-context
false id dup .dht-host ['] insert-host? $[]map drop nip nip
lastaddr# IF lastaddr# cell+ $@ dest-0key $! THEN ;
in net2o : pklookup ( pkaddr u -- )
net2o:pklookup? 0= !!no-address!! ;
: ?nat-done ( n -- )
nat( ." req done, issue nat request" forth:cr )
connect-rest +flow-control +resend ?nat ;
: no-nat-done ( n -- )
|
| ︙ | ︙ |