BIN2DEC in BAT

::::NUMERIQUE VERS DECIMAL
::::PAR SACHADEE
::::02-2013

@echo off

:::::DEFINIR LA VALEUR BINAIRE ICI:::::

set num-bin=100000100

cls
set "puissance2=1 2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768"

setlocal enabledelayedexpansion

:::ON DECOMPOSE LA VALEUR NUMERIQUES PAR SUBSTITUTION

set "num-bin=%num-bin:1=1 %"
set "num-bin=%num-bin:0=0 %"
set "num-bin=%num-bin:~0,-1%"

echo.#%num-bin%#

:::ON INVERSE L ORDRE POUR AVOIR LA PLUS PETITE VALEUR EN PREMIER

for %%a in (%num-bin%) do (
   set "val=%%a"
   set "num-bin-inv=!val! !num-bin-inv!")

set "num-bin-inv=!num-bin-inv:~0,-1!"

:::ON BOUCLE SUR LA VALEUR INVERSEE SI ON A 1 ON ADDITIONE
:::L'EQUIVALENCE DE LA LISTE DES PUISSANCES 2

set "compteur=1"
set "val=0"
for %%a in (!num-bin-inv!) do (
if %%a==1 (
  set "compteur1=1"
  for %%b in (%puissance2%) do (if !compteur!==!compteur1! (set /a val=!val!+%%b)
    set /a compteur1+=1))
set /a Compteur+=1)

echo.&echo.RESULTAT : !val!&echo.