Base58Check encoding: Difference between revisions
Content added Content deleted
(added haskell) |
Walterpachl (talk | contribs) m (added REXX) |
||
Line 71: | Line 71: | ||
} |
} |
||
</lang> |
</lang> |
||
=={{header|REXX}}== |
|||
Following the description in |
|||
https://www.anintegratedworld.com/how-to-manually-calculate-base58check-encoding/ |
|||
I get the result expected there. |
|||
Apart for the leading 1 the program works also for the inputs shown above. |
|||
<lang rexx>/* REXX */ |
|||
s="123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz" |
|||
Numeric Digits 100 |
|||
k='00010966776006953D5567439E5E39F86A0D273BEED61967F6'x |
|||
n=c2d(k) |
|||
o='' |
|||
Do Until n=0 |
|||
rem=n//58 |
|||
n=n%58 |
|||
o=o||substr(s,rem+1,1) |
|||
End |
|||
o=o||substr(s,1,1) |
|||
Say reverse(o)</lang> |
|||
{{out}} |
|||
<pre>16UwLL9Risc3QfPqBUvKofHmBQ7wMtjvM</pre> |