39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
-
+
-
+
|
prompt "Seed" seed
if {[string length $seed] == 0} {
break
}
if {[catch {
# Verify the seed
::nano::internal::generateKey [binary decode hex $seed] 0
::nano::key::fromSeed $seed 0
lappend seeds $seed
} err]} {
puts "Error: $err"
}
}
set penultimateDestinationKey [::nano::internal::generateKey [binary decode hex [lindex $seeds 0]] 0]
set penultimateDestinationKey [::nano::key::fromSeed [lindex $seeds 0] 0]
set penultimateDestination [::nano::address::fromPrivateKey $penultimateDestinationKey]
puts ">> Output File"
while true {
prompt "Filename" outputFileName
set outputFileName [file normalize $outputFileName]
if {[catch {
|