25/05/19 09:59:39.06 WO8NIavg.net
@rem 金が絡むなら自己責任でどうぞ
@echo off & setlocal enabledelayedexpansion & set "b=" & set "h="
set "a=123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz"
set /p "b=Base58=" & set "z=%a:~0,1%" & set /a "n=1,d=0,e=58"
set "c=!b!-" & set "b=%z%!b!" & set "f=0123456789abcdef"
:1
for /L %%i in (0,1,57) do if "!a:~%%i,1!"=="!b:~-1!" set /a e=%%i
if %e%==58 (exit /b) else set /a "g%n%=e" & set "b=!b:~0,-1!"
if defined b set /a "n+=1,e=58" & goto 1
:2
set /a "b=0,e=0" & for /L %%i in (%n%,-1,1) do (
set /a "g%%i+=b*58,b=g%%i%%16,e|=g%%i/=16")
set "h=!f:~%b%,1!%h%" & set /a "d=(d+1)%%2" & if %e% neq 0 goto 2
if "%h%"=="0" (set "h=") else if %d%==1 set "h=0%h%"
:3
if "%c:~0,1%"=="%z%" set "h=00%h%" & set "c=%c:~1%" & goto 3
if defined h echo Hex=%h% & pause