VB 大数的模逆算法

上网找到了一个 VB 大数的计算方法，其中这个RSA 模逆运算函数，他说这个函数有问题，但自己看了很久都不懂。。。。

求懂RSA的，VB高手们 帮帮忙  修改一下 和 注析一下  我在线等着，谢谢

'已知a、b，求x，满足a*x =1 (mod b)，相当于求解a*x-b*y=1的最小整数解（此函数有问题）
Public Function BigEuclid(ByVal aString As String, ByVal bString As String) As String

  Dim m As String, e As String, si As String, sj As String, x As String, y As String
  Dim xx As Long, yy As Long

    m = bString
    e = aString
    x = "0"
    y = "1"
    xx = 1
    yy = 1
    Do While (e > "0")
        Call TextToBigNumber(m, AAAA, LengthAAAA)
        Call TextToBigNumber(e, BBBB, LengthBBBB)
        Call DivBInt(AAAA, LengthAAAA, BBBB, LengthBBBB, CCCC, LengthCCCC, DDDD, LengthDDDD)
        si = BigNumberToText(CCCC, LengthCCCC)
        sj = BigNumberToText(DDDD, LengthDDDD)
        m = e
        e = sj
        sj = y
        y = BigMul(y, si)
        If (xx = yy) Then
            If ((x > y) And (Len(x) = Len(y)) Or (Len(x) > Len(y))) Then
                y = BigSub(x, y)
              Else 'NOT (X...'NOT ((X...
                y = BigSub(y, x)
                yy = 0
            End If
          Else 'NOT (XX...
            y = BigAdd(y, x)
            xx = 1 - xx
            yy = 1 - yy
        End If
        x = sj
    Loop
    If (xx = 0) Then
        x = BigSub(bString, x)
    End If
    BigEuclid = x

End Function

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！