zhifu/class/alipay_md5.asp

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%
 '功能：支付宝MD5签名处理核心文件，不需要修改
 '版本：3.1
 '修改日期：2010-10-29
 '说明：
 '以下代码只是为了方便商户测试而提供的样例代码，商户可以根据自己网站的需要，按照技术文档编写,并非一定要使用该代码。
 '该代码仅供学习和研究支付宝接口使用，只是提供一个参考。


Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)
Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)
	If iShiftBits = 0 Then
		LShift = lValue
		Exit Function
	ElseIf iShiftBits = 31 Then
		If lValue And 1 Then
			LShift = &H80000000
		Else
			LShift = 0
		End If
		Exit Function
	ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
		Err.Raise 6
	End If

	If (lValue And m_l2Power(31 - iShiftBits)) Then
		LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
	Else
		LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
	End If
End Function

Private Function str2bin(varstr) 
    Dim varasc
    Dim i
    Dim varchar
    Dim varlow
    Dim varhigh
    
	str2bin="" 
    For i=1 To Len(varstr) 
        varchar=mid(varstr,i,1) 
        varasc = Asc(varchar) 
        
        If varasc<0 Then 
        varasc = varasc + 65535 
        End If 
        
        If varasc>255 Then 
        varlow = Left(Hex(Asc(varchar)),2) 
        varhigh = right(Hex(Asc(varchar)),2) 
        str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" & varhigh) 
        Else 
        str2bin = str2bin & chrB(AscB(varchar))