Кодирование HEX строки в Base32 - VB

Формулировка задачи:

Привет ! Почитал мануал: http://www.garykessler.net/library/base64.html В принципе все понятно до момента практики. Беру онлайн конвертер: http://tomeko.net/online_tools/hex_to_base32.php?lang=en Ввожу: 2BF8A65FA9C27E321CE679C53E69AF0900000000 Получаю: FP4KMX5JYJ7DEHHGPHCT42NPBEAAAAAA А вручную как? Беру 2B -> это 101011. Разбиваю по 5 разрядов. Будет 10101 (21 в 10-тичной) и остаток ... По таблице это соответствует букве V. Но это неправильно. Что я делаю не так? Нашел код, но не хватает ума ним воспользоваться. Входной строкой я буду подавать строку с md5-хеш.

'Base32 encoding functions for shorter, less confusing verification numbers'
Const kBase32Digits = "0123456789abcdefghjkmnpqrstvwxyz"
'To Base32'
Function ToBase32(ByVal lInput)
    Dim lModulo, sTemp
    Do Until lInput = 0
        lModulo = lInput Mod 32
        sTemp = Mid(kBase32Digits, lModulo + 1, 1) & sTemp
        lInput = lInput \ 32
    Loop
    ToBase32 = sTemp
End Function
'From Base32'
Function FromBase32(ByVal sInput)
    Dim sTemp, sR, i,iY,lLen, zMultiplier
    sTemp = LCase(sInput)
    sTemp = Replace(sTemp,"o","0")
    sTemp = Replace(sTemp,"i","1")
    sTemp = Replace(sTemp,"l","1")
    sTemp = Replace(sTemp,"u","v")
    zMultiplier = 1
    lLen = Len(sTemp)
    For i = lLen To 1 Step -1
        sR = Mid(sTemp, i, 1)
        iY = InStr(1, kBase32Digits, sR, vbTextCompare) - 1
        FromBase32 = FromBase32 + iY * zMultiplier
        zMultiplier = zMultiplier * 32
    Next
End Function

++ почитал что этих таблиц есть несколько разных: http://en.wikipedia.org/wiki/Base32 А какая же из них используется, например, в том онлайн-конвертере ?

Решение задачи: «Кодирование HEX строки в Base32»

textual
                            Листинг программы 
                        

                            Function toBase64(file)
  Set FSO = CreateObject("Scripting.FileSystemObject")
  With CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    .LoadFromFile(file)
    bytes = .Read    
  End With
  With CreateObject("Microsoft.XMLDOM").createElement("tmp")
    .DataType = "bin.base64"
    .NodeTypedValue = bytes
    base64 = .Text
  End With
  newfile = fso.GetFileName(fso.GetFile(file)) & ".b64"
  fso.CreateTextFile(newfile, True).Write(base64)  
  toBase64 = "toBase64: " & file & " >>> " & newfile & " : OK"
End Function
 
Function toBinary(file)
  Set FSO = CreateObject("Scripting.FileSystemObject")
  With fso.OpenTextFile(file, 1)
    base64 = .ReadAll
    .Close
  End With
  With CreateObject("Microsoft.XMLDOM").createElement("tmp")
    .DataType = "bin.base64"    
    .Text = base64
    bytes = .NodeTypedValue
  End With
  With CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    .Write bytes
    newfile = "new-" & Replace(fso.GetFileName(fso.GetFile(file)), ".b64", vbNullString)
    .SaveToFile newfile, 2
  End With
  toBinary = "toBinary: " & file & " >>> " & newfile & " : OK"
End Function
                        