radical_honesty on #flashsupport 3432e3a495 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}

2022-12-26 18:03:03 -08:00

procs

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}

2022-12-26 18:03:03 -08:00

vars

Evaluated babak

2022-12-07 13:26:05 -08:00

stolen-treasure.tcl

no

2020-09-27 17:24:22 +02:00

Description

No description provided

6.8 MiB

Languages

Tcl 100%