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