Base58Check encoding: Difference between revisions

Content added Content deleted
m (→‎version 3: changed whitespace in comment.)
m (→‎version 3: aligned statements.)
Line 1,228: Line 1,228:
numeric digits 500 /*just in case there're huge numberss. */
numeric digits 500 /*just in case there're huge numberss. */
say B58(25420294593250030202636073700053352635053786165627414518)
say B58(25420294593250030202636073700053352635053786165627414518)
say B58('61'x); say B58('626262'x)
say B58('61'x) ; say B58('626262'x)
say B58('636363'x); say B58('73696d706c792061206c6f6e6720737472696e67'x)
say B58('636363'x) ; say B58('73696d706c792061206c6f6e6720737472696e67'x)
say B58('516b6fcd0f'x); say B58('bf4f89001e670274dd'x)
say B58('516b6fcd0f'x) ; say B58('bf4f89001e670274dd'x)
say B58('572e4794'x); say B58('ecac89cad93923c02321'x)
say B58('572e4794'x) ; say B58('ecac89cad93923c02321'x)
say B58('10c8511e'x)
say B58('10c8511e'x)
exit 0 /*stick a fork in it, we're all done. */
exit 0 /*stick a fork in it, we're all done. */
Line 1,241: Line 1,241:
end /*until*/
end /*until*/
if hex then oz= "'"c2x(oz)"'x" /*Original arg in hex? Transform it.*/
if hex then oz= "'"c2x(oz)"'x" /*Original arg in hex? Transform it.*/
return right(oz, 60) "───►" left('', L1, 0)$ /*for showing arg and the residual. */</lang>
return right(oz, 60) "───►" left('', L1, 0)$ /*for showing arg and the residual. */

</lang>
{{out|output|text=&nbsp; when using the default inputs:}}
{{out|output|text=&nbsp; when using the default inputs:}}
<pre>
<pre>