Verified Commit b5c7f47b authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Fix your-0key problem

parent a6c4f335

crypt.fs

+1 −1
Original line number Diff line number Diff line
@@ -23,7 +23,7 @@ key-salt# key-cksum# + Constant wrapper# 
Variable my-0key

: your-0key ( -- addr u )

    o IF  dest-0key sec@  ELSE  #0.  THEN

    dup 0= IF  2drop lastaddr# cell+ $@  THEN ;

    dup 0= lastaddr# and  IF  2drop lastaddr# cell+ $@  THEN ;



user-o keytmp \ storage for secure temporary keys

helper.fs

+2 −2
Original line number Diff line number Diff line
@@ -299,8 +299,8 @@ in net2o : pklookup? ( pkaddr u -- flag ) 
    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 ;

    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!! ;