asp 一些支付接口(24)

<%

    Private Const ASP_BITS_TO_A_BYTE = 8
    Private Const ASP_BYTES_TO_A_WORD = 4
    Private Const ASP_BITS_TO_A_WORD = 32

    Private ASP_m_lOnBits(30)
    Private ASP_m_l2Power(30)

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

        If (lValue And ASP_m_l2Power(31 - iShiftBits)) Then
            ASP_LShift = ((lValue And ASP_m_lOnBits(31 - (iShiftBits + 1))) * ASP_m_l2Power(iShiftBits)) Or &H80000000
        Else
            ASP_LShift = ((lValue And ASP_m_lOnBits(31 - iShiftBits)) * ASP_m_l2Power(iShiftBits))
        End If
    End Function

    Private Function ASP_Str2binold(varstr)
        ASP_Str2binold=""
         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