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.116 |
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 | : 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 | | | 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 |
︙ | ︙ |