Overview
| Comment: | Add more TODO |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
91adaf362978e6f0d9f73161835bc5c6 |
| User & Date: | rkeene on 2019-01-11 17:50:37 |
| Other Links: | manifest | tags |
Context
|
2019-01-11
| ||
| 18:03 | Reduce argon2 code a bit by removing features we do not use check-in: 483b914916 user: rkeene tags: trunk | |
| 17:50 | Add more TODO check-in: 91adaf3629 user: rkeene tags: trunk | |
| 17:50 | Use the user-supplied password check-in: b74e661b68 user: rkeene tags: trunk | |
Changes
Modified nano.tcl from [c455a1a52a] to [7e83f74db7].
| ︙ | |||
4096 4097 4098 4099 4100 4101 4102 4103 4104 4105 4106 4107 4108 4109 | 4096 4097 4098 4099 4100 4101 4102 4103 4104 4105 4106 4107 4108 4109 4110 4111 | + + |
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]
# XXX:TODO: Check the password against "check"
# Decrypt seed
set aesKey [::nano::internal::deriveKeyFromPassword $password $wallet(salt)]
set walletKey [::nano::internal::AES256-CTR $aesKey $walletKeyIV $wallet(key)]
set seed [::nano::internal::AES256-CTR $walletKey $seedIV $wallet(seed)]
# Format results
|
| ︙ |