base64算法在vb(.net)中的实现

摘自:http://www.alixixi.com/weBuild/Subject40/weBuild/Subject40/200631911054.html
作者:[] 

  Public key(1 To 3) As Long

  Private Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrst

  uvwxyz0123456789+/"

  Public Sub GenKey()

  Dim d As Long, phi As Long, e As Long

  Dim m As Long, x As Long, q As Long

  Dim p As Long

  Randomize

  On Error GoTo top

  top:

  p = Rnd * 1000 \ 1

  If IsPrime(p) = False Then GoTo top

  Sel_q:

  q = Rnd * 1000 \ 1

  If IsPrime(q) = False Then GoTo Sel_q

  n = p * q \ 1

  phi = (p - 1) * (q - 1) \ 1

  d = Rnd * n \ 1

  If d = 0 Or n = 0 Or d = 1 Then GoTo top

  e = Euler(phi, d)

  If e = 0 Or e = 1 Then GoTo top

  x = Mult(255, e, n)

  If Not Mult(x, d, n) = 255 Then

  DoEvents

  GoTo top

  ElseIf Mult(x, d, n) = 255 Then

  key(1) = e

  key(2) = d

  key(3) = n

  End If

  End Sub

  Private Function Euler(ByVal a As Long, ByVal b As Long) As Long

  On Error GoTo error2

  r1