asp 一些支付接口(31)

        Const S34 = 23
        Const S41 = 6
        Const S42 = 10
        Const S43 = 15
        Const S44 = 21

        x = ASP_ConvertToWordArray(ASP_Str2bin(sMessage))

        a = &H67452301
        b = &HEFCDAB89
        c = &H98BADCFE
        d = &H10325476

        For k = 0 To UBound(x) Step 16
            AA = a
            BB = b
            CC = c
            DD = d

            ASP_md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
            ASP_md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
            ASP_md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
            ASP_md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
            ASP_md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
            ASP_md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
            ASP_md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
            ASP_md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
            ASP_md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
            ASP_md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
            ASP_md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
            ASP_md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
            ASP_md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
            ASP_md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
            ASP_md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
            ASP_md5_FF b, c, d, a, x(k + 15), S14, &H49B40821