asp 一些支付接口(27)

    End Function

    Private Function ASP_md5_F(x, y, z)
        ASP_md5_F = (x And y) Or ((Not x) And z)
    End Function

    Private Function ASP_md5_G(x, y, z)
        ASP_md5_G = (x And z) Or (y And (Not z))
    End Function

    Private Function ASP_md5_H(x, y, z)
        ASP_md5_H = (x Xor y Xor z)
    End Function

    Private Function ASP_md5_I(x, y, z)
        ASP_md5_I = (y Xor (x Or (Not z)))
    End Function

    Private Sub ASP_md5_FF(a, b, c, d, x, s, ac)
        a = ASP_AddUnsigned(a, ASP_AddUnsigned(ASP_AddUnsigned(ASP_md5_F(b, c, d), x), ac))
        a = ASP_RotateLeft(a, s)
        a = ASP_AddUnsigned(a, b)
    End Sub

    Private Sub ASP_md5_GG(a, b, c, d, x, s, ac)
        a = ASP_AddUnsigned(a, ASP_AddUnsigned(ASP_AddUnsigned(ASP_md5_G(b, c, d), x), ac))
        a = ASP_RotateLeft(a, s)
        a = ASP_AddUnsigned(a, b)
    End Sub

    Private Sub ASP_md5_HH(a, b, c, d, x, s, ac)
        a = ASP_AddUnsigned(a, ASP_AddUnsigned(ASP_AddUnsigned(ASP_md5_H(b, c, d), x), ac))
        a = ASP_RotateLeft(a, s)
        a = ASP_AddUnsigned(a, b)
    End Sub

    Private Sub ASP_md5_II(a, b, c, d, x, s, ac)
        a = ASP_AddUnsigned(a, ASP_AddUnsigned(ASP_AddUnsigned(ASP_md5_I(b, c, d), x), ac))
        a = ASP_RotateLeft(a, s)
        a = ASP_AddUnsigned(a, b)
    End Sub

    Private Function ASP_ConvertToWordArray(sMessage)
        Dim lMessageLength
        Dim lNumberOfWords
        Dim lWordArray()
        Dim lBytePosition
        Dim lByteCount
        Dim lWordCount

        Const MODULUS_BITS = 512
        Const CONGRUENT_BITS = 448