10 to 64 进制转换

Private Sub C10to64_Click()
Dim c(0 To 63) As String
Dim i As Integer
Dim s As String
Dim m, n As Integer
Dim x As Long

s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/"

For i = 0 To 63
c(i) = Mid(s, i + 1, 1)
Next i

s = ""
x = 84096
m = x

Do While m >= 64
n = m Mod 64
m = m / 64
s = c(n) + s
Loop

s = c(m) + s
Debug.Print s

End Sub

Private Sub C64to10_Click()
Dim c(0 To 63) As String
Dim i As Integer
Dim s As String
Dim m, n As Integer
Dim str As String

s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+/"

str = "l1a"

m = 0
For i = 1 To Len(str)
n = InStr(s, Mid(str, i, 1)) - 1

m = m * 64 + n

Next i

Debug.Print m

End Sub