Verified Commit 9c5c426b authored by Bernd Paysan's avatar Bernd Paysan
Browse files

small cleanup

parent 6f7ea02c

crypt.fs

+3 −3
Original line number Diff line number Diff line
@@ -91,8 +91,10 @@ init-keybuf 
:noname defers alloc-code-bufs  new-keytmp ; is alloc-code-bufs

\ :noname defers free-code-bufs ; is free-code-bufs



#60.000.000.000 d>64 64Value delta-mykey# \ new mykey every 0.6 seconds

#60.000.000.000 d>64 64Constant :01'# \ one minute

#1.000.000.000 d>64 64Constant 10"#   \ ten second

:01'# 64Value delta-mykey# \ new mykey every 0.6 seconds

10"#  64Constant fuzzedtime# \ allow clients to be 10s off



: init-mykey ( -- )

    ticks delta-mykey# 64+ last-mykey 64!
@@ -491,8 +493,6 @@ e? max-xchar $100 < [IF] 
: gen>host ( addr u -- addr u )

    2dup c:0key "host" >keyed-hash ;



#10.000.000.000 d>64 64Constant fuzzedtime# \ allow clients to be 10s off



-5

enum sig-keysize

enum sig-unsigned

ip.fs

+1 −1
Original line number Diff line number Diff line
@@ -273,7 +273,7 @@ $FD c, $00 c, $0000 w, $0000 w, $0000 w, $0000 w, $0000 w, $0000 w, $00 c, $01 c 


Variable myname



\ new address handling is in net2o-addr.fs, loaded later

\ new address handling is in addr.fs, loaded later



Forward !my-addr ( -- )