Tcl Nano
Check-in [c77f5a51cd]
Login
HomeTimelineDownloadsBrowse SourceSearchTickets
Overview
Comment:Better formatting of data from wallets
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: c77f5a51cd415b9edbebbd1455f9cebe0b101efbabd6a84cc08dabbab7c40fd5
User & Date: rkeene on 2019-01-22 18:26:05.975
Other Links: manifest | tags
Context
2019-01-22
18:27
Better formatting of checksums and publickeys check-in: 32a0f84a02 user: rkeene tags: trunk
18:26
Better formatting of data from wallets check-in: c77f5a51cd user: rkeene tags: trunk
17:59
Upgraded AES to get rid of a warning check-in: 4c806fd6da user: rkeene tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified nano.tcl from [62c2803e15] to [40a809aa05].
︙
4052
4053
4054
4055
4056
4057
4058
4059

4060
4061
4062
4063
4064
4065

4066
4067
4068
4069
4070
4071
4072

4052
4053
4054
4055
4056
4057
4058

4059
4060
4061
4062
4063
4064

4065
4066
4067
4068
4069
4070
4071
4072








-
+





-
+








	return $result
}

# Node Wallet Functions
proc ::nano::wallet::decode_backup {password walletJSON} {
	array set walletArray [::json::json2dict $walletJSON]

	set wallet(version) [expr 0x$walletArray(0000000000000000000000000000000000000000000000000000000000000000)]
	set wallet(version) [format %lli 0x$walletArray(0000000000000000000000000000000000000000000000000000000000000000)]
	set wallet(salt)    [binary decode hex $walletArray(0000000000000000000000000000000000000000000000000000000000000001)]
	set wallet(key)     [binary decode hex $walletArray(0000000000000000000000000000000000000000000000000000000000000002)]
	set wallet(check)   [binary decode hex $walletArray(0000000000000000000000000000000000000000000000000000000000000003)]
	set wallet(rep)     [::nano::address::fromPublicKey $walletArray(0000000000000000000000000000000000000000000000000000000000000004)]
	set wallet(seed)    [binary decode hex $walletArray(0000000000000000000000000000000000000000000000000000000000000005)]
	set wallet(index)   [expr 0x$walletArray(0000000000000000000000000000000000000000000000000000000000000006)]
	set wallet(index)   [format %lli 0x$walletArray(0000000000000000000000000000000000000000000000000000000000000006)]

	if {$wallet(version) != 4} {
		return -code error "Unsupported wallet backup version ($version)"
	}

	set walletKeyIV [string range $wallet(salt) 0 15]
	set seedIV      [string range $wallet(salt) 16 end]
︙
Powered by Fossil · RSS