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 

편집 : 내가이하지 않는 사람의 게시물 뭔가 더 갈거야 ... 잘 지금까지 작동하는 것 같다.