CrockfordのBase32エンコーディングの従来のASP/VBScript実装

Question

the first part of my problemから移動して、私は現在、Douglas Crockford's Base32 EncodingのClassic ASP/VBScript実装を作成しようとしています。

私は自分自身でこれをやっている間に、誰かが手近に何かを持っていることを望んでいます（少なくとも私はできるだけ速く動かすことができます）。

Answer 1

最初に実行すると...これは正しく表示されますか？

'Base32 encoding functions for shorter, less confusing verification numbers' 
Const kBase32Digits = "abcdefghjkmnpqrstvwxyz" 
'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 

編集：は、これまで正常に動作するようです誰かがもっと良いものをポストしない限り...私はこれで行きますよ。