10 to 64 进制转换

Base64与十进制转换

最新推荐文章于 2021-04-12 23:17:41 发布

原创最新推荐文章于 2021-04-12 23:17:41 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #string #c

DoNet WindowsForm 开发同时被 2 个专栏收录

15 篇文章

订阅专栏

VB6.0

3 篇文章

订阅专栏

本文介绍了一个Visual Basic程序示例，该程序包括两个子过程：将十进制数转换为Base64字符串及从Base64字符串转换回十进制数。通过具体的代码实现了转换逻辑，为理解Base64编码及其逆过程提供了实用的参考。

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