wrath/shaniqua-smeggdrop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>} [n_r_r $when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}

Browse Source
This commit is contained in:
radical_honesty on #flashsupport 2022-12-26 18:03:03 -08:00 committed by dupa dup
parent 4826a98b0f
commit 3432e3a495
1 changed files with 1 additions and 1 deletions

2
procs/be4fc6825952b2d54286259ef360a9b8a073d5e1

@ -1 +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}
{{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>} [n_r_r $when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}