Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Flag for exception |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1f47e4cfabd111a65bbecda80022ee13 |
| User & Date: | bernd 2020-05-21 09:02:57 |
Context
|
2020-05-21
| ||
| 09:58 | Glitch in kill-tasks removed check-in: cd536b2adb user: bernd tags: trunk | |
| 09:02 | Flag for exception check-in: 1f47e4cfab user: bernd tags: trunk | |
|
2020-05-19
| ||
| 21:18 | More work on better hash object fetching check-in: 4d5f84ca9e user: bernd tags: trunk | |
Changes
Changes to connect.fs.
223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 |
: reply-key, ( -- )
key-setup? !!doublekey!!
nest[
new-error-id $, error-id
pk@ key| $, pubkey $@len 0> keypad$ nip keysize u<= and IF
pubkey $@ key| $, keypair
pubkey $@ drop sk@ drop key-stage2
ELSE !!nokey!! THEN
update-key all-ivs ;
: reply-key ( -- ) crypt( ." Reply key: " tmpkey@ .nnb forth:cr )
reply-key, ( cookie+request ) time-offset! context
]tmpnest
push-cmd ;
+net2o: gen-reply ( -- ) \g generate a key request reply
|
| |
223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 |
: reply-key, ( -- )
key-setup? !!doublekey!!
nest[
new-error-id $, error-id
pk@ key| $, pubkey $@len 0> keypad$ nip keysize u<= and IF
pubkey $@ key| $, keypair
pubkey $@ drop sk@ drop key-stage2
ELSE true !!nokey!! THEN
update-key all-ivs ;
: reply-key ( -- ) crypt( ." Reply key: " tmpkey@ .nnb forth:cr )
reply-key, ( cookie+request ) time-offset! context
]tmpnest
push-cmd ;
+net2o: gen-reply ( -- ) \g generate a key request reply
|