Bitcoin/address validation: Difference between revisions
Content deleted Content added
m →{{header|Tcl}}: Updated to give clearer answers |
m →{{header|Tcl}}: Generalize the base58 decoder |
||
Line 62:
proc base58decode str [string map [list @BODY@ [list $map]] {
set num 0
set count [expr {ceil(log(58**[string length $str])/log(256))}]
foreach c [split $str {}] {
set num [expr {$num*58+[switch $c @BODY@]}]
}
for {set i 0} {$i <
append result [binary format c [expr {$num & 255}]]
set num [expr {$num >> 8}]
| |||