Evaluated proc nist_rand {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [last [regexp -inline {<outputValue>(.*?)</outputValue>} [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}

This commit is contained in:
radical_honesty on #flashsupport 2022-12-26 17:39:20 -08:00 committed by dupa dup
parent da05820b1d
commit 8fc71e9a2d
2 changed files with 2 additions and 0 deletions

View File

@ -10,6 +10,7 @@ fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
gay 2871591e64f027a23fadafaa00305a8bd3484292
gay_real 7350d9495ac03aaeea097bcb716a52eacbda7ce0
isgitworkingatall 446e36f703ad4368f85a4fb396371f7e6ec4d86e
nist_rand be4fc6825952b2d54286259ef360a9b8a073d5e1
old+agenda d8eb095fe42bb7e4a3daa9d4831b99407a9b9664
ricky_word a7765cbdd8817e06abf7b341e9a77adb891b4643
ricky_word_ a698c49cad760393dd92abe54f19e69e0e4f7f5f

View File

@ -0,0 +1 @@
{{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [last [regexp -inline {<outputValue>(.*?)</outputValue>} [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}