1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-
+
-
-
|
#! /usr/bin/env tclsh
package require nano
if {[llength $argv] == 0} {
puts stderr "Usage: generate-work <hash>..."
exit 1
}
foreach arg $argv {
if {[catch {
set work [::nano::internal::generateWork [binary decode hex $arg]]
set work [::nano::work::fromBlockhash $arg]
set work [binary encode hex $work]
set work [string toupper $work]
|