:getLenght <VAR_STR> <VAR_result_STR>
    set "s=!%~1!#"
    set "len=0"
    for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
      if "!s:~%%P,1!" NEQ "" (
        set /a "len+=%%P"
        set "s=!s:~%%P!"
      )
    )
      set "%~2=!len!"
  goto :eof