Changeset 3446

Timestamp:

Nov 21, 2012 12:10:28 AM (6 months ago)

Author:

wmb

Message:

oatstime utility - simplified the fix in svn 3445 by observing that running one step of a linear congruence adds no entropy to the seed value, thus you might as well just use the seed.

File:

• cpu/x86/pc/olpc/oatstime.fth (modified) (1 diff)

cpu/x86/pc/olpc/oatstime.fth

@@ -317 +317 @@
    " flush-writes" $call-http
 ;
-[ifndef] random-long
-variable rn
-: random-long  rn @  d# 1103515245 *  d# 12345 +   h# 7FFFFFFF and  dup rn !  ;
-time&date >unix-seconds get-msecs xor rn !
+
+[ifdef] random
+alias nonce-int random-long
+[else]
+: nonce-int  ( -- n )  time&date >unix-seconds get-msecs xor  ;
 [then]
+
 0 value the-nonce
 : oats-msg$  ( -- msg$ )
-   random-long abs  dup to the-nonce   ( nonce )
+   nonce-int abs  dup to the-nonce   ( nonce )
    " SN" find-tag 0= abort" Machine has no serial number" ?-null  ( nonce sn$ )
    " serialnum=%s&version=1&nonce=%d" sprintf