Check-in [1f47e4cfab]
Not logged in

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: 1f47e4cfabd111a65bbecda80022ee13fb7ab68d
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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